From cc4c91246735385a98c91112512478a001d87048 Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Mon, 5 Feb 2024 02:06:45 -0300 Subject: [PATCH 1/5] throw as instance of JS `new Error()` Adapted from https://github.com/melange-re/melange/pull/1036 Thanks @anmonteiro --- jscomp/core/js_dump.ml | 40 +- jscomp/core/js_dump_lit.ml | 6 + jscomp/core/js_exp_make.ml | 2 +- jscomp/core/js_exp_make.mli | 2 +- jscomp/core/js_of_lam_block.ml | 4 +- jscomp/core/lam_convert.ml | 15 +- .../package-lock.json | 2 +- jscomp/runtime/caml_format.ml | 2 +- jscomp/runtime/caml_js_exceptions.res | 6 +- jscomp/runtime/caml_lexer.res | 4 +- jscomp/test/406_primitive_test.js | 15 +- jscomp/test/UncurriedExternals.js | 18 +- jscomp/test/adt_optimize_test.js | 19 +- jscomp/test/argv_test.js | 38 +- jscomp/test/arith_parser.js | 22 +- jscomp/test/arity_infer.js | 27 +- jscomp/test/array_safe_get.js | 4 +- jscomp/test/array_test.js | 13 +- jscomp/test/bb.js | 38 +- jscomp/test/bdd.js | 95 +- jscomp/test/bench.js | 11 +- jscomp/test/big_polyvar_test.js | 11419 ++++++++-------- jscomp/test/bs_array_test.js | 57 +- jscomp/test/bs_hashtbl_string_test.js | 247 +- jscomp/test/bs_queue_test.js | 1539 ++- jscomp/test/bs_rbset_int_bench.js | 38 +- jscomp/test/bs_set_bench.js | 38 +- jscomp/test/build.ninja | 2 +- jscomp/test/chn_test.js | 19 +- jscomp/test/const_defs_test.js | 11 +- jscomp/test/custom_error_test.js | 20 +- jscomp/test/defunctor_make_test.js | 44 +- jscomp/test/demo_int_map.js | 53 +- jscomp/test/earger_curry_test.js | 11 +- jscomp/test/equal_exception_test.js | 151 +- jscomp/test/equal_exception_test.res | 2 +- jscomp/test/exception_raise_test.js | 47 +- jscomp/test/exception_rebound_err_test.js | 4 +- jscomp/test/exception_value_test.js | 49 +- jscomp/test/ext_array_test.js | 22 +- jscomp/test/ext_bytes_test.js | 13 +- jscomp/test/ext_filename_test.js | 52 +- jscomp/test/ext_list_test.js | 280 +- jscomp/test/ext_pervasives_test.js | 30 +- jscomp/test/ext_string_test.js | 70 +- jscomp/test/extensible_variant_test.js | 19 +- jscomp/test/flexible_array_test.js | 118 +- jscomp/test/format_regression.js | 76 +- jscomp/test/fun_pattern_match.js | 38 +- jscomp/test/genlex_test.js | 4 +- jscomp/test/gpr_1150.js | 19 +- jscomp/test/gpr_1245_test.js | 4 +- jscomp/test/gpr_1698_test.js | 38 +- jscomp/test/gpr_1701_test.js | 25 +- jscomp/test/gpr_2316_test.js | 30 +- jscomp/test/gpr_2682_test.js | 19 +- jscomp/test/gpr_3877_test.js | 38 +- jscomp/test/gpr_3980_test.js | 57 +- jscomp/test/gpr_405_test.js | 53 +- jscomp/test/gpr_4632.js | 19 +- jscomp/test/gpr_5557.js | 19 +- jscomp/test/gpr_858_unit2_test.js | 19 +- jscomp/test/gpr_974_test.js | 57 +- jscomp/test/imm_map_bench.js | 4 +- jscomp/test/inline_map2_test.js | 303 +- jscomp/test/inline_map_demo.js | 85 +- jscomp/test/inline_map_test.js | 53 +- jscomp/test/inline_record_test.js | 76 +- jscomp/test/int64_string_test.js | 38 +- jscomp/test/int_map.js | 119 +- jscomp/test/internal_unused_test.js | 9 +- jscomp/test/js_exception_catch_test.js | 107 +- jscomp/test/js_json_test.js | 57 +- jscomp/test/lazy_test.js | 50 +- jscomp/test/libqueue_test.js | 1524 ++- jscomp/test/map_find_test.js | 106 +- jscomp/test/map_test.js | 97 +- jscomp/test/mario_game.js | 66 +- jscomp/test/marshal.js | 44 +- jscomp/test/noassert.js | 19 +- jscomp/test/ocaml_re_test.js | 541 +- jscomp/test/offset.js | 119 +- jscomp/test/pq_test.js | 18 +- jscomp/test/queue_402.js | 18 +- jscomp/test/raw_hash_tbl_bench.js | 19 +- jscomp/test/rbset.js | 76 +- jscomp/test/reactDOMRe.js | 11 +- jscomp/test/rec_module_test.js | 119 +- jscomp/test/recmodule.js | 38 +- jscomp/test/recursive_module.js | 8 +- jscomp/test/recursive_records_test.js | 19 +- jscomp/test/return_check.js | 57 +- jscomp/test/set_gen.js | 142 +- jscomp/test/sexp.js | 11 +- jscomp/test/sexpm.js | 106 +- jscomp/test/stack_comp_test.js | 4 +- jscomp/test/stream_parser_test.js | 88 +- jscomp/test/string_set.js | 9 +- jscomp/test/string_test.js | 8 +- jscomp/test/stringmatch_test.js | 5396 ++++---- jscomp/test/test_array_primitive.js | 22 +- jscomp/test/test_bool_equal.js | 76 +- jscomp/test/test_closure.js | 19 +- jscomp/test/test_exception.js | 51 +- jscomp/test/test_exception_escape.js | 11 +- jscomp/test/test_for_map.js | 119 +- jscomp/test/test_incomplete.js | 19 +- jscomp/test/test_int_map_find.js | 44 +- jscomp/test/test_list.js | 266 +- jscomp/test/test_match_exception.js | 4 +- jscomp/test/test_per.js | 106 +- jscomp/test/test_seq.js | 34 +- jscomp/test/test_set.js | 101 +- jscomp/test/test_static_catch_ident.js | 4 +- jscomp/test/test_string.js | 19 +- jscomp/test/test_string_case.js | 19 +- jscomp/test/test_string_const.js | 4 +- jscomp/test/test_string_map.js | 53 +- jscomp/test/test_trywith.js | 68 +- jscomp/test/test_unsupported_primitive.js | 11 +- jscomp/test/test_while_closure.js | 19 +- jscomp/test/ticker.js | 343 +- jscomp/test/topsort_test.js | 326 +- jscomp/test/uncurried_cast.js | 22 +- jscomp/test/variant.js | 8 +- lib/es6/arg.js | 285 +- lib/es6/array.js | 104 +- lib/es6/arrayLabels.js | 104 +- lib/es6/belt_Array.js | 38 +- lib/es6/belt_List.js | 36 +- lib/es6/belt_MutableQueue.js | 18 +- lib/es6/belt_Option.js | 9 +- lib/es6/belt_Result.js | 9 +- lib/es6/belt_internalAVLset.js | 28 +- lib/es6/belt_internalAVLtree.js | 28 +- lib/es6/belt_internalMapInt.js | 9 +- lib/es6/belt_internalMapString.js | 9 +- lib/es6/belt_internalSetInt.js | 9 +- lib/es6/belt_internalSetString.js | 9 +- lib/es6/buffer.js | 206 +- lib/es6/bytes.js | 169 +- lib/es6/bytesLabels.js | 169 +- lib/es6/caml_array.js | 22 +- lib/es6/caml_bytes.js | 33 +- lib/es6/caml_format.js | 90 +- lib/es6/caml_int32.js | 18 +- lib/es6/caml_int64.js | 9 +- lib/es6/caml_js_exceptions.js | 4 +- lib/es6/caml_lexer.js | 4 +- lib/es6/caml_module.js | 49 +- lib/es6/caml_obj.js | 44 +- lib/es6/caml_string.js | 11 +- lib/es6/caml_sys.js | 40 +- lib/es6/camlinternalLazy.js | 17 +- lib/es6/char.js | 11 +- lib/es6/digest.js | 66 +- lib/es6/filename.js | 30 +- lib/es6/genlex.js | 184 +- lib/es6/hashtbl.js | 151 +- lib/es6/int32.js | 4 +- lib/es6/int64.js | 4 +- lib/es6/js_exn.js | 28 +- lib/es6/js_mapperRt.js | 18 +- lib/es6/js_null.js | 4 +- lib/es6/js_option.js | 4 +- lib/es6/js_undefined.js | 4 +- lib/es6/lexing.js | 11 +- lib/es6/list.js | 288 +- lib/es6/listLabels.js | 288 +- lib/es6/map.js | 119 +- lib/es6/mapLabels.js | 119 +- lib/es6/moreLabels.js | 238 +- lib/es6/parsing.js | 17 +- lib/es6/pervasives.js | 52 +- lib/es6/pervasivesU.js | 52 +- lib/es6/queue.js | 18 +- lib/es6/random.js | 33 +- lib/es6/set.js | 119 +- lib/es6/setLabels.js | 119 +- lib/es6/sort.js | 11 +- lib/es6/stack.js | 18 +- lib/es6/stream.js | 56 +- lib/es6/string.js | 92 +- lib/es6/stringLabels.js | 92 +- lib/es6/uchar.js | 44 +- lib/js/arg.js | 285 +- lib/js/array.js | 104 +- lib/js/arrayLabels.js | 104 +- lib/js/belt_Array.js | 38 +- lib/js/belt_List.js | 36 +- lib/js/belt_MutableQueue.js | 18 +- lib/js/belt_Option.js | 9 +- lib/js/belt_Result.js | 9 +- lib/js/belt_internalAVLset.js | 28 +- lib/js/belt_internalAVLtree.js | 28 +- lib/js/belt_internalMapInt.js | 9 +- lib/js/belt_internalMapString.js | 9 +- lib/js/belt_internalSetInt.js | 9 +- lib/js/belt_internalSetString.js | 9 +- lib/js/buffer.js | 206 +- lib/js/bytes.js | 169 +- lib/js/bytesLabels.js | 169 +- lib/js/caml_array.js | 22 +- lib/js/caml_bytes.js | 33 +- lib/js/caml_format.js | 90 +- lib/js/caml_int32.js | 18 +- lib/js/caml_int64.js | 9 +- lib/js/caml_js_exceptions.js | 4 +- lib/js/caml_lexer.js | 4 +- lib/js/caml_module.js | 49 +- lib/js/caml_obj.js | 44 +- lib/js/caml_string.js | 11 +- lib/js/caml_sys.js | 40 +- lib/js/camlinternalLazy.js | 17 +- lib/js/char.js | 11 +- lib/js/digest.js | 66 +- lib/js/filename.js | 30 +- lib/js/genlex.js | 184 +- lib/js/hashtbl.js | 151 +- lib/js/int32.js | 4 +- lib/js/int64.js | 4 +- lib/js/js_exn.js | 28 +- lib/js/js_mapperRt.js | 18 +- lib/js/js_null.js | 4 +- lib/js/js_option.js | 4 +- lib/js/js_undefined.js | 4 +- lib/js/lexing.js | 11 +- lib/js/list.js | 288 +- lib/js/listLabels.js | 288 +- lib/js/map.js | 119 +- lib/js/mapLabels.js | 119 +- lib/js/moreLabels.js | 238 +- lib/js/parsing.js | 17 +- lib/js/pervasives.js | 52 +- lib/js/pervasivesU.js | 52 +- lib/js/queue.js | 18 +- lib/js/random.js | 33 +- lib/js/set.js | 119 +- lib/js/setLabels.js | 119 +- lib/js/sort.js | 11 +- lib/js/stack.js | 18 +- lib/js/stream.js | 56 +- lib/js/string.js | 92 +- lib/js/stringLabels.js | 92 +- lib/js/uchar.js | 44 +- 245 files changed, 18463 insertions(+), 15870 deletions(-) diff --git a/jscomp/core/js_dump.ml b/jscomp/core/js_dump.ml index 09514211bc..4968ce7214 100644 --- a/jscomp/core/js_dump.ml +++ b/jscomp/core/js_dump.ml @@ -100,8 +100,11 @@ type cxt = Ext_pp_scope.t let semi f = P.string f L.semi let comma f = P.string f L.comma +let new_error name cause = + E.new_ (E.js_global Js_dump_lit.error) [ name; cause ] + let exn_block_as_obj ~(stack : bool) (el : J.expression list) (ext : J.tag_info) - : J.expression_desc = + : J.expression = let field_name = match ext with | Blk_extension -> ( @@ -111,12 +114,29 @@ let exn_block_as_obj ~(stack : bool) (el : J.expression list) (ext : J.tag_info) fun i -> match i with 0 -> Literals.exception_id | i -> ss.(i - 1)) | _ -> assert false in - Object - (if stack then - Ext_list.mapi_append el - (fun i e -> (Js_op.Lit (field_name i), e)) - [ (Js_op.Lit "Error", E.new_ (E.js_global "Error") []) ] - else Ext_list.mapi el (fun i e -> (Js_op.Lit (field_name i), e))) + let cause = + { + J.expression_desc = + Object (List.mapi (fun i e -> (Js_op.Lit (field_name i), e)) el); + comment = None; + } + in + if stack then + new_error (List.hd el) + { + J.expression_desc = Object [ (Lit Js_dump_lit.cause, cause) ]; + comment = None; + } + else cause + +let exn_ref_as_obj e : J.expression = + let cause = { J.expression_desc = e; comment = None; } in + new_error + (E.record_access cause Js_dump_lit.exception_id 0l) + { + J.expression_desc = Object [ (Lit Js_dump_lit.cause, cause) ]; + comment = None; + } let rec iter_lst cxt (f : P.t) ls element inter = match ls with @@ -778,7 +798,7 @@ and expression_desc cxt ~(level : int) f x : cxt = ]) | _ -> assert false) | Caml_block (el, _, _, ((Blk_extension | Blk_record_ext _) as ext)) -> - expression_desc cxt ~level f (exn_block_as_obj ~stack:false el ext) + expression cxt ~level f (exn_block_as_obj ~stack:false el ext) | Caml_block (el, _, tag, Blk_record_inlined p) -> let untagged = Ast_untagged_variants.process_untagged p.attrs in let objs = @@ -1255,8 +1275,8 @@ and statement_desc top cxt f (s : J.statement_desc) : cxt = let e = match e.expression_desc with | Caml_block (el, _, _, ((Blk_extension | Blk_record_ext _) as ext)) -> - { e with expression_desc = exn_block_as_obj ~stack:true el ext } - | _ -> e + { e with expression_desc = (exn_block_as_obj ~stack:true el ext).expression_desc } + | exp -> { e with expression_desc = (exn_ref_as_obj exp).expression_desc } in P.string f L.throw; P.space f; diff --git a/jscomp/core/js_dump_lit.ml b/jscomp/core/js_dump_lit.ml index fbbe643e4f..b992779b2d 100644 --- a/jscomp/core/js_dump_lit.ml +++ b/jscomp/core/js_dump_lit.ml @@ -164,3 +164,9 @@ let block_variant = "variant" let block_simple_variant = "simpleVariant" let case = "case" + +let cause = "cause" + +let error = "Error" + +let exception_id = "RE_EXN_ID" diff --git a/jscomp/core/js_exp_make.ml b/jscomp/core/js_exp_make.ml index 7821d6dd3e..6380e26ee2 100644 --- a/jscomp/core/js_exp_make.ml +++ b/jscomp/core/js_exp_make.ml @@ -410,7 +410,7 @@ let poly_var_value_access (e : t) = comment = None; } -let extension_access (e : t) name (pos : int32) : t = +let extension_access (e : t) ?name (pos : int32) : t = match e.expression_desc with | Array (l, _) (* Float i -- should not appear here *) | Caml_block (l, _, _, _) diff --git a/jscomp/core/js_exp_make.mli b/jscomp/core/js_exp_make.mli index a267c118e1..71d3065d9b 100644 --- a/jscomp/core/js_exp_make.mli +++ b/jscomp/core/js_exp_make.mli @@ -164,7 +164,7 @@ val variant_access : t -> int32 -> t val cons_access : t -> int32 -> t -val extension_access : t -> string option -> Int32.t -> t +val extension_access : t -> ?name:string -> Int32.t -> t val record_assign : t -> int32 -> string -> t -> t diff --git a/jscomp/core/js_of_lam_block.ml b/jscomp/core/js_of_lam_block.ml index b665462d80..5bcb8ff9ef 100644 --- a/jscomp/core/js_of_lam_block.ml +++ b/jscomp/core/js_of_lam_block.ml @@ -38,8 +38,8 @@ let field (field_info : Lam_compat.field_dbg_info) e (i : int32) = e i | Fld_poly_var_content -> E.poly_var_value_access e | Fld_poly_var_tag -> E.poly_var_tag_access e - | Fld_record_extension { name } -> E.extension_access e (Some name) i - | Fld_extension -> E.extension_access e None i + | Fld_record_extension { name } -> E.extension_access e ~name i + | Fld_extension -> E.extension_access e i | Fld_variant -> E.variant_access e i | Fld_cons -> E.cons_access e i | Fld_record_inline { name } -> E.inline_record_access e name i diff --git a/jscomp/core/lam_convert.ml b/jscomp/core/lam_convert.ml index 922184e3a1..560664f896 100644 --- a/jscomp/core/lam_convert.ml +++ b/jscomp/core/lam_convert.ml @@ -22,14 +22,17 @@ * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *) -let caml_id_field_info : Lambda.field_dbg_info = - Fld_record { name = Literals.exception_id; mutable_flag = Immutable } - -let lam_caml_id : Lam_primitive.t = Pfield (0, caml_id_field_info) let prim = Lam.prim -let lam_extension_id loc (head : Lam.t) = - prim ~primitive:lam_caml_id ~args:[ head ] loc +let lam_extension_id = + let lam_caml_id : Lam_primitive.t = + let caml_id_field_info : Lambda.field_dbg_info = + Fld_record { name = Js_dump_lit.exception_id; mutable_flag = Immutable } + in + Pfield (0, caml_id_field_info) + in + fun loc (head : Lam.t) -> + prim ~primitive:lam_caml_id ~args:[ head ] loc let lazy_block_info : Lam_tag_info.t = Blk_record diff --git a/jscomp/gentype_tests/typescript-react-example/package-lock.json b/jscomp/gentype_tests/typescript-react-example/package-lock.json index 5fdd739d29..5e5d6aef3b 100644 --- a/jscomp/gentype_tests/typescript-react-example/package-lock.json +++ b/jscomp/gentype_tests/typescript-react-example/package-lock.json @@ -24,7 +24,7 @@ }, "../../..": { "name": "rescript", - "version": "11.1.0", + "version": "12.0.0-alpha.1", "dev": true, "hasInstallScript": true, "license": "SEE LICENSE IN LICENSE", diff --git a/jscomp/runtime/caml_format.ml b/jscomp/runtime/caml_format.ml index 6a4a5a8463..0c0ec2b1c9 100644 --- a/jscomp/runtime/caml_format.ml +++ b/jscomp/runtime/caml_format.ml @@ -659,7 +659,7 @@ let float_of_string : string -> exn -> float = return Infinity; if (/^-inf(inity)?$/i.test(s)) return -Infinity; - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn });; } |}] diff --git a/jscomp/runtime/caml_js_exceptions.res b/jscomp/runtime/caml_js_exceptions.res index ddf35cc1c9..cc91bcd46c 100644 --- a/jscomp/runtime/caml_js_exceptions.res +++ b/jscomp/runtime/caml_js_exceptions.res @@ -23,14 +23,14 @@ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ exception Error = JsError - +type js_error = { cause : exn } /** This function has to be in this module Since [Error] is defined here */ let internalToOCamlException = (e: unknown) => - if Caml_exceptions.is_extension(e) { - (Obj.magic(e): exn) + if Caml_exceptions.is_extension(((Obj.magic(e): js_error).cause)) { + (Obj.magic(e): js_error).cause } else { JsError(e) } diff --git a/jscomp/runtime/caml_lexer.res b/jscomp/runtime/caml_lexer.res index 69f228b58e..28b277264c 100644 --- a/jscomp/runtime/caml_lexer.res +++ b/jscomp/runtime/caml_lexer.res @@ -160,7 +160,7 @@ let caml_lex_engine_aux: ( if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn + throw new Error(exn.RE_EXN_ID, { cause: exn }) else return lexbuf.lex_last_action; } @@ -308,7 +308,7 @@ let caml_new_lex_engine_aux: ( if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn }); else return lexbuf.lex_last_action; } diff --git a/jscomp/test/406_primitive_test.js b/jscomp/test/406_primitive_test.js index 63c11c6e41..f104eff56d 100644 --- a/jscomp/test/406_primitive_test.js +++ b/jscomp/test/406_primitive_test.js @@ -34,11 +34,12 @@ function f(param) { try { for(var i = 0; i <= 200; ++i){ if (i === 10) { - throw { - RE_EXN_ID: A, - _1: 0, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 0 + } + }); } } @@ -49,7 +50,9 @@ function f(param) { if (exn.RE_EXN_ID === A) { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/UncurriedExternals.js b/jscomp/test/UncurriedExternals.js index 651a1f3663..28319e25fb 100644 --- a/jscomp/test/UncurriedExternals.js +++ b/jscomp/test/UncurriedExternals.js @@ -4,10 +4,11 @@ var React = require("react"); function dd(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var h = sum(1.0, 2.0); @@ -80,10 +81,11 @@ function methodWithAsync(param) { } function dd$1(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var h$1 = sum(1.0, 2.0); diff --git a/jscomp/test/adt_optimize_test.js b/jscomp/test/adt_optimize_test.js index 7a1bc36229..15c015103d 100644 --- a/jscomp/test/adt_optimize_test.js +++ b/jscomp/test/adt_optimize_test.js @@ -194,15 +194,16 @@ function f11(x) { if (x.TAG === "D") { return 1; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "adt_optimize_test.res", - 202, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "adt_optimize_test.res", + 202, + 9 + ] + } + }); } exports.f = f; diff --git a/jscomp/test/argv_test.js b/jscomp/test/argv_test.js index f15e97a4c1..2cbaa096fb 100644 --- a/jscomp/test/argv_test.js +++ b/jscomp/test/argv_test.js @@ -50,27 +50,29 @@ Arg.parse_argv(undefined, [ ], arg_spec, anno_fun, usage_msg); if (compile.contents !== true) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "argv_test.res", - 14, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "argv_test.res", + 14, + 2 + ] + } + }); } if (test.contents !== false) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "argv_test.res", - 15, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "argv_test.res", + 15, + 2 + ] + } + }); } exports.anno_fun = anno_fun; diff --git a/jscomp/test/arith_parser.js b/jscomp/test/arith_parser.js index dcbd92c374..74c8616688 100644 --- a/jscomp/test/arith_parser.js +++ b/jscomp/test/arith_parser.js @@ -140,11 +140,12 @@ var yynames_block = "\ var yyact = [ (function (param) { - throw { - RE_EXN_ID: "Failure", - _1: "parser", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "parser" + } + }); }), (function (__caml_parser_env) { return Parsing.peek_val(__caml_parser_env, 1); @@ -210,11 +211,12 @@ var yyact = [ return Parsing.peek_val(__caml_parser_env, 1); }), (function (__caml_parser_env) { - throw { - RE_EXN_ID: Parsing.YYexit, - _1: Parsing.peek_val(__caml_parser_env, 0), - Error: new Error() - }; + throw new Error(Parsing.YYexit, { + cause: { + RE_EXN_ID: Parsing.YYexit, + _1: Parsing.peek_val(__caml_parser_env, 0) + } + }); }) ]; diff --git a/jscomp/test/arity_infer.js b/jscomp/test/arity_infer.js index 2abbfa16fa..ca44ef7b13 100644 --- a/jscomp/test/arity_infer.js +++ b/jscomp/test/arity_infer.js @@ -10,19 +10,21 @@ function f0(x) { return x + 1 | 0; }); } else { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } return tmp(3); } function f1(x) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); return Curry._1(undefined, x); } @@ -50,10 +52,11 @@ function f3(x) { }); break; default: - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } return tmp(3); } diff --git a/jscomp/test/array_safe_get.js b/jscomp/test/array_safe_get.js index 7a539a12fe..b5f08fd0f2 100644 --- a/jscomp/test/array_safe_get.js +++ b/jscomp/test/array_safe_get.js @@ -20,7 +20,9 @@ catch (raw_msg){ console.log(msg._1); y = 0; } else { - throw msg; + throw new Error(msg.RE_EXN_ID, { + cause: msg + }); } } diff --git a/jscomp/test/array_test.js b/jscomp/test/array_test.js index a12d2f9d75..98e7237669 100644 --- a/jscomp/test/array_test.js +++ b/jscomp/test/array_test.js @@ -21,10 +21,11 @@ function starts_with(xs, prefix, p) { try { for(var i = 0; i < len2; ++i){ if (!Curry._2(p, Caml_array.get(xs, i), Caml_array.get(prefix, i))) { - throw { - RE_EXN_ID: H, - Error: new Error() - }; + throw new Error(H, { + cause: { + RE_EXN_ID: H + } + }); } } @@ -35,7 +36,9 @@ function starts_with(xs, prefix, p) { if (exn.RE_EXN_ID === H) { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/bb.js b/jscomp/test/bb.js index 8aa3297180..7cdb4dacd4 100644 --- a/jscomp/test/bb.js +++ b/jscomp/test/bb.js @@ -21,15 +21,16 @@ function ff(x) { case "c" : return "c"; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bb.res", - 13, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bb.res", + 13, + 9 + ] + } + }); } } @@ -46,15 +47,16 @@ function test(x) { match = "c"; break; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bb.res", - 21, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bb.res", + 21, + 9 + ] + } + }); } if (match === "b") { return "b"; diff --git a/jscomp/test/bdd.js b/jscomp/test/bdd.js index a2314104bf..bccafffa62 100644 --- a/jscomp/test/bdd.js +++ b/jscomp/test/bdd.js @@ -67,25 +67,27 @@ function resize(newSize) { var n = bucket.hd; if (typeof n !== "object") { if (n === "One") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 60, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 60, + 13 + ] + } + }); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 60, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 60, + 13 + ] + } + }); } else { var ind = hashVal(getId(n._0), getId(n._3), n._1) & newSz_1; Caml_array.set(newArr, ind, { @@ -143,25 +145,27 @@ function mkNode(low, v, high) { var n = b.hd; if (typeof n !== "object") { if (n === "One") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 121, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 121, + 15 + ] + } + }); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 121, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 121, + 15 + ] + } + }); } else { if (v === n._1 && idl === getId(n._0) && idh === getId(n._3)) { return n; @@ -400,15 +404,16 @@ function main(param) { if (succeeded) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 301, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 301, + 2 + ] + } + }); } main(); diff --git a/jscomp/test/bench.js b/jscomp/test/bench.js index 38ca9b8632..b1ec43f5df 100644 --- a/jscomp/test/bench.js +++ b/jscomp/test/bench.js @@ -24,11 +24,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, f$1(0)); for(var i = 1; i < l; ++i){ diff --git a/jscomp/test/big_polyvar_test.js b/jscomp/test/big_polyvar_test.js index 0a95c8931e..d5c78e78da 100644 --- a/jscomp/test/big_polyvar_test.js +++ b/jscomp/test/big_polyvar_test.js @@ -25,7215 +25,7816 @@ function eq(x, y) { } if ("variant0" !== "variant0") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 314, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 314, + 0 + ] + } + }); } if ("variant1" !== "variant1") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 315, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 315, + 0 + ] + } + }); } if ("variant2" !== "variant2") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 316, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 316, + 0 + ] + } + }); } if ("variant3" !== "variant3") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 317, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 317, + 0 + ] + } + }); } if ("variant4" !== "variant4") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 318, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 318, + 0 + ] + } + }); } if ("variant5" !== "variant5") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 319, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 319, + 0 + ] + } + }); } if ("variant6" !== "variant6") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 320, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 320, + 0 + ] + } + }); } if ("variant7" !== "variant7") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 321, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 321, + 0 + ] + } + }); } if ("variant8" !== "variant8") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 322, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 322, + 0 + ] + } + }); } if ("variant9" !== "variant9") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 323, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 323, + 0 + ] + } + }); } if ("variant10" !== "variant10") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 324, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 324, + 0 + ] + } + }); } if ("variant11" !== "variant11") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 325, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 325, + 0 + ] + } + }); } if ("variant12" !== "variant12") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 326, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 326, + 0 + ] + } + }); } if ("variant13" !== "variant13") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 327, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 327, + 0 + ] + } + }); } if ("variant14" !== "variant14") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 328, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 328, + 0 + ] + } + }); } if ("variant15" !== "variant15") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 329, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 329, + 0 + ] + } + }); } if ("variant16" !== "variant16") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 330, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 330, + 0 + ] + } + }); } if ("variant17" !== "variant17") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 331, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 331, + 0 + ] + } + }); } if ("variant18" !== "variant18") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 332, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 332, + 0 + ] + } + }); } if ("variant19" !== "variant19") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 333, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 333, + 0 + ] + } + }); } if ("variant20" !== "variant20") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 334, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 334, + 0 + ] + } + }); } if ("variant21" !== "variant21") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 335, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 335, + 0 + ] + } + }); } if ("variant22" !== "variant22") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 336, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 336, + 0 + ] + } + }); } if ("variant23" !== "variant23") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 337, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 337, + 0 + ] + } + }); } if ("variant24" !== "variant24") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 338, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 338, + 0 + ] + } + }); } if ("variant25" !== "variant25") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 339, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 339, + 0 + ] + } + }); } if ("variant26" !== "variant26") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 340, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 340, + 0 + ] + } + }); } if ("variant27" !== "variant27") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 341, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 341, + 0 + ] + } + }); } if ("variant28" !== "variant28") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 342, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 342, + 0 + ] + } + }); } if ("variant29" !== "variant29") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 343, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 343, + 0 + ] + } + }); } if ("variant30" !== "variant30") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 344, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 344, + 0 + ] + } + }); } if ("variant31" !== "variant31") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 345, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 345, + 0 + ] + } + }); } if ("variant32" !== "variant32") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 346, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 346, + 0 + ] + } + }); } if ("variant33" !== "variant33") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 347, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 347, + 0 + ] + } + }); } if ("variant34" !== "variant34") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 348, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 348, + 0 + ] + } + }); } if ("variant35" !== "variant35") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 349, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 349, + 0 + ] + } + }); } if ("variant36" !== "variant36") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 350, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 350, + 0 + ] + } + }); } if ("variant37" !== "variant37") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 351, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 351, + 0 + ] + } + }); } if ("variant38" !== "variant38") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 352, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 352, + 0 + ] + } + }); } if ("variant39" !== "variant39") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 353, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 353, + 0 + ] + } + }); } if ("variant40" !== "variant40") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 354, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 354, + 0 + ] + } + }); } if ("variant41" !== "variant41") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 355, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 355, + 0 + ] + } + }); } if ("variant42" !== "variant42") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 356, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 356, + 0 + ] + } + }); } if ("variant43" !== "variant43") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 357, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 357, + 0 + ] + } + }); } if ("variant44" !== "variant44") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 358, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 358, + 0 + ] + } + }); } if ("variant45" !== "variant45") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 359, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 359, + 0 + ] + } + }); } if ("variant46" !== "variant46") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 360, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 360, + 0 + ] + } + }); } if ("variant47" !== "variant47") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 361, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 361, + 0 + ] + } + }); } if ("variant48" !== "variant48") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 362, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 362, + 0 + ] + } + }); } if ("variant49" !== "variant49") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 363, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 363, + 0 + ] + } + }); } if ("variant50" !== "variant50") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 364, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 364, + 0 + ] + } + }); } if ("variant51" !== "variant51") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 365, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 365, + 0 + ] + } + }); } if ("variant52" !== "variant52") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 366, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 366, + 0 + ] + } + }); } if ("variant53" !== "variant53") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 367, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 367, + 0 + ] + } + }); } if ("variant54" !== "variant54") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 368, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 368, + 0 + ] + } + }); } if ("variant55" !== "variant55") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 369, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 369, + 0 + ] + } + }); } if ("variant56" !== "variant56") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 370, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 370, + 0 + ] + } + }); } if ("variant57" !== "variant57") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 371, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 371, + 0 + ] + } + }); } if ("variant58" !== "variant58") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 372, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 372, + 0 + ] + } + }); } if ("variant59" !== "variant59") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 373, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 373, + 0 + ] + } + }); } if ("variant60" !== "variant60") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 374, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 374, + 0 + ] + } + }); } if ("variant61" !== "variant61") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 375, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 375, + 0 + ] + } + }); } if ("variant62" !== "variant62") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 376, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 376, + 0 + ] + } + }); } if ("variant63" !== "variant63") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 377, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 377, + 0 + ] + } + }); } if ("variant64" !== "variant64") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 378, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 378, + 0 + ] + } + }); } if ("variant65" !== "variant65") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 379, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 379, + 0 + ] + } + }); } if ("variant66" !== "variant66") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 380, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 380, + 0 + ] + } + }); } if ("variant67" !== "variant67") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 381, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 381, + 0 + ] + } + }); } if ("variant68" !== "variant68") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 382, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 382, + 0 + ] + } + }); } if ("variant69" !== "variant69") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 383, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 383, + 0 + ] + } + }); } if ("variant70" !== "variant70") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 384, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 384, + 0 + ] + } + }); } if ("variant71" !== "variant71") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 385, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 385, + 0 + ] + } + }); } if ("variant72" !== "variant72") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 386, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 386, + 0 + ] + } + }); } if ("variant73" !== "variant73") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 387, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 387, + 0 + ] + } + }); } if ("variant74" !== "variant74") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 388, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 388, + 0 + ] + } + }); } if ("variant75" !== "variant75") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 389, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 389, + 0 + ] + } + }); } if ("variant76" !== "variant76") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 390, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 390, + 0 + ] + } + }); } if ("variant77" !== "variant77") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 391, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 391, + 0 + ] + } + }); } if ("variant78" !== "variant78") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 392, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 392, + 0 + ] + } + }); } if ("variant79" !== "variant79") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 393, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 393, + 0 + ] + } + }); } if ("variant80" !== "variant80") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 394, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 394, + 0 + ] + } + }); } if ("variant81" !== "variant81") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 395, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 395, + 0 + ] + } + }); } if ("variant82" !== "variant82") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 396, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 396, + 0 + ] + } + }); } if ("variant83" !== "variant83") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 397, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 397, + 0 + ] + } + }); } if ("variant84" !== "variant84") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 398, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 398, + 0 + ] + } + }); } if ("variant85" !== "variant85") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 399, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 399, + 0 + ] + } + }); } if ("variant86" !== "variant86") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 400, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 400, + 0 + ] + } + }); } if ("variant87" !== "variant87") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 401, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 401, + 0 + ] + } + }); } if ("variant88" !== "variant88") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 402, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 402, + 0 + ] + } + }); } if ("variant89" !== "variant89") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 403, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 403, + 0 + ] + } + }); } if ("variant90" !== "variant90") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 404, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 404, + 0 + ] + } + }); } if ("variant91" !== "variant91") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 405, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 405, + 0 + ] + } + }); } if ("variant92" !== "variant92") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 406, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 406, + 0 + ] + } + }); } if ("variant93" !== "variant93") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 407, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 407, + 0 + ] + } + }); } if ("variant94" !== "variant94") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 408, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 408, + 0 + ] + } + }); } if ("variant95" !== "variant95") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 409, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 409, + 0 + ] + } + }); } if ("variant96" !== "variant96") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 410, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 410, + 0 + ] + } + }); } if ("variant97" !== "variant97") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 411, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 411, + 0 + ] + } + }); } if ("variant98" !== "variant98") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 412, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 412, + 0 + ] + } + }); } if ("variant99" !== "variant99") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 413, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 413, + 0 + ] + } + }); } if ("variant100" !== "variant100") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 414, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 414, + 0 + ] + } + }); } if ("variant101" !== "variant101") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 415, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 415, + 0 + ] + } + }); } if ("variant102" !== "variant102") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 416, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 416, + 0 + ] + } + }); } if ("variant103" !== "variant103") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 417, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 417, + 0 + ] + } + }); } if ("variant104" !== "variant104") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 418, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 418, + 0 + ] + } + }); } if ("variant105" !== "variant105") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 419, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 419, + 0 + ] + } + }); } if ("variant106" !== "variant106") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 420, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 420, + 0 + ] + } + }); } if ("variant107" !== "variant107") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 421, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 421, + 0 + ] + } + }); } if ("variant108" !== "variant108") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 422, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 422, + 0 + ] + } + }); } if ("variant109" !== "variant109") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 423, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 423, + 0 + ] + } + }); } if ("variant110" !== "variant110") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 424, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 424, + 0 + ] + } + }); } if ("variant111" !== "variant111") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 425, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 425, + 0 + ] + } + }); } if ("variant112" !== "variant112") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 426, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 426, + 0 + ] + } + }); } if ("variant113" !== "variant113") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 427, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 427, + 0 + ] + } + }); } if ("variant114" !== "variant114") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 428, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 428, + 0 + ] + } + }); } if ("variant115" !== "variant115") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 429, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 429, + 0 + ] + } + }); } if ("variant116" !== "variant116") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 430, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 430, + 0 + ] + } + }); } if ("variant117" !== "variant117") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 431, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 431, + 0 + ] + } + }); } if ("variant118" !== "variant118") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 432, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 432, + 0 + ] + } + }); } if ("variant119" !== "variant119") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 433, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 433, + 0 + ] + } + }); } if ("variant120" !== "variant120") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 434, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 434, + 0 + ] + } + }); } if ("variant121" !== "variant121") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 435, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 435, + 0 + ] + } + }); } if ("variant122" !== "variant122") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 436, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 436, + 0 + ] + } + }); } if ("variant123" !== "variant123") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 437, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 437, + 0 + ] + } + }); } if ("variant124" !== "variant124") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 438, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 438, + 0 + ] + } + }); } if ("variant125" !== "variant125") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 439, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 439, + 0 + ] + } + }); } if ("variant126" !== "variant126") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 440, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 440, + 0 + ] + } + }); } if ("variant127" !== "variant127") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 441, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 441, + 0 + ] + } + }); } if ("variant128" !== "variant128") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 442, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 442, + 0 + ] + } + }); } if ("variant129" !== "variant129") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 443, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 443, + 0 + ] + } + }); } if ("variant130" !== "variant130") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 444, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 444, + 0 + ] + } + }); } if ("variant131" !== "variant131") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 445, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 445, + 0 + ] + } + }); } if ("variant132" !== "variant132") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 446, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 446, + 0 + ] + } + }); } if ("variant133" !== "variant133") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 447, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 447, + 0 + ] + } + }); } if ("variant134" !== "variant134") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 448, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 448, + 0 + ] + } + }); } if ("variant135" !== "variant135") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 449, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 449, + 0 + ] + } + }); } if ("variant136" !== "variant136") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 450, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 450, + 0 + ] + } + }); } if ("variant137" !== "variant137") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 451, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 451, + 0 + ] + } + }); } if ("variant138" !== "variant138") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 452, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 452, + 0 + ] + } + }); } if ("variant139" !== "variant139") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 453, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 453, + 0 + ] + } + }); } if ("variant140" !== "variant140") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 454, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 454, + 0 + ] + } + }); } if ("variant141" !== "variant141") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 455, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 455, + 0 + ] + } + }); } if ("variant142" !== "variant142") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 456, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 456, + 0 + ] + } + }); } if ("variant143" !== "variant143") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 457, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 457, + 0 + ] + } + }); } if ("variant144" !== "variant144") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 458, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 458, + 0 + ] + } + }); } if ("variant145" !== "variant145") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 459, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 459, + 0 + ] + } + }); } if ("variant146" !== "variant146") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 460, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 460, + 0 + ] + } + }); } if ("variant147" !== "variant147") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 461, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 461, + 0 + ] + } + }); } if ("variant148" !== "variant148") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 462, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 462, + 0 + ] + } + }); } if ("variant149" !== "variant149") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 463, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 463, + 0 + ] + } + }); } if ("variant150" !== "variant150") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 464, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 464, + 0 + ] + } + }); } if ("variant151" !== "variant151") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 465, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 465, + 0 + ] + } + }); } if ("variant152" !== "variant152") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 466, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 466, + 0 + ] + } + }); } if ("variant153" !== "variant153") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 467, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 467, + 0 + ] + } + }); } if ("variant154" !== "variant154") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 468, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 468, + 0 + ] + } + }); } if ("variant155" !== "variant155") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 469, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 469, + 0 + ] + } + }); } if ("variant156" !== "variant156") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 470, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 470, + 0 + ] + } + }); } if ("variant157" !== "variant157") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 471, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 471, + 0 + ] + } + }); } if ("variant158" !== "variant158") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 472, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 472, + 0 + ] + } + }); } if ("variant159" !== "variant159") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 473, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 473, + 0 + ] + } + }); } if ("variant160" !== "variant160") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 474, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 474, + 0 + ] + } + }); } if ("variant161" !== "variant161") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 475, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 475, + 0 + ] + } + }); } if ("variant162" !== "variant162") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 476, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 476, + 0 + ] + } + }); } if ("variant163" !== "variant163") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 477, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 477, + 0 + ] + } + }); } if ("variant164" !== "variant164") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 478, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 478, + 0 + ] + } + }); } if ("variant165" !== "variant165") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 479, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 479, + 0 + ] + } + }); } if ("variant166" !== "variant166") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 480, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 480, + 0 + ] + } + }); } if ("variant167" !== "variant167") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 481, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 481, + 0 + ] + } + }); } if ("variant168" !== "variant168") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 482, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 482, + 0 + ] + } + }); } if ("variant169" !== "variant169") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 483, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 483, + 0 + ] + } + }); } if ("variant170" !== "variant170") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 484, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 484, + 0 + ] + } + }); } if ("variant171" !== "variant171") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 485, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 485, + 0 + ] + } + }); } if ("variant172" !== "variant172") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 486, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 486, + 0 + ] + } + }); } if ("variant173" !== "variant173") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 487, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 487, + 0 + ] + } + }); } if ("variant174" !== "variant174") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 488, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 488, + 0 + ] + } + }); } if ("variant175" !== "variant175") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 489, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 489, + 0 + ] + } + }); } if ("variant176" !== "variant176") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 490, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 490, + 0 + ] + } + }); } if ("variant177" !== "variant177") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 491, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 491, + 0 + ] + } + }); } if ("variant178" !== "variant178") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 492, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 492, + 0 + ] + } + }); } if ("variant179" !== "variant179") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 493, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 493, + 0 + ] + } + }); } if ("variant180" !== "variant180") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 494, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 494, + 0 + ] + } + }); } if ("variant181" !== "variant181") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 495, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 495, + 0 + ] + } + }); } if ("variant182" !== "variant182") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 496, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 496, + 0 + ] + } + }); } if ("variant183" !== "variant183") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 497, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 497, + 0 + ] + } + }); } if ("variant184" !== "variant184") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 498, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 498, + 0 + ] + } + }); } if ("variant185" !== "variant185") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 499, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 499, + 0 + ] + } + }); } if ("variant186" !== "variant186") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 500, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 500, + 0 + ] + } + }); } if ("variant187" !== "variant187") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 501, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 501, + 0 + ] + } + }); } if ("variant188" !== "variant188") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 502, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 502, + 0 + ] + } + }); } if ("variant189" !== "variant189") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 503, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 503, + 0 + ] + } + }); } if ("variant190" !== "variant190") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 504, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 504, + 0 + ] + } + }); } if ("variant191" !== "variant191") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 505, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 505, + 0 + ] + } + }); } if ("variant192" !== "variant192") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 506, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 506, + 0 + ] + } + }); } if ("variant193" !== "variant193") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 507, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 507, + 0 + ] + } + }); } if ("variant194" !== "variant194") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 508, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 508, + 0 + ] + } + }); } if ("variant195" !== "variant195") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 509, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 509, + 0 + ] + } + }); } if ("variant196" !== "variant196") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 510, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 510, + 0 + ] + } + }); } if ("variant197" !== "variant197") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 511, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 511, + 0 + ] + } + }); } if ("variant198" !== "variant198") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 512, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 512, + 0 + ] + } + }); } if ("variant199" !== "variant199") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 513, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 513, + 0 + ] + } + }); } if ("variant200" !== "variant200") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 514, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 514, + 0 + ] + } + }); } if ("variant201" !== "variant201") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 515, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 515, + 0 + ] + } + }); } if ("variant202" !== "variant202") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 516, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 516, + 0 + ] + } + }); } if ("variant203" !== "variant203") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 517, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 517, + 0 + ] + } + }); } if ("variant204" !== "variant204") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 518, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 518, + 0 + ] + } + }); } if ("variant205" !== "variant205") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 519, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 519, + 0 + ] + } + }); } if ("variant206" !== "variant206") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 520, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 520, + 0 + ] + } + }); } if ("variant207" !== "variant207") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 521, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 521, + 0 + ] + } + }); } if ("variant208" !== "variant208") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 522, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 522, + 0 + ] + } + }); } if ("variant209" !== "variant209") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 523, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 523, + 0 + ] + } + }); } if ("variant210" !== "variant210") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 524, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 524, + 0 + ] + } + }); } if ("variant211" !== "variant211") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 525, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 525, + 0 + ] + } + }); } if ("variant212" !== "variant212") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 526, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 526, + 0 + ] + } + }); } if ("variant213" !== "variant213") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 527, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 527, + 0 + ] + } + }); } if ("variant214" !== "variant214") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 528, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 528, + 0 + ] + } + }); } if ("variant215" !== "variant215") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 529, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 529, + 0 + ] + } + }); } if ("variant216" !== "variant216") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 530, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 530, + 0 + ] + } + }); } if ("variant217" !== "variant217") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 531, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 531, + 0 + ] + } + }); } if ("variant218" !== "variant218") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 532, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 532, + 0 + ] + } + }); } if ("variant219" !== "variant219") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 533, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 533, + 0 + ] + } + }); } if ("variant220" !== "variant220") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 534, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 534, + 0 + ] + } + }); } if ("variant221" !== "variant221") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 535, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 535, + 0 + ] + } + }); } if ("variant222" !== "variant222") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 536, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 536, + 0 + ] + } + }); } if ("variant223" !== "variant223") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 537, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 537, + 0 + ] + } + }); } if ("variant224" !== "variant224") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 538, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 538, + 0 + ] + } + }); } if ("variant225" !== "variant225") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 539, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 539, + 0 + ] + } + }); } if ("variant226" !== "variant226") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 540, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 540, + 0 + ] + } + }); } if ("variant227" !== "variant227") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 541, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 541, + 0 + ] + } + }); } if ("variant228" !== "variant228") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 542, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 542, + 0 + ] + } + }); } if ("variant229" !== "variant229") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 543, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 543, + 0 + ] + } + }); } if ("variant230" !== "variant230") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 544, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 544, + 0 + ] + } + }); } if ("variant231" !== "variant231") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 545, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 545, + 0 + ] + } + }); } if ("variant232" !== "variant232") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 546, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 546, + 0 + ] + } + }); } if ("variant233" !== "variant233") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 547, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 547, + 0 + ] + } + }); } if ("variant234" !== "variant234") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 548, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 548, + 0 + ] + } + }); } if ("variant235" !== "variant235") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 549, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 549, + 0 + ] + } + }); } if ("variant236" !== "variant236") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 550, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 550, + 0 + ] + } + }); } if ("variant237" !== "variant237") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 551, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 551, + 0 + ] + } + }); } if ("variant238" !== "variant238") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 552, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 552, + 0 + ] + } + }); } if ("variant239" !== "variant239") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 553, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 553, + 0 + ] + } + }); } if ("variant240" !== "variant240") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 554, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 554, + 0 + ] + } + }); } if ("variant241" !== "variant241") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 555, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 555, + 0 + ] + } + }); } if ("variant242" !== "variant242") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 556, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 556, + 0 + ] + } + }); } if ("variant243" !== "variant243") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 557, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 557, + 0 + ] + } + }); } if ("variant244" !== "variant244") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 558, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 558, + 0 + ] + } + }); } if ("variant245" !== "variant245") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 559, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 559, + 0 + ] + } + }); } if ("variant246" !== "variant246") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 560, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 560, + 0 + ] + } + }); } if ("variant247" !== "variant247") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 561, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 561, + 0 + ] + } + }); } if ("variant248" !== "variant248") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 562, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 562, + 0 + ] + } + }); } if ("variant249" !== "variant249") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 563, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 563, + 0 + ] + } + }); } if ("variant250" !== "variant250") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 564, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 564, + 0 + ] + } + }); } if ("variant251" !== "variant251") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 565, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 565, + 0 + ] + } + }); } if ("variant252" !== "variant252") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 566, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 566, + 0 + ] + } + }); } if ("variant253" !== "variant253") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 567, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 567, + 0 + ] + } + }); } if ("variant254" !== "variant254") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 568, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 568, + 0 + ] + } + }); } if ("variant255" !== "variant255") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 569, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 569, + 0 + ] + } + }); } if ("variant256" !== "variant256") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 570, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 570, + 0 + ] + } + }); } if ("variant257" !== "variant257") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 571, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 571, + 0 + ] + } + }); } if ("variant258" !== "variant258") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 572, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 572, + 0 + ] + } + }); } if ("variant259" !== "variant259") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 573, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 573, + 0 + ] + } + }); } if ("variant260" !== "variant260") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 574, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 574, + 0 + ] + } + }); } if ("variant261" !== "variant261") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 575, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 575, + 0 + ] + } + }); } if ("variant262" !== "variant262") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 576, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 576, + 0 + ] + } + }); } if ("variant263" !== "variant263") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 577, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 577, + 0 + ] + } + }); } if ("variant264" !== "variant264") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 578, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 578, + 0 + ] + } + }); } if ("variant265" !== "variant265") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 579, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 579, + 0 + ] + } + }); } if ("variant266" !== "variant266") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 580, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 580, + 0 + ] + } + }); } if ("variant267" !== "variant267") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 581, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 581, + 0 + ] + } + }); } if ("variant268" !== "variant268") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 582, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 582, + 0 + ] + } + }); } if ("variant269" !== "variant269") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 583, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 583, + 0 + ] + } + }); } if ("variant270" !== "variant270") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 584, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 584, + 0 + ] + } + }); } if ("variant271" !== "variant271") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 585, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 585, + 0 + ] + } + }); } if ("variant272" !== "variant272") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 586, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 586, + 0 + ] + } + }); } if ("variant273" !== "variant273") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 587, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 587, + 0 + ] + } + }); } if ("variant274" !== "variant274") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 588, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 588, + 0 + ] + } + }); } if ("variant275" !== "variant275") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 589, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 589, + 0 + ] + } + }); } if ("variant276" !== "variant276") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 590, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 590, + 0 + ] + } + }); } if ("variant277" !== "variant277") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 591, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 591, + 0 + ] + } + }); } if ("variant278" !== "variant278") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 592, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 592, + 0 + ] + } + }); } if ("variant279" !== "variant279") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 593, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 593, + 0 + ] + } + }); } if ("variant280" !== "variant280") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 594, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 594, + 0 + ] + } + }); } if ("variant281" !== "variant281") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 595, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 595, + 0 + ] + } + }); } if ("variant282" !== "variant282") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 596, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 596, + 0 + ] + } + }); } if ("variant283" !== "variant283") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 597, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 597, + 0 + ] + } + }); } if ("variant284" !== "variant284") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 598, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 598, + 0 + ] + } + }); } if ("variant285" !== "variant285") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 599, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 599, + 0 + ] + } + }); } if ("variant286" !== "variant286") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 600, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 600, + 0 + ] + } + }); } if ("variant287" !== "variant287") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 601, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 601, + 0 + ] + } + }); } if ("variant288" !== "variant288") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 602, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 602, + 0 + ] + } + }); } if ("variant289" !== "variant289") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 603, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 603, + 0 + ] + } + }); } if ("variant290" !== "variant290") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 604, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 604, + 0 + ] + } + }); } if ("variant291" !== "variant291") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 605, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 605, + 0 + ] + } + }); } if ("variant292" !== "variant292") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 606, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 606, + 0 + ] + } + }); } if ("variant293" !== "variant293") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 607, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 607, + 0 + ] + } + }); } if ("variant294" !== "variant294") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 608, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 608, + 0 + ] + } + }); } if ("variant295" !== "variant295") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 609, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 609, + 0 + ] + } + }); } if ("variant296" !== "variant296") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 610, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 610, + 0 + ] + } + }); } if ("variant297" !== "variant297") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 611, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 611, + 0 + ] + } + }); } if ("variant298" !== "variant298") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 612, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 612, + 0 + ] + } + }); } if ("variant299" !== "variant299") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 613, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 613, + 0 + ] + } + }); } if (!eq(tFromJs("variant0"), "variant0")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 614, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 614, + 0 + ] + } + }); } if (!eq(tFromJs("variant1"), "variant1")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 615, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 615, + 0 + ] + } + }); } if (!eq(tFromJs("variant2"), "variant2")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 616, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 616, + 0 + ] + } + }); } if (!eq(tFromJs("variant3"), "variant3")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 617, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 617, + 0 + ] + } + }); } if (!eq(tFromJs("variant4"), "variant4")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 618, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 618, + 0 + ] + } + }); } if (!eq(tFromJs("variant5"), "variant5")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 619, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 619, + 0 + ] + } + }); } if (!eq(tFromJs("variant6"), "variant6")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 620, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 620, + 0 + ] + } + }); } if (!eq(tFromJs("variant7"), "variant7")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 621, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 621, + 0 + ] + } + }); } if (!eq(tFromJs("variant8"), "variant8")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 622, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 622, + 0 + ] + } + }); } if (!eq(tFromJs("variant9"), "variant9")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 623, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 623, + 0 + ] + } + }); } if (!eq(tFromJs("variant10"), "variant10")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 624, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 624, + 0 + ] + } + }); } if (!eq(tFromJs("variant11"), "variant11")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 625, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 625, + 0 + ] + } + }); } if (!eq(tFromJs("variant12"), "variant12")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 626, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 626, + 0 + ] + } + }); } if (!eq(tFromJs("variant13"), "variant13")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 627, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 627, + 0 + ] + } + }); } if (!eq(tFromJs("variant14"), "variant14")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 628, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 628, + 0 + ] + } + }); } if (!eq(tFromJs("variant15"), "variant15")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 629, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 629, + 0 + ] + } + }); } if (!eq(tFromJs("variant16"), "variant16")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 630, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 630, + 0 + ] + } + }); } if (!eq(tFromJs("variant17"), "variant17")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 631, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 631, + 0 + ] + } + }); } if (!eq(tFromJs("variant18"), "variant18")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 632, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 632, + 0 + ] + } + }); } if (!eq(tFromJs("variant19"), "variant19")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 633, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 633, + 0 + ] + } + }); } if (!eq(tFromJs("variant20"), "variant20")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 634, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 634, + 0 + ] + } + }); } if (!eq(tFromJs("variant21"), "variant21")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 635, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 635, + 0 + ] + } + }); } if (!eq(tFromJs("variant22"), "variant22")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 636, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 636, + 0 + ] + } + }); } if (!eq(tFromJs("variant23"), "variant23")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 637, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 637, + 0 + ] + } + }); } if (!eq(tFromJs("variant24"), "variant24")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 638, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 638, + 0 + ] + } + }); } if (!eq(tFromJs("variant25"), "variant25")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 639, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 639, + 0 + ] + } + }); } if (!eq(tFromJs("variant26"), "variant26")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 640, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 640, + 0 + ] + } + }); } if (!eq(tFromJs("variant27"), "variant27")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 641, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 641, + 0 + ] + } + }); } if (!eq(tFromJs("variant28"), "variant28")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 642, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 642, + 0 + ] + } + }); } if (!eq(tFromJs("variant29"), "variant29")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 643, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 643, + 0 + ] + } + }); } if (!eq(tFromJs("variant30"), "variant30")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 644, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 644, + 0 + ] + } + }); } if (!eq(tFromJs("variant31"), "variant31")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 645, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 645, + 0 + ] + } + }); } if (!eq(tFromJs("variant32"), "variant32")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 646, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 646, + 0 + ] + } + }); } if (!eq(tFromJs("variant33"), "variant33")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 647, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 647, + 0 + ] + } + }); } if (!eq(tFromJs("variant34"), "variant34")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 648, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 648, + 0 + ] + } + }); } if (!eq(tFromJs("variant35"), "variant35")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 649, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 649, + 0 + ] + } + }); } if (!eq(tFromJs("variant36"), "variant36")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 650, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 650, + 0 + ] + } + }); } if (!eq(tFromJs("variant37"), "variant37")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 651, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 651, + 0 + ] + } + }); } if (!eq(tFromJs("variant38"), "variant38")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 652, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 652, + 0 + ] + } + }); } if (!eq(tFromJs("variant39"), "variant39")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 653, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 653, + 0 + ] + } + }); } if (!eq(tFromJs("variant40"), "variant40")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 654, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 654, + 0 + ] + } + }); } if (!eq(tFromJs("variant41"), "variant41")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 655, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 655, + 0 + ] + } + }); } if (!eq(tFromJs("variant42"), "variant42")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 656, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 656, + 0 + ] + } + }); } if (!eq(tFromJs("variant43"), "variant43")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 657, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 657, + 0 + ] + } + }); } if (!eq(tFromJs("variant44"), "variant44")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 658, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 658, + 0 + ] + } + }); } if (!eq(tFromJs("variant45"), "variant45")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 659, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 659, + 0 + ] + } + }); } if (!eq(tFromJs("variant46"), "variant46")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 660, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 660, + 0 + ] + } + }); } if (!eq(tFromJs("variant47"), "variant47")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 661, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 661, + 0 + ] + } + }); } if (!eq(tFromJs("variant48"), "variant48")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 662, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 662, + 0 + ] + } + }); } if (!eq(tFromJs("variant49"), "variant49")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 663, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 663, + 0 + ] + } + }); } if (!eq(tFromJs("variant50"), "variant50")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 664, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 664, + 0 + ] + } + }); } if (!eq(tFromJs("variant51"), "variant51")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 665, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 665, + 0 + ] + } + }); } if (!eq(tFromJs("variant52"), "variant52")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 666, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 666, + 0 + ] + } + }); } if (!eq(tFromJs("variant53"), "variant53")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 667, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 667, + 0 + ] + } + }); } if (!eq(tFromJs("variant54"), "variant54")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 668, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 668, + 0 + ] + } + }); } if (!eq(tFromJs("variant55"), "variant55")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 669, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 669, + 0 + ] + } + }); } if (!eq(tFromJs("variant56"), "variant56")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 670, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 670, + 0 + ] + } + }); } if (!eq(tFromJs("variant57"), "variant57")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 671, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 671, + 0 + ] + } + }); } if (!eq(tFromJs("variant58"), "variant58")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 672, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 672, + 0 + ] + } + }); } if (!eq(tFromJs("variant59"), "variant59")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 673, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 673, + 0 + ] + } + }); } if (!eq(tFromJs("variant60"), "variant60")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 674, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 674, + 0 + ] + } + }); } if (!eq(tFromJs("variant61"), "variant61")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 675, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 675, + 0 + ] + } + }); } if (!eq(tFromJs("variant62"), "variant62")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 676, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 676, + 0 + ] + } + }); } if (!eq(tFromJs("variant63"), "variant63")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 677, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 677, + 0 + ] + } + }); } if (!eq(tFromJs("variant64"), "variant64")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 678, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 678, + 0 + ] + } + }); } if (!eq(tFromJs("variant65"), "variant65")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 679, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 679, + 0 + ] + } + }); } if (!eq(tFromJs("variant66"), "variant66")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 680, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 680, + 0 + ] + } + }); } if (!eq(tFromJs("variant67"), "variant67")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 681, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 681, + 0 + ] + } + }); } if (!eq(tFromJs("variant68"), "variant68")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 682, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 682, + 0 + ] + } + }); } if (!eq(tFromJs("variant69"), "variant69")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 683, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 683, + 0 + ] + } + }); } if (!eq(tFromJs("variant70"), "variant70")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 684, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 684, + 0 + ] + } + }); } if (!eq(tFromJs("variant71"), "variant71")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 685, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 685, + 0 + ] + } + }); } if (!eq(tFromJs("variant72"), "variant72")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 686, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 686, + 0 + ] + } + }); } if (!eq(tFromJs("variant73"), "variant73")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 687, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 687, + 0 + ] + } + }); } if (!eq(tFromJs("variant74"), "variant74")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 688, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 688, + 0 + ] + } + }); } if (!eq(tFromJs("variant75"), "variant75")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 689, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 689, + 0 + ] + } + }); } if (!eq(tFromJs("variant76"), "variant76")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 690, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 690, + 0 + ] + } + }); } if (!eq(tFromJs("variant77"), "variant77")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 691, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 691, + 0 + ] + } + }); } if (!eq(tFromJs("variant78"), "variant78")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 692, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 692, + 0 + ] + } + }); } if (!eq(tFromJs("variant79"), "variant79")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 693, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 693, + 0 + ] + } + }); } if (!eq(tFromJs("variant80"), "variant80")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 694, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 694, + 0 + ] + } + }); } if (!eq(tFromJs("variant81"), "variant81")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 695, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 695, + 0 + ] + } + }); } if (!eq(tFromJs("variant82"), "variant82")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 696, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 696, + 0 + ] + } + }); } if (!eq(tFromJs("variant83"), "variant83")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 697, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 697, + 0 + ] + } + }); } if (!eq(tFromJs("variant84"), "variant84")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 698, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 698, + 0 + ] + } + }); } if (!eq(tFromJs("variant85"), "variant85")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 699, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 699, + 0 + ] + } + }); } if (!eq(tFromJs("variant86"), "variant86")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 700, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 700, + 0 + ] + } + }); } if (!eq(tFromJs("variant87"), "variant87")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 701, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 701, + 0 + ] + } + }); } if (!eq(tFromJs("variant88"), "variant88")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 702, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 702, + 0 + ] + } + }); } if (!eq(tFromJs("variant89"), "variant89")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 703, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 703, + 0 + ] + } + }); } if (!eq(tFromJs("variant90"), "variant90")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 704, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 704, + 0 + ] + } + }); } if (!eq(tFromJs("variant91"), "variant91")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 705, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 705, + 0 + ] + } + }); } if (!eq(tFromJs("variant92"), "variant92")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 706, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 706, + 0 + ] + } + }); } if (!eq(tFromJs("variant93"), "variant93")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 707, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 707, + 0 + ] + } + }); } if (!eq(tFromJs("variant94"), "variant94")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 708, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 708, + 0 + ] + } + }); } if (!eq(tFromJs("variant95"), "variant95")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 709, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 709, + 0 + ] + } + }); } if (!eq(tFromJs("variant96"), "variant96")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 710, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 710, + 0 + ] + } + }); } if (!eq(tFromJs("variant97"), "variant97")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 711, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 711, + 0 + ] + } + }); } if (!eq(tFromJs("variant98"), "variant98")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 712, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 712, + 0 + ] + } + }); } if (!eq(tFromJs("variant99"), "variant99")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 713, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 713, + 0 + ] + } + }); } if (!eq(tFromJs("variant100"), "variant100")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 714, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 714, + 0 + ] + } + }); } if (!eq(tFromJs("variant101"), "variant101")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 715, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 715, + 0 + ] + } + }); } if (!eq(tFromJs("variant102"), "variant102")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 716, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 716, + 0 + ] + } + }); } if (!eq(tFromJs("variant103"), "variant103")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 717, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 717, + 0 + ] + } + }); } if (!eq(tFromJs("variant104"), "variant104")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 718, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 718, + 0 + ] + } + }); } if (!eq(tFromJs("variant105"), "variant105")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 719, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 719, + 0 + ] + } + }); } if (!eq(tFromJs("variant106"), "variant106")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 720, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 720, + 0 + ] + } + }); } if (!eq(tFromJs("variant107"), "variant107")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 721, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 721, + 0 + ] + } + }); } if (!eq(tFromJs("variant108"), "variant108")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 722, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 722, + 0 + ] + } + }); } if (!eq(tFromJs("variant109"), "variant109")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 723, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 723, + 0 + ] + } + }); } if (!eq(tFromJs("variant110"), "variant110")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 724, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 724, + 0 + ] + } + }); } if (!eq(tFromJs("variant111"), "variant111")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 725, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 725, + 0 + ] + } + }); } if (!eq(tFromJs("variant112"), "variant112")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 726, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 726, + 0 + ] + } + }); } if (!eq(tFromJs("variant113"), "variant113")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 727, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 727, + 0 + ] + } + }); } if (!eq(tFromJs("variant114"), "variant114")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 728, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 728, + 0 + ] + } + }); } if (!eq(tFromJs("variant115"), "variant115")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 729, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 729, + 0 + ] + } + }); } if (!eq(tFromJs("variant116"), "variant116")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 730, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 730, + 0 + ] + } + }); } if (!eq(tFromJs("variant117"), "variant117")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 731, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 731, + 0 + ] + } + }); } if (!eq(tFromJs("variant118"), "variant118")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 732, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 732, + 0 + ] + } + }); } if (!eq(tFromJs("variant119"), "variant119")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 733, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 733, + 0 + ] + } + }); } if (!eq(tFromJs("variant120"), "variant120")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 734, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 734, + 0 + ] + } + }); } if (!eq(tFromJs("variant121"), "variant121")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 735, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 735, + 0 + ] + } + }); } if (!eq(tFromJs("variant122"), "variant122")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 736, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 736, + 0 + ] + } + }); } if (!eq(tFromJs("variant123"), "variant123")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 737, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 737, + 0 + ] + } + }); } if (!eq(tFromJs("variant124"), "variant124")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 738, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 738, + 0 + ] + } + }); } if (!eq(tFromJs("variant125"), "variant125")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 739, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 739, + 0 + ] + } + }); } if (!eq(tFromJs("variant126"), "variant126")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 740, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 740, + 0 + ] + } + }); } if (!eq(tFromJs("variant127"), "variant127")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 741, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 741, + 0 + ] + } + }); } if (!eq(tFromJs("variant128"), "variant128")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 742, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 742, + 0 + ] + } + }); } if (!eq(tFromJs("variant129"), "variant129")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 743, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 743, + 0 + ] + } + }); } if (!eq(tFromJs("variant130"), "variant130")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 744, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 744, + 0 + ] + } + }); } if (!eq(tFromJs("variant131"), "variant131")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 745, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 745, + 0 + ] + } + }); } if (!eq(tFromJs("variant132"), "variant132")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 746, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 746, + 0 + ] + } + }); } if (!eq(tFromJs("variant133"), "variant133")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 747, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 747, + 0 + ] + } + }); } if (!eq(tFromJs("variant134"), "variant134")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 748, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 748, + 0 + ] + } + }); } if (!eq(tFromJs("variant135"), "variant135")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 749, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 749, + 0 + ] + } + }); } if (!eq(tFromJs("variant136"), "variant136")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 750, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 750, + 0 + ] + } + }); } if (!eq(tFromJs("variant137"), "variant137")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 751, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 751, + 0 + ] + } + }); } if (!eq(tFromJs("variant138"), "variant138")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 752, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 752, + 0 + ] + } + }); } if (!eq(tFromJs("variant139"), "variant139")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 753, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 753, + 0 + ] + } + }); } if (!eq(tFromJs("variant140"), "variant140")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 754, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 754, + 0 + ] + } + }); } if (!eq(tFromJs("variant141"), "variant141")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 755, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 755, + 0 + ] + } + }); } if (!eq(tFromJs("variant142"), "variant142")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 756, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 756, + 0 + ] + } + }); } if (!eq(tFromJs("variant143"), "variant143")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 757, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 757, + 0 + ] + } + }); } if (!eq(tFromJs("variant144"), "variant144")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 758, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 758, + 0 + ] + } + }); } if (!eq(tFromJs("variant145"), "variant145")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 759, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 759, + 0 + ] + } + }); } if (!eq(tFromJs("variant146"), "variant146")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 760, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 760, + 0 + ] + } + }); } if (!eq(tFromJs("variant147"), "variant147")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 761, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 761, + 0 + ] + } + }); } if (!eq(tFromJs("variant148"), "variant148")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 762, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 762, + 0 + ] + } + }); } if (!eq(tFromJs("variant149"), "variant149")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 763, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 763, + 0 + ] + } + }); } if (!eq(tFromJs("variant150"), "variant150")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 764, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 764, + 0 + ] + } + }); } if (!eq(tFromJs("variant151"), "variant151")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 765, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 765, + 0 + ] + } + }); } if (!eq(tFromJs("variant152"), "variant152")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 766, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 766, + 0 + ] + } + }); } if (!eq(tFromJs("variant153"), "variant153")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 767, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 767, + 0 + ] + } + }); } if (!eq(tFromJs("variant154"), "variant154")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 768, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 768, + 0 + ] + } + }); } if (!eq(tFromJs("variant155"), "variant155")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 769, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 769, + 0 + ] + } + }); } if (!eq(tFromJs("variant156"), "variant156")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 770, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 770, + 0 + ] + } + }); } if (!eq(tFromJs("variant157"), "variant157")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 771, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 771, + 0 + ] + } + }); } if (!eq(tFromJs("variant158"), "variant158")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 772, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 772, + 0 + ] + } + }); } if (!eq(tFromJs("variant159"), "variant159")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 773, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 773, + 0 + ] + } + }); } if (!eq(tFromJs("variant160"), "variant160")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 774, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 774, + 0 + ] + } + }); } if (!eq(tFromJs("variant161"), "variant161")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 775, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 775, + 0 + ] + } + }); } if (!eq(tFromJs("variant162"), "variant162")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 776, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 776, + 0 + ] + } + }); } if (!eq(tFromJs("variant163"), "variant163")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 777, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 777, + 0 + ] + } + }); } if (!eq(tFromJs("variant164"), "variant164")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 778, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 778, + 0 + ] + } + }); } if (!eq(tFromJs("variant165"), "variant165")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 779, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 779, + 0 + ] + } + }); } if (!eq(tFromJs("variant166"), "variant166")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 780, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 780, + 0 + ] + } + }); } if (!eq(tFromJs("variant167"), "variant167")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 781, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 781, + 0 + ] + } + }); } if (!eq(tFromJs("variant168"), "variant168")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 782, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 782, + 0 + ] + } + }); } if (!eq(tFromJs("variant169"), "variant169")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 783, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 783, + 0 + ] + } + }); } if (!eq(tFromJs("variant170"), "variant170")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 784, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 784, + 0 + ] + } + }); } if (!eq(tFromJs("variant171"), "variant171")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 785, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 785, + 0 + ] + } + }); } if (!eq(tFromJs("variant172"), "variant172")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 786, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 786, + 0 + ] + } + }); } if (!eq(tFromJs("variant173"), "variant173")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 787, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 787, + 0 + ] + } + }); } if (!eq(tFromJs("variant174"), "variant174")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 788, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 788, + 0 + ] + } + }); } if (!eq(tFromJs("variant175"), "variant175")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 789, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 789, + 0 + ] + } + }); } if (!eq(tFromJs("variant176"), "variant176")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 790, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 790, + 0 + ] + } + }); } if (!eq(tFromJs("variant177"), "variant177")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 791, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 791, + 0 + ] + } + }); } if (!eq(tFromJs("variant178"), "variant178")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 792, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 792, + 0 + ] + } + }); } if (!eq(tFromJs("variant179"), "variant179")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 793, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 793, + 0 + ] + } + }); } if (!eq(tFromJs("variant180"), "variant180")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 794, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 794, + 0 + ] + } + }); } if (!eq(tFromJs("variant181"), "variant181")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 795, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 795, + 0 + ] + } + }); } if (!eq(tFromJs("variant182"), "variant182")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 796, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 796, + 0 + ] + } + }); } if (!eq(tFromJs("variant183"), "variant183")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 797, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 797, + 0 + ] + } + }); } if (!eq(tFromJs("variant184"), "variant184")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 798, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 798, + 0 + ] + } + }); } if (!eq(tFromJs("variant185"), "variant185")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 799, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 799, + 0 + ] + } + }); } if (!eq(tFromJs("variant186"), "variant186")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 800, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 800, + 0 + ] + } + }); } if (!eq(tFromJs("variant187"), "variant187")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 801, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 801, + 0 + ] + } + }); } if (!eq(tFromJs("variant188"), "variant188")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 802, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 802, + 0 + ] + } + }); } if (!eq(tFromJs("variant189"), "variant189")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 803, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 803, + 0 + ] + } + }); } if (!eq(tFromJs("variant190"), "variant190")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 804, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 804, + 0 + ] + } + }); } if (!eq(tFromJs("variant191"), "variant191")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 805, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 805, + 0 + ] + } + }); } if (!eq(tFromJs("variant192"), "variant192")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 806, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 806, + 0 + ] + } + }); } if (!eq(tFromJs("variant193"), "variant193")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 807, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 807, + 0 + ] + } + }); } if (!eq(tFromJs("variant194"), "variant194")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 808, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 808, + 0 + ] + } + }); } if (!eq(tFromJs("variant195"), "variant195")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 809, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 809, + 0 + ] + } + }); } if (!eq(tFromJs("variant196"), "variant196")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 810, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 810, + 0 + ] + } + }); } if (!eq(tFromJs("variant197"), "variant197")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 811, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 811, + 0 + ] + } + }); } if (!eq(tFromJs("variant198"), "variant198")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 812, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 812, + 0 + ] + } + }); } if (!eq(tFromJs("variant199"), "variant199")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 813, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 813, + 0 + ] + } + }); } if (!eq(tFromJs("variant200"), "variant200")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 814, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 814, + 0 + ] + } + }); } if (!eq(tFromJs("variant201"), "variant201")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 815, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 815, + 0 + ] + } + }); } if (!eq(tFromJs("variant202"), "variant202")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 816, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 816, + 0 + ] + } + }); } if (!eq(tFromJs("variant203"), "variant203")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 817, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 817, + 0 + ] + } + }); } if (!eq(tFromJs("variant204"), "variant204")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 818, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 818, + 0 + ] + } + }); } if (!eq(tFromJs("variant205"), "variant205")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 819, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 819, + 0 + ] + } + }); } if (!eq(tFromJs("variant206"), "variant206")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 820, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 820, + 0 + ] + } + }); } if (!eq(tFromJs("variant207"), "variant207")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 821, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 821, + 0 + ] + } + }); } if (!eq(tFromJs("variant208"), "variant208")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 822, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 822, + 0 + ] + } + }); } if (!eq(tFromJs("variant209"), "variant209")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 823, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 823, + 0 + ] + } + }); } if (!eq(tFromJs("variant210"), "variant210")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 824, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 824, + 0 + ] + } + }); } if (!eq(tFromJs("variant211"), "variant211")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 825, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 825, + 0 + ] + } + }); } if (!eq(tFromJs("variant212"), "variant212")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 826, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 826, + 0 + ] + } + }); } if (!eq(tFromJs("variant213"), "variant213")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 827, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 827, + 0 + ] + } + }); } if (!eq(tFromJs("variant214"), "variant214")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 828, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 828, + 0 + ] + } + }); } if (!eq(tFromJs("variant215"), "variant215")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 829, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 829, + 0 + ] + } + }); } if (!eq(tFromJs("variant216"), "variant216")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 830, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 830, + 0 + ] + } + }); } if (!eq(tFromJs("variant217"), "variant217")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 831, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 831, + 0 + ] + } + }); } if (!eq(tFromJs("variant218"), "variant218")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 832, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 832, + 0 + ] + } + }); } if (!eq(tFromJs("variant219"), "variant219")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 833, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 833, + 0 + ] + } + }); } if (!eq(tFromJs("variant220"), "variant220")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 834, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 834, + 0 + ] + } + }); } if (!eq(tFromJs("variant221"), "variant221")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 835, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 835, + 0 + ] + } + }); } if (!eq(tFromJs("variant222"), "variant222")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 836, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 836, + 0 + ] + } + }); } if (!eq(tFromJs("variant223"), "variant223")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 837, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 837, + 0 + ] + } + }); } if (!eq(tFromJs("variant224"), "variant224")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 838, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 838, + 0 + ] + } + }); } if (!eq(tFromJs("variant225"), "variant225")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 839, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 839, + 0 + ] + } + }); } if (!eq(tFromJs("variant226"), "variant226")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 840, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 840, + 0 + ] + } + }); } if (!eq(tFromJs("variant227"), "variant227")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 841, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 841, + 0 + ] + } + }); } if (!eq(tFromJs("variant228"), "variant228")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 842, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 842, + 0 + ] + } + }); } if (!eq(tFromJs("variant229"), "variant229")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 843, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 843, + 0 + ] + } + }); } if (!eq(tFromJs("variant230"), "variant230")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 844, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 844, + 0 + ] + } + }); } if (!eq(tFromJs("variant231"), "variant231")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 845, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 845, + 0 + ] + } + }); } if (!eq(tFromJs("variant232"), "variant232")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 846, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 846, + 0 + ] + } + }); } if (!eq(tFromJs("variant233"), "variant233")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 847, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 847, + 0 + ] + } + }); } if (!eq(tFromJs("variant234"), "variant234")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 848, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 848, + 0 + ] + } + }); } if (!eq(tFromJs("variant235"), "variant235")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 849, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 849, + 0 + ] + } + }); } if (!eq(tFromJs("variant236"), "variant236")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 850, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 850, + 0 + ] + } + }); } if (!eq(tFromJs("variant237"), "variant237")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 851, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 851, + 0 + ] + } + }); } if (!eq(tFromJs("variant238"), "variant238")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 852, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 852, + 0 + ] + } + }); } if (!eq(tFromJs("variant239"), "variant239")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 853, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 853, + 0 + ] + } + }); } if (!eq(tFromJs("variant240"), "variant240")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 854, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 854, + 0 + ] + } + }); } if (!eq(tFromJs("variant241"), "variant241")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 855, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 855, + 0 + ] + } + }); } if (!eq(tFromJs("variant242"), "variant242")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 856, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 856, + 0 + ] + } + }); } if (!eq(tFromJs("variant243"), "variant243")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 857, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 857, + 0 + ] + } + }); } if (!eq(tFromJs("variant244"), "variant244")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 858, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 858, + 0 + ] + } + }); } if (!eq(tFromJs("variant245"), "variant245")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 859, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 859, + 0 + ] + } + }); } if (!eq(tFromJs("variant246"), "variant246")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 860, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 860, + 0 + ] + } + }); } if (!eq(tFromJs("variant247"), "variant247")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 861, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 861, + 0 + ] + } + }); } if (!eq(tFromJs("variant248"), "variant248")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 862, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 862, + 0 + ] + } + }); } if (!eq(tFromJs("variant249"), "variant249")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 863, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 863, + 0 + ] + } + }); } if (!eq(tFromJs("variant250"), "variant250")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 864, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 864, + 0 + ] + } + }); } if (!eq(tFromJs("variant251"), "variant251")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 865, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 865, + 0 + ] + } + }); } if (!eq(tFromJs("variant252"), "variant252")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 866, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 866, + 0 + ] + } + }); } if (!eq(tFromJs("variant253"), "variant253")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 867, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 867, + 0 + ] + } + }); } if (!eq(tFromJs("variant254"), "variant254")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 868, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 868, + 0 + ] + } + }); } if (!eq(tFromJs("variant255"), "variant255")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 869, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 869, + 0 + ] + } + }); } if (!eq(tFromJs("variant256"), "variant256")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 870, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 870, + 0 + ] + } + }); } if (!eq(tFromJs("variant257"), "variant257")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 871, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 871, + 0 + ] + } + }); } if (!eq(tFromJs("variant258"), "variant258")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 872, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 872, + 0 + ] + } + }); } if (!eq(tFromJs("variant259"), "variant259")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 873, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 873, + 0 + ] + } + }); } if (!eq(tFromJs("variant260"), "variant260")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 874, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 874, + 0 + ] + } + }); } if (!eq(tFromJs("variant261"), "variant261")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 875, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 875, + 0 + ] + } + }); } if (!eq(tFromJs("variant262"), "variant262")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 876, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 876, + 0 + ] + } + }); } if (!eq(tFromJs("variant263"), "variant263")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 877, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 877, + 0 + ] + } + }); } if (!eq(tFromJs("variant264"), "variant264")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 878, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 878, + 0 + ] + } + }); } if (!eq(tFromJs("variant265"), "variant265")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 879, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 879, + 0 + ] + } + }); } if (!eq(tFromJs("variant266"), "variant266")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 880, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 880, + 0 + ] + } + }); } if (!eq(tFromJs("variant267"), "variant267")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 881, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 881, + 0 + ] + } + }); } if (!eq(tFromJs("variant268"), "variant268")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 882, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 882, + 0 + ] + } + }); } if (!eq(tFromJs("variant269"), "variant269")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 883, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 883, + 0 + ] + } + }); } if (!eq(tFromJs("variant270"), "variant270")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 884, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 884, + 0 + ] + } + }); } if (!eq(tFromJs("variant271"), "variant271")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 885, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 885, + 0 + ] + } + }); } if (!eq(tFromJs("variant272"), "variant272")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 886, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 886, + 0 + ] + } + }); } if (!eq(tFromJs("variant273"), "variant273")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 887, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 887, + 0 + ] + } + }); } if (!eq(tFromJs("variant274"), "variant274")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 888, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 888, + 0 + ] + } + }); } if (!eq(tFromJs("variant275"), "variant275")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 889, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 889, + 0 + ] + } + }); } if (!eq(tFromJs("variant276"), "variant276")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 890, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 890, + 0 + ] + } + }); } if (!eq(tFromJs("variant277"), "variant277")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 891, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 891, + 0 + ] + } + }); } if (!eq(tFromJs("variant278"), "variant278")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 892, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 892, + 0 + ] + } + }); } if (!eq(tFromJs("variant279"), "variant279")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 893, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 893, + 0 + ] + } + }); } if (!eq(tFromJs("variant280"), "variant280")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 894, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 894, + 0 + ] + } + }); } if (!eq(tFromJs("variant281"), "variant281")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 895, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 895, + 0 + ] + } + }); } if (!eq(tFromJs("variant282"), "variant282")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 896, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 896, + 0 + ] + } + }); } if (!eq(tFromJs("variant283"), "variant283")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 897, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 897, + 0 + ] + } + }); } if (!eq(tFromJs("variant284"), "variant284")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 898, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 898, + 0 + ] + } + }); } if (!eq(tFromJs("variant285"), "variant285")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 899, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 899, + 0 + ] + } + }); } if (!eq(tFromJs("variant286"), "variant286")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 900, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 900, + 0 + ] + } + }); } if (!eq(tFromJs("variant287"), "variant287")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 901, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 901, + 0 + ] + } + }); } if (!eq(tFromJs("variant288"), "variant288")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 902, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 902, + 0 + ] + } + }); } if (!eq(tFromJs("variant289"), "variant289")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 903, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 903, + 0 + ] + } + }); } if (!eq(tFromJs("variant290"), "variant290")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 904, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 904, + 0 + ] + } + }); } if (!eq(tFromJs("variant291"), "variant291")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 905, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 905, + 0 + ] + } + }); } if (!eq(tFromJs("variant292"), "variant292")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 906, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 906, + 0 + ] + } + }); } if (!eq(tFromJs("variant293"), "variant293")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 907, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 907, + 0 + ] + } + }); } if (!eq(tFromJs("variant294"), "variant294")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 908, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 908, + 0 + ] + } + }); } if (!eq(tFromJs("variant295"), "variant295")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 909, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 909, + 0 + ] + } + }); } if (!eq(tFromJs("variant296"), "variant296")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 910, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 910, + 0 + ] + } + }); } if (!eq(tFromJs("variant297"), "variant297")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 911, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 911, + 0 + ] + } + }); } if (!eq(tFromJs("variant298"), "variant298")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 912, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 912, + 0 + ] + } + }); } if (!eq(tFromJs("variant299"), "variant299")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 913, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 913, + 0 + ] + } + }); } if (!eq(tFromJs("xx"), undefined)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 914, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 914, + 0 + ] + } + }); } exports.tToJs = tToJs; diff --git a/jscomp/test/bs_array_test.js b/jscomp/test/bs_array_test.js index 08205ad63e..46905e95dd 100644 --- a/jscomp/test/bs_array_test.js +++ b/jscomp/test/bs_array_test.js @@ -140,15 +140,16 @@ var v$1 = [ ]; if (!Belt_Array.set(v$1, 0, 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 51, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 51, + 6 + ] + } + }); } b("File \"bs_array_test.res\", line 48, characters 4-11", Belt_Array.getExn(v$1, 0) === 0); @@ -159,15 +160,16 @@ var v$2 = [ ]; if (!Belt_Array.set(v$2, 1, 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 59, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 59, + 6 + ] + } + }); } b("File \"bs_array_test.res\", line 56, characters 4-11", Belt_Array.getExn(v$2, 1) === 0); @@ -392,15 +394,16 @@ function addone(x) { function makeMatrixExn(sx, sy, init) { if (!(sx >= 0 && sy >= 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 153, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 153, + 2 + ] + } + }); } var res = new Array(sx); for(var x = 0; x < sx; ++x){ diff --git a/jscomp/test/bs_hashtbl_string_test.js b/jscomp/test/bs_hashtbl_string_test.js index f747ef5b4e..ffe9887a73 100644 --- a/jscomp/test/bs_hashtbl_string_test.js +++ b/jscomp/test/bs_hashtbl_string_test.js @@ -51,15 +51,16 @@ function bench(param) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(empty, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 37, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 37, + 4 + ] + } + }); } } @@ -73,15 +74,16 @@ function bench2(m) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(empty, String(i$1))) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 61, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 61, + 4 + ] + } + }); } } @@ -91,15 +93,16 @@ function bench2(m) { if (empty.size === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 66, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 66, + 2 + ] + } + }); } function bench3(m) { @@ -111,15 +114,16 @@ function bench3(m) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_MapDict.has(table, String(i$1), cmp)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 81, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 81, + 4 + ] + } + }); } } @@ -129,15 +133,16 @@ function bench3(m) { if (Belt_MapDict.size(table) === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 86, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 86, + 2 + ] + } + }); } var Sx = Belt_Id.comparable(Caml.string_compare); @@ -149,15 +154,16 @@ function bench4(param) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMapString.has(table, String(i$1))) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 98, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 98, + 4 + ] + } + }); } } @@ -167,15 +173,16 @@ function bench4(param) { if (Belt_HashMapString.isEmpty(table)) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 103, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 103, + 2 + ] + } + }); } function bench5(param) { @@ -188,15 +195,16 @@ function bench5(param) { console.time("bs_hashtbl_string_test.res 117"); for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(table, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 119, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 119, + 6 + ] + } + }); } } @@ -209,15 +217,16 @@ function bench5(param) { if (Belt_HashMap.isEmpty(table)) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 127, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 127, + 2 + ] + } + }); } function bench6(param) { @@ -227,15 +236,16 @@ function bench6(param) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMapInt.has(table, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 138, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 138, + 4 + ] + } + }); } } @@ -245,15 +255,16 @@ function bench6(param) { if (table.size === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 143, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 143, + 2 + ] + } + }); } function bench7(param) { @@ -263,15 +274,16 @@ function bench7(param) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashSetInt.has(table, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 160, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 160, + 4 + ] + } + }); } } @@ -281,15 +293,16 @@ function bench7(param) { if (table.size === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 170, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 170, + 2 + ] + } + }); } console.time("bs_hashtbl_string_test.res 181"); diff --git a/jscomp/test/bs_queue_test.js b/jscomp/test/bs_queue_test.js index 7c55cc79c1..0d0bf03b94 100644 --- a/jscomp/test/bs_queue_test.js +++ b/jscomp/test/bs_queue_test.js @@ -45,42 +45,45 @@ var q = { }; if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), []) && q.length === 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 25, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 25, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 1), q)), [1]) && q.length === 1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 26, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 26, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 2), q)), [ 1, 2 ]) && q.length === 2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 27, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 27, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 3), q)), [ @@ -88,15 +91,16 @@ if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 3), q)) 2, 3 ]) && q.length === 3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 28, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 28, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 4), q)), [ @@ -105,27 +109,29 @@ if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 4), q)) 3, 4 ]) && q.length === 4)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 29, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 29, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 30, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 30, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [ @@ -133,102 +139,110 @@ if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [ 3, 4 ]) && q.length === 3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 31, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 31, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 32, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 32, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [ 3, 4 ]) && q.length === 2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 33, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 33, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 34, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 34, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [4]) && q.length === 1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 35, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 35, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 36, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 36, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), []) && q.length === 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 37, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 37, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 38, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 38, + 2 + ] + } + }); } var q$1 = { @@ -238,63 +252,68 @@ var q$1 = { }; if (Belt_MutableQueue.popExn((Belt_MutableQueue.add(q$1, 1), q$1)) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 43, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 43, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 44, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 44, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn((Belt_MutableQueue.add(q$1, 2), q$1)) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 45, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 45, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 46, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 46, + 2 + ] + } + }); } if (q$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 47, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 47, + 2 + ] + } + }); } var q$2 = { @@ -304,135 +323,146 @@ var q$2 = { }; if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 1), q$2)) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 52, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 52, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 2), q$2)) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 53, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 53, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 3), q$2)) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 54, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 54, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 55, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 55, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 56, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 56, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 57, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 57, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 58, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 58, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 59, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 59, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 60, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 60, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.peekExn, q$2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 61, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 61, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.peekExn, q$2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 62, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 62, + 2 + ] + } + }); } var q$3 = { @@ -448,27 +478,29 @@ for(var i = 1; i <= 10; ++i){ Belt_MutableQueue.clear(q$3); if (q$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 71, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 71, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 72, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 72, + 2 + ] + } + }); } if (!Caml_obj.equal(q$3, { @@ -476,29 +508,31 @@ if (!Caml_obj.equal(q$3, { first: undefined, last: undefined })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 73, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 73, + 2 + ] + } + }); } Belt_MutableQueue.add(q$3, 42); if (Belt_MutableQueue.popExn(q$3) !== 42) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 75, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 75, + 2 + ] + } + }); } var q1 = { @@ -525,15 +559,16 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1), [ 9, 10 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 84, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 84, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2), [ @@ -548,67 +583,72 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2), [ 9, 10 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 85, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 85, + 2 + ] + } + }); } if (q1.length !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 86, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 86, + 2 + ] + } + }); } if (q2.length !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 87, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 87, + 2 + ] + } + }); } for(var i$2 = 1; i$2 <= 10; ++i$2){ if (Belt_MutableQueue.popExn(q1) !== i$2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 89, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 89, + 4 + ] + } + }); } } for(var i$3 = 1; i$3 <= 10; ++i$3){ if (Belt_MutableQueue.popExn(q2) !== i$3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 92, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 92, + 4 + ] + } + }); } } @@ -620,92 +660,99 @@ var q$4 = { }; if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 98, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 98, + 2 + ] + } + }); } for(var i$4 = 1; i$4 <= 10; ++i$4){ Belt_MutableQueue.add(q$4, i$4); if (q$4.length !== i$4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 101, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 101, + 4 + ] + } + }); } if (q$4.length === 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 102, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 102, + 4 + ] + } + }); } } for(var i$5 = 10; i$5 >= 1; --i$5){ if (q$4.length !== i$5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 105, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 105, + 4 + ] + } + }); } if (q$4.length === 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 106, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 106, + 4 + ] + } + }); } Belt_MutableQueue.popExn(q$4); } if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 109, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 109, + 2 + ] + } + }); } if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 110, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 110, + 2 + ] + } + }); } var q$5 = { @@ -724,15 +771,16 @@ var i$7 = { Belt_MutableQueue.forEach(q$5, (function (j) { if (i$7.contents !== j) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 120, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 120, + 4 + ] + } + }); } i$7.contents = i$7.contents + 1 | 0; })); @@ -750,101 +798,109 @@ var q2$1 = { }; if (q1$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 127, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 127, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$1), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 128, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 128, + 2 + ] + } + }); } if (q2$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 129, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 129, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$1), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 130, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 130, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$1, q2$1); if (q1$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 132, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 132, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$1), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 133, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 133, + 2 + ] + } + }); } if (q2$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 134, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 134, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$1), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 135, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 135, + 2 + ] + } + }); } var q1$2 = { @@ -864,15 +920,16 @@ for(var i$8 = 1; i$8 <= 4; ++i$8){ } if (q1$2.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 143, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 143, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$2), [ @@ -881,77 +938,83 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$2), [ 3, 4 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 144, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 144, + 2 + ] + } + }); } if (q2$2.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 145, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 145, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$2), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 146, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 146, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$2, q2$2); if (q1$2.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 148, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 148, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$2), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 149, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 149, + 2 + ] + } + }); } if (q2$2.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 150, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 150, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$2), [ @@ -960,15 +1023,16 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$2), [ 3, 4 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 151, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 151, + 2 + ] + } + }); } var q1$3 = { @@ -988,39 +1052,42 @@ for(var i$9 = 5; i$9 <= 8; ++i$9){ } if (q1$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 159, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 159, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$3), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 160, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 160, + 2 + ] + } + }); } if (q2$3.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 161, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 161, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ @@ -1029,53 +1096,57 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ 7, 8 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 162, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 162, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$3, q2$3); if (q1$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 164, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 164, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$3), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 165, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 165, + 2 + ] + } + }); } if (q2$3.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 166, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 166, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ @@ -1084,15 +1155,16 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ 7, 8 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 167, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 167, + 2 + ] + } + }); } var q1$4 = { @@ -1116,15 +1188,16 @@ for(var i$11 = 5; i$11 <= 8; ++i$11){ } if (q1$4.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 178, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 178, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$4), [ @@ -1133,27 +1206,29 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$4), [ 3, 4 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 179, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 179, + 2 + ] + } + }); } if (q2$4.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 180, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 180, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$4), [ @@ -1162,41 +1237,44 @@ if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$4), [ 7, 8 ])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 181, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 181, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$4, q2$4); if (q1$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 183, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 183, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$4), [])) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 184, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 184, + 2 + ] + } + }); } var v = [ @@ -1211,27 +1289,29 @@ var v = [ ]; if (q2$4.length !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 186, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 186, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$4), v)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 187, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 187, + 2 + ] + } + }); } if (Belt_MutableQueue.reduce(q2$4, 0, (function (x, y) { @@ -1239,15 +1319,16 @@ if (Belt_MutableQueue.reduce(q2$4, 0, (function (x, y) { })) !== Belt_Array.reduce(v, 0, (function (x, y) { return x - y | 0; }))) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 189, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 189, + 2 + ] + } + }); } console.log("OK"); diff --git a/jscomp/test/bs_rbset_int_bench.js b/jscomp/test/bs_rbset_int_bench.js index c26328a964..1fa0c99591 100644 --- a/jscomp/test/bs_rbset_int_bench.js +++ b/jscomp/test/bs_rbset_int_bench.js @@ -13,15 +13,16 @@ function bench(param) { console.time("bs_rbset_int_bench.res 11"); for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Rbset.mem(i$1, data)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_rbset_int_bench.res", - 13, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_rbset_int_bench.res", + 13, + 6 + ] + } + }); } } @@ -34,15 +35,16 @@ function bench(param) { if (Rbset.cardinal(data) === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_rbset_int_bench.res", - 21, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_rbset_int_bench.res", + 21, + 2 + ] + } + }); } console.time("bs_rbset_int_bench.res 24"); diff --git a/jscomp/test/bs_set_bench.js b/jscomp/test/bs_set_bench.js index c522372a1a..befa194fe0 100644 --- a/jscomp/test/bs_set_bench.js +++ b/jscomp/test/bs_set_bench.js @@ -13,15 +13,16 @@ function bench(param) { console.time("bs_set_bench.res 11"); for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_SetInt.has(data, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_set_bench.res", - 13, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_set_bench.res", + 13, + 6 + ] + } + }); } } @@ -34,15 +35,16 @@ function bench(param) { if (Belt_SetInt.size(data) === 0) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_set_bench.res", - 21, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_set_bench.res", + 21, + 2 + ] + } + }); } console.time("bs_set_bench.res 24"); diff --git a/jscomp/test/build.ninja b/jscomp/test/build.ninja index 024a7fab23..36f43bbc5f 100644 --- a/jscomp/test/build.ninja +++ b/jscomp/test/build.ninja @@ -165,7 +165,7 @@ o test/earger_curry_test.cmi test/earger_curry_test.cmj : cc test/earger_curry_t o test/effect.cmi test/effect.cmj : cc test/effect.res | $bsc $stdlib runtime o test/epsilon_test.cmi test/epsilon_test.cmj : cc test/epsilon_test.res | test/mt.cmj $bsc $stdlib runtime o test/equal_box_test.cmi test/equal_box_test.cmj : cc test/equal_box_test.res | test/mt.cmj $bsc $stdlib runtime -o test/equal_exception_test.cmi test/equal_exception_test.cmj : cc test/equal_exception_test.res | test/mt.cmj $bsc $stdlib runtime +o test/equal_exception_test.cmi test/equal_exception_test.cmj : cc test/equal_exception_test.res | $bsc $stdlib runtime o test/equal_test.cmi test/equal_test.cmj : cc test/equal_test.res | $bsc $stdlib runtime o test/es6_export.cmi test/es6_export.cmj : cc test/es6_export.res | $bsc $stdlib runtime o test/es6_import.cmi test/es6_import.cmj : cc test/es6_import.res | test/es6_export.cmj $bsc $stdlib runtime diff --git a/jscomp/test/chn_test.js b/jscomp/test/chn_test.js index d8d882f1ea..4609a19fff 100644 --- a/jscomp/test/chn_test.js +++ b/jscomp/test/chn_test.js @@ -40,15 +40,16 @@ function convert(s) { if (x$1 !== undefined) { return x$1; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "chn_test.res", - 17, - 14 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "chn_test.res", + 17, + 14 + ] + } + }); }))); } diff --git a/jscomp/test/const_defs_test.js b/jscomp/test/const_defs_test.js index aab74fb99c..1792b074c9 100644 --- a/jscomp/test/const_defs_test.js +++ b/jscomp/test/const_defs_test.js @@ -5,11 +5,12 @@ var u = 3; function f(param) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "hi", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "hi" + } + }); } exports.u = u; diff --git a/jscomp/test/custom_error_test.js b/jscomp/test/custom_error_test.js index 5d2c407636..bb6b550d70 100644 --- a/jscomp/test/custom_error_test.js +++ b/jscomp/test/custom_error_test.js @@ -15,7 +15,9 @@ function test_js_error(param) { console.log(err._1.stack); return ; } - throw err; + throw new Error(err.RE_EXN_ID, { + cause: err + }); } return e; } @@ -28,9 +30,13 @@ function test_js_error2(param) { var e = Caml_js_exceptions.internalToOCamlException(raw_e); if (e.RE_EXN_ID === Js_exn.$$Error) { console.log(e._1.stack); - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } } @@ -45,7 +51,9 @@ function example1(param) { console.log(err._1.stack); return ; } - throw err; + throw new Error(err.RE_EXN_ID, { + cause: err + }); } return v; } @@ -59,7 +67,9 @@ function example2(param) { if (exn.RE_EXN_ID === Js_exn.$$Error) { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/defunctor_make_test.js b/jscomp/test/defunctor_make_test.js index 2226ddcd86..264719f106 100644 --- a/jscomp/test/defunctor_make_test.js +++ b/jscomp/test/defunctor_make_test.js @@ -44,11 +44,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l._3; var ld = l._2; @@ -60,11 +61,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -77,11 +79,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r._3; var rd = r._2; @@ -93,11 +96,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, compare, x_) { diff --git a/jscomp/test/demo_int_map.js b/jscomp/test/demo_int_map.js index 8e4a314c90..84f92565e1 100644 --- a/jscomp/test/demo_int_map.js +++ b/jscomp/test/demo_int_map.js @@ -30,11 +30,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -46,11 +47,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -79,11 +82,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { @@ -136,10 +140,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = x - param.v | 0; if (c === 0) { diff --git a/jscomp/test/earger_curry_test.js b/jscomp/test/earger_curry_test.js index 123a360b94..e7872fcee0 100644 --- a/jscomp/test/earger_curry_test.js +++ b/jscomp/test/earger_curry_test.js @@ -25,11 +25,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, f$1(0)); for(var i = 1; i < l; ++i){ diff --git a/jscomp/test/equal_exception_test.js b/jscomp/test/equal_exception_test.js index 454bba7561..d29fe2b852 100644 --- a/jscomp/test/equal_exception_test.js +++ b/jscomp/test/equal_exception_test.js @@ -1,7 +1,6 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); var Bytes = require("../../lib/js/bytes.js"); var Caml_obj = require("../../lib/js/caml_obj.js"); var Caml_bytes = require("../../lib/js/caml_bytes.js"); @@ -13,67 +12,74 @@ var v = "gso"; function is_equal(param) { if (Caml_bytes.get(Bytes.make(3, /* 'a' */97), 0) !== /* 'a' */97) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 4, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 4, + 2 + ] + } + }); } if (Bytes.make(3, /* 'a' */97)[0] !== /* 'a' */97) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 5, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 5, + 2 + ] + } + }); } var u = Bytes.make(3, /* 'a' */97); u[0] = /* 'b' */98; if (u[0] !== /* 'b' */98) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 8, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 8, + 2 + ] + } + }); } if (Caml_string.get(v, 0) === /* 'g' */103) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 9, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 9, + 2 + ] + } + }); } function is_exception(param) { try { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -84,7 +90,9 @@ function is_normal_exception(_x) { _1: 3 }; try { - throw v; + throw new Error(v.RE_EXN_ID, { + cause: v + }); } catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); @@ -92,19 +100,24 @@ function is_normal_exception(_x) { if (exn._1 === 3) { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } function is_arbitrary_exception(param) { var A = /* @__PURE__ */Caml_exceptions.create("A"); try { - throw { - RE_EXN_ID: A, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A + } + }); } catch (exn){ return ; @@ -154,31 +167,31 @@ var Not_found = /* @__PURE__ */Caml_exceptions.create("Equal_exception_test.Not_ if (Caml_obj.equal(e, { RE_EXN_ID: Not_found }) !== false) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 50, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 50, + 0 + ] + } + }); } if (Not_found === "Not_found" !== false) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 51, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 51, + 0 + ] + } + }); } -Mt.from_suites("exception", suites); - exports.v = v; exports.is_equal = is_equal; exports.is_exception = is_exception; diff --git a/jscomp/test/equal_exception_test.res b/jscomp/test/equal_exception_test.res index 4e7382c6ff..0d85656cc9 100644 --- a/jscomp/test/equal_exception_test.res +++ b/jscomp/test/equal_exception_test.res @@ -50,4 +50,4 @@ exception Not_found assert ((e == Not_found) == false) assert (eq(Not_found) == false) -Mt.from_suites("exception", suites) +// Mt.from_suites("exception", suites) diff --git a/jscomp/test/exception_raise_test.js b/jscomp/test/exception_raise_test.js index 6ea49475de..1977444ded 100644 --- a/jscomp/test/exception_raise_test.js +++ b/jscomp/test/exception_raise_test.js @@ -100,15 +100,16 @@ catch (raw_x$3){ if (x$3.RE_EXN_ID === A || x$3.RE_EXN_ID === Js_exn.$$Error) { a0 = x$3._1; } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_raise_test.res", - 104, - 7 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_raise_test.res", + 104, + 7 + ] + } + }); } } @@ -163,15 +164,16 @@ var suites = { _1: 2 }; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_raise_test.res", - 127, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_raise_test.res", + 127, + 15 + ] + } + }); }) ], tl: /* [] */0 @@ -196,10 +198,11 @@ catch (raw_e$2){ } try { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } catch (raw_e$3){ var e$1 = Caml_js_exceptions.internalToOCamlException(raw_e$3); diff --git a/jscomp/test/exception_rebound_err_test.js b/jscomp/test/exception_rebound_err_test.js index 40ffd42b90..30eb676f07 100644 --- a/jscomp/test/exception_rebound_err_test.js +++ b/jscomp/test/exception_rebound_err_test.js @@ -75,7 +75,9 @@ function f(g) { if (exn.RE_EXN_ID === "Not_found") { return 1; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/exception_value_test.js b/jscomp/test/exception_value_test.js index c9f802bfe3..f11c1f95b2 100644 --- a/jscomp/test/exception_value_test.js +++ b/jscomp/test/exception_value_test.js @@ -7,32 +7,35 @@ var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function f(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function assert_f(x) { if (x <= 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_value_test.res", - 4, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_value_test.res", + 4, + 11 + ] + } + }); } return 3; } function hh(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var A = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.A"); @@ -55,7 +58,9 @@ function test_not_found(f, param) { if (exn.RE_EXN_ID === "Not_found") { return 2; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -67,9 +72,13 @@ function test_js_error2(param) { var e = Caml_js_exceptions.internalToOCamlException(raw_e); if (e.RE_EXN_ID === Js_exn.$$Error) { console.log(e._1.stack); - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } } diff --git a/jscomp/test/ext_array_test.js b/jscomp/test/ext_array_test.js index 63c7b97580..a062e29d46 100644 --- a/jscomp/test/ext_array_test.js +++ b/jscomp/test/ext_array_test.js @@ -106,11 +106,12 @@ function filter_map(f, a) { function range(from, to_) { if (from > to_) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_array_test.range", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_array_test.range" + } + }); } return $$Array.init((to_ - from | 0) + 1 | 0, (function (i) { return i + from | 0; @@ -120,11 +121,12 @@ function range(from, to_) { function map2i(f, a, b) { var len = a.length; if (len !== b.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_array_test.map2i", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_array_test.map2i" + } + }); } return $$Array.mapi((function (i, a) { return Curry._3(f, i, a, b[i]); diff --git a/jscomp/test/ext_bytes_test.js b/jscomp/test/ext_bytes_test.js index 7dbe56621c..57c63f3ce9 100644 --- a/jscomp/test/ext_bytes_test.js +++ b/jscomp/test/ext_bytes_test.js @@ -137,10 +137,11 @@ function starts_with(xs, prefix, p) { try { for(var i = 0; i < len2; ++i){ if (!Curry._2(p, Caml_bytes.get(xs, i), Caml_bytes.get(prefix, i))) { - throw { - RE_EXN_ID: H, - Error: new Error() - }; + throw new Error(H, { + cause: { + RE_EXN_ID: H + } + }); } } @@ -151,7 +152,9 @@ function starts_with(xs, prefix, p) { if (exn.RE_EXN_ID === H) { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/ext_filename_test.js b/jscomp/test/ext_filename_test.js index 229a506941..065a9eed58 100644 --- a/jscomp/test/ext_filename_test.js +++ b/jscomp/test/ext_filename_test.js @@ -68,13 +68,16 @@ function chop_extension(locOpt, name) { var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Invalid_argument") { var s = "Filename.chop_extension ( " + loc + " : " + name + " )"; - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -87,7 +90,9 @@ function chop_extension_if_any(fname) { if (exn.RE_EXN_ID === "Invalid_argument") { return fname; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -154,11 +159,12 @@ function node_relative_path(node_modules_shorten, file1, dep_file) { var i = _i; if (i >= len) { var s = "invalid path: " + file2; - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } var curr_char = file2.codePointAt(i); if (!(curr_char === os_path_separator_char || curr_char === /* '.' */46)) { @@ -183,11 +189,12 @@ function find_root_filename(_cwd, filename) { continue ; } var s = filename + " not found from " + cwd; - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); }; } @@ -363,11 +370,12 @@ if (Sys.unix) { simple_convert_node_path_to_os_path = Ext_string_test.replace_slash_backward; } else { var s = "Unknown OS : " + Sys.os_type; - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } var $slash$slash = Filename.concat; diff --git a/jscomp/test/ext_list_test.js b/jscomp/test/ext_list_test.js index bb16453a47..7eb3615327 100644 --- a/jscomp/test/ext_list_test.js +++ b/jscomp/test/ext_list_test.js @@ -204,20 +204,22 @@ function filter_map2(f, _xs, _ys) { _xs = us; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2" + } + }); } if (!ys) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2" + } + }); }; } @@ -243,20 +245,22 @@ function filter_map2i(f, xs, ys) { _i = i + 1 | 0; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2i", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2i" + } + }); } if (!ys) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2i", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2i" + } + }); }; }; return aux(0, xs, ys); @@ -293,18 +297,20 @@ function flat_map2(f, lx, ly) { _acc = List.rev_append(Curry._2(f, lx$1.hd, ly$1.hd), acc); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.flat_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.flat_map2" + } + }); } if (ly$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.flat_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.flat_map2" + } + }); } return List.rev(acc); }; @@ -345,11 +351,12 @@ function map2_last(f, l1, l2) { } } else { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } } if (l2) { @@ -359,20 +366,22 @@ function map2_last(f, l1, l2) { tl: map2_last(f, l1$1, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } function map_last(f, l1) { @@ -405,28 +414,31 @@ function fold_right2_last(f, l1, l2, accu) { } } else { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } } if (l2) { return Curry._4(f, false, last1, l2.hd, fold_right2_last(f, l1$1, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -439,11 +451,12 @@ function take(n, l) { var arr = $$Array.of_list(l); var arr_length = arr.length; if (arr_length < n) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.take", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.take" + } + }); } return [ $$Array.to_list($$Array.sub(arr, 0, n)), @@ -527,11 +540,12 @@ function exclude_tail(x) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.exclude_tail", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.exclude_tail" + } + }); }; } @@ -580,21 +594,23 @@ function drop(_n, _h) { var h = _h; var n = _n; if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.drop", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.drop" + } + }); } if (n === 0) { return h; } if (h === /* [] */0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.drop", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.drop" + } + }); } _h = List.tl(h); _n = n - 1 | 0; @@ -763,22 +779,24 @@ function reduce_from_right(fn, lst) { return Curry._2(fn, y, x); }), match.hd, match.tl); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.reduce", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.reduce" + } + }); } function reduce_from_left(fn, lst) { if (lst) { return List.fold_left(fn, lst.hd, lst.tl); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.reduce_from_left", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.reduce_from_left" + } + }); } function create_ref_empty(param) { @@ -792,11 +810,12 @@ function ref_top(x) { if (match) { return match.hd; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.ref_top", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.ref_top" + } + }); } function ref_empty(x) { @@ -821,11 +840,12 @@ function ref_pop(refs) { refs.contents = match.tl; return match.hd; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.ref_pop", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.ref_pop" + } + }); } function rev_except_last(xs) { @@ -850,11 +870,12 @@ function rev_except_last(xs) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.rev_except_last", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.rev_except_last" + } + }); }; } @@ -875,11 +896,12 @@ function last(_xs) { _xs = tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.last", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.last" + } + }); }; } @@ -897,15 +919,16 @@ function assoc_by_string(def, k, _lst) { if (def !== undefined) { return Caml_option.valFromOption(def); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ext_list_test.res", - 472, - 14 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ext_list_test.res", + 472, + 14 + ] + } + }); }; } @@ -923,15 +946,16 @@ function assoc_by_int(def, k, _lst) { if (def !== undefined) { return Caml_option.valFromOption(def); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ext_list_test.res", - 487, - 14 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ext_list_test.res", + 487, + 14 + ] + } + }); }; } diff --git a/jscomp/test/ext_pervasives_test.js b/jscomp/test/ext_pervasives_test.js index 31a1bccb71..fb091d2063 100644 --- a/jscomp/test/ext_pervasives_test.js +++ b/jscomp/test/ext_pervasives_test.js @@ -13,7 +13,9 @@ function $$finally(v, action, f) { } catch (e$1){ Curry._1(action, v); - throw e$1; + throw new Error(e$1.RE_EXN_ID, { + cause: e$1 + }); } Curry._1(action, v); return e; @@ -38,10 +40,11 @@ function is_pos_pow(n) { _c = c + 1 | 0; continue ; } - throw { - RE_EXN_ID: E, - Error: new Error() - }; + throw new Error(E, { + cause: { + RE_EXN_ID: E + } + }); }; } catch (raw_exn){ @@ -49,7 +52,9 @@ function is_pos_pow(n) { if (exn.RE_EXN_ID === E) { return -1; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -72,10 +77,11 @@ function is_pos_pow_2(n) { _c = c + 1 | 0; continue ; } - throw { - RE_EXN_ID: E, - Error: new Error() - }; + throw new Error(E, { + cause: { + RE_EXN_ID: E + } + }); }; } catch (raw_exn){ @@ -83,7 +89,9 @@ function is_pos_pow_2(n) { if (exn.RE_EXN_ID === E) { return -1; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/ext_string_test.js b/jscomp/test/ext_string_test.js index 16a5f6d07a..a55cea2e10 100644 --- a/jscomp/test/ext_string_test.js +++ b/jscomp/test/ext_string_test.js @@ -218,11 +218,12 @@ function unsafe_for_all_range(s, _start, finish, p) { function for_all_range(s, start, finish, p) { var len = s.length; if (start < 0 || finish >= len) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.for_all_range", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.for_all_range" + } + }); } return unsafe_for_all_range(s, start, finish, p); } @@ -273,10 +274,11 @@ function find(startOpt, sub, s) { try { while((i + n | 0) <= s_len) { if (unsafe_is_sub(sub, 0, s, i, n)) { - throw { - RE_EXN_ID: Local_exit, - Error: new Error() - }; + throw new Error(Local_exit, { + cause: { + RE_EXN_ID: Local_exit + } + }); } i = i + 1 | 0; }; @@ -287,7 +289,9 @@ function find(startOpt, sub, s) { if (exn.RE_EXN_ID === Local_exit) { return i; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -298,11 +302,12 @@ function contain_substring(s, sub) { function non_overlap_count(sub, s) { var sub_len = sub.length; if (sub.length === 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.non_overlap_count", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.non_overlap_count" + } + }); } var _acc = 0; var _off = 0; @@ -325,10 +330,11 @@ function rfind(sub, s) { try { while(i >= 0) { if (unsafe_is_sub(sub, 0, s, i, n)) { - throw { - RE_EXN_ID: Local_exit, - Error: new Error() - }; + throw new Error(Local_exit, { + cause: { + RE_EXN_ID: Local_exit + } + }); } i = i - 1 | 0; }; @@ -339,7 +345,9 @@ function rfind(sub, s) { if (exn.RE_EXN_ID === Local_exit) { return i; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -349,11 +357,12 @@ function tail_from(s, x) { return $$String.sub(s, x, len - x | 0); } var s$1 = "Ext_string_test.tail_from " + (s + (" : " + String(x))); - throw { - RE_EXN_ID: "Invalid_argument", - _1: s$1, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s$1 + } + }); } function digits_of_str(s, offset, x) { @@ -546,11 +555,12 @@ function unsafe_no_char_idx(x, ch, _i, last_idx) { function no_char(x, ch, i, len) { var str_len = x.length; if (i < 0 || i >= str_len || len >= str_len) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.no_char", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.no_char" + } + }); } return unsafe_no_char(x, ch, i, len); } diff --git a/jscomp/test/extensible_variant_test.js b/jscomp/test/extensible_variant_test.js index 86cc35922a..173915a235 100644 --- a/jscomp/test/extensible_variant_test.js +++ b/jscomp/test/extensible_variant_test.js @@ -24,15 +24,16 @@ function to_int(x) { if (x.RE_EXN_ID === Int$1) { return x._2; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "extensible_variant_test.res", - 16, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "extensible_variant_test.res", + 16, + 9 + ] + } + }); } var suites_0 = [ diff --git a/jscomp/test/flexible_array_test.js b/jscomp/test/flexible_array_test.js index 3201263a66..eece4b002f 100644 --- a/jscomp/test/flexible_array_test.js +++ b/jscomp/test/flexible_array_test.js @@ -11,10 +11,11 @@ function sub(_tr, _k) { var k = _k; var tr = _tr; if (typeof tr !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (k === 1) { return tr._0; @@ -40,10 +41,11 @@ function update(tr, k, w) { _2: "Lf" }; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = tr._2; var l = tr._1; @@ -75,10 +77,11 @@ function update(tr, k, w) { function $$delete(tr, n) { if (typeof tr !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (n === 1) { return "Lf"; @@ -123,10 +126,11 @@ function loext(tr, w) { function lorem(tr) { if (typeof tr !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = tr._1; if (typeof l === "object") { @@ -141,15 +145,16 @@ function lorem(tr) { if (typeof tmp !== "object") { return "Lf"; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "flexible_array_test.res", - 80, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "flexible_array_test.res", + 80, + 9 + ] + } + }); } var empty = [ @@ -165,11 +170,12 @@ function get(param, i) { if (i >= 0 && i < param[1]) { return sub(param[0], i + 1 | 0); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.get", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.get" + } + }); } function set(param, i, v) { @@ -180,11 +186,12 @@ function set(param, i, v) { k ]; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.set", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.set" + } + }); } function push_front(param, v) { @@ -202,11 +209,12 @@ function pop_front(param) { k - 1 | 0 ]; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.pop_front", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.pop_front" + } + }); } function push_back(param, v) { @@ -225,11 +233,12 @@ function pop_back(param) { k - 1 | 0 ]; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.pop_back", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.pop_back" + } + }); } function filter_from(i, p, s) { @@ -317,15 +326,16 @@ if (!Caml_obj.equal(x, of_array([ 5, 6 ]))) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "flexible_array_test.res", - 184, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "flexible_array_test.res", + 184, + 2 + ] + } + }); } var v = $$Array.init(500, (function (i) { diff --git a/jscomp/test/format_regression.js b/jscomp/test/format_regression.js index d591f1cd78..8ad999ce3d 100644 --- a/jscomp/test/format_regression.js +++ b/jscomp/test/format_regression.js @@ -4,51 +4,55 @@ var Curry = require("../../lib/js/curry.js"); function peek_queue(param) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 10, - 22 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 10, + 22 + ] + } + }); } function int_of_size(param) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 11, - 23 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 11, + 23 + ] + } + }); } function take_queue(param) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 12, - 22 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 12, + 22 + ] + } + }); } function format_pp_token(param, param$1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 13, - 32 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 13, + 32 + ] + } + }); } function advance_loop(state) { diff --git a/jscomp/test/fun_pattern_match.js b/jscomp/test/fun_pattern_match.js index 25975a53c3..3aaea845ba 100644 --- a/jscomp/test/fun_pattern_match.js +++ b/jscomp/test/fun_pattern_match.js @@ -24,15 +24,16 @@ function f3(param) { } rhs === "Uninitialized"; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "fun_pattern_match.res", - 33, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "fun_pattern_match.res", + 33, + 9 + ] + } + }); }; } @@ -48,15 +49,16 @@ function f4(param) { } rhs === "Uninitialized"; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "fun_pattern_match.res", - 39, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "fun_pattern_match.res", + 39, + 9 + ] + } + }); }; } diff --git a/jscomp/test/genlex_test.js b/jscomp/test/genlex_test.js index 8809d35a3c..3edb681f14 100644 --- a/jscomp/test/genlex_test.js +++ b/jscomp/test/genlex_test.js @@ -46,7 +46,9 @@ function to_list(s) { if (exn.RE_EXN_ID === Stream.Failure) { return List.rev(acc); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } _acc = { hd: v, diff --git a/jscomp/test/gpr_1150.js b/jscomp/test/gpr_1150.js index 034cd50364..d0486e9efb 100644 --- a/jscomp/test/gpr_1150.js +++ b/jscomp/test/gpr_1150.js @@ -215,15 +215,16 @@ function f(children) { ]; } if (children$15.tl) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1150.res", - 100, - 62 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1150.res", + 100, + 62 + ] + } + }); } return [ a0, diff --git a/jscomp/test/gpr_1245_test.js b/jscomp/test/gpr_1245_test.js index 79ff9d7815..ac9a6b9d19 100644 --- a/jscomp/test/gpr_1245_test.js +++ b/jscomp/test/gpr_1245_test.js @@ -48,7 +48,9 @@ function a1(f) { if (exn.RE_EXN_ID === E) { return 1; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/gpr_1698_test.js b/jscomp/test/gpr_1698_test.js index 1d14c72e7e..84cdfd2655 100644 --- a/jscomp/test/gpr_1698_test.js +++ b/jscomp/test/gpr_1698_test.js @@ -49,15 +49,16 @@ function compare(context, state, _a, _b) { exit$2 = 4; break; case "Frac" : - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1698_test.res", - 41, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1698_test.res", + 41, + 9 + ] + } + }); case "Pow" : case "Gcd" : exit = 1; @@ -75,15 +76,16 @@ function compare(context, state, _a, _b) { case "Frac" : switch (b.TAG) { case "Val" : - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1698_test.res", - 41, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1698_test.res", + 41, + 9 + ] + } + }); case "Neg" : exit$3 = 5; break; diff --git a/jscomp/test/gpr_1701_test.js b/jscomp/test/gpr_1701_test.js index 6e3e2048ce..3cba8006ba 100644 --- a/jscomp/test/gpr_1701_test.js +++ b/jscomp/test/gpr_1701_test.js @@ -9,10 +9,11 @@ var Foo = /* @__PURE__ */Caml_exceptions.create("Gpr_1701_test.Foo"); function test(n) { if (n === 0) { - throw { - RE_EXN_ID: Foo, - Error: new Error() - }; + throw new Error(Foo, { + cause: { + RE_EXN_ID: Foo + } + }); } try { return test(n - 1 | 0); @@ -22,7 +23,9 @@ function test(n) { if (exn.RE_EXN_ID === Foo) { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -41,7 +44,9 @@ function read_lines(inc) { if (exn.RE_EXN_ID === "End_of_file") { l = undefined; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } if (l === undefined) { @@ -68,7 +73,9 @@ function read_lines2(inc) { if (exn.RE_EXN_ID === "End_of_file") { return List.rev(acc); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } _acc = { hd: l, @@ -92,7 +99,9 @@ function read_lines3(inc) { if (exn.RE_EXN_ID === "End_of_file") { return List.rev(acc); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; return loop(/* [] */0); diff --git a/jscomp/test/gpr_2316_test.js b/jscomp/test/gpr_2316_test.js index ef8b728e78..1d774db6fa 100644 --- a/jscomp/test/gpr_2316_test.js +++ b/jscomp/test/gpr_2316_test.js @@ -32,18 +32,21 @@ function eq(loc, x, y) { var y; try { - throw { - RE_EXN_ID: "Failure", - _1: "boo", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "boo" + } + }); } catch (raw_msg){ var msg = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg.RE_EXN_ID === "Failure") { y = msg._1; } else { - throw msg; + throw new Error(msg.RE_EXN_ID, { + cause: msg + }); } } @@ -52,18 +55,21 @@ var x; var exit = 0; try { - throw { - RE_EXN_ID: "Failure", - _1: "boo", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "boo" + } + }); } catch (raw_msg$1){ var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg$1); if (msg$1.RE_EXN_ID === "Failure") { x = msg$1._1; } else { - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } diff --git a/jscomp/test/gpr_2682_test.js b/jscomp/test/gpr_2682_test.js index a169156607..6c1bf86ef3 100644 --- a/jscomp/test/gpr_2682_test.js +++ b/jscomp/test/gpr_2682_test.js @@ -46,15 +46,16 @@ var f3 = (()=>true); var bbbb = f3(); if (!bbbb) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_2682_test.res", - 52, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_2682_test.res", + 52, + 0 + ] + } + }); } exports.sum = sum; diff --git a/jscomp/test/gpr_3877_test.js b/jscomp/test/gpr_3877_test.js index 4311dc15eb..824695146a 100644 --- a/jscomp/test/gpr_3877_test.js +++ b/jscomp/test/gpr_3877_test.js @@ -21,27 +21,29 @@ var a = "good response"; var b = "bad response"; if (a !== "good response") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3877_test.res", - 26, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3877_test.res", + 26, + 0 + ] + } + }); } if (b !== "bad response") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3877_test.res", - 27, - 0 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3877_test.res", + 27, + 0 + ] + } + }); } exports.test = test; diff --git a/jscomp/test/gpr_3980_test.js b/jscomp/test/gpr_3980_test.js index 478fd21a59..d27fd16eab 100644 --- a/jscomp/test/gpr_3980_test.js +++ b/jscomp/test/gpr_3980_test.js @@ -7,42 +7,45 @@ var match = 1; if (match !== undefined) { if (match !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3980_test.res", - 15, - 7 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3980_test.res", + 15, + 7 + ] + } + }); } var match$1 = 1; if (match$1 !== 1) { if (match$1 !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3980_test.res", - 13, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3980_test.res", + 13, + 9 + ] + } + }); } Js_math.floor(1); } } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3980_test.res", - 15, - 7 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3980_test.res", + 15, + 7 + ] + } + }); } /* Not a pure module */ diff --git a/jscomp/test/gpr_405_test.js b/jscomp/test/gpr_405_test.js index 3deb71c910..b54820bf52 100644 --- a/jscomp/test/gpr_405_test.js +++ b/jscomp/test/gpr_405_test.js @@ -21,7 +21,9 @@ function Make(funarg) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; var min_cutset = function (gr, first_node) { @@ -37,26 +39,28 @@ function Make(funarg) { }; var step2 = function (top, rest_of_stack) { if (find_default(already_processed, top)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_405_test.res", - 40, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_405_test.res", + 40, + 6 + ] + } + }); } if (find_default(on_the_stack, top)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_405_test.res", - 41, - 6 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_405_test.res", + 41, + 6 + ] + } + }); } Curry._3(H.add, on_the_stack, top, true); Curry._3(H.add, n_labels, top, counter.contents); @@ -94,11 +98,12 @@ function Make(funarg) { Curry._3(H.add, l_labels, top$1, 0); } if (Curry._2(H.find, l_labels, top$1) > Curry._2(H.find, n_labels, top$1)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Graph.Mincut: graph not reducible", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Graph.Mincut: graph not reducible" + } + }); } if (!rest_of_stack$1) { return cut_set.contents; diff --git a/jscomp/test/gpr_4632.js b/jscomp/test/gpr_4632.js index 47fbae78ca..2e325c7a58 100644 --- a/jscomp/test/gpr_4632.js +++ b/jscomp/test/gpr_4632.js @@ -21,15 +21,16 @@ var T0 = { tail: T0_tail }; -throw { - RE_EXN_ID: "Match_failure", - _1: [ - "gpr_4632.res", - 12, - 6 - ], - Error: new Error() - }; +throw new Error("Match_failure", { + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "gpr_4632.res", + 12, + 6 + ] + } + }); exports.T0 = T0; exports.T1 = T1; diff --git a/jscomp/test/gpr_5557.js b/jscomp/test/gpr_5557.js index e6abeb63e7..8c683da532 100644 --- a/jscomp/test/gpr_5557.js +++ b/jscomp/test/gpr_5557.js @@ -6,15 +6,16 @@ function isA(c) { if (c === 97) { return true; } - throw { - RE_EXN_ID: "Match_failure", - _1: [ - "gpr_5557.res", - 5, - 2 - ], - Error: new Error() - }; + throw new Error("Match_failure", { + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "gpr_5557.res", + 5, + 2 + ] + } + }); } var h = /* 'a' */97; diff --git a/jscomp/test/gpr_858_unit2_test.js b/jscomp/test/gpr_858_unit2_test.js index 3f5bf7873e..066768f949 100644 --- a/jscomp/test/gpr_858_unit2_test.js +++ b/jscomp/test/gpr_858_unit2_test.js @@ -23,15 +23,16 @@ for(var i = 1; i <= 2; ++i){ if (i === n) { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_858_unit2_test.res", - 6, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_858_unit2_test.res", + 6, + 13 + ] + } + }); } }(i)); f(0, i); diff --git a/jscomp/test/gpr_974_test.js b/jscomp/test/gpr_974_test.js index 43ed958571..c3be291c5a 100644 --- a/jscomp/test/gpr_974_test.js +++ b/jscomp/test/gpr_974_test.js @@ -5,39 +5,42 @@ var Caml_obj = require("../../lib/js/caml_obj.js"); var Caml_option = require("../../lib/js/caml_option.js"); if (!Caml_obj.equal(Caml_option.nullable_to_opt(""), "")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 2, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 2, + 2 + ] + } + }); } if (!Caml_obj.equal(Caml_option.undefined_to_opt(""), "")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 3, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 3, + 2 + ] + } + }); } if (!Caml_obj.equal(Caml_option.null_to_opt(""), "")) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 4, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 4, + 2 + ] + } + }); } /* Not a pure module */ diff --git a/jscomp/test/imm_map_bench.js b/jscomp/test/imm_map_bench.js index 63b569c7c7..f3d46a12d0 100644 --- a/jscomp/test/imm_map_bench.js +++ b/jscomp/test/imm_map_bench.js @@ -20,7 +20,9 @@ function should(b) { if (b) { return ; } - throw new Error("impossible"); + throw new Error(new Error("impossible").RE_EXN_ID, { + cause: new Error("impossible") + }); } var shuffledDataAdd = Belt_Array.makeByAndShuffle(1000001, (function (i) { diff --git a/jscomp/test/inline_map2_test.js b/jscomp/test/inline_map2_test.js index 9613eb9862..f8fecf05e7 100644 --- a/jscomp/test/inline_map2_test.js +++ b/jscomp/test/inline_map2_test.js @@ -44,11 +44,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l._3; var ld = l._2; @@ -60,11 +61,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -77,11 +79,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r._3; var rd = r._2; @@ -93,11 +96,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (x) { if (typeof x !== "object") { @@ -141,10 +145,11 @@ function Make(Ord) { while(true) { var x_ = _x_; if (typeof x_ !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(Ord.compare, x, x_._1); if (c === 0) { @@ -172,10 +177,11 @@ function Make(Ord) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -192,10 +198,11 @@ function Make(Ord) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = x._3; if (typeof r !== "object") { @@ -210,11 +217,12 @@ function Make(Ord) { }; var remove_min_binding = function (x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -434,15 +442,16 @@ function Make(Ord) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); } var v2 = s2._1; var match$1 = split(v2, s1); @@ -671,11 +680,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l._3; var ld = l._2; @@ -687,11 +697,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -704,11 +715,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r._3; var rd = r._2; @@ -720,11 +732,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(x) { @@ -771,10 +784,11 @@ function find(x, _x_) { while(true) { var x_ = _x_; if (typeof x_ !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(x, x_._1); if (c === 0) { @@ -804,10 +818,11 @@ function min_binding(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -825,10 +840,11 @@ function max_binding(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = x._3; if (typeof r !== "object") { @@ -844,11 +860,12 @@ function max_binding(_x) { function remove_min_binding(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -1082,15 +1099,16 @@ function merge(f, s1, s2) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); } var v2 = s2._1; var match$1 = split(v2, s1); @@ -1355,11 +1373,12 @@ function bal$1(l, x, d, r) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l._3; var ld = l._2; @@ -1371,11 +1390,12 @@ function bal$1(l, x, d, r) { if (typeof lr === "object") { return create$1(create$1(ll, lv, ld, lr._0), lr._1, lr._2, create$1(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -1388,11 +1408,12 @@ function bal$1(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r._3; var rd = r._2; @@ -1404,11 +1425,12 @@ function bal$1(l, x, d, r) { if (typeof rl === "object") { return create$1(create$1(l, x, d, rl._0), rl._1, rl._2, create$1(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty$1(x) { @@ -1455,10 +1477,11 @@ function find$1(x, _x_) { while(true) { var x_ = _x_; if (typeof x_ !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.string_compare(x, x_._1); if (c === 0) { @@ -1488,10 +1511,11 @@ function min_binding$1(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -1509,10 +1533,11 @@ function max_binding$1(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = x._3; if (typeof r !== "object") { @@ -1528,11 +1553,12 @@ function max_binding$1(_x) { function remove_min_binding$1(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -1766,15 +1792,16 @@ function merge$1(f, s1, s2) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); } var v2 = s2._1; var match$1 = split$1(v2, s1); diff --git a/jscomp/test/inline_map_demo.js b/jscomp/test/inline_map_demo.js index c973437e70..b29f979c5c 100644 --- a/jscomp/test/inline_map_demo.js +++ b/jscomp/test/inline_map_demo.js @@ -33,15 +33,16 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 41, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 41, + 15 + ] + } + }); } var lr = l._3; var ld = l._2; @@ -53,15 +54,16 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 47, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 47, + 19 + ] + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -74,15 +76,16 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 55, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 55, + 15 + ] + } + }); } var rr = r._3; var rd = r._2; @@ -94,15 +97,16 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 61, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 61, + 19 + ] + } + }); } function add(x, data, tree) { @@ -169,10 +173,11 @@ function find(px, _x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(px, x._1); if (c === 0) { diff --git a/jscomp/test/inline_map_test.js b/jscomp/test/inline_map_test.js index 2c55bcd7ad..89401a3b71 100644 --- a/jscomp/test/inline_map_test.js +++ b/jscomp/test/inline_map_test.js @@ -33,11 +33,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l._3; var ld = l._2; @@ -49,11 +50,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -66,11 +68,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r._3; var rd = r._2; @@ -82,11 +85,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, x_) { @@ -125,10 +129,11 @@ function find(x, _x_) { while(true) { var x_ = _x_; if (typeof x_ !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(x, x_._1); if (c === 0) { diff --git a/jscomp/test/inline_record_test.js b/jscomp/test/inline_record_test.js index 25d6b5c3fe..2945882594 100644 --- a/jscomp/test/inline_record_test.js +++ b/jscomp/test/inline_record_test.js @@ -67,15 +67,16 @@ var tmp; if (A0 === A0) { tmp = 3; } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 47, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 47, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 44, characters 2-9", tmp, 3); @@ -110,15 +111,16 @@ var tmp$1; if (v4.TAG === "A0") { tmp$1 = v4.x; } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 74, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 74, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 71, characters 2-9", tmp$1, 11); @@ -126,15 +128,16 @@ eq("File \"inline_record_test.res\", line 71, characters 2-9", tmp$1, 11); var tmp$2; if (v5.TAG === "A0") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 83, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 83, + 9 + ] + } + }); } tmp$2 = v5.z; @@ -168,15 +171,16 @@ var tmp$3; if (v6.RE_EXN_ID === A4) { tmp$3 = v6.x; } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 108, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 108, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 105, characters 2-9", tmp$3, 11); diff --git a/jscomp/test/int64_string_test.js b/jscomp/test/int64_string_test.js index af2ed53ebd..bf2a91aae4 100644 --- a/jscomp/test/int64_string_test.js +++ b/jscomp/test/int64_string_test.js @@ -1307,28 +1307,30 @@ var random_data = { Belt_List.forEach(random_data, (function (u) { if (u) { if (u.tl) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "int64_string_test.res", - 191, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "int64_string_test.res", + 191, + 9 + ] + } + }); } var match = u.hd; return eq("File \"int64_string_test.res\", line 190, characters 25-32", Caml_int64.to_string(match[0]), match[1]); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "int64_string_test.res", - 191, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "int64_string_test.res", + 191, + 9 + ] + } + }); })); eq("File \"int64_string_test.res\", line 195, characters 3-10", Caml_int64.to_string([ diff --git a/jscomp/test/int_map.js b/jscomp/test/int_map.js index 1b72bbb29c..7ac5a801b5 100644 --- a/jscomp/test/int_map.js +++ b/jscomp/test/int_map.js @@ -44,11 +44,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -60,11 +61,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -77,11 +79,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -93,11 +96,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -158,10 +162,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(x, param.v); if (c === 0) { @@ -176,10 +181,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -253,10 +259,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -360,10 +367,11 @@ function min_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -399,10 +407,11 @@ function max_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -436,11 +445,12 @@ function max_binding_opt(_param) { function remove_min_binding(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -744,15 +754,16 @@ function merge$1(f, s1, s2) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/jscomp/test/internal_unused_test.js b/jscomp/test/internal_unused_test.js index 9eb9f5af33..b0721597f0 100644 --- a/jscomp/test/internal_unused_test.js +++ b/jscomp/test/internal_unused_test.js @@ -8,10 +8,11 @@ console.log(3); var A = /* @__PURE__ */Caml_exceptions.create("Internal_unused_test.P1.A"); function f(param) { - throw { - RE_EXN_ID: A, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A + } + }); } var c = 5; diff --git a/jscomp/test/js_exception_catch_test.js b/jscomp/test/js_exception_catch_test.js index 59ecc6fea4..9cde2612e5 100644 --- a/jscomp/test/js_exception_catch_test.js +++ b/jscomp/test/js_exception_catch_test.js @@ -73,7 +73,9 @@ catch (raw_x){ }; })); } else { - throw x; + throw new Error(x.RE_EXN_ID, { + cause: x + }); } } @@ -134,79 +136,90 @@ eq("File \"js_exception_catch_test.res\", line 44, characters 5-12", test(functi }), "No_error"); eq("File \"js_exception_catch_test.res\", line 45, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }), "Not_found"); eq("File \"js_exception_catch_test.res\", line 46, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "x", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "x" + } + }); }), "Invalid_argument"); eq("File \"js_exception_catch_test.res\", line 47, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "" + } + }); }), "Invalid_any"); eq("File \"js_exception_catch_test.res\", line 48, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: A, - _1: 2, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 2 + } + }); }), "A2"); eq("File \"js_exception_catch_test.res\", line 49, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: A, - _1: 3, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 3 + } + }); }), "A_any"); eq("File \"js_exception_catch_test.res\", line 50, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: B, - Error: new Error() - }; + throw new Error(B, { + cause: { + RE_EXN_ID: B + } + }); }), "B"); eq("File \"js_exception_catch_test.res\", line 51, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: C, - _1: 1, - _2: 2, - Error: new Error() - }; + throw new Error(C, { + cause: { + RE_EXN_ID: C, + _1: 1, + _2: 2 + } + }); }), "C"); eq("File \"js_exception_catch_test.res\", line 52, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: C, - _1: 0, - _2: 2, - Error: new Error() - }; + throw new Error(C, { + cause: { + RE_EXN_ID: C, + _1: 0, + _2: 2 + } + }); }), "C_any"); eq("File \"js_exception_catch_test.res\", line 53, characters 5-12", test(function (param) { - throw new Error("x"); + throw new Error(new Error("x").RE_EXN_ID, { + cause: new Error("x") + }); }), "Js_error"); eq("File \"js_exception_catch_test.res\", line 54, characters 5-12", test(function (param) { - throw { - RE_EXN_ID: "Failure", - _1: "x", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "x" + } + }); }), "Any"); Mt.from_pair_suites("Js_exception_catch_test", suites.contents); diff --git a/jscomp/test/js_json_test.js b/jscomp/test/js_json_test.js index 8068a48e4c..7785a9aa35 100644 --- a/jscomp/test/js_json_test.js +++ b/jscomp/test/js_json_test.js @@ -97,28 +97,30 @@ add_test("File \"js_json_test.res\", line 22, characters 11-18", (function (para ty2._0.forEach(function (x) { var ty3 = Js_json.classify(x); if (typeof ty3 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 37, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 37, + 19 + ] + } + }); } if (ty3.TAG === "JSONNumber") { return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 37, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 37, + 19 + ] + } + }); }); return { TAG: "Ok", @@ -257,15 +259,16 @@ function option_get(x) { if (x !== undefined) { return Caml_option.valFromOption(x); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 111, - 12 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 111, + 12 + ] + } + }); } var dict = {}; diff --git a/jscomp/test/lazy_test.js b/jscomp/test/lazy_test.js index b973dbdc5e..c31e749e31 100644 --- a/jscomp/test/lazy_test.js +++ b/jscomp/test/lazy_test.js @@ -38,15 +38,16 @@ function f(x) { if (x$1 !== undefined) { return 1; } - throw { - RE_EXN_ID: "Match_failure", - _1: [ - "lazy_test.res", - 14, - 2 - ], - Error: new Error() - }; + throw new Error("Match_failure", { + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "lazy_test.res", + 14, + 2 + ] + } + }); } var s = { @@ -81,7 +82,9 @@ catch (raw_exn){ if (exn.RE_EXN_ID === "Match_failure") { h = 2; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -133,10 +136,11 @@ var f006 = { var f007 = { LAZY_DONE: false, VAL: (function () { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }) }; @@ -144,10 +148,11 @@ var f008 = { LAZY_DONE: false, VAL: (function () { console.log("hi"); - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }) }; @@ -330,10 +335,11 @@ Mt.from_pair_suites("Lazy_test", { _0: !Lazy.is_val({ LAZY_DONE: false, VAL: (function () { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }) }) }; diff --git a/jscomp/test/libqueue_test.js b/jscomp/test/libqueue_test.js index b0521195de..45df76bd56 100644 --- a/jscomp/test/libqueue_test.js +++ b/jscomp/test/libqueue_test.js @@ -45,7 +45,9 @@ function does_raise(f, q) { if (exn.RE_EXN_ID === Queue.Empty) { return true; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -56,15 +58,16 @@ var q = { }; if (!(to_list(q) === /* [] */0 && q.length === 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 30, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 30, + 2 + ] + } + }); } Queue.add(1, q); @@ -73,15 +76,16 @@ if (!(Caml_obj.equal(to_list(q), { hd: 1, tl: /* [] */0 }) && q.length === 1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 32, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 32, + 2 + ] + } + }); } Queue.add(2, q); @@ -93,15 +97,16 @@ if (!(Caml_obj.equal(to_list(q), { tl: /* [] */0 } }) && q.length === 2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 34, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 34, + 2 + ] + } + }); } Queue.add(3, q); @@ -116,15 +121,16 @@ if (!(Caml_obj.equal(to_list(q), { } } }) && q.length === 3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 36, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 36, + 2 + ] + } + }); } Queue.add(4, q); @@ -142,27 +148,29 @@ if (!(Caml_obj.equal(to_list(q), { } } }) && q.length === 4)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 38, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 38, + 2 + ] + } + }); } if (Queue.take(q) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 39, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 39, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { @@ -175,27 +183,29 @@ if (!(Caml_obj.equal(to_list(q), { } } }) && q.length === 3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 40, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 40, + 2 + ] + } + }); } if (Queue.take(q) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 41, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 41, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { @@ -205,78 +215,84 @@ if (!(Caml_obj.equal(to_list(q), { tl: /* [] */0 } }) && q.length === 2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 42, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 42, + 2 + ] + } + }); } if (Queue.take(q) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 43, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 43, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { hd: 4, tl: /* [] */0 }) && q.length === 1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 44, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 44, + 2 + ] + } + }); } if (Queue.take(q) !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 45, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 45, + 2 + ] + } + }); } if (!(to_list(q) === /* [] */0 && q.length === 0)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 46, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 46, + 2 + ] + } + }); } if (!does_raise(Queue.take, q)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 47, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 47, + 2 + ] + } + }); } var q$1 = { @@ -288,65 +304,70 @@ var q$1 = { Queue.add(1, q$1); if (Queue.take(q$1) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 53, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 53, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 54, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 54, + 2 + ] + } + }); } Queue.add(2, q$1); if (Queue.take(q$1) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 56, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 56, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 57, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 57, + 2 + ] + } + }); } if (q$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 58, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 58, + 2 + ] + } + }); } var q$2 = { @@ -358,139 +379,150 @@ var q$2 = { Queue.add(1, q$2); if (Queue.peek(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 64, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 64, + 2 + ] + } + }); } Queue.add(2, q$2); if (Queue.peek(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 66, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 66, + 2 + ] + } + }); } Queue.add(3, q$2); if (Queue.peek(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 68, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 68, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 69, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 69, + 2 + ] + } + }); } if (Queue.take(q$2) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 70, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 70, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 71, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 71, + 2 + ] + } + }); } if (Queue.take(q$2) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 72, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 72, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 73, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 73, + 2 + ] + } + }); } if (Queue.take(q$2) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 74, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 74, + 2 + ] + } + }); } if (!does_raise(Queue.peek, q$2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 75, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 75, + 2 + ] + } + }); } if (!does_raise(Queue.peek, q$2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 76, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 76, + 2 + ] + } + }); } var q$3 = { @@ -506,27 +538,29 @@ for(var i = 1; i <= 10; ++i){ Queue.clear(q$3); if (q$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 85, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 85, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$3)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 86, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 86, + 2 + ] + } + }); } if (!Caml_obj.equal(q$3, { @@ -534,29 +568,31 @@ if (!Caml_obj.equal(q$3, { first: "Nil", last: "Nil" })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 87, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 87, + 2 + ] + } + }); } Queue.add(42, q$3); if (Queue.take(q$3) !== 42) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 89, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 89, + 2 + ] + } + }); } var q1 = { @@ -602,15 +638,16 @@ if (!Caml_obj.equal(to_list(q1), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 98, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 98, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2), { @@ -644,67 +681,72 @@ if (!Caml_obj.equal(to_list(q2), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 99, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 99, + 2 + ] + } + }); } if (q1.length !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 100, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 100, + 2 + ] + } + }); } if (q2.length !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 101, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 101, + 2 + ] + } + }); } for(var i$2 = 1; i$2 <= 10; ++i$2){ if (Queue.take(q1) !== i$2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 103, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 103, + 4 + ] + } + }); } } for(var i$3 = 1; i$3 <= 10; ++i$3){ if (Queue.take(q2) !== i$3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 106, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 106, + 4 + ] + } + }); } } @@ -716,92 +758,99 @@ var q$4 = { }; if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 112, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 112, + 2 + ] + } + }); } for(var i$4 = 1; i$4 <= 10; ++i$4){ Queue.add(i$4, q$4); if (q$4.length !== i$4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 115, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 115, + 4 + ] + } + }); } if (q$4.length === 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 116, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 116, + 4 + ] + } + }); } } for(var i$5 = 10; i$5 >= 1; --i$5){ if (q$4.length !== i$5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 119, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 119, + 4 + ] + } + }); } if (q$4.length === 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 120, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 120, + 4 + ] + } + }); } Queue.take(q$4); } if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 123, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 123, + 2 + ] + } + }); } if (q$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 124, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 124, + 2 + ] + } + }); } var q$5 = { @@ -820,15 +869,16 @@ var i$7 = { Queue.iter((function (j) { if (i$7.contents !== j) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 134, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 134, + 4 + ] + } + }); } i$7.contents = i$7.contents + 1 | 0; }), q$5); @@ -846,101 +896,109 @@ var q2$1 = { }; if (q1$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 141, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 141, + 2 + ] + } + }); } if (to_list(q1$1) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 142, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 142, + 2 + ] + } + }); } if (q2$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 143, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 143, + 2 + ] + } + }); } if (to_list(q2$1) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 144, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 144, + 2 + ] + } + }); } Queue.transfer(q1$1, q2$1); if (q1$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 146, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 146, + 2 + ] + } + }); } if (to_list(q1$1) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 147, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 147, + 2 + ] + } + }); } if (q2$1.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 148, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 148, + 2 + ] + } + }); } if (to_list(q2$1) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 149, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 149, + 2 + ] + } + }); } var q1$2 = { @@ -960,15 +1018,16 @@ for(var i$8 = 1; i$8 <= 4; ++i$8){ } if (q1$2.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 157, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 157, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q1$2), { @@ -984,77 +1043,83 @@ if (!Caml_obj.equal(to_list(q1$2), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 158, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 158, + 2 + ] + } + }); } if (q2$2.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 159, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 159, + 2 + ] + } + }); } if (to_list(q2$2) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 160, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 160, + 2 + ] + } + }); } Queue.transfer(q1$2, q2$2); if (q1$2.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 162, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 162, + 2 + ] + } + }); } if (to_list(q1$2) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 163, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 163, + 2 + ] + } + }); } if (q2$2.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 164, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 164, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$2), { @@ -1070,15 +1135,16 @@ if (!Caml_obj.equal(to_list(q2$2), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 165, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 165, + 2 + ] + } + }); } var q1$3 = { @@ -1098,39 +1164,42 @@ for(var i$9 = 5; i$9 <= 8; ++i$9){ } if (q1$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 173, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 173, + 2 + ] + } + }); } if (to_list(q1$3) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 174, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 174, + 2 + ] + } + }); } if (q2$3.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 175, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 175, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$3), { @@ -1146,53 +1215,57 @@ if (!Caml_obj.equal(to_list(q2$3), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 176, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 176, + 2 + ] + } + }); } Queue.transfer(q1$3, q2$3); if (q1$3.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 178, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 178, + 2 + ] + } + }); } if (to_list(q1$3) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 179, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 179, + 2 + ] + } + }); } if (q2$3.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 180, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 180, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$3), { @@ -1208,15 +1281,16 @@ if (!Caml_obj.equal(to_list(q2$3), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 181, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 181, + 2 + ] + } + }); } var q1$4 = { @@ -1240,15 +1314,16 @@ for(var i$11 = 5; i$11 <= 8; ++i$11){ } if (q1$4.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 192, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 192, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q1$4), { @@ -1264,27 +1339,29 @@ if (!Caml_obj.equal(to_list(q1$4), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 193, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 193, + 2 + ] + } + }); } if (q2$4.length !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 194, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 194, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$4), { @@ -1300,53 +1377,57 @@ if (!Caml_obj.equal(to_list(q2$4), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 195, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 195, + 2 + ] + } + }); } Queue.transfer(q1$4, q2$4); if (q1$4.length !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 197, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 197, + 2 + ] + } + }); } if (to_list(q1$4) !== /* [] */0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 198, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 198, + 2 + ] + } + }); } if (q2$4.length !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 199, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 199, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$4), { @@ -1374,15 +1455,16 @@ if (!Caml_obj.equal(to_list(q2$4), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 200, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 200, + 2 + ] + } + }); } console.log("OK"); diff --git a/jscomp/test/map_find_test.js b/jscomp/test/map_find_test.js index 3c7f673180..1160bda9c7 100644 --- a/jscomp/test/map_find_test.js +++ b/jscomp/test/map_find_test.js @@ -33,11 +33,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -49,11 +50,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -66,11 +68,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -82,11 +85,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { @@ -139,10 +143,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(x, param.v); if (c === 0) { @@ -209,11 +214,12 @@ function bal$1(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -225,11 +231,12 @@ function bal$1(l, x, d, r) { if (typeof lr === "object") { return create$1(create$1(ll, lv, ld, lr.l), lr.v, lr.d, create$1(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -242,11 +249,12 @@ function bal$1(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -258,11 +266,12 @@ function bal$1(l, x, d, r) { if (typeof rl === "object") { return create$1(create$1(l, x, d, rl.l), rl.v, rl.d, create$1(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add$1(x, data, param) { @@ -315,10 +324,11 @@ function find$1(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.string_compare(x, param.v); if (c === 0) { diff --git a/jscomp/test/map_test.js b/jscomp/test/map_test.js index 8b6e659327..aad1746b59 100644 --- a/jscomp/test/map_test.js +++ b/jscomp/test/map_test.js @@ -34,11 +34,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -50,11 +51,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -67,11 +69,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -83,11 +86,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { @@ -249,11 +253,12 @@ function bal$1(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -265,11 +270,12 @@ function bal$1(l, x, d, r) { if (typeof lr === "object") { return create$1(create$1(ll, lv, ld, lr.l), lr.v, lr.d, create$1(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -282,11 +288,12 @@ function bal$1(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -298,11 +305,12 @@ function bal$1(l, x, d, r) { if (typeof rl === "object") { return create$1(create$1(l, x, d, rl.l), rl.v, rl.d, create$1(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add$1(x, data, param) { @@ -355,10 +363,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.string_compare(x, param.v); if (c === 0) { diff --git a/jscomp/test/mario_game.js b/jscomp/test/mario_game.js index 95150eadbc..04c4d74136 100644 --- a/jscomp/test/mario_game.js +++ b/jscomp/test/mario_game.js @@ -1508,11 +1508,12 @@ function game_win(ctx) { ctx.fillStyle = "white"; ctx.font = "20px 'Press Start 2P'"; Curry._3(ctx.fillText, "You win!", 180, 128); - throw { - RE_EXN_ID: "Failure", - _1: "Game over.", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Game over." + } + }); } function game_loss(ctx) { @@ -1522,11 +1523,12 @@ function game_loss(ctx) { ctx.fillStyle = "white"; ctx.font = "20px 'Press Start 2P'"; Curry._3(ctx.fillText, "GAME OVER. You lose!", 60, 128); - throw { - RE_EXN_ID: "Failure", - _1: "Game over.", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Game over." + } + }); } var Draw = { @@ -2522,11 +2524,12 @@ function choose_enemy_typ(typ) { case 2 : return "Goomba"; default: - throw { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } @@ -2546,11 +2549,12 @@ function choose_sblock_typ(typ) { case 4 : return "Ground"; default: - throw { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } @@ -3061,11 +3065,12 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { tl: /* [] */0 }; default: - throw { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } @@ -3334,11 +3339,12 @@ function load(param) { canvas = el; } else { console.log("cant find canvas " + canvas_id); - throw { - RE_EXN_ID: "Failure", - _1: "fail", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "fail" + } + }); } var context = Curry._1(canvas.getContext, "2d"); document.addEventListener("keydown", keydown, true); diff --git a/jscomp/test/marshal.js b/jscomp/test/marshal.js index 358fadf11c..35b171c0be 100644 --- a/jscomp/test/marshal.js +++ b/jscomp/test/marshal.js @@ -6,22 +6,24 @@ var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); function to_buffer(buff, ofs, len, v, flags) { if (ofs < 0 || len < 0 || ofs > (buff.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.to_buffer: substring out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.to_buffer: substring out of bounds" + } + }); } return Caml_external_polyfill.resolve("output_value_to_buffer")(buff, ofs, len, v, flags); } function data_size(buff, ofs) { if (ofs < 0 || ofs > (buff.length - 20 | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.data_size", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.data_size" + } + }); } return Caml_external_polyfill.resolve("marshal_data_size")(buff, ofs); } @@ -32,19 +34,21 @@ function total_size(buff, ofs) { function from_bytes(buff, ofs) { if (ofs < 0 || ofs > (buff.length - 20 | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.from_bytes", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.from_bytes" + } + }); } var len = Caml_external_polyfill.resolve("marshal_data_size")(buff, ofs); if (ofs > (buff.length - (20 + len | 0) | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.from_bytes", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.from_bytes" + } + }); } return Caml_external_polyfill.resolve("input_value_from_string")(buff, ofs); } diff --git a/jscomp/test/noassert.js b/jscomp/test/noassert.js index fb1c0f0c3d..185d74bd13 100644 --- a/jscomp/test/noassert.js +++ b/jscomp/test/noassert.js @@ -3,15 +3,16 @@ function f(param) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "noassert.res", - 1, - 14 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "noassert.res", + 1, + 14 + ] + } + }); } function h(param) { diff --git a/jscomp/test/ocaml_re_test.js b/jscomp/test/ocaml_re_test.js index a93a34a8c1..d4152f1baf 100644 --- a/jscomp/test/ocaml_re_test.js +++ b/jscomp/test/ocaml_re_test.js @@ -321,11 +321,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -337,11 +338,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -354,11 +356,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -370,11 +373,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { @@ -518,11 +522,12 @@ function bal$1(l, v, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -533,11 +538,12 @@ function bal$1(l, v, r) { if (typeof lr === "object") { return create$1(create$1(ll, lv, lr.l), lr.v, create$1(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -549,11 +555,12 @@ function bal$1(l, v, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -564,11 +571,12 @@ function bal$1(l, v, r) { if (typeof rl === "object") { return create$1(create$1(l, v, rl.l), rl.v, create$1(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add$1(x, param) { @@ -1078,15 +1086,16 @@ function split_at_match_rec(_l$p, _x) { } } else { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 816, - 16 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 816, + 16 + ] + } + }); } }; } @@ -1529,7 +1538,9 @@ function find_state(re, desc) { Curry._3(Re_automata_State.Table.add, re.states, desc, st); return st; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -1610,7 +1621,9 @@ function $$final(info, st, cat) { }; return res; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -1631,7 +1644,9 @@ function find_initial_state(re, cat) { }; return st; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -1734,10 +1749,11 @@ function trans_set(cache, cm, s) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = compare(v, param.v); if (c === 0) { @@ -1756,7 +1772,9 @@ function trans_set(cache, cm, s) { cache.contents = add(v, l, cache.contents); return l; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -1896,15 +1914,16 @@ function colorize(c, regexp) { _regexp = regexp._1; continue ; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2169, - 8 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2169, + 8 + ] + } + }); } } }; @@ -2524,15 +2543,16 @@ function translate(ids, kind, _ign_group, ign_case, _greedy, pos, cache, c, _x) match$5[1] ]; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2403, - 80 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2403, + 80 + ] + } + }); } } }; @@ -2566,28 +2586,30 @@ function case_insens(s) { function as_set(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2438, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2438, + 11 + ] + } + }); } if (x.TAG === "Set") { return x._0; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2438, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2438, + 11 + ] + } + }); } function handle_case(_ign_case, _x) { @@ -2808,18 +2830,20 @@ var epsilon = { function repn(r, i, j) { if (i < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Re.repn", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.repn" + } + }); } if (j !== undefined && j < i) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Re.repn", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.repn" + } + }); } return { TAG: "Repeat", @@ -2848,11 +2872,12 @@ function compl(l) { if (is_charset(r)) { return r; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Re.compl", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.compl" + } + }); } var any = { @@ -3202,11 +3227,12 @@ function exec_internal(name, posOpt, lenOpt, groups, re, s) { var pos = posOpt !== undefined ? posOpt : 0; var len = lenOpt !== undefined ? lenOpt : -1; if (pos < 0 || len < -1 || (pos + len | 0) > s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: name, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: name + } + }); } var partial = false; var slen = s.length; @@ -3272,17 +3298,19 @@ function exec_internal(name, posOpt, lenOpt, groups, re, s) { function offset$1(t, i) { if (((i << 1) + 1 | 0) >= t.marks.length) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var m1 = Caml_array.get(t.marks, (i << 1)); if (m1 === -1) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var p1 = Caml_array.get(t.gpos, m1) - 1 | 0; var p2 = Caml_array.get(t.gpos, Caml_array.get(t.marks, (i << 1) + 1 | 0)) - 1 | 0; @@ -3332,11 +3360,12 @@ function posix_class_of_string(x) { return xdigit; default: var s = "Invalid pcre class: " + x; - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } } @@ -3365,18 +3394,20 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { for(var j = 0; j < len; ++j){ try { if (Caml_string.get(s$p, j) !== Caml_string.get(s, i.contents + j | 0)) { - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } catch (exn){ - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } i.contents = i.contents + len | 0; @@ -3387,7 +3418,9 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (exn$1.RE_EXN_ID === Pervasives.Exit) { return false; } - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } }; var get = function (param) { @@ -3425,10 +3458,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (accept(/* ':' */58)) { var r = regexp$p(branch$p(/* [] */0)); if (!accept(/* ')' */41)) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return r; } @@ -3443,17 +3477,19 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { continue ; }; } - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var r$1 = regexp$p(branch$p(/* [] */0)); if (!accept(/* ')' */41)) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return { TAG: "Group", @@ -3485,10 +3521,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { } if (accept(/* '\\' */92)) { if (i.contents === l) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var c = get(); switch (c) { @@ -3502,10 +3539,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 55 : case 56 : case 57 : - throw { - RE_EXN_ID: Not_supported, - Error: new Error() - }; + throw new Error(Not_supported, { + cause: { + RE_EXN_ID: Not_supported + } + }); case 65 : return "Beg_of_str"; case 66 : @@ -3627,10 +3665,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 118 : case 120 : case 121 : - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); case 122 : return "End_of_str"; default: @@ -3641,10 +3680,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { } } else { if (i.contents === l) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var c$1 = get(); if (c$1 >= 64) { @@ -3655,22 +3695,25 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { _0: single(c$1) }; } - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } if (c$1 >= 44) { if (c$1 >= 63) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return { TAG: "Set", @@ -3678,10 +3721,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }; } if (c$1 >= 42) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return { TAG: "Set", @@ -3711,10 +3755,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { } var i$p = Math.imul(10, i$1) + (d$1 - /* '0' */48 | 0) | 0; if (i$p < i$1) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } _i = i$p; continue ; @@ -3723,18 +3768,20 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }; var $$char = function (param) { if (i.contents === l) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var c = get(); if (c === /* '[' */91) { if (accept(/* '=' */61)) { - throw { - RE_EXN_ID: Not_supported, - Error: new Error() - }; + throw new Error(Not_supported, { + cause: { + RE_EXN_ID: Not_supported + } + }); } if (accept(/* ':' */58)) { var compl$1 = accept(/* '^' */94); @@ -3784,18 +3831,22 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } if (!accept_s(":]")) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var posix_class = posix_class_of_string(cls); var re = compl$1 ? compl({ @@ -3814,23 +3865,26 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }; } if (i.contents === l) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } var c$1 = get(); if (!accept(/* '.' */46)) { - throw { - RE_EXN_ID: Not_supported, - Error: new Error() - }; + throw new Error(Not_supported, { + cause: { + RE_EXN_ID: Not_supported + } + }); } if (!accept(/* ']' */93)) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return { NAME: "Char", @@ -3997,18 +4051,20 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 120 : case 121 : case 122 : - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } } else { if (c$2 >= 48) { - throw { - RE_EXN_ID: Not_supported, - Error: new Error() - }; + throw new Error(Not_supported, { + cause: { + RE_EXN_ID: Not_supported + } + }); } return { NAME: "Char", @@ -4115,16 +4171,18 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (i$1 !== undefined) { var j = accept(/* ',' */44) ? integer() : i$1; if (!accept(/* '}' */125)) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } if (j !== undefined && j < i$1) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return greedy_mod(repn(r, i$1, j)); } @@ -4162,10 +4220,11 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }; var res = regexp$p(branch$p(/* [] */0)); if (i.contents !== l) { - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); } return res; } @@ -4208,15 +4267,17 @@ function exec(rex, pos, s) { return substr._0; } if (substr === "Failed") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var s = "a".repeat(1048575) + "b"; diff --git a/jscomp/test/offset.js b/jscomp/test/offset.js index 361b23e053..a966ae65dc 100644 --- a/jscomp/test/offset.js +++ b/jscomp/test/offset.js @@ -36,11 +36,12 @@ function bal(l, v, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -51,11 +52,12 @@ function bal(l, v, r) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -67,11 +69,12 @@ function bal(l, v, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -82,11 +85,12 @@ function bal(l, v, r) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { @@ -170,10 +174,11 @@ function min_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -203,10 +208,11 @@ function max_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -234,11 +240,12 @@ function max_elt_opt(_param) { function remove_min_elt(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -652,10 +659,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Caml.string_compare(x, v); @@ -671,10 +679,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -736,10 +745,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -948,15 +958,16 @@ function of_list(l) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { diff --git a/jscomp/test/pq_test.js b/jscomp/test/pq_test.js index 3fb5083b0b..ed472c30a5 100644 --- a/jscomp/test/pq_test.js +++ b/jscomp/test/pq_test.js @@ -40,10 +40,11 @@ var Queue_is_empty = /* @__PURE__ */Caml_exceptions.create("Pq_test.PrioQueue.Qu function remove_top(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: Queue_is_empty, - Error: new Error() - }; + throw new Error(Queue_is_empty, { + cause: { + RE_EXN_ID: Queue_is_empty + } + }); } var left = x._2; var tmp = x._3; @@ -83,10 +84,11 @@ function extract(x) { remove_top(x) ]; } - throw { - RE_EXN_ID: Queue_is_empty, - Error: new Error() - }; + throw new Error(Queue_is_empty, { + cause: { + RE_EXN_ID: Queue_is_empty + } + }); } var PrioQueue = { diff --git a/jscomp/test/queue_402.js b/jscomp/test/queue_402.js index cbcd9205fa..e90ba1566e 100644 --- a/jscomp/test/queue_402.js +++ b/jscomp/test/queue_402.js @@ -41,20 +41,22 @@ function add(x, q) { function peek(q) { if (q.length === 0) { - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } return q.tail.next.content; } function take(q) { if (q.length === 0) { - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } q.length = q.length - 1 | 0; var tail = q.tail; diff --git a/jscomp/test/raw_hash_tbl_bench.js b/jscomp/test/raw_hash_tbl_bench.js index 6252b105ba..0ad9ed9aca 100644 --- a/jscomp/test/raw_hash_tbl_bench.js +++ b/jscomp/test/raw_hash_tbl_bench.js @@ -10,15 +10,16 @@ function bench(param) { } for(var i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Hashtbl.mem(table, i$1)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "raw_hash_tbl_bench.res", - 8, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "raw_hash_tbl_bench.res", + 8, + 4 + ] + } + }); } } diff --git a/jscomp/test/rbset.js b/jscomp/test/rbset.js index dc5cbd7aeb..28a09bb794 100644 --- a/jscomp/test/rbset.js +++ b/jscomp/test/rbset.js @@ -267,15 +267,16 @@ function unbalanced_left(x) { } } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 64, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 64, + 9 + ] + } + }); } function unbalanced_right(x) { @@ -336,15 +337,16 @@ function unbalanced_right(x) { } } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 75, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 75, + 9 + ] + } + }); } function lbalance(x1, x2, x3) { @@ -560,15 +562,16 @@ function add(x, s) { function remove_min(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 138, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 138, + 4 + ] + } + }); } var c = x._0; if (c === "Black") { @@ -596,15 +599,16 @@ function remove_min(x) { false ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 138, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 138, + 4 + ] + } + }); } } else { diff --git a/jscomp/test/reactDOMRe.js b/jscomp/test/reactDOMRe.js index a9c0ad6f79..0799e0ab20 100644 --- a/jscomp/test/reactDOMRe.js +++ b/jscomp/test/reactDOMRe.js @@ -69,11 +69,12 @@ function hydrateToElementWithClassName(reactElement, className) { function hydrateToElementWithId(reactElement, id) { var element = document.getElementById(id); if (element == null) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "ReactDOMRe.hydrateToElementWithId : no element of id " + (id + " found in the HTML."), - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "ReactDOMRe.hydrateToElementWithId : no element of id " + (id + " found in the HTML.") + } + }); } ReactDom.hydrate(reactElement, element); } diff --git a/jscomp/test/rec_module_test.js b/jscomp/test/rec_module_test.js index 88e1ea91db..9b0496c8b1 100644 --- a/jscomp/test/rec_module_test.js +++ b/jscomp/test/rec_module_test.js @@ -124,11 +124,12 @@ function bal(l, v, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -139,11 +140,12 @@ function bal(l, v, r) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -155,11 +157,12 @@ function bal(l, v, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -170,11 +173,12 @@ function bal(l, v, r) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { @@ -258,10 +262,11 @@ function min_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -291,10 +296,11 @@ function max_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -322,11 +328,12 @@ function max_elt_opt(_param) { function remove_min_elt(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -740,10 +747,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(AAA.compare, x, v); @@ -759,10 +767,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -824,10 +833,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1036,15 +1046,16 @@ function of_list(l) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { diff --git a/jscomp/test/recmodule.js b/jscomp/test/recmodule.js index 41a4c1edce..7c4bce73e3 100644 --- a/jscomp/test/recmodule.js +++ b/jscomp/test/recmodule.js @@ -41,15 +41,16 @@ var Adapter = { function MakeLayer$2(Deps) { var presentJson = function (json, status) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "recmodule.res", - 60, - 41 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recmodule.res", + 60, + 41 + ] + } + }); }; var routes = function (param) { return [[ @@ -116,15 +117,16 @@ var U = Caml_module.init_mod([ }); function presentJson(json, status) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "recmodule.res", - 60, - 41 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recmodule.res", + 60, + 41 + ] + } + }); } function routes(param) { diff --git a/jscomp/test/recursive_module.js b/jscomp/test/recursive_module.js index 439491cec3..b6fe5e2344 100644 --- a/jscomp/test/recursive_module.js +++ b/jscomp/test/recursive_module.js @@ -115,7 +115,9 @@ catch (raw_exn){ if (exn.RE_EXN_ID === Lazy.Undefined) { tmp = -1; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -195,7 +197,9 @@ catch (raw_exn$1){ if (exn$1.RE_EXN_ID === "Undefined_recursive_module") { tmp$1 = 4; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } diff --git a/jscomp/test/recursive_records_test.js b/jscomp/test/recursive_records_test.js index ca0328c656..9bca0bd580 100644 --- a/jscomp/test/recursive_records_test.js +++ b/jscomp/test/recursive_records_test.js @@ -68,15 +68,16 @@ function tl_exn(x) { if (typeof x === "object") { return x.next; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "recursive_records_test.res", - 49, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recursive_records_test.res", + 49, + 11 + ] + } + }); } eq("File \"recursive_records_test.res\", line 54, characters 5-12", (hd(rec_cell2) + hd(tl_exn(rec_cell2)) | 0) + hd(tl_exn(tl_exn(rec_cell2))) | 0, 9); diff --git a/jscomp/test/return_check.js b/jscomp/test/return_check.js index 961218c89d..d9f071e05c 100644 --- a/jscomp/test/return_check.js +++ b/jscomp/test/return_check.js @@ -18,15 +18,16 @@ function f_undefined(xs, i) { if (k !== undefined) { return k; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 23, - 12 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 23, + 12 + ] + } + }); } function f_escaped_not(xs, i) { @@ -59,15 +60,16 @@ function f_null(xs, i) { if (k !== null) { return k; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 51, - 12 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 51, + 12 + ] + } + }); } function f_null_undefined(xs, i) { @@ -75,15 +77,16 @@ function f_null_undefined(xs, i) { if (!(k == null)) { return k; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 59, - 12 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 59, + 12 + ] + } + }); } exports.test = test; diff --git a/jscomp/test/set_gen.js b/jscomp/test/set_gen.js index 470740414b..51a2d64446 100644 --- a/jscomp/test/set_gen.js +++ b/jscomp/test/set_gen.js @@ -36,10 +36,11 @@ function min_elt(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -54,10 +55,11 @@ function max_elt(_x) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = x._2; if (typeof r !== "object") { @@ -207,17 +209,19 @@ function check_height_and_diff(x) { var hl = check_height_and_diff(x._0); var hr = check_height_and_diff(x._2); if (h !== (max_int_2(hl, hr) + 1 | 0)) { - throw { - RE_EXN_ID: Height_invariant_broken, - Error: new Error() - }; + throw new Error(Height_invariant_broken, { + cause: { + RE_EXN_ID: Height_invariant_broken + } + }); } var diff = Pervasives.abs(hl - hr | 0); if (diff > 2) { - throw { - RE_EXN_ID: Height_diff_borken, - Error: new Error() - }; + throw new Error(Height_diff_borken, { + cause: { + RE_EXN_ID: Height_diff_borken + } + }); } return h; } @@ -247,15 +251,16 @@ function internal_bal(l, v, r) { hr = typeof r !== "object" ? 0 : r._3; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 278, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 278, + 15 + ] + } + }); } var lr = l._2; var lv = l._1; @@ -266,15 +271,16 @@ function internal_bal(l, v, r) { if (typeof lr === "object") { return create(create(ll, lv, lr._0), lr._1, create(lr._2, v, r)); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 288, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 288, + 19 + ] + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -286,15 +292,16 @@ function internal_bal(l, v, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 300, - 15 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 300, + 15 + ] + } + }); } var rr = r._2; var rv = r._1; @@ -305,24 +312,26 @@ function internal_bal(l, v, r) { if (typeof rl === "object") { return create(create(l, v, rl._0), rl._1, create(rl._2, rv, rr)); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 306, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 306, + 19 + ] + } + }); } function remove_min_elt(x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -532,15 +541,16 @@ function of_sorted_list(l) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 447, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 447, + 18 + ] + } + }); }; return sub(List.length(l), l)[0]; } diff --git a/jscomp/test/sexp.js b/jscomp/test/sexp.js index 29bf3a1c53..a0f7f6a93d 100644 --- a/jscomp/test/sexp.js +++ b/jscomp/test/sexp.js @@ -485,11 +485,12 @@ function get_exn(e) { if (e !== undefined) { return Caml_option.valFromOption(e); } - throw { - RE_EXN_ID: "Failure", - _1: "CCSexp.Traverse.get_exn", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "CCSexp.Traverse.get_exn" + } + }); } var of_unit = { diff --git a/jscomp/test/sexpm.js b/jscomp/test/sexpm.js index de38992dbb..9393f5d6f8 100644 --- a/jscomp/test/sexpm.js +++ b/jscomp/test/sexpm.js @@ -23,16 +23,18 @@ function _must_escape(s) { if (c !== 92) { exit = 1; } else { - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else { - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else if (c >= 11) { if (c >= 32) { @@ -49,10 +51,11 @@ function _must_escape(s) { case 34 : case 40 : case 41 : - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else { @@ -60,18 +63,20 @@ function _must_escape(s) { } } else { if (c >= 9) { - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } exit = 1; } if (exit === 1 && c > 127) { - throw { - RE_EXN_ID: Pervasives.Exit, - Error: new Error() - }; + throw new Error(Pervasives.Exit, { + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } @@ -82,7 +87,9 @@ function _must_escape(s) { if (exn.RE_EXN_ID === Pervasives.Exit) { return true; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -157,15 +164,16 @@ function _refill(t, k_succ, k_fail) { function _get(t) { if (t.i >= t.len) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 111, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 111, + 4 + ] + } + }); } var c = Caml_bytes.get(t.buf, t.i); t.i = t.i + 1 | 0; @@ -233,15 +241,16 @@ function expr_starting_with(c, k, t) { if (c >= 32) { switch (c) { case 32 : - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 152, - 27 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 152, + 27 + ] + } + }); case 34 : return quoted(k, t); case 33 : @@ -260,15 +269,16 @@ function expr_starting_with(c, k, t) { } } else if (c >= 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 152, - 27 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 152, + 27 + ] + } + }); } $$Buffer.add_char(t.atom, c); return atom(k, t); diff --git a/jscomp/test/stack_comp_test.js b/jscomp/test/stack_comp_test.js index 65dadf2497..dff1d2096a 100644 --- a/jscomp/test/stack_comp_test.js +++ b/jscomp/test/stack_comp_test.js @@ -66,7 +66,9 @@ function does_raise(f, s) { if (exn.RE_EXN_ID === Stack.Empty) { return true; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/stream_parser_test.js b/jscomp/test/stream_parser_test.js index d6b499381b..7644ed0f73 100644 --- a/jscomp/test/stream_parser_test.js +++ b/jscomp/test/stream_parser_test.js @@ -42,33 +42,37 @@ function parse(token) { if (match._0 === ")") { return v; } - throw { - RE_EXN_ID: Parse_error, - _1: "Unbalanced parens", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced parens" + } + }); } - throw { - RE_EXN_ID: Parse_error, - _1: "Unbalanced parens", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced parens" + } + }); } Queue.push(n, look_ahead); - throw { - RE_EXN_ID: Parse_error, - _1: "unexpected token", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "unexpected token" + } + }); case "Int" : return n._0; default: Queue.push(n, look_ahead); - throw { - RE_EXN_ID: Parse_error, - _1: "unexpected token", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "unexpected token" + } + }); } }; var parse_term_aux = function (e1) { @@ -197,31 +201,35 @@ function l_parse(token) { if (t._0 === ")") { return v; } - throw { - RE_EXN_ID: Parse_error, - _1: "Unbalanced )", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced )" + } + }); } - throw { - RE_EXN_ID: Parse_error, - _1: "Unbalanced )", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced )" + } + }); } - throw { - RE_EXN_ID: Parse_error, - _1: "Unexpected token", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unexpected token" + } + }); case "Int" : return i._0; default: - throw { - RE_EXN_ID: Parse_error, - _1: "Unexpected token", - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unexpected token" + } + }); } }; var parse_t_aux = function (_a) { diff --git a/jscomp/test/string_set.js b/jscomp/test/string_set.js index dd33e53c0b..3a27d69e96 100644 --- a/jscomp/test/string_set.js +++ b/jscomp/test/string_set.js @@ -223,10 +223,11 @@ function find(x, _tree) { while(true) { var tree = _tree; if (typeof tree !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = tree._1; var c = Caml.string_compare(x, v); diff --git a/jscomp/test/string_test.js b/jscomp/test/string_test.js index 2744674448..a327a7204e 100644 --- a/jscomp/test/string_test.js +++ b/jscomp/test/string_test.js @@ -78,7 +78,9 @@ function rev_split_by_char(c, s) { tl: l }; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; return loop(0, /* [] */0); @@ -107,7 +109,9 @@ function xsplit(delim, s) { tl: l }; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } var l_0 = $$String.sub(s, i$p + 1 | 0, (x - i$p | 0) - 1 | 0); var l$1 = { diff --git a/jscomp/test/stringmatch_test.js b/jscomp/test/stringmatch_test.js index becccea56e..5bf7c32ec5 100644 --- a/jscomp/test/stringmatch_test.js +++ b/jscomp/test/stringmatch_test.js @@ -11,39 +11,42 @@ function tst01(s) { } if (tst01("") !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 22, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 22, + 2 + ] + } + }); } if (tst01("\x00\x00\x00\x03") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 23, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 23, + 2 + ] + } + }); } if (tst01("\x00\x00\x00\x00\x00\x00\x00\x07") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 24, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 24, + 2 + ] + } + }); } function tst02(s) { @@ -52,26 +55,28 @@ function tst02(s) { if (len >= 0) { return 1; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 33, - 21 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 33, + 21 + ] + } + }); } if (len === 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 35, - 21 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 35, + 21 + ] + } + }); } if (s === "A") { return 2; @@ -81,63 +86,68 @@ function tst02(s) { } if (tst02("") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 42, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 42, + 2 + ] + } + }); } if (tst02("A") !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 43, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 43, + 2 + ] + } + }); } if (tst02("B") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 44, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 44, + 2 + ] + } + }); } if (tst02("\x00\x00\x00\x00\x00\x00\x00\x07") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 45, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 45, + 2 + ] + } + }); } if (tst02("\x00\x00\x00\x03") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 46, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 46, + 2 + ] + } + }); } function tst03(s) { @@ -196,579 +206,627 @@ function tst03(s) { } if (tst03("get_const") !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 131, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 131, + 2 + ] + } + }); } if (tst03("set_congt") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 132, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 132, + 2 + ] + } + }); } if (tst03("get_var") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 133, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 133, + 2 + ] + } + }); } if (tst03("gat_ver") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 134, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 134, + 2 + ] + } + }); } if (tst03("get_env") !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 135, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 135, + 2 + ] + } + }); } if (tst03("get_env") !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 136, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 136, + 2 + ] + } + }); } if (tst03("get_meth") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 137, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 137, + 2 + ] + } + }); } if (tst03("met_geth") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 138, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 138, + 2 + ] + } + }); } if (tst03("set_var") !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 139, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 139, + 2 + ] + } + }); } if (tst03("sev_tar") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 140, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 140, + 2 + ] + } + }); } if (tst03("app_const") !== 5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 141, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 141, + 2 + ] + } + }); } if (tst03("ppa_const") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 142, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 142, + 2 + ] + } + }); } if (tst03("app_var") !== 6) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 143, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 143, + 2 + ] + } + }); } if (tst03("app_var") !== 6) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 144, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 144, + 2 + ] + } + }); } if (tst03("app_env") !== 7) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 145, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 145, + 2 + ] + } + }); } if (tst03("epp_anv") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 146, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 146, + 2 + ] + } + }); } if (tst03("app_meth") !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 147, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 147, + 2 + ] + } + }); } if (tst03("atp_meph") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 148, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 148, + 2 + ] + } + }); } if (tst03("app_const_const") !== 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 149, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 149, + 2 + ] + } + }); } if (tst03("app_const_const") !== 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 150, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 150, + 2 + ] + } + }); } if (tst03("app_const_var") !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 151, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 151, + 2 + ] + } + }); } if (tst03("atp_consp_var") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 152, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 152, + 2 + ] + } + }); } if (tst03("app_const_env") !== 11) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 153, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 153, + 2 + ] + } + }); } if (tst03("app_constne_v") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 154, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 154, + 2 + ] + } + }); } if (tst03("app_const_meth") !== 12) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 155, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 155, + 2 + ] + } + }); } if (tst03("spp_conat_meth") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 156, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 156, + 2 + ] + } + }); } if (tst03("app_var_const") !== 13) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 157, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 157, + 2 + ] + } + }); } if (tst03("app_va_rconst") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 158, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 158, + 2 + ] + } + }); } if (tst03("app_env_const") !== 14) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 159, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 159, + 2 + ] + } + }); } if (tst03("app_env_const") !== 14) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 160, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 160, + 2 + ] + } + }); } if (tst03("app_meth_const") !== 15) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 161, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 161, + 2 + ] + } + }); } if (tst03("app_teth_consm") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 162, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 162, + 2 + ] + } + }); } if (tst03("meth_app_const") !== 16) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 163, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 163, + 2 + ] + } + }); } if (tst03("math_epp_const") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 164, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 164, + 2 + ] + } + }); } if (tst03("meth_app_var") !== 17) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 165, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 165, + 2 + ] + } + }); } if (tst03("meth_app_var") !== 17) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 166, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 166, + 2 + ] + } + }); } if (tst03("meth_app_env") !== 18) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 167, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 167, + 2 + ] + } + }); } if (tst03("eeth_app_mnv") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 168, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 168, + 2 + ] + } + }); } if (tst03("meth_app_meth") !== 19) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 169, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 169, + 2 + ] + } + }); } if (tst03("meth_apt_meph") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 170, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 170, + 2 + ] + } + }); } if (tst03("send_const") !== 20) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 171, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 171, + 2 + ] + } + }); } if (tst03("tend_conss") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 172, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 172, + 2 + ] + } + }); } if (tst03("send_var") !== 21) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 173, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 173, + 2 + ] + } + }); } if (tst03("serd_van") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 174, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 174, + 2 + ] + } + }); } if (tst03("send_env") !== 22) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 175, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 175, + 2 + ] + } + }); } if (tst03("sen_denv") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 176, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 176, + 2 + ] + } + }); } if (tst03("send_meth") !== 23) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 177, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 177, + 2 + ] + } + }); } if (tst03("tend_mesh") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 178, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 178, + 2 + ] + } + }); } function tst04(s) { @@ -803,231 +861,250 @@ function tst04(s) { } if (tst04("AAAAAAAA") !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 215, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 215, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAA") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 216, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 216, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAAAAAAAAAA") !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 217, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 217, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 218, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 218, + 2 + ] + } + }); } if (tst04("BBBBBBBB") !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 219, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 219, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBB") !== 5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 220, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 220, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBBBBBBBBBB") !== 6) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 221, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 221, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB") !== 7) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 222, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 222, + 2 + ] + } + }); } if (tst04("CCCCCCCC") !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 223, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 223, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCC") !== 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 224, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 224, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCCCCCCCCCC") !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 225, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 225, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC") !== 11) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 226, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 226, + 2 + ] + } + }); } if (tst04("") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 227, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 227, + 2 + ] + } + }); } if (tst04("DDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 228, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 228, + 2 + ] + } + }); } if (tst04("DDDDDDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 229, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 229, + 2 + ] + } + }); } if (tst04("AAADDDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 230, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 230, + 2 + ] + } + }); } if (tst04("AAAAAAADDDDDDDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 231, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 231, + 2 + ] + } + }); } if (tst04("AAAAAAADDDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 232, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 232, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAADDDD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 233, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 233, + 2 + ] + } + }); } function tst05(s) { @@ -1064,267 +1141,289 @@ function tst05(s) { } if (tst05("AAA") !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 272, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 272, + 2 + ] + } + }); } if (tst05("AAAA") !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 273, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 273, + 2 + ] + } + }); } if (tst05("AAAAA") !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 274, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 274, + 2 + ] + } + }); } if (tst05("AAAAAA") !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 275, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 275, + 2 + ] + } + }); } if (tst05("AAAAAAA") !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 276, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 276, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAA") !== 5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 277, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 277, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAAAAAA") !== 6) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 278, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 278, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAAAAAAAAAA") !== 7) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 279, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 279, + 2 + ] + } + }); } if (tst05("BBB") !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 280, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 280, + 2 + ] + } + }); } if (tst05("BBBB") !== 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 281, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 281, + 2 + ] + } + }); } if (tst05("BBBBB") !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 282, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 282, + 2 + ] + } + }); } if (tst05("BBBBBB") !== 11) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 283, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 283, + 2 + ] + } + }); } if (tst05("BBBBBBB") !== 12) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 284, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 284, + 2 + ] + } + }); } if (tst05("") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 285, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 285, + 2 + ] + } + }); } if (tst05("AAD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 286, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 286, + 2 + ] + } + }); } if (tst05("AAAD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 287, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 287, + 2 + ] + } + }); } if (tst05("AAAAAAD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 288, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 288, + 2 + ] + } + }); } if (tst05("AAAAAAAD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 289, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 289, + 2 + ] + } + }); } if (tst05("BBD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 290, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 290, + 2 + ] + } + }); } if (tst05("BBBD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 291, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 291, + 2 + ] + } + }); } if (tst05("BBBBBBD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 292, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 292, + 2 + ] + } + }); } if (tst05("BBBBBBBD") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 293, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 293, + 2 + ] + } + }); } var s00 = "and"; @@ -1887,2223 +1986,2408 @@ function tst06(s) { } if (tst06(s00) !== 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 582, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 582, + 2 + ] + } + }); } if (tst06(t00) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 583, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 583, + 2 + ] + } + }); } if (tst06(s01) !== 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 584, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 584, + 2 + ] + } + }); } if (tst06(t01) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 585, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 585, + 2 + ] + } + }); } if (tst06(s02) !== 2) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 586, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 586, + 2 + ] + } + }); } if (tst06(t02) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 587, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 587, + 2 + ] + } + }); } if (tst06(s03) !== 3) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 588, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 588, + 2 + ] + } + }); } if (tst06(t03) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 589, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 589, + 2 + ] + } + }); } if (tst06(s04) !== 4) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 590, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 590, + 2 + ] + } + }); } if (tst06(t04) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 591, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 591, + 2 + ] + } + }); } if (tst06(s05) !== 5) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 592, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 592, + 2 + ] + } + }); } if (tst06(t05) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 593, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 593, + 2 + ] + } + }); } if (tst06(s06) !== 6) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 594, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 594, + 2 + ] + } + }); } if (tst06(t06) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 595, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 595, + 2 + ] + } + }); } if (tst06(s07) !== 7) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 596, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 596, + 2 + ] + } + }); } if (tst06(t07) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 597, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 597, + 2 + ] + } + }); } if (tst06(s08) !== 8) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 598, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 598, + 2 + ] + } + }); } if (tst06(t08) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 599, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 599, + 2 + ] + } + }); } if (tst06(s09) !== 9) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 600, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 600, + 2 + ] + } + }); } if (tst06(t09) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 601, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 601, + 2 + ] + } + }); } if (tst06(s10) !== 10) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 602, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 602, + 2 + ] + } + }); } if (tst06(t10) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 603, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 603, + 2 + ] + } + }); } if (tst06(s11) !== 11) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 604, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 604, + 2 + ] + } + }); } if (tst06(t11) !== 11) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 605, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 605, + 2 + ] + } + }); } if (tst06(s12) !== 12) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 606, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 606, + 2 + ] + } + }); } if (tst06(t12) !== 12) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 607, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 607, + 2 + ] + } + }); } if (tst06(s13) !== 13) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 608, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 608, + 2 + ] + } + }); } if (tst06(t13) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 609, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 609, + 2 + ] + } + }); } if (tst06(s14) !== 14) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 610, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 610, + 2 + ] + } + }); } if (tst06(t14) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 611, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 611, + 2 + ] + } + }); } if (tst06(s15) !== 15) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 612, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 612, + 2 + ] + } + }); } if (tst06(t15) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 613, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 613, + 2 + ] + } + }); } if (tst06(s16) !== 16) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 614, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 614, + 2 + ] + } + }); } if (tst06(t16) !== 16) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 615, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 615, + 2 + ] + } + }); } if (tst06(s17) !== 17) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 616, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 616, + 2 + ] + } + }); } if (tst06(t17) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 617, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 617, + 2 + ] + } + }); } if (tst06(s18) !== 18) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 618, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 618, + 2 + ] + } + }); } if (tst06(t18) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 619, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 619, + 2 + ] + } + }); } if (tst06(s19) !== 19) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 620, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 620, + 2 + ] + } + }); } if (tst06(t19) !== 19) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 621, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 621, + 2 + ] + } + }); } if (tst06(s20) !== 20) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 622, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 622, + 2 + ] + } + }); } if (tst06(t20) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 623, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 623, + 2 + ] + } + }); } if (tst06(s21) !== 21) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 624, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 624, + 2 + ] + } + }); } if (tst06(t21) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 625, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 625, + 2 + ] + } + }); } if (tst06(s22) !== 22) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 626, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 626, + 2 + ] + } + }); } if (tst06(t22) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 627, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 627, + 2 + ] + } + }); } if (tst06(s23) !== 23) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 628, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 628, + 2 + ] + } + }); } if (tst06(t23) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 629, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 629, + 2 + ] + } + }); } if (tst06(s24) !== 24) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 630, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 630, + 2 + ] + } + }); } if (tst06(t24) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 631, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 631, + 2 + ] + } + }); } if (tst06(s25) !== 25) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 632, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 632, + 2 + ] + } + }); } if (tst06(t25) !== 25) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 633, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 633, + 2 + ] + } + }); } if (tst06(s26) !== 26) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 634, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 634, + 2 + ] + } + }); } if (tst06(t26) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 635, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 635, + 2 + ] + } + }); } if (tst06(s27) !== 27) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 636, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 636, + 2 + ] + } + }); } if (tst06(t27) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 637, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 637, + 2 + ] + } + }); } if (tst06(s28) !== 28) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 638, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 638, + 2 + ] + } + }); } if (tst06(t28) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 639, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 639, + 2 + ] + } + }); } if (tst06(s29) !== 29) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 640, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 640, + 2 + ] + } + }); } if (tst06(t29) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 641, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 641, + 2 + ] + } + }); } if (tst06(s30) !== 30) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 642, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 642, + 2 + ] + } + }); } if (tst06(t30) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 643, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 643, + 2 + ] + } + }); } if (tst06(s31) !== 31) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 644, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 644, + 2 + ] + } + }); } if (tst06(t31) !== 31) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 645, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 645, + 2 + ] + } + }); } if (tst06(s32) !== 32) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 646, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 646, + 2 + ] + } + }); } if (tst06(t32) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 647, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 647, + 2 + ] + } + }); } if (tst06(s33) !== 33) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 648, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 648, + 2 + ] + } + }); } if (tst06(t33) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 649, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 649, + 2 + ] + } + }); } if (tst06(s34) !== 34) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 650, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 650, + 2 + ] + } + }); } if (tst06(t34) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 651, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 651, + 2 + ] + } + }); } if (tst06(s35) !== 35) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 652, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 652, + 2 + ] + } + }); } if (tst06(t35) !== 35) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 653, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 653, + 2 + ] + } + }); } if (tst06(s36) !== 36) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 654, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 654, + 2 + ] + } + }); } if (tst06(t36) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 655, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 655, + 2 + ] + } + }); } if (tst06(s37) !== 37) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 656, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 656, + 2 + ] + } + }); } if (tst06(t37) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 657, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 657, + 2 + ] + } + }); } if (tst06(s38) !== 38) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 658, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 658, + 2 + ] + } + }); } if (tst06(t38) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 659, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 659, + 2 + ] + } + }); } if (tst06(s39) !== 39) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 660, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 660, + 2 + ] + } + }); } if (tst06(t39) !== 39) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 661, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 661, + 2 + ] + } + }); } if (tst06(s40) !== 40) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 662, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 662, + 2 + ] + } + }); } if (tst06(t40) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 663, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 663, + 2 + ] + } + }); } if (tst06(s41) !== 41) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 664, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 664, + 2 + ] + } + }); } if (tst06(t41) !== 41) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 665, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 665, + 2 + ] + } + }); } if (tst06(s42) !== 42) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 666, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 666, + 2 + ] + } + }); } if (tst06(t42) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 667, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 667, + 2 + ] + } + }); } if (tst06(s43) !== 43) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 668, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 668, + 2 + ] + } + }); } if (tst06(t43) !== 43) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 669, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 669, + 2 + ] + } + }); } if (tst06(s44) !== 44) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 670, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 670, + 2 + ] + } + }); } if (tst06(t44) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 671, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 671, + 2 + ] + } + }); } if (tst06(s45) !== 45) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 672, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 672, + 2 + ] + } + }); } if (tst06(t45) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 673, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 673, + 2 + ] + } + }); } if (tst06(s46) !== 46) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 674, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 674, + 2 + ] + } + }); } if (tst06(t46) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 675, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 675, + 2 + ] + } + }); } if (tst06(s47) !== 47) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 676, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 676, + 2 + ] + } + }); } if (tst06(t47) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 677, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 677, + 2 + ] + } + }); } if (tst06(s48) !== 48) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 678, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 678, + 2 + ] + } + }); } if (tst06(t48) !== 48) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 679, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 679, + 2 + ] + } + }); } if (tst06(s49) !== 49) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 680, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 680, + 2 + ] + } + }); } if (tst06(t49) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 681, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 681, + 2 + ] + } + }); } if (tst06(s50) !== 50) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 682, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 682, + 2 + ] + } + }); } if (tst06(t50) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 683, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 683, + 2 + ] + } + }); } if (tst06(s51) !== 51) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 684, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 684, + 2 + ] + } + }); } if (tst06(t51) !== 51) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 685, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 685, + 2 + ] + } + }); } if (tst06(s52) !== 52) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 686, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 686, + 2 + ] + } + }); } if (tst06(t52) !== 52) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 687, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 687, + 2 + ] + } + }); } if (tst06(s53) !== 53) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 688, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 688, + 2 + ] + } + }); } if (tst06(t53) !== 53) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 689, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 689, + 2 + ] + } + }); } if (tst06(s54) !== 54) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 690, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 690, + 2 + ] + } + }); } if (tst06(t54) !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 691, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 691, + 2 + ] + } + }); } if (tst06(s55) !== 55) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 692, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 692, + 2 + ] + } + }); } if (tst06(t55) !== 55) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 693, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 693, + 2 + ] + } + }); } if (tst06(s56) !== 56) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 694, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 694, + 2 + ] + } + }); } if (tst06(t56) !== 56) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 695, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 695, + 2 + ] + } + }); } if (tst06(s57) !== 57) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 696, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 696, + 2 + ] + } + }); } if (tst06(t57) !== 57) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 697, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 697, + 2 + ] + } + }); } if (tst06(s58) !== 58) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 698, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 698, + 2 + ] + } + }); } if (tst06(t58) !== 58) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 699, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 699, + 2 + ] + } + }); } if (tst06(s59) !== 59) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 700, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 700, + 2 + ] + } + }); } if (tst06(t59) !== 59) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 701, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 701, + 2 + ] + } + }); } if (tst06(s60) !== 60) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 702, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 702, + 2 + ] + } + }); } if (tst06(t60) !== 60) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 703, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 703, + 2 + ] + } + }); } if (tst06(s61) !== 61) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 704, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 704, + 2 + ] + } + }); } if (tst06(t61) !== 61) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 705, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 705, + 2 + ] + } + }); } if (tst06(s62) !== 62) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 706, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 706, + 2 + ] + } + }); } if (tst06(t62) !== 62) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 707, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 707, + 2 + ] + } + }); } if (tst06(s63) !== 63) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 708, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 708, + 2 + ] + } + }); } if (tst06(t63) !== 63) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 709, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 709, + 2 + ] + } + }); } if (tst06(s64) !== 64) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 710, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 710, + 2 + ] + } + }); } if (tst06(t64) !== 64) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 711, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 711, + 2 + ] + } + }); } if (tst06(s65) !== 65) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 712, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 712, + 2 + ] + } + }); } if (tst06(t65) !== 65) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 713, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 713, + 2 + ] + } + }); } if (tst06(s66) !== 66) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 714, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 714, + 2 + ] + } + }); } if (tst06(t66) !== 66) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 715, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 715, + 2 + ] + } + }); } if (tst06(s67) !== 67) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 716, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 716, + 2 + ] + } + }); } if (tst06(t67) !== 67) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 717, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 717, + 2 + ] + } + }); } if (tst06(s68) !== 68) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 718, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 718, + 2 + ] + } + }); } if (tst06(t68) !== 68) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 719, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 719, + 2 + ] + } + }); } if (tst06(s69) !== 69) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 720, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 720, + 2 + ] + } + }); } if (tst06(t69) !== 69) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 721, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 721, + 2 + ] + } + }); } if (tst06(s70) !== 70) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 722, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 722, + 2 + ] + } + }); } if (tst06(t70) !== 70) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 723, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 723, + 2 + ] + } + }); } if (tst06(s71) !== 71) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 724, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 724, + 2 + ] + } + }); } if (tst06(t71) !== 71) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 725, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 725, + 2 + ] + } + }); } if (tst06(s72) !== 72) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 726, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 726, + 2 + ] + } + }); } if (tst06(t72) !== 72) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 727, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 727, + 2 + ] + } + }); } if (tst06(s73) !== 73) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 728, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 728, + 2 + ] + } + }); } if (tst06(t73) !== 73) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 729, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 729, + 2 + ] + } + }); } if (tst06(s74) !== 74) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 730, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 730, + 2 + ] + } + }); } if (tst06(t74) !== 74) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 731, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 731, + 2 + ] + } + }); } if (tst06(s75) !== 75) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 732, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 732, + 2 + ] + } + }); } if (tst06(t75) !== 75) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 733, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 733, + 2 + ] + } + }); } if (tst06(s76) !== 76) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 734, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 734, + 2 + ] + } + }); } if (tst06(t76) !== 76) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 735, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 735, + 2 + ] + } + }); } if (tst06(s77) !== 77) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 736, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 736, + 2 + ] + } + }); } if (tst06(t77) !== 77) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 737, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 737, + 2 + ] + } + }); } if (tst06(s78) !== 78) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 738, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 738, + 2 + ] + } + }); } if (tst06(t78) !== 78) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 739, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 739, + 2 + ] + } + }); } if (tst06(s79) !== 79) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 740, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 740, + 2 + ] + } + }); } if (tst06(t79) !== 79) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 741, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 741, + 2 + ] + } + }); } if (tst06(s80) !== 80) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 742, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 742, + 2 + ] + } + }); } if (tst06(t80) !== 80) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 743, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 743, + 2 + ] + } + }); } if (tst06(s81) !== 81) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 744, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 744, + 2 + ] + } + }); } if (tst06(t81) !== 81) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 745, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 745, + 2 + ] + } + }); } if (tst06(s82) !== 82) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 746, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 746, + 2 + ] + } + }); } if (tst06(t82) !== 82) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 747, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 747, + 2 + ] + } + }); } if (tst06(s83) !== 83) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 748, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 748, + 2 + ] + } + }); } if (tst06(t83) !== 83) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 749, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 749, + 2 + ] + } + }); } if (tst06(s84) !== 84) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 750, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 750, + 2 + ] + } + }); } if (tst06(t84) !== 84) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 751, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 751, + 2 + ] + } + }); } if (tst06(s85) !== 85) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 752, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 752, + 2 + ] + } + }); } if (tst06(t85) !== 85) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 753, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 753, + 2 + ] + } + }); } if (tst06(s86) !== 86) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 754, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 754, + 2 + ] + } + }); } if (tst06(t86) !== 86) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 755, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 755, + 2 + ] + } + }); } if (tst06(s87) !== 87) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 756, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 756, + 2 + ] + } + }); } if (tst06(t87) !== 87) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 757, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 757, + 2 + ] + } + }); } if (tst06(s88) !== 88) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 758, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 758, + 2 + ] + } + }); } if (tst06(t88) !== 88) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 759, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 759, + 2 + ] + } + }); } if (tst06(s89) !== 89) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 760, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 760, + 2 + ] + } + }); } if (tst06(t89) !== 89) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 761, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 761, + 2 + ] + } + }); } if (tst06(s90) !== 90) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 762, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 762, + 2 + ] + } + }); } if (tst06(t90) !== 90) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 763, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 763, + 2 + ] + } + }); } if (tst06(s91) !== 91) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 764, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 764, + 2 + ] + } + }); } if (tst06(t91) !== 91) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 765, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 765, + 2 + ] + } + }); } if (tst06("") !== -1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 766, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 766, + 2 + ] + } + }); } exports.tst01 = tst01; diff --git a/jscomp/test/test_array_primitive.js b/jscomp/test/test_array_primitive.js index ac0913d312..ec04ca4f81 100644 --- a/jscomp/test/test_array_primitive.js +++ b/jscomp/test/test_array_primitive.js @@ -13,22 +13,24 @@ function caml_array_sub(x, offset, len) { function caml_array_set(xs, index, newval) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } Caml_array.set(xs, index, newval); } function caml_array_get(xs, index) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return Caml_array.get(xs, index); } diff --git a/jscomp/test/test_bool_equal.js b/jscomp/test/test_bool_equal.js index cc6a99be6c..3627c632c6 100644 --- a/jscomp/test/test_bool_equal.js +++ b/jscomp/test/test_bool_equal.js @@ -18,48 +18,52 @@ function bool_equal(x, y) { function assertions(param) { if (!bool_equal(true, true)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 16, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 16, + 2 + ] + } + }); } if (!bool_equal(false, false)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 17, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 17, + 2 + ] + } + }); } if (bool_equal(true, false)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 18, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 18, + 2 + ] + } + }); } if (bool_equal(false, true)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 19, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 19, + 2 + ] + } + }); } } diff --git a/jscomp/test/test_closure.js b/jscomp/test/test_closure.js index a9d1b9d69f..379788cb56 100644 --- a/jscomp/test/test_closure.js +++ b/jscomp/test/test_closure.js @@ -30,15 +30,16 @@ $$Array.iter((function (x) { }), u); if (v.contents !== 45) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_closure.res", - 52, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_closure.res", + 52, + 2 + ] + } + }); } exports.v = v; diff --git a/jscomp/test/test_exception.js b/jscomp/test/test_exception.js index 106d3e9d36..c6d2201a06 100644 --- a/jscomp/test/test_exception.js +++ b/jscomp/test/test_exception.js @@ -7,41 +7,46 @@ var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); var Local = /* @__PURE__ */Caml_exceptions.create("Test_exception.Local"); function f(param) { - throw { - RE_EXN_ID: Local, - _1: 3, - Error: new Error() - }; + throw new Error(Local, { + cause: { + RE_EXN_ID: Local, + _1: 3 + } + }); } function g(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function h(param) { - throw { - RE_EXN_ID: Test_common.U, - _1: 3, - Error: new Error() - }; + throw new Error(Test_common.U, { + cause: { + RE_EXN_ID: Test_common.U, + _1: 3 + } + }); } function x(param) { - throw { - RE_EXN_ID: Test_common.H, - Error: new Error() - }; + throw new Error(Test_common.H, { + cause: { + RE_EXN_ID: Test_common.H + } + }); } function xx(param) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "x", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "x" + } + }); } var Nullary = /* @__PURE__ */Caml_exceptions.create("Test_exception.Nullary"); diff --git a/jscomp/test/test_exception_escape.js b/jscomp/test/test_exception_escape.js index 23d380f7d7..b7abf5bd60 100644 --- a/jscomp/test/test_exception_escape.js +++ b/jscomp/test/test_exception_escape.js @@ -8,11 +8,12 @@ var A = /* @__PURE__ */Caml_exceptions.create("Test_exception_escape.N.A"); var f; try { - throw { - RE_EXN_ID: A, - _1: 3, - Error: new Error() - }; + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 3 + } + }); } catch (exn){ f = 3; diff --git a/jscomp/test/test_for_map.js b/jscomp/test/test_for_map.js index 3e2f06acf9..a80558497f 100644 --- a/jscomp/test/test_for_map.js +++ b/jscomp/test/test_for_map.js @@ -44,11 +44,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -60,11 +61,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -77,11 +79,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -93,11 +96,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -158,10 +162,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.int_compare(x, param.v); if (c === 0) { @@ -176,10 +181,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -253,10 +259,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -360,10 +367,11 @@ function min_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -399,10 +407,11 @@ function max_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -436,11 +445,12 @@ function max_binding_opt(_param) { function remove_min_binding(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -744,15 +754,16 @@ function merge$1(f, s1, s2) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/jscomp/test/test_incomplete.js b/jscomp/test/test_incomplete.js index d9a2d21459..832981b722 100644 --- a/jscomp/test/test_incomplete.js +++ b/jscomp/test/test_incomplete.js @@ -6,15 +6,16 @@ function f(x) { if (!(x > 3 || x < 1)) { return /* 'a' */97; } - throw { - RE_EXN_ID: "Match_failure", - _1: [ - "test_incomplete.res", - 3, - 2 - ], - Error: new Error() - }; + throw new Error("Match_failure", { + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "test_incomplete.res", + 3, + 2 + ] + } + }); } function f2(x) { diff --git a/jscomp/test/test_int_map_find.js b/jscomp/test/test_int_map_find.js index 44bcc8a15d..023d5fb107 100644 --- a/jscomp/test/test_int_map_find.js +++ b/jscomp/test/test_int_map_find.js @@ -32,11 +32,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -48,11 +49,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -65,11 +67,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -81,11 +84,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { diff --git a/jscomp/test/test_list.js b/jscomp/test/test_list.js index 9ce963aaf7..1cf27806ca 100644 --- a/jscomp/test/test_list.js +++ b/jscomp/test/test_list.js @@ -27,31 +27,34 @@ function hd(x) { if (x) { return x.hd; } - throw { - RE_EXN_ID: "Failure", - _1: "hd", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(x) { if (x) { return x.tl; } - throw { - RE_EXN_ID: "Failure", - _1: "tl", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -66,11 +69,12 @@ function nth(l, n) { _l = l$1.tl; continue ; } - throw { - RE_EXN_ID: "Failure", - _1: "nth", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } @@ -204,20 +208,22 @@ function map2(f, l1, l2) { tl: map2(f, l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { @@ -238,18 +244,20 @@ function rev_map2(f, l1, l2) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -266,20 +274,22 @@ function iter2(f, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { return ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } @@ -295,18 +305,20 @@ function fold_left2(f, _accu, _l1, _l2) { _accu = Curry._3(f, accu, l1.hd, l2.hd); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -317,18 +329,20 @@ function fold_right2(f, l1, l2, accu) { if (l2) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -374,20 +388,22 @@ function for_all2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } @@ -404,20 +420,22 @@ function exists2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } @@ -460,10 +478,11 @@ function assoc(x, _x_) { _x_ = x_.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -478,10 +497,11 @@ function assq(x, _x_) { _x_ = x_.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -556,10 +576,11 @@ function find(p, _x) { _x = x.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -654,20 +675,22 @@ function combine(l1, l2) { tl: combine(l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -704,15 +727,16 @@ function chop(_k, _l) { _k = k - 1 | 0; continue ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_list.res", - 343, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_list.res", + 343, + 11 + ] + } + }); }; } diff --git a/jscomp/test/test_match_exception.js b/jscomp/test/test_match_exception.js index bade3d290b..ab70114b53 100644 --- a/jscomp/test/test_match_exception.js +++ b/jscomp/test/test_match_exception.js @@ -13,7 +13,9 @@ function f(g, x) { if (exn.RE_EXN_ID === "Not_found") { return 3; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/jscomp/test/test_per.js b/jscomp/test/test_per.js index 27edfb87f7..882b5a42a5 100644 --- a/jscomp/test/test_per.js +++ b/jscomp/test/test_per.js @@ -17,19 +17,21 @@ Caml_external_polyfill.resolve("register_named_value")("Pervasives.array_bound_e }); function failwith(s) { - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } var Exit = /* @__PURE__ */Caml_exceptions.create("Test_per.Exit"); @@ -105,11 +107,12 @@ function $caret(s1, s2) { function char_of_int(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -129,11 +132,12 @@ function bool_of_string(x) { case "true" : return true; default: - throw { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -244,22 +248,24 @@ function output_string(oc, s) { function output(oc, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "output", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "output" + } + }); } Caml_external_polyfill.resolve("ml_output")(oc, s, ofs, len); } function output_substring(oc, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "output_substring", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "output_substring" + } + }); } Caml_external_polyfill.resolve("ml_output")(oc, s, ofs, len); } @@ -314,11 +320,12 @@ function open_in_bin(name) { function input(ic, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "input", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "input" + } + }); } return Caml_external_polyfill.resolve("ml_input")(ic, s, ofs, len); } @@ -332,10 +339,11 @@ function unsafe_really_input(ic, s, _ofs, _len) { } var r = Caml_external_polyfill.resolve("ml_input")(ic, s, ofs, len); if (r === 0) { - throw { - RE_EXN_ID: "End_of_file", - Error: new Error() - }; + throw new Error("End_of_file", { + cause: { + RE_EXN_ID: "End_of_file" + } + }); } _len = len - r | 0; _ofs = ofs + r | 0; @@ -345,11 +353,12 @@ function unsafe_really_input(ic, s, _ofs, _len) { function really_input(ic, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "really_input", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "really_input" + } + }); } unsafe_really_input(ic, s, ofs, len); } @@ -386,10 +395,11 @@ function input_line(chan) { if (accu) { return build_result(Caml_bytes.create(len), len, accu); } - throw { - RE_EXN_ID: "End_of_file", - Error: new Error() - }; + throw new Error("End_of_file", { + cause: { + RE_EXN_ID: "End_of_file" + } + }); } if (n > 0) { var res = Caml_bytes.create(n - 1 | 0); diff --git a/jscomp/test/test_seq.js b/jscomp/test/test_seq.js index 2c9252d100..22aaa15933 100644 --- a/jscomp/test/test_seq.js +++ b/jscomp/test/test_seq.js @@ -24,22 +24,24 @@ function assoc3(x, _l) { _l = l.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function help_action(param) { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function v(speclist) { @@ -72,7 +74,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } var add2; @@ -95,7 +99,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); diff --git a/jscomp/test/test_set.js b/jscomp/test/test_set.js index 3a494d2114..9a2e2fcd15 100644 --- a/jscomp/test/test_set.js +++ b/jscomp/test/test_set.js @@ -32,11 +32,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r._3; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l._2; var lv = l._1; @@ -47,11 +48,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, lr._0), lr._1, create(lr._2, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r._2; var rv = r._1; @@ -78,11 +81,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, v, rl._0), rl._1, create(rl._2, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, x_) { if (typeof x_ !== "object") { @@ -150,10 +154,11 @@ function Make(Ord) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -167,10 +172,11 @@ function Make(Ord) { while(true) { var x = _x; if (typeof x !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = x._2; if (typeof r !== "object") { @@ -182,11 +188,12 @@ function Make(Ord) { }; var remove_min_elt = function (x) { if (typeof x !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = x._0; if (typeof l !== "object") { @@ -566,10 +573,11 @@ function Make(Ord) { while(true) { var x_ = _x_; if (typeof x_ !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = x_._1; var c = Curry._2(Ord.compare, x, v); @@ -673,15 +681,16 @@ function Make(Ord) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_set.res", - 497, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_set.res", + 497, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; diff --git a/jscomp/test/test_static_catch_ident.js b/jscomp/test/test_static_catch_ident.js index 6e9819d858..4115c99e90 100644 --- a/jscomp/test/test_static_catch_ident.js +++ b/jscomp/test/test_static_catch_ident.js @@ -10,7 +10,9 @@ function scanf_bad_input(ib, x) { if (x.RE_EXN_ID === Scan_failure || x.RE_EXN_ID === "Failure") { s = x._1; } else { - throw x; + throw new Error(x.RE_EXN_ID, { + cause: x + }); } for(var i = 0; i <= 100; ++i){ console.log(s); diff --git a/jscomp/test/test_string.js b/jscomp/test/test_string.js index 301f0341f1..bce3136baa 100644 --- a/jscomp/test/test_string.js +++ b/jscomp/test/test_string.js @@ -11,15 +11,16 @@ function f(x) { case "bbbb" : return 1; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_string.res", - 5, - 17 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_string.res", + 5, + 17 + ] + } + }); } } diff --git a/jscomp/test/test_string_case.js b/jscomp/test/test_string_case.js index 617b1d1260..26155e430f 100644 --- a/jscomp/test/test_string_case.js +++ b/jscomp/test/test_string_case.js @@ -9,15 +9,16 @@ function f(x) { case "bcde" : return 1; default: - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_string_case.res", - 5, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_string_case.res", + 5, + 9 + ] + } + }); } } diff --git a/jscomp/test/test_string_const.js b/jscomp/test/test_string_const.js index 78cce05d5c..61da165993 100644 --- a/jscomp/test/test_string_const.js +++ b/jscomp/test/test_string_const.js @@ -17,7 +17,9 @@ catch (raw_e){ console.log(e._1); hh = /* 'a' */97; } else { - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } } diff --git a/jscomp/test/test_string_map.js b/jscomp/test/test_string_map.js index b74952007f..63025d8a2c 100644 --- a/jscomp/test/test_string_map.js +++ b/jscomp/test/test_string_map.js @@ -32,11 +32,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -48,11 +49,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -65,11 +67,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -81,11 +84,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { @@ -138,10 +142,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml.string_compare(x, param.v); if (c === 0) { diff --git a/jscomp/test/test_trywith.js b/jscomp/test/test_trywith.js index efba275edf..dd860c7889 100644 --- a/jscomp/test/test_trywith.js +++ b/jscomp/test/test_trywith.js @@ -20,7 +20,9 @@ function ff(g, x) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID !== "Not_found") { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -30,7 +32,9 @@ function ff(g, x) { catch (raw_exn$1){ var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID !== Out_of_memory) { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } @@ -40,7 +44,9 @@ function ff(g, x) { catch (raw_exn$2){ var exn$2 = Caml_js_exceptions.internalToOCamlException(raw_exn$2); if (exn$2.RE_EXN_ID !== Sys_error) { - throw exn$2; + throw new Error(exn$2.RE_EXN_ID, { + cause: exn$2 + }); } } @@ -50,7 +56,9 @@ function ff(g, x) { catch (raw_exn$3){ var exn$3 = Caml_js_exceptions.internalToOCamlException(raw_exn$3); if (exn$3.RE_EXN_ID !== "Invalid_argument") { - throw exn$3; + throw new Error(exn$3.RE_EXN_ID, { + cause: exn$3 + }); } } @@ -60,7 +68,9 @@ function ff(g, x) { catch (raw_exn$4){ var exn$4 = Caml_js_exceptions.internalToOCamlException(raw_exn$4); if (exn$4.RE_EXN_ID !== "End_of_file") { - throw exn$4; + throw new Error(exn$4.RE_EXN_ID, { + cause: exn$4 + }); } } @@ -70,7 +80,9 @@ function ff(g, x) { catch (raw_exn$5){ var exn$5 = Caml_js_exceptions.internalToOCamlException(raw_exn$5); if (exn$5.RE_EXN_ID !== "Match_failure") { - throw exn$5; + throw new Error(exn$5.RE_EXN_ID, { + cause: exn$5 + }); } } @@ -80,7 +92,9 @@ function ff(g, x) { catch (raw_exn$6){ var exn$6 = Caml_js_exceptions.internalToOCamlException(raw_exn$6); if (exn$6.RE_EXN_ID !== Stack_overflow) { - throw exn$6; + throw new Error(exn$6.RE_EXN_ID, { + cause: exn$6 + }); } } @@ -90,7 +104,9 @@ function ff(g, x) { catch (raw_exn$7){ var exn$7 = Caml_js_exceptions.internalToOCamlException(raw_exn$7); if (exn$7.RE_EXN_ID !== Sys_blocked_io) { - throw exn$7; + throw new Error(exn$7.RE_EXN_ID, { + cause: exn$7 + }); } } @@ -100,7 +116,9 @@ function ff(g, x) { catch (raw_exn$8){ var exn$8 = Caml_js_exceptions.internalToOCamlException(raw_exn$8); if (exn$8.RE_EXN_ID !== "Assert_failure") { - throw exn$8; + throw new Error(exn$8.RE_EXN_ID, { + cause: exn$8 + }); } } @@ -112,15 +130,18 @@ function ff(g, x) { if (exn$9.RE_EXN_ID === "Undefined_recursive_module") { return ; } - throw exn$9; + throw new Error(exn$9.RE_EXN_ID, { + cause: exn$9 + }); } } function u(param) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function f(x) { @@ -130,15 +151,16 @@ function f(x) { if (x.TAG === "D") { return 1; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_trywith.res", - 59, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_trywith.res", + 59, + 9 + ] + } + }); } var u1 = "bad character decimal encoding \\"; diff --git a/jscomp/test/test_unsupported_primitive.js b/jscomp/test/test_unsupported_primitive.js index a6d27287b5..30f79ace3e 100644 --- a/jscomp/test/test_unsupported_primitive.js +++ b/jscomp/test/test_unsupported_primitive.js @@ -5,11 +5,12 @@ var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); function to_buffer(buff, ofs, len, v, flags) { if (ofs < 0 || len < 0 || ofs > (buff.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.to_buffer: substring out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.to_buffer: substring out of bounds" + } + }); } return Caml_external_polyfill.resolve("caml_output_value_to_buffer")(buff, ofs, len, v, flags); } diff --git a/jscomp/test/test_while_closure.js b/jscomp/test/test_while_closure.js index 430c53070d..a8160a0aa8 100644 --- a/jscomp/test/test_while_closure.js +++ b/jscomp/test/test_while_closure.js @@ -35,15 +35,16 @@ $$Array.iter((function (x) { console.log(String(v.contents)); if (v.contents !== 45) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_while_closure.res", - 55, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_while_closure.res", + 55, + 2 + ] + } + }); } var count = 10; diff --git a/jscomp/test/ticker.js b/jscomp/test/ticker.js index 7ba853fbeb..04cf4a6aa9 100644 --- a/jscomp/test/ticker.js +++ b/jscomp/test/ticker.js @@ -34,7 +34,9 @@ function split(delim, s) { tl: l }; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } var l_0 = $$String.sub(s, i$p + 1 | 0, (x - i$p | 0) - 1 | 0); var l$1 = { @@ -134,11 +136,12 @@ function bal(l, x, d, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -150,11 +153,12 @@ function bal(l, x, d, r) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -167,11 +171,12 @@ function bal(l, x, d, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -183,11 +188,12 @@ function bal(l, x, d, r) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -248,10 +254,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml_obj.compare(x, param.v); if (c === 0) { @@ -266,10 +273,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -343,10 +351,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -450,10 +459,11 @@ function min_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -489,10 +499,11 @@ function max_binding(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -526,11 +537,12 @@ function max_binding_opt(_param) { function remove_min_binding(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -834,15 +846,16 @@ function merge$1(f, s1, s2) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split$1(v2, s1); @@ -1150,34 +1163,38 @@ function compute_update_sequences(all_tickers) { var x = lhs.rank; if (typeof x !== "object") { if (x === "Uninitialized") { - throw { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); } - throw { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); } else { var y = rhs.rank; if (typeof y === "object") { return Caml.int_compare(x._0, y._0); } if (y === "Uninitialized") { - throw { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); } - throw { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); } }), l); return add(k, l$1, map); @@ -1193,11 +1210,12 @@ function process_quote(ticker_map, new_ticker, new_value) { ticker.value = new_value; return ; } - throw { - RE_EXN_ID: "Failure", - _1: "Only single Market ticker should be udpated upon a new quote", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Only single Market ticker should be udpated upon a new quote" + } + }); } var match$1 = match._0; var match$2 = match$1.lhs.value; @@ -1236,11 +1254,12 @@ function process_input_line(ticker_map, all_tickers, line) { var match$1 = match.tl; if (match$1) { if (match$1.tl) { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } var ticker_map$1 = ticker_map !== undefined ? Caml_option.valFromOption(ticker_map) : compute_update_sequences(all_tickers); var value = Caml_format.float_of_string(match$1.hd); @@ -1250,17 +1269,19 @@ function process_input_line(ticker_map, all_tickers, line) { Caml_option.some(ticker_map$1) ]; } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "R" : var match$2 = tokens.tl; if (match$2) { @@ -1274,11 +1295,12 @@ function process_input_line(ticker_map, all_tickers, line) { var match$5 = match$4.tl; if (match$5) { if (match$5.tl) { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } return [ { @@ -1288,28 +1310,31 @@ function process_input_line(ticker_map, all_tickers, line) { ticker_map ]; } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "-" : var match$6 = match$3.tl; if (match$6) { var match$7 = match$6.tl; if (match$7) { if (match$7.tl) { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } return [ { @@ -1319,24 +1344,27 @@ function process_input_line(ticker_map, all_tickers, line) { ticker_map ]; } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "S" : if (match$3.tl) { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } return [ { @@ -1351,39 +1379,44 @@ function process_input_line(ticker_map, all_tickers, line) { ticker_map ]; default: - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } else { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } else { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } default: - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } else { - throw { - RE_EXN_ID: "Failure", - _1: "Invalid input line", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } diff --git a/jscomp/test/topsort_test.js b/jscomp/test/topsort_test.js index 99cc0d59e1..3970cbe202 100644 --- a/jscomp/test/topsort_test.js +++ b/jscomp/test/topsort_test.js @@ -122,15 +122,16 @@ if (!Caml_obj.equal(dfs1({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 35, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 35, + 2 + ] + } + }); } console.log(""); @@ -160,15 +161,16 @@ if (!Caml_obj.equal(dfs1({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 38, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 38, + 2 + ] + } + }); } function dfs2(nodes, graph, visited) { @@ -221,15 +223,16 @@ if (!Caml_obj.equal(dfs2({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 57, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 57, + 2 + ] + } + }); } if (!Caml_obj.equal(dfs2({ @@ -257,15 +260,16 @@ if (!Caml_obj.equal(dfs2({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 58, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 58, + 2 + ] + } + }); } function dfs3(nodes, graph) { @@ -315,15 +319,16 @@ if (!Caml_obj.equal(dfs3({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 74, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 74, + 2 + ] + } + }); } if (!Caml_obj.equal(dfs3({ @@ -351,15 +356,16 @@ if (!Caml_obj.equal(dfs3({ } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 75, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 75, + 2 + ] + } + }); } var grwork = { @@ -440,15 +446,16 @@ if (!Caml_obj.equal(unsafe_topsort(grwork), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 112, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 112, + 9 + ] + } + }); } function height(param) { @@ -480,11 +487,12 @@ function bal(l, v, r) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -495,11 +503,12 @@ function bal(l, v, r) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -511,11 +520,12 @@ function bal(l, v, r) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -526,11 +536,12 @@ function bal(l, v, r) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { @@ -614,10 +625,11 @@ function min_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -647,10 +659,11 @@ function max_elt(_param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -678,11 +691,12 @@ function max_elt_opt(_param) { function remove_min_elt(param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -1096,10 +1110,11 @@ function find(x, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Caml.string_compare(x, v); @@ -1115,10 +1130,11 @@ function find_first(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1180,10 +1196,11 @@ function find_last(f, _param) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1392,15 +1409,16 @@ function of_list(l) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -1463,14 +1481,15 @@ function pathsort(graph) { var stack = param[1]; var set = param[0]; if (mem(node, set)) { - throw { - RE_EXN_ID: Cycle, - _1: { - hd: node, - tl: stack - }, - Error: new Error() - }; + throw new Error(Cycle, { + cause: { + RE_EXN_ID: Cycle, + _1: { + hd: node, + tl: stack + } + } + }); } return [ add(node, set), @@ -1521,15 +1540,16 @@ if (!Caml_obj.equal(pathsort(grwork), { } } })) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 144, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 144, + 9 + ] + } + }); } try { @@ -1540,15 +1560,16 @@ try { ], tl: grwork }); - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 148, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 148, + 2 + ] + } + }); } catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); @@ -1578,15 +1599,16 @@ catch (raw_exn){ exit = 1; } if (exit === 1) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 151, - 7 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 151, + 7 + ] + } + }); } } diff --git a/jscomp/test/uncurried_cast.js b/jscomp/test/uncurried_cast.js index 0e633f6d80..716ff1cf2e 100644 --- a/jscomp/test/uncurried_cast.js +++ b/jscomp/test/uncurried_cast.js @@ -6,7 +6,9 @@ var Belt_List = require("../../lib/js/belt_List.js"); var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); function raise(e) { - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } var map = Belt_List.mapU; @@ -23,10 +25,11 @@ var Uncurried = { var E = /* @__PURE__ */Caml_exceptions.create("Uncurried_cast.E"); function testRaise(param) { - throw { - RE_EXN_ID: E, - Error: new Error() - }; + throw new Error(E, { + cause: { + RE_EXN_ID: E + } + }); } var l = Belt_List.mapU({ @@ -78,10 +81,11 @@ var StandardNotation = { }; function testRaise$1() { - throw { - RE_EXN_ID: E, - Error: new Error() - }; + throw new Error(E, { + cause: { + RE_EXN_ID: E + } + }); } var l$1 = Belt_List.mapU({ diff --git a/jscomp/test/variant.js b/jscomp/test/variant.js index dfdf63037a..c57f6b7dc6 100644 --- a/jscomp/test/variant.js +++ b/jscomp/test/variant.js @@ -97,7 +97,9 @@ function rollback_path(subst, p) { } } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } } @@ -134,7 +136,9 @@ function fooExn(f) { var match = n._1; return match[0] + match[1] | 0; } - throw n; + throw new Error(n.RE_EXN_ID, { + cause: n + }); } } diff --git a/lib/es6/arg.js b/lib/es6/arg.js index 082ea58bec..6015cefd07 100644 --- a/lib/es6/arg.js +++ b/lib/es6/arg.js @@ -32,10 +32,11 @@ function assoc3(x, _l) { _l = l.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -59,14 +60,15 @@ function make_symlist(prefix, sep, suffix, l) { } function help_action(param) { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function add_help(speclist) { @@ -90,7 +92,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } var add2; @@ -113,7 +117,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); @@ -159,7 +165,9 @@ function bool_of_string_opt(x) { if (exn.RE_EXN_ID === "Invalid_argument") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -172,7 +180,9 @@ function int_of_string_opt(x) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -185,7 +195,9 @@ function float_of_string_opt(x) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -260,19 +272,24 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist catch (raw_exn$1){ var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: s - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: s + } + } + }); } - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } var follow = match[1]; @@ -281,16 +298,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (follow === undefined) { return ; } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: follow, - _2: "no argument" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: follow, + _2: "no argument" + } + } + }); } }(s,follow)); var get_arg = (function(s,follow){ @@ -301,14 +319,15 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if ((current.contents + 1 | 0) < argv.contents.length) { return Caml_array.get(argv.contents, current.contents + 1 | 0); } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Missing", - _0: s - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Missing", + _0: s + } + } + }); } }(s,follow)); var consume_arg = (function(follow){ @@ -332,16 +351,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (s$1 !== undefined) { Curry._1(f._0, s$1); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg, - _2: "a boolean" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg, + _2: "a boolean" + } + } + }); } return consume_arg(); case "Set" : @@ -365,16 +385,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x !== undefined) { Curry._1(f._0, x); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$2, - _2: "an integer" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$2, + _2: "an integer" + } + } + }); } return consume_arg(); case "Set_int" : @@ -383,16 +404,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$1 !== undefined) { f._0.contents = x$1; } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$3, - _2: "an integer" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$3, + _2: "an integer" + } + } + }); } return consume_arg(); case "Float" : @@ -401,16 +423,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$2 !== undefined) { Curry._1(f._0, x$2); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$4, - _2: "a float" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$4, + _2: "a float" + } + } + }); } return consume_arg(); case "Set_float" : @@ -419,16 +442,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$3 !== undefined) { f._0.contents = x$3; } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$5, - _2: "a float" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$5, + _2: "a float" + } + } + }); } return consume_arg(); case "Tuple" : @@ -440,16 +464,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist Curry._1(f._1, arg$6); return consume_arg(); } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$6, - _2: "one of: " + make_symlist("", " ", "", symb) - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$6, + _2: "one of: " + make_symlist("", " ", "", symb) + } + } + }); case "Rest" : var f$1 = f._0; while(current.contents < (argv.contents.length - 1 | 0)) { @@ -459,11 +484,12 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist return ; case "Expand" : if (!allow_expand) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" + } + }); } var arg$7 = get_arg(); var newarg = Curry._1(f._0, arg$7); @@ -493,15 +519,24 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist catch (raw_m){ var m = Caml_js_exceptions.internalToOCamlException(raw_m); if (m.RE_EXN_ID === Bad) { - throw convert_error({ - TAG: "Message", - _0: m._1 + throw new Error(convert_error({ + TAG: "Message", + _0: m._1 + }).RE_EXN_ID, { + cause: convert_error({ + TAG: "Message", + _0: m._1 + }) }); } if (m.RE_EXN_ID === Stop) { - throw convert_error(m._1); + throw new Error(convert_error(m._1).RE_EXN_ID, { + cause: convert_error(m._1) + }); } - throw m; + throw new Error(m.RE_EXN_ID, { + cause: m + }); } current.contents = current.contents + 1 | 0; }; @@ -539,7 +574,9 @@ function parse(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -557,7 +594,9 @@ function parse_dynamic(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -584,7 +623,9 @@ function parse_expand(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -621,14 +662,18 @@ function second_word(s) { if (exn$1.RE_EXN_ID === "Not_found") { return len; } - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } if (exit === 2) { return loop(n$1 + 1 | 0); } } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } return loop(n + 1 | 0); diff --git a/lib/es6/array.js b/lib/es6/array.js index a471786c33..55ca0bc350 100644 --- a/lib/es6/array.js +++ b/lib/es6/array.js @@ -15,11 +15,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, Curry._1(f, 0)); for(var i = 1; i < l; ++i){ @@ -58,22 +59,24 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; @@ -82,11 +85,12 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } @@ -99,11 +103,12 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); @@ -126,11 +131,12 @@ function map2(f, a, b) { var la = a.length; var lb = b.length; if (la !== lb) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; @@ -312,11 +318,12 @@ function sort(cmp, a) { if (i31 < l) { return i31; } - throw { - RE_EXN_ID: Bottom, - _1: i, - Error: new Error() - }; + throw new Error(Bottom, { + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; var trickle = function (l, i, e) { try { @@ -337,7 +344,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var bubble = function (l, i) { @@ -356,7 +365,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var trickleup = function (_i, e) { @@ -364,15 +375,16 @@ function sort(cmp, a) { var i = _i; var father = (i - 1 | 0) / 3 | 0; if (i === father) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "array.res", - 321, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "array.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); diff --git a/lib/es6/arrayLabels.js b/lib/es6/arrayLabels.js index 6b2e0e47c0..72ebd1e9d8 100644 --- a/lib/es6/arrayLabels.js +++ b/lib/es6/arrayLabels.js @@ -15,11 +15,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, Curry._1(f, 0)); for(var i = 1; i < l; ++i){ @@ -58,22 +59,24 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; @@ -82,11 +85,12 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } @@ -99,11 +103,12 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); @@ -126,11 +131,12 @@ function map2(f, a, b) { var la = a.length; var lb = b.length; if (la !== lb) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; @@ -312,11 +318,12 @@ function sort(cmp, a) { if (i31 < l) { return i31; } - throw { - RE_EXN_ID: Bottom, - _1: i, - Error: new Error() - }; + throw new Error(Bottom, { + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; var trickle = function (l, i, e) { try { @@ -337,7 +344,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var bubble = function (l, i) { @@ -356,7 +365,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var trickleup = function (_i, e) { @@ -364,15 +375,16 @@ function sort(cmp, a) { var i = _i; var father = (i - 1 | 0) / 3 | 0; if (i === father) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "arrayLabels.res", - 321, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "arrayLabels.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); diff --git a/lib/es6/belt_Array.js b/lib/es6/belt_Array.js index 899f399609..2e4495289b 100644 --- a/lib/es6/belt_Array.js +++ b/lib/es6/belt_Array.js @@ -14,15 +14,16 @@ function get(arr, i) { function getExn(arr, i) { if (!(i >= 0 && i < arr.length)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 36, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 36, + 2 + ] + } + }); } return arr[i]; } @@ -38,15 +39,16 @@ function set(arr, i, v) { function setExn(arr, i, v) { if (!(i >= 0 && i < arr.length)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 49, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 49, + 2 + ] + } + }); } arr[i] = v; } diff --git a/lib/es6/belt_List.js b/lib/es6/belt_List.js index 2b1e59ea52..f47751ab16 100644 --- a/lib/es6/belt_List.js +++ b/lib/es6/belt_List.js @@ -16,10 +16,11 @@ function headExn(x) { if (x) { return x.hd; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function tail(x) { @@ -33,10 +34,11 @@ function tailExn(x) { if (x) { return x.tl; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function add(xs, x) { @@ -70,10 +72,11 @@ function get(x, n) { function getExn(x, n) { if (n < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var _x = x; var _n = n; @@ -88,10 +91,11 @@ function getExn(x, n) { _x = x$1.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_MutableQueue.js b/lib/es6/belt_MutableQueue.js index eca9b3e272..805a77c683 100644 --- a/lib/es6/belt_MutableQueue.js +++ b/lib/es6/belt_MutableQueue.js @@ -55,10 +55,11 @@ function peekExn(q) { if (v !== undefined) { return v.content; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function pop(q) { @@ -90,10 +91,11 @@ function popExn(q) { return x.content; } } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function popUndefined(q) { diff --git a/lib/es6/belt_Option.js b/lib/es6/belt_Option.js index 44fe68a886..77eafc60ba 100644 --- a/lib/es6/belt_Option.js +++ b/lib/es6/belt_Option.js @@ -29,10 +29,11 @@ function getExn(x) { if (x !== undefined) { return Caml_option.valFromOption(x); } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { diff --git a/lib/es6/belt_Result.js b/lib/es6/belt_Result.js index f31cdd5511..907f7c26ce 100644 --- a/lib/es6/belt_Result.js +++ b/lib/es6/belt_Result.js @@ -6,10 +6,11 @@ function getExn(x) { if (x.TAG === "Ok") { return x._0; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { diff --git a/lib/es6/belt_internalAVLset.js b/lib/es6/belt_internalAVLset.js index fa889cc4be..7dc0735f75 100644 --- a/lib/es6/belt_internalAVLset.js +++ b/lib/es6/belt_internalAVLset.js @@ -370,15 +370,16 @@ function checkInvariantInternal(_v) { r !== undefined ? r.h : 0 ) | 0; if (!(diff <= 2 && diff >= -2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLset.res", - 319, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLset.res", + 319, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; @@ -732,10 +733,11 @@ function getExn(_n, x, cmp) { _n = c < 0 ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_internalAVLtree.js b/lib/es6/belt_internalAVLtree.js index b3ec80eaff..6d8a3c0f01 100644 --- a/lib/es6/belt_internalAVLtree.js +++ b/lib/es6/belt_internalAVLtree.js @@ -587,15 +587,16 @@ function checkInvariantInternal(_v) { var r = v.r; var diff = treeHeight(l) - treeHeight(r) | 0; if (!(diff <= 2 && diff >= -2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLtree.res", - 457, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLtree.res", + 457, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; @@ -897,10 +898,11 @@ function getExn(_n, x, cmp) { _n = c < 0 ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_internalMapInt.js b/lib/es6/belt_internalMapInt.js index e8eb3b07d4..30bf6faeb4 100644 --- a/lib/es6/belt_internalMapInt.js +++ b/lib/es6/belt_internalMapInt.js @@ -63,10 +63,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_internalMapString.js b/lib/es6/belt_internalMapString.js index 8c0a4c3703..956473e5e3 100644 --- a/lib/es6/belt_internalMapString.js +++ b/lib/es6/belt_internalMapString.js @@ -63,10 +63,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_internalSetInt.js b/lib/es6/belt_internalSetInt.js index 6a271f0021..2747483bd5 100644 --- a/lib/es6/belt_internalSetInt.js +++ b/lib/es6/belt_internalSetInt.js @@ -141,10 +141,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/belt_internalSetString.js b/lib/es6/belt_internalSetString.js index bd5096a72d..04a2218fd2 100644 --- a/lib/es6/belt_internalSetString.js +++ b/lib/es6/belt_internalSetString.js @@ -141,10 +141,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/es6/buffer.js b/lib/es6/buffer.js index 8ef660ca24..6018bb6e53 100644 --- a/lib/es6/buffer.js +++ b/lib/es6/buffer.js @@ -27,33 +27,36 @@ function to_bytes(b) { function sub(b, ofs, len) { if (ofs < 0 || len < 0 || ofs > (b.position - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.sub" + } + }); } return Bytes.sub_string(b.buffer, ofs, len); } function blit(src, srcoff, dst, dstoff, len) { if (len < 0 || srcoff < 0 || srcoff > (src.position - len | 0) || dstoff < 0 || dstoff > (dst.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.blit" + } + }); } Bytes.blit(src.buffer, srcoff, dst, dstoff, len); } function nth(b, ofs) { if (ofs < 0 || ofs >= b.position) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.nth" + } + }); } return b.buffer[ofs]; } @@ -96,15 +99,16 @@ function add_char(b, c) { function add_utf_8_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 98, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 98, + 18 + ] + } + }); } if (u$1 <= 127) { return add_char(b, u$1); @@ -142,29 +146,31 @@ function add_utf_8_uchar(b, u) { b.position = pos$2 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 127, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 127, + 9 + ] + } + }); } function add_utf_16be_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 132, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 132, + 18 + ] + } + }); } if (u$1 <= 65535) { var pos = b.position; @@ -191,29 +197,31 @@ function add_utf_16be_uchar(b, u) { b.position = pos$1 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 154, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 154, + 9 + ] + } + }); } function add_utf_16le_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 159, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 159, + 18 + ] + } + }); } if (u$1 <= 65535) { var pos = b.position; @@ -240,24 +248,26 @@ function add_utf_16le_uchar(b, u) { b.position = pos$1 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 181, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 181, + 9 + ] + } + }); } function add_substring(b, s, offset, len) { if (offset < 0 || len < 0 || offset > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.add_substring/add_subbytes", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.add_substring/add_subbytes" + } + }); } var new_position = b.position + len | 0; if (new_position > b.length) { @@ -296,15 +306,16 @@ function closing(param) { if (param === 123) { return /* '}' */125; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 216, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 216, + 9 + ] + } + }); } function advance_to_closing(opening, closing, k, s, start) { @@ -315,10 +326,11 @@ function advance_to_closing(opening, closing, k, s, start) { var i = _i; var k$1 = _k; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (Caml_string.get(s, i) === opening) { _i = i + 1 | 0; @@ -372,10 +384,11 @@ function advance_to_non_alpha(s, start) { function find_ident(s, start, lim) { if (start >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml_string.get(s, start); if (c !== 40 && c !== 123) { @@ -443,11 +456,12 @@ function add_substitute(b, f, s) { function truncate(b, len) { if (len < 0 || len > b.position) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.truncate", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.truncate" + } + }); } b.position = len; } diff --git a/lib/es6/bytes.js b/lib/es6/bytes.js index c009825115..d69dfd9ef6 100644 --- a/lib/es6/bytes.js +++ b/lib/es6/bytes.js @@ -111,11 +111,12 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } var r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); @@ -138,21 +139,23 @@ function $plus$plus(a, b) { if (match$2) { return c; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } @@ -178,33 +181,36 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { return ; @@ -240,11 +246,12 @@ function ensure_ge(x, y) { if (x >= y) { return x; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { @@ -485,10 +492,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -523,11 +531,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -535,11 +544,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -548,10 +558,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -567,11 +578,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -596,11 +608,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -608,11 +621,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -623,7 +637,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -633,11 +649,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -648,7 +665,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/bytesLabels.js b/lib/es6/bytesLabels.js index c009825115..d69dfd9ef6 100644 --- a/lib/es6/bytesLabels.js +++ b/lib/es6/bytesLabels.js @@ -111,11 +111,12 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } var r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); @@ -138,21 +139,23 @@ function $plus$plus(a, b) { if (match$2) { return c; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } @@ -178,33 +181,36 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { return ; @@ -240,11 +246,12 @@ function ensure_ge(x, y) { if (x >= y) { return x; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { @@ -485,10 +492,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -523,11 +531,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -535,11 +544,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -548,10 +558,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -567,11 +578,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -596,11 +608,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -608,11 +621,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -623,7 +637,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -633,11 +649,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -648,7 +665,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/caml_array.js b/lib/es6/caml_array.js index a24867bfad..f72d0f6212 100644 --- a/lib/es6/caml_array.js +++ b/lib/es6/caml_array.js @@ -57,22 +57,24 @@ function concat(l) { function set(xs, index, newval) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } xs[index] = newval; } function get(xs, index) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return xs[index]; } diff --git a/lib/es6/caml_bytes.js b/lib/es6/caml_bytes.js index 757efb0b0f..9d167e3835 100644 --- a/lib/es6/caml_bytes.js +++ b/lib/es6/caml_bytes.js @@ -3,33 +3,36 @@ function set(s, i, ch) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } s[i] = ch; } function get(s, i) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s[i]; } function create(len) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.create", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.create" + } + }); } var result = new Array(len); for(var i = 0; i < len; ++i){ diff --git a/lib/es6/caml_format.js b/lib/es6/caml_format.js index e0452d321b..afde233833 100644 --- a/lib/es6/caml_format.js +++ b/lib/es6/caml_format.js @@ -136,11 +136,12 @@ function int_of_string(s) { var c = i < len ? s.codePointAt(i) : /* '\000' */0; var d = parse_digit(c); if (d < 0 || d >= base) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } var aux = function (_acc, _k) { while(true) { @@ -156,19 +157,21 @@ function int_of_string(s) { } var v = parse_digit(a); if (v < 0 || v >= base) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } var acc$1 = base * acc + v; if (acc$1 > threshold) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } _k = k + 1 | 0; _acc = acc$1; @@ -178,11 +181,12 @@ function int_of_string(s) { var res = match[1] * aux(d, i + 1 | 0); var or_res = res | 0; if (base === 10 && res !== or_res) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } return or_res; } @@ -222,11 +226,12 @@ function int64_of_string(s) { var c = i < len ? s.codePointAt(i) : /* '\000' */0; var d = Caml_int64.of_int32(parse_digit(c)); if (Caml.i64_lt(d, Caml_int64.zero) || Caml.i64_ge(d, base)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } var aux = function (_acc, _k) { while(true) { @@ -242,11 +247,12 @@ function int64_of_string(s) { } var v = Caml_int64.of_int32(parse_digit(a)); if (Caml.i64_lt(v, Caml_int64.zero) || Caml.i64_ge(v, base) || Caml.i64_gt(acc, threshold)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } var acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); _k = k + 1 | 0; @@ -260,11 +266,12 @@ function int64_of_string(s) { 0, 10 ]) && Caml.i64_neq(res, or_res)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } return or_res; } @@ -292,11 +299,12 @@ function lowercase(c) { function parse_format(fmt) { var len = fmt.length; if (len > 31) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "format_int: format too long", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "format_int: format too long" + } + }); } var f = { justify: "+", @@ -796,7 +804,7 @@ var float_of_string = (function(s,exn){ return Infinity; if (/^-inf(inity)?$/i.test(s)) return -Infinity; - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn });; }); function float_of_string$1(s) { diff --git a/lib/es6/caml_int32.js b/lib/es6/caml_int32.js index cca893ac3b..99db89b3e6 100644 --- a/lib/es6/caml_int32.js +++ b/lib/es6/caml_int32.js @@ -3,20 +3,22 @@ function div(x, y) { if (y === 0) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y | 0; } function mod_(x, y) { if (y === 0) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } diff --git a/lib/es6/caml_int64.js b/lib/es6/caml_int64.js index 220d8eb25d..37594877d9 100644 --- a/lib/es6/caml_int64.js +++ b/lib/es6/caml_int64.js @@ -383,10 +383,11 @@ function div(_self, _other) { if (other[0] !== 0 || other[1] !== 0) { exit$1 = 2; } else { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } if (exit$1 === 2) { if (self_hi !== -2147483648) { diff --git a/lib/es6/caml_js_exceptions.js b/lib/es6/caml_js_exceptions.js index 00a007ab8f..6e66477be3 100644 --- a/lib/es6/caml_js_exceptions.js +++ b/lib/es6/caml_js_exceptions.js @@ -6,8 +6,8 @@ import * as Caml_exceptions from "./caml_exceptions.js"; var $$Error = "JsError"; function internalToOCamlException(e) { - if (Caml_exceptions.is_extension(e)) { - return e; + if (Caml_exceptions.is_extension(e.cause)) { + return e.cause; } else { return { RE_EXN_ID: "JsError", diff --git a/lib/es6/caml_lexer.js b/lib/es6/caml_lexer.js index 542de281be..479d82fcef 100644 --- a/lib/es6/caml_lexer.js +++ b/lib/es6/caml_lexer.js @@ -87,7 +87,7 @@ var caml_lex_engine_aux = (function (tbl, start_state, lexbuf, exn){ if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn + throw new Error(exn.RE_EXN_ID, { cause: exn }) else return lexbuf.lex_last_action; } @@ -222,7 +222,7 @@ var caml_new_lex_engine_aux = (function (tbl, start_state, lexbuf, exn) { if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn }); else return lexbuf.lex_last_action; } diff --git a/lib/es6/caml_module.js b/lib/es6/caml_module.js index 5ec8926a27..1d4e977e1b 100644 --- a/lib/es6/caml_module.js +++ b/lib/es6/caml_module.js @@ -4,11 +4,12 @@ import * as Caml_obj from "./caml_obj.js"; function init_mod(loc, shape) { var undef_module = function (param) { - throw { - RE_EXN_ID: "Undefined_recursive_module", - _1: loc, - Error: new Error() - }; + throw new Error("Undefined_recursive_module", { + cause: { + RE_EXN_ID: "Undefined_recursive_module", + _1: loc + } + }); }; var loop = function (shape, struct_, idx) { if (typeof shape !== "object") { @@ -80,15 +81,16 @@ function update_mod(shape, o, n) { } }; if (typeof shape !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } if (shape.TAG === "Module") { var comps = shape._0; @@ -99,15 +101,16 @@ function update_mod(shape, o, n) { } return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } export { diff --git a/lib/es6/caml_obj.js b/lib/es6/caml_obj.js index 786e24a71a..d6aa1ec9ce 100644 --- a/lib/es6/caml_obj.js +++ b/lib/es6/caml_obj.js @@ -55,11 +55,12 @@ function compare(a, b) { break; case "function" : if (b_type === "function") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "compare: functional value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "compare: functional value" + } + }); } break; case "number" : @@ -137,11 +138,12 @@ function compare(a, b) { return Caml.int_compare(a[1], b[1]); } if (tag_a === 251) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { if (tag_a < tag_b) { @@ -268,11 +270,12 @@ function equal(a, b) { } var b_type = typeof b; if (a_type === "function" || b_type === "function") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: functional value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: functional value" + } + }); } if (b_type === "number" || b_type === "bigint" || b_type === "undefined" || b === null) { return false; @@ -283,11 +286,12 @@ function equal(a, b) { return a[1] === b[1]; } if (tag_a === 251) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { return false; diff --git a/lib/es6/caml_string.js b/lib/es6/caml_string.js index af9d98bb4f..7c8ced30da 100644 --- a/lib/es6/caml_string.js +++ b/lib/es6/caml_string.js @@ -3,11 +3,12 @@ function get(s, i) { if (i >= s.length || i < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s.codePointAt(i); } diff --git a/lib/es6/caml_sys.js b/lib/es6/caml_sys.js index bcd9f422d4..35041b2011 100644 --- a/lib/es6/caml_sys.js +++ b/lib/es6/caml_sys.js @@ -3,19 +3,21 @@ function sys_getenv(s) { if (typeof process === "undefined" || process.env === undefined) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var x = process.env[s]; if (x !== undefined) { return x; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var os_type = (function(_){ @@ -71,19 +73,21 @@ function sys_exit(exit_code) { } function sys_is_directory(_s) { - throw { - RE_EXN_ID: "Failure", - _1: "sys_is_directory not implemented", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "sys_is_directory not implemented" + } + }); } function sys_file_exists(_s) { - throw { - RE_EXN_ID: "Failure", - _1: "sys_file_exists not implemented", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "sys_file_exists not implemented" + } + }); } export { diff --git a/lib/es6/camlinternalLazy.js b/lib/es6/camlinternalLazy.js index 697cd9e5de..dab7581979 100644 --- a/lib/es6/camlinternalLazy.js +++ b/lib/es6/camlinternalLazy.js @@ -16,10 +16,11 @@ function forward_with_closure(blk, closure) { } function raise_undefined() { - throw { - RE_EXN_ID: Undefined, - Error: new Error() - }; + throw new Error(Undefined, { + cause: { + RE_EXN_ID: Undefined + } + }); } function force(lzv) { @@ -33,9 +34,13 @@ function force(lzv) { } catch (e){ lzv.VAL = (function () { - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); }); - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } } } diff --git a/lib/es6/char.js b/lib/es6/char.js index 1b68800a58..4d11e15283 100644 --- a/lib/es6/char.js +++ b/lib/es6/char.js @@ -4,11 +4,12 @@ import * as Bytes from "./bytes.js"; function chr(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Char.chr", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Char.chr" + } + }); } return n; } diff --git a/lib/es6/digest.js b/lib/es6/digest.js index 9a65040d48..b34d80a6a9 100644 --- a/lib/es6/digest.js +++ b/lib/es6/digest.js @@ -17,11 +17,12 @@ function bytes(b) { function substring(str, ofs, len) { if (ofs < 0 || len < 0 || ofs > (str.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.substring", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.substring" + } + }); } return Caml_md5.md5_string(str, ofs, len); } @@ -38,11 +39,12 @@ function char_hex(n) { function to_hex(d) { if (d.length !== 16) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.to_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.to_hex" + } + }); } var result = Caml_bytes.create(32); for(var i = 0; i <= 15; ++i){ @@ -55,39 +57,43 @@ function to_hex(d) { function from_hex(s) { if (s.length !== 32) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } var digit = function (c) { if (c >= 65) { if (c >= 97) { if (c >= 103) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'a' */97 | 0) + 10 | 0; } if (c >= 71) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'A' */65 | 0) + 10 | 0; } if (c > 57 || c < 48) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return c - /* '0' */48 | 0; }; diff --git a/lib/es6/filename.js b/lib/es6/filename.js index ce05362460..b89d353fc5 100644 --- a/lib/es6/filename.js +++ b/lib/es6/filename.js @@ -125,7 +125,9 @@ catch (raw_exn){ if (exn.RE_EXN_ID === "Not_found") { temp_dir_name = "/tmp"; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -206,7 +208,9 @@ catch (raw_exn$1){ if (exn$1.RE_EXN_ID === "Not_found") { temp_dir_name$1 = "."; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } @@ -381,11 +385,12 @@ function concat(dirname, filename) { function chop_suffix(name, suff) { var n = name.length - suff.length | 0; if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_suffix", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_suffix" + } + }); } return $$String.sub(name, 0, n); } @@ -428,11 +433,12 @@ function extension(name) { function chop_extension(name) { var l = extension_len(name); if (l === 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_extension", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_extension" + } + }); } return $$String.sub(name, 0, name.length - l | 0); } diff --git a/lib/es6/genlex.js b/lib/es6/genlex.js index 09a9b041b3..fd5fc2aebc 100644 --- a/lib/es6/genlex.js +++ b/lib/es6/genlex.js @@ -61,7 +61,9 @@ function make_lexer(keywords) { _0: id }; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; var keyword_or_error = function (c) { @@ -72,13 +74,16 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "Illegal character " + s, - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "Illegal character " + s + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; var next_token = function (strm__) { @@ -118,22 +123,26 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } var match = Stream.peek(strm__); if (match !== undefined) { if (match !== 39) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return { @@ -141,11 +150,12 @@ function make_lexer(keywords) { _0: c$1 }; } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); case 40 : Stream.junk(strm__); var match$1 = Stream.peek(strm__); @@ -475,13 +485,16 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } store(c$1); continue ; @@ -489,10 +502,11 @@ function make_lexer(keywords) { Stream.junk(strm__); return get_string(); } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; }; var $$char = function (strm__) { @@ -509,19 +523,23 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; var $$escape = function (strm__) { @@ -554,45 +572,50 @@ function make_lexer(keywords) { var c2 = Stream.peek(strm__); if (c2 !== undefined) { if (c2 > 57 || c2 < 48) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); var c3 = Stream.peek(strm__); if (c3 !== undefined) { if (c3 > 57 || c3 < 48) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return c1; } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; var comment = function (strm__) { @@ -613,10 +636,11 @@ function make_lexer(keywords) { return comment(strm__); } } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 41 : Stream.junk(strm__); continue ; @@ -636,20 +660,22 @@ function make_lexer(keywords) { Stream.junk(strm__); return ; } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; default: Stream.junk(strm__); continue ; } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; }; diff --git a/lib/es6/hashtbl.js b/lib/es6/hashtbl.js index 621cc7b164..e563a313d1 100644 --- a/lib/es6/hashtbl.js +++ b/lib/es6/hashtbl.js @@ -115,15 +115,16 @@ function copy_bucketlist(param) { next: next }; if (typeof prec !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "hashtbl.res", - 110, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "hashtbl.res", + 110, + 19 + ] + } + }); } prec.next = r; _param = next; @@ -257,10 +258,11 @@ function remove(h, key) { function find(h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -269,10 +271,11 @@ function find(h, key) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -281,10 +284,11 @@ function find(h, key) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -296,10 +300,11 @@ function find(h, key) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; @@ -470,10 +475,14 @@ function iter(f, h) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -524,10 +533,14 @@ function filter_map_inplace(f, h) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -564,10 +577,14 @@ function fold(f, h, init) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -650,10 +667,11 @@ function MakeSeeded(H) { var find = function (h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -662,10 +680,11 @@ function MakeSeeded(H) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -674,10 +693,11 @@ function MakeSeeded(H) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -689,10 +709,11 @@ function MakeSeeded(H) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; @@ -894,10 +915,11 @@ function Make(H) { var find = function (h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -906,10 +928,11 @@ function Make(H) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -918,10 +941,11 @@ function Make(H) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -933,10 +957,11 @@ function Make(H) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; diff --git a/lib/es6/int32.js b/lib/es6/int32.js index fb5e78ced2..4d6e2f7bfc 100644 --- a/lib/es6/int32.js +++ b/lib/es6/int32.js @@ -37,7 +37,9 @@ function of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/int64.js b/lib/es6/int64.js index 6dfc36cd8f..482c0070d5 100644 --- a/lib/es6/int64.js +++ b/lib/es6/int64.js @@ -30,7 +30,9 @@ function of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/js_exn.js b/lib/es6/js_exn.js index 8894fa6b30..b7be948468 100644 --- a/lib/es6/js_exn.js +++ b/lib/es6/js_exn.js @@ -2,31 +2,45 @@ function raiseError(str) { - throw new Error(str); + throw new Error(new Error(str).RE_EXN_ID, { + cause: new Error(str) + }); } function raiseEvalError(str) { - throw new EvalError(str); + throw new Error(new EvalError(str).RE_EXN_ID, { + cause: new EvalError(str) + }); } function raiseRangeError(str) { - throw new RangeError(str); + throw new Error(new RangeError(str).RE_EXN_ID, { + cause: new RangeError(str) + }); } function raiseReferenceError(str) { - throw new ReferenceError(str); + throw new Error(new ReferenceError(str).RE_EXN_ID, { + cause: new ReferenceError(str) + }); } function raiseSyntaxError(str) { - throw new SyntaxError(str); + throw new Error(new SyntaxError(str).RE_EXN_ID, { + cause: new SyntaxError(str) + }); } function raiseTypeError(str) { - throw new TypeError(str); + throw new Error(new TypeError(str).RE_EXN_ID, { + cause: new TypeError(str) + }); } function raiseUriError(str) { - throw new URIError(str); + throw new Error(new URIError(str).RE_EXN_ID, { + cause: new URIError(str) + }); } var $$Error$1 = "JsError"; diff --git a/lib/es6/js_mapperRt.js b/lib/es6/js_mapperRt.js index 3e451d57c3..5080fade26 100644 --- a/lib/es6/js_mapperRt.js +++ b/lib/es6/js_mapperRt.js @@ -3,10 +3,11 @@ function raiseWhenNotFound(x) { if (x == null) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } return x; } @@ -32,10 +33,11 @@ function fromIntAssert(len, xs, $$enum) { while(true) { var i = _i; if (i === len) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = xs[i]; if (k === $$enum) { diff --git a/lib/es6/js_null.js b/lib/es6/js_null.js index cebc484e28..5e24628de6 100644 --- a/lib/es6/js_null.js +++ b/lib/es6/js_null.js @@ -10,7 +10,9 @@ function getExn(f) { if (f !== null) { return f; } - throw new Error("Js.Null.getExn"); + throw new Error(new Error("Js.Null.getExn").RE_EXN_ID, { + cause: new Error("Js.Null.getExn") + }); } function bind(x, f) { diff --git a/lib/es6/js_option.js b/lib/es6/js_option.js index b9e70f244a..3b4eabe451 100644 --- a/lib/es6/js_option.js +++ b/lib/es6/js_option.js @@ -26,7 +26,9 @@ function getExn(x) { if (x !== undefined) { return Caml_option.valFromOption(x); } - throw new Error("getExn"); + throw new Error(new Error("getExn").RE_EXN_ID, { + cause: new Error("getExn") + }); } function equal(eq, a, b) { diff --git a/lib/es6/js_undefined.js b/lib/es6/js_undefined.js index 7f208fe737..cdc799a1b6 100644 --- a/lib/es6/js_undefined.js +++ b/lib/es6/js_undefined.js @@ -14,7 +14,9 @@ function getExn(f) { if (f !== undefined) { return f; } - throw new Error("Js.Undefined.getExn"); + throw new Error(new Error("Js.Undefined.getExn").RE_EXN_ID, { + cause: new Error("Js.Undefined.getExn") + }); } function bind(x, f) { diff --git a/lib/es6/lexing.js b/lib/es6/lexing.js index 66ffdc22af..fb7191f891 100644 --- a/lib/es6/lexing.js +++ b/lib/es6/lexing.js @@ -55,11 +55,12 @@ function from_function(f) { } else { var newlen = (param.lex_buffer.length << 1); if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { - throw { - RE_EXN_ID: "Failure", - _1: "Lexing.lex_refill: cannot grow buffer", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Lexing.lex_refill: cannot grow buffer" + } + }); } var newbuf = Caml_bytes.create(newlen); Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); diff --git a/lib/es6/list.js b/lib/es6/list.js index 3303234073..d02674e773 100644 --- a/lib/es6/list.js +++ b/lib/es6/list.js @@ -31,31 +31,34 @@ function hd(param) { if (param) { return param.hd; } - throw { - RE_EXN_ID: "Failure", - _1: "hd", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { if (param) { return param.tl; } - throw { - RE_EXN_ID: "Failure", - _1: "tl", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -70,21 +73,23 @@ function nth(l, n) { _l = l$1.tl; continue ; } - throw { - RE_EXN_ID: "Failure", - _1: "nth", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -152,11 +157,12 @@ function init_aux(i, n, f) { function init(len, f) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -275,20 +281,22 @@ function map2(f, l1, l2) { tl: map2(f, l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { @@ -309,18 +317,20 @@ function rev_map2(f, l1, l2) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -337,20 +347,22 @@ function iter2(f, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { return ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } @@ -366,18 +378,20 @@ function fold_left2(f, _accu, _l1, _l2) { _accu = Curry._3(f, accu, l1.hd, l2.hd); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -388,18 +402,20 @@ function fold_right2(f, l1, l2, accu) { if (l2) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -445,20 +461,22 @@ function for_all2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } @@ -475,20 +493,22 @@ function exists2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } @@ -531,10 +551,11 @@ function assoc(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -564,10 +585,11 @@ function assq(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -657,10 +679,11 @@ function find(p, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -770,20 +793,22 @@ function combine(l1, l2) { tl: combine(l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -820,15 +845,16 @@ function chop(_k, _l) { _k = k - 1 | 0; continue ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "list.res", - 420, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "list.res", + 420, + 11 + ] + } + }); }; } diff --git a/lib/es6/listLabels.js b/lib/es6/listLabels.js index 25e0b60d63..8a5800bbf7 100644 --- a/lib/es6/listLabels.js +++ b/lib/es6/listLabels.js @@ -31,31 +31,34 @@ function hd(param) { if (param) { return param.hd; } - throw { - RE_EXN_ID: "Failure", - _1: "hd", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { if (param) { return param.tl; } - throw { - RE_EXN_ID: "Failure", - _1: "tl", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -70,21 +73,23 @@ function nth(l, n) { _l = l$1.tl; continue ; } - throw { - RE_EXN_ID: "Failure", - _1: "nth", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -152,11 +157,12 @@ function init_aux(i, n, f) { function init(len, f) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -275,20 +281,22 @@ function map2(f, l1, l2) { tl: map2(f, l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { @@ -309,18 +317,20 @@ function rev_map2(f, l1, l2) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -337,20 +347,22 @@ function iter2(f, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { return ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } @@ -366,18 +378,20 @@ function fold_left2(f, _accu, _l1, _l2) { _accu = Curry._3(f, accu, l1.hd, l2.hd); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -388,18 +402,20 @@ function fold_right2(f, l1, l2, accu) { if (l2) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -445,20 +461,22 @@ function for_all2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } @@ -475,20 +493,22 @@ function exists2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } @@ -531,10 +551,11 @@ function assoc(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -564,10 +585,11 @@ function assq(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -657,10 +679,11 @@ function find(p, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -770,20 +793,22 @@ function combine(l1, l2) { tl: combine(l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -820,15 +845,16 @@ function chop(_k, _l) { _k = k - 1 | 0; continue ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "listLabels.res", - 420, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "listLabels.res", + 420, + 11 + ] + } + }); }; } diff --git a/lib/es6/map.js b/lib/es6/map.js index 24f7f3f562..47e7b3e6e7 100644 --- a/lib/es6/map.js +++ b/lib/es6/map.js @@ -40,11 +40,12 @@ function Make(funarg) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -56,11 +57,12 @@ function Make(funarg) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -73,11 +75,12 @@ function Make(funarg) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -89,11 +92,12 @@ function Make(funarg) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -151,10 +155,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(funarg.compare, x, param.v); if (c === 0) { @@ -168,10 +173,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -243,10 +249,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -346,10 +353,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -383,10 +391,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -418,11 +427,12 @@ function Make(funarg) { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -710,15 +720,16 @@ function Make(funarg) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/lib/es6/mapLabels.js b/lib/es6/mapLabels.js index 5922b203db..8761d6276c 100644 --- a/lib/es6/mapLabels.js +++ b/lib/es6/mapLabels.js @@ -40,11 +40,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -56,11 +57,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -73,11 +75,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -89,11 +92,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -151,10 +155,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(Ord.compare, x, param.v); if (c === 0) { @@ -190,10 +195,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -265,10 +271,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -346,10 +353,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -383,10 +391,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -418,11 +427,12 @@ function Make(Ord) { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -710,15 +720,16 @@ function Make(Ord) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/lib/es6/moreLabels.js b/lib/es6/moreLabels.js index 61f6a97973..143c02df79 100644 --- a/lib/es6/moreLabels.js +++ b/lib/es6/moreLabels.js @@ -70,11 +70,12 @@ var $$Map = { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -86,11 +87,12 @@ var $$Map = { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -103,11 +105,12 @@ var $$Map = { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -119,11 +122,12 @@ var $$Map = { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -181,10 +185,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(funarg.compare, x, param.v); if (c === 0) { @@ -220,10 +225,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -295,10 +301,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -376,10 +383,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -413,10 +421,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -448,11 +457,12 @@ var $$Map = { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -740,15 +750,16 @@ var $$Map = { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); @@ -1005,11 +1016,12 @@ var $$Set = { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -1020,11 +1032,12 @@ var $$Set = { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -1036,11 +1049,12 @@ var $$Set = { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -1051,11 +1065,12 @@ var $$Set = { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -1133,10 +1148,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -1164,10 +1180,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -1193,11 +1210,12 @@ var $$Set = { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -1593,10 +1611,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(funarg.compare, x, v); @@ -1628,10 +1647,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1693,10 +1713,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1868,15 +1889,16 @@ var $$Set = { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; diff --git a/lib/es6/parsing.js b/lib/es6/parsing.js index ff983c6466..2472d99ca7 100644 --- a/lib/es6/parsing.js +++ b/lib/es6/parsing.js @@ -88,10 +88,11 @@ function yyparse(tables, start, lexer, lexbuf) { _cmd = "Token_read"; continue ; case "Raise_parse_error" : - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); case "Grow_stacks_1" : grow_stacks(); _arg = undefined; @@ -118,7 +119,9 @@ function yyparse(tables, start, lexer, lexbuf) { undefined ]; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } _arg = match$1[1]; @@ -153,7 +156,9 @@ function yyparse(tables, start, lexer, lexbuf) { return Caml_array.get(tables.transl_const, tok) === curr_char; } }); - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } diff --git a/lib/es6/pervasives.js b/lib/es6/pervasives.js index 8d9f304b4f..ab9b35f1fd 100644 --- a/lib/es6/pervasives.js +++ b/lib/es6/pervasives.js @@ -14,19 +14,21 @@ var JsxModules = { }; function failwith(s) { - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } var Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); @@ -63,11 +65,12 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -87,11 +90,12 @@ function bool_of_string(param) { case "true" : return true; default: - throw { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -115,7 +119,9 @@ function int_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -156,7 +162,9 @@ function float_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/pervasivesU.js b/lib/es6/pervasivesU.js index 66770b5ddb..062fec26ae 100644 --- a/lib/es6/pervasivesU.js +++ b/lib/es6/pervasivesU.js @@ -13,19 +13,21 @@ var JsxModules = { }; function failwith(s) { - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } var Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); @@ -62,11 +64,12 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -86,11 +89,12 @@ function bool_of_string(param) { case "true" : return true; default: - throw { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -114,7 +118,9 @@ function int_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -155,7 +161,9 @@ function float_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/queue.js b/lib/es6/queue.js index d9282aa6ff..dc18ee5e10 100644 --- a/lib/es6/queue.js +++ b/lib/es6/queue.js @@ -42,19 +42,21 @@ function peek(q) { if (typeof match === "object") { return match.content; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function take(q) { var match = q.first; if (typeof match !== "object") { - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } var content = match.content; var next = match.next; diff --git a/lib/es6/random.js b/lib/es6/random.js index 89cc63f188..83bb5dd17f 100644 --- a/lib/es6/random.js +++ b/lib/es6/random.js @@ -75,11 +75,12 @@ function bits(s) { function $$int(s, bound) { if (bound > 1073741823 || bound <= 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int" + } + }); } while(true) { var r = bits(s); @@ -93,11 +94,12 @@ function $$int(s, bound) { function int32(s, bound) { if (bound <= 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int32", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int32" + } + }); } while(true) { var b1 = bits(s); @@ -113,11 +115,12 @@ function int32(s, bound) { function int64(s, bound) { if (Caml.i64_le(bound, Caml_int64.zero)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int64", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int64" + } + }); } while(true) { var b1 = Caml_int64.of_int32(bits(s)); diff --git a/lib/es6/set.js b/lib/es6/set.js index 1ec2e2dd90..19ae662019 100644 --- a/lib/es6/set.js +++ b/lib/es6/set.js @@ -32,11 +32,12 @@ function Make(funarg) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -47,11 +48,12 @@ function Make(funarg) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function Make(funarg) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -78,11 +81,12 @@ function Make(funarg) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -160,10 +164,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -191,10 +196,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -220,11 +226,12 @@ function Make(funarg) { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -616,10 +623,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(funarg.compare, x, v); @@ -634,10 +642,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -697,10 +706,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -905,15 +915,16 @@ function Make(funarg) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { diff --git a/lib/es6/setLabels.js b/lib/es6/setLabels.js index fc4e938ec0..355ee2e518 100644 --- a/lib/es6/setLabels.js +++ b/lib/es6/setLabels.js @@ -32,11 +32,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -47,11 +48,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -78,11 +81,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -160,10 +164,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -191,10 +196,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -220,11 +226,12 @@ function Make(Ord) { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -620,10 +627,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(Ord.compare, x, v); @@ -655,10 +663,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -720,10 +729,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -895,15 +905,16 @@ function Make(Ord) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; diff --git a/lib/es6/sort.js b/lib/es6/sort.js index 3309b84cfc..949669ec63 100644 --- a/lib/es6/sort.js +++ b/lib/es6/sort.js @@ -115,11 +115,12 @@ function array(cmp, arr) { var i = lo + 1 | 0; var j = hi - 1 | 0; if (!Curry._2(cmp, pivot, arr[hi]) || !Curry._2(cmp, arr[lo], pivot)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Sort.array", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Sort.array" + } + }); } while(i < j) { while(!Curry._2(cmp, pivot, arr[i])) { diff --git a/lib/es6/stack.js b/lib/es6/stack.js index d78505b734..8d726cbaeb 100644 --- a/lib/es6/stack.js +++ b/lib/es6/stack.js @@ -39,10 +39,11 @@ function pop(s) { s.len = s.len - 1 | 0; return match.hd; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function top(s) { @@ -50,10 +51,11 @@ function top(s) { if (match) { return match.hd; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function is_empty(s) { diff --git a/lib/es6/stream.js b/lib/es6/stream.js index 9352357c60..588abdc98f 100644 --- a/lib/es6/stream.js +++ b/lib/es6/stream.js @@ -55,15 +55,16 @@ function get_data(count, _d) { } }; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 53, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 53, + 13 + ] + } + }); case "Slazy" : _d = CamlinternalLazy.force(d._0); continue ; @@ -117,15 +118,16 @@ function peek_data(s) { s.data = d; return Caml_option.some(d._0); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 83, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 83, + 13 + ] + } + }); case "Slazy" : s.data = CamlinternalLazy.force(f._0); continue ; @@ -237,10 +239,11 @@ function next(s) { junk(s); return Caml_option.valFromOption(a); } - throw { - RE_EXN_ID: Failure, - Error: new Error() - }; + throw new Error(Failure, { + cause: { + RE_EXN_ID: Failure + } + }); } function empty(s) { @@ -248,10 +251,11 @@ function empty(s) { if (match === undefined) { return ; } - throw { - RE_EXN_ID: Failure, - Error: new Error() - }; + throw new Error(Failure, { + cause: { + RE_EXN_ID: Failure + } + }); } function iter(f, strm) { diff --git a/lib/es6/string.js b/lib/es6/string.js index def3e31195..aa11dd953c 100644 --- a/lib/es6/string.js +++ b/lib/es6/string.js @@ -91,10 +91,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -129,11 +130,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -141,11 +143,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -154,10 +157,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -173,11 +177,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -202,11 +207,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -214,11 +220,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -229,7 +236,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -239,11 +248,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -254,7 +264,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/stringLabels.js b/lib/es6/stringLabels.js index 4b568b4ebc..57cfde02ea 100644 --- a/lib/es6/stringLabels.js +++ b/lib/es6/stringLabels.js @@ -93,10 +93,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -131,11 +132,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -143,11 +145,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -156,10 +159,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -175,11 +179,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -204,11 +209,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -216,11 +222,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -231,7 +238,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -241,11 +250,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -256,7 +266,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/es6/uchar.js b/lib/es6/uchar.js index 03cd9cf06c..7ae786d3c4 100644 --- a/lib/es6/uchar.js +++ b/lib/es6/uchar.js @@ -16,11 +16,12 @@ function succ(u) { return 57344; } if (u === 1114111) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "U+10FFFF has no successor", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+10FFFF has no successor" + } + }); } return u + 1 | 0; } @@ -30,11 +31,12 @@ function pred(u) { return 55295; } if (u === 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "U+0000 has no predecessor", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+0000 has no predecessor" + } + }); } return u - 1 | 0; } @@ -54,11 +56,12 @@ function of_int(i) { return i; } var s = err_not_sv(i); - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function is_char(u) { @@ -74,11 +77,12 @@ function to_char(u) { return u; } var s = err_not_latin1(u); - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function unsafe_to_char(prim) { diff --git a/lib/js/arg.js b/lib/js/arg.js index caae76bace..7710ed0166 100644 --- a/lib/js/arg.js +++ b/lib/js/arg.js @@ -32,10 +32,11 @@ function assoc3(x, _l) { _l = l.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -59,14 +60,15 @@ function make_symlist(prefix, sep, suffix, l) { } function help_action(param) { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function add_help(speclist) { @@ -90,7 +92,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } var add2; @@ -113,7 +117,9 @@ function add_help(speclist) { tl: /* [] */0 }; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); @@ -159,7 +165,9 @@ function bool_of_string_opt(x) { if (exn.RE_EXN_ID === "Invalid_argument") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -172,7 +180,9 @@ function int_of_string_opt(x) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -185,7 +195,9 @@ function float_of_string_opt(x) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -260,19 +272,24 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist catch (raw_exn$1){ var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: s - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: s + } + } + }); } - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } var follow = match[1]; @@ -281,16 +298,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (follow === undefined) { return ; } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: follow, - _2: "no argument" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: follow, + _2: "no argument" + } + } + }); } }(s,follow)); var get_arg = (function(s,follow){ @@ -301,14 +319,15 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if ((current.contents + 1 | 0) < argv.contents.length) { return Caml_array.get(argv.contents, current.contents + 1 | 0); } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Missing", - _0: s - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Missing", + _0: s + } + } + }); } }(s,follow)); var consume_arg = (function(follow){ @@ -332,16 +351,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (s$1 !== undefined) { Curry._1(f._0, s$1); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg, - _2: "a boolean" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg, + _2: "a boolean" + } + } + }); } return consume_arg(); case "Set" : @@ -365,16 +385,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x !== undefined) { Curry._1(f._0, x); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$2, - _2: "an integer" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$2, + _2: "an integer" + } + } + }); } return consume_arg(); case "Set_int" : @@ -383,16 +404,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$1 !== undefined) { f._0.contents = x$1; } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$3, - _2: "an integer" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$3, + _2: "an integer" + } + } + }); } return consume_arg(); case "Float" : @@ -401,16 +423,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$2 !== undefined) { Curry._1(f._0, x$2); } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$4, - _2: "a float" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$4, + _2: "a float" + } + } + }); } return consume_arg(); case "Set_float" : @@ -419,16 +442,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist if (x$3 !== undefined) { f._0.contents = x$3; } else { - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$5, - _2: "a float" - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$5, + _2: "a float" + } + } + }); } return consume_arg(); case "Tuple" : @@ -440,16 +464,17 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist Curry._1(f._1, arg$6); return consume_arg(); } - throw { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$6, - _2: "one of: " + make_symlist("", " ", "", symb) - }, - Error: new Error() - }; + throw new Error(Stop, { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$6, + _2: "one of: " + make_symlist("", " ", "", symb) + } + } + }); case "Rest" : var f$1 = f._0; while(current.contents < (argv.contents.length - 1 | 0)) { @@ -459,11 +484,12 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist return ; case "Expand" : if (!allow_expand) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" + } + }); } var arg$7 = get_arg(); var newarg = Curry._1(f._0, arg$7); @@ -493,15 +519,24 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist catch (raw_m){ var m = Caml_js_exceptions.internalToOCamlException(raw_m); if (m.RE_EXN_ID === Bad) { - throw convert_error({ - TAG: "Message", - _0: m._1 + throw new Error(convert_error({ + TAG: "Message", + _0: m._1 + }).RE_EXN_ID, { + cause: convert_error({ + TAG: "Message", + _0: m._1 + }) }); } if (m.RE_EXN_ID === Stop) { - throw convert_error(m._1); + throw new Error(convert_error(m._1).RE_EXN_ID, { + cause: convert_error(m._1) + }); } - throw m; + throw new Error(m.RE_EXN_ID, { + cause: m + }); } current.contents = current.contents + 1 | 0; }; @@ -539,7 +574,9 @@ function parse(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -557,7 +594,9 @@ function parse_dynamic(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -584,7 +623,9 @@ function parse_expand(l, f, msg) { console.log(msg$1._1); return Pervasives.exit(0); } - throw msg$1; + throw new Error(msg$1.RE_EXN_ID, { + cause: msg$1 + }); } } @@ -621,14 +662,18 @@ function second_word(s) { if (exn$1.RE_EXN_ID === "Not_found") { return len; } - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } if (exit === 2) { return loop(n$1 + 1 | 0); } } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } return loop(n + 1 | 0); diff --git a/lib/js/array.js b/lib/js/array.js index 016c51f289..0295332444 100644 --- a/lib/js/array.js +++ b/lib/js/array.js @@ -15,11 +15,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, Curry._1(f, 0)); for(var i = 1; i < l; ++i){ @@ -58,22 +59,24 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; @@ -82,11 +85,12 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } @@ -99,11 +103,12 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); @@ -126,11 +131,12 @@ function map2(f, a, b) { var la = a.length; var lb = b.length; if (la !== lb) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; @@ -312,11 +318,12 @@ function sort(cmp, a) { if (i31 < l) { return i31; } - throw { - RE_EXN_ID: Bottom, - _1: i, - Error: new Error() - }; + throw new Error(Bottom, { + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; var trickle = function (l, i, e) { try { @@ -337,7 +344,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var bubble = function (l, i) { @@ -356,7 +365,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var trickleup = function (_i, e) { @@ -364,15 +375,16 @@ function sort(cmp, a) { var i = _i; var father = (i - 1 | 0) / 3 | 0; if (i === father) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "array.res", - 321, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "array.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); diff --git a/lib/js/arrayLabels.js b/lib/js/arrayLabels.js index cb25b43970..9dc49b9844 100644 --- a/lib/js/arrayLabels.js +++ b/lib/js/arrayLabels.js @@ -15,11 +15,12 @@ function init(l, f) { return []; } if (l < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } var res = Caml_array.make(l, Curry._1(f, 0)); for(var i = 1; i < l; ++i){ @@ -58,22 +59,24 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; @@ -82,11 +85,12 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } @@ -99,11 +103,12 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); @@ -126,11 +131,12 @@ function map2(f, a, b) { var la = a.length; var lb = b.length; if (la !== lb) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; @@ -312,11 +318,12 @@ function sort(cmp, a) { if (i31 < l) { return i31; } - throw { - RE_EXN_ID: Bottom, - _1: i, - Error: new Error() - }; + throw new Error(Bottom, { + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; var trickle = function (l, i, e) { try { @@ -337,7 +344,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var bubble = function (l, i) { @@ -356,7 +365,9 @@ function sort(cmp, a) { if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } - throw i$2; + throw new Error(i$2.RE_EXN_ID, { + cause: i$2 + }); } }; var trickleup = function (_i, e) { @@ -364,15 +375,16 @@ function sort(cmp, a) { var i = _i; var father = (i - 1 | 0) / 3 | 0; if (i === father) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "arrayLabels.res", - 321, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "arrayLabels.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); diff --git a/lib/js/belt_Array.js b/lib/js/belt_Array.js index c0cf35d5a3..2d7a546798 100644 --- a/lib/js/belt_Array.js +++ b/lib/js/belt_Array.js @@ -14,15 +14,16 @@ function get(arr, i) { function getExn(arr, i) { if (!(i >= 0 && i < arr.length)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 36, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 36, + 2 + ] + } + }); } return arr[i]; } @@ -38,15 +39,16 @@ function set(arr, i, v) { function setExn(arr, i, v) { if (!(i >= 0 && i < arr.length)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 49, - 2 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 49, + 2 + ] + } + }); } arr[i] = v; } diff --git a/lib/js/belt_List.js b/lib/js/belt_List.js index a0baa8ed6f..24f21f3231 100644 --- a/lib/js/belt_List.js +++ b/lib/js/belt_List.js @@ -16,10 +16,11 @@ function headExn(x) { if (x) { return x.hd; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function tail(x) { @@ -33,10 +34,11 @@ function tailExn(x) { if (x) { return x.tl; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function add(xs, x) { @@ -70,10 +72,11 @@ function get(x, n) { function getExn(x, n) { if (n < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var _x = x; var _n = n; @@ -88,10 +91,11 @@ function getExn(x, n) { _x = x$1.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_MutableQueue.js b/lib/js/belt_MutableQueue.js index a5b8e2fcf8..20d256d8b5 100644 --- a/lib/js/belt_MutableQueue.js +++ b/lib/js/belt_MutableQueue.js @@ -55,10 +55,11 @@ function peekExn(q) { if (v !== undefined) { return v.content; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function pop(q) { @@ -90,10 +91,11 @@ function popExn(q) { return x.content; } } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function popUndefined(q) { diff --git a/lib/js/belt_Option.js b/lib/js/belt_Option.js index 3b1c01c98f..2c4514bb3e 100644 --- a/lib/js/belt_Option.js +++ b/lib/js/belt_Option.js @@ -29,10 +29,11 @@ function getExn(x) { if (x !== undefined) { return Caml_option.valFromOption(x); } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { diff --git a/lib/js/belt_Result.js b/lib/js/belt_Result.js index fbda5c6de2..a4f7a75b6d 100644 --- a/lib/js/belt_Result.js +++ b/lib/js/belt_Result.js @@ -6,10 +6,11 @@ function getExn(x) { if (x.TAG === "Ok") { return x._0; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { diff --git a/lib/js/belt_internalAVLset.js b/lib/js/belt_internalAVLset.js index 8140346f0c..20b3232346 100644 --- a/lib/js/belt_internalAVLset.js +++ b/lib/js/belt_internalAVLset.js @@ -370,15 +370,16 @@ function checkInvariantInternal(_v) { r !== undefined ? r.h : 0 ) | 0; if (!(diff <= 2 && diff >= -2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLset.res", - 319, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLset.res", + 319, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; @@ -732,10 +733,11 @@ function getExn(_n, x, cmp) { _n = c < 0 ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_internalAVLtree.js b/lib/js/belt_internalAVLtree.js index f9f85077b4..50d69c9c88 100644 --- a/lib/js/belt_internalAVLtree.js +++ b/lib/js/belt_internalAVLtree.js @@ -587,15 +587,16 @@ function checkInvariantInternal(_v) { var r = v.r; var diff = treeHeight(l) - treeHeight(r) | 0; if (!(diff <= 2 && diff >= -2)) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLtree.res", - 457, - 4 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLtree.res", + 457, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; @@ -897,10 +898,11 @@ function getExn(_n, x, cmp) { _n = c < 0 ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_internalMapInt.js b/lib/js/belt_internalMapInt.js index 2887d9e588..3e32ec8754 100644 --- a/lib/js/belt_internalMapInt.js +++ b/lib/js/belt_internalMapInt.js @@ -63,10 +63,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_internalMapString.js b/lib/js/belt_internalMapString.js index 97b43e8504..b11b3da230 100644 --- a/lib/js/belt_internalMapString.js +++ b/lib/js/belt_internalMapString.js @@ -63,10 +63,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_internalSetInt.js b/lib/js/belt_internalSetInt.js index 32d5a313de..c748c30f23 100644 --- a/lib/js/belt_internalSetInt.js +++ b/lib/js/belt_internalSetInt.js @@ -141,10 +141,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/belt_internalSetString.js b/lib/js/belt_internalSetString.js index e29bec2363..53b5370c76 100644 --- a/lib/js/belt_internalSetString.js +++ b/lib/js/belt_internalSetString.js @@ -141,10 +141,11 @@ function getExn(_n, x) { _n = x < v ? n.l : n.r; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } diff --git a/lib/js/buffer.js b/lib/js/buffer.js index 9b0720b7fe..c28a5180c5 100644 --- a/lib/js/buffer.js +++ b/lib/js/buffer.js @@ -27,33 +27,36 @@ function to_bytes(b) { function sub(b, ofs, len) { if (ofs < 0 || len < 0 || ofs > (b.position - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.sub" + } + }); } return Bytes.sub_string(b.buffer, ofs, len); } function blit(src, srcoff, dst, dstoff, len) { if (len < 0 || srcoff < 0 || srcoff > (src.position - len | 0) || dstoff < 0 || dstoff > (dst.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.blit" + } + }); } Bytes.blit(src.buffer, srcoff, dst, dstoff, len); } function nth(b, ofs) { if (ofs < 0 || ofs >= b.position) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.nth" + } + }); } return b.buffer[ofs]; } @@ -96,15 +99,16 @@ function add_char(b, c) { function add_utf_8_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 98, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 98, + 18 + ] + } + }); } if (u$1 <= 127) { return add_char(b, u$1); @@ -142,29 +146,31 @@ function add_utf_8_uchar(b, u) { b.position = pos$2 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 127, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 127, + 9 + ] + } + }); } function add_utf_16be_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 132, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 132, + 18 + ] + } + }); } if (u$1 <= 65535) { var pos = b.position; @@ -191,29 +197,31 @@ function add_utf_16be_uchar(b, u) { b.position = pos$1 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 154, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 154, + 9 + ] + } + }); } function add_utf_16le_uchar(b, u) { var u$1 = u; if (u$1 < 0) { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 159, - 18 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 159, + 18 + ] + } + }); } if (u$1 <= 65535) { var pos = b.position; @@ -240,24 +248,26 @@ function add_utf_16le_uchar(b, u) { b.position = pos$1 + 4 | 0; return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 181, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 181, + 9 + ] + } + }); } function add_substring(b, s, offset, len) { if (offset < 0 || len < 0 || offset > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.add_substring/add_subbytes", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.add_substring/add_subbytes" + } + }); } var new_position = b.position + len | 0; if (new_position > b.length) { @@ -296,15 +306,16 @@ function closing(param) { if (param === 123) { return /* '}' */125; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 216, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 216, + 9 + ] + } + }); } function advance_to_closing(opening, closing, k, s, start) { @@ -315,10 +326,11 @@ function advance_to_closing(opening, closing, k, s, start) { var i = _i; var k$1 = _k; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (Caml_string.get(s, i) === opening) { _i = i + 1 | 0; @@ -372,10 +384,11 @@ function advance_to_non_alpha(s, start) { function find_ident(s, start, lim) { if (start >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Caml_string.get(s, start); if (c !== 40 && c !== 123) { @@ -443,11 +456,12 @@ function add_substitute(b, f, s) { function truncate(b, len) { if (len < 0 || len > b.position) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.truncate", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.truncate" + } + }); } b.position = len; } diff --git a/lib/js/bytes.js b/lib/js/bytes.js index 38a3229018..7638516d3e 100644 --- a/lib/js/bytes.js +++ b/lib/js/bytes.js @@ -111,11 +111,12 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } var r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); @@ -138,21 +139,23 @@ function $plus$plus(a, b) { if (match$2) { return c; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } @@ -178,33 +181,36 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { return ; @@ -240,11 +246,12 @@ function ensure_ge(x, y) { if (x >= y) { return x; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { @@ -485,10 +492,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -523,11 +531,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -535,11 +544,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -548,10 +558,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -567,11 +578,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -596,11 +608,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -608,11 +621,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -623,7 +637,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -633,11 +649,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -648,7 +665,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/bytesLabels.js b/lib/js/bytesLabels.js index 38a3229018..7638516d3e 100644 --- a/lib/js/bytesLabels.js +++ b/lib/js/bytesLabels.js @@ -111,11 +111,12 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } var r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); @@ -138,21 +139,23 @@ function $plus$plus(a, b) { if (match$2) { return c; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } @@ -178,33 +181,36 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { return ; @@ -240,11 +246,12 @@ function ensure_ge(x, y) { if (x >= y) { return x; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { @@ -485,10 +492,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -523,11 +531,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -535,11 +544,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -548,10 +558,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; @@ -567,11 +578,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -596,11 +608,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -608,11 +621,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -623,7 +637,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -633,11 +649,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -648,7 +665,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/caml_array.js b/lib/js/caml_array.js index b82047a0a1..5041d9cf2a 100644 --- a/lib/js/caml_array.js +++ b/lib/js/caml_array.js @@ -57,22 +57,24 @@ function concat(l) { function set(xs, index, newval) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } xs[index] = newval; } function get(xs, index) { if (index < 0 || index >= xs.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return xs[index]; } diff --git a/lib/js/caml_bytes.js b/lib/js/caml_bytes.js index df0f4470f8..03acd489a3 100644 --- a/lib/js/caml_bytes.js +++ b/lib/js/caml_bytes.js @@ -3,33 +3,36 @@ function set(s, i, ch) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } s[i] = ch; } function get(s, i) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s[i]; } function create(len) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.create", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.create" + } + }); } var result = new Array(len); for(var i = 0; i < len; ++i){ diff --git a/lib/js/caml_format.js b/lib/js/caml_format.js index 47e458a5da..889248a601 100644 --- a/lib/js/caml_format.js +++ b/lib/js/caml_format.js @@ -136,11 +136,12 @@ function int_of_string(s) { var c = i < len ? s.codePointAt(i) : /* '\000' */0; var d = parse_digit(c); if (d < 0 || d >= base) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } var aux = function (_acc, _k) { while(true) { @@ -156,19 +157,21 @@ function int_of_string(s) { } var v = parse_digit(a); if (v < 0 || v >= base) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } var acc$1 = base * acc + v; if (acc$1 > threshold) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } _k = k + 1 | 0; _acc = acc$1; @@ -178,11 +181,12 @@ function int_of_string(s) { var res = match[1] * aux(d, i + 1 | 0); var or_res = res | 0; if (base === 10 && res !== or_res) { - throw { - RE_EXN_ID: "Failure", - _1: "int_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } return or_res; } @@ -222,11 +226,12 @@ function int64_of_string(s) { var c = i < len ? s.codePointAt(i) : /* '\000' */0; var d = Caml_int64.of_int32(parse_digit(c)); if (Caml.i64_lt(d, Caml_int64.zero) || Caml.i64_ge(d, base)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } var aux = function (_acc, _k) { while(true) { @@ -242,11 +247,12 @@ function int64_of_string(s) { } var v = Caml_int64.of_int32(parse_digit(a)); if (Caml.i64_lt(v, Caml_int64.zero) || Caml.i64_ge(v, base) || Caml.i64_gt(acc, threshold)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } var acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); _k = k + 1 | 0; @@ -260,11 +266,12 @@ function int64_of_string(s) { 0, 10 ]) && Caml.i64_neq(res, or_res)) { - throw { - RE_EXN_ID: "Failure", - _1: "int64_of_string", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } return or_res; } @@ -292,11 +299,12 @@ function lowercase(c) { function parse_format(fmt) { var len = fmt.length; if (len > 31) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "format_int: format too long", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "format_int: format too long" + } + }); } var f = { justify: "+", @@ -796,7 +804,7 @@ var float_of_string = (function(s,exn){ return Infinity; if (/^-inf(inity)?$/i.test(s)) return -Infinity; - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn });; }); function float_of_string$1(s) { diff --git a/lib/js/caml_int32.js b/lib/js/caml_int32.js index 19085ae3d7..7afbed7b24 100644 --- a/lib/js/caml_int32.js +++ b/lib/js/caml_int32.js @@ -3,20 +3,22 @@ function div(x, y) { if (y === 0) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y | 0; } function mod_(x, y) { if (y === 0) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } diff --git a/lib/js/caml_int64.js b/lib/js/caml_int64.js index 5a69f07ca0..cd4c1c1003 100644 --- a/lib/js/caml_int64.js +++ b/lib/js/caml_int64.js @@ -383,10 +383,11 @@ function div(_self, _other) { if (other[0] !== 0 || other[1] !== 0) { exit$1 = 2; } else { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } if (exit$1 === 2) { if (self_hi !== -2147483648) { diff --git a/lib/js/caml_js_exceptions.js b/lib/js/caml_js_exceptions.js index aae2e4a375..59d58829ac 100644 --- a/lib/js/caml_js_exceptions.js +++ b/lib/js/caml_js_exceptions.js @@ -6,8 +6,8 @@ var Caml_exceptions = require("./caml_exceptions.js"); var $$Error = "JsError"; function internalToOCamlException(e) { - if (Caml_exceptions.is_extension(e)) { - return e; + if (Caml_exceptions.is_extension(e.cause)) { + return e.cause; } else { return { RE_EXN_ID: "JsError", diff --git a/lib/js/caml_lexer.js b/lib/js/caml_lexer.js index fd748f0adb..61ec6abbab 100644 --- a/lib/js/caml_lexer.js +++ b/lib/js/caml_lexer.js @@ -87,7 +87,7 @@ var caml_lex_engine_aux = (function (tbl, start_state, lexbuf, exn){ if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn + throw new Error(exn.RE_EXN_ID, { cause: exn }) else return lexbuf.lex_last_action; } @@ -222,7 +222,7 @@ var caml_new_lex_engine_aux = (function (tbl, start_state, lexbuf, exn) { if (state < 0) { lexbuf.lex_curr_pos = lexbuf.lex_last_pos; if (lexbuf.lex_last_action == -1) - throw exn; + throw new Error(exn.RE_EXN_ID, { cause: exn }); else return lexbuf.lex_last_action; } diff --git a/lib/js/caml_module.js b/lib/js/caml_module.js index aec2274939..a5aaee6f18 100644 --- a/lib/js/caml_module.js +++ b/lib/js/caml_module.js @@ -4,11 +4,12 @@ var Caml_obj = require("./caml_obj.js"); function init_mod(loc, shape) { var undef_module = function (param) { - throw { - RE_EXN_ID: "Undefined_recursive_module", - _1: loc, - Error: new Error() - }; + throw new Error("Undefined_recursive_module", { + cause: { + RE_EXN_ID: "Undefined_recursive_module", + _1: loc + } + }); }; var loop = function (shape, struct_, idx) { if (typeof shape !== "object") { @@ -80,15 +81,16 @@ function update_mod(shape, o, n) { } }; if (typeof shape !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } if (shape.TAG === "Module") { var comps = shape._0; @@ -99,15 +101,16 @@ function update_mod(shape, o, n) { } return ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } exports.init_mod = init_mod; diff --git a/lib/js/caml_obj.js b/lib/js/caml_obj.js index c429ee8578..2a9dbe0ee8 100644 --- a/lib/js/caml_obj.js +++ b/lib/js/caml_obj.js @@ -55,11 +55,12 @@ function compare(a, b) { break; case "function" : if (b_type === "function") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "compare: functional value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "compare: functional value" + } + }); } break; case "number" : @@ -137,11 +138,12 @@ function compare(a, b) { return Caml.int_compare(a[1], b[1]); } if (tag_a === 251) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { if (tag_a < tag_b) { @@ -268,11 +270,12 @@ function equal(a, b) { } var b_type = typeof b; if (a_type === "function" || b_type === "function") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: functional value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: functional value" + } + }); } if (b_type === "number" || b_type === "bigint" || b_type === "undefined" || b === null) { return false; @@ -283,11 +286,12 @@ function equal(a, b) { return a[1] === b[1]; } if (tag_a === 251) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { return false; diff --git a/lib/js/caml_string.js b/lib/js/caml_string.js index c9cf658457..70ae883486 100644 --- a/lib/js/caml_string.js +++ b/lib/js/caml_string.js @@ -3,11 +3,12 @@ function get(s, i) { if (i >= s.length || i < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s.codePointAt(i); } diff --git a/lib/js/caml_sys.js b/lib/js/caml_sys.js index 31b6d8df1a..7b2b55466a 100644 --- a/lib/js/caml_sys.js +++ b/lib/js/caml_sys.js @@ -3,19 +3,21 @@ function sys_getenv(s) { if (typeof process === "undefined" || process.env === undefined) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var x = process.env[s]; if (x !== undefined) { return x; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var os_type = (function(_){ @@ -71,19 +73,21 @@ function sys_exit(exit_code) { } function sys_is_directory(_s) { - throw { - RE_EXN_ID: "Failure", - _1: "sys_is_directory not implemented", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "sys_is_directory not implemented" + } + }); } function sys_file_exists(_s) { - throw { - RE_EXN_ID: "Failure", - _1: "sys_file_exists not implemented", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "sys_file_exists not implemented" + } + }); } exports.sys_getenv = sys_getenv; diff --git a/lib/js/camlinternalLazy.js b/lib/js/camlinternalLazy.js index f812859e83..8de80ed8f1 100644 --- a/lib/js/camlinternalLazy.js +++ b/lib/js/camlinternalLazy.js @@ -16,10 +16,11 @@ function forward_with_closure(blk, closure) { } function raise_undefined() { - throw { - RE_EXN_ID: Undefined, - Error: new Error() - }; + throw new Error(Undefined, { + cause: { + RE_EXN_ID: Undefined + } + }); } function force(lzv) { @@ -33,9 +34,13 @@ function force(lzv) { } catch (e){ lzv.VAL = (function () { - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); }); - throw e; + throw new Error(e.RE_EXN_ID, { + cause: e + }); } } } diff --git a/lib/js/char.js b/lib/js/char.js index e6dedb9fc4..0cda6d8d2d 100644 --- a/lib/js/char.js +++ b/lib/js/char.js @@ -4,11 +4,12 @@ var Bytes = require("./bytes.js"); function chr(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Char.chr", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Char.chr" + } + }); } return n; } diff --git a/lib/js/digest.js b/lib/js/digest.js index dde299252e..91254e39f8 100644 --- a/lib/js/digest.js +++ b/lib/js/digest.js @@ -17,11 +17,12 @@ function bytes(b) { function substring(str, ofs, len) { if (ofs < 0 || len < 0 || ofs > (str.length - len | 0)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.substring", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.substring" + } + }); } return Caml_md5.md5_string(str, ofs, len); } @@ -38,11 +39,12 @@ function char_hex(n) { function to_hex(d) { if (d.length !== 16) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.to_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.to_hex" + } + }); } var result = Caml_bytes.create(32); for(var i = 0; i <= 15; ++i){ @@ -55,39 +57,43 @@ function to_hex(d) { function from_hex(s) { if (s.length !== 32) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } var digit = function (c) { if (c >= 65) { if (c >= 97) { if (c >= 103) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'a' */97 | 0) + 10 | 0; } if (c >= 71) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'A' */65 | 0) + 10 | 0; } if (c > 57 || c < 48) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return c - /* '0' */48 | 0; }; diff --git a/lib/js/filename.js b/lib/js/filename.js index 4ca5a984e6..3298b93520 100644 --- a/lib/js/filename.js +++ b/lib/js/filename.js @@ -125,7 +125,9 @@ catch (raw_exn){ if (exn.RE_EXN_ID === "Not_found") { temp_dir_name = "/tmp"; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -206,7 +208,9 @@ catch (raw_exn$1){ if (exn$1.RE_EXN_ID === "Not_found") { temp_dir_name$1 = "."; } else { - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } @@ -381,11 +385,12 @@ function concat(dirname, filename) { function chop_suffix(name, suff) { var n = name.length - suff.length | 0; if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_suffix", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_suffix" + } + }); } return $$String.sub(name, 0, n); } @@ -428,11 +433,12 @@ function extension(name) { function chop_extension(name) { var l = extension_len(name); if (l === 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_extension", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_extension" + } + }); } return $$String.sub(name, 0, name.length - l | 0); } diff --git a/lib/js/genlex.js b/lib/js/genlex.js index 27b3c7d43d..38e549c7c3 100644 --- a/lib/js/genlex.js +++ b/lib/js/genlex.js @@ -61,7 +61,9 @@ function make_lexer(keywords) { _0: id }; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; var keyword_or_error = function (c) { @@ -72,13 +74,16 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "Illegal character " + s, - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "Illegal character " + s + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } }; var next_token = function (strm__) { @@ -118,22 +123,26 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } var match = Stream.peek(strm__); if (match !== undefined) { if (match !== 39) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return { @@ -141,11 +150,12 @@ function make_lexer(keywords) { _0: c$1 }; } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); case 40 : Stream.junk(strm__); var match$1 = Stream.peek(strm__); @@ -475,13 +485,16 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } store(c$1); continue ; @@ -489,10 +502,11 @@ function make_lexer(keywords) { Stream.junk(strm__); return get_string(); } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; }; var $$char = function (strm__) { @@ -509,19 +523,23 @@ function make_lexer(keywords) { catch (raw_exn){ var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; var $$escape = function (strm__) { @@ -554,45 +572,50 @@ function make_lexer(keywords) { var c2 = Stream.peek(strm__); if (c2 !== undefined) { if (c2 > 57 || c2 < 48) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); var c3 = Stream.peek(strm__); if (c3 !== undefined) { if (c3 > 57 || c3 < 48) { - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } - throw { - RE_EXN_ID: Stream.$$Error, - _1: "", - Error: new Error() - }; + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return c1; } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; var comment = function (strm__) { @@ -613,10 +636,11 @@ function make_lexer(keywords) { return comment(strm__); } } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 41 : Stream.junk(strm__); continue ; @@ -636,20 +660,22 @@ function make_lexer(keywords) { Stream.junk(strm__); return ; } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; default: Stream.junk(strm__); continue ; } } else { - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; }; diff --git a/lib/js/hashtbl.js b/lib/js/hashtbl.js index 83edfef324..955911c5ce 100644 --- a/lib/js/hashtbl.js +++ b/lib/js/hashtbl.js @@ -115,15 +115,16 @@ function copy_bucketlist(param) { next: next }; if (typeof prec !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "hashtbl.res", - 110, - 19 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "hashtbl.res", + 110, + 19 + ] + } + }); } prec.next = r; _param = next; @@ -257,10 +258,11 @@ function remove(h, key) { function find(h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -269,10 +271,11 @@ function find(h, key) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -281,10 +284,11 @@ function find(h, key) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -296,10 +300,11 @@ function find(h, key) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; @@ -470,10 +475,14 @@ function iter(f, h) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -524,10 +533,14 @@ function filter_map_inplace(f, h) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -564,10 +577,14 @@ function fold(f, h, init) { } catch (exn){ if (old_trav) { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } flip_ongoing_traversal(h); - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -650,10 +667,11 @@ function MakeSeeded(H) { var find = function (h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -662,10 +680,11 @@ function MakeSeeded(H) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -674,10 +693,11 @@ function MakeSeeded(H) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -689,10 +709,11 @@ function MakeSeeded(H) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; @@ -894,10 +915,11 @@ function Make(H) { var find = function (h, key) { var match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k1 = match.key; var d1 = match.data; @@ -906,10 +928,11 @@ function Make(H) { return d1; } if (typeof next1 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k2 = next1.key; var d2 = next1.data; @@ -918,10 +941,11 @@ function Make(H) { return d2; } if (typeof next2 !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k3 = next2.key; var d3 = next2.data; @@ -933,10 +957,11 @@ function Make(H) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = param.key; var data = param.data; diff --git a/lib/js/int32.js b/lib/js/int32.js index 6110414a50..f36696d800 100644 --- a/lib/js/int32.js +++ b/lib/js/int32.js @@ -37,7 +37,9 @@ function of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/int64.js b/lib/js/int64.js index 7ff4b5bb99..9abca532fe 100644 --- a/lib/js/int64.js +++ b/lib/js/int64.js @@ -30,7 +30,9 @@ function of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/js_exn.js b/lib/js/js_exn.js index cc85c73d12..6db786bd20 100644 --- a/lib/js/js_exn.js +++ b/lib/js/js_exn.js @@ -2,31 +2,45 @@ function raiseError(str) { - throw new Error(str); + throw new Error(new Error(str).RE_EXN_ID, { + cause: new Error(str) + }); } function raiseEvalError(str) { - throw new EvalError(str); + throw new Error(new EvalError(str).RE_EXN_ID, { + cause: new EvalError(str) + }); } function raiseRangeError(str) { - throw new RangeError(str); + throw new Error(new RangeError(str).RE_EXN_ID, { + cause: new RangeError(str) + }); } function raiseReferenceError(str) { - throw new ReferenceError(str); + throw new Error(new ReferenceError(str).RE_EXN_ID, { + cause: new ReferenceError(str) + }); } function raiseSyntaxError(str) { - throw new SyntaxError(str); + throw new Error(new SyntaxError(str).RE_EXN_ID, { + cause: new SyntaxError(str) + }); } function raiseTypeError(str) { - throw new TypeError(str); + throw new Error(new TypeError(str).RE_EXN_ID, { + cause: new TypeError(str) + }); } function raiseUriError(str) { - throw new URIError(str); + throw new Error(new URIError(str).RE_EXN_ID, { + cause: new URIError(str) + }); } var $$Error$1 = "JsError"; diff --git a/lib/js/js_mapperRt.js b/lib/js/js_mapperRt.js index 72c0aeb59e..1a831fbb4e 100644 --- a/lib/js/js_mapperRt.js +++ b/lib/js/js_mapperRt.js @@ -3,10 +3,11 @@ function raiseWhenNotFound(x) { if (x == null) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } return x; } @@ -32,10 +33,11 @@ function fromIntAssert(len, xs, $$enum) { while(true) { var i = _i; if (i === len) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var k = xs[i]; if (k === $$enum) { diff --git a/lib/js/js_null.js b/lib/js/js_null.js index de96799a6a..8cf5a6a195 100644 --- a/lib/js/js_null.js +++ b/lib/js/js_null.js @@ -10,7 +10,9 @@ function getExn(f) { if (f !== null) { return f; } - throw new Error("Js.Null.getExn"); + throw new Error(new Error("Js.Null.getExn").RE_EXN_ID, { + cause: new Error("Js.Null.getExn") + }); } function bind(x, f) { diff --git a/lib/js/js_option.js b/lib/js/js_option.js index 1d61467206..6256f8ed39 100644 --- a/lib/js/js_option.js +++ b/lib/js/js_option.js @@ -26,7 +26,9 @@ function getExn(x) { if (x !== undefined) { return Caml_option.valFromOption(x); } - throw new Error("getExn"); + throw new Error(new Error("getExn").RE_EXN_ID, { + cause: new Error("getExn") + }); } function equal(eq, a, b) { diff --git a/lib/js/js_undefined.js b/lib/js/js_undefined.js index ae23e681cc..7f0826325d 100644 --- a/lib/js/js_undefined.js +++ b/lib/js/js_undefined.js @@ -14,7 +14,9 @@ function getExn(f) { if (f !== undefined) { return f; } - throw new Error("Js.Undefined.getExn"); + throw new Error(new Error("Js.Undefined.getExn").RE_EXN_ID, { + cause: new Error("Js.Undefined.getExn") + }); } function bind(x, f) { diff --git a/lib/js/lexing.js b/lib/js/lexing.js index a99f07da9c..05e01c52e4 100644 --- a/lib/js/lexing.js +++ b/lib/js/lexing.js @@ -55,11 +55,12 @@ function from_function(f) { } else { var newlen = (param.lex_buffer.length << 1); if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { - throw { - RE_EXN_ID: "Failure", - _1: "Lexing.lex_refill: cannot grow buffer", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Lexing.lex_refill: cannot grow buffer" + } + }); } var newbuf = Caml_bytes.create(newlen); Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); diff --git a/lib/js/list.js b/lib/js/list.js index 2a4fa3ef68..b2d6ab3b99 100644 --- a/lib/js/list.js +++ b/lib/js/list.js @@ -31,31 +31,34 @@ function hd(param) { if (param) { return param.hd; } - throw { - RE_EXN_ID: "Failure", - _1: "hd", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { if (param) { return param.tl; } - throw { - RE_EXN_ID: "Failure", - _1: "tl", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -70,21 +73,23 @@ function nth(l, n) { _l = l$1.tl; continue ; } - throw { - RE_EXN_ID: "Failure", - _1: "nth", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -152,11 +157,12 @@ function init_aux(i, n, f) { function init(len, f) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -275,20 +281,22 @@ function map2(f, l1, l2) { tl: map2(f, l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { @@ -309,18 +317,20 @@ function rev_map2(f, l1, l2) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -337,20 +347,22 @@ function iter2(f, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { return ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } @@ -366,18 +378,20 @@ function fold_left2(f, _accu, _l1, _l2) { _accu = Curry._3(f, accu, l1.hd, l2.hd); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -388,18 +402,20 @@ function fold_right2(f, l1, l2, accu) { if (l2) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -445,20 +461,22 @@ function for_all2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } @@ -475,20 +493,22 @@ function exists2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } @@ -531,10 +551,11 @@ function assoc(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -564,10 +585,11 @@ function assq(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -657,10 +679,11 @@ function find(p, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -770,20 +793,22 @@ function combine(l1, l2) { tl: combine(l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -820,15 +845,16 @@ function chop(_k, _l) { _k = k - 1 | 0; continue ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "list.res", - 420, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "list.res", + 420, + 11 + ] + } + }); }; } diff --git a/lib/js/listLabels.js b/lib/js/listLabels.js index 0633cbadca..045ab631fd 100644 --- a/lib/js/listLabels.js +++ b/lib/js/listLabels.js @@ -31,31 +31,34 @@ function hd(param) { if (param) { return param.hd; } - throw { - RE_EXN_ID: "Failure", - _1: "hd", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { if (param) { return param.tl; } - throw { - RE_EXN_ID: "Failure", - _1: "tl", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -70,21 +73,23 @@ function nth(l, n) { _l = l$1.tl; continue ; } - throw { - RE_EXN_ID: "Failure", - _1: "nth", - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } var _l = l; var _n = n; @@ -152,11 +157,12 @@ function init_aux(i, n, f) { function init(len, f) { if (len < 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.init", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -275,20 +281,22 @@ function map2(f, l1, l2) { tl: map2(f, l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { @@ -309,18 +317,20 @@ function rev_map2(f, l1, l2) { }; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -337,20 +347,22 @@ function iter2(f, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { return ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } @@ -366,18 +378,20 @@ function fold_left2(f, _accu, _l1, _l2) { _accu = Curry._3(f, accu, l1.hd, l2.hd); continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -388,18 +402,20 @@ function fold_right2(f, l1, l2, accu) { if (l2) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -445,20 +461,22 @@ function for_all2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } @@ -475,20 +493,22 @@ function exists2(p, _l1, _l2) { _l1 = l1.tl; continue ; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } @@ -531,10 +551,11 @@ function assoc(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -564,10 +585,11 @@ function assq(x, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -657,10 +679,11 @@ function find(p, _param) { _param = param.tl; continue ; } - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -770,20 +793,22 @@ function combine(l1, l2) { tl: combine(l1.tl, l2.tl) }; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -820,15 +845,16 @@ function chop(_k, _l) { _k = k - 1 | 0; continue ; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "listLabels.res", - 420, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "listLabels.res", + 420, + 11 + ] + } + }); }; } diff --git a/lib/js/map.js b/lib/js/map.js index da4f3e632a..9621776e28 100644 --- a/lib/js/map.js +++ b/lib/js/map.js @@ -40,11 +40,12 @@ function Make(funarg) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -56,11 +57,12 @@ function Make(funarg) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -73,11 +75,12 @@ function Make(funarg) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -89,11 +92,12 @@ function Make(funarg) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -151,10 +155,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(funarg.compare, x, param.v); if (c === 0) { @@ -168,10 +173,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -243,10 +249,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -346,10 +353,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -383,10 +391,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -418,11 +427,12 @@ function Make(funarg) { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -710,15 +720,16 @@ function Make(funarg) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/lib/js/mapLabels.js b/lib/js/mapLabels.js index 5ba10c0afe..6168a90051 100644 --- a/lib/js/mapLabels.js +++ b/lib/js/mapLabels.js @@ -40,11 +40,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -56,11 +57,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -73,11 +75,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -89,11 +92,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -151,10 +155,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(Ord.compare, x, param.v); if (c === 0) { @@ -190,10 +195,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -265,10 +271,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -346,10 +353,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -383,10 +391,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -418,11 +427,12 @@ function Make(Ord) { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -710,15 +720,16 @@ function Make(Ord) { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); diff --git a/lib/js/moreLabels.js b/lib/js/moreLabels.js index c37c95cac2..368fd931c2 100644 --- a/lib/js/moreLabels.js +++ b/lib/js/moreLabels.js @@ -70,11 +70,12 @@ var $$Map = { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var lr = l.r; var ld = l.d; @@ -86,11 +87,12 @@ var $$Map = { if (typeof lr === "object") { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -103,11 +105,12 @@ var $$Map = { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } var rr = r.r; var rd = r.d; @@ -119,11 +122,12 @@ var $$Map = { if (typeof rl === "object") { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; var is_empty = function (param) { if (typeof param !== "object") { @@ -181,10 +185,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var c = Curry._2(funarg.compare, x, param.v); if (c === 0) { @@ -220,10 +225,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -295,10 +301,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -376,10 +383,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -413,10 +421,11 @@ var $$Map = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -448,11 +457,12 @@ var $$Map = { }; var remove_min_binding = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -740,15 +750,16 @@ var $$Map = { } if (typeof s2 !== "object") { - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); } var v2 = s2.v; var match$1 = split(v2, s1); @@ -1005,11 +1016,12 @@ var $$Set = { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -1020,11 +1032,12 @@ var $$Set = { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -1036,11 +1049,12 @@ var $$Set = { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -1051,11 +1065,12 @@ var $$Set = { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -1133,10 +1148,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -1164,10 +1180,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -1193,11 +1210,12 @@ var $$Set = { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -1593,10 +1611,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(funarg.compare, x, v); @@ -1628,10 +1647,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1693,10 +1713,11 @@ var $$Set = { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -1868,15 +1889,16 @@ var $$Set = { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; diff --git a/lib/js/parsing.js b/lib/js/parsing.js index a041925b2c..a17630f3a8 100644 --- a/lib/js/parsing.js +++ b/lib/js/parsing.js @@ -88,10 +88,11 @@ function yyparse(tables, start, lexer, lexbuf) { _cmd = "Token_read"; continue ; case "Raise_parse_error" : - throw { - RE_EXN_ID: Parse_error, - Error: new Error() - }; + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error + } + }); case "Grow_stacks_1" : grow_stacks(); _arg = undefined; @@ -118,7 +119,9 @@ function yyparse(tables, start, lexer, lexbuf) { undefined ]; } else { - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } _arg = match$1[1]; @@ -153,7 +156,9 @@ function yyparse(tables, start, lexer, lexbuf) { return Caml_array.get(tables.transl_const, tok) === curr_char; } }); - throw exn$1; + throw new Error(exn$1.RE_EXN_ID, { + cause: exn$1 + }); } } diff --git a/lib/js/pervasives.js b/lib/js/pervasives.js index efcf4fb70d..a51ff43634 100644 --- a/lib/js/pervasives.js +++ b/lib/js/pervasives.js @@ -14,19 +14,21 @@ var JsxModules = { }; function failwith(s) { - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } var Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); @@ -63,11 +65,12 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -87,11 +90,12 @@ function bool_of_string(param) { case "true" : return true; default: - throw { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -115,7 +119,9 @@ function int_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -156,7 +162,9 @@ function float_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/pervasivesU.js b/lib/js/pervasivesU.js index 31c6560d8a..19e627ccce 100644 --- a/lib/js/pervasivesU.js +++ b/lib/js/pervasivesU.js @@ -13,19 +13,21 @@ var JsxModules = { }; function failwith(s) { - throw { - RE_EXN_ID: "Failure", - _1: s, - Error: new Error() - }; + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } var Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); @@ -62,11 +64,12 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -86,11 +89,12 @@ function bool_of_string(param) { case "true" : return true; default: - throw { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -114,7 +118,9 @@ function int_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -155,7 +161,9 @@ function float_of_string_opt(s) { if (exn.RE_EXN_ID === "Failure") { return ; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/queue.js b/lib/js/queue.js index 3fb8d780f0..f93d01db91 100644 --- a/lib/js/queue.js +++ b/lib/js/queue.js @@ -42,19 +42,21 @@ function peek(q) { if (typeof match === "object") { return match.content; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function take(q) { var match = q.first; if (typeof match !== "object") { - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } var content = match.content; var next = match.next; diff --git a/lib/js/random.js b/lib/js/random.js index f0ceb6521d..1f8a9680a9 100644 --- a/lib/js/random.js +++ b/lib/js/random.js @@ -75,11 +75,12 @@ function bits(s) { function $$int(s, bound) { if (bound > 1073741823 || bound <= 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int" + } + }); } while(true) { var r = bits(s); @@ -93,11 +94,12 @@ function $$int(s, bound) { function int32(s, bound) { if (bound <= 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int32", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int32" + } + }); } while(true) { var b1 = bits(s); @@ -113,11 +115,12 @@ function int32(s, bound) { function int64(s, bound) { if (Caml.i64_le(bound, Caml_int64.zero)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int64", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int64" + } + }); } while(true) { var b1 = Caml_int64.of_int32(bits(s)); diff --git a/lib/js/set.js b/lib/js/set.js index 4f27c4d77f..424cd83d38 100644 --- a/lib/js/set.js +++ b/lib/js/set.js @@ -32,11 +32,12 @@ function Make(funarg) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -47,11 +48,12 @@ function Make(funarg) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function Make(funarg) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -78,11 +81,12 @@ function Make(funarg) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -160,10 +164,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -191,10 +196,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -220,11 +226,12 @@ function Make(funarg) { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -616,10 +623,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(funarg.compare, x, v); @@ -634,10 +642,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -697,10 +706,11 @@ function Make(funarg) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -905,15 +915,16 @@ function Make(funarg) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { diff --git a/lib/js/setLabels.js b/lib/js/setLabels.js index e28f5ec6b9..601d63d01e 100644 --- a/lib/js/setLabels.js +++ b/lib/js/setLabels.js @@ -32,11 +32,12 @@ function Make(Ord) { hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var lr = l.r; var lv = l.v; @@ -47,11 +48,12 @@ function Make(Ord) { if (typeof lr === "object") { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { @@ -63,11 +65,12 @@ function Make(Ord) { }; } if (typeof r !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } var rr = r.r; var rv = r.v; @@ -78,11 +81,12 @@ function Make(Ord) { if (typeof rl === "object") { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; var add = function (x, param) { if (typeof param !== "object") { @@ -160,10 +164,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -191,10 +196,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var r = param.r; if (typeof r !== "object") { @@ -220,11 +226,12 @@ function Make(Ord) { }; var remove_min_elt = function (param) { if (typeof param !== "object") { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } var l = param.l; if (typeof l !== "object") { @@ -620,10 +627,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; var c = Curry._2(Ord.compare, x, v); @@ -655,10 +663,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -720,10 +729,11 @@ function Make(Ord) { while(true) { var param = _param; if (typeof param !== "object") { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } var v = param.v; if (Curry._1(f, v)) { @@ -895,15 +905,16 @@ function Make(Ord) { match$4[1] ]; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; diff --git a/lib/js/sort.js b/lib/js/sort.js index d595df2749..095e04c7ac 100644 --- a/lib/js/sort.js +++ b/lib/js/sort.js @@ -115,11 +115,12 @@ function array(cmp, arr) { var i = lo + 1 | 0; var j = hi - 1 | 0; if (!Curry._2(cmp, pivot, arr[hi]) || !Curry._2(cmp, arr[lo], pivot)) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "Sort.array", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Sort.array" + } + }); } while(i < j) { while(!Curry._2(cmp, pivot, arr[i])) { diff --git a/lib/js/stack.js b/lib/js/stack.js index 7105eee48b..365a8e2860 100644 --- a/lib/js/stack.js +++ b/lib/js/stack.js @@ -39,10 +39,11 @@ function pop(s) { s.len = s.len - 1 | 0; return match.hd; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function top(s) { @@ -50,10 +51,11 @@ function top(s) { if (match) { return match.hd; } - throw { - RE_EXN_ID: Empty, - Error: new Error() - }; + throw new Error(Empty, { + cause: { + RE_EXN_ID: Empty + } + }); } function is_empty(s) { diff --git a/lib/js/stream.js b/lib/js/stream.js index 434ed12774..aeaefe406a 100644 --- a/lib/js/stream.js +++ b/lib/js/stream.js @@ -55,15 +55,16 @@ function get_data(count, _d) { } }; } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 53, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 53, + 13 + ] + } + }); case "Slazy" : _d = CamlinternalLazy.force(d._0); continue ; @@ -117,15 +118,16 @@ function peek_data(s) { s.data = d; return Caml_option.some(d._0); } - throw { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 83, - 13 - ], - Error: new Error() - }; + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 83, + 13 + ] + } + }); case "Slazy" : s.data = CamlinternalLazy.force(f._0); continue ; @@ -237,10 +239,11 @@ function next(s) { junk(s); return Caml_option.valFromOption(a); } - throw { - RE_EXN_ID: Failure, - Error: new Error() - }; + throw new Error(Failure, { + cause: { + RE_EXN_ID: Failure + } + }); } function empty(s) { @@ -248,10 +251,11 @@ function empty(s) { if (match === undefined) { return ; } - throw { - RE_EXN_ID: Failure, - Error: new Error() - }; + throw new Error(Failure, { + cause: { + RE_EXN_ID: Failure + } + }); } function iter(f, strm) { diff --git a/lib/js/string.js b/lib/js/string.js index 076b21a317..10c9c02de1 100644 --- a/lib/js/string.js +++ b/lib/js/string.js @@ -91,10 +91,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -129,11 +130,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -141,11 +143,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -154,10 +157,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -173,11 +177,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -202,11 +207,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -214,11 +220,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -229,7 +236,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -239,11 +248,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -254,7 +264,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/stringLabels.js b/lib/js/stringLabels.js index 22cd4df919..ca9369f5a2 100644 --- a/lib/js/stringLabels.js +++ b/lib/js/stringLabels.js @@ -93,10 +93,11 @@ function index_rec(s, lim, _i, c) { while(true) { var i = _i; if (i >= lim) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -131,11 +132,12 @@ function index_opt(s, c) { function index_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } @@ -143,11 +145,12 @@ function index_from(s, i, c) { function index_from_opt(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } @@ -156,10 +159,11 @@ function rindex_rec(s, _i, c) { while(true) { var i = _i; if (i < 0) { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; @@ -175,11 +179,12 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } @@ -204,11 +209,12 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } @@ -216,11 +222,12 @@ function rindex_from_opt(s, i, c) { function contains_from(s, i, c) { var l = s.length; if (i < 0 || i > l) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); @@ -231,7 +238,9 @@ function contains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } @@ -241,11 +250,12 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); @@ -256,7 +266,9 @@ function rcontains_from(s, i, c) { if (exn.RE_EXN_ID === "Not_found") { return false; } - throw exn; + throw new Error(exn.RE_EXN_ID, { + cause: exn + }); } } diff --git a/lib/js/uchar.js b/lib/js/uchar.js index a9de3eabe4..b07b75c62b 100644 --- a/lib/js/uchar.js +++ b/lib/js/uchar.js @@ -16,11 +16,12 @@ function succ(u) { return 57344; } if (u === 1114111) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "U+10FFFF has no successor", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+10FFFF has no successor" + } + }); } return u + 1 | 0; } @@ -30,11 +31,12 @@ function pred(u) { return 55295; } if (u === 0) { - throw { - RE_EXN_ID: "Invalid_argument", - _1: "U+0000 has no predecessor", - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+0000 has no predecessor" + } + }); } return u - 1 | 0; } @@ -54,11 +56,12 @@ function of_int(i) { return i; } var s = err_not_sv(i); - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function is_char(u) { @@ -74,11 +77,12 @@ function to_char(u) { return u; } var s = err_not_latin1(u); - throw { - RE_EXN_ID: "Invalid_argument", - _1: s, - Error: new Error() - }; + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function unsafe_to_char(prim) { From 2cc5bc87837f599bd976bd2ce212283882c7da1a Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Fri, 9 Feb 2024 19:38:54 -0300 Subject: [PATCH 2/5] uncomment test --- jscomp/test/build.ninja | 2 +- jscomp/test/equal_exception_test.js | 3 +++ jscomp/test/equal_exception_test.res | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/jscomp/test/build.ninja b/jscomp/test/build.ninja index 36f43bbc5f..024a7fab23 100644 --- a/jscomp/test/build.ninja +++ b/jscomp/test/build.ninja @@ -165,7 +165,7 @@ o test/earger_curry_test.cmi test/earger_curry_test.cmj : cc test/earger_curry_t o test/effect.cmi test/effect.cmj : cc test/effect.res | $bsc $stdlib runtime o test/epsilon_test.cmi test/epsilon_test.cmj : cc test/epsilon_test.res | test/mt.cmj $bsc $stdlib runtime o test/equal_box_test.cmi test/equal_box_test.cmj : cc test/equal_box_test.res | test/mt.cmj $bsc $stdlib runtime -o test/equal_exception_test.cmi test/equal_exception_test.cmj : cc test/equal_exception_test.res | $bsc $stdlib runtime +o test/equal_exception_test.cmi test/equal_exception_test.cmj : cc test/equal_exception_test.res | test/mt.cmj $bsc $stdlib runtime o test/equal_test.cmi test/equal_test.cmj : cc test/equal_test.res | $bsc $stdlib runtime o test/es6_export.cmi test/es6_export.cmj : cc test/es6_export.res | $bsc $stdlib runtime o test/es6_import.cmi test/es6_import.cmj : cc test/es6_import.res | test/es6_export.cmj $bsc $stdlib runtime diff --git a/jscomp/test/equal_exception_test.js b/jscomp/test/equal_exception_test.js index d29fe2b852..c3fb7e116d 100644 --- a/jscomp/test/equal_exception_test.js +++ b/jscomp/test/equal_exception_test.js @@ -1,6 +1,7 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; +var Mt = require("./mt.js"); var Bytes = require("../../lib/js/bytes.js"); var Caml_obj = require("../../lib/js/caml_obj.js"); var Caml_bytes = require("../../lib/js/caml_bytes.js"); @@ -192,6 +193,8 @@ if (Not_found === "Not_found" !== false) { }); } +Mt.from_suites("exception", suites); + exports.v = v; exports.is_equal = is_equal; exports.is_exception = is_exception; diff --git a/jscomp/test/equal_exception_test.res b/jscomp/test/equal_exception_test.res index 0d85656cc9..4e7382c6ff 100644 --- a/jscomp/test/equal_exception_test.res +++ b/jscomp/test/equal_exception_test.res @@ -50,4 +50,4 @@ exception Not_found assert ((e == Not_found) == false) assert (eq(Not_found) == false) -// Mt.from_suites("exception", suites) +Mt.from_suites("exception", suites) From c4f1f7cc1f4bd6771c61c0eb82cf49e95dc4fefc Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Wed, 27 Mar 2024 14:07:55 -0300 Subject: [PATCH 3/5] update output --- jscomp/test/build.ninja | 7 ++++++- jscomp/test/lazy_test.js | 27 +++++++++++++++------------ lib/es6/genlex.js | 9 +++++---- lib/js/genlex.js | 9 +++++---- 4 files changed, 31 insertions(+), 21 deletions(-) diff --git a/jscomp/test/build.ninja b/jscomp/test/build.ninja index aabc9c0e57..ae46110d85 100644 --- a/jscomp/test/build.ninja +++ b/jscomp/test/build.ninja @@ -21,6 +21,8 @@ o test/simple_lexer_test.ml : mll test/simple_lexer_test.mll o test/406_primitive_test.cmi test/406_primitive_test.cmj : cc test/406_primitive_test.res | test/mt.cmj $bsc $stdlib runtime o test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj : cc test/AsInUncurriedExternals.res | $bsc $stdlib runtime o test/Coercion.cmi test/Coercion.cmj : cc test/Coercion.res | $bsc $stdlib runtime +o test/DerivingAccessorsCurried.cmi test/DerivingAccessorsCurried.cmj : cc test/DerivingAccessorsCurried.res | $bsc $stdlib runtime +o test/DerivingAccessorsUncurried.cmi test/DerivingAccessorsUncurried.cmj : cc test/DerivingAccessorsUncurried.res | $bsc $stdlib runtime o test/DotDotDot.cmi test/DotDotDot.cmj : cc test/DotDotDot.res | $bsc $stdlib runtime o test/EmptyRecord.cmi test/EmptyRecord.cmj : cc test/EmptyRecord.res | $bsc $stdlib runtime o test/FFI.cmi test/FFI.cmj : cc test/FFI.res | $bsc $stdlib runtime @@ -348,6 +350,8 @@ o test/hello_res.cmj : cc_cmi test/hello_res.res | test/hello_res.cmi $bsc $stdl o test/hello_res.cmi : cc test/hello_res.resi | $bsc $stdlib runtime o test/ignore_test.cmi test/ignore_test.cmj : cc test/ignore_test.res | test/mt.cmj $bsc $stdlib runtime o test/imm_map_bench.cmi test/imm_map_bench.cmj : cc test/imm_map_bench.res | $bsc $stdlib runtime +o test/import2.cmi test/import2.cmj : cc test/import2.res | test/import_external.cmj $bsc $stdlib runtime +o test/import_external.cmi test/import_external.cmj : cc test/import_external.res | $bsc $stdlib runtime o test/import_side_effect.cmi test/import_side_effect.cmj : cc test/import_side_effect.res | test/side_effect.cmj test/side_effect2.cmj $bsc $stdlib runtime o test/import_side_effect_free.cmi test/import_side_effect_free.cmj : cc test/import_side_effect_free.res | test/side_effect_free.cmj $bsc $stdlib runtime o test/include_side_effect.cmi test/include_side_effect.cmj : cc test/include_side_effect.res | test/side_effect.cmj $bsc $stdlib runtime @@ -472,6 +476,7 @@ o test/obj_type_test.cmi test/obj_type_test.cmj : cc test/obj_type_test.res | $b o test/ocaml_re_test.cmi test/ocaml_re_test.cmj : cc test/ocaml_re_test.res | test/mt.cmj $bsc $stdlib runtime o test/of_string_test.cmi test/of_string_test.cmj : cc test/of_string_test.res | test/mt.cmj $bsc $stdlib runtime o test/offset.cmi test/offset.cmj : cc test/offset.res | $bsc $stdlib runtime +o test/omit_trailing_undefined_in_external_calls.cmi test/omit_trailing_undefined_in_external_calls.cmj : cc test/omit_trailing_undefined_in_external_calls.res | $bsc $stdlib runtime o test/option_encoding_test.cmi test/option_encoding_test.cmj : cc test/option_encoding_test.res | $bsc $stdlib runtime o test/option_record_none_test.cmi test/option_record_none_test.cmj : cc test/option_record_none_test.res | $bsc $stdlib runtime o test/option_repr_test.cmi test/option_repr_test.cmj : cc test/option_repr_test.res | test/mt.cmj $bsc $stdlib runtime @@ -712,4 +717,4 @@ o test/update_record_test.cmi test/update_record_test.cmj : cc test/update_recor o test/variant.cmi test/variant.cmj : cc test/variant.res | $bsc $stdlib runtime o test/variantsMatching.cmi test/variantsMatching.cmj : cc test/variantsMatching.res | $bsc $stdlib runtime o test/webpack_config.cmi test/webpack_config.cmj : cc test/webpack_config.res | $bsc $stdlib runtime -o test : phony test/406_primitive_test.cmi test/406_primitive_test.cmj test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj test/Coercion.cmi test/Coercion.cmj test/DotDotDot.cmi test/DotDotDot.cmj test/EmptyRecord.cmi test/EmptyRecord.cmj test/FFI.cmi test/FFI.cmj test/Import.cmi test/Import.cmj test/ImportAttributes.cmi test/ImportAttributes.cmj test/RecordCoercion.cmi test/RecordCoercion.cmj test/RecordOrObject.cmi test/RecordOrObject.cmj test/SafePromises.cmi test/SafePromises.cmj test/UncurriedAlways.cmi test/UncurriedAlways.cmj test/UncurriedExternals.cmi test/UncurriedExternals.cmj test/UncurriedPervasives.cmi test/UncurriedPervasives.cmj test/UntaggedVariants.cmi test/UntaggedVariants.cmj test/VariantCoercion.cmi test/VariantCoercion.cmj test/VariantSpreads.cmi test/VariantSpreads.cmj test/a.cmi test/a.cmj test/a_filename_test.cmi test/a_filename_test.cmj test/a_list_test.cmi test/a_list_test.cmj test/a_recursive_type.cmi test/a_recursive_type.cmj test/a_scope_bug.cmi test/a_scope_bug.cmj test/a_string_test.cmi test/a_string_test.cmj test/abstract_type.cmi test/abstract_type.cmj test/adt_optimize_test.cmi test/adt_optimize_test.cmj test/alias_default_value_test.cmi test/alias_default_value_test.cmj test/alias_test.cmi test/alias_test.cmj test/and_or_tailcall_test.cmi test/and_or_tailcall_test.cmj test/argv_test.cmi test/argv_test.cmj test/ari_regress_test.cmi test/ari_regress_test.cmj test/arith_lexer.cmi test/arith_lexer.cmj test/arith_parser.cmi test/arith_parser.cmj test/arith_syntax.cmi test/arith_syntax.cmj test/arity.cmi test/arity.cmj test/arity_deopt.cmi test/arity_deopt.cmj test/arity_infer.cmi test/arity_infer.cmj test/array_data_util.cmi test/array_data_util.cmj test/array_safe_get.cmi test/array_safe_get.cmj test/array_subtle_test.cmi test/array_subtle_test.cmj test/array_test.cmi test/array_test.cmj test/as_inline_record_test.cmi test/as_inline_record_test.cmj test/ast_abstract_test.cmi test/ast_abstract_test.cmj test/ast_mapper_unused_warning_test.cmi test/ast_mapper_unused_warning_test.cmj test/async_await.cmi test/async_await.cmj test/async_ideas.cmi test/async_ideas.cmj test/async_inline.cmi test/async_inline.cmj test/async_inside_loop.cmi test/async_inside_loop.cmj test/attr_test.cmi test/attr_test.cmj test/b.cmi test/b.cmj test/bal_set_mini.cmi test/bal_set_mini.cmj test/bang_primitive.cmi test/bang_primitive.cmj test/basic_module_test.cmi test/basic_module_test.cmj test/bb.cmi test/bb.cmj test/bdd.cmi test/bdd.cmj test/belt_internal_test.cmi test/belt_internal_test.cmj test/belt_result_alias_test.cmi test/belt_result_alias_test.cmj test/bench.cmi test/bench.cmj test/big_enum.cmi test/big_enum.cmj test/big_polyvar_test.cmi test/big_polyvar_test.cmj test/block_alias_test.cmi test/block_alias_test.cmj test/boolean_test.cmi test/boolean_test.cmj test/bs_MapInt_test.cmi test/bs_MapInt_test.cmj test/bs_abstract_test.cmi test/bs_abstract_test.cmj test/bs_array_test.cmi test/bs_array_test.cmj test/bs_auto_uncurry.cmi test/bs_auto_uncurry.cmj test/bs_auto_uncurry_test.cmi test/bs_auto_uncurry_test.cmj test/bs_float_test.cmi test/bs_float_test.cmj test/bs_hashmap_test.cmi test/bs_hashmap_test.cmj test/bs_hashset_int_test.cmi test/bs_hashset_int_test.cmj test/bs_hashtbl_string_test.cmi test/bs_hashtbl_string_test.cmj test/bs_ignore_effect.cmi test/bs_ignore_effect.cmj test/bs_ignore_test.cmi test/bs_ignore_test.cmj test/bs_int_test.cmi test/bs_int_test.cmj test/bs_list_test.cmi test/bs_list_test.cmj test/bs_map_set_dict_test.cmi test/bs_map_set_dict_test.cmj test/bs_map_test.cmi test/bs_map_test.cmj test/bs_min_max_test.cmi test/bs_min_max_test.cmj test/bs_mutable_set_test.cmi test/bs_mutable_set_test.cmj test/bs_poly_map_test.cmi test/bs_poly_map_test.cmj test/bs_poly_mutable_map_test.cmi test/bs_poly_mutable_map_test.cmj test/bs_poly_mutable_set_test.cmi test/bs_poly_mutable_set_test.cmj test/bs_poly_set_test.cmi test/bs_poly_set_test.cmj test/bs_qualified.cmi test/bs_qualified.cmj test/bs_queue_test.cmi test/bs_queue_test.cmj test/bs_rbset_int_bench.cmi test/bs_rbset_int_bench.cmj test/bs_rest_test.cmi test/bs_rest_test.cmj test/bs_set_bench.cmi test/bs_set_bench.cmj test/bs_set_int_test.cmi test/bs_set_int_test.cmj test/bs_sort_test.cmi test/bs_sort_test.cmj test/bs_splice_partial.cmi test/bs_splice_partial.cmj test/bs_stack_test.cmi test/bs_stack_test.cmj test/bs_string_test.cmi test/bs_string_test.cmj test/bs_unwrap_test.cmi test/bs_unwrap_test.cmj test/buffer_test.cmi test/buffer_test.cmj test/bytes_split_gpr_743_test.cmi test/bytes_split_gpr_743_test.cmj test/caml_compare_bigint_test.cmi test/caml_compare_bigint_test.cmj test/caml_compare_test.cmi test/caml_compare_test.cmj test/caml_format_test.cmi test/caml_format_test.cmj test/chain_code_test.cmi test/chain_code_test.cmj test/chn_test.cmi test/chn_test.cmj test/class_type_ffi_test.cmi test/class_type_ffi_test.cmj test/coercion_module_alias_test.cmi test/coercion_module_alias_test.cmj test/compare_test.cmi test/compare_test.cmj test/complete_parmatch_test.cmi test/complete_parmatch_test.cmj test/complex_if_test.cmi test/complex_if_test.cmj test/complex_test.cmi test/complex_test.cmj test/complex_while_loop.cmi test/complex_while_loop.cmj test/condition_compilation_test.cmi test/condition_compilation_test.cmj test/config1_test.cmi test/config1_test.cmj test/console_log_test.cmi test/console_log_test.cmj test/const_block_test.cmi test/const_block_test.cmj test/const_defs.cmi test/const_defs.cmj test/const_defs_test.cmi test/const_defs_test.cmj test/const_test.cmi test/const_test.cmj test/cont_int_fold_test.cmi test/cont_int_fold_test.cmj test/cps_test.cmi test/cps_test.cmj test/cross_module_inline_test.cmi test/cross_module_inline_test.cmj test/custom_error_test.cmi test/custom_error_test.cmj test/debug_keep_test.cmi test/debug_keep_test.cmj test/debug_mode_value.cmi test/debug_mode_value.cmj test/debug_tmp.cmi test/debug_tmp.cmj test/debugger_test.cmi test/debugger_test.cmj test/default_export_test.cmi test/default_export_test.cmj test/defunctor_make_test.cmi test/defunctor_make_test.cmj test/demo_int_map.cmi test/demo_int_map.cmj test/demo_page.cmi test/demo_page.cmj test/demo_pipe.cmi test/demo_pipe.cmj test/derive_projector_test.cmi test/derive_projector_test.cmj test/digest_test.cmi test/digest_test.cmj test/directives.cmi test/directives.cmj test/div_by_zero_test.cmi test/div_by_zero_test.cmj test/dollar_escape_test.cmi test/dollar_escape_test.cmj test/earger_curry_test.cmi test/earger_curry_test.cmj test/effect.cmi test/effect.cmj test/epsilon_test.cmi test/epsilon_test.cmj test/equal_box_test.cmi test/equal_box_test.cmj test/equal_exception_test.cmi test/equal_exception_test.cmj test/equal_test.cmi test/equal_test.cmj test/es6_export.cmi test/es6_export.cmj test/es6_import.cmi test/es6_import.cmj test/es6_module_test.cmi test/es6_module_test.cmj test/escape_esmodule.cmi test/escape_esmodule.cmj test/esmodule_ref.cmi test/esmodule_ref.cmj test/event_ffi.cmi test/event_ffi.cmj test/exception_alias.cmi test/exception_alias.cmj test/exception_raise_test.cmi test/exception_raise_test.cmj test/exception_rebound_err_test.cmi test/exception_rebound_err_test.cmj test/exception_value_test.cmi test/exception_value_test.cmj test/exponentiation_precedence_test.cmi test/exponentiation_precedence_test.cmj test/export_keyword.cmi test/export_keyword.cmj test/ext_array_test.cmi test/ext_array_test.cmj test/ext_bytes_test.cmi test/ext_bytes_test.cmj test/ext_filename_test.cmi test/ext_filename_test.cmj test/ext_list_test.cmi test/ext_list_test.cmj test/ext_pervasives_test.cmi test/ext_pervasives_test.cmj test/ext_string_test.cmi test/ext_string_test.cmj test/ext_sys_test.cmi test/ext_sys_test.cmj test/extensible_variant_test.cmi test/extensible_variant_test.cmj test/external_polyfill_test.cmi test/external_polyfill_test.cmj test/external_ppx.cmi test/external_ppx.cmj test/external_ppx2.cmi test/external_ppx2.cmj test/fail_comp.cmi test/fail_comp.cmj test/ffi_arity_test.cmi test/ffi_arity_test.cmj test/ffi_array_test.cmi test/ffi_array_test.cmj test/ffi_js_test.cmi test/ffi_js_test.cmj test/ffi_splice_test.cmi test/ffi_splice_test.cmj test/ffi_test.cmi test/ffi_test.cmj test/fib.cmi test/fib.cmj test/flattern_order_test.cmi test/flattern_order_test.cmj test/flexible_array_test.cmi test/flexible_array_test.cmj test/float_array.cmi test/float_array.cmj test/float_of_bits_test.cmi test/float_of_bits_test.cmj test/float_record.cmi test/float_record.cmj test/float_test.cmi test/float_test.cmj test/floatarray_test.cmi test/floatarray_test.cmj test/for_loop_test.cmi test/for_loop_test.cmj test/for_side_effect_test.cmi test/for_side_effect_test.cmj test/format_regression.cmi test/format_regression.cmj test/format_test.cmi test/format_test.cmj test/fun_pattern_match.cmi test/fun_pattern_match.cmj test/functor_app_test.cmi test/functor_app_test.cmj test/functor_def.cmi test/functor_def.cmj test/functor_ffi.cmi test/functor_ffi.cmj test/functor_inst.cmi test/functor_inst.cmj test/functors.cmi test/functors.cmj test/gbk.cmi test/gbk.cmj test/genlex_test.cmi test/genlex_test.cmj test/gentTypeReTest.cmi test/gentTypeReTest.cmj test/global_exception_regression_test.cmi test/global_exception_regression_test.cmj test/global_mangles.cmi test/global_mangles.cmj test/global_module_alias_test.cmi test/global_module_alias_test.cmj test/google_closure_test.cmi test/google_closure_test.cmj test/gpr496_test.cmi test/gpr496_test.cmj test/gpr_1072.cmi test/gpr_1072.cmj test/gpr_1072_reg.cmi test/gpr_1072_reg.cmj test/gpr_1150.cmi test/gpr_1150.cmj test/gpr_1154_test.cmi test/gpr_1154_test.cmj test/gpr_1170.cmi test/gpr_1170.cmj test/gpr_1240_missing_unbox.cmi test/gpr_1240_missing_unbox.cmj test/gpr_1245_test.cmi test/gpr_1245_test.cmj test/gpr_1268.cmi test/gpr_1268.cmj test/gpr_1409_test.cmi test/gpr_1409_test.cmj test/gpr_1423_app_test.cmi test/gpr_1423_app_test.cmj test/gpr_1423_nav.cmi test/gpr_1423_nav.cmj test/gpr_1438.cmi test/gpr_1438.cmj test/gpr_1481.cmi test/gpr_1481.cmj test/gpr_1484.cmi test/gpr_1484.cmj test/gpr_1503_test.cmi test/gpr_1503_test.cmj test/gpr_1539_test.cmi test/gpr_1539_test.cmj test/gpr_1658_test.cmi test/gpr_1658_test.cmj test/gpr_1667_test.cmi test/gpr_1667_test.cmj test/gpr_1692_test.cmi test/gpr_1692_test.cmj test/gpr_1698_test.cmi test/gpr_1698_test.cmj test/gpr_1701_test.cmi test/gpr_1701_test.cmj test/gpr_1716_test.cmi test/gpr_1716_test.cmj test/gpr_1717_test.cmi test/gpr_1717_test.cmj test/gpr_1728_test.cmi test/gpr_1728_test.cmj test/gpr_1749_test.cmi test/gpr_1749_test.cmj test/gpr_1759_test.cmi test/gpr_1759_test.cmj test/gpr_1760_test.cmi test/gpr_1760_test.cmj test/gpr_1762_test.cmi test/gpr_1762_test.cmj test/gpr_1817_test.cmi test/gpr_1817_test.cmj test/gpr_1822_test.cmi test/gpr_1822_test.cmj test/gpr_1891_test.cmi test/gpr_1891_test.cmj test/gpr_1943_test.cmi test/gpr_1943_test.cmj test/gpr_1946_test.cmi test/gpr_1946_test.cmj test/gpr_2316_test.cmi test/gpr_2316_test.cmj test/gpr_2352_test.cmi test/gpr_2352_test.cmj test/gpr_2413_test.cmi test/gpr_2413_test.cmj test/gpr_2474.cmi test/gpr_2474.cmj test/gpr_2487.cmi test/gpr_2487.cmj test/gpr_2503_test.cmi test/gpr_2503_test.cmj test/gpr_2608_test.cmi test/gpr_2608_test.cmj test/gpr_2614_test.cmi test/gpr_2614_test.cmj test/gpr_2633_test.cmi test/gpr_2633_test.cmj test/gpr_2642_test.cmi test/gpr_2642_test.cmj test/gpr_2682_test.cmi test/gpr_2682_test.cmj test/gpr_2700_test.cmi test/gpr_2700_test.cmj test/gpr_2731_test.cmi test/gpr_2731_test.cmj test/gpr_2789_test.cmi test/gpr_2789_test.cmj test/gpr_2931_test.cmi test/gpr_2931_test.cmj test/gpr_3142_test.cmi test/gpr_3142_test.cmj test/gpr_3154_test.cmi test/gpr_3154_test.cmj test/gpr_3209_test.cmi test/gpr_3209_test.cmj test/gpr_3492_test.cmi test/gpr_3492_test.cmj test/gpr_3519_jsx_test.cmi test/gpr_3519_jsx_test.cmj test/gpr_3519_test.cmi test/gpr_3519_test.cmj test/gpr_3536_test.cmi test/gpr_3536_test.cmj test/gpr_3546_test.cmi test/gpr_3546_test.cmj test/gpr_3548_test.cmi test/gpr_3548_test.cmj test/gpr_3549_test.cmi test/gpr_3549_test.cmj test/gpr_3566_drive_test.cmi test/gpr_3566_drive_test.cmj test/gpr_3566_test.cmi test/gpr_3566_test.cmj test/gpr_3595_test.cmi test/gpr_3595_test.cmj test/gpr_3609_test.cmi test/gpr_3609_test.cmj test/gpr_3697_test.cmi test/gpr_3697_test.cmj test/gpr_373_test.cmi test/gpr_373_test.cmj test/gpr_3770_test.cmi test/gpr_3770_test.cmj test/gpr_3852_alias.cmi test/gpr_3852_alias.cmj test/gpr_3852_alias_reify.cmi test/gpr_3852_alias_reify.cmj test/gpr_3852_effect.cmi test/gpr_3852_effect.cmj test/gpr_3865.cmi test/gpr_3865.cmj test/gpr_3865_bar.cmi test/gpr_3865_bar.cmj test/gpr_3865_foo.cmi test/gpr_3865_foo.cmj test/gpr_3875_test.cmi test/gpr_3875_test.cmj test/gpr_3877_test.cmi test/gpr_3877_test.cmj test/gpr_3895_test.cmi test/gpr_3895_test.cmj test/gpr_3897_test.cmi test/gpr_3897_test.cmj test/gpr_3931_test.cmi test/gpr_3931_test.cmj test/gpr_3980_test.cmi test/gpr_3980_test.cmj test/gpr_4025_test.cmi test/gpr_4025_test.cmj test/gpr_405_test.cmi test/gpr_405_test.cmj test/gpr_4069_test.cmi test/gpr_4069_test.cmj test/gpr_4265_test.cmi test/gpr_4265_test.cmj test/gpr_4274_test.cmi test/gpr_4274_test.cmj test/gpr_4280_test.cmi test/gpr_4280_test.cmj test/gpr_4407_test.cmi test/gpr_4407_test.cmj test/gpr_441.cmi test/gpr_441.cmj test/gpr_4442_test.cmi test/gpr_4442_test.cmj test/gpr_4491_test.cmi test/gpr_4491_test.cmj test/gpr_4494_test.cmi test/gpr_4494_test.cmj test/gpr_4519_test.cmi test/gpr_4519_test.cmj test/gpr_459_test.cmi test/gpr_459_test.cmj test/gpr_4632.cmi test/gpr_4632.cmj test/gpr_4639_test.cmi test/gpr_4639_test.cmj test/gpr_4900_test.cmi test/gpr_4900_test.cmj test/gpr_4924_test.cmi test/gpr_4924_test.cmj test/gpr_4931.cmi test/gpr_4931.cmj test/gpr_4931_allow.cmi test/gpr_4931_allow.cmj test/gpr_5071_test.cmi test/gpr_5071_test.cmj test/gpr_5169_test.cmi test/gpr_5169_test.cmj test/gpr_5218_test.cmi test/gpr_5218_test.cmj test/gpr_5280_optimize_test.cmi test/gpr_5280_optimize_test.cmj test/gpr_5312.cmi test/gpr_5312.cmj test/gpr_5557.cmi test/gpr_5557.cmj test/gpr_5753.cmi test/gpr_5753.cmj test/gpr_658.cmi test/gpr_658.cmj test/gpr_858_test.cmi test/gpr_858_test.cmj test/gpr_858_unit2_test.cmi test/gpr_858_unit2_test.cmj test/gpr_904_test.cmi test/gpr_904_test.cmj test/gpr_974_test.cmi test/gpr_974_test.cmj test/gpr_977_test.cmi test/gpr_977_test.cmj test/gpr_return_type_unused_attribute.cmi test/gpr_return_type_unused_attribute.cmj test/gray_code_test.cmi test/gray_code_test.cmj test/guide_for_ext.cmi test/guide_for_ext.cmj test/hash_collision_test.cmi test/hash_collision_test.cmj test/hash_sugar_desugar.cmi test/hash_sugar_desugar.cmj test/hash_test.cmi test/hash_test.cmj test/hashtbl_test.cmi test/hashtbl_test.cmj test/hello.foo.cmi test/hello.foo.cmj test/hello_res.cmi test/hello_res.cmj test/ignore_test.cmi test/ignore_test.cmj test/imm_map_bench.cmi test/imm_map_bench.cmj test/import_side_effect.cmi test/import_side_effect.cmj test/import_side_effect_free.cmi test/import_side_effect_free.cmj test/include_side_effect.cmi test/include_side_effect.cmj test/include_side_effect_free.cmi test/include_side_effect_free.cmj test/incomplete_toplevel_test.cmi test/incomplete_toplevel_test.cmj test/infer_type_test.cmi test/infer_type_test.cmj test/inline_condition_with_pattern_matching.cmi test/inline_condition_with_pattern_matching.cmj test/inline_const.cmi test/inline_const.cmj test/inline_const_test.cmi test/inline_const_test.cmj test/inline_edge_cases.cmi test/inline_edge_cases.cmj test/inline_map2_test.cmi test/inline_map2_test.cmj test/inline_map_demo.cmi test/inline_map_demo.cmj test/inline_map_test.cmi test/inline_map_test.cmj test/inline_record_test.cmi test/inline_record_test.cmj test/inline_regression_test.cmi test/inline_regression_test.cmj test/inline_string_test.cmi test/inline_string_test.cmj test/inner_call.cmi test/inner_call.cmj test/inner_define.cmi test/inner_define.cmj test/inner_unused.cmi test/inner_unused.cmj test/installation_test.cmi test/installation_test.cmj test/int32_test.cmi test/int32_test.cmj test/int64_mul_div_test.cmi test/int64_mul_div_test.cmj test/int64_string_bench.cmi test/int64_string_bench.cmj test/int64_string_test.cmi test/int64_string_test.cmj test/int64_test.cmi test/int64_test.cmj test/int_hashtbl_test.cmi test/int_hashtbl_test.cmj test/int_map.cmi test/int_map.cmj test/int_overflow_test.cmi test/int_overflow_test.cmj test/int_poly_var.cmi test/int_poly_var.cmj test/int_switch_test.cmi test/int_switch_test.cmj test/internal_unused_test.cmi test/internal_unused_test.cmj test/io_test.cmi test/io_test.cmj test/js_array_test.cmi test/js_array_test.cmj test/js_bool_test.cmi test/js_bool_test.cmj test/js_cast_test.cmi test/js_cast_test.cmj test/js_date_test.cmi test/js_date_test.cmj test/js_dict_test.cmi test/js_dict_test.cmj test/js_exception_catch_test.cmi test/js_exception_catch_test.cmj test/js_float_test.cmi test/js_float_test.cmj test/js_global_test.cmi test/js_global_test.cmj test/js_int_test.cmi test/js_int_test.cmj test/js_json_test.cmi test/js_json_test.cmj test/js_list_test.cmi test/js_list_test.cmj test/js_math_test.cmi test/js_math_test.cmj test/js_null_test.cmi test/js_null_test.cmj test/js_null_undefined_test.cmi test/js_null_undefined_test.cmj test/js_nullable_test.cmi test/js_nullable_test.cmj test/js_obj_test.cmi test/js_obj_test.cmj test/js_option_test.cmi test/js_option_test.cmj test/js_re_test.cmi test/js_re_test.cmj test/js_string_test.cmi test/js_string_test.cmj test/js_typed_array_test.cmi test/js_typed_array_test.cmj test/js_undefined_test.cmi test/js_undefined_test.cmj test/js_val.cmi test/js_val.cmj test/jsoo_400_test.cmi test/jsoo_400_test.cmj test/jsoo_485_test.cmi test/jsoo_485_test.cmj test/jsxv4_newtype.cmi test/jsxv4_newtype.cmj test/key_word_property.cmi test/key_word_property.cmj test/key_word_property2.cmi test/key_word_property2.cmj test/key_word_property_plus_test.cmi test/key_word_property_plus_test.cmj test/label_uncurry.cmi test/label_uncurry.cmj test/large_integer_pat.cmi test/large_integer_pat.cmj test/large_record_duplication_test.cmi test/large_record_duplication_test.cmj test/largest_int_flow.cmi test/largest_int_flow.cmj test/lazy_demo.cmi test/lazy_demo.cmj test/lazy_test.cmi test/lazy_test.cmj test/lib_js_test.cmi test/lib_js_test.cmj test/libarg_test.cmi test/libarg_test.cmj test/libqueue_test.cmi test/libqueue_test.cmj test/limits_test.cmi test/limits_test.cmj test/list_stack.cmi test/list_stack.cmj test/list_test.cmi test/list_test.cmj test/local_exception_test.cmi test/local_exception_test.cmj test/loop_regression_test.cmi test/loop_regression_test.cmj test/loop_suites_test.cmi test/loop_suites_test.cmj test/map_find_test.cmi test/map_find_test.cmj test/map_test.cmi test/map_test.cmj test/mario_game.cmi test/mario_game.cmj test/marshal.cmi test/marshal.cmj test/meth_annotation.cmi test/meth_annotation.cmj test/method_name_test.cmi test/method_name_test.cmj test/method_string_name.cmi test/method_string_name.cmj test/minimal_test.cmi test/minimal_test.cmj test/miss_colon_test.cmi test/miss_colon_test.cmj test/mock_mt.cmi test/mock_mt.cmj test/module_alias_test.cmi test/module_alias_test.cmj test/module_as_class_ffi.cmi test/module_as_class_ffi.cmj test/module_as_function.cmi test/module_as_function.cmj test/module_missing_conversion.cmi test/module_missing_conversion.cmj test/module_parameter_test.cmi test/module_parameter_test.cmj test/module_splice_test.cmi test/module_splice_test.cmj test/more_poly_variant_test.cmi test/more_poly_variant_test.cmj test/more_uncurry.cmi test/more_uncurry.cmj test/mpr_6033_test.cmi test/mpr_6033_test.cmj test/mt.cmi test/mt.cmj test/mt_global.cmi test/mt_global.cmj test/mutable_obj_test.cmi test/mutable_obj_test.cmj test/mutable_uncurry_test.cmi test/mutable_uncurry_test.cmj test/mutual_non_recursive_type.cmi test/mutual_non_recursive_type.cmj test/name_mangle_test.cmi test/name_mangle_test.cmj test/nested_include.cmi test/nested_include.cmj test/nested_module_alias.cmi test/nested_module_alias.cmj test/nested_obj_literal.cmi test/nested_obj_literal.cmj test/nested_obj_test.cmi test/nested_obj_test.cmj test/nested_pattern_match_test.cmi test/nested_pattern_match_test.cmj test/noassert.cmi test/noassert.cmj test/node_path_test.cmi test/node_path_test.cmj test/null_list_test.cmi test/null_list_test.cmj test/number_lexer.cmi test/number_lexer.cmj test/obj_literal_ppx.cmi test/obj_literal_ppx.cmj test/obj_literal_ppx_test.cmi test/obj_literal_ppx_test.cmj test/obj_magic_test.cmi test/obj_magic_test.cmj test/obj_type_test.cmi test/obj_type_test.cmj test/ocaml_re_test.cmi test/ocaml_re_test.cmj test/of_string_test.cmi test/of_string_test.cmj test/offset.cmi test/offset.cmj test/option_encoding_test.cmi test/option_encoding_test.cmj test/option_record_none_test.cmi test/option_record_none_test.cmj test/option_repr_test.cmi test/option_repr_test.cmj test/optional_ffi_test.cmi test/optional_ffi_test.cmj test/optional_regression_test.cmi test/optional_regression_test.cmj test/pipe_send_readline.cmi test/pipe_send_readline.cmj test/pipe_syntax.cmi test/pipe_syntax.cmj test/poly_empty_array.cmi test/poly_empty_array.cmj test/poly_variant_test.cmi test/poly_variant_test.cmj test/polymorphic_raw_test.cmi test/polymorphic_raw_test.cmj test/polymorphism_test.cmi test/polymorphism_test.cmj test/polyvar_convert.cmi test/polyvar_convert.cmj test/polyvar_test.cmi test/polyvar_test.cmj test/ppx_apply_test.cmi test/ppx_apply_test.cmj test/pq_test.cmi test/pq_test.cmj test/pr6726.cmi test/pr6726.cmj test/pr_regression_test.cmi test/pr_regression_test.cmj test/prepend_data_ffi.cmi test/prepend_data_ffi.cmj test/primitive_reg_test.cmi test/primitive_reg_test.cmj test/print_alpha_test.cmi test/print_alpha_test.cmj test/queue_402.cmi test/queue_402.cmj test/queue_test.cmi test/queue_test.cmj test/random_test.cmi test/random_test.cmj test/raw_hash_tbl_bench.cmi test/raw_hash_tbl_bench.cmj test/raw_output_test.cmi test/raw_output_test.cmj test/raw_pure_test.cmi test/raw_pure_test.cmj test/rbset.cmi test/rbset.cmj test/react.cmi test/react.cmj test/reactDOMRe.cmi test/reactDOMRe.cmj test/reactDOMServerRe.cmi test/reactDOMServerRe.cmj test/reactEvent.cmi test/reactEvent.cmj test/reactTestUtils.cmi test/reactTestUtils.cmj test/reasonReact.cmi test/reasonReact.cmj test/reasonReactCompat.cmi test/reasonReactCompat.cmj test/reasonReactOptimizedCreateClass.cmi test/reasonReactOptimizedCreateClass.cmj test/reasonReactRouter.cmi test/reasonReactRouter.cmj test/rebind_module.cmi test/rebind_module.cmj test/rebind_module_test.cmi test/rebind_module_test.cmj test/rec_array_test.cmi test/rec_array_test.cmj test/rec_fun_test.cmi test/rec_fun_test.cmj test/rec_module_opt.cmi test/rec_module_opt.cmj test/rec_module_test.cmi test/rec_module_test.cmj test/recmodule.cmi test/recmodule.cmj test/record_debug_test.cmi test/record_debug_test.cmj test/record_extension_test.cmi test/record_extension_test.cmj test/record_name_test.cmi test/record_name_test.cmj test/record_regression.cmi test/record_regression.cmj test/record_type_spread.cmi test/record_type_spread.cmj test/record_with_test.cmi test/record_with_test.cmj test/recursive_module.cmi test/recursive_module.cmj test/recursive_module_test.cmi test/recursive_module_test.cmj test/recursive_react_component.cmi test/recursive_react_component.cmj test/recursive_records_test.cmi test/recursive_records_test.cmj test/recursive_unbound_module_test.cmi test/recursive_unbound_module_test.cmj test/regression_print.cmi test/regression_print.cmj test/relative_path.cmi test/relative_path.cmj test/res_debug.cmi test/res_debug.cmj test/return_check.cmi test/return_check.cmj test/runtime_encoding_test.cmi test/runtime_encoding_test.cmj test/set_annotation.cmi test/set_annotation.cmj test/set_gen.cmi test/set_gen.cmj test/sexp.cmi test/sexp.cmj test/sexpm.cmi test/sexpm.cmj test/sexpm_test.cmi test/sexpm_test.cmj test/side_effect.cmi test/side_effect.cmj test/side_effect2.cmi test/side_effect2.cmj test/side_effect_free.cmi test/side_effect_free.cmj test/simplify_lambda_632o.cmi test/simplify_lambda_632o.cmj test/single_module_alias.cmi test/single_module_alias.cmj test/singular_unit_test.cmi test/singular_unit_test.cmj test/small_inline_test.cmi test/small_inline_test.cmj test/splice_test.cmi test/splice_test.cmj test/stack_comp_test.cmi test/stack_comp_test.cmj test/stack_test.cmi test/stack_test.cmj test/stream_parser_test.cmi test/stream_parser_test.cmj test/string_bound_get_test.cmi test/string_bound_get_test.cmj test/string_constant_compare.cmi test/string_constant_compare.cmj test/string_get_set_test.cmi test/string_get_set_test.cmj test/string_runtime_test.cmi test/string_runtime_test.cmj test/string_set.cmi test/string_set.cmj test/string_set_test.cmi test/string_set_test.cmj test/string_test.cmi test/string_test.cmj test/string_unicode_test.cmi test/string_unicode_test.cmj test/stringmatch_test.cmi test/stringmatch_test.cmj test/submodule.cmi test/submodule.cmj test/submodule_call.cmi test/submodule_call.cmj test/switch_case_test.cmi test/switch_case_test.cmj test/switch_string.cmi test/switch_string.cmj test/tagged_template_test.cmi test/tagged_template_test.cmj test/tailcall_inline_test.cmi test/tailcall_inline_test.cmj test/template.cmi test/template.cmj test/test.cmi test/test.cmj test/test2.cmi test/test2.cmj test/test_alias.cmi test/test_alias.cmj test/test_ari.cmi test/test_ari.cmj test/test_array.cmi test/test_array.cmj test/test_array_append.cmi test/test_array_append.cmj test/test_array_primitive.cmi test/test_array_primitive.cmj test/test_bool_equal.cmi test/test_bool_equal.cmj test/test_bs_this.cmi test/test_bs_this.cmj test/test_bug.cmi test/test_bug.cmj test/test_bytes.cmi test/test_bytes.cmj test/test_case_opt_collision.cmi test/test_case_opt_collision.cmj test/test_case_set.cmi test/test_case_set.cmj test/test_char.cmi test/test_char.cmj test/test_closure.cmi test/test_closure.cmj test/test_common.cmi test/test_common.cmj test/test_const_elim.cmi test/test_const_elim.cmj test/test_const_propogate.cmi test/test_const_propogate.cmj test/test_cpp.cmi test/test_cpp.cmj test/test_cps.cmi test/test_cps.cmj test/test_demo.cmi test/test_demo.cmj test/test_dup_param.cmi test/test_dup_param.cmj test/test_eq.cmi test/test_eq.cmj test/test_exception.cmi test/test_exception.cmj test/test_exception_escape.cmi test/test_exception_escape.cmj test/test_export2.cmi test/test_export2.cmj test/test_external.cmi test/test_external.cmj test/test_external_unit.cmi test/test_external_unit.cmj test/test_ffi.cmi test/test_ffi.cmj test/test_fib.cmi test/test_fib.cmj test/test_filename.cmi test/test_filename.cmj test/test_for_loop.cmi test/test_for_loop.cmj test/test_for_map.cmi test/test_for_map.cmj test/test_for_map2.cmi test/test_for_map2.cmj test/test_format.cmi test/test_format.cmj test/test_formatter.cmi test/test_formatter.cmj test/test_functor_dead_code.cmi test/test_functor_dead_code.cmj test/test_generative_module.cmi test/test_generative_module.cmj test/test_global_print.cmi test/test_global_print.cmj test/test_google_closure.cmi test/test_google_closure.cmj test/test_include.cmi test/test_include.cmj test/test_incomplete.cmi test/test_incomplete.cmj test/test_incr_ref.cmi test/test_incr_ref.cmj test/test_int_map_find.cmi test/test_int_map_find.cmj test/test_internalOO.cmi test/test_internalOO.cmj test/test_is_js.cmi test/test_is_js.cmj test/test_js_ffi.cmi test/test_js_ffi.cmj test/test_let.cmi test/test_let.cmj test/test_list.cmi test/test_list.cmj test/test_literal.cmi test/test_literal.cmj test/test_literals.cmi test/test_literals.cmj test/test_match_exception.cmi test/test_match_exception.cmj test/test_mutliple.cmi test/test_mutliple.cmj test/test_nat64.cmi test/test_nat64.cmj test/test_nested_let.cmi test/test_nested_let.cmj test/test_nested_print.cmi test/test_nested_print.cmj test/test_non_export.cmi test/test_non_export.cmj test/test_nullary.cmi test/test_nullary.cmj test/test_obj.cmi test/test_obj.cmj test/test_order.cmi test/test_order.cmj test/test_order_tailcall.cmi test/test_order_tailcall.cmj test/test_other_exn.cmi test/test_other_exn.cmj test/test_pack.cmi test/test_pack.cmj test/test_per.cmi test/test_per.cmj test/test_pervasive.cmi test/test_pervasive.cmj test/test_pervasives2.cmi test/test_pervasives2.cmj test/test_pervasives3.cmi test/test_pervasives3.cmj test/test_primitive.cmi test/test_primitive.cmj test/test_ramification.cmi test/test_ramification.cmj test/test_react.cmi test/test_react.cmj test/test_react_case.cmi test/test_react_case.cmj test/test_regex.cmi test/test_regex.cmj test/test_runtime_encoding.cmi test/test_runtime_encoding.cmj test/test_scope.cmi test/test_scope.cmj test/test_seq.cmi test/test_seq.cmj test/test_set.cmi test/test_set.cmj test/test_side_effect_functor.cmi test/test_side_effect_functor.cmj test/test_simple_include.cmi test/test_simple_include.cmj test/test_simple_pattern_match.cmi test/test_simple_pattern_match.cmj test/test_simple_ref.cmi test/test_simple_ref.cmj test/test_simple_tailcall.cmi test/test_simple_tailcall.cmj test/test_small.cmi test/test_small.cmj test/test_sprintf.cmi test/test_sprintf.cmj test/test_stack.cmi test/test_stack.cmj test/test_static_catch_ident.cmi test/test_static_catch_ident.cmj test/test_string.cmi test/test_string.cmj test/test_string_case.cmi test/test_string_case.cmj test/test_string_const.cmi test/test_string_const.cmj test/test_string_map.cmi test/test_string_map.cmj test/test_string_switch.cmi test/test_string_switch.cmj test/test_switch.cmi test/test_switch.cmj test/test_trywith.cmi test/test_trywith.cmj test/test_tuple.cmi test/test_tuple.cmj test/test_tuple_destructring.cmi test/test_tuple_destructring.cmj test/test_type_based_arity.cmi test/test_type_based_arity.cmj test/test_u.cmi test/test_u.cmj test/test_unknown.cmi test/test_unknown.cmj test/test_unsafe_cmp.cmi test/test_unsafe_cmp.cmj test/test_unsafe_obj_ffi.cmi test/test_unsafe_obj_ffi.cmj test/test_unsafe_obj_ffi_ppx.cmi test/test_unsafe_obj_ffi_ppx.cmj test/test_unsupported_primitive.cmi test/test_unsupported_primitive.cmj test/test_while_closure.cmi test/test_while_closure.cmj test/test_while_side_effect.cmi test/test_while_side_effect.cmj test/test_zero_nullable.cmi test/test_zero_nullable.cmj test/then_mangle_test.cmi test/then_mangle_test.cmj test/ticker.cmi test/ticker.cmj test/to_string_test.cmi test/to_string_test.cmj test/topsort_test.cmi test/topsort_test.cmj test/tramp_fib.cmi test/tramp_fib.cmj test/tuple_alloc.cmi test/tuple_alloc.cmj test/type_disambiguate.cmi test/type_disambiguate.cmj test/typeof_test.cmi test/typeof_test.cmj test/unboxed_attribute.cmi test/unboxed_attribute.cmj test/unboxed_attribute_test.cmi test/unboxed_attribute_test.cmj test/unboxed_crash.cmi test/unboxed_crash.cmj test/unboxed_use_case.cmi test/unboxed_use_case.cmj test/uncurried_cast.cmi test/uncurried_cast.cmj test/uncurried_default.args.cmi test/uncurried_default.args.cmj test/uncurried_pipe.cmi test/uncurried_pipe.cmj test/uncurry_external_test.cmi test/uncurry_external_test.cmj test/uncurry_glob_test.cmi test/uncurry_glob_test.cmj test/uncurry_test.cmi test/uncurry_test.cmj test/undef_regression2_test.cmi test/undef_regression2_test.cmj test/undef_regression_test.cmi test/undef_regression_test.cmj test/undefine_conditional.cmi test/undefine_conditional.cmj test/unicode_type_error.cmi test/unicode_type_error.cmj test/unit_undefined_test.cmi test/unit_undefined_test.cmj test/unitest_string.cmi test/unitest_string.cmj test/unsafe_full_apply_primitive.cmi test/unsafe_full_apply_primitive.cmj test/unsafe_ppx_test.cmi test/unsafe_ppx_test.cmj test/update_record_test.cmi test/update_record_test.cmj test/variant.cmi test/variant.cmj test/variantsMatching.cmi test/variantsMatching.cmj test/webpack_config.cmi test/webpack_config.cmj +o test : phony test/406_primitive_test.cmi test/406_primitive_test.cmj test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj test/Coercion.cmi test/Coercion.cmj test/DerivingAccessorsCurried.cmi test/DerivingAccessorsCurried.cmj test/DerivingAccessorsUncurried.cmi test/DerivingAccessorsUncurried.cmj test/DotDotDot.cmi test/DotDotDot.cmj test/EmptyRecord.cmi test/EmptyRecord.cmj test/FFI.cmi test/FFI.cmj test/Import.cmi test/Import.cmj test/ImportAttributes.cmi test/ImportAttributes.cmj test/RecordCoercion.cmi test/RecordCoercion.cmj test/RecordOrObject.cmi test/RecordOrObject.cmj test/SafePromises.cmi test/SafePromises.cmj test/UncurriedAlways.cmi test/UncurriedAlways.cmj test/UncurriedExternals.cmi test/UncurriedExternals.cmj test/UncurriedPervasives.cmi test/UncurriedPervasives.cmj test/UntaggedVariants.cmi test/UntaggedVariants.cmj test/VariantCoercion.cmi test/VariantCoercion.cmj test/VariantSpreads.cmi test/VariantSpreads.cmj test/a.cmi test/a.cmj test/a_filename_test.cmi test/a_filename_test.cmj test/a_list_test.cmi test/a_list_test.cmj test/a_recursive_type.cmi test/a_recursive_type.cmj test/a_scope_bug.cmi test/a_scope_bug.cmj test/a_string_test.cmi test/a_string_test.cmj test/abstract_type.cmi test/abstract_type.cmj test/adt_optimize_test.cmi test/adt_optimize_test.cmj test/alias_default_value_test.cmi test/alias_default_value_test.cmj test/alias_test.cmi test/alias_test.cmj test/and_or_tailcall_test.cmi test/and_or_tailcall_test.cmj test/argv_test.cmi test/argv_test.cmj test/ari_regress_test.cmi test/ari_regress_test.cmj test/arith_lexer.cmi test/arith_lexer.cmj test/arith_parser.cmi test/arith_parser.cmj test/arith_syntax.cmi test/arith_syntax.cmj test/arity.cmi test/arity.cmj test/arity_deopt.cmi test/arity_deopt.cmj test/arity_infer.cmi test/arity_infer.cmj test/array_data_util.cmi test/array_data_util.cmj test/array_safe_get.cmi test/array_safe_get.cmj test/array_subtle_test.cmi test/array_subtle_test.cmj test/array_test.cmi test/array_test.cmj test/as_inline_record_test.cmi test/as_inline_record_test.cmj test/ast_abstract_test.cmi test/ast_abstract_test.cmj test/ast_mapper_unused_warning_test.cmi test/ast_mapper_unused_warning_test.cmj test/async_await.cmi test/async_await.cmj test/async_ideas.cmi test/async_ideas.cmj test/async_inline.cmi test/async_inline.cmj test/async_inside_loop.cmi test/async_inside_loop.cmj test/attr_test.cmi test/attr_test.cmj test/b.cmi test/b.cmj test/bal_set_mini.cmi test/bal_set_mini.cmj test/bang_primitive.cmi test/bang_primitive.cmj test/basic_module_test.cmi test/basic_module_test.cmj test/bb.cmi test/bb.cmj test/bdd.cmi test/bdd.cmj test/belt_internal_test.cmi test/belt_internal_test.cmj test/belt_result_alias_test.cmi test/belt_result_alias_test.cmj test/bench.cmi test/bench.cmj test/big_enum.cmi test/big_enum.cmj test/big_polyvar_test.cmi test/big_polyvar_test.cmj test/block_alias_test.cmi test/block_alias_test.cmj test/boolean_test.cmi test/boolean_test.cmj test/bs_MapInt_test.cmi test/bs_MapInt_test.cmj test/bs_abstract_test.cmi test/bs_abstract_test.cmj test/bs_array_test.cmi test/bs_array_test.cmj test/bs_auto_uncurry.cmi test/bs_auto_uncurry.cmj test/bs_auto_uncurry_test.cmi test/bs_auto_uncurry_test.cmj test/bs_float_test.cmi test/bs_float_test.cmj test/bs_hashmap_test.cmi test/bs_hashmap_test.cmj test/bs_hashset_int_test.cmi test/bs_hashset_int_test.cmj test/bs_hashtbl_string_test.cmi test/bs_hashtbl_string_test.cmj test/bs_ignore_effect.cmi test/bs_ignore_effect.cmj test/bs_ignore_test.cmi test/bs_ignore_test.cmj test/bs_int_test.cmi test/bs_int_test.cmj test/bs_list_test.cmi test/bs_list_test.cmj test/bs_map_set_dict_test.cmi test/bs_map_set_dict_test.cmj test/bs_map_test.cmi test/bs_map_test.cmj test/bs_min_max_test.cmi test/bs_min_max_test.cmj test/bs_mutable_set_test.cmi test/bs_mutable_set_test.cmj test/bs_poly_map_test.cmi test/bs_poly_map_test.cmj test/bs_poly_mutable_map_test.cmi test/bs_poly_mutable_map_test.cmj test/bs_poly_mutable_set_test.cmi test/bs_poly_mutable_set_test.cmj test/bs_poly_set_test.cmi test/bs_poly_set_test.cmj test/bs_qualified.cmi test/bs_qualified.cmj test/bs_queue_test.cmi test/bs_queue_test.cmj test/bs_rbset_int_bench.cmi test/bs_rbset_int_bench.cmj test/bs_rest_test.cmi test/bs_rest_test.cmj test/bs_set_bench.cmi test/bs_set_bench.cmj test/bs_set_int_test.cmi test/bs_set_int_test.cmj test/bs_sort_test.cmi test/bs_sort_test.cmj test/bs_splice_partial.cmi test/bs_splice_partial.cmj test/bs_stack_test.cmi test/bs_stack_test.cmj test/bs_string_test.cmi test/bs_string_test.cmj test/bs_unwrap_test.cmi test/bs_unwrap_test.cmj test/buffer_test.cmi test/buffer_test.cmj test/bytes_split_gpr_743_test.cmi test/bytes_split_gpr_743_test.cmj test/caml_compare_bigint_test.cmi test/caml_compare_bigint_test.cmj test/caml_compare_test.cmi test/caml_compare_test.cmj test/caml_format_test.cmi test/caml_format_test.cmj test/chain_code_test.cmi test/chain_code_test.cmj test/chn_test.cmi test/chn_test.cmj test/class_type_ffi_test.cmi test/class_type_ffi_test.cmj test/coercion_module_alias_test.cmi test/coercion_module_alias_test.cmj test/compare_test.cmi test/compare_test.cmj test/complete_parmatch_test.cmi test/complete_parmatch_test.cmj test/complex_if_test.cmi test/complex_if_test.cmj test/complex_test.cmi test/complex_test.cmj test/complex_while_loop.cmi test/complex_while_loop.cmj test/condition_compilation_test.cmi test/condition_compilation_test.cmj test/config1_test.cmi test/config1_test.cmj test/console_log_test.cmi test/console_log_test.cmj test/const_block_test.cmi test/const_block_test.cmj test/const_defs.cmi test/const_defs.cmj test/const_defs_test.cmi test/const_defs_test.cmj test/const_test.cmi test/const_test.cmj test/cont_int_fold_test.cmi test/cont_int_fold_test.cmj test/cps_test.cmi test/cps_test.cmj test/cross_module_inline_test.cmi test/cross_module_inline_test.cmj test/custom_error_test.cmi test/custom_error_test.cmj test/debug_keep_test.cmi test/debug_keep_test.cmj test/debug_mode_value.cmi test/debug_mode_value.cmj test/debug_tmp.cmi test/debug_tmp.cmj test/debugger_test.cmi test/debugger_test.cmj test/default_export_test.cmi test/default_export_test.cmj test/defunctor_make_test.cmi test/defunctor_make_test.cmj test/demo_int_map.cmi test/demo_int_map.cmj test/demo_page.cmi test/demo_page.cmj test/demo_pipe.cmi test/demo_pipe.cmj test/derive_projector_test.cmi test/derive_projector_test.cmj test/digest_test.cmi test/digest_test.cmj test/directives.cmi test/directives.cmj test/div_by_zero_test.cmi test/div_by_zero_test.cmj test/dollar_escape_test.cmi test/dollar_escape_test.cmj test/earger_curry_test.cmi test/earger_curry_test.cmj test/effect.cmi test/effect.cmj test/epsilon_test.cmi test/epsilon_test.cmj test/equal_box_test.cmi test/equal_box_test.cmj test/equal_exception_test.cmi test/equal_exception_test.cmj test/equal_test.cmi test/equal_test.cmj test/es6_export.cmi test/es6_export.cmj test/es6_import.cmi test/es6_import.cmj test/es6_module_test.cmi test/es6_module_test.cmj test/escape_esmodule.cmi test/escape_esmodule.cmj test/esmodule_ref.cmi test/esmodule_ref.cmj test/event_ffi.cmi test/event_ffi.cmj test/exception_alias.cmi test/exception_alias.cmj test/exception_raise_test.cmi test/exception_raise_test.cmj test/exception_rebound_err_test.cmi test/exception_rebound_err_test.cmj test/exception_value_test.cmi test/exception_value_test.cmj test/exponentiation_precedence_test.cmi test/exponentiation_precedence_test.cmj test/export_keyword.cmi test/export_keyword.cmj test/ext_array_test.cmi test/ext_array_test.cmj test/ext_bytes_test.cmi test/ext_bytes_test.cmj test/ext_filename_test.cmi test/ext_filename_test.cmj test/ext_list_test.cmi test/ext_list_test.cmj test/ext_pervasives_test.cmi test/ext_pervasives_test.cmj test/ext_string_test.cmi test/ext_string_test.cmj test/ext_sys_test.cmi test/ext_sys_test.cmj test/extensible_variant_test.cmi test/extensible_variant_test.cmj test/external_polyfill_test.cmi test/external_polyfill_test.cmj test/external_ppx.cmi test/external_ppx.cmj test/external_ppx2.cmi test/external_ppx2.cmj test/fail_comp.cmi test/fail_comp.cmj test/ffi_arity_test.cmi test/ffi_arity_test.cmj test/ffi_array_test.cmi test/ffi_array_test.cmj test/ffi_js_test.cmi test/ffi_js_test.cmj test/ffi_splice_test.cmi test/ffi_splice_test.cmj test/ffi_test.cmi test/ffi_test.cmj test/fib.cmi test/fib.cmj test/flattern_order_test.cmi test/flattern_order_test.cmj test/flexible_array_test.cmi test/flexible_array_test.cmj test/float_array.cmi test/float_array.cmj test/float_of_bits_test.cmi test/float_of_bits_test.cmj test/float_record.cmi test/float_record.cmj test/float_test.cmi test/float_test.cmj test/floatarray_test.cmi test/floatarray_test.cmj test/for_loop_test.cmi test/for_loop_test.cmj test/for_side_effect_test.cmi test/for_side_effect_test.cmj test/format_regression.cmi test/format_regression.cmj test/format_test.cmi test/format_test.cmj test/fun_pattern_match.cmi test/fun_pattern_match.cmj test/functor_app_test.cmi test/functor_app_test.cmj test/functor_def.cmi test/functor_def.cmj test/functor_ffi.cmi test/functor_ffi.cmj test/functor_inst.cmi test/functor_inst.cmj test/functors.cmi test/functors.cmj test/gbk.cmi test/gbk.cmj test/genlex_test.cmi test/genlex_test.cmj test/gentTypeReTest.cmi test/gentTypeReTest.cmj test/global_exception_regression_test.cmi test/global_exception_regression_test.cmj test/global_mangles.cmi test/global_mangles.cmj test/global_module_alias_test.cmi test/global_module_alias_test.cmj test/google_closure_test.cmi test/google_closure_test.cmj test/gpr496_test.cmi test/gpr496_test.cmj test/gpr_1072.cmi test/gpr_1072.cmj test/gpr_1072_reg.cmi test/gpr_1072_reg.cmj test/gpr_1150.cmi test/gpr_1150.cmj test/gpr_1154_test.cmi test/gpr_1154_test.cmj test/gpr_1170.cmi test/gpr_1170.cmj test/gpr_1240_missing_unbox.cmi test/gpr_1240_missing_unbox.cmj test/gpr_1245_test.cmi test/gpr_1245_test.cmj test/gpr_1268.cmi test/gpr_1268.cmj test/gpr_1409_test.cmi test/gpr_1409_test.cmj test/gpr_1423_app_test.cmi test/gpr_1423_app_test.cmj test/gpr_1423_nav.cmi test/gpr_1423_nav.cmj test/gpr_1438.cmi test/gpr_1438.cmj test/gpr_1481.cmi test/gpr_1481.cmj test/gpr_1484.cmi test/gpr_1484.cmj test/gpr_1503_test.cmi test/gpr_1503_test.cmj test/gpr_1539_test.cmi test/gpr_1539_test.cmj test/gpr_1658_test.cmi test/gpr_1658_test.cmj test/gpr_1667_test.cmi test/gpr_1667_test.cmj test/gpr_1692_test.cmi test/gpr_1692_test.cmj test/gpr_1698_test.cmi test/gpr_1698_test.cmj test/gpr_1701_test.cmi test/gpr_1701_test.cmj test/gpr_1716_test.cmi test/gpr_1716_test.cmj test/gpr_1717_test.cmi test/gpr_1717_test.cmj test/gpr_1728_test.cmi test/gpr_1728_test.cmj test/gpr_1749_test.cmi test/gpr_1749_test.cmj test/gpr_1759_test.cmi test/gpr_1759_test.cmj test/gpr_1760_test.cmi test/gpr_1760_test.cmj test/gpr_1762_test.cmi test/gpr_1762_test.cmj test/gpr_1817_test.cmi test/gpr_1817_test.cmj test/gpr_1822_test.cmi test/gpr_1822_test.cmj test/gpr_1891_test.cmi test/gpr_1891_test.cmj test/gpr_1943_test.cmi test/gpr_1943_test.cmj test/gpr_1946_test.cmi test/gpr_1946_test.cmj test/gpr_2316_test.cmi test/gpr_2316_test.cmj test/gpr_2352_test.cmi test/gpr_2352_test.cmj test/gpr_2413_test.cmi test/gpr_2413_test.cmj test/gpr_2474.cmi test/gpr_2474.cmj test/gpr_2487.cmi test/gpr_2487.cmj test/gpr_2503_test.cmi test/gpr_2503_test.cmj test/gpr_2608_test.cmi test/gpr_2608_test.cmj test/gpr_2614_test.cmi test/gpr_2614_test.cmj test/gpr_2633_test.cmi test/gpr_2633_test.cmj test/gpr_2642_test.cmi test/gpr_2642_test.cmj test/gpr_2682_test.cmi test/gpr_2682_test.cmj test/gpr_2700_test.cmi test/gpr_2700_test.cmj test/gpr_2731_test.cmi test/gpr_2731_test.cmj test/gpr_2789_test.cmi test/gpr_2789_test.cmj test/gpr_2931_test.cmi test/gpr_2931_test.cmj test/gpr_3142_test.cmi test/gpr_3142_test.cmj test/gpr_3154_test.cmi test/gpr_3154_test.cmj test/gpr_3209_test.cmi test/gpr_3209_test.cmj test/gpr_3492_test.cmi test/gpr_3492_test.cmj test/gpr_3519_jsx_test.cmi test/gpr_3519_jsx_test.cmj test/gpr_3519_test.cmi test/gpr_3519_test.cmj test/gpr_3536_test.cmi test/gpr_3536_test.cmj test/gpr_3546_test.cmi test/gpr_3546_test.cmj test/gpr_3548_test.cmi test/gpr_3548_test.cmj test/gpr_3549_test.cmi test/gpr_3549_test.cmj test/gpr_3566_drive_test.cmi test/gpr_3566_drive_test.cmj test/gpr_3566_test.cmi test/gpr_3566_test.cmj test/gpr_3595_test.cmi test/gpr_3595_test.cmj test/gpr_3609_test.cmi test/gpr_3609_test.cmj test/gpr_3697_test.cmi test/gpr_3697_test.cmj test/gpr_373_test.cmi test/gpr_373_test.cmj test/gpr_3770_test.cmi test/gpr_3770_test.cmj test/gpr_3852_alias.cmi test/gpr_3852_alias.cmj test/gpr_3852_alias_reify.cmi test/gpr_3852_alias_reify.cmj test/gpr_3852_effect.cmi test/gpr_3852_effect.cmj test/gpr_3865.cmi test/gpr_3865.cmj test/gpr_3865_bar.cmi test/gpr_3865_bar.cmj test/gpr_3865_foo.cmi test/gpr_3865_foo.cmj test/gpr_3875_test.cmi test/gpr_3875_test.cmj test/gpr_3877_test.cmi test/gpr_3877_test.cmj test/gpr_3895_test.cmi test/gpr_3895_test.cmj test/gpr_3897_test.cmi test/gpr_3897_test.cmj test/gpr_3931_test.cmi test/gpr_3931_test.cmj test/gpr_3980_test.cmi test/gpr_3980_test.cmj test/gpr_4025_test.cmi test/gpr_4025_test.cmj test/gpr_405_test.cmi test/gpr_405_test.cmj test/gpr_4069_test.cmi test/gpr_4069_test.cmj test/gpr_4265_test.cmi test/gpr_4265_test.cmj test/gpr_4274_test.cmi test/gpr_4274_test.cmj test/gpr_4280_test.cmi test/gpr_4280_test.cmj test/gpr_4407_test.cmi test/gpr_4407_test.cmj test/gpr_441.cmi test/gpr_441.cmj test/gpr_4442_test.cmi test/gpr_4442_test.cmj test/gpr_4491_test.cmi test/gpr_4491_test.cmj test/gpr_4494_test.cmi test/gpr_4494_test.cmj test/gpr_4519_test.cmi test/gpr_4519_test.cmj test/gpr_459_test.cmi test/gpr_459_test.cmj test/gpr_4632.cmi test/gpr_4632.cmj test/gpr_4639_test.cmi test/gpr_4639_test.cmj test/gpr_4900_test.cmi test/gpr_4900_test.cmj test/gpr_4924_test.cmi test/gpr_4924_test.cmj test/gpr_4931.cmi test/gpr_4931.cmj test/gpr_4931_allow.cmi test/gpr_4931_allow.cmj test/gpr_5071_test.cmi test/gpr_5071_test.cmj test/gpr_5169_test.cmi test/gpr_5169_test.cmj test/gpr_5218_test.cmi test/gpr_5218_test.cmj test/gpr_5280_optimize_test.cmi test/gpr_5280_optimize_test.cmj test/gpr_5312.cmi test/gpr_5312.cmj test/gpr_5557.cmi test/gpr_5557.cmj test/gpr_5753.cmi test/gpr_5753.cmj test/gpr_658.cmi test/gpr_658.cmj test/gpr_858_test.cmi test/gpr_858_test.cmj test/gpr_858_unit2_test.cmi test/gpr_858_unit2_test.cmj test/gpr_904_test.cmi test/gpr_904_test.cmj test/gpr_974_test.cmi test/gpr_974_test.cmj test/gpr_977_test.cmi test/gpr_977_test.cmj test/gpr_return_type_unused_attribute.cmi test/gpr_return_type_unused_attribute.cmj test/gray_code_test.cmi test/gray_code_test.cmj test/guide_for_ext.cmi test/guide_for_ext.cmj test/hash_collision_test.cmi test/hash_collision_test.cmj test/hash_sugar_desugar.cmi test/hash_sugar_desugar.cmj test/hash_test.cmi test/hash_test.cmj test/hashtbl_test.cmi test/hashtbl_test.cmj test/hello.foo.cmi test/hello.foo.cmj test/hello_res.cmi test/hello_res.cmj test/ignore_test.cmi test/ignore_test.cmj test/imm_map_bench.cmi test/imm_map_bench.cmj test/import2.cmi test/import2.cmj test/import_external.cmi test/import_external.cmj test/import_side_effect.cmi test/import_side_effect.cmj test/import_side_effect_free.cmi test/import_side_effect_free.cmj test/include_side_effect.cmi test/include_side_effect.cmj test/include_side_effect_free.cmi test/include_side_effect_free.cmj test/incomplete_toplevel_test.cmi test/incomplete_toplevel_test.cmj test/infer_type_test.cmi test/infer_type_test.cmj test/inline_condition_with_pattern_matching.cmi test/inline_condition_with_pattern_matching.cmj test/inline_const.cmi test/inline_const.cmj test/inline_const_test.cmi test/inline_const_test.cmj test/inline_edge_cases.cmi test/inline_edge_cases.cmj test/inline_map2_test.cmi test/inline_map2_test.cmj test/inline_map_demo.cmi test/inline_map_demo.cmj test/inline_map_test.cmi test/inline_map_test.cmj test/inline_record_test.cmi test/inline_record_test.cmj test/inline_regression_test.cmi test/inline_regression_test.cmj test/inline_string_test.cmi test/inline_string_test.cmj test/inner_call.cmi test/inner_call.cmj test/inner_define.cmi test/inner_define.cmj test/inner_unused.cmi test/inner_unused.cmj test/installation_test.cmi test/installation_test.cmj test/int32_test.cmi test/int32_test.cmj test/int64_mul_div_test.cmi test/int64_mul_div_test.cmj test/int64_string_bench.cmi test/int64_string_bench.cmj test/int64_string_test.cmi test/int64_string_test.cmj test/int64_test.cmi test/int64_test.cmj test/int_hashtbl_test.cmi test/int_hashtbl_test.cmj test/int_map.cmi test/int_map.cmj test/int_overflow_test.cmi test/int_overflow_test.cmj test/int_poly_var.cmi test/int_poly_var.cmj test/int_switch_test.cmi test/int_switch_test.cmj test/internal_unused_test.cmi test/internal_unused_test.cmj test/io_test.cmi test/io_test.cmj test/js_array_test.cmi test/js_array_test.cmj test/js_bool_test.cmi test/js_bool_test.cmj test/js_cast_test.cmi test/js_cast_test.cmj test/js_date_test.cmi test/js_date_test.cmj test/js_dict_test.cmi test/js_dict_test.cmj test/js_exception_catch_test.cmi test/js_exception_catch_test.cmj test/js_float_test.cmi test/js_float_test.cmj test/js_global_test.cmi test/js_global_test.cmj test/js_int_test.cmi test/js_int_test.cmj test/js_json_test.cmi test/js_json_test.cmj test/js_list_test.cmi test/js_list_test.cmj test/js_math_test.cmi test/js_math_test.cmj test/js_null_test.cmi test/js_null_test.cmj test/js_null_undefined_test.cmi test/js_null_undefined_test.cmj test/js_nullable_test.cmi test/js_nullable_test.cmj test/js_obj_test.cmi test/js_obj_test.cmj test/js_option_test.cmi test/js_option_test.cmj test/js_re_test.cmi test/js_re_test.cmj test/js_string_test.cmi test/js_string_test.cmj test/js_typed_array_test.cmi test/js_typed_array_test.cmj test/js_undefined_test.cmi test/js_undefined_test.cmj test/js_val.cmi test/js_val.cmj test/jsoo_400_test.cmi test/jsoo_400_test.cmj test/jsoo_485_test.cmi test/jsoo_485_test.cmj test/jsxv4_newtype.cmi test/jsxv4_newtype.cmj test/key_word_property.cmi test/key_word_property.cmj test/key_word_property2.cmi test/key_word_property2.cmj test/key_word_property_plus_test.cmi test/key_word_property_plus_test.cmj test/label_uncurry.cmi test/label_uncurry.cmj test/large_integer_pat.cmi test/large_integer_pat.cmj test/large_record_duplication_test.cmi test/large_record_duplication_test.cmj test/largest_int_flow.cmi test/largest_int_flow.cmj test/lazy_demo.cmi test/lazy_demo.cmj test/lazy_test.cmi test/lazy_test.cmj test/lib_js_test.cmi test/lib_js_test.cmj test/libarg_test.cmi test/libarg_test.cmj test/libqueue_test.cmi test/libqueue_test.cmj test/limits_test.cmi test/limits_test.cmj test/list_stack.cmi test/list_stack.cmj test/list_test.cmi test/list_test.cmj test/local_exception_test.cmi test/local_exception_test.cmj test/loop_regression_test.cmi test/loop_regression_test.cmj test/loop_suites_test.cmi test/loop_suites_test.cmj test/map_find_test.cmi test/map_find_test.cmj test/map_test.cmi test/map_test.cmj test/mario_game.cmi test/mario_game.cmj test/marshal.cmi test/marshal.cmj test/meth_annotation.cmi test/meth_annotation.cmj test/method_name_test.cmi test/method_name_test.cmj test/method_string_name.cmi test/method_string_name.cmj test/minimal_test.cmi test/minimal_test.cmj test/miss_colon_test.cmi test/miss_colon_test.cmj test/mock_mt.cmi test/mock_mt.cmj test/module_alias_test.cmi test/module_alias_test.cmj test/module_as_class_ffi.cmi test/module_as_class_ffi.cmj test/module_as_function.cmi test/module_as_function.cmj test/module_missing_conversion.cmi test/module_missing_conversion.cmj test/module_parameter_test.cmi test/module_parameter_test.cmj test/module_splice_test.cmi test/module_splice_test.cmj test/more_poly_variant_test.cmi test/more_poly_variant_test.cmj test/more_uncurry.cmi test/more_uncurry.cmj test/mpr_6033_test.cmi test/mpr_6033_test.cmj test/mt.cmi test/mt.cmj test/mt_global.cmi test/mt_global.cmj test/mutable_obj_test.cmi test/mutable_obj_test.cmj test/mutable_uncurry_test.cmi test/mutable_uncurry_test.cmj test/mutual_non_recursive_type.cmi test/mutual_non_recursive_type.cmj test/name_mangle_test.cmi test/name_mangle_test.cmj test/nested_include.cmi test/nested_include.cmj test/nested_module_alias.cmi test/nested_module_alias.cmj test/nested_obj_literal.cmi test/nested_obj_literal.cmj test/nested_obj_test.cmi test/nested_obj_test.cmj test/nested_pattern_match_test.cmi test/nested_pattern_match_test.cmj test/noassert.cmi test/noassert.cmj test/node_path_test.cmi test/node_path_test.cmj test/null_list_test.cmi test/null_list_test.cmj test/number_lexer.cmi test/number_lexer.cmj test/obj_literal_ppx.cmi test/obj_literal_ppx.cmj test/obj_literal_ppx_test.cmi test/obj_literal_ppx_test.cmj test/obj_magic_test.cmi test/obj_magic_test.cmj test/obj_type_test.cmi test/obj_type_test.cmj test/ocaml_re_test.cmi test/ocaml_re_test.cmj test/of_string_test.cmi test/of_string_test.cmj test/offset.cmi test/offset.cmj test/omit_trailing_undefined_in_external_calls.cmi test/omit_trailing_undefined_in_external_calls.cmj test/option_encoding_test.cmi test/option_encoding_test.cmj test/option_record_none_test.cmi test/option_record_none_test.cmj test/option_repr_test.cmi test/option_repr_test.cmj test/optional_ffi_test.cmi test/optional_ffi_test.cmj test/optional_regression_test.cmi test/optional_regression_test.cmj test/pipe_send_readline.cmi test/pipe_send_readline.cmj test/pipe_syntax.cmi test/pipe_syntax.cmj test/poly_empty_array.cmi test/poly_empty_array.cmj test/poly_variant_test.cmi test/poly_variant_test.cmj test/polymorphic_raw_test.cmi test/polymorphic_raw_test.cmj test/polymorphism_test.cmi test/polymorphism_test.cmj test/polyvar_convert.cmi test/polyvar_convert.cmj test/polyvar_test.cmi test/polyvar_test.cmj test/ppx_apply_test.cmi test/ppx_apply_test.cmj test/pq_test.cmi test/pq_test.cmj test/pr6726.cmi test/pr6726.cmj test/pr_regression_test.cmi test/pr_regression_test.cmj test/prepend_data_ffi.cmi test/prepend_data_ffi.cmj test/primitive_reg_test.cmi test/primitive_reg_test.cmj test/print_alpha_test.cmi test/print_alpha_test.cmj test/queue_402.cmi test/queue_402.cmj test/queue_test.cmi test/queue_test.cmj test/random_test.cmi test/random_test.cmj test/raw_hash_tbl_bench.cmi test/raw_hash_tbl_bench.cmj test/raw_output_test.cmi test/raw_output_test.cmj test/raw_pure_test.cmi test/raw_pure_test.cmj test/rbset.cmi test/rbset.cmj test/react.cmi test/react.cmj test/reactDOMRe.cmi test/reactDOMRe.cmj test/reactDOMServerRe.cmi test/reactDOMServerRe.cmj test/reactEvent.cmi test/reactEvent.cmj test/reactTestUtils.cmi test/reactTestUtils.cmj test/reasonReact.cmi test/reasonReact.cmj test/reasonReactCompat.cmi test/reasonReactCompat.cmj test/reasonReactOptimizedCreateClass.cmi test/reasonReactOptimizedCreateClass.cmj test/reasonReactRouter.cmi test/reasonReactRouter.cmj test/rebind_module.cmi test/rebind_module.cmj test/rebind_module_test.cmi test/rebind_module_test.cmj test/rec_array_test.cmi test/rec_array_test.cmj test/rec_fun_test.cmi test/rec_fun_test.cmj test/rec_module_opt.cmi test/rec_module_opt.cmj test/rec_module_test.cmi test/rec_module_test.cmj test/recmodule.cmi test/recmodule.cmj test/record_debug_test.cmi test/record_debug_test.cmj test/record_extension_test.cmi test/record_extension_test.cmj test/record_name_test.cmi test/record_name_test.cmj test/record_regression.cmi test/record_regression.cmj test/record_type_spread.cmi test/record_type_spread.cmj test/record_with_test.cmi test/record_with_test.cmj test/recursive_module.cmi test/recursive_module.cmj test/recursive_module_test.cmi test/recursive_module_test.cmj test/recursive_react_component.cmi test/recursive_react_component.cmj test/recursive_records_test.cmi test/recursive_records_test.cmj test/recursive_unbound_module_test.cmi test/recursive_unbound_module_test.cmj test/regression_print.cmi test/regression_print.cmj test/relative_path.cmi test/relative_path.cmj test/res_debug.cmi test/res_debug.cmj test/return_check.cmi test/return_check.cmj test/runtime_encoding_test.cmi test/runtime_encoding_test.cmj test/set_annotation.cmi test/set_annotation.cmj test/set_gen.cmi test/set_gen.cmj test/sexp.cmi test/sexp.cmj test/sexpm.cmi test/sexpm.cmj test/sexpm_test.cmi test/sexpm_test.cmj test/side_effect.cmi test/side_effect.cmj test/side_effect2.cmi test/side_effect2.cmj test/side_effect_free.cmi test/side_effect_free.cmj test/simplify_lambda_632o.cmi test/simplify_lambda_632o.cmj test/single_module_alias.cmi test/single_module_alias.cmj test/singular_unit_test.cmi test/singular_unit_test.cmj test/small_inline_test.cmi test/small_inline_test.cmj test/splice_test.cmi test/splice_test.cmj test/stack_comp_test.cmi test/stack_comp_test.cmj test/stack_test.cmi test/stack_test.cmj test/stream_parser_test.cmi test/stream_parser_test.cmj test/string_bound_get_test.cmi test/string_bound_get_test.cmj test/string_constant_compare.cmi test/string_constant_compare.cmj test/string_get_set_test.cmi test/string_get_set_test.cmj test/string_runtime_test.cmi test/string_runtime_test.cmj test/string_set.cmi test/string_set.cmj test/string_set_test.cmi test/string_set_test.cmj test/string_test.cmi test/string_test.cmj test/string_unicode_test.cmi test/string_unicode_test.cmj test/stringmatch_test.cmi test/stringmatch_test.cmj test/submodule.cmi test/submodule.cmj test/submodule_call.cmi test/submodule_call.cmj test/switch_case_test.cmi test/switch_case_test.cmj test/switch_string.cmi test/switch_string.cmj test/tagged_template_test.cmi test/tagged_template_test.cmj test/tailcall_inline_test.cmi test/tailcall_inline_test.cmj test/template.cmi test/template.cmj test/test.cmi test/test.cmj test/test2.cmi test/test2.cmj test/test_alias.cmi test/test_alias.cmj test/test_ari.cmi test/test_ari.cmj test/test_array.cmi test/test_array.cmj test/test_array_append.cmi test/test_array_append.cmj test/test_array_primitive.cmi test/test_array_primitive.cmj test/test_bool_equal.cmi test/test_bool_equal.cmj test/test_bs_this.cmi test/test_bs_this.cmj test/test_bug.cmi test/test_bug.cmj test/test_bytes.cmi test/test_bytes.cmj test/test_case_opt_collision.cmi test/test_case_opt_collision.cmj test/test_case_set.cmi test/test_case_set.cmj test/test_char.cmi test/test_char.cmj test/test_closure.cmi test/test_closure.cmj test/test_common.cmi test/test_common.cmj test/test_const_elim.cmi test/test_const_elim.cmj test/test_const_propogate.cmi test/test_const_propogate.cmj test/test_cpp.cmi test/test_cpp.cmj test/test_cps.cmi test/test_cps.cmj test/test_demo.cmi test/test_demo.cmj test/test_dup_param.cmi test/test_dup_param.cmj test/test_eq.cmi test/test_eq.cmj test/test_exception.cmi test/test_exception.cmj test/test_exception_escape.cmi test/test_exception_escape.cmj test/test_export2.cmi test/test_export2.cmj test/test_external.cmi test/test_external.cmj test/test_external_unit.cmi test/test_external_unit.cmj test/test_ffi.cmi test/test_ffi.cmj test/test_fib.cmi test/test_fib.cmj test/test_filename.cmi test/test_filename.cmj test/test_for_loop.cmi test/test_for_loop.cmj test/test_for_map.cmi test/test_for_map.cmj test/test_for_map2.cmi test/test_for_map2.cmj test/test_format.cmi test/test_format.cmj test/test_formatter.cmi test/test_formatter.cmj test/test_functor_dead_code.cmi test/test_functor_dead_code.cmj test/test_generative_module.cmi test/test_generative_module.cmj test/test_global_print.cmi test/test_global_print.cmj test/test_google_closure.cmi test/test_google_closure.cmj test/test_include.cmi test/test_include.cmj test/test_incomplete.cmi test/test_incomplete.cmj test/test_incr_ref.cmi test/test_incr_ref.cmj test/test_int_map_find.cmi test/test_int_map_find.cmj test/test_internalOO.cmi test/test_internalOO.cmj test/test_is_js.cmi test/test_is_js.cmj test/test_js_ffi.cmi test/test_js_ffi.cmj test/test_let.cmi test/test_let.cmj test/test_list.cmi test/test_list.cmj test/test_literal.cmi test/test_literal.cmj test/test_literals.cmi test/test_literals.cmj test/test_match_exception.cmi test/test_match_exception.cmj test/test_mutliple.cmi test/test_mutliple.cmj test/test_nat64.cmi test/test_nat64.cmj test/test_nested_let.cmi test/test_nested_let.cmj test/test_nested_print.cmi test/test_nested_print.cmj test/test_non_export.cmi test/test_non_export.cmj test/test_nullary.cmi test/test_nullary.cmj test/test_obj.cmi test/test_obj.cmj test/test_order.cmi test/test_order.cmj test/test_order_tailcall.cmi test/test_order_tailcall.cmj test/test_other_exn.cmi test/test_other_exn.cmj test/test_pack.cmi test/test_pack.cmj test/test_per.cmi test/test_per.cmj test/test_pervasive.cmi test/test_pervasive.cmj test/test_pervasives2.cmi test/test_pervasives2.cmj test/test_pervasives3.cmi test/test_pervasives3.cmj test/test_primitive.cmi test/test_primitive.cmj test/test_ramification.cmi test/test_ramification.cmj test/test_react.cmi test/test_react.cmj test/test_react_case.cmi test/test_react_case.cmj test/test_regex.cmi test/test_regex.cmj test/test_runtime_encoding.cmi test/test_runtime_encoding.cmj test/test_scope.cmi test/test_scope.cmj test/test_seq.cmi test/test_seq.cmj test/test_set.cmi test/test_set.cmj test/test_side_effect_functor.cmi test/test_side_effect_functor.cmj test/test_simple_include.cmi test/test_simple_include.cmj test/test_simple_pattern_match.cmi test/test_simple_pattern_match.cmj test/test_simple_ref.cmi test/test_simple_ref.cmj test/test_simple_tailcall.cmi test/test_simple_tailcall.cmj test/test_small.cmi test/test_small.cmj test/test_sprintf.cmi test/test_sprintf.cmj test/test_stack.cmi test/test_stack.cmj test/test_static_catch_ident.cmi test/test_static_catch_ident.cmj test/test_string.cmi test/test_string.cmj test/test_string_case.cmi test/test_string_case.cmj test/test_string_const.cmi test/test_string_const.cmj test/test_string_map.cmi test/test_string_map.cmj test/test_string_switch.cmi test/test_string_switch.cmj test/test_switch.cmi test/test_switch.cmj test/test_trywith.cmi test/test_trywith.cmj test/test_tuple.cmi test/test_tuple.cmj test/test_tuple_destructring.cmi test/test_tuple_destructring.cmj test/test_type_based_arity.cmi test/test_type_based_arity.cmj test/test_u.cmi test/test_u.cmj test/test_unknown.cmi test/test_unknown.cmj test/test_unsafe_cmp.cmi test/test_unsafe_cmp.cmj test/test_unsafe_obj_ffi.cmi test/test_unsafe_obj_ffi.cmj test/test_unsafe_obj_ffi_ppx.cmi test/test_unsafe_obj_ffi_ppx.cmj test/test_unsupported_primitive.cmi test/test_unsupported_primitive.cmj test/test_while_closure.cmi test/test_while_closure.cmj test/test_while_side_effect.cmi test/test_while_side_effect.cmj test/test_zero_nullable.cmi test/test_zero_nullable.cmj test/then_mangle_test.cmi test/then_mangle_test.cmj test/ticker.cmi test/ticker.cmj test/to_string_test.cmi test/to_string_test.cmj test/topsort_test.cmi test/topsort_test.cmj test/tramp_fib.cmi test/tramp_fib.cmj test/tuple_alloc.cmi test/tuple_alloc.cmj test/type_disambiguate.cmi test/type_disambiguate.cmj test/typeof_test.cmi test/typeof_test.cmj test/unboxed_attribute.cmi test/unboxed_attribute.cmj test/unboxed_attribute_test.cmi test/unboxed_attribute_test.cmj test/unboxed_crash.cmi test/unboxed_crash.cmj test/unboxed_use_case.cmi test/unboxed_use_case.cmj test/uncurried_cast.cmi test/uncurried_cast.cmj test/uncurried_default.args.cmi test/uncurried_default.args.cmj test/uncurried_pipe.cmi test/uncurried_pipe.cmj test/uncurry_external_test.cmi test/uncurry_external_test.cmj test/uncurry_glob_test.cmi test/uncurry_glob_test.cmj test/uncurry_test.cmi test/uncurry_test.cmj test/undef_regression2_test.cmi test/undef_regression2_test.cmj test/undef_regression_test.cmi test/undef_regression_test.cmj test/undefine_conditional.cmi test/undefine_conditional.cmj test/unicode_type_error.cmi test/unicode_type_error.cmj test/unit_undefined_test.cmi test/unit_undefined_test.cmj test/unitest_string.cmi test/unitest_string.cmj test/unsafe_full_apply_primitive.cmi test/unsafe_full_apply_primitive.cmj test/unsafe_ppx_test.cmi test/unsafe_ppx_test.cmj test/update_record_test.cmi test/update_record_test.cmj test/variant.cmi test/variant.cmj test/variantsMatching.cmi test/variantsMatching.cmj test/webpack_config.cmi test/webpack_config.cmj diff --git a/jscomp/test/lazy_test.js b/jscomp/test/lazy_test.js index 59956c4420..1a636f6b9e 100644 --- a/jscomp/test/lazy_test.js +++ b/jscomp/test/lazy_test.js @@ -56,18 +56,20 @@ var f006 = CamlinternalLazy.from_fun(function () { }); var f007 = CamlinternalLazy.from_fun(function () { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }); var f008 = CamlinternalLazy.from_fun(function () { console.log("hi"); - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); }); var a2 = CamlinternalLazy.from_val; @@ -206,10 +208,11 @@ Mt.from_pair_suites("Lazy_test", { return { TAG: "Ok", _0: !Lazy.is_val(CamlinternalLazy.from_fun(function () { - throw { - RE_EXN_ID: "Not_found", - Error: new Error() - }; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); })) }; }) diff --git a/lib/es6/genlex.js b/lib/es6/genlex.js index b5101b02f9..3eb8c4f279 100644 --- a/lib/es6/genlex.js +++ b/lib/es6/genlex.js @@ -627,10 +627,11 @@ function make_lexer(keywords) { return comment(strm__); } } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 42 : Stream.junk(strm__); while(true) { diff --git a/lib/js/genlex.js b/lib/js/genlex.js index 40572b0b6d..70d94fbec5 100644 --- a/lib/js/genlex.js +++ b/lib/js/genlex.js @@ -627,10 +627,11 @@ function make_lexer(keywords) { return comment(strm__); } } - throw { - RE_EXN_ID: Stream.Failure, - Error: new Error() - }; + throw new Error(Stream.Failure, { + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 42 : Stream.junk(strm__); while(true) { From bf16404e15020b8927e69d962e399f50cb1da766 Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Thu, 30 May 2024 12:56:29 -0300 Subject: [PATCH 4/5] update build --- jscomp/test/406_primitive_test.js | 46 +- jscomp/test/UncurriedExternals.js | 108 +- jscomp/test/adt_optimize_test.js | 18 +- jscomp/test/argv_test.js | 58 +- jscomp/test/arith_parser.js | 170 +- jscomp/test/arity_infer.js | 50 +- jscomp/test/array_safe_get.js | 4 +- jscomp/test/array_test.js | 534 +- jscomp/test/bb.js | 46 +- jscomp/test/bdd.js | 264 +- jscomp/test/bench.js | 54 +- jscomp/test/big_polyvar_test.js | 10820 ++++++++++---------- jscomp/test/bs_array_test.js | 2154 ++-- jscomp/test/bs_hashtbl_string_test.js | 376 +- jscomp/test/bs_queue_test.js | 1776 ++-- jscomp/test/bs_rbset_int_bench.js | 52 +- jscomp/test/bs_set_bench.js | 52 +- jscomp/test/build.ninja | 7 +- jscomp/test/chn_test.js | 296 +- jscomp/test/const_defs_test.js | 12 +- jscomp/test/custom_error_test.js | 20 +- jscomp/test/defunctor_make_test.js | 162 +- jscomp/test/demo_int_map.js | 154 +- jscomp/test/earger_curry_test.js | 130 +- jscomp/test/equal_exception_test.js | 190 +- jscomp/test/exception_raise_test.js | 162 +- jscomp/test/exception_rebound_err_test.js | 4 +- jscomp/test/exception_value_test.js | 66 +- jscomp/test/ext_array_test.js | 194 +- jscomp/test/ext_bytes_test.js | 106 +- jscomp/test/ext_filename_test.js | 288 +- jscomp/test/ext_list_test.js | 732 +- jscomp/test/ext_pervasives_test.js | 72 +- jscomp/test/ext_string_test.js | 422 +- jscomp/test/extensible_variant_test.js | 94 +- jscomp/test/flexible_array_test.js | 352 +- jscomp/test/format_regression.js | 86 +- jscomp/test/fun_pattern_match.js | 60 +- jscomp/test/genlex_test.js | 4 +- jscomp/test/gpr_1150.js | 400 +- jscomp/test/gpr_1245_test.js | 4 +- jscomp/test/gpr_1698_test.js | 76 +- jscomp/test/gpr_1701_test.js | 68 +- jscomp/test/gpr_2316_test.js | 58 +- jscomp/test/gpr_2682_test.js | 52 +- jscomp/test/gpr_3877_test.js | 40 +- jscomp/test/gpr_3980_test.js | 58 +- jscomp/test/gpr_405_test.js | 128 +- jscomp/test/gpr_4632.js | 24 +- jscomp/test/gpr_5557.js | 20 +- jscomp/test/gpr_858_unit2_test.js | 46 +- jscomp/test/gpr_974_test.js | 58 +- jscomp/test/imm_map_bench.js | 4 +- jscomp/test/inline_map2_test.js | 1670 +-- jscomp/test/inline_map_demo.js | 248 +- jscomp/test/inline_map_test.js | 216 +- jscomp/test/inline_record_test.js | 136 +- jscomp/test/int64_string_test.js | 144 +- jscomp/test/int_map.js | 734 +- jscomp/test/internal_unused_test.js | 26 +- jscomp/test/js_exception_catch_test.js | 224 +- jscomp/test/js_json_test.js | 764 +- jscomp/test/lazy_test.js | 308 +- jscomp/test/libqueue_test.js | 1884 ++-- jscomp/test/map_find_test.js | 434 +- jscomp/test/map_test.js | 584 +- jscomp/test/mario_game.js | 3086 +++--- jscomp/test/marshal.js | 48 +- jscomp/test/noassert.js | 18 +- jscomp/test/ocaml_re_test.js | 3718 ++++--- jscomp/test/offset.js | 718 +- jscomp/test/pq_test.js | 108 +- jscomp/test/queue_402.js | 122 +- jscomp/test/raw_hash_tbl_bench.js | 30 +- jscomp/test/rbset.js | 814 +- jscomp/test/reactDOMRe.js | 66 +- jscomp/test/rec_module_test.js | 874 +- jscomp/test/recmodule.js | 272 +- jscomp/test/recursive_module.js | 8 +- jscomp/test/recursive_records_test.js | 64 +- jscomp/test/return_check.js | 68 +- jscomp/test/set_gen.js | 606 +- jscomp/test/sexp.js | 392 +- jscomp/test/sexpm.js | 378 +- jscomp/test/stack_comp_test.js | 4 +- jscomp/test/stream_parser_test.js | 302 +- jscomp/test/string_set.js | 236 +- jscomp/test/string_test.js | 8 +- jscomp/test/stringmatch_test.js | 5482 +++++----- jscomp/test/test_array_primitive.js | 30 +- jscomp/test/test_bool_equal.js | 72 +- jscomp/test/test_closure.js | 48 +- jscomp/test/test_exception.js | 56 +- jscomp/test/test_exception_escape.js | 18 +- jscomp/test/test_for_map.js | 736 +- jscomp/test/test_incomplete.js | 18 +- jscomp/test/test_int_map_find.js | 178 +- jscomp/test/test_list.js | 1486 +-- jscomp/test/test_match_exception.js | 4 +- jscomp/test/test_per.js | 342 +- jscomp/test/test_seq.js | 62 +- jscomp/test/test_set.js | 716 +- jscomp/test/test_static_catch_ident.js | 4 +- jscomp/test/test_string.js | 24 +- jscomp/test/test_string_case.js | 18 +- jscomp/test/test_string_const.js | 4 +- jscomp/test/test_string_map.js | 170 +- jscomp/test/test_trywith.js | 106 +- jscomp/test/test_unsupported_primitive.js | 12 +- jscomp/test/test_while_closure.js | 50 +- jscomp/test/ticker.js | 1286 +-- jscomp/test/topsort_test.js | 1324 +-- jscomp/test/uncurried_cast.js | 110 +- jscomp/test/variant.js | 8 +- lib/es6/arg.js | 654 +- lib/es6/array.js | 378 +- lib/es6/arrayLabels.js | 378 +- lib/es6/belt_Array.js | 508 +- lib/es6/belt_List.js | 846 +- lib/es6/belt_MutableQueue.js | 162 +- lib/es6/belt_Option.js | 46 +- lib/es6/belt_Result.js | 54 +- lib/es6/belt_internalAVLset.js | 652 +- lib/es6/belt_internalAVLtree.js | 812 +- lib/es6/belt_internalMapInt.js | 246 +- lib/es6/belt_internalMapString.js | 246 +- lib/es6/belt_internalSetInt.js | 124 +- lib/es6/belt_internalSetString.js | 124 +- lib/es6/buffer.js | 380 +- lib/es6/bytes.js | 448 +- lib/es6/bytesLabels.js | 448 +- lib/es6/caml_array.js | 82 +- lib/es6/caml_bigint.js | 18 +- lib/es6/caml_bytes.js | 78 +- lib/es6/caml_format.js | 394 +- lib/es6/caml_int32.js | 20 +- lib/es6/caml_int64.js | 384 +- lib/es6/caml_module.js | 102 +- lib/es6/caml_obj.js | 168 +- lib/es6/caml_string.js | 14 +- lib/es6/caml_sys.js | 78 +- lib/es6/camlinternalLazy.js | 52 +- lib/es6/char.js | 32 +- lib/es6/digest.js | 98 +- lib/es6/filename.js | 198 +- lib/es6/genlex.js | 338 +- lib/es6/hashtbl.js | 966 +- lib/es6/int32.js | 4 +- lib/es6/int64.js | 4 +- lib/es6/js_exn.js | 28 +- lib/es6/js_mapperRt.js | 40 +- lib/es6/js_null.js | 4 +- lib/es6/js_option.js | 4 +- lib/es6/js_undefined.js | 4 +- lib/es6/lexing.js | 188 +- lib/es6/list.js | 1670 +-- lib/es6/listLabels.js | 1670 +-- lib/es6/map.js | 888 +- lib/es6/mapLabels.js | 902 +- lib/es6/moreLabels.js | 3568 +++---- lib/es6/parsing.js | 140 +- lib/es6/pervasives.js | 184 +- lib/es6/pervasivesU.js | 184 +- lib/es6/queue.js | 120 +- lib/es6/random.js | 104 +- lib/es6/set.js | 870 +- lib/es6/setLabels.js | 900 +- lib/es6/sort.js | 126 +- lib/es6/stack.js | 56 +- lib/es6/stream.js | 448 +- lib/es6/string.js | 204 +- lib/es6/stringLabels.js | 204 +- lib/es6/uchar.js | 88 +- lib/js/arg.js | 658 +- lib/js/array.js | 332 +- lib/js/arrayLabels.js | 332 +- lib/js/belt_Array.js | 372 +- lib/js/belt_List.js | 678 +- lib/js/belt_MutableQueue.js | 124 +- lib/js/belt_Option.js | 12 +- lib/js/belt_Result.js | 28 +- lib/js/belt_internalAVLset.js | 560 +- lib/js/belt_internalAVLtree.js | 692 +- lib/js/belt_internalMapInt.js | 212 +- lib/js/belt_internalMapString.js | 212 +- lib/js/belt_internalSetInt.js | 102 +- lib/js/belt_internalSetString.js | 102 +- lib/js/buffer.js | 350 +- lib/js/bytes.js | 380 +- lib/js/bytesLabels.js | 380 +- lib/js/caml_array.js | 66 +- lib/js/caml_bigint.js | 18 +- lib/js/caml_bytes.js | 60 +- lib/js/caml_format.js | 386 +- lib/js/caml_int32.js | 16 +- lib/js/caml_int64.js | 316 +- lib/js/caml_module.js | 100 +- lib/js/caml_obj.js | 142 +- lib/js/caml_string.js | 10 +- lib/js/caml_sys.js | 62 +- lib/js/camlinternalLazy.js | 42 +- lib/js/char.js | 18 +- lib/js/digest.js | 94 +- lib/js/filename.js | 196 +- lib/js/genlex.js | 354 +- lib/js/hashtbl.js | 938 +- lib/js/int32.js | 4 +- lib/js/int64.js | 4 +- lib/js/js_exn.js | 28 +- lib/js/js_mapperRt.js | 34 +- lib/js/js_null.js | 4 +- lib/js/js_option.js | 4 +- lib/js/js_undefined.js | 4 +- lib/js/lexing.js | 164 +- lib/js/list.js | 1576 +-- lib/js/listLabels.js | 1576 +-- lib/js/map.js | 890 +- lib/js/mapLabels.js | 904 +- lib/js/moreLabels.js | 3570 +++---- lib/js/parsing.js | 124 +- lib/js/pervasives.js | 130 +- lib/js/pervasivesU.js | 126 +- lib/js/queue.js | 94 +- lib/js/random.js | 110 +- lib/js/set.js | 874 +- lib/js/setLabels.js | 904 +- lib/js/sort.js | 122 +- lib/js/stack.js | 38 +- lib/js/stream.js | 418 +- lib/js/string.js | 158 +- lib/js/stringLabels.js | 158 +- lib/js/uchar.js | 58 +- 232 files changed, 47710 insertions(+), 47747 deletions(-) diff --git a/jscomp/test/406_primitive_test.js b/jscomp/test/406_primitive_test.js index f104eff56d..fb78f4a302 100644 --- a/jscomp/test/406_primitive_test.js +++ b/jscomp/test/406_primitive_test.js @@ -1,15 +1,15 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -19,48 +19,48 @@ function eq(loc, x, y) { eq("File \"406_primitive_test.res\", line 13, characters 3-10", 32, 32); -var backend_type = { +let backend_type = { TAG: "Other", _0: "BS" }; eq("File \"406_primitive_test.res\", line 23, characters 3-10", backend_type, { - TAG: "Other", - _0: "BS" - }); + TAG: "Other", + _0: "BS" +}); function f(param) { - var A = /* @__PURE__ */Caml_exceptions.create("A"); + let A = /* @__PURE__ */Caml_exceptions.create("A"); try { - for(var i = 0; i <= 200; ++i){ + for(let i = 0; i <= 200; ++i){ if (i === 10) { throw new Error(A, { - cause: { - RE_EXN_ID: A, - _1: 0 - } - }); + cause: { + RE_EXN_ID: A, + _1: 0 + } + }); } } - return ; + return; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === A) { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } Mt.from_pair_suites("406_primitive_test", suites.contents); -var v = 32; +let v = 32; -var max_array_length = /* Max_wosize */2147483647; +let max_array_length = /* Max_wosize */2147483647; exports.suites = suites; exports.test_id = test_id; diff --git a/jscomp/test/UncurriedExternals.js b/jscomp/test/UncurriedExternals.js index 28319e25fb..b619e1e3b6 100644 --- a/jscomp/test/UncurriedExternals.js +++ b/jscomp/test/UncurriedExternals.js @@ -1,63 +1,63 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var React = require("react"); +let React = require("react"); function dd(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var h = sum(1.0, 2.0); +let h = sum(1.0, 2.0); -var M = { +let M = { sum: (function (prim0, prim1) { - return sum(prim0, prim1); - }) + return sum(prim0, prim1); + }) }; -var hh = M.sum(1.0, 2.0); +let hh = M.sum(1.0, 2.0); -var mf = 3 % 4; +let mf = 3 % 4; function tg(arr) { return arr[0]; } -var tc = Object.assign({}, "abc"); +let tc = Object.assign({}, "abc"); -var te = { +let te = { RE_EXN_ID: "Not_found" }; -var tcr = {}; +let tcr = {}; function tsiC(c) { c.increment = (function (amount) { - var me = this ; - console.log(me); - }); + let me = this ; + console.log(me); + }); } function tsiU(c) { c.increment = (function (amount) { - var me = this ; - console.log(me); - }); + let me = this ; + console.log(me); + }); } -var match = React.useState(function (param) { - return 3; - }); +let match = React.useState(function (param) { + return 3; +}); -var StandardNotation_get = match[0]; +let StandardNotation_get = match[0]; -var StandardNotation_set = match[1]; +let StandardNotation_set = match[1]; -var StandardNotation = { +let StandardNotation = { dd: dd, h: h, M: M, @@ -74,72 +74,72 @@ var StandardNotation = { }; function methodWithAsync(param) { - var $$this = this ; + let $$this = this ; return (async function (arg) { - return $$this + arg | 0; - })(param); + return $$this + arg | 0; + })(param); } function dd$1(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var h$1 = sum(1.0, 2.0); +let h$1 = sum(1.0, 2.0); -var M$1 = { +let M$1 = { sum: (function (prim0, prim1) { - return sum(prim0, prim1); - }) + return sum(prim0, prim1); + }) }; -var hh$1 = M$1.sum(1.0, 2.0); +let hh$1 = M$1.sum(1.0, 2.0); -var mf$1 = 3 % 4; +let mf$1 = 3 % 4; function tg$1(arr) { return arr[0]; } -var tc$1 = Object.assign({}, "abc"); +let tc$1 = Object.assign({}, "abc"); -var te$1 = { +let te$1 = { RE_EXN_ID: "Not_found" }; -var tcr$1 = {}; +let tcr$1 = {}; function tsiC$1(c) { c.increment = (function (amount) { - var me = this ; - console.log(me); - }); + let me = this ; + console.log(me); + }); } function tsiU$1(c) { c.increment = (function (amount) { - var me = this ; - console.log(me); - }); + let me = this ; + console.log(me); + }); } -var match$1 = React.useState(function () { - return 3; - }); +let match$1 = React.useState(function () { + return 3; +}); function methodWithAsyncU() { - var $$this = this ; + let $$this = this ; return async function (arg) { return $$this + arg | 0; }; } -var get = match$1[0]; +let get = match$1[0]; -var set = match$1[1]; +let set = match$1[1]; exports.StandardNotation = StandardNotation; exports.methodWithAsync = methodWithAsync; diff --git a/jscomp/test/adt_optimize_test.js b/jscomp/test/adt_optimize_test.js index 15c015103d..6d6f16665b 100644 --- a/jscomp/test/adt_optimize_test.js +++ b/jscomp/test/adt_optimize_test.js @@ -195,15 +195,15 @@ function f11(x) { return 1; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "adt_optimize_test.res", - 202, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "adt_optimize_test.res", + 202, + 9 + ] + } + }); } exports.f = f; diff --git a/jscomp/test/argv_test.js b/jscomp/test/argv_test.js index 2cbaa096fb..92dad01f3b 100644 --- a/jscomp/test/argv_test.js +++ b/jscomp/test/argv_test.js @@ -1,23 +1,23 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Arg = require("../../lib/js/arg.js"); +let Arg = require("../../lib/js/arg.js"); function anno_fun(arg) { } -var usage_msg = "Usage:\n"; +let usage_msg = "Usage:\n"; -var compile = { +let compile = { contents: false }; -var test = { +let test = { contents: true }; -var arg_spec_0 = [ +let arg_spec_0 = [ "-c", { TAG: "Set", @@ -26,7 +26,7 @@ var arg_spec_0 = [ " Compile" ]; -var arg_spec_1 = { +let arg_spec_1 = { hd: [ "-d", { @@ -38,41 +38,41 @@ var arg_spec_1 = { tl: /* [] */0 }; -var arg_spec = { +let arg_spec = { hd: arg_spec_0, tl: arg_spec_1 }; Arg.parse_argv(undefined, [ - "prog.exe", - "-c", - "-d" - ], arg_spec, anno_fun, usage_msg); + "prog.exe", + "-c", + "-d" +], arg_spec, anno_fun, usage_msg); if (compile.contents !== true) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "argv_test.res", - 14, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "argv_test.res", + 14, + 2 + ] + } + }); } if (test.contents !== false) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "argv_test.res", - 15, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "argv_test.res", + 15, + 2 + ] + } + }); } exports.anno_fun = anno_fun; diff --git a/jscomp/test/arith_parser.js b/jscomp/test/arith_parser.js index 74c8616688..a0e7289ded 100644 --- a/jscomp/test/arith_parser.js +++ b/jscomp/test/arith_parser.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Parsing = require("../../lib/js/parsing.js"); +let Parsing = require("../../lib/js/parsing.js"); -var yytransl_const = [ +let yytransl_const = [ 259, 260, 261, @@ -15,42 +15,42 @@ var yytransl_const = [ 0 ]; -var yytransl_block = [ +let yytransl_block = [ 257, 258, 0 ]; -var yylhs = "\xff\xff\ +let yylhs = "\xff\xff\ \x01\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\x02\x00\ \x02\x00\x00\x00"; -var yylen = "\x02\x00\ +let yylen = "\x02\x00\ \x02\x00\x01\x00\x01\x00\x03\x00\x03\x00\x03\x00\x03\x00\x02\x00\ \x03\x00\x02\x00"; -var yydefred = "\x00\x00\ +let yydefred = "\x00\x00\ \x00\x00\x00\x00\x02\x00\x03\x00\x00\x00\x00\x00\x0a\x00\x00\x00\ \x08\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x01\x00\x09\x00\ \x00\x00\x00\x00\x06\x00\x07\x00"; -var yydgoto = "\x02\x00\ +let yydgoto = "\x02\x00\ \x07\x00\x08\x00"; -var yysindex = "\xff\xff\ +let yysindex = "\xff\xff\ \x10\xff\x00\x00\x00\x00\x00\x00\x10\xff\x10\xff\x00\x00\x0a\x00\ \x00\x00\x16\xff\x10\xff\x10\xff\x10\xff\x10\xff\x00\x00\x00\x00\ \xff\xfe\xff\xfe\x00\x00\x00\x00"; -var yyrindex = "\x00\x00\ +let yyrindex = "\x00\x00\ \x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\ \x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\ \x01\x00\x03\x00\x00\x00\x00\x00"; -var yygindex = "\x00\x00\ +let yygindex = "\x00\x00\ \x00\x00\x02\x00"; -var yytable = "\x01\x00\ +let yytable = "\x01\x00\ \x04\x00\x00\x00\x05\x00\x0d\x00\x0e\x00\x00\x00\x09\x00\x0a\x00\ \x00\x00\x0f\x00\x00\x00\x00\x00\x11\x00\x12\x00\x13\x00\x14\x00\ \x03\x00\x04\x00\x00\x00\x05\x00\x00\x00\x00\x00\x00\x00\x06\x00\ @@ -86,7 +86,7 @@ var yytable = "\x01\x00\ \x00\x00\x00\x00\x00\x00\x04\x00\x04\x00\x05\x00\x05\x00\x00\x00\ \x00\x00\x04\x00\x00\x00\x05\x00\x0b\x00\x0c\x00\x0d\x00\x0e\x00"; -var yycheck = "\x01\x00\ +let yycheck = "\x01\x00\ \x00\x00\xff\xff\x00\x00\x05\x01\x06\x01\xff\xff\x05\x00\x06\x00\ \xff\xff\x00\x00\xff\xff\xff\xff\x0b\x00\x0c\x00\x0d\x00\x0e\x00\ \x01\x01\x02\x01\xff\xff\x04\x01\xff\xff\xff\xff\xff\xff\x08\x01\ @@ -122,7 +122,7 @@ var yycheck = "\x01\x00\ \xff\xff\xff\xff\xff\xff\x03\x01\x04\x01\x03\x01\x04\x01\xff\xff\ \xff\xff\x09\x01\xff\xff\x09\x01\x03\x01\x04\x01\x05\x01\x06\x01"; -var yynames_const = "\ +let yynames_const = "\ PLUS\x00\ MINUS\x00\ TIMES\x00\ @@ -133,94 +133,94 @@ var yynames_const = "\ EOF\x00\ "; -var yynames_block = "\ +let yynames_block = "\ NUMERAL\x00\ IDENT\x00\ "; -var yyact = [ +let yyact = [ (function (param) { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "parser" - } - }); - }), + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "parser" + } + }); + }), (function (__caml_parser_env) { - return Parsing.peek_val(__caml_parser_env, 1); - }), + return Parsing.peek_val(__caml_parser_env, 1); + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Numeral", - _0: _1 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Numeral", + _0: _1 + }; + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Variable", - _0: _1 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Variable", + _0: _1 + }; + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 2); - var _3 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Plus", - _0: _1, - _1: _3 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 2); + let _3 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Plus", + _0: _1, + _1: _3 + }; + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 2); - var _3 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Minus", - _0: _1, - _1: _3 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 2); + let _3 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Minus", + _0: _1, + _1: _3 + }; + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 2); - var _3 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Times", - _0: _1, - _1: _3 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 2); + let _3 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Times", + _0: _1, + _1: _3 + }; + }), (function (__caml_parser_env) { - var _1 = Parsing.peek_val(__caml_parser_env, 2); - var _3 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Divide", - _0: _1, - _1: _3 - }; - }), + let _1 = Parsing.peek_val(__caml_parser_env, 2); + let _3 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Divide", + _0: _1, + _1: _3 + }; + }), (function (__caml_parser_env) { - var _2 = Parsing.peek_val(__caml_parser_env, 0); - return { - TAG: "Negate", - _0: _2 - }; - }), + let _2 = Parsing.peek_val(__caml_parser_env, 0); + return { + TAG: "Negate", + _0: _2 + }; + }), (function (__caml_parser_env) { - return Parsing.peek_val(__caml_parser_env, 1); - }), + return Parsing.peek_val(__caml_parser_env, 1); + }), (function (__caml_parser_env) { - throw new Error(Parsing.YYexit, { - cause: { - RE_EXN_ID: Parsing.YYexit, - _1: Parsing.peek_val(__caml_parser_env, 0) - } - }); - }) + throw new Error(Parsing.YYexit, { + cause: { + RE_EXN_ID: Parsing.YYexit, + _1: Parsing.peek_val(__caml_parser_env, 0) + } + }); + }) ]; -var yytables = { +let yytables = { actions: yyact, transl_const: yytransl_const, transl_block: yytransl_block, @@ -243,7 +243,7 @@ function toplevel(lexfun, lexbuf) { return Parsing.yyparse(yytables, 1, lexfun, lexbuf); } -var yytablesize = 272; +let yytablesize = 272; exports.yytransl_const = yytransl_const; exports.yytransl_block = yytransl_block; diff --git a/jscomp/test/arity_infer.js b/jscomp/test/arity_infer.js index ca44ef7b13..287497a2b3 100644 --- a/jscomp/test/arity_infer.js +++ b/jscomp/test/arity_infer.js @@ -1,62 +1,62 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); +let Curry = require("../../lib/js/curry.js"); function f0(x) { - var tmp; + let tmp; if (x > 3) { tmp = (function (x) { - return x + 1 | 0; - }); + return x + 1 | 0; + }); } else { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } return tmp(3); } function f1(x) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); return Curry._1(undefined, x); } function f3(x) { - var tmp; + let tmp; switch (x) { case 0 : tmp = (function (x) { - return x + 1 | 0; - }); + return x + 1 | 0; + }); break; case 1 : tmp = (function (x) { - return x + 2 | 0; - }); + return x + 2 | 0; + }); break; case 2 : tmp = (function (x) { - return x + 3 | 0; - }); + return x + 3 | 0; + }); break; case 3 : tmp = (function (x) { - return x + 4 | 0; - }); + return x + 4 | 0; + }); break; default: throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } return tmp(3); } diff --git a/jscomp/test/array_safe_get.js b/jscomp/test/array_safe_get.js index ebadc86929..fe009ae40c 100644 --- a/jscomp/test/array_safe_get.js +++ b/jscomp/test/array_safe_get.js @@ -21,8 +21,8 @@ catch (raw_msg){ y = 0; } else { throw new Error(msg.RE_EXN_ID, { - cause: msg - }); + cause: msg + }); } } diff --git a/jscomp/test/array_test.js b/jscomp/test/array_test.js index 98e7237669..3c43f34ab2 100644 --- a/jscomp/test/array_test.js +++ b/jscomp/test/array_test.js @@ -1,52 +1,52 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function starts_with(xs, prefix, p) { - var H = /* @__PURE__ */Caml_exceptions.create("H"); - var len1 = xs.length; - var len2 = prefix.length; + let H = /* @__PURE__ */Caml_exceptions.create("H"); + let len1 = xs.length; + let len2 = prefix.length; if (len2 > len1) { return false; } try { - for(var i = 0; i < len2; ++i){ + for(let i = 0; i < len2; ++i){ if (!Curry._2(p, Caml_array.get(xs, i), Caml_array.get(prefix, i))) { throw new Error(H, { - cause: { - RE_EXN_ID: H - } - }); + cause: { + RE_EXN_ID: H + } + }); } } return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === H) { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function is_sorted(x) { - var len = x.length; - var _i = 0; + let len = x.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= (len - 1 | 0)) { return true; } @@ -54,305 +54,305 @@ function is_sorted(x) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } -var array_suites_0 = [ +let array_suites_0 = [ "init", (function (param) { - return { - TAG: "Eq", - _0: $$Array.init(5, (function (x) { - return x; - })), - _1: [ - 0, - 1, - 2, - 3, - 4 - ] - }; - }) + return { + TAG: "Eq", + _0: $$Array.init(5, (function (x) { + return x; + })), + _1: [ + 0, + 1, + 2, + 3, + 4 + ] + }; + }) ]; -var array_suites_1 = { +let array_suites_1 = { hd: [ "toList", (function (param) { - var aux = function (xs) { - return List.fold_left((function (acc, param) { - return { - hd: [ - $$Array.to_list(param[0]), - param[1] - ], - tl: acc - }; - }), /* [] */0, xs); - }; - var match = List.split(aux({ - hd: [ - [], - /* [] */0 - ], - tl: /* [] */0 - })); - return { - TAG: "Eq", - _0: match[0], - _1: match[1] - }; - }) + let aux = function (xs) { + return List.fold_left((function (acc, param) { + return { + hd: [ + $$Array.to_list(param[0]), + param[1] + ], + tl: acc + }; + }), /* [] */0, xs); + }; + let match = List.split(aux({ + hd: [ + [], + /* [] */0 + ], + tl: /* [] */0 + })); + return { + TAG: "Eq", + _0: match[0], + _1: match[1] + }; + }) ], tl: { hd: [ "concat", (function (param) { - return { - TAG: "Eq", - _0: [ - 0, - 1, - 2, - 3, - 4, - 5 - ], - _1: Caml_array.concat({ - hd: [ - 0, - 1, - 2 - ], - tl: { - hd: [ - 3, - 4 - ], - tl: { - hd: [], - tl: { - hd: [5], - tl: /* [] */0 - } - } - } - }) - }; - }) + return { + TAG: "Eq", + _0: [ + 0, + 1, + 2, + 3, + 4, + 5 + ], + _1: Caml_array.concat({ + hd: [ + 0, + 1, + 2 + ], + tl: { + hd: [ + 3, + 4 + ], + tl: { + hd: [], + tl: { + hd: [5], + tl: /* [] */0 + } + } + } + }) + }; + }) ], tl: { hd: [ "make", (function (param) { - return { - TAG: "Eq", - _0: [ - Caml_array.make(100, /* 'a' */97), - Caml_array.make_float(100) - ], - _1: [ - $$Array.init(100, (function (param) { - return /* 'a' */97; - })), - $$Array.init(100, (function (param) { - return 0; - })) - ] - }; - }) + return { + TAG: "Eq", + _0: [ + Caml_array.make(100, /* 'a' */97), + Caml_array.make_float(100) + ], + _1: [ + $$Array.init(100, (function (param) { + return /* 'a' */97; + })), + $$Array.init(100, (function (param) { + return 0; + })) + ] + }; + }) ], tl: { hd: [ "sub", (function (param) { - return { - TAG: "Eq", - _0: $$Array.sub([ - 0, - 1, - 2, - 3, - 4 - ], 2, 2), - _1: [ - 2, - 3 - ] - }; - }) + return { + TAG: "Eq", + _0: $$Array.sub([ + 0, + 1, + 2, + 3, + 4 + ], 2, 2), + _1: [ + 2, + 3 + ] + }; + }) ], tl: { hd: [ "blit", (function (param) { - var u = [ - 100, - 0, - 0 - ]; - var v = $$Array.init(3, (function (x) { - return (x << 1); - })); - $$Array.blit(v, 1, u, 1, 2); - return { - TAG: "Eq", - _0: [ - [ - 0, - 2, - 4 - ], - [ - 100, - 2, - 4 - ] - ], - _1: [ - v, - u - ] - }; - }) + let u = [ + 100, + 0, + 0 + ]; + let v = $$Array.init(3, (function (x) { + return (x << 1); + })); + $$Array.blit(v, 1, u, 1, 2); + return { + TAG: "Eq", + _0: [ + [ + 0, + 2, + 4 + ], + [ + 100, + 2, + 4 + ] + ], + _1: [ + v, + u + ] + }; + }) ], tl: { hd: [ "File \"array_test.res\", line 75, characters 8-15", (function (param) { - var a0 = $$Array.init(100, (function (i) { - return (i << 0); - })); - $$Array.blit(a0, 10, a0, 5, 20); - return { - TAG: "Eq", - _0: true, - _1: starts_with(a0, [ - 0, - 1, - 2, - 3, - 4, - 10, - 11, - 12, - 13, - 14, - 15, - 16, - 17, - 18, - 19, - 20, - 21, - 22, - 23, - 24, - 25, - 26, - 27, - 28 - ], (function (prim0, prim1) { - return prim0 === prim1; - })) - }; - }) + let a0 = $$Array.init(100, (function (i) { + return (i << 0); + })); + $$Array.blit(a0, 10, a0, 5, 20); + return { + TAG: "Eq", + _0: true, + _1: starts_with(a0, [ + 0, + 1, + 2, + 3, + 4, + 10, + 11, + 12, + 13, + 14, + 15, + 16, + 17, + 18, + 19, + 20, + 21, + 22, + 23, + 24, + 25, + 26, + 27, + 28 + ], (function (prim0, prim1) { + return prim0 === prim1; + })) + }; + }) ], tl: { hd: [ "File \"array_test.res\", line 118, characters 8-15", (function (param) { - var a0 = $$Array.init(100, (function (i) { - return (i << 0); - })); - $$Array.blit(a0, 5, a0, 10, 20); - return { - TAG: "Eq", - _0: true, - _1: starts_with(a0, [ - 0, - 1, - 2, - 3, - 4, - 5, - 6, - 7, - 8, - 9, - 5, - 6, - 7, - 8, - 9, - 10, - 11, - 12, - 13, - 14, - 15, - 16, - 17, - 18, - 19, - 20 - ], (function (prim0, prim1) { - return prim0 === prim1; - })) - }; - }) + let a0 = $$Array.init(100, (function (i) { + return (i << 0); + })); + $$Array.blit(a0, 5, a0, 10, 20); + return { + TAG: "Eq", + _0: true, + _1: starts_with(a0, [ + 0, + 1, + 2, + 3, + 4, + 5, + 6, + 7, + 8, + 9, + 5, + 6, + 7, + 8, + 9, + 10, + 11, + 12, + 13, + 14, + 15, + 16, + 17, + 18, + 19, + 20 + ], (function (prim0, prim1) { + return prim0 === prim1; + })) + }; + }) ], tl: { hd: [ "make", (function (param) { - return { - TAG: "Eq", - _0: Caml_array.make(2, 1), - _1: [ - 1, - 1 - ] - }; - }) + return { + TAG: "Eq", + _0: Caml_array.make(2, 1), + _1: [ + 1, + 1 + ] + }; + }) ], tl: { hd: [ "sort", (function (param) { - var u = [ - 3, + let u = [ + 3, + 0, + 1 + ]; + $$Array.sort(Caml.int_compare, u); + return { + TAG: "Eq", + _0: Caml_obj.equal([ 0, - 1 - ]; - $$Array.sort(Caml.int_compare, u); - return { - TAG: "Eq", - _0: Caml_obj.equal([ - 0, - 1, - 3 - ], u), - _1: true - }; - }) + 1, + 3 + ], u), + _1: true + }; + }) ], tl: { hd: [ "sort_large", (function (param) { - var v = $$Array.init(4, (function (i) { - return i % 17; - })); - $$Array.sort(Caml.int_compare, v); - return { - TAG: "Eq", - _0: true, - _1: is_sorted(v) - }; - }) + let v = $$Array.init(4, (function (i) { + return i % 17; + })); + $$Array.sort(Caml.int_compare, v); + return { + TAG: "Eq", + _0: true, + _1: is_sorted(v) + }; + }) ], tl: /* [] */0 } @@ -366,7 +366,7 @@ var array_suites_1 = { } }; -var array_suites = { +let array_suites = { hd: array_suites_0, tl: array_suites_1 }; diff --git a/jscomp/test/bb.js b/jscomp/test/bb.js index 7cdb4dacd4..0ad98406be 100644 --- a/jscomp/test/bb.js +++ b/jscomp/test/bb.js @@ -22,20 +22,20 @@ function ff(x) { return "c"; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bb.res", - 13, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bb.res", + 13, + 9 + ] + } + }); } } function test(x) { - var match; + let match; switch (x) { case "a" : match = "a"; @@ -48,15 +48,15 @@ function test(x) { break; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bb.res", - 21, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bb.res", + 21, + 9 + ] + } + }); } if (match === "b") { return "b"; @@ -67,13 +67,13 @@ function test(x) { } } -var test_poly = "a"; +let test_poly = "a"; -var c = f("a"); +let c = f("a"); -var d = f("b"); +let d = f("b"); -var e = f("c"); +let e = f("c"); exports.f = f; exports.ff = ff; diff --git a/jscomp/test/bdd.js b/jscomp/test/bdd.js index bccafffa62..a3c74117a9 100644 --- a/jscomp/test/bdd.js +++ b/jscomp/test/bdd.js @@ -1,11 +1,11 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_array = require("../../lib/js/caml_array.js"); +let Caml_array = require("../../lib/js/caml_array.js"); function $$eval(_bdd, vars) { while(true) { - var bdd = _bdd; + let bdd = _bdd; if (typeof bdd !== "object") { if (bdd === "One") { return true; @@ -15,10 +15,10 @@ function $$eval(_bdd, vars) { } if (Caml_array.get(vars, bdd._1)) { _bdd = bdd._3; - continue ; + continue; } _bdd = bdd._0; - continue ; + continue; }; } @@ -34,19 +34,19 @@ function getId(bdd) { } } -var nodeC = { +let nodeC = { contents: 1 }; -var sz_1 = { +let sz_1 = { contents: 8191 }; -var htab = { +let htab = { contents: Caml_array.make(sz_1.contents + 1 | 0, /* [] */0) }; -var n_items = { +let n_items = { contents: 0 }; @@ -55,51 +55,51 @@ function hashVal(x, y, v) { } function resize(newSize) { - var arr = htab.contents; - var newSz_1 = newSize - 1 | 0; - var newArr = Caml_array.make(newSize, /* [] */0); - var copyBucket = function (_bucket) { + let arr = htab.contents; + let newSz_1 = newSize - 1 | 0; + let newArr = Caml_array.make(newSize, /* [] */0); + let copyBucket = function (_bucket) { while(true) { - var bucket = _bucket; + let bucket = _bucket; if (!bucket) { - return ; + return; } - var n = bucket.hd; + let n = bucket.hd; if (typeof n !== "object") { if (n === "One") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 60, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 60, + 13 + ] + } + }); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 60, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 60, + 13 + ] + } + }); } else { - var ind = hashVal(getId(n._0), getId(n._3), n._1) & newSz_1; + let ind = hashVal(getId(n._0), getId(n._3), n._1) & newSz_1; Caml_array.set(newArr, ind, { - hd: n, - tl: Caml_array.get(newArr, ind) - }); + hd: n, + tl: Caml_array.get(newArr, ind) + }); _bucket = bucket.tl; - continue ; + continue; } }; }; - for(var n = 0 ,n_finish = sz_1.contents; n <= n_finish; ++n){ + for(let n = 0 ,n_finish = sz_1.contents; n <= n_finish; ++n){ copyBucket(Caml_array.get(arr, n)); } htab.contents = newArr; @@ -109,18 +109,18 @@ function resize(newSize) { function insert(idl, idh, v, ind, bucket, newNode) { if (n_items.contents <= sz_1.contents) { Caml_array.set(htab.contents, ind, { - hd: newNode, - tl: bucket - }); + hd: newNode, + tl: bucket + }); n_items.contents = n_items.contents + 1 | 0; - return ; + return; } resize((sz_1.contents + sz_1.contents | 0) + 2 | 0); - var ind$1 = hashVal(idl, idh, v) & sz_1.contents; + let ind$1 = hashVal(idl, idh, v) & sz_1.contents; Caml_array.set(htab.contents, ind$1, { - hd: newNode, - tl: Caml_array.get(htab.contents, ind$1) - }); + hd: newNode, + tl: Caml_array.get(htab.contents, ind$1) + }); } function resetUnique(param) { @@ -131,51 +131,51 @@ function resetUnique(param) { } function mkNode(low, v, high) { - var idl = getId(low); - var idh = getId(high); + let idl = getId(low); + let idh = getId(high); if (idl === idh) { return low; } - var ind = hashVal(idl, idh, v) & sz_1.contents; - var bucket = Caml_array.get(htab.contents, ind); - var _b = bucket; + let ind = hashVal(idl, idh, v) & sz_1.contents; + let bucket = Caml_array.get(htab.contents, ind); + let _b = bucket; while(true) { - var b = _b; + let b = _b; if (b) { - var n = b.hd; + let n = b.hd; if (typeof n !== "object") { if (n === "One") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 121, - 15 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 121, + 15 + ] + } + }); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 121, - 15 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 121, + 15 + ] + } + }); } else { if (v === n._1 && idl === getId(n._0) && idh === getId(n._3)) { return n; } _b = b.tl; - continue ; + continue; } } else { - var n_2 = (nodeC.contents = nodeC.contents + 1 | 0, nodeC.contents); - var n$1 = { + let n_2 = (nodeC.contents = nodeC.contents + 1 | 0, nodeC.contents); + let n$1 = { TAG: "Node", _0: low, _1: v, @@ -202,21 +202,21 @@ function mkVar(x) { return mkNode("Zero", x, "One"); } -var andslot1 = Caml_array.make(1999, 0); +let andslot1 = Caml_array.make(1999, 0); -var andslot2 = Caml_array.make(1999, 0); +let andslot2 = Caml_array.make(1999, 0); -var andslot3 = Caml_array.make(1999, "Zero"); +let andslot3 = Caml_array.make(1999, "Zero"); -var xorslot1 = Caml_array.make(1999, 0); +let xorslot1 = Caml_array.make(1999, 0); -var xorslot2 = Caml_array.make(1999, 0); +let xorslot2 = Caml_array.make(1999, 0); -var xorslot3 = Caml_array.make(1999, "Zero"); +let xorslot3 = Caml_array.make(1999, "Zero"); -var notslot1 = Caml_array.make(1999, 0); +let notslot1 = Caml_array.make(1999, 0); -var notslot2 = Caml_array.make(1999, "One"); +let notslot2 = Caml_array.make(1999, "One"); function hash(x, y) { return ((x << 1) + y | 0) % 1999; @@ -230,12 +230,12 @@ function not(n) { return "One"; } } - var id = n._2; - var h = id % 1999; + let id = n._2; + let h = id % 1999; if (id === Caml_array.get(notslot1, h)) { return Caml_array.get(notslot2, h); } - var f = mkNode(not(n._0), n._1, not(n._3)); + let f = mkNode(not(n._0), n._1, not(n._3)); Caml_array.set(notslot1, h, id); Caml_array.set(notslot2, h, f); return f; @@ -249,10 +249,10 @@ function and2(n1, n2) { return "Zero"; } } - var r1 = n1._3; - var i1 = n1._2; - var v1 = n1._1; - var l1 = n1._0; + let r1 = n1._3; + let i1 = n1._2; + let v1 = n1._1; + let l1 = n1._0; if (typeof n2 !== "object") { if (n2 === "One") { return n1; @@ -260,16 +260,16 @@ function and2(n1, n2) { return "Zero"; } } - var r2 = n2._3; - var i2 = n2._2; - var v2 = n2._1; - var l2 = n2._0; - var h = hash(i1, i2); + let r2 = n2._3; + let i2 = n2._2; + let v2 = n2._1; + let l2 = n2._0; + let h = hash(i1, i2); if (i1 === Caml_array.get(andslot1, h) && i2 === Caml_array.get(andslot2, h)) { return Caml_array.get(andslot3, h); } - var match = cmpVar(v1, v2); - var f; + let match = cmpVar(v1, v2); + let f; switch (match) { case "LESS" : f = mkNode(and2(l1, n2), v1, and2(r1, n2)); @@ -296,10 +296,10 @@ function xor(n1, n2) { return n2; } } - var r1 = n1._3; - var i1 = n1._2; - var v1 = n1._1; - var l1 = n1._0; + let r1 = n1._3; + let i1 = n1._2; + let v1 = n1._1; + let l1 = n1._0; if (typeof n2 !== "object") { if (n2 === "One") { return not(n1); @@ -307,16 +307,16 @@ function xor(n1, n2) { return n1; } } - var r2 = n2._3; - var i2 = n2._2; - var v2 = n2._1; - var l2 = n2._0; - var h = hash(i1, i2); + let r2 = n2._3; + let i2 = n2._2; + let v2 = n2._1; + let l2 = n2._0; + let h = hash(i1, i2); if (i1 === Caml_array.get(andslot1, h) && i2 === Caml_array.get(andslot2, h)) { return Caml_array.get(andslot3, h); } - var match = cmpVar(v1, v2); - var f; + let match = cmpVar(v1, v2); + let f; switch (match) { case "LESS" : f = mkNode(xor(l1, n2), v1, xor(r1, n2)); @@ -336,14 +336,14 @@ function xor(n1, n2) { } function hwb(n) { - var h = function (i, j) { + let h = function (i, j) { if (i === j) { return mkNode("Zero", i, "One"); } else { return xor(and2(not(mkNode("Zero", j, "One")), h(i, j - 1 | 0)), and2(mkNode("Zero", j, "One"), g(i, j - 1 | 0))); } }; - var g = function (i, j) { + let g = function (i, j) { if (i === j) { return mkNode("Zero", i, "One"); } else { @@ -353,7 +353,7 @@ function hwb(n) { return h(0, n - 1 | 0); } -var seed = { +let seed = { contents: 0 }; @@ -363,8 +363,8 @@ function random(param) { } function random_vars(n) { - var vars = Caml_array.make(n, false); - for(var i = 0; i < n; ++i){ + let vars = Caml_array.make(n, false); + for(let i = 0; i < n; ++i){ Caml_array.set(vars, i, random()); } return vars; @@ -385,8 +385,8 @@ function bool_equal(a, b) { } function test_hwb(bdd, vars) { - var ntrue = 0; - for(var i = 0 ,i_finish = vars.length; i < i_finish; ++i){ + let ntrue = 0; + for(let i = 0 ,i_finish = vars.length; i < i_finish; ++i){ if (Caml_array.get(vars, i)) { ntrue = ntrue + 1 | 0; } @@ -396,35 +396,35 @@ function test_hwb(bdd, vars) { } function main(param) { - var bdd = hwb(22); - var succeeded = true; - for(var i = 1; i <= 100; ++i){ + let bdd = hwb(22); + let succeeded = true; + for(let i = 1; i <= 100; ++i){ succeeded = succeeded && test_hwb(bdd, random_vars(22)); } if (succeeded) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bdd.res", - 301, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bdd.res", + 301, + 2 + ] + } + }); } main(); -var initSize_1 = 8191; +let initSize_1 = 8191; -var zero = "Zero"; +let zero = "Zero"; -var one = "One"; +let one = "One"; -var cacheSize = 1999; +let cacheSize = 1999; exports.$$eval = $$eval; exports.getId = getId; diff --git a/jscomp/test/bench.js b/jscomp/test/bench.js index b1ec43f5df..c1b437fa45 100644 --- a/jscomp/test/bench.js +++ b/jscomp/test/bench.js @@ -1,62 +1,62 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Pervasives = require("../../lib/js/pervasives.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Pervasives = require("../../lib/js/pervasives.js"); function map(f, a) { - var f$1 = Curry.__1(f); - var l = a.length; + let f$1 = Curry.__1(f); + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, f$1(a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, f$1(a[0])); + for(let i = 1; i < l; ++i){ r[i] = f$1(a[i]); } return r; } function init(l, f) { - var f$1 = Curry.__1(f); + let f$1 = Curry.__1(f); if (l === 0) { return []; } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, f$1(0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, f$1(0)); + for(let i = 1; i < l; ++i){ res[i] = f$1(i); } return res; } function fold_left(f, x, a) { - var f$1 = Curry.__2(f); - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let f$1 = Curry.__2(f); + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f$1(r, a[i]); } return r; } function f2(param) { - var arr = init(3000000, (function (i) { - return i; - })); - var b = map((function (i) { - return i + i - 1; - }), arr); - var v = fold_left((function (prim0, prim1) { - return prim0 + prim1; - }), 0, b); + let arr = init(3000000, (function (i) { + return i; + })); + let b = map((function (i) { + return i + i - 1; + }), arr); + let v = fold_left((function (prim0, prim1) { + return prim0 + prim1; + }), 0, b); console.log(Pervasives.string_of_float(v)); } diff --git a/jscomp/test/big_polyvar_test.js b/jscomp/test/big_polyvar_test.js index d5c78e78da..2af9a1dee7 100644 --- a/jscomp/test/big_polyvar_test.js +++ b/jscomp/test/big_polyvar_test.js @@ -2,7 +2,7 @@ 'use strict'; -var _map = {"variant0":"variant0","variant1":"variant1","variant2":"variant2","variant3":"variant3","variant4":"variant4","variant5":"variant5","variant6":"variant6","variant7":"variant7","variant8":"variant8","variant9":"variant9","variant10":"variant10","variant11":"variant11","variant12":"variant12","variant13":"variant13","variant14":"variant14","variant15":"variant15","variant16":"variant16","variant17":"variant17","variant18":"variant18","variant19":"variant19","variant20":"variant20","variant21":"variant21","variant22":"variant22","variant23":"variant23","variant24":"variant24","variant25":"variant25","variant26":"variant26","variant27":"variant27","variant28":"variant28","variant29":"variant29","variant30":"variant30","variant31":"variant31","variant32":"variant32","variant33":"variant33","variant34":"variant34","variant35":"variant35","variant36":"variant36","variant37":"variant37","variant38":"variant38","variant39":"variant39","variant40":"variant40","variant41":"variant41","variant42":"variant42","variant43":"variant43","variant44":"variant44","variant45":"variant45","variant46":"variant46","variant47":"variant47","variant48":"variant48","variant49":"variant49","variant50":"variant50","variant51":"variant51","variant52":"variant52","variant53":"variant53","variant54":"variant54","variant55":"variant55","variant56":"variant56","variant57":"variant57","variant58":"variant58","variant59":"variant59","variant60":"variant60","variant61":"variant61","variant62":"variant62","variant63":"variant63","variant64":"variant64","variant65":"variant65","variant66":"variant66","variant67":"variant67","variant68":"variant68","variant69":"variant69","variant70":"variant70","variant71":"variant71","variant72":"variant72","variant73":"variant73","variant74":"variant74","variant75":"variant75","variant76":"variant76","variant77":"variant77","variant78":"variant78","variant79":"variant79","variant80":"variant80","variant81":"variant81","variant82":"variant82","variant83":"variant83","variant84":"variant84","variant85":"variant85","variant86":"variant86","variant87":"variant87","variant88":"variant88","variant89":"variant89","variant90":"variant90","variant91":"variant91","variant92":"variant92","variant93":"variant93","variant94":"variant94","variant95":"variant95","variant96":"variant96","variant97":"variant97","variant98":"variant98","variant99":"variant99","variant100":"variant100","variant101":"variant101","variant102":"variant102","variant103":"variant103","variant104":"variant104","variant105":"variant105","variant106":"variant106","variant107":"variant107","variant108":"variant108","variant109":"variant109","variant110":"variant110","variant111":"variant111","variant112":"variant112","variant113":"variant113","variant114":"variant114","variant115":"variant115","variant116":"variant116","variant117":"variant117","variant118":"variant118","variant119":"variant119","variant120":"variant120","variant121":"variant121","variant122":"variant122","variant123":"variant123","variant124":"variant124","variant125":"variant125","variant126":"variant126","variant127":"variant127","variant128":"variant128","variant129":"variant129","variant130":"variant130","variant131":"variant131","variant132":"variant132","variant133":"variant133","variant134":"variant134","variant135":"variant135","variant136":"variant136","variant137":"variant137","variant138":"variant138","variant139":"variant139","variant140":"variant140","variant141":"variant141","variant142":"variant142","variant143":"variant143","variant144":"variant144","variant145":"variant145","variant146":"variant146","variant147":"variant147","variant148":"variant148","variant149":"variant149","variant150":"variant150","variant151":"variant151","variant152":"variant152","variant153":"variant153","variant154":"variant154","variant155":"variant155","variant156":"variant156","variant157":"variant157","variant158":"variant158","variant159":"variant159","variant160":"variant160","variant161":"variant161","variant162":"variant162","variant163":"variant163","variant164":"variant164","variant165":"variant165","variant166":"variant166","variant167":"variant167","variant168":"variant168","variant169":"variant169","variant170":"variant170","variant171":"variant171","variant172":"variant172","variant173":"variant173","variant174":"variant174","variant175":"variant175","variant176":"variant176","variant177":"variant177","variant178":"variant178","variant179":"variant179","variant180":"variant180","variant181":"variant181","variant182":"variant182","variant183":"variant183","variant184":"variant184","variant185":"variant185","variant186":"variant186","variant187":"variant187","variant188":"variant188","variant189":"variant189","variant190":"variant190","variant191":"variant191","variant192":"variant192","variant193":"variant193","variant194":"variant194","variant195":"variant195","variant196":"variant196","variant197":"variant197","variant198":"variant198","variant199":"variant199","variant200":"variant200","variant201":"variant201","variant202":"variant202","variant203":"variant203","variant204":"variant204","variant205":"variant205","variant206":"variant206","variant207":"variant207","variant208":"variant208","variant209":"variant209","variant210":"variant210","variant211":"variant211","variant212":"variant212","variant213":"variant213","variant214":"variant214","variant215":"variant215","variant216":"variant216","variant217":"variant217","variant218":"variant218","variant219":"variant219","variant220":"variant220","variant221":"variant221","variant222":"variant222","variant223":"variant223","variant224":"variant224","variant225":"variant225","variant226":"variant226","variant227":"variant227","variant228":"variant228","variant229":"variant229","variant230":"variant230","variant231":"variant231","variant232":"variant232","variant233":"variant233","variant234":"variant234","variant235":"variant235","variant236":"variant236","variant237":"variant237","variant238":"variant238","variant239":"variant239","variant240":"variant240","variant241":"variant241","variant242":"variant242","variant243":"variant243","variant244":"variant244","variant245":"variant245","variant246":"variant246","variant247":"variant247","variant248":"variant248","variant249":"variant249","variant250":"variant250","variant251":"variant251","variant252":"variant252","variant253":"variant253","variant254":"variant254","variant255":"variant255","variant256":"variant256","variant257":"variant257","variant258":"variant258","variant259":"variant259","variant260":"variant260","variant261":"variant261","variant262":"variant262","variant263":"variant263","variant264":"variant264","variant265":"variant265","variant266":"variant266","variant267":"variant267","variant268":"variant268","variant269":"variant269","variant270":"variant270","variant271":"variant271","variant272":"variant272","variant273":"variant273","variant274":"variant274","variant275":"variant275","variant276":"variant276","variant277":"variant277","variant278":"variant278","variant279":"variant279","variant280":"variant280","variant281":"variant281","variant282":"variant282","variant283":"variant283","variant284":"variant284","variant285":"variant285","variant286":"variant286","variant287":"variant287","variant288":"variant288","variant289":"variant289","variant290":"variant290","variant291":"variant291","variant292":"variant292","variant293":"variant293","variant294":"variant294","variant295":"variant295","variant296":"variant296","variant297":"variant297","variant298":"variant298","variant299":"variant299"}; +let _map = {"variant0":"variant0","variant1":"variant1","variant2":"variant2","variant3":"variant3","variant4":"variant4","variant5":"variant5","variant6":"variant6","variant7":"variant7","variant8":"variant8","variant9":"variant9","variant10":"variant10","variant11":"variant11","variant12":"variant12","variant13":"variant13","variant14":"variant14","variant15":"variant15","variant16":"variant16","variant17":"variant17","variant18":"variant18","variant19":"variant19","variant20":"variant20","variant21":"variant21","variant22":"variant22","variant23":"variant23","variant24":"variant24","variant25":"variant25","variant26":"variant26","variant27":"variant27","variant28":"variant28","variant29":"variant29","variant30":"variant30","variant31":"variant31","variant32":"variant32","variant33":"variant33","variant34":"variant34","variant35":"variant35","variant36":"variant36","variant37":"variant37","variant38":"variant38","variant39":"variant39","variant40":"variant40","variant41":"variant41","variant42":"variant42","variant43":"variant43","variant44":"variant44","variant45":"variant45","variant46":"variant46","variant47":"variant47","variant48":"variant48","variant49":"variant49","variant50":"variant50","variant51":"variant51","variant52":"variant52","variant53":"variant53","variant54":"variant54","variant55":"variant55","variant56":"variant56","variant57":"variant57","variant58":"variant58","variant59":"variant59","variant60":"variant60","variant61":"variant61","variant62":"variant62","variant63":"variant63","variant64":"variant64","variant65":"variant65","variant66":"variant66","variant67":"variant67","variant68":"variant68","variant69":"variant69","variant70":"variant70","variant71":"variant71","variant72":"variant72","variant73":"variant73","variant74":"variant74","variant75":"variant75","variant76":"variant76","variant77":"variant77","variant78":"variant78","variant79":"variant79","variant80":"variant80","variant81":"variant81","variant82":"variant82","variant83":"variant83","variant84":"variant84","variant85":"variant85","variant86":"variant86","variant87":"variant87","variant88":"variant88","variant89":"variant89","variant90":"variant90","variant91":"variant91","variant92":"variant92","variant93":"variant93","variant94":"variant94","variant95":"variant95","variant96":"variant96","variant97":"variant97","variant98":"variant98","variant99":"variant99","variant100":"variant100","variant101":"variant101","variant102":"variant102","variant103":"variant103","variant104":"variant104","variant105":"variant105","variant106":"variant106","variant107":"variant107","variant108":"variant108","variant109":"variant109","variant110":"variant110","variant111":"variant111","variant112":"variant112","variant113":"variant113","variant114":"variant114","variant115":"variant115","variant116":"variant116","variant117":"variant117","variant118":"variant118","variant119":"variant119","variant120":"variant120","variant121":"variant121","variant122":"variant122","variant123":"variant123","variant124":"variant124","variant125":"variant125","variant126":"variant126","variant127":"variant127","variant128":"variant128","variant129":"variant129","variant130":"variant130","variant131":"variant131","variant132":"variant132","variant133":"variant133","variant134":"variant134","variant135":"variant135","variant136":"variant136","variant137":"variant137","variant138":"variant138","variant139":"variant139","variant140":"variant140","variant141":"variant141","variant142":"variant142","variant143":"variant143","variant144":"variant144","variant145":"variant145","variant146":"variant146","variant147":"variant147","variant148":"variant148","variant149":"variant149","variant150":"variant150","variant151":"variant151","variant152":"variant152","variant153":"variant153","variant154":"variant154","variant155":"variant155","variant156":"variant156","variant157":"variant157","variant158":"variant158","variant159":"variant159","variant160":"variant160","variant161":"variant161","variant162":"variant162","variant163":"variant163","variant164":"variant164","variant165":"variant165","variant166":"variant166","variant167":"variant167","variant168":"variant168","variant169":"variant169","variant170":"variant170","variant171":"variant171","variant172":"variant172","variant173":"variant173","variant174":"variant174","variant175":"variant175","variant176":"variant176","variant177":"variant177","variant178":"variant178","variant179":"variant179","variant180":"variant180","variant181":"variant181","variant182":"variant182","variant183":"variant183","variant184":"variant184","variant185":"variant185","variant186":"variant186","variant187":"variant187","variant188":"variant188","variant189":"variant189","variant190":"variant190","variant191":"variant191","variant192":"variant192","variant193":"variant193","variant194":"variant194","variant195":"variant195","variant196":"variant196","variant197":"variant197","variant198":"variant198","variant199":"variant199","variant200":"variant200","variant201":"variant201","variant202":"variant202","variant203":"variant203","variant204":"variant204","variant205":"variant205","variant206":"variant206","variant207":"variant207","variant208":"variant208","variant209":"variant209","variant210":"variant210","variant211":"variant211","variant212":"variant212","variant213":"variant213","variant214":"variant214","variant215":"variant215","variant216":"variant216","variant217":"variant217","variant218":"variant218","variant219":"variant219","variant220":"variant220","variant221":"variant221","variant222":"variant222","variant223":"variant223","variant224":"variant224","variant225":"variant225","variant226":"variant226","variant227":"variant227","variant228":"variant228","variant229":"variant229","variant230":"variant230","variant231":"variant231","variant232":"variant232","variant233":"variant233","variant234":"variant234","variant235":"variant235","variant236":"variant236","variant237":"variant237","variant238":"variant238","variant239":"variant239","variant240":"variant240","variant241":"variant241","variant242":"variant242","variant243":"variant243","variant244":"variant244","variant245":"variant245","variant246":"variant246","variant247":"variant247","variant248":"variant248","variant249":"variant249","variant250":"variant250","variant251":"variant251","variant252":"variant252","variant253":"variant253","variant254":"variant254","variant255":"variant255","variant256":"variant256","variant257":"variant257","variant258":"variant258","variant259":"variant259","variant260":"variant260","variant261":"variant261","variant262":"variant262","variant263":"variant263","variant264":"variant264","variant265":"variant265","variant266":"variant266","variant267":"variant267","variant268":"variant268","variant269":"variant269","variant270":"variant270","variant271":"variant271","variant272":"variant272","variant273":"variant273","variant274":"variant274","variant275":"variant275","variant276":"variant276","variant277":"variant277","variant278":"variant278","variant279":"variant279","variant280":"variant280","variant281":"variant281","variant282":"variant282","variant283":"variant283","variant284":"variant284","variant285":"variant285","variant286":"variant286","variant287":"variant287","variant288":"variant288","variant289":"variant289","variant290":"variant290","variant291":"variant291","variant292":"variant292","variant293":"variant293","variant294":"variant294","variant295":"variant295","variant296":"variant296","variant297":"variant297","variant298":"variant298","variant299":"variant299"}; function tToJs(param) { return param; @@ -26,7815 +26,7815 @@ function eq(x, y) { if ("variant0" !== "variant0") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 314, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 314, + 0 + ] + } + }); } if ("variant1" !== "variant1") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 315, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 315, + 0 + ] + } + }); } if ("variant2" !== "variant2") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 316, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 316, + 0 + ] + } + }); } if ("variant3" !== "variant3") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 317, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 317, + 0 + ] + } + }); } if ("variant4" !== "variant4") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 318, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 318, + 0 + ] + } + }); } if ("variant5" !== "variant5") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 319, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 319, + 0 + ] + } + }); } if ("variant6" !== "variant6") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 320, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 320, + 0 + ] + } + }); } if ("variant7" !== "variant7") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 321, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 321, + 0 + ] + } + }); } if ("variant8" !== "variant8") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 322, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 322, + 0 + ] + } + }); } if ("variant9" !== "variant9") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 323, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 323, + 0 + ] + } + }); } if ("variant10" !== "variant10") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 324, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 324, + 0 + ] + } + }); } if ("variant11" !== "variant11") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 325, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 325, + 0 + ] + } + }); } if ("variant12" !== "variant12") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 326, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 326, + 0 + ] + } + }); } if ("variant13" !== "variant13") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 327, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 327, + 0 + ] + } + }); } if ("variant14" !== "variant14") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 328, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 328, + 0 + ] + } + }); } if ("variant15" !== "variant15") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 329, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 329, + 0 + ] + } + }); } if ("variant16" !== "variant16") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 330, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 330, + 0 + ] + } + }); } if ("variant17" !== "variant17") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 331, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 331, + 0 + ] + } + }); } if ("variant18" !== "variant18") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 332, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 332, + 0 + ] + } + }); } if ("variant19" !== "variant19") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 333, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 333, + 0 + ] + } + }); } if ("variant20" !== "variant20") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 334, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 334, + 0 + ] + } + }); } if ("variant21" !== "variant21") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 335, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 335, + 0 + ] + } + }); } if ("variant22" !== "variant22") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 336, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 336, + 0 + ] + } + }); } if ("variant23" !== "variant23") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 337, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 337, + 0 + ] + } + }); } if ("variant24" !== "variant24") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 338, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 338, + 0 + ] + } + }); } if ("variant25" !== "variant25") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 339, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 339, + 0 + ] + } + }); } if ("variant26" !== "variant26") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 340, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 340, + 0 + ] + } + }); } if ("variant27" !== "variant27") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 341, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 341, + 0 + ] + } + }); } if ("variant28" !== "variant28") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 342, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 342, + 0 + ] + } + }); } if ("variant29" !== "variant29") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 343, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 343, + 0 + ] + } + }); } if ("variant30" !== "variant30") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 344, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 344, + 0 + ] + } + }); } if ("variant31" !== "variant31") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 345, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 345, + 0 + ] + } + }); } if ("variant32" !== "variant32") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 346, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 346, + 0 + ] + } + }); } if ("variant33" !== "variant33") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 347, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 347, + 0 + ] + } + }); } if ("variant34" !== "variant34") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 348, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 348, + 0 + ] + } + }); } if ("variant35" !== "variant35") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 349, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 349, + 0 + ] + } + }); } if ("variant36" !== "variant36") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 350, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 350, + 0 + ] + } + }); } if ("variant37" !== "variant37") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 351, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 351, + 0 + ] + } + }); } if ("variant38" !== "variant38") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 352, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 352, + 0 + ] + } + }); } if ("variant39" !== "variant39") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 353, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 353, + 0 + ] + } + }); } if ("variant40" !== "variant40") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 354, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 354, + 0 + ] + } + }); } if ("variant41" !== "variant41") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 355, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 355, + 0 + ] + } + }); } if ("variant42" !== "variant42") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 356, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 356, + 0 + ] + } + }); } if ("variant43" !== "variant43") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 357, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 357, + 0 + ] + } + }); } if ("variant44" !== "variant44") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 358, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 358, + 0 + ] + } + }); } if ("variant45" !== "variant45") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 359, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 359, + 0 + ] + } + }); } if ("variant46" !== "variant46") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 360, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 360, + 0 + ] + } + }); } if ("variant47" !== "variant47") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 361, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 361, + 0 + ] + } + }); } if ("variant48" !== "variant48") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 362, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 362, + 0 + ] + } + }); } if ("variant49" !== "variant49") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 363, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 363, + 0 + ] + } + }); } if ("variant50" !== "variant50") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 364, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 364, + 0 + ] + } + }); } if ("variant51" !== "variant51") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 365, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 365, + 0 + ] + } + }); } if ("variant52" !== "variant52") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 366, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 366, + 0 + ] + } + }); } if ("variant53" !== "variant53") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 367, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 367, + 0 + ] + } + }); } if ("variant54" !== "variant54") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 368, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 368, + 0 + ] + } + }); } if ("variant55" !== "variant55") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 369, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 369, + 0 + ] + } + }); } if ("variant56" !== "variant56") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 370, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 370, + 0 + ] + } + }); } if ("variant57" !== "variant57") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 371, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 371, + 0 + ] + } + }); } if ("variant58" !== "variant58") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 372, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 372, + 0 + ] + } + }); } if ("variant59" !== "variant59") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 373, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 373, + 0 + ] + } + }); } if ("variant60" !== "variant60") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 374, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 374, + 0 + ] + } + }); } if ("variant61" !== "variant61") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 375, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 375, + 0 + ] + } + }); } if ("variant62" !== "variant62") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 376, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 376, + 0 + ] + } + }); } if ("variant63" !== "variant63") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 377, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 377, + 0 + ] + } + }); } if ("variant64" !== "variant64") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 378, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 378, + 0 + ] + } + }); } if ("variant65" !== "variant65") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 379, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 379, + 0 + ] + } + }); } if ("variant66" !== "variant66") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 380, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 380, + 0 + ] + } + }); } if ("variant67" !== "variant67") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 381, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 381, + 0 + ] + } + }); } if ("variant68" !== "variant68") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 382, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 382, + 0 + ] + } + }); } if ("variant69" !== "variant69") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 383, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 383, + 0 + ] + } + }); } if ("variant70" !== "variant70") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 384, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 384, + 0 + ] + } + }); } if ("variant71" !== "variant71") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 385, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 385, + 0 + ] + } + }); } if ("variant72" !== "variant72") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 386, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 386, + 0 + ] + } + }); } if ("variant73" !== "variant73") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 387, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 387, + 0 + ] + } + }); } if ("variant74" !== "variant74") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 388, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 388, + 0 + ] + } + }); } if ("variant75" !== "variant75") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 389, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 389, + 0 + ] + } + }); } if ("variant76" !== "variant76") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 390, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 390, + 0 + ] + } + }); } if ("variant77" !== "variant77") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 391, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 391, + 0 + ] + } + }); } if ("variant78" !== "variant78") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 392, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 392, + 0 + ] + } + }); } if ("variant79" !== "variant79") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 393, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 393, + 0 + ] + } + }); } if ("variant80" !== "variant80") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 394, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 394, + 0 + ] + } + }); } if ("variant81" !== "variant81") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 395, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 395, + 0 + ] + } + }); } if ("variant82" !== "variant82") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 396, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 396, + 0 + ] + } + }); } if ("variant83" !== "variant83") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 397, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 397, + 0 + ] + } + }); } if ("variant84" !== "variant84") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 398, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 398, + 0 + ] + } + }); } if ("variant85" !== "variant85") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 399, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 399, + 0 + ] + } + }); } if ("variant86" !== "variant86") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 400, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 400, + 0 + ] + } + }); } if ("variant87" !== "variant87") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 401, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 401, + 0 + ] + } + }); } if ("variant88" !== "variant88") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 402, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 402, + 0 + ] + } + }); } if ("variant89" !== "variant89") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 403, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 403, + 0 + ] + } + }); } if ("variant90" !== "variant90") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 404, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 404, + 0 + ] + } + }); } if ("variant91" !== "variant91") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 405, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 405, + 0 + ] + } + }); } if ("variant92" !== "variant92") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 406, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 406, + 0 + ] + } + }); } if ("variant93" !== "variant93") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 407, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 407, + 0 + ] + } + }); } if ("variant94" !== "variant94") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 408, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 408, + 0 + ] + } + }); } if ("variant95" !== "variant95") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 409, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 409, + 0 + ] + } + }); } if ("variant96" !== "variant96") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 410, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 410, + 0 + ] + } + }); } if ("variant97" !== "variant97") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 411, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 411, + 0 + ] + } + }); } if ("variant98" !== "variant98") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 412, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 412, + 0 + ] + } + }); } if ("variant99" !== "variant99") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 413, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 413, + 0 + ] + } + }); } if ("variant100" !== "variant100") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 414, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 414, + 0 + ] + } + }); } if ("variant101" !== "variant101") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 415, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 415, + 0 + ] + } + }); } if ("variant102" !== "variant102") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 416, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 416, + 0 + ] + } + }); } if ("variant103" !== "variant103") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 417, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 417, + 0 + ] + } + }); } if ("variant104" !== "variant104") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 418, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 418, + 0 + ] + } + }); } if ("variant105" !== "variant105") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 419, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 419, + 0 + ] + } + }); } if ("variant106" !== "variant106") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 420, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 420, + 0 + ] + } + }); } if ("variant107" !== "variant107") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 421, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 421, + 0 + ] + } + }); } if ("variant108" !== "variant108") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 422, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 422, + 0 + ] + } + }); } if ("variant109" !== "variant109") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 423, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 423, + 0 + ] + } + }); } if ("variant110" !== "variant110") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 424, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 424, + 0 + ] + } + }); } if ("variant111" !== "variant111") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 425, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 425, + 0 + ] + } + }); } if ("variant112" !== "variant112") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 426, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 426, + 0 + ] + } + }); } if ("variant113" !== "variant113") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 427, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 427, + 0 + ] + } + }); } if ("variant114" !== "variant114") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 428, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 428, + 0 + ] + } + }); } if ("variant115" !== "variant115") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 429, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 429, + 0 + ] + } + }); } if ("variant116" !== "variant116") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 430, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 430, + 0 + ] + } + }); } if ("variant117" !== "variant117") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 431, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 431, + 0 + ] + } + }); } if ("variant118" !== "variant118") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 432, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 432, + 0 + ] + } + }); } if ("variant119" !== "variant119") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 433, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 433, + 0 + ] + } + }); } if ("variant120" !== "variant120") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 434, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 434, + 0 + ] + } + }); } if ("variant121" !== "variant121") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 435, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 435, + 0 + ] + } + }); } if ("variant122" !== "variant122") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 436, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 436, + 0 + ] + } + }); } if ("variant123" !== "variant123") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 437, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 437, + 0 + ] + } + }); } if ("variant124" !== "variant124") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 438, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 438, + 0 + ] + } + }); } if ("variant125" !== "variant125") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 439, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 439, + 0 + ] + } + }); } if ("variant126" !== "variant126") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 440, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 440, + 0 + ] + } + }); } if ("variant127" !== "variant127") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 441, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 441, + 0 + ] + } + }); } if ("variant128" !== "variant128") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 442, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 442, + 0 + ] + } + }); } if ("variant129" !== "variant129") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 443, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 443, + 0 + ] + } + }); } if ("variant130" !== "variant130") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 444, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 444, + 0 + ] + } + }); } if ("variant131" !== "variant131") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 445, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 445, + 0 + ] + } + }); } if ("variant132" !== "variant132") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 446, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 446, + 0 + ] + } + }); } if ("variant133" !== "variant133") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 447, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 447, + 0 + ] + } + }); } if ("variant134" !== "variant134") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 448, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 448, + 0 + ] + } + }); } if ("variant135" !== "variant135") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 449, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 449, + 0 + ] + } + }); } if ("variant136" !== "variant136") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 450, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 450, + 0 + ] + } + }); } if ("variant137" !== "variant137") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 451, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 451, + 0 + ] + } + }); } if ("variant138" !== "variant138") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 452, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 452, + 0 + ] + } + }); } if ("variant139" !== "variant139") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 453, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 453, + 0 + ] + } + }); } if ("variant140" !== "variant140") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 454, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 454, + 0 + ] + } + }); } if ("variant141" !== "variant141") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 455, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 455, + 0 + ] + } + }); } if ("variant142" !== "variant142") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 456, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 456, + 0 + ] + } + }); } if ("variant143" !== "variant143") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 457, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 457, + 0 + ] + } + }); } if ("variant144" !== "variant144") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 458, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 458, + 0 + ] + } + }); } if ("variant145" !== "variant145") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 459, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 459, + 0 + ] + } + }); } if ("variant146" !== "variant146") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 460, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 460, + 0 + ] + } + }); } if ("variant147" !== "variant147") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 461, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 461, + 0 + ] + } + }); } if ("variant148" !== "variant148") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 462, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 462, + 0 + ] + } + }); } if ("variant149" !== "variant149") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 463, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 463, + 0 + ] + } + }); } if ("variant150" !== "variant150") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 464, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 464, + 0 + ] + } + }); } if ("variant151" !== "variant151") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 465, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 465, + 0 + ] + } + }); } if ("variant152" !== "variant152") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 466, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 466, + 0 + ] + } + }); } if ("variant153" !== "variant153") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 467, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 467, + 0 + ] + } + }); } if ("variant154" !== "variant154") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 468, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 468, + 0 + ] + } + }); } if ("variant155" !== "variant155") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 469, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 469, + 0 + ] + } + }); } if ("variant156" !== "variant156") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 470, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 470, + 0 + ] + } + }); } if ("variant157" !== "variant157") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 471, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 471, + 0 + ] + } + }); } if ("variant158" !== "variant158") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 472, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 472, + 0 + ] + } + }); } if ("variant159" !== "variant159") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 473, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 473, + 0 + ] + } + }); } if ("variant160" !== "variant160") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 474, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 474, + 0 + ] + } + }); } if ("variant161" !== "variant161") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 475, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 475, + 0 + ] + } + }); } if ("variant162" !== "variant162") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 476, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 476, + 0 + ] + } + }); } if ("variant163" !== "variant163") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 477, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 477, + 0 + ] + } + }); } if ("variant164" !== "variant164") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 478, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 478, + 0 + ] + } + }); } if ("variant165" !== "variant165") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 479, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 479, + 0 + ] + } + }); } if ("variant166" !== "variant166") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 480, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 480, + 0 + ] + } + }); } if ("variant167" !== "variant167") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 481, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 481, + 0 + ] + } + }); } if ("variant168" !== "variant168") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 482, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 482, + 0 + ] + } + }); } if ("variant169" !== "variant169") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 483, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 483, + 0 + ] + } + }); } if ("variant170" !== "variant170") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 484, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 484, + 0 + ] + } + }); } if ("variant171" !== "variant171") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 485, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 485, + 0 + ] + } + }); } if ("variant172" !== "variant172") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 486, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 486, + 0 + ] + } + }); } if ("variant173" !== "variant173") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 487, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 487, + 0 + ] + } + }); } if ("variant174" !== "variant174") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 488, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 488, + 0 + ] + } + }); } if ("variant175" !== "variant175") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 489, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 489, + 0 + ] + } + }); } if ("variant176" !== "variant176") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 490, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 490, + 0 + ] + } + }); } if ("variant177" !== "variant177") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 491, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 491, + 0 + ] + } + }); } if ("variant178" !== "variant178") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 492, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 492, + 0 + ] + } + }); } if ("variant179" !== "variant179") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 493, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 493, + 0 + ] + } + }); } if ("variant180" !== "variant180") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 494, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 494, + 0 + ] + } + }); } if ("variant181" !== "variant181") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 495, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 495, + 0 + ] + } + }); } if ("variant182" !== "variant182") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 496, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 496, + 0 + ] + } + }); } if ("variant183" !== "variant183") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 497, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 497, + 0 + ] + } + }); } if ("variant184" !== "variant184") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 498, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 498, + 0 + ] + } + }); } if ("variant185" !== "variant185") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 499, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 499, + 0 + ] + } + }); } if ("variant186" !== "variant186") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 500, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 500, + 0 + ] + } + }); } if ("variant187" !== "variant187") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 501, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 501, + 0 + ] + } + }); } if ("variant188" !== "variant188") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 502, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 502, + 0 + ] + } + }); } if ("variant189" !== "variant189") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 503, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 503, + 0 + ] + } + }); } if ("variant190" !== "variant190") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 504, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 504, + 0 + ] + } + }); } if ("variant191" !== "variant191") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 505, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 505, + 0 + ] + } + }); } if ("variant192" !== "variant192") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 506, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 506, + 0 + ] + } + }); } if ("variant193" !== "variant193") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 507, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 507, + 0 + ] + } + }); } if ("variant194" !== "variant194") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 508, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 508, + 0 + ] + } + }); } if ("variant195" !== "variant195") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 509, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 509, + 0 + ] + } + }); } if ("variant196" !== "variant196") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 510, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 510, + 0 + ] + } + }); } if ("variant197" !== "variant197") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 511, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 511, + 0 + ] + } + }); } if ("variant198" !== "variant198") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 512, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 512, + 0 + ] + } + }); } if ("variant199" !== "variant199") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 513, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 513, + 0 + ] + } + }); } if ("variant200" !== "variant200") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 514, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 514, + 0 + ] + } + }); } if ("variant201" !== "variant201") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 515, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 515, + 0 + ] + } + }); } if ("variant202" !== "variant202") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 516, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 516, + 0 + ] + } + }); } if ("variant203" !== "variant203") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 517, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 517, + 0 + ] + } + }); } if ("variant204" !== "variant204") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 518, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 518, + 0 + ] + } + }); } if ("variant205" !== "variant205") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 519, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 519, + 0 + ] + } + }); } if ("variant206" !== "variant206") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 520, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 520, + 0 + ] + } + }); } if ("variant207" !== "variant207") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 521, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 521, + 0 + ] + } + }); } if ("variant208" !== "variant208") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 522, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 522, + 0 + ] + } + }); } if ("variant209" !== "variant209") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 523, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 523, + 0 + ] + } + }); } if ("variant210" !== "variant210") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 524, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 524, + 0 + ] + } + }); } if ("variant211" !== "variant211") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 525, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 525, + 0 + ] + } + }); } if ("variant212" !== "variant212") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 526, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 526, + 0 + ] + } + }); } if ("variant213" !== "variant213") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 527, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 527, + 0 + ] + } + }); } if ("variant214" !== "variant214") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 528, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 528, + 0 + ] + } + }); } if ("variant215" !== "variant215") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 529, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 529, + 0 + ] + } + }); } if ("variant216" !== "variant216") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 530, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 530, + 0 + ] + } + }); } if ("variant217" !== "variant217") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 531, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 531, + 0 + ] + } + }); } if ("variant218" !== "variant218") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 532, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 532, + 0 + ] + } + }); } if ("variant219" !== "variant219") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 533, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 533, + 0 + ] + } + }); } if ("variant220" !== "variant220") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 534, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 534, + 0 + ] + } + }); } if ("variant221" !== "variant221") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 535, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 535, + 0 + ] + } + }); } if ("variant222" !== "variant222") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 536, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 536, + 0 + ] + } + }); } if ("variant223" !== "variant223") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 537, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 537, + 0 + ] + } + }); } if ("variant224" !== "variant224") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 538, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 538, + 0 + ] + } + }); } if ("variant225" !== "variant225") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 539, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 539, + 0 + ] + } + }); } if ("variant226" !== "variant226") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 540, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 540, + 0 + ] + } + }); } if ("variant227" !== "variant227") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 541, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 541, + 0 + ] + } + }); } if ("variant228" !== "variant228") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 542, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 542, + 0 + ] + } + }); } if ("variant229" !== "variant229") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 543, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 543, + 0 + ] + } + }); } if ("variant230" !== "variant230") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 544, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 544, + 0 + ] + } + }); } if ("variant231" !== "variant231") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 545, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 545, + 0 + ] + } + }); } if ("variant232" !== "variant232") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 546, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 546, + 0 + ] + } + }); } if ("variant233" !== "variant233") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 547, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 547, + 0 + ] + } + }); } if ("variant234" !== "variant234") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 548, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 548, + 0 + ] + } + }); } if ("variant235" !== "variant235") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 549, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 549, + 0 + ] + } + }); } if ("variant236" !== "variant236") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 550, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 550, + 0 + ] + } + }); } if ("variant237" !== "variant237") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 551, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 551, + 0 + ] + } + }); } if ("variant238" !== "variant238") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 552, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 552, + 0 + ] + } + }); } if ("variant239" !== "variant239") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 553, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 553, + 0 + ] + } + }); } if ("variant240" !== "variant240") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 554, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 554, + 0 + ] + } + }); } if ("variant241" !== "variant241") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 555, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 555, + 0 + ] + } + }); } if ("variant242" !== "variant242") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 556, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 556, + 0 + ] + } + }); } if ("variant243" !== "variant243") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 557, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 557, + 0 + ] + } + }); } if ("variant244" !== "variant244") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 558, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 558, + 0 + ] + } + }); } if ("variant245" !== "variant245") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 559, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 559, + 0 + ] + } + }); } if ("variant246" !== "variant246") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 560, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 560, + 0 + ] + } + }); } if ("variant247" !== "variant247") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 561, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 561, + 0 + ] + } + }); } if ("variant248" !== "variant248") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 562, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 562, + 0 + ] + } + }); } if ("variant249" !== "variant249") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 563, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 563, + 0 + ] + } + }); } if ("variant250" !== "variant250") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 564, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 564, + 0 + ] + } + }); } if ("variant251" !== "variant251") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 565, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 565, + 0 + ] + } + }); } if ("variant252" !== "variant252") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 566, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 566, + 0 + ] + } + }); } if ("variant253" !== "variant253") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 567, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 567, + 0 + ] + } + }); } if ("variant254" !== "variant254") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 568, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 568, + 0 + ] + } + }); } if ("variant255" !== "variant255") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 569, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 569, + 0 + ] + } + }); } if ("variant256" !== "variant256") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 570, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 570, + 0 + ] + } + }); } if ("variant257" !== "variant257") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 571, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 571, + 0 + ] + } + }); } if ("variant258" !== "variant258") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 572, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 572, + 0 + ] + } + }); } if ("variant259" !== "variant259") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 573, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 573, + 0 + ] + } + }); } if ("variant260" !== "variant260") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 574, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 574, + 0 + ] + } + }); } if ("variant261" !== "variant261") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 575, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 575, + 0 + ] + } + }); } if ("variant262" !== "variant262") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 576, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 576, + 0 + ] + } + }); } if ("variant263" !== "variant263") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 577, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 577, + 0 + ] + } + }); } if ("variant264" !== "variant264") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 578, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 578, + 0 + ] + } + }); } if ("variant265" !== "variant265") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 579, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 579, + 0 + ] + } + }); } if ("variant266" !== "variant266") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 580, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 580, + 0 + ] + } + }); } if ("variant267" !== "variant267") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 581, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 581, + 0 + ] + } + }); } if ("variant268" !== "variant268") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 582, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 582, + 0 + ] + } + }); } if ("variant269" !== "variant269") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 583, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 583, + 0 + ] + } + }); } if ("variant270" !== "variant270") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 584, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 584, + 0 + ] + } + }); } if ("variant271" !== "variant271") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 585, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 585, + 0 + ] + } + }); } if ("variant272" !== "variant272") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 586, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 586, + 0 + ] + } + }); } if ("variant273" !== "variant273") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 587, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 587, + 0 + ] + } + }); } if ("variant274" !== "variant274") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 588, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 588, + 0 + ] + } + }); } if ("variant275" !== "variant275") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 589, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 589, + 0 + ] + } + }); } if ("variant276" !== "variant276") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 590, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 590, + 0 + ] + } + }); } if ("variant277" !== "variant277") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 591, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 591, + 0 + ] + } + }); } if ("variant278" !== "variant278") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 592, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 592, + 0 + ] + } + }); } if ("variant279" !== "variant279") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 593, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 593, + 0 + ] + } + }); } if ("variant280" !== "variant280") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 594, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 594, + 0 + ] + } + }); } if ("variant281" !== "variant281") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 595, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 595, + 0 + ] + } + }); } if ("variant282" !== "variant282") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 596, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 596, + 0 + ] + } + }); } if ("variant283" !== "variant283") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 597, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 597, + 0 + ] + } + }); } if ("variant284" !== "variant284") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 598, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 598, + 0 + ] + } + }); } if ("variant285" !== "variant285") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 599, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 599, + 0 + ] + } + }); } if ("variant286" !== "variant286") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 600, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 600, + 0 + ] + } + }); } if ("variant287" !== "variant287") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 601, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 601, + 0 + ] + } + }); } if ("variant288" !== "variant288") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 602, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 602, + 0 + ] + } + }); } if ("variant289" !== "variant289") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 603, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 603, + 0 + ] + } + }); } if ("variant290" !== "variant290") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 604, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 604, + 0 + ] + } + }); } if ("variant291" !== "variant291") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 605, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 605, + 0 + ] + } + }); } if ("variant292" !== "variant292") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 606, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 606, + 0 + ] + } + }); } if ("variant293" !== "variant293") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 607, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 607, + 0 + ] + } + }); } if ("variant294" !== "variant294") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 608, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 608, + 0 + ] + } + }); } if ("variant295" !== "variant295") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 609, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 609, + 0 + ] + } + }); } if ("variant296" !== "variant296") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 610, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 610, + 0 + ] + } + }); } if ("variant297" !== "variant297") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 611, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 611, + 0 + ] + } + }); } if ("variant298" !== "variant298") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 612, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 612, + 0 + ] + } + }); } if ("variant299" !== "variant299") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 613, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 613, + 0 + ] + } + }); } if (!eq(tFromJs("variant0"), "variant0")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 614, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 614, + 0 + ] + } + }); } if (!eq(tFromJs("variant1"), "variant1")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 615, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 615, + 0 + ] + } + }); } if (!eq(tFromJs("variant2"), "variant2")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 616, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 616, + 0 + ] + } + }); } if (!eq(tFromJs("variant3"), "variant3")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 617, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 617, + 0 + ] + } + }); } if (!eq(tFromJs("variant4"), "variant4")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 618, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 618, + 0 + ] + } + }); } if (!eq(tFromJs("variant5"), "variant5")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 619, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 619, + 0 + ] + } + }); } if (!eq(tFromJs("variant6"), "variant6")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 620, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 620, + 0 + ] + } + }); } if (!eq(tFromJs("variant7"), "variant7")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 621, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 621, + 0 + ] + } + }); } if (!eq(tFromJs("variant8"), "variant8")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 622, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 622, + 0 + ] + } + }); } if (!eq(tFromJs("variant9"), "variant9")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 623, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 623, + 0 + ] + } + }); } if (!eq(tFromJs("variant10"), "variant10")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 624, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 624, + 0 + ] + } + }); } if (!eq(tFromJs("variant11"), "variant11")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 625, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 625, + 0 + ] + } + }); } if (!eq(tFromJs("variant12"), "variant12")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 626, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 626, + 0 + ] + } + }); } if (!eq(tFromJs("variant13"), "variant13")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 627, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 627, + 0 + ] + } + }); } if (!eq(tFromJs("variant14"), "variant14")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 628, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 628, + 0 + ] + } + }); } if (!eq(tFromJs("variant15"), "variant15")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 629, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 629, + 0 + ] + } + }); } if (!eq(tFromJs("variant16"), "variant16")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 630, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 630, + 0 + ] + } + }); } if (!eq(tFromJs("variant17"), "variant17")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 631, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 631, + 0 + ] + } + }); } if (!eq(tFromJs("variant18"), "variant18")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 632, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 632, + 0 + ] + } + }); } if (!eq(tFromJs("variant19"), "variant19")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 633, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 633, + 0 + ] + } + }); } if (!eq(tFromJs("variant20"), "variant20")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 634, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 634, + 0 + ] + } + }); } if (!eq(tFromJs("variant21"), "variant21")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 635, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 635, + 0 + ] + } + }); } if (!eq(tFromJs("variant22"), "variant22")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 636, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 636, + 0 + ] + } + }); } if (!eq(tFromJs("variant23"), "variant23")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 637, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 637, + 0 + ] + } + }); } if (!eq(tFromJs("variant24"), "variant24")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 638, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 638, + 0 + ] + } + }); } if (!eq(tFromJs("variant25"), "variant25")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 639, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 639, + 0 + ] + } + }); } if (!eq(tFromJs("variant26"), "variant26")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 640, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 640, + 0 + ] + } + }); } if (!eq(tFromJs("variant27"), "variant27")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 641, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 641, + 0 + ] + } + }); } if (!eq(tFromJs("variant28"), "variant28")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 642, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 642, + 0 + ] + } + }); } if (!eq(tFromJs("variant29"), "variant29")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 643, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 643, + 0 + ] + } + }); } if (!eq(tFromJs("variant30"), "variant30")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 644, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 644, + 0 + ] + } + }); } if (!eq(tFromJs("variant31"), "variant31")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 645, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 645, + 0 + ] + } + }); } if (!eq(tFromJs("variant32"), "variant32")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 646, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 646, + 0 + ] + } + }); } if (!eq(tFromJs("variant33"), "variant33")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 647, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 647, + 0 + ] + } + }); } if (!eq(tFromJs("variant34"), "variant34")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 648, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 648, + 0 + ] + } + }); } if (!eq(tFromJs("variant35"), "variant35")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 649, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 649, + 0 + ] + } + }); } if (!eq(tFromJs("variant36"), "variant36")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 650, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 650, + 0 + ] + } + }); } if (!eq(tFromJs("variant37"), "variant37")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 651, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 651, + 0 + ] + } + }); } if (!eq(tFromJs("variant38"), "variant38")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 652, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 652, + 0 + ] + } + }); } if (!eq(tFromJs("variant39"), "variant39")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 653, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 653, + 0 + ] + } + }); } if (!eq(tFromJs("variant40"), "variant40")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 654, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 654, + 0 + ] + } + }); } if (!eq(tFromJs("variant41"), "variant41")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 655, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 655, + 0 + ] + } + }); } if (!eq(tFromJs("variant42"), "variant42")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 656, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 656, + 0 + ] + } + }); } if (!eq(tFromJs("variant43"), "variant43")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 657, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 657, + 0 + ] + } + }); } if (!eq(tFromJs("variant44"), "variant44")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 658, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 658, + 0 + ] + } + }); } if (!eq(tFromJs("variant45"), "variant45")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 659, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 659, + 0 + ] + } + }); } if (!eq(tFromJs("variant46"), "variant46")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 660, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 660, + 0 + ] + } + }); } if (!eq(tFromJs("variant47"), "variant47")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 661, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 661, + 0 + ] + } + }); } if (!eq(tFromJs("variant48"), "variant48")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 662, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 662, + 0 + ] + } + }); } if (!eq(tFromJs("variant49"), "variant49")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 663, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 663, + 0 + ] + } + }); } if (!eq(tFromJs("variant50"), "variant50")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 664, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 664, + 0 + ] + } + }); } if (!eq(tFromJs("variant51"), "variant51")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 665, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 665, + 0 + ] + } + }); } if (!eq(tFromJs("variant52"), "variant52")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 666, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 666, + 0 + ] + } + }); } if (!eq(tFromJs("variant53"), "variant53")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 667, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 667, + 0 + ] + } + }); } if (!eq(tFromJs("variant54"), "variant54")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 668, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 668, + 0 + ] + } + }); } if (!eq(tFromJs("variant55"), "variant55")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 669, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 669, + 0 + ] + } + }); } if (!eq(tFromJs("variant56"), "variant56")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 670, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 670, + 0 + ] + } + }); } if (!eq(tFromJs("variant57"), "variant57")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 671, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 671, + 0 + ] + } + }); } if (!eq(tFromJs("variant58"), "variant58")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 672, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 672, + 0 + ] + } + }); } if (!eq(tFromJs("variant59"), "variant59")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 673, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 673, + 0 + ] + } + }); } if (!eq(tFromJs("variant60"), "variant60")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 674, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 674, + 0 + ] + } + }); } if (!eq(tFromJs("variant61"), "variant61")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 675, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 675, + 0 + ] + } + }); } if (!eq(tFromJs("variant62"), "variant62")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 676, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 676, + 0 + ] + } + }); } if (!eq(tFromJs("variant63"), "variant63")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 677, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 677, + 0 + ] + } + }); } if (!eq(tFromJs("variant64"), "variant64")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 678, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 678, + 0 + ] + } + }); } if (!eq(tFromJs("variant65"), "variant65")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 679, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 679, + 0 + ] + } + }); } if (!eq(tFromJs("variant66"), "variant66")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 680, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 680, + 0 + ] + } + }); } if (!eq(tFromJs("variant67"), "variant67")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 681, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 681, + 0 + ] + } + }); } if (!eq(tFromJs("variant68"), "variant68")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 682, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 682, + 0 + ] + } + }); } if (!eq(tFromJs("variant69"), "variant69")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 683, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 683, + 0 + ] + } + }); } if (!eq(tFromJs("variant70"), "variant70")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 684, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 684, + 0 + ] + } + }); } if (!eq(tFromJs("variant71"), "variant71")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 685, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 685, + 0 + ] + } + }); } if (!eq(tFromJs("variant72"), "variant72")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 686, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 686, + 0 + ] + } + }); } if (!eq(tFromJs("variant73"), "variant73")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 687, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 687, + 0 + ] + } + }); } if (!eq(tFromJs("variant74"), "variant74")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 688, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 688, + 0 + ] + } + }); } if (!eq(tFromJs("variant75"), "variant75")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 689, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 689, + 0 + ] + } + }); } if (!eq(tFromJs("variant76"), "variant76")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 690, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 690, + 0 + ] + } + }); } if (!eq(tFromJs("variant77"), "variant77")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 691, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 691, + 0 + ] + } + }); } if (!eq(tFromJs("variant78"), "variant78")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 692, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 692, + 0 + ] + } + }); } if (!eq(tFromJs("variant79"), "variant79")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 693, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 693, + 0 + ] + } + }); } if (!eq(tFromJs("variant80"), "variant80")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 694, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 694, + 0 + ] + } + }); } if (!eq(tFromJs("variant81"), "variant81")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 695, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 695, + 0 + ] + } + }); } if (!eq(tFromJs("variant82"), "variant82")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 696, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 696, + 0 + ] + } + }); } if (!eq(tFromJs("variant83"), "variant83")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 697, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 697, + 0 + ] + } + }); } if (!eq(tFromJs("variant84"), "variant84")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 698, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 698, + 0 + ] + } + }); } if (!eq(tFromJs("variant85"), "variant85")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 699, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 699, + 0 + ] + } + }); } if (!eq(tFromJs("variant86"), "variant86")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 700, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 700, + 0 + ] + } + }); } if (!eq(tFromJs("variant87"), "variant87")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 701, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 701, + 0 + ] + } + }); } if (!eq(tFromJs("variant88"), "variant88")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 702, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 702, + 0 + ] + } + }); } if (!eq(tFromJs("variant89"), "variant89")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 703, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 703, + 0 + ] + } + }); } if (!eq(tFromJs("variant90"), "variant90")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 704, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 704, + 0 + ] + } + }); } if (!eq(tFromJs("variant91"), "variant91")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 705, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 705, + 0 + ] + } + }); } if (!eq(tFromJs("variant92"), "variant92")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 706, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 706, + 0 + ] + } + }); } if (!eq(tFromJs("variant93"), "variant93")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 707, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 707, + 0 + ] + } + }); } if (!eq(tFromJs("variant94"), "variant94")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 708, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 708, + 0 + ] + } + }); } if (!eq(tFromJs("variant95"), "variant95")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 709, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 709, + 0 + ] + } + }); } if (!eq(tFromJs("variant96"), "variant96")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 710, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 710, + 0 + ] + } + }); } if (!eq(tFromJs("variant97"), "variant97")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 711, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 711, + 0 + ] + } + }); } if (!eq(tFromJs("variant98"), "variant98")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 712, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 712, + 0 + ] + } + }); } if (!eq(tFromJs("variant99"), "variant99")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 713, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 713, + 0 + ] + } + }); } if (!eq(tFromJs("variant100"), "variant100")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 714, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 714, + 0 + ] + } + }); } if (!eq(tFromJs("variant101"), "variant101")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 715, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 715, + 0 + ] + } + }); } if (!eq(tFromJs("variant102"), "variant102")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 716, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 716, + 0 + ] + } + }); } if (!eq(tFromJs("variant103"), "variant103")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 717, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 717, + 0 + ] + } + }); } if (!eq(tFromJs("variant104"), "variant104")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 718, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 718, + 0 + ] + } + }); } if (!eq(tFromJs("variant105"), "variant105")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 719, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 719, + 0 + ] + } + }); } if (!eq(tFromJs("variant106"), "variant106")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 720, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 720, + 0 + ] + } + }); } if (!eq(tFromJs("variant107"), "variant107")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 721, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 721, + 0 + ] + } + }); } if (!eq(tFromJs("variant108"), "variant108")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 722, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 722, + 0 + ] + } + }); } if (!eq(tFromJs("variant109"), "variant109")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 723, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 723, + 0 + ] + } + }); } if (!eq(tFromJs("variant110"), "variant110")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 724, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 724, + 0 + ] + } + }); } if (!eq(tFromJs("variant111"), "variant111")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 725, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 725, + 0 + ] + } + }); } if (!eq(tFromJs("variant112"), "variant112")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 726, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 726, + 0 + ] + } + }); } if (!eq(tFromJs("variant113"), "variant113")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 727, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 727, + 0 + ] + } + }); } if (!eq(tFromJs("variant114"), "variant114")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 728, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 728, + 0 + ] + } + }); } if (!eq(tFromJs("variant115"), "variant115")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 729, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 729, + 0 + ] + } + }); } if (!eq(tFromJs("variant116"), "variant116")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 730, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 730, + 0 + ] + } + }); } if (!eq(tFromJs("variant117"), "variant117")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 731, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 731, + 0 + ] + } + }); } if (!eq(tFromJs("variant118"), "variant118")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 732, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 732, + 0 + ] + } + }); } if (!eq(tFromJs("variant119"), "variant119")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 733, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 733, + 0 + ] + } + }); } if (!eq(tFromJs("variant120"), "variant120")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 734, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 734, + 0 + ] + } + }); } if (!eq(tFromJs("variant121"), "variant121")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 735, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 735, + 0 + ] + } + }); } if (!eq(tFromJs("variant122"), "variant122")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 736, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 736, + 0 + ] + } + }); } if (!eq(tFromJs("variant123"), "variant123")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 737, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 737, + 0 + ] + } + }); } if (!eq(tFromJs("variant124"), "variant124")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 738, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 738, + 0 + ] + } + }); } if (!eq(tFromJs("variant125"), "variant125")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 739, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 739, + 0 + ] + } + }); } if (!eq(tFromJs("variant126"), "variant126")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 740, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 740, + 0 + ] + } + }); } if (!eq(tFromJs("variant127"), "variant127")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 741, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 741, + 0 + ] + } + }); } if (!eq(tFromJs("variant128"), "variant128")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 742, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 742, + 0 + ] + } + }); } if (!eq(tFromJs("variant129"), "variant129")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 743, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 743, + 0 + ] + } + }); } if (!eq(tFromJs("variant130"), "variant130")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 744, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 744, + 0 + ] + } + }); } if (!eq(tFromJs("variant131"), "variant131")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 745, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 745, + 0 + ] + } + }); } if (!eq(tFromJs("variant132"), "variant132")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 746, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 746, + 0 + ] + } + }); } if (!eq(tFromJs("variant133"), "variant133")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 747, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 747, + 0 + ] + } + }); } if (!eq(tFromJs("variant134"), "variant134")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 748, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 748, + 0 + ] + } + }); } if (!eq(tFromJs("variant135"), "variant135")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 749, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 749, + 0 + ] + } + }); } if (!eq(tFromJs("variant136"), "variant136")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 750, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 750, + 0 + ] + } + }); } if (!eq(tFromJs("variant137"), "variant137")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 751, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 751, + 0 + ] + } + }); } if (!eq(tFromJs("variant138"), "variant138")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 752, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 752, + 0 + ] + } + }); } if (!eq(tFromJs("variant139"), "variant139")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 753, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 753, + 0 + ] + } + }); } if (!eq(tFromJs("variant140"), "variant140")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 754, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 754, + 0 + ] + } + }); } if (!eq(tFromJs("variant141"), "variant141")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 755, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 755, + 0 + ] + } + }); } if (!eq(tFromJs("variant142"), "variant142")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 756, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 756, + 0 + ] + } + }); } if (!eq(tFromJs("variant143"), "variant143")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 757, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 757, + 0 + ] + } + }); } if (!eq(tFromJs("variant144"), "variant144")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 758, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 758, + 0 + ] + } + }); } if (!eq(tFromJs("variant145"), "variant145")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 759, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 759, + 0 + ] + } + }); } if (!eq(tFromJs("variant146"), "variant146")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 760, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 760, + 0 + ] + } + }); } if (!eq(tFromJs("variant147"), "variant147")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 761, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 761, + 0 + ] + } + }); } if (!eq(tFromJs("variant148"), "variant148")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 762, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 762, + 0 + ] + } + }); } if (!eq(tFromJs("variant149"), "variant149")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 763, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 763, + 0 + ] + } + }); } if (!eq(tFromJs("variant150"), "variant150")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 764, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 764, + 0 + ] + } + }); } if (!eq(tFromJs("variant151"), "variant151")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 765, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 765, + 0 + ] + } + }); } if (!eq(tFromJs("variant152"), "variant152")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 766, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 766, + 0 + ] + } + }); } if (!eq(tFromJs("variant153"), "variant153")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 767, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 767, + 0 + ] + } + }); } if (!eq(tFromJs("variant154"), "variant154")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 768, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 768, + 0 + ] + } + }); } if (!eq(tFromJs("variant155"), "variant155")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 769, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 769, + 0 + ] + } + }); } if (!eq(tFromJs("variant156"), "variant156")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 770, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 770, + 0 + ] + } + }); } if (!eq(tFromJs("variant157"), "variant157")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 771, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 771, + 0 + ] + } + }); } if (!eq(tFromJs("variant158"), "variant158")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 772, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 772, + 0 + ] + } + }); } if (!eq(tFromJs("variant159"), "variant159")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 773, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 773, + 0 + ] + } + }); } if (!eq(tFromJs("variant160"), "variant160")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 774, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 774, + 0 + ] + } + }); } if (!eq(tFromJs("variant161"), "variant161")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 775, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 775, + 0 + ] + } + }); } if (!eq(tFromJs("variant162"), "variant162")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 776, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 776, + 0 + ] + } + }); } if (!eq(tFromJs("variant163"), "variant163")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 777, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 777, + 0 + ] + } + }); } if (!eq(tFromJs("variant164"), "variant164")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 778, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 778, + 0 + ] + } + }); } if (!eq(tFromJs("variant165"), "variant165")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 779, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 779, + 0 + ] + } + }); } if (!eq(tFromJs("variant166"), "variant166")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 780, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 780, + 0 + ] + } + }); } if (!eq(tFromJs("variant167"), "variant167")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 781, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 781, + 0 + ] + } + }); } if (!eq(tFromJs("variant168"), "variant168")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 782, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 782, + 0 + ] + } + }); } if (!eq(tFromJs("variant169"), "variant169")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 783, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 783, + 0 + ] + } + }); } if (!eq(tFromJs("variant170"), "variant170")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 784, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 784, + 0 + ] + } + }); } if (!eq(tFromJs("variant171"), "variant171")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 785, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 785, + 0 + ] + } + }); } if (!eq(tFromJs("variant172"), "variant172")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 786, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 786, + 0 + ] + } + }); } if (!eq(tFromJs("variant173"), "variant173")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 787, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 787, + 0 + ] + } + }); } if (!eq(tFromJs("variant174"), "variant174")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 788, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 788, + 0 + ] + } + }); } if (!eq(tFromJs("variant175"), "variant175")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 789, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 789, + 0 + ] + } + }); } if (!eq(tFromJs("variant176"), "variant176")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 790, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 790, + 0 + ] + } + }); } if (!eq(tFromJs("variant177"), "variant177")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 791, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 791, + 0 + ] + } + }); } if (!eq(tFromJs("variant178"), "variant178")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 792, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 792, + 0 + ] + } + }); } if (!eq(tFromJs("variant179"), "variant179")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 793, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 793, + 0 + ] + } + }); } if (!eq(tFromJs("variant180"), "variant180")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 794, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 794, + 0 + ] + } + }); } if (!eq(tFromJs("variant181"), "variant181")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 795, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 795, + 0 + ] + } + }); } if (!eq(tFromJs("variant182"), "variant182")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 796, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 796, + 0 + ] + } + }); } if (!eq(tFromJs("variant183"), "variant183")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 797, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 797, + 0 + ] + } + }); } if (!eq(tFromJs("variant184"), "variant184")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 798, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 798, + 0 + ] + } + }); } if (!eq(tFromJs("variant185"), "variant185")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 799, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 799, + 0 + ] + } + }); } if (!eq(tFromJs("variant186"), "variant186")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 800, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 800, + 0 + ] + } + }); } if (!eq(tFromJs("variant187"), "variant187")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 801, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 801, + 0 + ] + } + }); } if (!eq(tFromJs("variant188"), "variant188")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 802, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 802, + 0 + ] + } + }); } if (!eq(tFromJs("variant189"), "variant189")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 803, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 803, + 0 + ] + } + }); } if (!eq(tFromJs("variant190"), "variant190")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 804, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 804, + 0 + ] + } + }); } if (!eq(tFromJs("variant191"), "variant191")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 805, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 805, + 0 + ] + } + }); } if (!eq(tFromJs("variant192"), "variant192")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 806, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 806, + 0 + ] + } + }); } if (!eq(tFromJs("variant193"), "variant193")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 807, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 807, + 0 + ] + } + }); } if (!eq(tFromJs("variant194"), "variant194")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 808, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 808, + 0 + ] + } + }); } if (!eq(tFromJs("variant195"), "variant195")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 809, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 809, + 0 + ] + } + }); } if (!eq(tFromJs("variant196"), "variant196")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 810, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 810, + 0 + ] + } + }); } if (!eq(tFromJs("variant197"), "variant197")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 811, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 811, + 0 + ] + } + }); } if (!eq(tFromJs("variant198"), "variant198")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 812, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 812, + 0 + ] + } + }); } if (!eq(tFromJs("variant199"), "variant199")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 813, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 813, + 0 + ] + } + }); } if (!eq(tFromJs("variant200"), "variant200")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 814, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 814, + 0 + ] + } + }); } if (!eq(tFromJs("variant201"), "variant201")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 815, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 815, + 0 + ] + } + }); } if (!eq(tFromJs("variant202"), "variant202")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 816, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 816, + 0 + ] + } + }); } if (!eq(tFromJs("variant203"), "variant203")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 817, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 817, + 0 + ] + } + }); } if (!eq(tFromJs("variant204"), "variant204")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 818, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 818, + 0 + ] + } + }); } if (!eq(tFromJs("variant205"), "variant205")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 819, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 819, + 0 + ] + } + }); } if (!eq(tFromJs("variant206"), "variant206")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 820, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 820, + 0 + ] + } + }); } if (!eq(tFromJs("variant207"), "variant207")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 821, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 821, + 0 + ] + } + }); } if (!eq(tFromJs("variant208"), "variant208")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 822, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 822, + 0 + ] + } + }); } if (!eq(tFromJs("variant209"), "variant209")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 823, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 823, + 0 + ] + } + }); } if (!eq(tFromJs("variant210"), "variant210")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 824, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 824, + 0 + ] + } + }); } if (!eq(tFromJs("variant211"), "variant211")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 825, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 825, + 0 + ] + } + }); } if (!eq(tFromJs("variant212"), "variant212")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 826, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 826, + 0 + ] + } + }); } if (!eq(tFromJs("variant213"), "variant213")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 827, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 827, + 0 + ] + } + }); } if (!eq(tFromJs("variant214"), "variant214")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 828, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 828, + 0 + ] + } + }); } if (!eq(tFromJs("variant215"), "variant215")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 829, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 829, + 0 + ] + } + }); } if (!eq(tFromJs("variant216"), "variant216")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 830, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 830, + 0 + ] + } + }); } if (!eq(tFromJs("variant217"), "variant217")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 831, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 831, + 0 + ] + } + }); } if (!eq(tFromJs("variant218"), "variant218")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 832, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 832, + 0 + ] + } + }); } if (!eq(tFromJs("variant219"), "variant219")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 833, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 833, + 0 + ] + } + }); } if (!eq(tFromJs("variant220"), "variant220")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 834, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 834, + 0 + ] + } + }); } if (!eq(tFromJs("variant221"), "variant221")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 835, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 835, + 0 + ] + } + }); } if (!eq(tFromJs("variant222"), "variant222")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 836, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 836, + 0 + ] + } + }); } if (!eq(tFromJs("variant223"), "variant223")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 837, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 837, + 0 + ] + } + }); } if (!eq(tFromJs("variant224"), "variant224")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 838, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 838, + 0 + ] + } + }); } if (!eq(tFromJs("variant225"), "variant225")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 839, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 839, + 0 + ] + } + }); } if (!eq(tFromJs("variant226"), "variant226")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 840, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 840, + 0 + ] + } + }); } if (!eq(tFromJs("variant227"), "variant227")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 841, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 841, + 0 + ] + } + }); } if (!eq(tFromJs("variant228"), "variant228")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 842, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 842, + 0 + ] + } + }); } if (!eq(tFromJs("variant229"), "variant229")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 843, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 843, + 0 + ] + } + }); } if (!eq(tFromJs("variant230"), "variant230")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 844, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 844, + 0 + ] + } + }); } if (!eq(tFromJs("variant231"), "variant231")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 845, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 845, + 0 + ] + } + }); } if (!eq(tFromJs("variant232"), "variant232")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 846, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 846, + 0 + ] + } + }); } if (!eq(tFromJs("variant233"), "variant233")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 847, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 847, + 0 + ] + } + }); } if (!eq(tFromJs("variant234"), "variant234")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 848, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 848, + 0 + ] + } + }); } if (!eq(tFromJs("variant235"), "variant235")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 849, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 849, + 0 + ] + } + }); } if (!eq(tFromJs("variant236"), "variant236")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 850, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 850, + 0 + ] + } + }); } if (!eq(tFromJs("variant237"), "variant237")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 851, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 851, + 0 + ] + } + }); } if (!eq(tFromJs("variant238"), "variant238")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 852, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 852, + 0 + ] + } + }); } if (!eq(tFromJs("variant239"), "variant239")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 853, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 853, + 0 + ] + } + }); } if (!eq(tFromJs("variant240"), "variant240")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 854, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 854, + 0 + ] + } + }); } if (!eq(tFromJs("variant241"), "variant241")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 855, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 855, + 0 + ] + } + }); } if (!eq(tFromJs("variant242"), "variant242")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 856, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 856, + 0 + ] + } + }); } if (!eq(tFromJs("variant243"), "variant243")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 857, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 857, + 0 + ] + } + }); } if (!eq(tFromJs("variant244"), "variant244")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 858, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 858, + 0 + ] + } + }); } if (!eq(tFromJs("variant245"), "variant245")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 859, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 859, + 0 + ] + } + }); } if (!eq(tFromJs("variant246"), "variant246")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 860, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 860, + 0 + ] + } + }); } if (!eq(tFromJs("variant247"), "variant247")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 861, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 861, + 0 + ] + } + }); } if (!eq(tFromJs("variant248"), "variant248")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 862, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 862, + 0 + ] + } + }); } if (!eq(tFromJs("variant249"), "variant249")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 863, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 863, + 0 + ] + } + }); } if (!eq(tFromJs("variant250"), "variant250")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 864, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 864, + 0 + ] + } + }); } if (!eq(tFromJs("variant251"), "variant251")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 865, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 865, + 0 + ] + } + }); } if (!eq(tFromJs("variant252"), "variant252")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 866, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 866, + 0 + ] + } + }); } if (!eq(tFromJs("variant253"), "variant253")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 867, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 867, + 0 + ] + } + }); } if (!eq(tFromJs("variant254"), "variant254")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 868, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 868, + 0 + ] + } + }); } if (!eq(tFromJs("variant255"), "variant255")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 869, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 869, + 0 + ] + } + }); } if (!eq(tFromJs("variant256"), "variant256")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 870, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 870, + 0 + ] + } + }); } if (!eq(tFromJs("variant257"), "variant257")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 871, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 871, + 0 + ] + } + }); } if (!eq(tFromJs("variant258"), "variant258")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 872, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 872, + 0 + ] + } + }); } if (!eq(tFromJs("variant259"), "variant259")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 873, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 873, + 0 + ] + } + }); } if (!eq(tFromJs("variant260"), "variant260")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 874, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 874, + 0 + ] + } + }); } if (!eq(tFromJs("variant261"), "variant261")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 875, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 875, + 0 + ] + } + }); } if (!eq(tFromJs("variant262"), "variant262")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 876, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 876, + 0 + ] + } + }); } if (!eq(tFromJs("variant263"), "variant263")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 877, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 877, + 0 + ] + } + }); } if (!eq(tFromJs("variant264"), "variant264")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 878, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 878, + 0 + ] + } + }); } if (!eq(tFromJs("variant265"), "variant265")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 879, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 879, + 0 + ] + } + }); } if (!eq(tFromJs("variant266"), "variant266")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 880, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 880, + 0 + ] + } + }); } if (!eq(tFromJs("variant267"), "variant267")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 881, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 881, + 0 + ] + } + }); } if (!eq(tFromJs("variant268"), "variant268")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 882, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 882, + 0 + ] + } + }); } if (!eq(tFromJs("variant269"), "variant269")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 883, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 883, + 0 + ] + } + }); } if (!eq(tFromJs("variant270"), "variant270")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 884, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 884, + 0 + ] + } + }); } if (!eq(tFromJs("variant271"), "variant271")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 885, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 885, + 0 + ] + } + }); } if (!eq(tFromJs("variant272"), "variant272")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 886, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 886, + 0 + ] + } + }); } if (!eq(tFromJs("variant273"), "variant273")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 887, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 887, + 0 + ] + } + }); } if (!eq(tFromJs("variant274"), "variant274")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 888, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 888, + 0 + ] + } + }); } if (!eq(tFromJs("variant275"), "variant275")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 889, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 889, + 0 + ] + } + }); } if (!eq(tFromJs("variant276"), "variant276")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 890, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 890, + 0 + ] + } + }); } if (!eq(tFromJs("variant277"), "variant277")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 891, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 891, + 0 + ] + } + }); } if (!eq(tFromJs("variant278"), "variant278")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 892, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 892, + 0 + ] + } + }); } if (!eq(tFromJs("variant279"), "variant279")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 893, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 893, + 0 + ] + } + }); } if (!eq(tFromJs("variant280"), "variant280")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 894, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 894, + 0 + ] + } + }); } if (!eq(tFromJs("variant281"), "variant281")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 895, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 895, + 0 + ] + } + }); } if (!eq(tFromJs("variant282"), "variant282")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 896, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 896, + 0 + ] + } + }); } if (!eq(tFromJs("variant283"), "variant283")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 897, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 897, + 0 + ] + } + }); } if (!eq(tFromJs("variant284"), "variant284")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 898, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 898, + 0 + ] + } + }); } if (!eq(tFromJs("variant285"), "variant285")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 899, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 899, + 0 + ] + } + }); } if (!eq(tFromJs("variant286"), "variant286")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 900, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 900, + 0 + ] + } + }); } if (!eq(tFromJs("variant287"), "variant287")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 901, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 901, + 0 + ] + } + }); } if (!eq(tFromJs("variant288"), "variant288")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 902, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 902, + 0 + ] + } + }); } if (!eq(tFromJs("variant289"), "variant289")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 903, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 903, + 0 + ] + } + }); } if (!eq(tFromJs("variant290"), "variant290")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 904, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 904, + 0 + ] + } + }); } if (!eq(tFromJs("variant291"), "variant291")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 905, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 905, + 0 + ] + } + }); } if (!eq(tFromJs("variant292"), "variant292")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 906, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 906, + 0 + ] + } + }); } if (!eq(tFromJs("variant293"), "variant293")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 907, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 907, + 0 + ] + } + }); } if (!eq(tFromJs("variant294"), "variant294")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 908, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 908, + 0 + ] + } + }); } if (!eq(tFromJs("variant295"), "variant295")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 909, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 909, + 0 + ] + } + }); } if (!eq(tFromJs("variant296"), "variant296")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 910, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 910, + 0 + ] + } + }); } if (!eq(tFromJs("variant297"), "variant297")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 911, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 911, + 0 + ] + } + }); } if (!eq(tFromJs("variant298"), "variant298")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 912, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 912, + 0 + ] + } + }); } if (!eq(tFromJs("variant299"), "variant299")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 913, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 913, + 0 + ] + } + }); } if (!eq(tFromJs("xx"), undefined)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "big_polyvar_test.res", - 914, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "big_polyvar_test.res", + 914, + 0 + ] + } + }); } exports.tToJs = tToJs; diff --git a/jscomp/test/bs_array_test.js b/jscomp/test/bs_array_test.js index 46905e95dd..70a87335df 100644 --- a/jscomp/test/bs_array_test.js +++ b/jscomp/test/bs_array_test.js @@ -1,21 +1,21 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); -var Js_list = require("../../lib/js/js_list.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Belt_List = require("../../lib/js/belt_List.js"); -var Js_vector = require("../../lib/js/js_vector.js"); -var Belt_Array = require("../../lib/js/belt_Array.js"); -var Caml_array = require("../../lib/js/caml_array.js"); - -var suites = { +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); +let Js_list = require("../../lib/js/js_list.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Belt_List = require("../../lib/js/belt_List.js"); +let Js_vector = require("../../lib/js/js_vector.js"); +let Belt_Array = require("../../lib/js/belt_Array.js"); +let Caml_array = require("../../lib/js/caml_array.js"); + +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -37,12 +37,12 @@ function neq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Neq", - _0: x, - _1: y - }; - }) + return { + TAG: "Neq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; @@ -53,52 +53,52 @@ function push(prim0, prim1) { } console.log([ - 1, - 2, - 3, - 4 - ].filter(function (x) { - return x > 2; - }).map(function (x, i) { - return x + i | 0; - }).reduce((function (x, y) { - return x + y | 0; - }), 0)); - -var v = [ + 1, + 2, + 3, + 4 +].filter(function (x) { + return x > 2; +}).map(function (x, i) { + return x + i | 0; +}).reduce((function (x, y) { + return x + y | 0; +}), 0)); + +let v = [ 1, 2 ]; eq("File \"bs_array_test.res\", line 31, characters 4-11", [ - Belt_Array.get(v, 0), - Belt_Array.get(v, 1), - Belt_Array.get(v, 2), - Belt_Array.get(v, 3), - Belt_Array.get(v, -1) - ], [ - 1, - 2, - undefined, - undefined, - undefined - ]); + Belt_Array.get(v, 0), + Belt_Array.get(v, 1), + Belt_Array.get(v, 2), + Belt_Array.get(v, 3), + Belt_Array.get(v, -1) +], [ + 1, + 2, + undefined, + undefined, + undefined +]); $$throw("File \"bs_array_test.res\", line 35, characters 8-15", (function (param) { - Belt_Array.getExn([ - 0, - 1 - ], -1); - })); + Belt_Array.getExn([ + 0, + 1 + ], -1); +})); $$throw("File \"bs_array_test.res\", line 36, characters 8-15", (function (param) { - Belt_Array.getExn([ - 0, - 1 - ], 2); - })); + Belt_Array.getExn([ + 0, + 1 + ], 2); +})); -var partial_arg = [ +let partial_arg = [ 0, 1 ]; @@ -108,80 +108,80 @@ function f(param) { } b("File \"bs_array_test.res\", line 38, characters 4-11", Caml_obj.equal([ - Curry._1(f, 0), - Curry._1(f, 1) - ], [ - 0, - 1 - ])); + Curry._1(f, 0), + Curry._1(f, 1) +], [ + 0, + 1 +])); $$throw("File \"bs_array_test.res\", line 44, characters 8-15", (function (param) { - Belt_Array.setExn([ - 0, - 1 - ], -1, 0); - })); + Belt_Array.setExn([ + 0, + 1 + ], -1, 0); +})); $$throw("File \"bs_array_test.res\", line 45, characters 8-15", (function (param) { - Belt_Array.setExn([ - 0, - 1 - ], 2, 0); - })); + Belt_Array.setExn([ + 0, + 1 + ], 2, 0); +})); b("File \"bs_array_test.res\", line 46, characters 4-11", !Belt_Array.set([ - 1, - 2 - ], 2, 0)); + 1, + 2 +], 2, 0)); -var v$1 = [ +let v$1 = [ 1, 2 ]; if (!Belt_Array.set(v$1, 0, 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 51, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 51, + 6 + ] + } + }); } b("File \"bs_array_test.res\", line 48, characters 4-11", Belt_Array.getExn(v$1, 0) === 0); -var v$2 = [ +let v$2 = [ 1, 2 ]; if (!Belt_Array.set(v$2, 1, 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 59, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 59, + 6 + ] + } + }); } b("File \"bs_array_test.res\", line 56, characters 4-11", Belt_Array.getExn(v$2, 1) === 0); -var v$3 = [ +let v$3 = [ 1, 2 ]; b("File \"bs_array_test.res\", line 64, characters 4-11", (Belt_Array.setExn(v$3, 0, 0), Belt_Array.getExn(v$3, 0) === 0)); -var v$4 = [ +let v$4 = [ 1, 2 ]; @@ -193,150 +193,150 @@ function id(x) { } eq("File \"bs_array_test.res\", line 84, characters 5-12", Js_list.toVector({ - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - } - }), [ - 1, - 2, - 3 - ]); + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } + } +}), [ + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 85, characters 5-12", Js_vector.map((function (x) { - return x + 1 | 0; - }), [ - 1, - 2, - 3 - ]), [ - 2, - 3, - 4 - ]); + return x + 1 | 0; +}), [ + 1, + 2, + 3 +]), [ + 2, + 3, + 4 +]); eq("File \"bs_array_test.res\", line 86, characters 5-12", Caml_array.make(5, 3), [ - 3, - 3, - 3, - 3, - 3 - ]); + 3, + 3, + 3, + 3, + 3 +]); -var a = Js_vector.init(5, (function (i) { - return i + 1 | 0; - })); +let a = Js_vector.init(5, (function (i) { + return i + 1 | 0; +})); eq("File \"bs_array_test.res\", line 88, characters 4-11", (Js_vector.filterInPlace((function (j) { - return j % 2 === 0; - }), a), a), [ - 2, - 4 - ]); + return j % 2 === 0; +}), a), a), [ + 2, + 4 +]); -var a$1 = Js_vector.init(5, (function (i) { - return i + 1 | 0; - })); +let a$1 = Js_vector.init(5, (function (i) { + return i + 1 | 0; +})); eq("File \"bs_array_test.res\", line 98, characters 4-11", (Js_vector.filterInPlace((function (j) { - return j % 2 !== 0; - }), a$1), a$1), [ - 1, - 3, - 5 - ]); + return j % 2 !== 0; +}), a$1), a$1), [ + 1, + 3, + 5 +]); eq("File \"bs_array_test.res\", line 107, characters 5-12", Js_list.toVector({ - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - } - }), [ - 1, - 2, - 3 - ]); + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } + } +}), [ + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 108, characters 5-12", Js_list.toVector({ - hd: 1, - tl: /* [] */0 - }), [1]); + hd: 1, + tl: /* [] */0 +}), [1]); id(/* [] */0); id({ - hd: 1, - tl: /* [] */0 - }); + hd: 1, + tl: /* [] */0 +}); id({ - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, + hd: 4, tl: { - hd: 3, - tl: { - hd: 4, - tl: { - hd: 5, - tl: /* [] */0 - } - } + hd: 5, + tl: /* [] */0 } } - }); + } + } +}); id(Js_vector.toList(Js_vector.init(100, (function (i) { - return i; - })))); + return i; +})))); function add(x, y) { return x + y | 0; } -var v$5 = Belt_Array.makeBy(3000, (function (i) { - return i; - })); +let v$5 = Belt_Array.makeBy(3000, (function (i) { + return i; +})); -var u = Belt_Array.shuffle(v$5); +let u = Belt_Array.shuffle(v$5); neq("File \"bs_array_test.res\", line 122, characters 6-13", u, v$5); eq("File \"bs_array_test.res\", line 124, characters 5-12", Belt_Array.reduce(u, 0, add), Belt_Array.reduce(v$5, 0, add)); b("File \"bs_array_test.res\", line 129, characters 4-11", Caml_obj.equal(Belt_Array.range(0, 3), [ - 0, - 1, - 2, - 3 - ])); + 0, + 1, + 2, + 3 +])); b("File \"bs_array_test.res\", line 130, characters 4-11", Caml_obj.equal(Belt_Array.range(3, 0), [])); b("File \"bs_array_test.res\", line 131, characters 4-11", Caml_obj.equal(Belt_Array.range(3, 3), [3])); b("File \"bs_array_test.res\", line 133, characters 4-11", Caml_obj.equal(Belt_Array.rangeBy(0, 10, 3), [ - 0, - 3, - 6, - 9 - ])); + 0, + 3, + 6, + 9 +])); b("File \"bs_array_test.res\", line 134, characters 4-11", Caml_obj.equal(Belt_Array.rangeBy(0, 12, 3), [ - 0, - 3, - 6, - 9, - 12 - ])); + 0, + 3, + 6, + 9, + 12 +])); b("File \"bs_array_test.res\", line 135, characters 4-11", Caml_obj.equal(Belt_Array.rangeBy(33, 0, 1), [])); @@ -349,44 +349,44 @@ b("File \"bs_array_test.res\", line 138, characters 4-11", Caml_obj.equal(Belt_A b("File \"bs_array_test.res\", line 139, characters 4-11", Caml_obj.equal(Belt_Array.rangeBy(3, 3, 1), [3])); eq("File \"bs_array_test.res\", line 143, characters 5-12", Belt_Array.reduceReverse([], 100, (function (prim0, prim1) { - return prim0 - prim1 | 0; - })), 100); + return prim0 - prim1 | 0; +})), 100); eq("File \"bs_array_test.res\", line 144, characters 5-12", Belt_Array.reduceReverse([ - 1, - 2 - ], 100, (function (prim0, prim1) { - return prim0 - prim1 | 0; - })), 97); + 1, + 2 +], 100, (function (prim0, prim1) { + return prim0 - prim1 | 0; +})), 97); eq("File \"bs_array_test.res\", line 145, characters 5-12", Belt_Array.reduceReverse([ - 1, - 2, - 3, - 4 - ], 100, (function (prim0, prim1) { - return prim0 - prim1 | 0; - })), 90); + 1, + 2, + 3, + 4 +], 100, (function (prim0, prim1) { + return prim0 - prim1 | 0; +})), 90); eq("File \"bs_array_test.res\", line 146, characters 5-12", Belt_Array.reduceWithIndex([ - 1, - 2, - 3, - 4 - ], 0, (function (acc, x, i) { - return (acc + x | 0) + i | 0; - })), 16); + 1, + 2, + 3, + 4 +], 0, (function (acc, x, i) { + return (acc + x | 0) + i | 0; +})), 16); b("File \"bs_array_test.res\", line 147, characters 4-11", Belt_Array.reduceReverse2([ - 1, - 2, - 3 - ], [ - 1, - 2 - ], 0, (function (acc, x, y) { - return (acc + x | 0) + y | 0; - })) === 6); + 1, + 2, + 3 +], [ + 1, + 2 +], 0, (function (acc, x, y) { + return (acc + x | 0) + y | 0; +})) === 6); function addone(x) { return x + 1 | 0; @@ -395,20 +395,20 @@ function addone(x) { function makeMatrixExn(sx, sy, init) { if (!(sx >= 0 && sy >= 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_array_test.res", - 153, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_array_test.res", + 153, + 2 + ] + } + }); } - var res = new Array(sx); - for(var x = 0; x < sx; ++x){ - var initY = new Array(sy); - for(var y = 0; y < sy; ++y){ + let res = new Array(sx); + for(let x = 0; x < sx; ++x){ + let initY = new Array(sy); + for(let y = 0; y < sy; ++y){ initY[y] = init; } res[x] = initY; @@ -417,43 +417,43 @@ function makeMatrixExn(sx, sy, init) { } eq("File \"bs_array_test.res\", line 166, characters 5-12", Belt_Array.makeBy(0, (function (param) { - return 1; - })), []); + return 1; +})), []); eq("File \"bs_array_test.res\", line 167, characters 5-12", Belt_Array.makeBy(3, (function (i) { - return i; - })), [ - 0, - 1, - 2 - ]); + return i; +})), [ + 0, + 1, + 2 +]); eq("File \"bs_array_test.res\", line 168, characters 5-12", makeMatrixExn(3, 4, 1), [ - [ - 1, - 1, - 1, - 1 - ], - [ - 1, - 1, - 1, - 1 - ], - [ - 1, - 1, - 1, - 1 - ] - ]); + [ + 1, + 1, + 1, + 1 + ], + [ + 1, + 1, + 1, + 1 + ], + [ + 1, + 1, + 1, + 1 + ] +]); eq("File \"bs_array_test.res\", line 169, characters 5-12", makeMatrixExn(3, 0, 0), [ - [], - [], - [] - ]); + [], + [], + [] +]); eq("File \"bs_array_test.res\", line 170, characters 5-12", makeMatrixExn(0, 3, 1), []); @@ -462,131 +462,131 @@ eq("File \"bs_array_test.res\", line 171, characters 5-12", makeMatrixExn(1, 1, eq("File \"bs_array_test.res\", line 172, characters 5-12", [].slice(0), []); eq("File \"bs_array_test.res\", line 173, characters 5-12", Belt_Array.map([], (function (prim) { - return prim + 1 | 0; - })), []); + return prim + 1 | 0; +})), []); eq("File \"bs_array_test.res\", line 174, characters 5-12", Belt_Array.mapWithIndex([], add), []); eq("File \"bs_array_test.res\", line 175, characters 5-12", Belt_Array.mapWithIndex([ - 1, - 2, - 3 - ], add), [ - 1, - 3, - 5 - ]); + 1, + 2, + 3 +], add), [ + 1, + 3, + 5 +]); eq("File \"bs_array_test.res\", line 176, characters 5-12", Belt_List.fromArray([]), /* [] */0); eq("File \"bs_array_test.res\", line 177, characters 5-12", Belt_List.fromArray([1]), { - hd: 1, - tl: /* [] */0 - }); + hd: 1, + tl: /* [] */0 +}); eq("File \"bs_array_test.res\", line 178, characters 5-12", Belt_List.fromArray([ - 1, - 2, - 3 - ]), { - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - } - }); + 1, + 2, + 3 +]), { + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } + } +}); eq("File \"bs_array_test.res\", line 179, characters 5-12", Belt_Array.map([ - 1, - 2, - 3 - ], (function (prim) { - return prim + 1 | 0; - })), [ - 2, - 3, - 4 - ]); + 1, + 2, + 3 +], (function (prim) { + return prim + 1 | 0; +})), [ + 2, + 3, + 4 +]); eq("File \"bs_array_test.res\", line 180, characters 5-12", Belt_List.toArray(/* [] */0), []); eq("File \"bs_array_test.res\", line 181, characters 5-12", Belt_List.toArray({ - hd: 1, - tl: /* [] */0 - }), [1]); + hd: 1, + tl: /* [] */0 +}), [1]); eq("File \"bs_array_test.res\", line 182, characters 5-12", Belt_List.toArray({ - hd: 1, - tl: { - hd: 2, - tl: /* [] */0 - } - }), [ - 1, - 2 - ]); + hd: 1, + tl: { + hd: 2, + tl: /* [] */0 + } +}), [ + 1, + 2 +]); eq("File \"bs_array_test.res\", line 183, characters 5-12", Belt_List.toArray({ - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - } - }), [ - 1, - 2, - 3 - ]); - -var v$6 = Belt_Array.makeBy(10, (function (i) { - return i; - })); - -var v0 = Belt_Array.keep(v$6, (function (x) { - return x % 2 === 0; - })); - -var v1 = Belt_Array.keep(v$6, (function (x) { - return x % 3 === 0; - })); - -var v2 = Belt_Array.keepMap(v$6, (function (x) { - if (x % 2 === 0) { - return x + 1 | 0; - } - - })); + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } + } +}), [ + 1, + 2, + 3 +]); + +let v$6 = Belt_Array.makeBy(10, (function (i) { + return i; +})); + +let v0 = Belt_Array.keep(v$6, (function (x) { + return x % 2 === 0; +})); + +let v1 = Belt_Array.keep(v$6, (function (x) { + return x % 3 === 0; +})); + +let v2 = Belt_Array.keepMap(v$6, (function (x) { + if (x % 2 === 0) { + return x + 1 | 0; + } + +})); eq("File \"bs_array_test.res\", line 197, characters 5-12", v0, [ - 0, - 2, - 4, - 6, - 8 - ]); + 0, + 2, + 4, + 6, + 8 +]); eq("File \"bs_array_test.res\", line 198, characters 5-12", v1, [ - 0, - 3, - 6, - 9 - ]); + 0, + 3, + 6, + 9 +]); eq("File \"bs_array_test.res\", line 199, characters 5-12", v2, [ - 1, - 3, - 5, - 7, - 9 - ]); + 1, + 3, + 5, + 7, + 9 +]); -var a$2 = [ +let a$2 = [ 1, 2, 3, @@ -594,43 +594,43 @@ var a$2 = [ 5 ]; -var match = Belt_Array.partition(a$2, (function (x) { - return x % 2 === 0; - })); +let match = Belt_Array.partition(a$2, (function (x) { + return x % 2 === 0; +})); eq("File \"bs_array_test.res\", line 205, characters 5-12", match[0], [ - 2, - 4 - ]); + 2, + 4 +]); eq("File \"bs_array_test.res\", line 206, characters 5-12", match[1], [ - 1, - 3, - 5 - ]); + 1, + 3, + 5 +]); -var match$1 = Belt_Array.partition(a$2, (function (x) { - return x === 2; - })); +let match$1 = Belt_Array.partition(a$2, (function (x) { + return x === 2; +})); eq("File \"bs_array_test.res\", line 208, characters 5-12", match$1[0], [2]); eq("File \"bs_array_test.res\", line 209, characters 5-12", match$1[1], [ - 1, - 3, - 4, - 5 - ]); + 1, + 3, + 4, + 5 +]); -var match$2 = Belt_Array.partition([], (function (x) { - return false; - })); +let match$2 = Belt_Array.partition([], (function (x) { + return false; +})); eq("File \"bs_array_test.res\", line 211, characters 5-12", match$2[0], []); eq("File \"bs_array_test.res\", line 212, characters 5-12", match$2[1], []); -var a$3 = [ +let a$3 = [ 1, 2, 3, @@ -639,25 +639,25 @@ var a$3 = [ ]; eq("File \"bs_array_test.res\", line 217, characters 5-12", Belt_Array.slice(a$3, 0, 2), [ - 1, - 2 - ]); + 1, + 2 +]); eq("File \"bs_array_test.res\", line 218, characters 5-12", Belt_Array.slice(a$3, 0, 5), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 219, characters 5-12", Belt_Array.slice(a$3, 0, 15), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 220, characters 5-12", Belt_Array.slice(a$3, 5, 1), []); @@ -670,49 +670,49 @@ eq("File \"bs_array_test.res\", line 223, characters 5-12", Belt_Array.slice(a$3 eq("File \"bs_array_test.res\", line 224, characters 5-12", Belt_Array.slice(a$3, -2, 1), [4]); eq("File \"bs_array_test.res\", line 225, characters 5-12", Belt_Array.slice(a$3, -2, 2), [ - 4, - 5 - ]); + 4, + 5 +]); eq("File \"bs_array_test.res\", line 226, characters 5-12", Belt_Array.slice(a$3, -2, 3), [ - 4, - 5 - ]); + 4, + 5 +]); eq("File \"bs_array_test.res\", line 227, characters 5-12", Belt_Array.slice(a$3, -10, 3), [ - 1, - 2, - 3 - ]); + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 228, characters 5-12", Belt_Array.slice(a$3, -10, 4), [ - 1, - 2, - 3, - 4 - ]); + 1, + 2, + 3, + 4 +]); eq("File \"bs_array_test.res\", line 229, characters 5-12", Belt_Array.slice(a$3, -10, 5), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 230, characters 5-12", Belt_Array.slice(a$3, -10, 6), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 231, characters 5-12", Belt_Array.slice(a$3, 0, 0), []); eq("File \"bs_array_test.res\", line 232, characters 5-12", Belt_Array.slice(a$3, 0, -1), []); -var a$4 = [ +let a$4 = [ 1, 2, 3, @@ -721,12 +721,12 @@ var a$4 = [ ]; eq("File \"bs_array_test.res\", line 237, characters 5-12", Belt_Array.sliceToEnd(a$4, 0), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 238, characters 5-12", Belt_Array.sliceToEnd(a$4, 5), []); @@ -735,158 +735,158 @@ eq("File \"bs_array_test.res\", line 239, characters 5-12", Belt_Array.sliceToEn eq("File \"bs_array_test.res\", line 240, characters 5-12", Belt_Array.sliceToEnd(a$4, -1), [5]); eq("File \"bs_array_test.res\", line 241, characters 5-12", Belt_Array.sliceToEnd(a$4, -2), [ - 4, - 5 - ]); + 4, + 5 +]); eq("File \"bs_array_test.res\", line 242, characters 5-12", Belt_Array.sliceToEnd(a$4, -10), [ - 1, - 2, - 3, - 4, - 5 - ]); + 1, + 2, + 3, + 4, + 5 +]); eq("File \"bs_array_test.res\", line 243, characters 5-12", Belt_Array.sliceToEnd(a$4, 6), []); -var a$5 = Belt_Array.makeBy(10, (function (x) { - return x; - })); +let a$5 = Belt_Array.makeBy(10, (function (x) { + return x; +})); Belt_Array.fill(a$5, 0, 3, 0); eq("File \"bs_array_test.res\", line 248, characters 5-12", a$5.slice(0), [ - 0, - 0, - 0, - 3, - 4, - 5, - 6, - 7, - 8, - 9 - ]); + 0, + 0, + 0, + 3, + 4, + 5, + 6, + 7, + 8, + 9 +]); Belt_Array.fill(a$5, 2, 8, 1); eq("File \"bs_array_test.res\", line 250, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1 +]); Belt_Array.fill(a$5, 8, 1, 9); eq("File \"bs_array_test.res\", line 252, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 9, - 1 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 1, + 9, + 1 +]); Belt_Array.fill(a$5, 8, 2, 9); eq("File \"bs_array_test.res\", line 254, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 9, - 9 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 1, + 9, + 9 +]); Belt_Array.fill(a$5, 8, 3, 12); eq("File \"bs_array_test.res\", line 256, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 12, - 12 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 1, + 12, + 12 +]); Belt_Array.fill(a$5, -2, 3, 11); eq("File \"bs_array_test.res\", line 258, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 1, - 11, - 11 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 1, + 11, + 11 +]); Belt_Array.fill(a$5, -3, 3, 10); eq("File \"bs_array_test.res\", line 260, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 10, - 10, - 10 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 10, + 10, + 10 +]); Belt_Array.fill(a$5, -3, 1, 7); eq("File \"bs_array_test.res\", line 262, characters 5-12", a$5.slice(0), [ - 0, - 0, - 1, - 1, - 1, - 1, - 1, - 7, - 10, - 10 - ]); + 0, + 0, + 1, + 1, + 1, + 1, + 1, + 7, + 10, + 10 +]); Belt_Array.fill(a$5, -13, 1, 7); eq("File \"bs_array_test.res\", line 264, characters 5-12", a$5.slice(0), [ - 7, - 0, - 1, - 1, - 1, - 1, - 1, - 7, - 10, - 10 - ]); + 7, + 0, + 1, + 1, + 1, + 1, + 1, + 7, + 10, + 10 +]); Belt_Array.fill(a$5, -13, 12, 7); @@ -896,7 +896,7 @@ Belt_Array.fill(a$5, 0, -1, 2); eq("File \"bs_array_test.res\", line 268, characters 5-12", a$5.slice(0), Belt_Array.make(10, 7)); -var b$1 = [ +let b$1 = [ 1, 2, 3 @@ -905,84 +905,84 @@ var b$1 = [ Belt_Array.fill(b$1, 0, 0, 0); eq("File \"bs_array_test.res\", line 271, characters 5-12", b$1, [ - 1, - 2, - 3 - ]); + 1, + 2, + 3 +]); Belt_Array.fill(b$1, 4, 1, 0); eq("File \"bs_array_test.res\", line 273, characters 5-12", b$1, [ - 1, - 2, - 3 - ]); + 1, + 2, + 3 +]); -var a0 = Belt_Array.makeBy(10, (function (x) { - return x; - })); +let a0 = Belt_Array.makeBy(10, (function (x) { + return x; +})); -var b0 = Belt_Array.make(10, 3); +let b0 = Belt_Array.make(10, 3); Belt_Array.blit(a0, 1, b0, 2, 5); eq("File \"bs_array_test.res\", line 280, characters 5-12", b0.slice(0), [ - 3, - 3, - 1, - 2, - 3, - 4, - 5, - 3, - 3, - 3 - ]); + 3, + 3, + 1, + 2, + 3, + 4, + 5, + 3, + 3, + 3 +]); Belt_Array.blit(a0, -1, b0, 2, 5); eq("File \"bs_array_test.res\", line 282, characters 5-12", b0.slice(0), [ - 3, - 3, - 9, - 2, - 3, - 4, - 5, - 3, - 3, - 3 - ]); + 3, + 3, + 9, + 2, + 3, + 4, + 5, + 3, + 3, + 3 +]); Belt_Array.blit(a0, -1, b0, -2, 5); eq("File \"bs_array_test.res\", line 284, characters 5-12", b0.slice(0), [ - 3, - 3, - 9, - 2, - 3, - 4, - 5, - 3, - 9, - 3 - ]); + 3, + 3, + 9, + 2, + 3, + 4, + 5, + 3, + 9, + 3 +]); Belt_Array.blit(a0, -2, b0, -2, 2); eq("File \"bs_array_test.res\", line 286, characters 5-12", b0.slice(0), [ - 3, - 3, - 9, - 2, - 3, - 4, - 5, - 3, - 8, - 9 - ]); + 3, + 3, + 9, + 2, + 3, + 4, + 5, + 3, + 8, + 9 +]); Belt_Array.blit(a0, -11, b0, -11, 100); @@ -992,75 +992,75 @@ Belt_Array.blit(a0, -11, b0, -11, 2); eq("File \"bs_array_test.res\", line 290, characters 5-12", b0.slice(0), a0); -var aa = Belt_Array.makeBy(10, (function (x) { - return x; - })); +let aa = Belt_Array.makeBy(10, (function (x) { + return x; +})); Belt_Array.blit(aa, -1, aa, 1, 2); eq("File \"bs_array_test.res\", line 293, characters 5-12", aa.slice(0), [ - 0, - 9, - 2, - 3, - 4, - 5, - 6, - 7, - 8, - 9 - ]); + 0, + 9, + 2, + 3, + 4, + 5, + 6, + 7, + 8, + 9 +]); Belt_Array.blit(aa, -2, aa, 1, 2); eq("File \"bs_array_test.res\", line 295, characters 5-12", aa.slice(0), [ - 0, - 8, - 9, - 3, - 4, - 5, - 6, - 7, - 8, - 9 - ]); + 0, + 8, + 9, + 3, + 4, + 5, + 6, + 7, + 8, + 9 +]); Belt_Array.blit(aa, -5, aa, 4, 3); eq("File \"bs_array_test.res\", line 297, characters 5-12", aa.slice(0), [ - 0, - 8, - 9, - 3, - 5, - 6, - 7, - 7, - 8, - 9 - ]); + 0, + 8, + 9, + 3, + 5, + 6, + 7, + 7, + 8, + 9 +]); Belt_Array.blit(aa, 4, aa, 5, 3); eq("File \"bs_array_test.res\", line 299, characters 5-12", aa.slice(0), [ - 0, - 8, - 9, - 3, - 5, - 5, - 6, - 7, - 8, - 9 - ]); + 0, + 8, + 9, + 3, + 5, + 5, + 6, + 7, + 8, + 9 +]); eq("File \"bs_array_test.res\", line 300, characters 5-12", Belt_Array.make(0, 3), []); eq("File \"bs_array_test.res\", line 301, characters 5-12", Belt_Array.make(-1, 3), []); -var c = [ +let c = [ 0, 1, 2 @@ -1069,187 +1069,187 @@ var c = [ Belt_Array.blit(c, 4, c, 1, 1); eq("File \"bs_array_test.res\", line 304, characters 5-12", c, [ - 0, - 1, - 2 - ]); + 0, + 1, + 2 +]); eq("File \"bs_array_test.res\", line 308, characters 5-12", Belt_Array.zip([ - 1, - 2, - 3 - ], [ - 2, - 3, - 4, - 1 - ]), [ - [ - 1, - 2 - ], - [ - 2, - 3 - ], - [ - 3, - 4 - ] - ]); + 1, + 2, + 3 +], [ + 2, + 3, + 4, + 1 +]), [ + [ + 1, + 2 + ], + [ + 2, + 3 + ], + [ + 3, + 4 + ] +]); eq("File \"bs_array_test.res\", line 309, characters 5-12", Belt_Array.zip([ - 2, - 3, - 4, - 1 - ], [ - 1, - 2, - 3 - ]), [ - [ - 2, - 1 - ], - [ - 3, - 2 - ], - [ - 4, - 3 - ] - ]); + 2, + 3, + 4, + 1 +], [ + 1, + 2, + 3 +]), [ + [ + 2, + 1 + ], + [ + 3, + 2 + ], + [ + 4, + 3 + ] +]); eq("File \"bs_array_test.res\", line 310, characters 5-12", Belt_Array.zipBy([ - 2, - 3, - 4, - 1 - ], [ - 1, - 2, - 3 - ], (function (prim0, prim1) { - return prim0 - prim1 | 0; - })), [ - 1, - 1, - 1 - ]); + 2, + 3, + 4, + 1 +], [ + 1, + 2, + 3 +], (function (prim0, prim1) { + return prim0 - prim1 | 0; +})), [ + 1, + 1, + 1 +]); eq("File \"bs_array_test.res\", line 311, characters 5-12", Belt_Array.zipBy([ - 1, - 2, - 3 - ], [ - 2, - 3, - 4, - 1 - ], (function (prim0, prim1) { - return prim0 - prim1 | 0; - })), Belt_Array.map([ - 1, - 1, - 1 - ], (function (x) { - return -x | 0; - }))); + 1, + 2, + 3 +], [ + 2, + 3, + 4, + 1 +], (function (prim0, prim1) { + return prim0 - prim1 | 0; +})), Belt_Array.map([ + 1, + 1, + 1 +], (function (x) { + return -x | 0; +}))); eq("File \"bs_array_test.res\", line 312, characters 5-12", Belt_Array.unzip([ - [ - 1, - 2 - ], - [ - 2, - 3 - ], - [ - 3, - 4 - ] - ]), [ - [ - 1, - 2, - 3 - ], - [ - 2, - 3, - 4 - ] - ]); + [ + 1, + 2 + ], + [ + 2, + 3 + ], + [ + 3, + 4 + ] +]), [ + [ + 1, + 2, + 3 + ], + [ + 2, + 3, + 4 + ] +]); function sumUsingForEach(xs) { - var v = { + let v = { contents: 0 }; Belt_Array.forEach(xs, (function (x) { - v.contents = v.contents + x | 0; - })); + v.contents = v.contents + x | 0; + })); return v.contents; } eq("File \"bs_array_test.res\", line 324, characters 5-12", sumUsingForEach([ - 0, - 1, - 2, - 3, - 4 - ]), 10); + 0, + 1, + 2, + 3, + 4 +]), 10); b("File \"bs_array_test.res\", line 325, characters 4-11", !Belt_Array.every([ - 0, - 1, - 2, - 3, - 4 - ], (function (x) { - return x > 2; - }))); + 0, + 1, + 2, + 3, + 4 +], (function (x) { + return x > 2; +}))); b("File \"bs_array_test.res\", line 326, characters 4-11", Belt_Array.some([ - 1, - 3, - 7, - 8 - ], (function (x) { - return x % 2 === 0; - }))); + 1, + 3, + 7, + 8 +], (function (x) { + return x % 2 === 0; +}))); b("File \"bs_array_test.res\", line 327, characters 4-11", !Belt_Array.some([ - 1, - 3, - 7 - ], (function (x) { - return x % 2 === 0; - }))); + 1, + 3, + 7 +], (function (x) { + return x % 2 === 0; +}))); b("File \"bs_array_test.res\", line 328, characters 4-11", !Belt_Array.eq([ - 0, - 1 - ], [1], (function (prim0, prim1) { - return prim0 === prim1; - }))); + 0, + 1 +], [1], (function (prim0, prim1) { + return prim0 === prim1; +}))); -var c$1 = { +let c$1 = { contents: 0 }; b("File \"bs_array_test.res\", line 330, characters 4-11", (Belt_Array.forEachWithIndex([ - 1, - 1, - 1 - ], (function (i, v) { - c$1.contents = (c$1.contents + i | 0) + v | 0; - })), c$1.contents === 6)); + 1, + 1, + 1 +], (function (i, v) { + c$1.contents = (c$1.contents + i | 0) + v | 0; +})), c$1.contents === 6)); function id$1(loc, x) { - var u = x.slice(0); + let u = x.slice(0); eq("File \"bs_array_test.res\", line 341, characters 4-11", Belt_Array.reverse(x), (Belt_Array.reverseInPlace(u), u)); } @@ -1258,347 +1258,347 @@ id$1("File \"bs_array_test.res\", line 351, characters 5-12", []); id$1("File \"bs_array_test.res\", line 352, characters 5-12", [1]); id$1("File \"bs_array_test.res\", line 353, characters 5-12", [ - 1, - 2 - ]); + 1, + 2 +]); id$1("File \"bs_array_test.res\", line 354, characters 5-12", [ - 1, - 2, - 3 - ]); + 1, + 2, + 3 +]); id$1("File \"bs_array_test.res\", line 355, characters 5-12", [ - 1, - 2, - 3, - 4 - ]); + 1, + 2, + 3, + 4 +]); function every2(xs, ys) { - var partial_arg = Belt_List.toArray(ys); - var partial_arg$1 = Belt_List.toArray(xs); + let partial_arg = Belt_List.toArray(ys); + let partial_arg$1 = Belt_List.toArray(xs); return function (param) { return Belt_Array.every2(partial_arg$1, partial_arg, param); }; } function some2(xs, ys) { - var partial_arg = Belt_List.toArray(ys); - var partial_arg$1 = Belt_List.toArray(xs); + let partial_arg = Belt_List.toArray(ys); + let partial_arg$1 = Belt_List.toArray(xs); return function (param) { return Belt_Array.some2(partial_arg$1, partial_arg, param); }; } eq("File \"bs_array_test.res\", line 363, characters 5-12", every2(/* [] */0, { - hd: 1, - tl: /* [] */0 - })(function (x, y) { - return x > y; - }), true); + hd: 1, + tl: /* [] */0 +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 364, characters 5-12", every2({ - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: /* [] */0 - })(function (x, y) { - return x > y; - }), true); + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: /* [] */0 +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 365, characters 5-12", every2({ - hd: 2, - tl: /* [] */0 - }, { - hd: 1, - tl: /* [] */0 - })(function (x, y) { - return x > y; - }), true); + hd: 2, + tl: /* [] */0 +}, { + hd: 1, + tl: /* [] */0 +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 366, characters 5-12", every2({ - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: { - hd: 4, - tl: /* [] */0 - } - })(function (x, y) { - return x > y; - }), false); + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: { + hd: 4, + tl: /* [] */0 + } +})(function (x, y) { + return x > y; +}), false); eq("File \"bs_array_test.res\", line 367, characters 5-12", every2({ - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: { - hd: 0, - tl: /* [] */0 - } - })(function (x, y) { - return x > y; - }), true); + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: { + hd: 0, + tl: /* [] */0 + } +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 368, characters 5-12", some2(/* [] */0, { - hd: 1, - tl: /* [] */0 - })(function (x, y) { - return x > y; - }), false); + hd: 1, + tl: /* [] */0 +})(function (x, y) { + return x > y; +}), false); eq("File \"bs_array_test.res\", line 369, characters 5-12", some2({ - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: /* [] */0 - })(function (x, y) { - return x > y; - }), true); + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: /* [] */0 +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 370, characters 5-12", some2({ - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: { - hd: 4, - tl: /* [] */0 - } - })(function (x, y) { - return x > y; - }), true); + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: { + hd: 4, + tl: /* [] */0 + } +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 371, characters 5-12", some2({ - hd: 0, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 1, - tl: { - hd: 4, - tl: /* [] */0 - } - })(function (x, y) { - return x > y; - }), false); + hd: 0, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 1, + tl: { + hd: 4, + tl: /* [] */0 + } +})(function (x, y) { + return x > y; +}), false); eq("File \"bs_array_test.res\", line 372, characters 5-12", some2({ - hd: 0, - tl: { - hd: 3, - tl: /* [] */0 - } - }, { - hd: 3, - tl: { - hd: 2, - tl: /* [] */0 - } - })(function (x, y) { - return x > y; - }), true); + hd: 0, + tl: { + hd: 3, + tl: /* [] */0 + } +}, { + hd: 3, + tl: { + hd: 2, + tl: /* [] */0 + } +})(function (x, y) { + return x > y; +}), true); eq("File \"bs_array_test.res\", line 376, characters 5-12", Belt_Array.concat([], [ - 1, - 2, - 3 - ]), [ - 1, - 2, - 3 - ]); + 1, + 2, + 3 +]), [ + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 377, characters 5-12", Belt_Array.concat([], []), []); eq("File \"bs_array_test.res\", line 378, characters 5-12", Belt_Array.concat([ - 3, - 2 - ], [ - 1, - 2, - 3 - ]), [ - 3, - 2, - 1, - 2, - 3 - ]); + 3, + 2 +], [ + 1, + 2, + 3 +]), [ + 3, + 2, + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 379, characters 5-12", Belt_Array.concatMany([ - [ - 3, - 2 - ], - [ - 1, - 2, - 3 - ] - ]), [ - 3, - 2, - 1, - 2, - 3 - ]); + [ + 3, + 2 + ], + [ + 1, + 2, + 3 + ] +]), [ + 3, + 2, + 1, + 2, + 3 +]); eq("File \"bs_array_test.res\", line 380, characters 5-12", Belt_Array.concatMany([ - [ - 3, - 2 - ], - [ - 1, - 2, - 3 - ], - [], - [0] - ]), [ - 3, - 2, - 1, - 2, - 3, - 0 - ]); + [ + 3, + 2 + ], + [ + 1, + 2, + 3 + ], + [], + [0] +]), [ + 3, + 2, + 1, + 2, + 3, + 0 +]); eq("File \"bs_array_test.res\", line 381, characters 5-12", Belt_Array.concatMany([ - [], - [ - 3, - 2 - ], - [ - 1, - 2, - 3 - ], - [], - [0] - ]), [ - 3, - 2, - 1, - 2, - 3, - 0 - ]); + [], + [ + 3, + 2 + ], + [ + 1, + 2, + 3 + ], + [], + [0] +]), [ + 3, + 2, + 1, + 2, + 3, + 0 +]); eq("File \"bs_array_test.res\", line 382, characters 5-12", Belt_Array.concatMany([ - [], - [] - ]), []); + [], + [] +]), []); b("File \"bs_array_test.res\", line 386, characters 4-11", Belt_Array.cmp([ - 1, - 2, - 3 - ], [ - 0, - 1, - 2, - 3 - ], Caml.int_compare) < 0); + 1, + 2, + 3 +], [ + 0, + 1, + 2, + 3 +], Caml.int_compare) < 0); b("File \"bs_array_test.res\", line 387, characters 4-11", Belt_Array.cmp([ - 0, - 1, - 2, - 3 - ], [ - 1, - 2, - 3 - ], Caml.int_compare) > 0); + 0, + 1, + 2, + 3 +], [ + 1, + 2, + 3 +], Caml.int_compare) > 0); b("File \"bs_array_test.res\", line 388, characters 4-11", Belt_Array.cmp([ - 1, - 2, - 3 - ], [ - 0, - 1, - 2 - ], Caml.int_compare) > 0); + 1, + 2, + 3 +], [ + 0, + 1, + 2 +], Caml.int_compare) > 0); b("File \"bs_array_test.res\", line 389, characters 4-11", Belt_Array.cmp([ - 1, - 2, - 3 - ], [ - 1, - 2, - 3 - ], Caml.int_compare) === 0); + 1, + 2, + 3 +], [ + 1, + 2, + 3 +], Caml.int_compare) === 0); b("File \"bs_array_test.res\", line 390, characters 4-11", Belt_Array.cmp([ - 1, - 2, - 4 - ], [ - 1, - 2, - 3 - ], Caml.int_compare) > 0); + 1, + 2, + 4 +], [ + 1, + 2, + 3 +], Caml.int_compare) > 0); eq("File \"bs_array_test.res\", line 394, characters 5-12", Belt_Array.getBy([ - 1, - 2, - 3 - ], (function (x) { - return x > 1; - })), 2); + 1, + 2, + 3 +], (function (x) { + return x > 1; +})), 2); eq("File \"bs_array_test.res\", line 395, characters 5-12", Belt_Array.getBy([ - 1, - 2, - 3 - ], (function (x) { - return x > 3; - })), undefined); + 1, + 2, + 3 +], (function (x) { + return x > 3; +})), undefined); eq("File \"bs_array_test.res\", line 399, characters 5-12", Belt_Array.getIndexBy([ - 1, - 2, - 3 - ], (function (x) { - return x > 1; - })), 1); + 1, + 2, + 3 +], (function (x) { + return x > 1; +})), 1); eq("File \"bs_array_test.res\", line 400, characters 5-12", Belt_Array.getIndexBy([ - 1, - 2, - 3 - ], (function (x) { - return x > 3; - })), undefined); + 1, + 2, + 3 +], (function (x) { + return x > 3; +})), undefined); -var arr = []; +let arr = []; arr.push(3); @@ -1607,16 +1607,16 @@ arr.push(2); arr.push(1); eq("File \"bs_array_test.res\", line 408, characters 5-12", arr, [ - 3, - 2, - 1 - ]); + 3, + 2, + 1 +]); Mt.from_pair_suites("File \"bs_array_test.res\", line 411, characters 20-27", suites.contents); -var A; +let A; -var L; +let L; exports.suites = suites; exports.test_id = test_id; diff --git a/jscomp/test/bs_hashtbl_string_test.js b/jscomp/test/bs_hashtbl_string_test.js index ffe9887a73..0f52cd3162 100644 --- a/jscomp/test/bs_hashtbl_string_test.js +++ b/jscomp/test/bs_hashtbl_string_test.js @@ -1,22 +1,22 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Belt_Id = require("../../lib/js/belt_Id.js"); -var Hashtbl = require("../../lib/js/hashtbl.js"); -var Belt_HashMap = require("../../lib/js/belt_HashMap.js"); -var Belt_MapDict = require("../../lib/js/belt_MapDict.js"); -var Belt_HashMapInt = require("../../lib/js/belt_HashMapInt.js"); -var Belt_HashSetInt = require("../../lib/js/belt_HashSetInt.js"); -var Belt_HashMapString = require("../../lib/js/belt_HashMapString.js"); -var Caml_hash_primitive = require("../../lib/js/caml_hash_primitive.js"); -var Belt_internalBucketsType = require("../../lib/js/belt_internalBucketsType.js"); +let Caml = require("../../lib/js/caml.js"); +let Belt_Id = require("../../lib/js/belt_Id.js"); +let Hashtbl = require("../../lib/js/hashtbl.js"); +let Belt_HashMap = require("../../lib/js/belt_HashMap.js"); +let Belt_MapDict = require("../../lib/js/belt_MapDict.js"); +let Belt_HashMapInt = require("../../lib/js/belt_HashMapInt.js"); +let Belt_HashSetInt = require("../../lib/js/belt_HashSetInt.js"); +let Belt_HashMapString = require("../../lib/js/belt_HashMapString.js"); +let Caml_hash_primitive = require("../../lib/js/caml_hash_primitive.js"); +let Belt_internalBucketsType = require("../../lib/js/belt_internalBucketsType.js"); function hash_string(s) { return Caml_hash_primitive.hash_final_mix(Caml_hash_primitive.hash_mix_string(0, s)); } -var hashString = (function(str){ +let hashString = (function(str){ var hash = 5381, i = str.length | 0; @@ -25,42 +25,42 @@ var hashString = (function(str){ } return hash}); -var $$String = Belt_Id.hashable(Hashtbl.hash, (function (x, y) { - return x === y; - })); +let $$String = Belt_Id.hashable(Hashtbl.hash, (function (x, y) { + return x === y; +})); -var String1 = Belt_Id.hashable(hashString, (function (x, y) { - return x === y; - })); +let String1 = Belt_Id.hashable(hashString, (function (x, y) { + return x === y; +})); -var String2 = Belt_Id.hashable((function (x) { - return Caml_hash_primitive.hash_final_mix(Caml_hash_primitive.hash_mix_string(0, x)); - }), (function (x, y) { - return x === y; - })); +let String2 = Belt_Id.hashable((function (x) { + return Caml_hash_primitive.hash_final_mix(Caml_hash_primitive.hash_mix_string(0, x)); +}), (function (x, y) { + return x === y; +})); -var Int = Belt_Id.hashable(Hashtbl.hash, (function (x, y) { - return x === y; - })); +let Int = Belt_Id.hashable(Hashtbl.hash, (function (x, y) { + return x === y; +})); -var empty = Belt_internalBucketsType.make(Int.hash, Int.eq, 500000); +let empty = Belt_internalBucketsType.make(Int.hash, Int.eq, 500000); function bench(param) { - for(var i = 0; i <= 1000000; ++i){ + for(let i = 0; i <= 1000000; ++i){ Belt_HashMap.set(empty, i, i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(empty, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 37, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 37, + 4 + ] + } + }); } } @@ -68,241 +68,241 @@ function bench(param) { } function bench2(m) { - var empty = Belt_internalBucketsType.make(m.hash, m.eq, 1000000); - for(var i = 0; i <= 1000000; ++i){ + let empty = Belt_internalBucketsType.make(m.hash, m.eq, 1000000); + for(let i = 0; i <= 1000000; ++i){ Belt_HashMap.set(empty, String(i), i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(empty, String(i$1))) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 61, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 61, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Belt_HashMap.remove(empty, String(i$2)); } if (empty.size === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 66, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 66, + 2 + ] + } + }); } function bench3(m) { - var empty_cmp = m.cmp; - var cmp = m.cmp; - var table = undefined; - for(var i = 0; i <= 1000000; ++i){ + let empty_cmp = m.cmp; + let cmp = m.cmp; + let table = undefined; + for(let i = 0; i <= 1000000; ++i){ table = Belt_MapDict.set(table, String(i), i, cmp); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_MapDict.has(table, String(i$1), cmp)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 81, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 81, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ table = Belt_MapDict.remove(table, String(i$2), cmp); } if (Belt_MapDict.size(table) === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 86, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 86, + 2 + ] + } + }); } -var Sx = Belt_Id.comparable(Caml.string_compare); +let Sx = Belt_Id.comparable(Caml.string_compare); function bench4(param) { - var table = Belt_internalBucketsType.make(undefined, undefined, 1000000); - for(var i = 0; i <= 1000000; ++i){ + let table = Belt_internalBucketsType.make(undefined, undefined, 1000000); + for(let i = 0; i <= 1000000; ++i){ Belt_HashMapString.set(table, String(i), i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMapString.has(table, String(i$1))) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 98, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 98, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Belt_HashMapString.remove(table, String(i$2)); } if (Belt_HashMapString.isEmpty(table)) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 103, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 103, + 2 + ] + } + }); } function bench5(param) { - var table = Belt_internalBucketsType.make(Int.hash, Int.eq, 1000000); + let table = Belt_internalBucketsType.make(Int.hash, Int.eq, 1000000); console.time("bs_hashtbl_string_test.res 112"); - for(var i = 0; i <= 1000000; ++i){ + for(let i = 0; i <= 1000000; ++i){ Belt_HashMap.set(table, i, i); } console.timeEnd("bs_hashtbl_string_test.res 112"); console.time("bs_hashtbl_string_test.res 117"); - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMap.has(table, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 119, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 119, + 6 + ] + } + }); } } console.timeEnd("bs_hashtbl_string_test.res 117"); console.time("bs_hashtbl_string_test.res 122"); - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Belt_HashMap.remove(table, i$2); } console.timeEnd("bs_hashtbl_string_test.res 122"); if (Belt_HashMap.isEmpty(table)) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 127, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 127, + 2 + ] + } + }); } function bench6(param) { - var table = Belt_internalBucketsType.make(undefined, undefined, 1000000); - for(var i = 0; i <= 1000000; ++i){ + let table = Belt_internalBucketsType.make(undefined, undefined, 1000000); + for(let i = 0; i <= 1000000; ++i){ Belt_HashMapInt.set(table, i, i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashMapInt.has(table, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 138, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 138, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Belt_HashMapInt.remove(table, i$2); } if (table.size === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 143, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 143, + 2 + ] + } + }); } function bench7(param) { - var table = Belt_internalBucketsType.make(undefined, undefined, 2000000); - for(var i = 0; i <= 1000000; ++i){ + let table = Belt_internalBucketsType.make(undefined, undefined, 2000000); + for(let i = 0; i <= 1000000; ++i){ Belt_HashSetInt.add(table, i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_HashSetInt.has(table, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 160, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 160, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Belt_HashSetInt.remove(table, i$2); } if (table.size === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_hashtbl_string_test.res", - 170, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_hashtbl_string_test.res", + 170, + 2 + ] + } + }); } console.time("bs_hashtbl_string_test.res 181"); @@ -311,25 +311,25 @@ bench7(); console.timeEnd("bs_hashtbl_string_test.res 181"); -var N; +let N; -var count = 1000000; +let count = 1000000; -var initial_size = 1000000; +let initial_size = 1000000; -var M; +let M; -var Md; +let Md; -var Md0; +let Md0; -var H; +let H; -var H0; +let H0; -var HI; +let HI; -var S; +let S; exports.hash_string = hash_string; exports.hashString = hashString; diff --git a/jscomp/test/bs_queue_test.js b/jscomp/test/bs_queue_test.js index 0d0bf03b94..2d9e79e69a 100644 --- a/jscomp/test/bs_queue_test.js +++ b/jscomp/test/bs_queue_test.js @@ -1,17 +1,17 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Belt_Array = require("../../lib/js/belt_Array.js"); -var Belt_MutableQueue = require("../../lib/js/belt_MutableQueue.js"); +let Mt = require("./mt.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Belt_Array = require("../../lib/js/belt_Array.js"); +let Belt_MutableQueue = require("../../lib/js/belt_MutableQueue.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -38,7 +38,7 @@ function $plus$plus(q, x) { return q; } -var q = { +let q = { length: 0, first: undefined, last: undefined @@ -46,206 +46,206 @@ var q = { if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), []) && q.length === 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 25, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 25, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 1), q)), [1]) && q.length === 1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 26, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 26, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 2), q)), [ - 1, - 2 - ]) && q.length === 2)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 27, - 2 - ] - } - }); + 1, + 2 + ]) && q.length === 2)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 27, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 3), q)), [ - 1, - 2, - 3 - ]) && q.length === 3)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 28, - 2 - ] - } - }); + 1, + 2, + 3 + ]) && q.length === 3)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 28, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray((Belt_MutableQueue.add(q, 4), q)), [ - 1, - 2, - 3, - 4 - ]) && q.length === 4)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 29, - 2 - ] - } - }); + 1, + 2, + 3, + 4 + ]) && q.length === 4)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 29, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 30, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 30, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [ - 2, - 3, - 4 - ]) && q.length === 3)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 31, - 2 - ] - } - }); + 2, + 3, + 4 + ]) && q.length === 3)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 31, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 32, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 32, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [ - 3, - 4 - ]) && q.length === 2)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 33, - 2 - ] - } - }); + 3, + 4 + ]) && q.length === 2)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 33, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 34, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 34, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), [4]) && q.length === 1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 35, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 35, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q) !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 36, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 36, + 2 + ] + } + }); } if (!(Caml_obj.equal(Belt_MutableQueue.toArray(q), []) && q.length === 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 37, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 37, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 38, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 38, + 2 + ] + } + }); } -var q$1 = { +let q$1 = { length: 0, first: undefined, last: undefined @@ -253,70 +253,70 @@ var q$1 = { if (Belt_MutableQueue.popExn((Belt_MutableQueue.add(q$1, 1), q$1)) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 43, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 43, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 44, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 44, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn((Belt_MutableQueue.add(q$1, 2), q$1)) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 45, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 45, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 46, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 46, + 2 + ] + } + }); } if (q$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 47, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 47, + 2 + ] + } + }); } -var q$2 = { +let q$2 = { length: 0, first: undefined, last: undefined @@ -324,154 +324,154 @@ var q$2 = { if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 1), q$2)) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 52, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 52, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 2), q$2)) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 53, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 53, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn((Belt_MutableQueue.add(q$2, 3), q$2)) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 54, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 54, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 55, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 55, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 56, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 56, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 57, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 57, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 58, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 58, + 2 + ] + } + }); } if (Belt_MutableQueue.peekExn(q$2) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 59, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 59, + 2 + ] + } + }); } if (Belt_MutableQueue.popExn(q$2) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 60, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 60, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.peekExn, q$2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 61, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 61, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.peekExn, q$2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 62, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 62, + 2 + ] + } + }); } -var q$3 = { +let q$3 = { length: 0, first: undefined, last: undefined }; -for(var i = 1; i <= 10; ++i){ +for(let i = 1; i <= 10; ++i){ Belt_MutableQueue.add(q$3, i); } @@ -479,181 +479,181 @@ Belt_MutableQueue.clear(q$3); if (q$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 71, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 71, + 2 + ] + } + }); } if (!does_raise(Belt_MutableQueue.popExn, q$3)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 72, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 72, + 2 + ] + } + }); } if (!Caml_obj.equal(q$3, { - length: 0, - first: undefined, - last: undefined - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 73, - 2 - ] - } - }); + length: 0, + first: undefined, + last: undefined + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 73, + 2 + ] + } + }); } Belt_MutableQueue.add(q$3, 42); if (Belt_MutableQueue.popExn(q$3) !== 42) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 75, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 75, + 2 + ] + } + }); } -var q1 = { +let q1 = { length: 0, first: undefined, last: undefined }; -for(var i$1 = 1; i$1 <= 10; ++i$1){ +for(let i$1 = 1; i$1 <= 10; ++i$1){ Belt_MutableQueue.add(q1, i$1); } -var q2 = Belt_MutableQueue.copy(q1); +let q2 = Belt_MutableQueue.copy(q1); if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1), [ - 1, - 2, - 3, - 4, - 5, - 6, - 7, - 8, - 9, - 10 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 84, - 2 - ] - } - }); + 1, + 2, + 3, + 4, + 5, + 6, + 7, + 8, + 9, + 10 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 84, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2), [ - 1, - 2, - 3, - 4, - 5, - 6, - 7, - 8, - 9, - 10 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 85, - 2 - ] - } - }); + 1, + 2, + 3, + 4, + 5, + 6, + 7, + 8, + 9, + 10 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 85, + 2 + ] + } + }); } if (q1.length !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 86, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 86, + 2 + ] + } + }); } if (q2.length !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 87, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 87, + 2 + ] + } + }); } -for(var i$2 = 1; i$2 <= 10; ++i$2){ +for(let i$2 = 1; i$2 <= 10; ++i$2){ if (Belt_MutableQueue.popExn(q1) !== i$2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 89, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 89, + 4 + ] + } + }); } } -for(var i$3 = 1; i$3 <= 10; ++i$3){ +for(let i$3 = 1; i$3 <= 10; ++i$3){ if (Belt_MutableQueue.popExn(q2) !== i$3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 92, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 92, + 4 + ] + } + }); } } -var q$4 = { +let q$4 = { length: 0, first: undefined, last: undefined @@ -661,137 +661,137 @@ var q$4 = { if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 98, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 98, + 2 + ] + } + }); } -for(var i$4 = 1; i$4 <= 10; ++i$4){ +for(let i$4 = 1; i$4 <= 10; ++i$4){ Belt_MutableQueue.add(q$4, i$4); if (q$4.length !== i$4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 101, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 101, + 4 + ] + } + }); } if (q$4.length === 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 102, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 102, + 4 + ] + } + }); } } -for(var i$5 = 10; i$5 >= 1; --i$5){ +for(let i$5 = 10; i$5 >= 1; --i$5){ if (q$4.length !== i$5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 105, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 105, + 4 + ] + } + }); } if (q$4.length === 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 106, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 106, + 4 + ] + } + }); } Belt_MutableQueue.popExn(q$4); } if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 109, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 109, + 2 + ] + } + }); } if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 110, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 110, + 2 + ] + } + }); } -var q$5 = { +let q$5 = { length: 0, first: undefined, last: undefined }; -for(var i$6 = 1; i$6 <= 10; ++i$6){ +for(let i$6 = 1; i$6 <= 10; ++i$6){ Belt_MutableQueue.add(q$5, i$6); } -var i$7 = { +let i$7 = { contents: 1 }; Belt_MutableQueue.forEach(q$5, (function (j) { - if (i$7.contents !== j) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 120, - 4 - ] - } - }); - } - i$7.contents = i$7.contents + 1 | 0; - })); - -var q1$1 = { + if (i$7.contents !== j) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 120, + 4 + ] + } + }); + } + i$7.contents = i$7.contents + 1 | 0; +})); + +let q1$1 = { length: 0, first: undefined, last: undefined }; -var q2$1 = { +let q2$1 = { length: 0, first: undefined, last: undefined @@ -799,485 +799,485 @@ var q2$1 = { if (q1$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 127, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 127, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$1), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 128, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 128, + 2 + ] + } + }); } if (q2$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 129, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 129, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$1), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 130, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 130, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$1, q2$1); if (q1$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 132, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 132, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$1), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 133, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 133, + 2 + ] + } + }); } if (q2$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 134, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 134, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$1), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 135, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 135, + 2 + ] + } + }); } -var q1$2 = { +let q1$2 = { length: 0, first: undefined, last: undefined }; -var q2$2 = { +let q2$2 = { length: 0, first: undefined, last: undefined }; -for(var i$8 = 1; i$8 <= 4; ++i$8){ +for(let i$8 = 1; i$8 <= 4; ++i$8){ Belt_MutableQueue.add(q1$2, i$8); } if (q1$2.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 143, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 143, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$2), [ - 1, - 2, - 3, - 4 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 144, - 2 - ] - } - }); + 1, + 2, + 3, + 4 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 144, + 2 + ] + } + }); } if (q2$2.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 145, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 145, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$2), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 146, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 146, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$2, q2$2); if (q1$2.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 148, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 148, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$2), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 149, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 149, + 2 + ] + } + }); } if (q2$2.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 150, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 150, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$2), [ - 1, - 2, - 3, - 4 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 151, - 2 - ] - } - }); -} - -var q1$3 = { + 1, + 2, + 3, + 4 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 151, + 2 + ] + } + }); +} + +let q1$3 = { length: 0, first: undefined, last: undefined }; -var q2$3 = { +let q2$3 = { length: 0, first: undefined, last: undefined }; -for(var i$9 = 5; i$9 <= 8; ++i$9){ +for(let i$9 = 5; i$9 <= 8; ++i$9){ Belt_MutableQueue.add(q2$3, i$9); } if (q1$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 159, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 159, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$3), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 160, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 160, + 2 + ] + } + }); } if (q2$3.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 161, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 161, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ - 5, - 6, - 7, - 8 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 162, - 2 - ] - } - }); + 5, + 6, + 7, + 8 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 162, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$3, q2$3); if (q1$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 164, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 164, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$3), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 165, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 165, + 2 + ] + } + }); } if (q2$3.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 166, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 166, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$3), [ - 5, - 6, - 7, - 8 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 167, - 2 - ] - } - }); -} - -var q1$4 = { + 5, + 6, + 7, + 8 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 167, + 2 + ] + } + }); +} + +let q1$4 = { length: 0, first: undefined, last: undefined }; -var q2$4 = { +let q2$4 = { length: 0, first: undefined, last: undefined }; -for(var i$10 = 1; i$10 <= 4; ++i$10){ +for(let i$10 = 1; i$10 <= 4; ++i$10){ Belt_MutableQueue.add(q1$4, i$10); } -for(var i$11 = 5; i$11 <= 8; ++i$11){ +for(let i$11 = 5; i$11 <= 8; ++i$11){ Belt_MutableQueue.add(q2$4, i$11); } if (q1$4.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 178, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 178, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$4), [ - 1, - 2, - 3, - 4 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 179, - 2 - ] - } - }); + 1, + 2, + 3, + 4 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 179, + 2 + ] + } + }); } if (q2$4.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 180, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 180, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$4), [ - 5, - 6, - 7, - 8 - ])) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 181, - 2 - ] - } - }); + 5, + 6, + 7, + 8 + ])) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 181, + 2 + ] + } + }); } Belt_MutableQueue.transfer(q1$4, q2$4); if (q1$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 183, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 183, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q1$4), [])) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 184, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 184, + 2 + ] + } + }); } -var v = [ +let v = [ 5, 6, 7, @@ -1290,80 +1290,80 @@ var v = [ if (q2$4.length !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 186, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 186, + 2 + ] + } + }); } if (!Caml_obj.equal(Belt_MutableQueue.toArray(q2$4), v)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 187, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 187, + 2 + ] + } + }); } if (Belt_MutableQueue.reduce(q2$4, 0, (function (x, y) { - return x - y | 0; - })) !== Belt_Array.reduce(v, 0, (function (x, y) { - return x - y | 0; - }))) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_queue_test.res", - 189, - 2 - ] - } - }); + return x - y | 0; + })) !== Belt_Array.reduce(v, 0, (function (x, y) { + return x - y | 0; + }))) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_queue_test.res", + 189, + 2 + ] + } + }); } console.log("OK"); -var q$6 = Belt_MutableQueue.fromArray([ - 1, - 2, - 3, - 4 - ]); +let q$6 = Belt_MutableQueue.fromArray([ + 1, + 2, + 3, + 4 +]); -var q1$5 = Belt_MutableQueue.map(q$6, (function (x) { - return x - 1 | 0; - })); +let q1$5 = Belt_MutableQueue.map(q$6, (function (x) { + return x - 1 | 0; +})); eq("File \"bs_queue_test.res\", line 197, characters 5-12", Belt_MutableQueue.toArray(q1$5), [ - 0, - 1, - 2, - 3 - ]); + 0, + 1, + 2, + 3 +]); -var q$7 = Belt_MutableQueue.fromArray([]); +let q$7 = Belt_MutableQueue.fromArray([]); b("File \"bs_queue_test.res\", line 198, characters 4-11", q$7.length === 0); -var q$8 = Belt_MutableQueue.map(Belt_MutableQueue.fromArray([]), (function (x) { - return x + 1 | 0; - })); +let q$8 = Belt_MutableQueue.map(Belt_MutableQueue.fromArray([]), (function (x) { + return x + 1 | 0; +})); b("File \"bs_queue_test.res\", line 199, characters 4-11", q$8.length === 0); Mt.from_pair_suites("Bs_queue_test", suites.contents); -var Q; +let Q; exports.suites = suites; exports.test_id = test_id; diff --git a/jscomp/test/bs_rbset_int_bench.js b/jscomp/test/bs_rbset_int_bench.js index 1fa0c99591..3250da4a9a 100644 --- a/jscomp/test/bs_rbset_int_bench.js +++ b/jscomp/test/bs_rbset_int_bench.js @@ -1,50 +1,50 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Rbset = require("./rbset.js"); +let Rbset = require("./rbset.js"); function bench(param) { - var data = "Empty"; + let data = "Empty"; console.time("bs_rbset_int_bench.res 6"); - for(var i = 0; i <= 1000000; ++i){ + for(let i = 0; i <= 1000000; ++i){ data = Rbset.add(i, data); } console.timeEnd("bs_rbset_int_bench.res 6"); console.time("bs_rbset_int_bench.res 11"); - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Rbset.mem(i$1, data)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_rbset_int_bench.res", - 13, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_rbset_int_bench.res", + 13, + 6 + ] + } + }); } } console.timeEnd("bs_rbset_int_bench.res 11"); console.time("bs_rbset_int_bench.res 16"); - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ data = Rbset.remove(i$2, data); } console.timeEnd("bs_rbset_int_bench.res 16"); if (Rbset.cardinal(data) === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_rbset_int_bench.res", - 21, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_rbset_int_bench.res", + 21, + 2 + ] + } + }); } console.time("bs_rbset_int_bench.res 24"); @@ -53,9 +53,9 @@ bench(); console.timeEnd("bs_rbset_int_bench.res 24"); -var count = 1000000; +let count = 1000000; -var V; +let V; exports.count = count; exports.V = V; diff --git a/jscomp/test/bs_set_bench.js b/jscomp/test/bs_set_bench.js index befa194fe0..1500275233 100644 --- a/jscomp/test/bs_set_bench.js +++ b/jscomp/test/bs_set_bench.js @@ -1,50 +1,50 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Belt_SetInt = require("../../lib/js/belt_SetInt.js"); +let Belt_SetInt = require("../../lib/js/belt_SetInt.js"); function bench(param) { - var data; + let data; console.time("bs_set_bench.res 6"); - for(var i = 0; i <= 1000000; ++i){ + for(let i = 0; i <= 1000000; ++i){ data = Belt_SetInt.add(data, i); } console.timeEnd("bs_set_bench.res 6"); console.time("bs_set_bench.res 11"); - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Belt_SetInt.has(data, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_set_bench.res", - 13, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_set_bench.res", + 13, + 6 + ] + } + }); } } console.timeEnd("bs_set_bench.res 11"); console.time("bs_set_bench.res 16"); - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ data = Belt_SetInt.remove(data, i$2); } console.timeEnd("bs_set_bench.res 16"); if (Belt_SetInt.size(data) === 0) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "bs_set_bench.res", - 21, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "bs_set_bench.res", + 21, + 2 + ] + } + }); } console.time("bs_set_bench.res 24"); @@ -53,9 +53,9 @@ bench(); console.timeEnd("bs_set_bench.res 24"); -var count = 1000000; +let count = 1000000; -var N; +let N; exports.count = count; exports.N = N; diff --git a/jscomp/test/build.ninja b/jscomp/test/build.ninja index ae46110d85..de197ccdbd 100644 --- a/jscomp/test/build.ninja +++ b/jscomp/test/build.ninja @@ -23,6 +23,7 @@ o test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj : cc test/AsIn o test/Coercion.cmi test/Coercion.cmj : cc test/Coercion.res | $bsc $stdlib runtime o test/DerivingAccessorsCurried.cmi test/DerivingAccessorsCurried.cmj : cc test/DerivingAccessorsCurried.res | $bsc $stdlib runtime o test/DerivingAccessorsUncurried.cmi test/DerivingAccessorsUncurried.cmj : cc test/DerivingAccessorsUncurried.res | $bsc $stdlib runtime +o test/DictInference.cmi test/DictInference.cmj : cc test/DictInference.res | $bsc $stdlib runtime o test/DotDotDot.cmi test/DotDotDot.cmj : cc test/DotDotDot.res | $bsc $stdlib runtime o test/EmptyRecord.cmi test/EmptyRecord.cmj : cc test/EmptyRecord.res | $bsc $stdlib runtime o test/FFI.cmi test/FFI.cmj : cc test/FFI.res | $bsc $stdlib runtime @@ -85,6 +86,7 @@ o test/belt_result_alias_test.cmi test/belt_result_alias_test.cmj : cc test/belt o test/bench.cmi test/bench.cmj : cc test/bench.res | $bsc $stdlib runtime o test/big_enum.cmi test/big_enum.cmj : cc test/big_enum.res | $bsc $stdlib runtime o test/big_polyvar_test.cmi test/big_polyvar_test.cmj : cc test/big_polyvar_test.res | $bsc $stdlib runtime +o test/bigint_test.cmi test/bigint_test.cmj : cc test/bigint_test.res | test/mt.cmj test/mt_global.cmj $bsc $stdlib runtime o test/block_alias_test.cmi test/block_alias_test.cmj : cc test/block_alias_test.res | test/mt.cmj $bsc $stdlib runtime o test/boolean_test.cmi test/boolean_test.cmj : cc test/boolean_test.res | test/mt.cmj test/test_bool_equal.cmj $bsc $stdlib runtime o test/bs_MapInt_test.cmi test/bs_MapInt_test.cmj : cc test/bs_MapInt_test.res | $bsc $stdlib runtime @@ -178,6 +180,7 @@ o test/exception_alias.cmi test/exception_alias.cmj : cc test/exception_alias.re o test/exception_raise_test.cmi test/exception_raise_test.cmj : cc test/exception_raise_test.res | test/mt.cmj $bsc $stdlib runtime o test/exception_rebound_err_test.cmi test/exception_rebound_err_test.cmj : cc test/exception_rebound_err_test.res | test/mt.cmj $bsc $stdlib runtime o test/exception_value_test.cmi test/exception_value_test.cmj : cc test/exception_value_test.res | $bsc $stdlib runtime +o test/exotic_labels_test.cmi test/exotic_labels_test.cmj : cc test/exotic_labels_test.res | $bsc $stdlib runtime o test/exponentiation_precedence_test.cmi test/exponentiation_precedence_test.cmj : cc test/exponentiation_precedence_test.res | $bsc $stdlib runtime o test/export_keyword.cmi test/export_keyword.cmj : cc test/export_keyword.res | $bsc $stdlib runtime o test/ext_array_test.cmi test/ext_array_test.cmj : cc test/ext_array_test.res | $bsc $stdlib runtime @@ -213,6 +216,8 @@ o test/for_side_effect_test.cmi test/for_side_effect_test.cmj : cc test/for_side o test/format_regression.cmi test/format_regression.cmj : cc test/format_regression.res | $bsc $stdlib runtime o test/format_test.cmi test/format_test.cmj : cc test/format_test.res | test/mt.cmj $bsc $stdlib runtime o test/fun_pattern_match.cmi test/fun_pattern_match.cmj : cc test/fun_pattern_match.res | $bsc $stdlib runtime +o test/function_directives.cmi test/function_directives.cmj : cc test/function_directives.res | $bsc $stdlib runtime +o test/function_directives_no_inline.cmi test/function_directives_no_inline.cmj : cc test/function_directives_no_inline.res | $bsc $stdlib runtime o test/functor_app_test.cmi test/functor_app_test.cmj : cc test/functor_app_test.res | test/functor_def.cmj test/functor_inst.cmj test/mt.cmj $bsc $stdlib runtime o test/functor_def.cmi test/functor_def.cmj : cc test/functor_def.res | $bsc $stdlib runtime o test/functor_ffi.cmi test/functor_ffi.cmj : cc test/functor_ffi.res | $bsc $stdlib runtime @@ -717,4 +722,4 @@ o test/update_record_test.cmi test/update_record_test.cmj : cc test/update_recor o test/variant.cmi test/variant.cmj : cc test/variant.res | $bsc $stdlib runtime o test/variantsMatching.cmi test/variantsMatching.cmj : cc test/variantsMatching.res | $bsc $stdlib runtime o test/webpack_config.cmi test/webpack_config.cmj : cc test/webpack_config.res | $bsc $stdlib runtime -o test : phony test/406_primitive_test.cmi test/406_primitive_test.cmj test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj test/Coercion.cmi test/Coercion.cmj test/DerivingAccessorsCurried.cmi test/DerivingAccessorsCurried.cmj test/DerivingAccessorsUncurried.cmi test/DerivingAccessorsUncurried.cmj test/DotDotDot.cmi test/DotDotDot.cmj test/EmptyRecord.cmi test/EmptyRecord.cmj test/FFI.cmi test/FFI.cmj test/Import.cmi test/Import.cmj test/ImportAttributes.cmi test/ImportAttributes.cmj test/RecordCoercion.cmi test/RecordCoercion.cmj test/RecordOrObject.cmi test/RecordOrObject.cmj test/SafePromises.cmi test/SafePromises.cmj test/UncurriedAlways.cmi test/UncurriedAlways.cmj test/UncurriedExternals.cmi test/UncurriedExternals.cmj test/UncurriedPervasives.cmi test/UncurriedPervasives.cmj test/UntaggedVariants.cmi test/UntaggedVariants.cmj test/VariantCoercion.cmi test/VariantCoercion.cmj test/VariantSpreads.cmi test/VariantSpreads.cmj test/a.cmi test/a.cmj test/a_filename_test.cmi test/a_filename_test.cmj test/a_list_test.cmi test/a_list_test.cmj test/a_recursive_type.cmi test/a_recursive_type.cmj test/a_scope_bug.cmi test/a_scope_bug.cmj test/a_string_test.cmi test/a_string_test.cmj test/abstract_type.cmi test/abstract_type.cmj test/adt_optimize_test.cmi test/adt_optimize_test.cmj test/alias_default_value_test.cmi test/alias_default_value_test.cmj test/alias_test.cmi test/alias_test.cmj test/and_or_tailcall_test.cmi test/and_or_tailcall_test.cmj test/argv_test.cmi test/argv_test.cmj test/ari_regress_test.cmi test/ari_regress_test.cmj test/arith_lexer.cmi test/arith_lexer.cmj test/arith_parser.cmi test/arith_parser.cmj test/arith_syntax.cmi test/arith_syntax.cmj test/arity.cmi test/arity.cmj test/arity_deopt.cmi test/arity_deopt.cmj test/arity_infer.cmi test/arity_infer.cmj test/array_data_util.cmi test/array_data_util.cmj test/array_safe_get.cmi test/array_safe_get.cmj test/array_subtle_test.cmi test/array_subtle_test.cmj test/array_test.cmi test/array_test.cmj test/as_inline_record_test.cmi test/as_inline_record_test.cmj test/ast_abstract_test.cmi test/ast_abstract_test.cmj test/ast_mapper_unused_warning_test.cmi test/ast_mapper_unused_warning_test.cmj test/async_await.cmi test/async_await.cmj test/async_ideas.cmi test/async_ideas.cmj test/async_inline.cmi test/async_inline.cmj test/async_inside_loop.cmi test/async_inside_loop.cmj test/attr_test.cmi test/attr_test.cmj test/b.cmi test/b.cmj test/bal_set_mini.cmi test/bal_set_mini.cmj test/bang_primitive.cmi test/bang_primitive.cmj test/basic_module_test.cmi test/basic_module_test.cmj test/bb.cmi test/bb.cmj test/bdd.cmi test/bdd.cmj test/belt_internal_test.cmi test/belt_internal_test.cmj test/belt_result_alias_test.cmi test/belt_result_alias_test.cmj test/bench.cmi test/bench.cmj test/big_enum.cmi test/big_enum.cmj test/big_polyvar_test.cmi test/big_polyvar_test.cmj test/block_alias_test.cmi test/block_alias_test.cmj test/boolean_test.cmi test/boolean_test.cmj test/bs_MapInt_test.cmi test/bs_MapInt_test.cmj test/bs_abstract_test.cmi test/bs_abstract_test.cmj test/bs_array_test.cmi test/bs_array_test.cmj test/bs_auto_uncurry.cmi test/bs_auto_uncurry.cmj test/bs_auto_uncurry_test.cmi test/bs_auto_uncurry_test.cmj test/bs_float_test.cmi test/bs_float_test.cmj test/bs_hashmap_test.cmi test/bs_hashmap_test.cmj test/bs_hashset_int_test.cmi test/bs_hashset_int_test.cmj test/bs_hashtbl_string_test.cmi test/bs_hashtbl_string_test.cmj test/bs_ignore_effect.cmi test/bs_ignore_effect.cmj test/bs_ignore_test.cmi test/bs_ignore_test.cmj test/bs_int_test.cmi test/bs_int_test.cmj test/bs_list_test.cmi test/bs_list_test.cmj test/bs_map_set_dict_test.cmi test/bs_map_set_dict_test.cmj test/bs_map_test.cmi test/bs_map_test.cmj test/bs_min_max_test.cmi test/bs_min_max_test.cmj test/bs_mutable_set_test.cmi test/bs_mutable_set_test.cmj test/bs_poly_map_test.cmi test/bs_poly_map_test.cmj test/bs_poly_mutable_map_test.cmi test/bs_poly_mutable_map_test.cmj test/bs_poly_mutable_set_test.cmi test/bs_poly_mutable_set_test.cmj test/bs_poly_set_test.cmi test/bs_poly_set_test.cmj test/bs_qualified.cmi test/bs_qualified.cmj test/bs_queue_test.cmi test/bs_queue_test.cmj test/bs_rbset_int_bench.cmi test/bs_rbset_int_bench.cmj test/bs_rest_test.cmi test/bs_rest_test.cmj test/bs_set_bench.cmi test/bs_set_bench.cmj test/bs_set_int_test.cmi test/bs_set_int_test.cmj test/bs_sort_test.cmi test/bs_sort_test.cmj test/bs_splice_partial.cmi test/bs_splice_partial.cmj test/bs_stack_test.cmi test/bs_stack_test.cmj test/bs_string_test.cmi test/bs_string_test.cmj test/bs_unwrap_test.cmi test/bs_unwrap_test.cmj test/buffer_test.cmi test/buffer_test.cmj test/bytes_split_gpr_743_test.cmi test/bytes_split_gpr_743_test.cmj test/caml_compare_bigint_test.cmi test/caml_compare_bigint_test.cmj test/caml_compare_test.cmi test/caml_compare_test.cmj test/caml_format_test.cmi test/caml_format_test.cmj test/chain_code_test.cmi test/chain_code_test.cmj test/chn_test.cmi test/chn_test.cmj test/class_type_ffi_test.cmi test/class_type_ffi_test.cmj test/coercion_module_alias_test.cmi test/coercion_module_alias_test.cmj test/compare_test.cmi test/compare_test.cmj test/complete_parmatch_test.cmi test/complete_parmatch_test.cmj test/complex_if_test.cmi test/complex_if_test.cmj test/complex_test.cmi test/complex_test.cmj test/complex_while_loop.cmi test/complex_while_loop.cmj test/condition_compilation_test.cmi test/condition_compilation_test.cmj test/config1_test.cmi test/config1_test.cmj test/console_log_test.cmi test/console_log_test.cmj test/const_block_test.cmi test/const_block_test.cmj test/const_defs.cmi test/const_defs.cmj test/const_defs_test.cmi test/const_defs_test.cmj test/const_test.cmi test/const_test.cmj test/cont_int_fold_test.cmi test/cont_int_fold_test.cmj test/cps_test.cmi test/cps_test.cmj test/cross_module_inline_test.cmi test/cross_module_inline_test.cmj test/custom_error_test.cmi test/custom_error_test.cmj test/debug_keep_test.cmi test/debug_keep_test.cmj test/debug_mode_value.cmi test/debug_mode_value.cmj test/debug_tmp.cmi test/debug_tmp.cmj test/debugger_test.cmi test/debugger_test.cmj test/default_export_test.cmi test/default_export_test.cmj test/defunctor_make_test.cmi test/defunctor_make_test.cmj test/demo_int_map.cmi test/demo_int_map.cmj test/demo_page.cmi test/demo_page.cmj test/demo_pipe.cmi test/demo_pipe.cmj test/derive_projector_test.cmi test/derive_projector_test.cmj test/digest_test.cmi test/digest_test.cmj test/directives.cmi test/directives.cmj test/div_by_zero_test.cmi test/div_by_zero_test.cmj test/dollar_escape_test.cmi test/dollar_escape_test.cmj test/earger_curry_test.cmi test/earger_curry_test.cmj test/effect.cmi test/effect.cmj test/epsilon_test.cmi test/epsilon_test.cmj test/equal_box_test.cmi test/equal_box_test.cmj test/equal_exception_test.cmi test/equal_exception_test.cmj test/equal_test.cmi test/equal_test.cmj test/es6_export.cmi test/es6_export.cmj test/es6_import.cmi test/es6_import.cmj test/es6_module_test.cmi test/es6_module_test.cmj test/escape_esmodule.cmi test/escape_esmodule.cmj test/esmodule_ref.cmi test/esmodule_ref.cmj test/event_ffi.cmi test/event_ffi.cmj test/exception_alias.cmi test/exception_alias.cmj test/exception_raise_test.cmi test/exception_raise_test.cmj test/exception_rebound_err_test.cmi test/exception_rebound_err_test.cmj test/exception_value_test.cmi test/exception_value_test.cmj test/exponentiation_precedence_test.cmi test/exponentiation_precedence_test.cmj test/export_keyword.cmi test/export_keyword.cmj test/ext_array_test.cmi test/ext_array_test.cmj test/ext_bytes_test.cmi test/ext_bytes_test.cmj test/ext_filename_test.cmi test/ext_filename_test.cmj test/ext_list_test.cmi test/ext_list_test.cmj test/ext_pervasives_test.cmi test/ext_pervasives_test.cmj test/ext_string_test.cmi test/ext_string_test.cmj test/ext_sys_test.cmi test/ext_sys_test.cmj test/extensible_variant_test.cmi test/extensible_variant_test.cmj test/external_polyfill_test.cmi test/external_polyfill_test.cmj test/external_ppx.cmi test/external_ppx.cmj test/external_ppx2.cmi test/external_ppx2.cmj test/fail_comp.cmi test/fail_comp.cmj test/ffi_arity_test.cmi test/ffi_arity_test.cmj test/ffi_array_test.cmi test/ffi_array_test.cmj test/ffi_js_test.cmi test/ffi_js_test.cmj test/ffi_splice_test.cmi test/ffi_splice_test.cmj test/ffi_test.cmi test/ffi_test.cmj test/fib.cmi test/fib.cmj test/flattern_order_test.cmi test/flattern_order_test.cmj test/flexible_array_test.cmi test/flexible_array_test.cmj test/float_array.cmi test/float_array.cmj test/float_of_bits_test.cmi test/float_of_bits_test.cmj test/float_record.cmi test/float_record.cmj test/float_test.cmi test/float_test.cmj test/floatarray_test.cmi test/floatarray_test.cmj test/for_loop_test.cmi test/for_loop_test.cmj test/for_side_effect_test.cmi test/for_side_effect_test.cmj test/format_regression.cmi test/format_regression.cmj test/format_test.cmi test/format_test.cmj test/fun_pattern_match.cmi test/fun_pattern_match.cmj test/functor_app_test.cmi test/functor_app_test.cmj test/functor_def.cmi test/functor_def.cmj test/functor_ffi.cmi test/functor_ffi.cmj test/functor_inst.cmi test/functor_inst.cmj test/functors.cmi test/functors.cmj test/gbk.cmi test/gbk.cmj test/genlex_test.cmi test/genlex_test.cmj test/gentTypeReTest.cmi test/gentTypeReTest.cmj test/global_exception_regression_test.cmi test/global_exception_regression_test.cmj test/global_mangles.cmi test/global_mangles.cmj test/global_module_alias_test.cmi test/global_module_alias_test.cmj test/google_closure_test.cmi test/google_closure_test.cmj test/gpr496_test.cmi test/gpr496_test.cmj test/gpr_1072.cmi test/gpr_1072.cmj test/gpr_1072_reg.cmi test/gpr_1072_reg.cmj test/gpr_1150.cmi test/gpr_1150.cmj test/gpr_1154_test.cmi test/gpr_1154_test.cmj test/gpr_1170.cmi test/gpr_1170.cmj test/gpr_1240_missing_unbox.cmi test/gpr_1240_missing_unbox.cmj test/gpr_1245_test.cmi test/gpr_1245_test.cmj test/gpr_1268.cmi test/gpr_1268.cmj test/gpr_1409_test.cmi test/gpr_1409_test.cmj test/gpr_1423_app_test.cmi test/gpr_1423_app_test.cmj test/gpr_1423_nav.cmi test/gpr_1423_nav.cmj test/gpr_1438.cmi test/gpr_1438.cmj test/gpr_1481.cmi test/gpr_1481.cmj test/gpr_1484.cmi test/gpr_1484.cmj test/gpr_1503_test.cmi test/gpr_1503_test.cmj test/gpr_1539_test.cmi test/gpr_1539_test.cmj test/gpr_1658_test.cmi test/gpr_1658_test.cmj test/gpr_1667_test.cmi test/gpr_1667_test.cmj test/gpr_1692_test.cmi test/gpr_1692_test.cmj test/gpr_1698_test.cmi test/gpr_1698_test.cmj test/gpr_1701_test.cmi test/gpr_1701_test.cmj test/gpr_1716_test.cmi test/gpr_1716_test.cmj test/gpr_1717_test.cmi test/gpr_1717_test.cmj test/gpr_1728_test.cmi test/gpr_1728_test.cmj test/gpr_1749_test.cmi test/gpr_1749_test.cmj test/gpr_1759_test.cmi test/gpr_1759_test.cmj test/gpr_1760_test.cmi test/gpr_1760_test.cmj test/gpr_1762_test.cmi test/gpr_1762_test.cmj test/gpr_1817_test.cmi test/gpr_1817_test.cmj test/gpr_1822_test.cmi test/gpr_1822_test.cmj test/gpr_1891_test.cmi test/gpr_1891_test.cmj test/gpr_1943_test.cmi test/gpr_1943_test.cmj test/gpr_1946_test.cmi test/gpr_1946_test.cmj test/gpr_2316_test.cmi test/gpr_2316_test.cmj test/gpr_2352_test.cmi test/gpr_2352_test.cmj test/gpr_2413_test.cmi test/gpr_2413_test.cmj test/gpr_2474.cmi test/gpr_2474.cmj test/gpr_2487.cmi test/gpr_2487.cmj test/gpr_2503_test.cmi test/gpr_2503_test.cmj test/gpr_2608_test.cmi test/gpr_2608_test.cmj test/gpr_2614_test.cmi test/gpr_2614_test.cmj test/gpr_2633_test.cmi test/gpr_2633_test.cmj test/gpr_2642_test.cmi test/gpr_2642_test.cmj test/gpr_2682_test.cmi test/gpr_2682_test.cmj test/gpr_2700_test.cmi test/gpr_2700_test.cmj test/gpr_2731_test.cmi test/gpr_2731_test.cmj test/gpr_2789_test.cmi test/gpr_2789_test.cmj test/gpr_2931_test.cmi test/gpr_2931_test.cmj test/gpr_3142_test.cmi test/gpr_3142_test.cmj test/gpr_3154_test.cmi test/gpr_3154_test.cmj test/gpr_3209_test.cmi test/gpr_3209_test.cmj test/gpr_3492_test.cmi test/gpr_3492_test.cmj test/gpr_3519_jsx_test.cmi test/gpr_3519_jsx_test.cmj test/gpr_3519_test.cmi test/gpr_3519_test.cmj test/gpr_3536_test.cmi test/gpr_3536_test.cmj test/gpr_3546_test.cmi test/gpr_3546_test.cmj test/gpr_3548_test.cmi test/gpr_3548_test.cmj test/gpr_3549_test.cmi test/gpr_3549_test.cmj test/gpr_3566_drive_test.cmi test/gpr_3566_drive_test.cmj test/gpr_3566_test.cmi test/gpr_3566_test.cmj test/gpr_3595_test.cmi test/gpr_3595_test.cmj test/gpr_3609_test.cmi test/gpr_3609_test.cmj test/gpr_3697_test.cmi test/gpr_3697_test.cmj test/gpr_373_test.cmi test/gpr_373_test.cmj test/gpr_3770_test.cmi test/gpr_3770_test.cmj test/gpr_3852_alias.cmi test/gpr_3852_alias.cmj test/gpr_3852_alias_reify.cmi test/gpr_3852_alias_reify.cmj test/gpr_3852_effect.cmi test/gpr_3852_effect.cmj test/gpr_3865.cmi test/gpr_3865.cmj test/gpr_3865_bar.cmi test/gpr_3865_bar.cmj test/gpr_3865_foo.cmi test/gpr_3865_foo.cmj test/gpr_3875_test.cmi test/gpr_3875_test.cmj test/gpr_3877_test.cmi test/gpr_3877_test.cmj test/gpr_3895_test.cmi test/gpr_3895_test.cmj test/gpr_3897_test.cmi test/gpr_3897_test.cmj test/gpr_3931_test.cmi test/gpr_3931_test.cmj test/gpr_3980_test.cmi test/gpr_3980_test.cmj test/gpr_4025_test.cmi test/gpr_4025_test.cmj test/gpr_405_test.cmi test/gpr_405_test.cmj test/gpr_4069_test.cmi test/gpr_4069_test.cmj test/gpr_4265_test.cmi test/gpr_4265_test.cmj test/gpr_4274_test.cmi test/gpr_4274_test.cmj test/gpr_4280_test.cmi test/gpr_4280_test.cmj test/gpr_4407_test.cmi test/gpr_4407_test.cmj test/gpr_441.cmi test/gpr_441.cmj test/gpr_4442_test.cmi test/gpr_4442_test.cmj test/gpr_4491_test.cmi test/gpr_4491_test.cmj test/gpr_4494_test.cmi test/gpr_4494_test.cmj test/gpr_4519_test.cmi test/gpr_4519_test.cmj test/gpr_459_test.cmi test/gpr_459_test.cmj test/gpr_4632.cmi test/gpr_4632.cmj test/gpr_4639_test.cmi test/gpr_4639_test.cmj test/gpr_4900_test.cmi test/gpr_4900_test.cmj test/gpr_4924_test.cmi test/gpr_4924_test.cmj test/gpr_4931.cmi test/gpr_4931.cmj test/gpr_4931_allow.cmi test/gpr_4931_allow.cmj test/gpr_5071_test.cmi test/gpr_5071_test.cmj test/gpr_5169_test.cmi test/gpr_5169_test.cmj test/gpr_5218_test.cmi test/gpr_5218_test.cmj test/gpr_5280_optimize_test.cmi test/gpr_5280_optimize_test.cmj test/gpr_5312.cmi test/gpr_5312.cmj test/gpr_5557.cmi test/gpr_5557.cmj test/gpr_5753.cmi test/gpr_5753.cmj test/gpr_658.cmi test/gpr_658.cmj test/gpr_858_test.cmi test/gpr_858_test.cmj test/gpr_858_unit2_test.cmi test/gpr_858_unit2_test.cmj test/gpr_904_test.cmi test/gpr_904_test.cmj test/gpr_974_test.cmi test/gpr_974_test.cmj test/gpr_977_test.cmi test/gpr_977_test.cmj test/gpr_return_type_unused_attribute.cmi test/gpr_return_type_unused_attribute.cmj test/gray_code_test.cmi test/gray_code_test.cmj test/guide_for_ext.cmi test/guide_for_ext.cmj test/hash_collision_test.cmi test/hash_collision_test.cmj test/hash_sugar_desugar.cmi test/hash_sugar_desugar.cmj test/hash_test.cmi test/hash_test.cmj test/hashtbl_test.cmi test/hashtbl_test.cmj test/hello.foo.cmi test/hello.foo.cmj test/hello_res.cmi test/hello_res.cmj test/ignore_test.cmi test/ignore_test.cmj test/imm_map_bench.cmi test/imm_map_bench.cmj test/import2.cmi test/import2.cmj test/import_external.cmi test/import_external.cmj test/import_side_effect.cmi test/import_side_effect.cmj test/import_side_effect_free.cmi test/import_side_effect_free.cmj test/include_side_effect.cmi test/include_side_effect.cmj test/include_side_effect_free.cmi test/include_side_effect_free.cmj test/incomplete_toplevel_test.cmi test/incomplete_toplevel_test.cmj test/infer_type_test.cmi test/infer_type_test.cmj test/inline_condition_with_pattern_matching.cmi test/inline_condition_with_pattern_matching.cmj test/inline_const.cmi test/inline_const.cmj test/inline_const_test.cmi test/inline_const_test.cmj test/inline_edge_cases.cmi test/inline_edge_cases.cmj test/inline_map2_test.cmi test/inline_map2_test.cmj test/inline_map_demo.cmi test/inline_map_demo.cmj test/inline_map_test.cmi test/inline_map_test.cmj test/inline_record_test.cmi test/inline_record_test.cmj test/inline_regression_test.cmi test/inline_regression_test.cmj test/inline_string_test.cmi test/inline_string_test.cmj test/inner_call.cmi test/inner_call.cmj test/inner_define.cmi test/inner_define.cmj test/inner_unused.cmi test/inner_unused.cmj test/installation_test.cmi test/installation_test.cmj test/int32_test.cmi test/int32_test.cmj test/int64_mul_div_test.cmi test/int64_mul_div_test.cmj test/int64_string_bench.cmi test/int64_string_bench.cmj test/int64_string_test.cmi test/int64_string_test.cmj test/int64_test.cmi test/int64_test.cmj test/int_hashtbl_test.cmi test/int_hashtbl_test.cmj test/int_map.cmi test/int_map.cmj test/int_overflow_test.cmi test/int_overflow_test.cmj test/int_poly_var.cmi test/int_poly_var.cmj test/int_switch_test.cmi test/int_switch_test.cmj test/internal_unused_test.cmi test/internal_unused_test.cmj test/io_test.cmi test/io_test.cmj test/js_array_test.cmi test/js_array_test.cmj test/js_bool_test.cmi test/js_bool_test.cmj test/js_cast_test.cmi test/js_cast_test.cmj test/js_date_test.cmi test/js_date_test.cmj test/js_dict_test.cmi test/js_dict_test.cmj test/js_exception_catch_test.cmi test/js_exception_catch_test.cmj test/js_float_test.cmi test/js_float_test.cmj test/js_global_test.cmi test/js_global_test.cmj test/js_int_test.cmi test/js_int_test.cmj test/js_json_test.cmi test/js_json_test.cmj test/js_list_test.cmi test/js_list_test.cmj test/js_math_test.cmi test/js_math_test.cmj test/js_null_test.cmi test/js_null_test.cmj test/js_null_undefined_test.cmi test/js_null_undefined_test.cmj test/js_nullable_test.cmi test/js_nullable_test.cmj test/js_obj_test.cmi test/js_obj_test.cmj test/js_option_test.cmi test/js_option_test.cmj test/js_re_test.cmi test/js_re_test.cmj test/js_string_test.cmi test/js_string_test.cmj test/js_typed_array_test.cmi test/js_typed_array_test.cmj test/js_undefined_test.cmi test/js_undefined_test.cmj test/js_val.cmi test/js_val.cmj test/jsoo_400_test.cmi test/jsoo_400_test.cmj test/jsoo_485_test.cmi test/jsoo_485_test.cmj test/jsxv4_newtype.cmi test/jsxv4_newtype.cmj test/key_word_property.cmi test/key_word_property.cmj test/key_word_property2.cmi test/key_word_property2.cmj test/key_word_property_plus_test.cmi test/key_word_property_plus_test.cmj test/label_uncurry.cmi test/label_uncurry.cmj test/large_integer_pat.cmi test/large_integer_pat.cmj test/large_record_duplication_test.cmi test/large_record_duplication_test.cmj test/largest_int_flow.cmi test/largest_int_flow.cmj test/lazy_demo.cmi test/lazy_demo.cmj test/lazy_test.cmi test/lazy_test.cmj test/lib_js_test.cmi test/lib_js_test.cmj test/libarg_test.cmi test/libarg_test.cmj test/libqueue_test.cmi test/libqueue_test.cmj test/limits_test.cmi test/limits_test.cmj test/list_stack.cmi test/list_stack.cmj test/list_test.cmi test/list_test.cmj test/local_exception_test.cmi test/local_exception_test.cmj test/loop_regression_test.cmi test/loop_regression_test.cmj test/loop_suites_test.cmi test/loop_suites_test.cmj test/map_find_test.cmi test/map_find_test.cmj test/map_test.cmi test/map_test.cmj test/mario_game.cmi test/mario_game.cmj test/marshal.cmi test/marshal.cmj test/meth_annotation.cmi test/meth_annotation.cmj test/method_name_test.cmi test/method_name_test.cmj test/method_string_name.cmi test/method_string_name.cmj test/minimal_test.cmi test/minimal_test.cmj test/miss_colon_test.cmi test/miss_colon_test.cmj test/mock_mt.cmi test/mock_mt.cmj test/module_alias_test.cmi test/module_alias_test.cmj test/module_as_class_ffi.cmi test/module_as_class_ffi.cmj test/module_as_function.cmi test/module_as_function.cmj test/module_missing_conversion.cmi test/module_missing_conversion.cmj test/module_parameter_test.cmi test/module_parameter_test.cmj test/module_splice_test.cmi test/module_splice_test.cmj test/more_poly_variant_test.cmi test/more_poly_variant_test.cmj test/more_uncurry.cmi test/more_uncurry.cmj test/mpr_6033_test.cmi test/mpr_6033_test.cmj test/mt.cmi test/mt.cmj test/mt_global.cmi test/mt_global.cmj test/mutable_obj_test.cmi test/mutable_obj_test.cmj test/mutable_uncurry_test.cmi test/mutable_uncurry_test.cmj test/mutual_non_recursive_type.cmi test/mutual_non_recursive_type.cmj test/name_mangle_test.cmi test/name_mangle_test.cmj test/nested_include.cmi test/nested_include.cmj test/nested_module_alias.cmi test/nested_module_alias.cmj test/nested_obj_literal.cmi test/nested_obj_literal.cmj test/nested_obj_test.cmi test/nested_obj_test.cmj test/nested_pattern_match_test.cmi test/nested_pattern_match_test.cmj test/noassert.cmi test/noassert.cmj test/node_path_test.cmi test/node_path_test.cmj test/null_list_test.cmi test/null_list_test.cmj test/number_lexer.cmi test/number_lexer.cmj test/obj_literal_ppx.cmi test/obj_literal_ppx.cmj test/obj_literal_ppx_test.cmi test/obj_literal_ppx_test.cmj test/obj_magic_test.cmi test/obj_magic_test.cmj test/obj_type_test.cmi test/obj_type_test.cmj test/ocaml_re_test.cmi test/ocaml_re_test.cmj test/of_string_test.cmi test/of_string_test.cmj test/offset.cmi test/offset.cmj test/omit_trailing_undefined_in_external_calls.cmi test/omit_trailing_undefined_in_external_calls.cmj test/option_encoding_test.cmi test/option_encoding_test.cmj test/option_record_none_test.cmi test/option_record_none_test.cmj test/option_repr_test.cmi test/option_repr_test.cmj test/optional_ffi_test.cmi test/optional_ffi_test.cmj test/optional_regression_test.cmi test/optional_regression_test.cmj test/pipe_send_readline.cmi test/pipe_send_readline.cmj test/pipe_syntax.cmi test/pipe_syntax.cmj test/poly_empty_array.cmi test/poly_empty_array.cmj test/poly_variant_test.cmi test/poly_variant_test.cmj test/polymorphic_raw_test.cmi test/polymorphic_raw_test.cmj test/polymorphism_test.cmi test/polymorphism_test.cmj test/polyvar_convert.cmi test/polyvar_convert.cmj test/polyvar_test.cmi test/polyvar_test.cmj test/ppx_apply_test.cmi test/ppx_apply_test.cmj test/pq_test.cmi test/pq_test.cmj test/pr6726.cmi test/pr6726.cmj test/pr_regression_test.cmi test/pr_regression_test.cmj test/prepend_data_ffi.cmi test/prepend_data_ffi.cmj test/primitive_reg_test.cmi test/primitive_reg_test.cmj test/print_alpha_test.cmi test/print_alpha_test.cmj test/queue_402.cmi test/queue_402.cmj test/queue_test.cmi test/queue_test.cmj test/random_test.cmi test/random_test.cmj test/raw_hash_tbl_bench.cmi test/raw_hash_tbl_bench.cmj test/raw_output_test.cmi test/raw_output_test.cmj test/raw_pure_test.cmi test/raw_pure_test.cmj test/rbset.cmi test/rbset.cmj test/react.cmi test/react.cmj test/reactDOMRe.cmi test/reactDOMRe.cmj test/reactDOMServerRe.cmi test/reactDOMServerRe.cmj test/reactEvent.cmi test/reactEvent.cmj test/reactTestUtils.cmi test/reactTestUtils.cmj test/reasonReact.cmi test/reasonReact.cmj test/reasonReactCompat.cmi test/reasonReactCompat.cmj test/reasonReactOptimizedCreateClass.cmi test/reasonReactOptimizedCreateClass.cmj test/reasonReactRouter.cmi test/reasonReactRouter.cmj test/rebind_module.cmi test/rebind_module.cmj test/rebind_module_test.cmi test/rebind_module_test.cmj test/rec_array_test.cmi test/rec_array_test.cmj test/rec_fun_test.cmi test/rec_fun_test.cmj test/rec_module_opt.cmi test/rec_module_opt.cmj test/rec_module_test.cmi test/rec_module_test.cmj test/recmodule.cmi test/recmodule.cmj test/record_debug_test.cmi test/record_debug_test.cmj test/record_extension_test.cmi test/record_extension_test.cmj test/record_name_test.cmi test/record_name_test.cmj test/record_regression.cmi test/record_regression.cmj test/record_type_spread.cmi test/record_type_spread.cmj test/record_with_test.cmi test/record_with_test.cmj test/recursive_module.cmi test/recursive_module.cmj test/recursive_module_test.cmi test/recursive_module_test.cmj test/recursive_react_component.cmi test/recursive_react_component.cmj test/recursive_records_test.cmi test/recursive_records_test.cmj test/recursive_unbound_module_test.cmi test/recursive_unbound_module_test.cmj test/regression_print.cmi test/regression_print.cmj test/relative_path.cmi test/relative_path.cmj test/res_debug.cmi test/res_debug.cmj test/return_check.cmi test/return_check.cmj test/runtime_encoding_test.cmi test/runtime_encoding_test.cmj test/set_annotation.cmi test/set_annotation.cmj test/set_gen.cmi test/set_gen.cmj test/sexp.cmi test/sexp.cmj test/sexpm.cmi test/sexpm.cmj test/sexpm_test.cmi test/sexpm_test.cmj test/side_effect.cmi test/side_effect.cmj test/side_effect2.cmi test/side_effect2.cmj test/side_effect_free.cmi test/side_effect_free.cmj test/simplify_lambda_632o.cmi test/simplify_lambda_632o.cmj test/single_module_alias.cmi test/single_module_alias.cmj test/singular_unit_test.cmi test/singular_unit_test.cmj test/small_inline_test.cmi test/small_inline_test.cmj test/splice_test.cmi test/splice_test.cmj test/stack_comp_test.cmi test/stack_comp_test.cmj test/stack_test.cmi test/stack_test.cmj test/stream_parser_test.cmi test/stream_parser_test.cmj test/string_bound_get_test.cmi test/string_bound_get_test.cmj test/string_constant_compare.cmi test/string_constant_compare.cmj test/string_get_set_test.cmi test/string_get_set_test.cmj test/string_runtime_test.cmi test/string_runtime_test.cmj test/string_set.cmi test/string_set.cmj test/string_set_test.cmi test/string_set_test.cmj test/string_test.cmi test/string_test.cmj test/string_unicode_test.cmi test/string_unicode_test.cmj test/stringmatch_test.cmi test/stringmatch_test.cmj test/submodule.cmi test/submodule.cmj test/submodule_call.cmi test/submodule_call.cmj test/switch_case_test.cmi test/switch_case_test.cmj test/switch_string.cmi test/switch_string.cmj test/tagged_template_test.cmi test/tagged_template_test.cmj test/tailcall_inline_test.cmi test/tailcall_inline_test.cmj test/template.cmi test/template.cmj test/test.cmi test/test.cmj test/test2.cmi test/test2.cmj test/test_alias.cmi test/test_alias.cmj test/test_ari.cmi test/test_ari.cmj test/test_array.cmi test/test_array.cmj test/test_array_append.cmi test/test_array_append.cmj test/test_array_primitive.cmi test/test_array_primitive.cmj test/test_bool_equal.cmi test/test_bool_equal.cmj test/test_bs_this.cmi test/test_bs_this.cmj test/test_bug.cmi test/test_bug.cmj test/test_bytes.cmi test/test_bytes.cmj test/test_case_opt_collision.cmi test/test_case_opt_collision.cmj test/test_case_set.cmi test/test_case_set.cmj test/test_char.cmi test/test_char.cmj test/test_closure.cmi test/test_closure.cmj test/test_common.cmi test/test_common.cmj test/test_const_elim.cmi test/test_const_elim.cmj test/test_const_propogate.cmi test/test_const_propogate.cmj test/test_cpp.cmi test/test_cpp.cmj test/test_cps.cmi test/test_cps.cmj test/test_demo.cmi test/test_demo.cmj test/test_dup_param.cmi test/test_dup_param.cmj test/test_eq.cmi test/test_eq.cmj test/test_exception.cmi test/test_exception.cmj test/test_exception_escape.cmi test/test_exception_escape.cmj test/test_export2.cmi test/test_export2.cmj test/test_external.cmi test/test_external.cmj test/test_external_unit.cmi test/test_external_unit.cmj test/test_ffi.cmi test/test_ffi.cmj test/test_fib.cmi test/test_fib.cmj test/test_filename.cmi test/test_filename.cmj test/test_for_loop.cmi test/test_for_loop.cmj test/test_for_map.cmi test/test_for_map.cmj test/test_for_map2.cmi test/test_for_map2.cmj test/test_format.cmi test/test_format.cmj test/test_formatter.cmi test/test_formatter.cmj test/test_functor_dead_code.cmi test/test_functor_dead_code.cmj test/test_generative_module.cmi test/test_generative_module.cmj test/test_global_print.cmi test/test_global_print.cmj test/test_google_closure.cmi test/test_google_closure.cmj test/test_include.cmi test/test_include.cmj test/test_incomplete.cmi test/test_incomplete.cmj test/test_incr_ref.cmi test/test_incr_ref.cmj test/test_int_map_find.cmi test/test_int_map_find.cmj test/test_internalOO.cmi test/test_internalOO.cmj test/test_is_js.cmi test/test_is_js.cmj test/test_js_ffi.cmi test/test_js_ffi.cmj test/test_let.cmi test/test_let.cmj test/test_list.cmi test/test_list.cmj test/test_literal.cmi test/test_literal.cmj test/test_literals.cmi test/test_literals.cmj test/test_match_exception.cmi test/test_match_exception.cmj test/test_mutliple.cmi test/test_mutliple.cmj test/test_nat64.cmi test/test_nat64.cmj test/test_nested_let.cmi test/test_nested_let.cmj test/test_nested_print.cmi test/test_nested_print.cmj test/test_non_export.cmi test/test_non_export.cmj test/test_nullary.cmi test/test_nullary.cmj test/test_obj.cmi test/test_obj.cmj test/test_order.cmi test/test_order.cmj test/test_order_tailcall.cmi test/test_order_tailcall.cmj test/test_other_exn.cmi test/test_other_exn.cmj test/test_pack.cmi test/test_pack.cmj test/test_per.cmi test/test_per.cmj test/test_pervasive.cmi test/test_pervasive.cmj test/test_pervasives2.cmi test/test_pervasives2.cmj test/test_pervasives3.cmi test/test_pervasives3.cmj test/test_primitive.cmi test/test_primitive.cmj test/test_ramification.cmi test/test_ramification.cmj test/test_react.cmi test/test_react.cmj test/test_react_case.cmi test/test_react_case.cmj test/test_regex.cmi test/test_regex.cmj test/test_runtime_encoding.cmi test/test_runtime_encoding.cmj test/test_scope.cmi test/test_scope.cmj test/test_seq.cmi test/test_seq.cmj test/test_set.cmi test/test_set.cmj test/test_side_effect_functor.cmi test/test_side_effect_functor.cmj test/test_simple_include.cmi test/test_simple_include.cmj test/test_simple_pattern_match.cmi test/test_simple_pattern_match.cmj test/test_simple_ref.cmi test/test_simple_ref.cmj test/test_simple_tailcall.cmi test/test_simple_tailcall.cmj test/test_small.cmi test/test_small.cmj test/test_sprintf.cmi test/test_sprintf.cmj test/test_stack.cmi test/test_stack.cmj test/test_static_catch_ident.cmi test/test_static_catch_ident.cmj test/test_string.cmi test/test_string.cmj test/test_string_case.cmi test/test_string_case.cmj test/test_string_const.cmi test/test_string_const.cmj test/test_string_map.cmi test/test_string_map.cmj test/test_string_switch.cmi test/test_string_switch.cmj test/test_switch.cmi test/test_switch.cmj test/test_trywith.cmi test/test_trywith.cmj test/test_tuple.cmi test/test_tuple.cmj test/test_tuple_destructring.cmi test/test_tuple_destructring.cmj test/test_type_based_arity.cmi test/test_type_based_arity.cmj test/test_u.cmi test/test_u.cmj test/test_unknown.cmi test/test_unknown.cmj test/test_unsafe_cmp.cmi test/test_unsafe_cmp.cmj test/test_unsafe_obj_ffi.cmi test/test_unsafe_obj_ffi.cmj test/test_unsafe_obj_ffi_ppx.cmi test/test_unsafe_obj_ffi_ppx.cmj test/test_unsupported_primitive.cmi test/test_unsupported_primitive.cmj test/test_while_closure.cmi test/test_while_closure.cmj test/test_while_side_effect.cmi test/test_while_side_effect.cmj test/test_zero_nullable.cmi test/test_zero_nullable.cmj test/then_mangle_test.cmi test/then_mangle_test.cmj test/ticker.cmi test/ticker.cmj test/to_string_test.cmi test/to_string_test.cmj test/topsort_test.cmi test/topsort_test.cmj test/tramp_fib.cmi test/tramp_fib.cmj test/tuple_alloc.cmi test/tuple_alloc.cmj test/type_disambiguate.cmi test/type_disambiguate.cmj test/typeof_test.cmi test/typeof_test.cmj test/unboxed_attribute.cmi test/unboxed_attribute.cmj test/unboxed_attribute_test.cmi test/unboxed_attribute_test.cmj test/unboxed_crash.cmi test/unboxed_crash.cmj test/unboxed_use_case.cmi test/unboxed_use_case.cmj test/uncurried_cast.cmi test/uncurried_cast.cmj test/uncurried_default.args.cmi test/uncurried_default.args.cmj test/uncurried_pipe.cmi test/uncurried_pipe.cmj test/uncurry_external_test.cmi test/uncurry_external_test.cmj test/uncurry_glob_test.cmi test/uncurry_glob_test.cmj test/uncurry_test.cmi test/uncurry_test.cmj test/undef_regression2_test.cmi test/undef_regression2_test.cmj test/undef_regression_test.cmi test/undef_regression_test.cmj test/undefine_conditional.cmi test/undefine_conditional.cmj test/unicode_type_error.cmi test/unicode_type_error.cmj test/unit_undefined_test.cmi test/unit_undefined_test.cmj test/unitest_string.cmi test/unitest_string.cmj test/unsafe_full_apply_primitive.cmi test/unsafe_full_apply_primitive.cmj test/unsafe_ppx_test.cmi test/unsafe_ppx_test.cmj test/update_record_test.cmi test/update_record_test.cmj test/variant.cmi test/variant.cmj test/variantsMatching.cmi test/variantsMatching.cmj test/webpack_config.cmi test/webpack_config.cmj +o test : phony test/406_primitive_test.cmi test/406_primitive_test.cmj test/AsInUncurriedExternals.cmi test/AsInUncurriedExternals.cmj test/Coercion.cmi test/Coercion.cmj test/DerivingAccessorsCurried.cmi test/DerivingAccessorsCurried.cmj test/DerivingAccessorsUncurried.cmi test/DerivingAccessorsUncurried.cmj test/DictInference.cmi test/DictInference.cmj test/DotDotDot.cmi test/DotDotDot.cmj test/EmptyRecord.cmi test/EmptyRecord.cmj test/FFI.cmi test/FFI.cmj test/Import.cmi test/Import.cmj test/ImportAttributes.cmi test/ImportAttributes.cmj test/RecordCoercion.cmi test/RecordCoercion.cmj test/RecordOrObject.cmi test/RecordOrObject.cmj test/SafePromises.cmi test/SafePromises.cmj test/UncurriedAlways.cmi test/UncurriedAlways.cmj test/UncurriedExternals.cmi test/UncurriedExternals.cmj test/UncurriedPervasives.cmi test/UncurriedPervasives.cmj test/UntaggedVariants.cmi test/UntaggedVariants.cmj test/VariantCoercion.cmi test/VariantCoercion.cmj test/VariantSpreads.cmi test/VariantSpreads.cmj test/a.cmi test/a.cmj test/a_filename_test.cmi test/a_filename_test.cmj test/a_list_test.cmi test/a_list_test.cmj test/a_recursive_type.cmi test/a_recursive_type.cmj test/a_scope_bug.cmi test/a_scope_bug.cmj test/a_string_test.cmi test/a_string_test.cmj test/abstract_type.cmi test/abstract_type.cmj test/adt_optimize_test.cmi test/adt_optimize_test.cmj test/alias_default_value_test.cmi test/alias_default_value_test.cmj test/alias_test.cmi test/alias_test.cmj test/and_or_tailcall_test.cmi test/and_or_tailcall_test.cmj test/argv_test.cmi test/argv_test.cmj test/ari_regress_test.cmi test/ari_regress_test.cmj test/arith_lexer.cmi test/arith_lexer.cmj test/arith_parser.cmi test/arith_parser.cmj test/arith_syntax.cmi test/arith_syntax.cmj test/arity.cmi test/arity.cmj test/arity_deopt.cmi test/arity_deopt.cmj test/arity_infer.cmi test/arity_infer.cmj test/array_data_util.cmi test/array_data_util.cmj test/array_safe_get.cmi test/array_safe_get.cmj test/array_subtle_test.cmi test/array_subtle_test.cmj test/array_test.cmi test/array_test.cmj test/as_inline_record_test.cmi test/as_inline_record_test.cmj test/ast_abstract_test.cmi test/ast_abstract_test.cmj test/ast_mapper_unused_warning_test.cmi test/ast_mapper_unused_warning_test.cmj test/async_await.cmi test/async_await.cmj test/async_ideas.cmi test/async_ideas.cmj test/async_inline.cmi test/async_inline.cmj test/async_inside_loop.cmi test/async_inside_loop.cmj test/attr_test.cmi test/attr_test.cmj test/b.cmi test/b.cmj test/bal_set_mini.cmi test/bal_set_mini.cmj test/bang_primitive.cmi test/bang_primitive.cmj test/basic_module_test.cmi test/basic_module_test.cmj test/bb.cmi test/bb.cmj test/bdd.cmi test/bdd.cmj test/belt_internal_test.cmi test/belt_internal_test.cmj test/belt_result_alias_test.cmi test/belt_result_alias_test.cmj test/bench.cmi test/bench.cmj test/big_enum.cmi test/big_enum.cmj test/big_polyvar_test.cmi test/big_polyvar_test.cmj test/bigint_test.cmi test/bigint_test.cmj test/block_alias_test.cmi test/block_alias_test.cmj test/boolean_test.cmi test/boolean_test.cmj test/bs_MapInt_test.cmi test/bs_MapInt_test.cmj test/bs_abstract_test.cmi test/bs_abstract_test.cmj test/bs_array_test.cmi test/bs_array_test.cmj test/bs_auto_uncurry.cmi test/bs_auto_uncurry.cmj test/bs_auto_uncurry_test.cmi test/bs_auto_uncurry_test.cmj test/bs_float_test.cmi test/bs_float_test.cmj test/bs_hashmap_test.cmi test/bs_hashmap_test.cmj test/bs_hashset_int_test.cmi test/bs_hashset_int_test.cmj test/bs_hashtbl_string_test.cmi test/bs_hashtbl_string_test.cmj test/bs_ignore_effect.cmi test/bs_ignore_effect.cmj test/bs_ignore_test.cmi test/bs_ignore_test.cmj test/bs_int_test.cmi test/bs_int_test.cmj test/bs_list_test.cmi test/bs_list_test.cmj test/bs_map_set_dict_test.cmi test/bs_map_set_dict_test.cmj test/bs_map_test.cmi test/bs_map_test.cmj test/bs_min_max_test.cmi test/bs_min_max_test.cmj test/bs_mutable_set_test.cmi test/bs_mutable_set_test.cmj test/bs_poly_map_test.cmi test/bs_poly_map_test.cmj test/bs_poly_mutable_map_test.cmi test/bs_poly_mutable_map_test.cmj test/bs_poly_mutable_set_test.cmi test/bs_poly_mutable_set_test.cmj test/bs_poly_set_test.cmi test/bs_poly_set_test.cmj test/bs_qualified.cmi test/bs_qualified.cmj test/bs_queue_test.cmi test/bs_queue_test.cmj test/bs_rbset_int_bench.cmi test/bs_rbset_int_bench.cmj test/bs_rest_test.cmi test/bs_rest_test.cmj test/bs_set_bench.cmi test/bs_set_bench.cmj test/bs_set_int_test.cmi test/bs_set_int_test.cmj test/bs_sort_test.cmi test/bs_sort_test.cmj test/bs_splice_partial.cmi test/bs_splice_partial.cmj test/bs_stack_test.cmi test/bs_stack_test.cmj test/bs_string_test.cmi test/bs_string_test.cmj test/bs_unwrap_test.cmi test/bs_unwrap_test.cmj test/buffer_test.cmi test/buffer_test.cmj test/bytes_split_gpr_743_test.cmi test/bytes_split_gpr_743_test.cmj test/caml_compare_bigint_test.cmi test/caml_compare_bigint_test.cmj test/caml_compare_test.cmi test/caml_compare_test.cmj test/caml_format_test.cmi test/caml_format_test.cmj test/chain_code_test.cmi test/chain_code_test.cmj test/chn_test.cmi test/chn_test.cmj test/class_type_ffi_test.cmi test/class_type_ffi_test.cmj test/coercion_module_alias_test.cmi test/coercion_module_alias_test.cmj test/compare_test.cmi test/compare_test.cmj test/complete_parmatch_test.cmi test/complete_parmatch_test.cmj test/complex_if_test.cmi test/complex_if_test.cmj test/complex_test.cmi test/complex_test.cmj test/complex_while_loop.cmi test/complex_while_loop.cmj test/condition_compilation_test.cmi test/condition_compilation_test.cmj test/config1_test.cmi test/config1_test.cmj test/console_log_test.cmi test/console_log_test.cmj test/const_block_test.cmi test/const_block_test.cmj test/const_defs.cmi test/const_defs.cmj test/const_defs_test.cmi test/const_defs_test.cmj test/const_test.cmi test/const_test.cmj test/cont_int_fold_test.cmi test/cont_int_fold_test.cmj test/cps_test.cmi test/cps_test.cmj test/cross_module_inline_test.cmi test/cross_module_inline_test.cmj test/custom_error_test.cmi test/custom_error_test.cmj test/debug_keep_test.cmi test/debug_keep_test.cmj test/debug_mode_value.cmi test/debug_mode_value.cmj test/debug_tmp.cmi test/debug_tmp.cmj test/debugger_test.cmi test/debugger_test.cmj test/default_export_test.cmi test/default_export_test.cmj test/defunctor_make_test.cmi test/defunctor_make_test.cmj test/demo_int_map.cmi test/demo_int_map.cmj test/demo_page.cmi test/demo_page.cmj test/demo_pipe.cmi test/demo_pipe.cmj test/derive_projector_test.cmi test/derive_projector_test.cmj test/digest_test.cmi test/digest_test.cmj test/directives.cmi test/directives.cmj test/div_by_zero_test.cmi test/div_by_zero_test.cmj test/dollar_escape_test.cmi test/dollar_escape_test.cmj test/earger_curry_test.cmi test/earger_curry_test.cmj test/effect.cmi test/effect.cmj test/epsilon_test.cmi test/epsilon_test.cmj test/equal_box_test.cmi test/equal_box_test.cmj test/equal_exception_test.cmi test/equal_exception_test.cmj test/equal_test.cmi test/equal_test.cmj test/es6_export.cmi test/es6_export.cmj test/es6_import.cmi test/es6_import.cmj test/es6_module_test.cmi test/es6_module_test.cmj test/escape_esmodule.cmi test/escape_esmodule.cmj test/esmodule_ref.cmi test/esmodule_ref.cmj test/event_ffi.cmi test/event_ffi.cmj test/exception_alias.cmi test/exception_alias.cmj test/exception_raise_test.cmi test/exception_raise_test.cmj test/exception_rebound_err_test.cmi test/exception_rebound_err_test.cmj test/exception_value_test.cmi test/exception_value_test.cmj test/exotic_labels_test.cmi test/exotic_labels_test.cmj test/exponentiation_precedence_test.cmi test/exponentiation_precedence_test.cmj test/export_keyword.cmi test/export_keyword.cmj test/ext_array_test.cmi test/ext_array_test.cmj test/ext_bytes_test.cmi test/ext_bytes_test.cmj test/ext_filename_test.cmi test/ext_filename_test.cmj test/ext_list_test.cmi test/ext_list_test.cmj test/ext_pervasives_test.cmi test/ext_pervasives_test.cmj test/ext_string_test.cmi test/ext_string_test.cmj test/ext_sys_test.cmi test/ext_sys_test.cmj test/extensible_variant_test.cmi test/extensible_variant_test.cmj test/external_polyfill_test.cmi test/external_polyfill_test.cmj test/external_ppx.cmi test/external_ppx.cmj test/external_ppx2.cmi test/external_ppx2.cmj test/fail_comp.cmi test/fail_comp.cmj test/ffi_arity_test.cmi test/ffi_arity_test.cmj test/ffi_array_test.cmi test/ffi_array_test.cmj test/ffi_js_test.cmi test/ffi_js_test.cmj test/ffi_splice_test.cmi test/ffi_splice_test.cmj test/ffi_test.cmi test/ffi_test.cmj test/fib.cmi test/fib.cmj test/flattern_order_test.cmi test/flattern_order_test.cmj test/flexible_array_test.cmi test/flexible_array_test.cmj test/float_array.cmi test/float_array.cmj test/float_of_bits_test.cmi test/float_of_bits_test.cmj test/float_record.cmi test/float_record.cmj test/float_test.cmi test/float_test.cmj test/floatarray_test.cmi test/floatarray_test.cmj test/for_loop_test.cmi test/for_loop_test.cmj test/for_side_effect_test.cmi test/for_side_effect_test.cmj test/format_regression.cmi test/format_regression.cmj test/format_test.cmi test/format_test.cmj test/fun_pattern_match.cmi test/fun_pattern_match.cmj test/function_directives.cmi test/function_directives.cmj test/function_directives_no_inline.cmi test/function_directives_no_inline.cmj test/functor_app_test.cmi test/functor_app_test.cmj test/functor_def.cmi test/functor_def.cmj test/functor_ffi.cmi test/functor_ffi.cmj test/functor_inst.cmi test/functor_inst.cmj test/functors.cmi test/functors.cmj test/gbk.cmi test/gbk.cmj test/genlex_test.cmi test/genlex_test.cmj test/gentTypeReTest.cmi test/gentTypeReTest.cmj test/global_exception_regression_test.cmi test/global_exception_regression_test.cmj test/global_mangles.cmi test/global_mangles.cmj test/global_module_alias_test.cmi test/global_module_alias_test.cmj test/google_closure_test.cmi test/google_closure_test.cmj test/gpr496_test.cmi test/gpr496_test.cmj test/gpr_1072.cmi test/gpr_1072.cmj test/gpr_1072_reg.cmi test/gpr_1072_reg.cmj test/gpr_1150.cmi test/gpr_1150.cmj test/gpr_1154_test.cmi test/gpr_1154_test.cmj test/gpr_1170.cmi test/gpr_1170.cmj test/gpr_1240_missing_unbox.cmi test/gpr_1240_missing_unbox.cmj test/gpr_1245_test.cmi test/gpr_1245_test.cmj test/gpr_1268.cmi test/gpr_1268.cmj test/gpr_1409_test.cmi test/gpr_1409_test.cmj test/gpr_1423_app_test.cmi test/gpr_1423_app_test.cmj test/gpr_1423_nav.cmi test/gpr_1423_nav.cmj test/gpr_1438.cmi test/gpr_1438.cmj test/gpr_1481.cmi test/gpr_1481.cmj test/gpr_1484.cmi test/gpr_1484.cmj test/gpr_1503_test.cmi test/gpr_1503_test.cmj test/gpr_1539_test.cmi test/gpr_1539_test.cmj test/gpr_1658_test.cmi test/gpr_1658_test.cmj test/gpr_1667_test.cmi test/gpr_1667_test.cmj test/gpr_1692_test.cmi test/gpr_1692_test.cmj test/gpr_1698_test.cmi test/gpr_1698_test.cmj test/gpr_1701_test.cmi test/gpr_1701_test.cmj test/gpr_1716_test.cmi test/gpr_1716_test.cmj test/gpr_1717_test.cmi test/gpr_1717_test.cmj test/gpr_1728_test.cmi test/gpr_1728_test.cmj test/gpr_1749_test.cmi test/gpr_1749_test.cmj test/gpr_1759_test.cmi test/gpr_1759_test.cmj test/gpr_1760_test.cmi test/gpr_1760_test.cmj test/gpr_1762_test.cmi test/gpr_1762_test.cmj test/gpr_1817_test.cmi test/gpr_1817_test.cmj test/gpr_1822_test.cmi test/gpr_1822_test.cmj test/gpr_1891_test.cmi test/gpr_1891_test.cmj test/gpr_1943_test.cmi test/gpr_1943_test.cmj test/gpr_1946_test.cmi test/gpr_1946_test.cmj test/gpr_2316_test.cmi test/gpr_2316_test.cmj test/gpr_2352_test.cmi test/gpr_2352_test.cmj test/gpr_2413_test.cmi test/gpr_2413_test.cmj test/gpr_2474.cmi test/gpr_2474.cmj test/gpr_2487.cmi test/gpr_2487.cmj test/gpr_2503_test.cmi test/gpr_2503_test.cmj test/gpr_2608_test.cmi test/gpr_2608_test.cmj test/gpr_2614_test.cmi test/gpr_2614_test.cmj test/gpr_2633_test.cmi test/gpr_2633_test.cmj test/gpr_2642_test.cmi test/gpr_2642_test.cmj test/gpr_2682_test.cmi test/gpr_2682_test.cmj test/gpr_2700_test.cmi test/gpr_2700_test.cmj test/gpr_2731_test.cmi test/gpr_2731_test.cmj test/gpr_2789_test.cmi test/gpr_2789_test.cmj test/gpr_2931_test.cmi test/gpr_2931_test.cmj test/gpr_3142_test.cmi test/gpr_3142_test.cmj test/gpr_3154_test.cmi test/gpr_3154_test.cmj test/gpr_3209_test.cmi test/gpr_3209_test.cmj test/gpr_3492_test.cmi test/gpr_3492_test.cmj test/gpr_3519_jsx_test.cmi test/gpr_3519_jsx_test.cmj test/gpr_3519_test.cmi test/gpr_3519_test.cmj test/gpr_3536_test.cmi test/gpr_3536_test.cmj test/gpr_3546_test.cmi test/gpr_3546_test.cmj test/gpr_3548_test.cmi test/gpr_3548_test.cmj test/gpr_3549_test.cmi test/gpr_3549_test.cmj test/gpr_3566_drive_test.cmi test/gpr_3566_drive_test.cmj test/gpr_3566_test.cmi test/gpr_3566_test.cmj test/gpr_3595_test.cmi test/gpr_3595_test.cmj test/gpr_3609_test.cmi test/gpr_3609_test.cmj test/gpr_3697_test.cmi test/gpr_3697_test.cmj test/gpr_373_test.cmi test/gpr_373_test.cmj test/gpr_3770_test.cmi test/gpr_3770_test.cmj test/gpr_3852_alias.cmi test/gpr_3852_alias.cmj test/gpr_3852_alias_reify.cmi test/gpr_3852_alias_reify.cmj test/gpr_3852_effect.cmi test/gpr_3852_effect.cmj test/gpr_3865.cmi test/gpr_3865.cmj test/gpr_3865_bar.cmi test/gpr_3865_bar.cmj test/gpr_3865_foo.cmi test/gpr_3865_foo.cmj test/gpr_3875_test.cmi test/gpr_3875_test.cmj test/gpr_3877_test.cmi test/gpr_3877_test.cmj test/gpr_3895_test.cmi test/gpr_3895_test.cmj test/gpr_3897_test.cmi test/gpr_3897_test.cmj test/gpr_3931_test.cmi test/gpr_3931_test.cmj test/gpr_3980_test.cmi test/gpr_3980_test.cmj test/gpr_4025_test.cmi test/gpr_4025_test.cmj test/gpr_405_test.cmi test/gpr_405_test.cmj test/gpr_4069_test.cmi test/gpr_4069_test.cmj test/gpr_4265_test.cmi test/gpr_4265_test.cmj test/gpr_4274_test.cmi test/gpr_4274_test.cmj test/gpr_4280_test.cmi test/gpr_4280_test.cmj test/gpr_4407_test.cmi test/gpr_4407_test.cmj test/gpr_441.cmi test/gpr_441.cmj test/gpr_4442_test.cmi test/gpr_4442_test.cmj test/gpr_4491_test.cmi test/gpr_4491_test.cmj test/gpr_4494_test.cmi test/gpr_4494_test.cmj test/gpr_4519_test.cmi test/gpr_4519_test.cmj test/gpr_459_test.cmi test/gpr_459_test.cmj test/gpr_4632.cmi test/gpr_4632.cmj test/gpr_4639_test.cmi test/gpr_4639_test.cmj test/gpr_4900_test.cmi test/gpr_4900_test.cmj test/gpr_4924_test.cmi test/gpr_4924_test.cmj test/gpr_4931.cmi test/gpr_4931.cmj test/gpr_4931_allow.cmi test/gpr_4931_allow.cmj test/gpr_5071_test.cmi test/gpr_5071_test.cmj test/gpr_5169_test.cmi test/gpr_5169_test.cmj test/gpr_5218_test.cmi test/gpr_5218_test.cmj test/gpr_5280_optimize_test.cmi test/gpr_5280_optimize_test.cmj test/gpr_5312.cmi test/gpr_5312.cmj test/gpr_5557.cmi test/gpr_5557.cmj test/gpr_5753.cmi test/gpr_5753.cmj test/gpr_658.cmi test/gpr_658.cmj test/gpr_858_test.cmi test/gpr_858_test.cmj test/gpr_858_unit2_test.cmi test/gpr_858_unit2_test.cmj test/gpr_904_test.cmi test/gpr_904_test.cmj test/gpr_974_test.cmi test/gpr_974_test.cmj test/gpr_977_test.cmi test/gpr_977_test.cmj test/gpr_return_type_unused_attribute.cmi test/gpr_return_type_unused_attribute.cmj test/gray_code_test.cmi test/gray_code_test.cmj test/guide_for_ext.cmi test/guide_for_ext.cmj test/hash_collision_test.cmi test/hash_collision_test.cmj test/hash_sugar_desugar.cmi test/hash_sugar_desugar.cmj test/hash_test.cmi test/hash_test.cmj test/hashtbl_test.cmi test/hashtbl_test.cmj test/hello.foo.cmi test/hello.foo.cmj test/hello_res.cmi test/hello_res.cmj test/ignore_test.cmi test/ignore_test.cmj test/imm_map_bench.cmi test/imm_map_bench.cmj test/import2.cmi test/import2.cmj test/import_external.cmi test/import_external.cmj test/import_side_effect.cmi test/import_side_effect.cmj test/import_side_effect_free.cmi test/import_side_effect_free.cmj test/include_side_effect.cmi test/include_side_effect.cmj test/include_side_effect_free.cmi test/include_side_effect_free.cmj test/incomplete_toplevel_test.cmi test/incomplete_toplevel_test.cmj test/infer_type_test.cmi test/infer_type_test.cmj test/inline_condition_with_pattern_matching.cmi test/inline_condition_with_pattern_matching.cmj test/inline_const.cmi test/inline_const.cmj test/inline_const_test.cmi test/inline_const_test.cmj test/inline_edge_cases.cmi test/inline_edge_cases.cmj test/inline_map2_test.cmi test/inline_map2_test.cmj test/inline_map_demo.cmi test/inline_map_demo.cmj test/inline_map_test.cmi test/inline_map_test.cmj test/inline_record_test.cmi test/inline_record_test.cmj test/inline_regression_test.cmi test/inline_regression_test.cmj test/inline_string_test.cmi test/inline_string_test.cmj test/inner_call.cmi test/inner_call.cmj test/inner_define.cmi test/inner_define.cmj test/inner_unused.cmi test/inner_unused.cmj test/installation_test.cmi test/installation_test.cmj test/int32_test.cmi test/int32_test.cmj test/int64_mul_div_test.cmi test/int64_mul_div_test.cmj test/int64_string_bench.cmi test/int64_string_bench.cmj test/int64_string_test.cmi test/int64_string_test.cmj test/int64_test.cmi test/int64_test.cmj test/int_hashtbl_test.cmi test/int_hashtbl_test.cmj test/int_map.cmi test/int_map.cmj test/int_overflow_test.cmi test/int_overflow_test.cmj test/int_poly_var.cmi test/int_poly_var.cmj test/int_switch_test.cmi test/int_switch_test.cmj test/internal_unused_test.cmi test/internal_unused_test.cmj test/io_test.cmi test/io_test.cmj test/js_array_test.cmi test/js_array_test.cmj test/js_bool_test.cmi test/js_bool_test.cmj test/js_cast_test.cmi test/js_cast_test.cmj test/js_date_test.cmi test/js_date_test.cmj test/js_dict_test.cmi test/js_dict_test.cmj test/js_exception_catch_test.cmi test/js_exception_catch_test.cmj test/js_float_test.cmi test/js_float_test.cmj test/js_global_test.cmi test/js_global_test.cmj test/js_int_test.cmi test/js_int_test.cmj test/js_json_test.cmi test/js_json_test.cmj test/js_list_test.cmi test/js_list_test.cmj test/js_math_test.cmi test/js_math_test.cmj test/js_null_test.cmi test/js_null_test.cmj test/js_null_undefined_test.cmi test/js_null_undefined_test.cmj test/js_nullable_test.cmi test/js_nullable_test.cmj test/js_obj_test.cmi test/js_obj_test.cmj test/js_option_test.cmi test/js_option_test.cmj test/js_re_test.cmi test/js_re_test.cmj test/js_string_test.cmi test/js_string_test.cmj test/js_typed_array_test.cmi test/js_typed_array_test.cmj test/js_undefined_test.cmi test/js_undefined_test.cmj test/js_val.cmi test/js_val.cmj test/jsoo_400_test.cmi test/jsoo_400_test.cmj test/jsoo_485_test.cmi test/jsoo_485_test.cmj test/jsxv4_newtype.cmi test/jsxv4_newtype.cmj test/key_word_property.cmi test/key_word_property.cmj test/key_word_property2.cmi test/key_word_property2.cmj test/key_word_property_plus_test.cmi test/key_word_property_plus_test.cmj test/label_uncurry.cmi test/label_uncurry.cmj test/large_integer_pat.cmi test/large_integer_pat.cmj test/large_record_duplication_test.cmi test/large_record_duplication_test.cmj test/largest_int_flow.cmi test/largest_int_flow.cmj test/lazy_demo.cmi test/lazy_demo.cmj test/lazy_test.cmi test/lazy_test.cmj test/lib_js_test.cmi test/lib_js_test.cmj test/libarg_test.cmi test/libarg_test.cmj test/libqueue_test.cmi test/libqueue_test.cmj test/limits_test.cmi test/limits_test.cmj test/list_stack.cmi test/list_stack.cmj test/list_test.cmi test/list_test.cmj test/local_exception_test.cmi test/local_exception_test.cmj test/loop_regression_test.cmi test/loop_regression_test.cmj test/loop_suites_test.cmi test/loop_suites_test.cmj test/map_find_test.cmi test/map_find_test.cmj test/map_test.cmi test/map_test.cmj test/mario_game.cmi test/mario_game.cmj test/marshal.cmi test/marshal.cmj test/meth_annotation.cmi test/meth_annotation.cmj test/method_name_test.cmi test/method_name_test.cmj test/method_string_name.cmi test/method_string_name.cmj test/minimal_test.cmi test/minimal_test.cmj test/miss_colon_test.cmi test/miss_colon_test.cmj test/mock_mt.cmi test/mock_mt.cmj test/module_alias_test.cmi test/module_alias_test.cmj test/module_as_class_ffi.cmi test/module_as_class_ffi.cmj test/module_as_function.cmi test/module_as_function.cmj test/module_missing_conversion.cmi test/module_missing_conversion.cmj test/module_parameter_test.cmi test/module_parameter_test.cmj test/module_splice_test.cmi test/module_splice_test.cmj test/more_poly_variant_test.cmi test/more_poly_variant_test.cmj test/more_uncurry.cmi test/more_uncurry.cmj test/mpr_6033_test.cmi test/mpr_6033_test.cmj test/mt.cmi test/mt.cmj test/mt_global.cmi test/mt_global.cmj test/mutable_obj_test.cmi test/mutable_obj_test.cmj test/mutable_uncurry_test.cmi test/mutable_uncurry_test.cmj test/mutual_non_recursive_type.cmi test/mutual_non_recursive_type.cmj test/name_mangle_test.cmi test/name_mangle_test.cmj test/nested_include.cmi test/nested_include.cmj test/nested_module_alias.cmi test/nested_module_alias.cmj test/nested_obj_literal.cmi test/nested_obj_literal.cmj test/nested_obj_test.cmi test/nested_obj_test.cmj test/nested_pattern_match_test.cmi test/nested_pattern_match_test.cmj test/noassert.cmi test/noassert.cmj test/node_path_test.cmi test/node_path_test.cmj test/null_list_test.cmi test/null_list_test.cmj test/number_lexer.cmi test/number_lexer.cmj test/obj_literal_ppx.cmi test/obj_literal_ppx.cmj test/obj_literal_ppx_test.cmi test/obj_literal_ppx_test.cmj test/obj_magic_test.cmi test/obj_magic_test.cmj test/obj_type_test.cmi test/obj_type_test.cmj test/ocaml_re_test.cmi test/ocaml_re_test.cmj test/of_string_test.cmi test/of_string_test.cmj test/offset.cmi test/offset.cmj test/omit_trailing_undefined_in_external_calls.cmi test/omit_trailing_undefined_in_external_calls.cmj test/option_encoding_test.cmi test/option_encoding_test.cmj test/option_record_none_test.cmi test/option_record_none_test.cmj test/option_repr_test.cmi test/option_repr_test.cmj test/optional_ffi_test.cmi test/optional_ffi_test.cmj test/optional_regression_test.cmi test/optional_regression_test.cmj test/pipe_send_readline.cmi test/pipe_send_readline.cmj test/pipe_syntax.cmi test/pipe_syntax.cmj test/poly_empty_array.cmi test/poly_empty_array.cmj test/poly_variant_test.cmi test/poly_variant_test.cmj test/polymorphic_raw_test.cmi test/polymorphic_raw_test.cmj test/polymorphism_test.cmi test/polymorphism_test.cmj test/polyvar_convert.cmi test/polyvar_convert.cmj test/polyvar_test.cmi test/polyvar_test.cmj test/ppx_apply_test.cmi test/ppx_apply_test.cmj test/pq_test.cmi test/pq_test.cmj test/pr6726.cmi test/pr6726.cmj test/pr_regression_test.cmi test/pr_regression_test.cmj test/prepend_data_ffi.cmi test/prepend_data_ffi.cmj test/primitive_reg_test.cmi test/primitive_reg_test.cmj test/print_alpha_test.cmi test/print_alpha_test.cmj test/queue_402.cmi test/queue_402.cmj test/queue_test.cmi test/queue_test.cmj test/random_test.cmi test/random_test.cmj test/raw_hash_tbl_bench.cmi test/raw_hash_tbl_bench.cmj test/raw_output_test.cmi test/raw_output_test.cmj test/raw_pure_test.cmi test/raw_pure_test.cmj test/rbset.cmi test/rbset.cmj test/react.cmi test/react.cmj test/reactDOMRe.cmi test/reactDOMRe.cmj test/reactDOMServerRe.cmi test/reactDOMServerRe.cmj test/reactEvent.cmi test/reactEvent.cmj test/reactTestUtils.cmi test/reactTestUtils.cmj test/reasonReact.cmi test/reasonReact.cmj test/reasonReactCompat.cmi test/reasonReactCompat.cmj test/reasonReactOptimizedCreateClass.cmi test/reasonReactOptimizedCreateClass.cmj test/reasonReactRouter.cmi test/reasonReactRouter.cmj test/rebind_module.cmi test/rebind_module.cmj test/rebind_module_test.cmi test/rebind_module_test.cmj test/rec_array_test.cmi test/rec_array_test.cmj test/rec_fun_test.cmi test/rec_fun_test.cmj test/rec_module_opt.cmi test/rec_module_opt.cmj test/rec_module_test.cmi test/rec_module_test.cmj test/recmodule.cmi test/recmodule.cmj test/record_debug_test.cmi test/record_debug_test.cmj test/record_extension_test.cmi test/record_extension_test.cmj test/record_name_test.cmi test/record_name_test.cmj test/record_regression.cmi test/record_regression.cmj test/record_type_spread.cmi test/record_type_spread.cmj test/record_with_test.cmi test/record_with_test.cmj test/recursive_module.cmi test/recursive_module.cmj test/recursive_module_test.cmi test/recursive_module_test.cmj test/recursive_react_component.cmi test/recursive_react_component.cmj test/recursive_records_test.cmi test/recursive_records_test.cmj test/recursive_unbound_module_test.cmi test/recursive_unbound_module_test.cmj test/regression_print.cmi test/regression_print.cmj test/relative_path.cmi test/relative_path.cmj test/res_debug.cmi test/res_debug.cmj test/return_check.cmi test/return_check.cmj test/runtime_encoding_test.cmi test/runtime_encoding_test.cmj test/set_annotation.cmi test/set_annotation.cmj test/set_gen.cmi test/set_gen.cmj test/sexp.cmi test/sexp.cmj test/sexpm.cmi test/sexpm.cmj test/sexpm_test.cmi test/sexpm_test.cmj test/side_effect.cmi test/side_effect.cmj test/side_effect2.cmi test/side_effect2.cmj test/side_effect_free.cmi test/side_effect_free.cmj test/simplify_lambda_632o.cmi test/simplify_lambda_632o.cmj test/single_module_alias.cmi test/single_module_alias.cmj test/singular_unit_test.cmi test/singular_unit_test.cmj test/small_inline_test.cmi test/small_inline_test.cmj test/splice_test.cmi test/splice_test.cmj test/stack_comp_test.cmi test/stack_comp_test.cmj test/stack_test.cmi test/stack_test.cmj test/stream_parser_test.cmi test/stream_parser_test.cmj test/string_bound_get_test.cmi test/string_bound_get_test.cmj test/string_constant_compare.cmi test/string_constant_compare.cmj test/string_get_set_test.cmi test/string_get_set_test.cmj test/string_runtime_test.cmi test/string_runtime_test.cmj test/string_set.cmi test/string_set.cmj test/string_set_test.cmi test/string_set_test.cmj test/string_test.cmi test/string_test.cmj test/string_unicode_test.cmi test/string_unicode_test.cmj test/stringmatch_test.cmi test/stringmatch_test.cmj test/submodule.cmi test/submodule.cmj test/submodule_call.cmi test/submodule_call.cmj test/switch_case_test.cmi test/switch_case_test.cmj test/switch_string.cmi test/switch_string.cmj test/tagged_template_test.cmi test/tagged_template_test.cmj test/tailcall_inline_test.cmi test/tailcall_inline_test.cmj test/template.cmi test/template.cmj test/test.cmi test/test.cmj test/test2.cmi test/test2.cmj test/test_alias.cmi test/test_alias.cmj test/test_ari.cmi test/test_ari.cmj test/test_array.cmi test/test_array.cmj test/test_array_append.cmi test/test_array_append.cmj test/test_array_primitive.cmi test/test_array_primitive.cmj test/test_bool_equal.cmi test/test_bool_equal.cmj test/test_bs_this.cmi test/test_bs_this.cmj test/test_bug.cmi test/test_bug.cmj test/test_bytes.cmi test/test_bytes.cmj test/test_case_opt_collision.cmi test/test_case_opt_collision.cmj test/test_case_set.cmi test/test_case_set.cmj test/test_char.cmi test/test_char.cmj test/test_closure.cmi test/test_closure.cmj test/test_common.cmi test/test_common.cmj test/test_const_elim.cmi test/test_const_elim.cmj test/test_const_propogate.cmi test/test_const_propogate.cmj test/test_cpp.cmi test/test_cpp.cmj test/test_cps.cmi test/test_cps.cmj test/test_demo.cmi test/test_demo.cmj test/test_dup_param.cmi test/test_dup_param.cmj test/test_eq.cmi test/test_eq.cmj test/test_exception.cmi test/test_exception.cmj test/test_exception_escape.cmi test/test_exception_escape.cmj test/test_export2.cmi test/test_export2.cmj test/test_external.cmi test/test_external.cmj test/test_external_unit.cmi test/test_external_unit.cmj test/test_ffi.cmi test/test_ffi.cmj test/test_fib.cmi test/test_fib.cmj test/test_filename.cmi test/test_filename.cmj test/test_for_loop.cmi test/test_for_loop.cmj test/test_for_map.cmi test/test_for_map.cmj test/test_for_map2.cmi test/test_for_map2.cmj test/test_format.cmi test/test_format.cmj test/test_formatter.cmi test/test_formatter.cmj test/test_functor_dead_code.cmi test/test_functor_dead_code.cmj test/test_generative_module.cmi test/test_generative_module.cmj test/test_global_print.cmi test/test_global_print.cmj test/test_google_closure.cmi test/test_google_closure.cmj test/test_include.cmi test/test_include.cmj test/test_incomplete.cmi test/test_incomplete.cmj test/test_incr_ref.cmi test/test_incr_ref.cmj test/test_int_map_find.cmi test/test_int_map_find.cmj test/test_internalOO.cmi test/test_internalOO.cmj test/test_is_js.cmi test/test_is_js.cmj test/test_js_ffi.cmi test/test_js_ffi.cmj test/test_let.cmi test/test_let.cmj test/test_list.cmi test/test_list.cmj test/test_literal.cmi test/test_literal.cmj test/test_literals.cmi test/test_literals.cmj test/test_match_exception.cmi test/test_match_exception.cmj test/test_mutliple.cmi test/test_mutliple.cmj test/test_nat64.cmi test/test_nat64.cmj test/test_nested_let.cmi test/test_nested_let.cmj test/test_nested_print.cmi test/test_nested_print.cmj test/test_non_export.cmi test/test_non_export.cmj test/test_nullary.cmi test/test_nullary.cmj test/test_obj.cmi test/test_obj.cmj test/test_order.cmi test/test_order.cmj test/test_order_tailcall.cmi test/test_order_tailcall.cmj test/test_other_exn.cmi test/test_other_exn.cmj test/test_pack.cmi test/test_pack.cmj test/test_per.cmi test/test_per.cmj test/test_pervasive.cmi test/test_pervasive.cmj test/test_pervasives2.cmi test/test_pervasives2.cmj test/test_pervasives3.cmi test/test_pervasives3.cmj test/test_primitive.cmi test/test_primitive.cmj test/test_ramification.cmi test/test_ramification.cmj test/test_react.cmi test/test_react.cmj test/test_react_case.cmi test/test_react_case.cmj test/test_regex.cmi test/test_regex.cmj test/test_runtime_encoding.cmi test/test_runtime_encoding.cmj test/test_scope.cmi test/test_scope.cmj test/test_seq.cmi test/test_seq.cmj test/test_set.cmi test/test_set.cmj test/test_side_effect_functor.cmi test/test_side_effect_functor.cmj test/test_simple_include.cmi test/test_simple_include.cmj test/test_simple_pattern_match.cmi test/test_simple_pattern_match.cmj test/test_simple_ref.cmi test/test_simple_ref.cmj test/test_simple_tailcall.cmi test/test_simple_tailcall.cmj test/test_small.cmi test/test_small.cmj test/test_sprintf.cmi test/test_sprintf.cmj test/test_stack.cmi test/test_stack.cmj test/test_static_catch_ident.cmi test/test_static_catch_ident.cmj test/test_string.cmi test/test_string.cmj test/test_string_case.cmi test/test_string_case.cmj test/test_string_const.cmi test/test_string_const.cmj test/test_string_map.cmi test/test_string_map.cmj test/test_string_switch.cmi test/test_string_switch.cmj test/test_switch.cmi test/test_switch.cmj test/test_trywith.cmi test/test_trywith.cmj test/test_tuple.cmi test/test_tuple.cmj test/test_tuple_destructring.cmi test/test_tuple_destructring.cmj test/test_type_based_arity.cmi test/test_type_based_arity.cmj test/test_u.cmi test/test_u.cmj test/test_unknown.cmi test/test_unknown.cmj test/test_unsafe_cmp.cmi test/test_unsafe_cmp.cmj test/test_unsafe_obj_ffi.cmi test/test_unsafe_obj_ffi.cmj test/test_unsafe_obj_ffi_ppx.cmi test/test_unsafe_obj_ffi_ppx.cmj test/test_unsupported_primitive.cmi test/test_unsupported_primitive.cmj test/test_while_closure.cmi test/test_while_closure.cmj test/test_while_side_effect.cmi test/test_while_side_effect.cmj test/test_zero_nullable.cmi test/test_zero_nullable.cmj test/then_mangle_test.cmi test/then_mangle_test.cmj test/ticker.cmi test/ticker.cmj test/to_string_test.cmi test/to_string_test.cmj test/topsort_test.cmi test/topsort_test.cmj test/tramp_fib.cmi test/tramp_fib.cmj test/tuple_alloc.cmi test/tuple_alloc.cmj test/type_disambiguate.cmi test/type_disambiguate.cmj test/typeof_test.cmi test/typeof_test.cmj test/unboxed_attribute.cmi test/unboxed_attribute.cmj test/unboxed_attribute_test.cmi test/unboxed_attribute_test.cmj test/unboxed_crash.cmi test/unboxed_crash.cmj test/unboxed_use_case.cmi test/unboxed_use_case.cmj test/uncurried_cast.cmi test/uncurried_cast.cmj test/uncurried_default.args.cmi test/uncurried_default.args.cmj test/uncurried_pipe.cmi test/uncurried_pipe.cmj test/uncurry_external_test.cmi test/uncurry_external_test.cmj test/uncurry_glob_test.cmi test/uncurry_glob_test.cmj test/uncurry_test.cmi test/uncurry_test.cmj test/undef_regression2_test.cmi test/undef_regression2_test.cmj test/undef_regression_test.cmi test/undef_regression_test.cmj test/undefine_conditional.cmi test/undefine_conditional.cmj test/unicode_type_error.cmi test/unicode_type_error.cmj test/unit_undefined_test.cmi test/unit_undefined_test.cmj test/unitest_string.cmi test/unitest_string.cmj test/unsafe_full_apply_primitive.cmi test/unsafe_full_apply_primitive.cmj test/unsafe_ppx_test.cmi test/unsafe_ppx_test.cmj test/update_record_test.cmi test/update_record_test.cmj test/variant.cmi test/variant.cmj test/variantsMatching.cmi test/variantsMatching.cmj test/webpack_config.cmi test/webpack_config.cmj diff --git a/jscomp/test/chn_test.js b/jscomp/test/chn_test.js index 4609a19fff..b8c937ecb5 100644 --- a/jscomp/test/chn_test.js +++ b/jscomp/test/chn_test.js @@ -1,15 +1,15 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var $$Array = require("../../lib/js/array.js"); -var Caml_string = require("../../lib/js/caml_string.js"); +let Mt = require("./mt.js"); +let $$Array = require("../../lib/js/array.js"); +let Caml_string = require("../../lib/js/caml_string.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -19,12 +19,12 @@ function eq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - }) + return { + TAG: "Eq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; @@ -36,66 +36,64 @@ console.log("\x3f\u003f\b\t\n\v\f\r\0\"'"); function convert(s) { return $$Array.to_list(Array.from(s, (function (x) { - var x$1 = x.codePointAt(0); - if (x$1 !== undefined) { - return x$1; - } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "chn_test.res", - 17, - 14 - ] - } - }); - }))); + let x$1 = x.codePointAt(0); + if (x$1 !== undefined) { + return x$1; + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "chn_test.res", + 17, + 14 + ] + } + }); + }))); } eq("File \"chn_test.res\", line 24, characters 4-11", "你好，\n世界", "你好，\n世界"); eq("File \"chn_test.res\", line 30, characters 4-11", convert("汉字是世界上最美丽的character"), { - hd: 27721, + hd: 27721, + tl: { + hd: 23383, + tl: { + hd: 26159, tl: { - hd: 23383, + hd: 19990, tl: { - hd: 26159, + hd: 30028, tl: { - hd: 19990, + hd: 19978, tl: { - hd: 30028, + hd: 26368, tl: { - hd: 19978, + hd: 32654, tl: { - hd: 26368, + hd: 20029, tl: { - hd: 32654, + hd: 30340, tl: { - hd: 20029, + hd: 99, tl: { - hd: 30340, + hd: 104, tl: { - hd: 99, + hd: 97, tl: { - hd: 104, + hd: 114, tl: { hd: 97, tl: { - hd: 114, + hd: 99, tl: { - hd: 97, + hd: 116, tl: { - hd: 99, + hd: 101, tl: { - hd: 116, - tl: { - hd: 101, - tl: { - hd: 114, - tl: /* [] */0 - } - } + hd: 114, + tl: /* [] */0 } } } @@ -112,78 +110,80 @@ eq("File \"chn_test.res\", line 30, characters 4-11", convert("汉字是世界 } } } - }); + } + } +}); eq("File \"chn_test.res\", line 54, characters 5-12", convert("\x3f\x3fa"), { - hd: 63, - tl: { - hd: 63, - tl: { - hd: 97, - tl: /* [] */0 - } - } - }); + hd: 63, + tl: { + hd: 63, + tl: { + hd: 97, + tl: /* [] */0 + } + } +}); eq("File \"chn_test.res\", line 55, characters 5-12", convert("??a"), { - hd: 63, - tl: { - hd: 63, - tl: { - hd: 97, - tl: /* [] */0 - } - } - }); + hd: 63, + tl: { + hd: 63, + tl: { + hd: 97, + tl: /* [] */0 + } + } +}); eq("File \"chn_test.res\", line 56, characters 5-12", convert("\u003f\x3fa"), { - hd: 63, - tl: { - hd: 63, - tl: { - hd: 97, - tl: /* [] */0 - } - } - }); + hd: 63, + tl: { + hd: 63, + tl: { + hd: 97, + tl: /* [] */0 + } + } +}); eq("File \"chn_test.res\", line 57, characters 5-12", convert("🚀🚀a"), { - hd: 128640, - tl: { - hd: 128640, - tl: { - hd: 97, - tl: /* [] */0 - } - } - }); + hd: 128640, + tl: { + hd: 128640, + tl: { + hd: 97, + tl: /* [] */0 + } + } +}); eq("File \"chn_test.res\", line 58, characters 5-12", convert("\uD83D\uDE80a"), { - hd: 128640, - tl: { - hd: 97, - tl: /* [] */0 - } - }); + hd: 128640, + tl: { + hd: 97, + tl: /* [] */0 + } +}); eq("File \"chn_test.res\", line 59, characters 5-12", convert("\uD83D\uDE80\x3f"), { - hd: 128640, - tl: { - hd: 63, - tl: /* [] */0 - } - }); + hd: 128640, + tl: { + hd: 63, + tl: /* [] */0 + } +}); eq("File \"chn_test.res\", line 63, characters 5-12", convert("\uD83D\uDE80\uD83D\uDE80a"), { - hd: 128640, - tl: { - hd: 128640, - tl: { - hd: 97, - tl: /* [] */0 - } - } - }); + hd: 128640, + tl: { + hd: 128640, + tl: { + hd: 97, + tl: /* [] */0 + } + } +}); eq("No inline string length", "\uD83D\uDE80\0".length, 3); @@ -192,71 +192,69 @@ eq("File \"chn_test.res\", line 70, characters 4-11", Caml_string.get("\uD83D\uD eq("File \"chn_test.res\", line 75, characters 5-12", Caml_string.get("🚀", 0), 128640); eq("File \"chn_test.res\", line 80, characters 5-12", convert("\uD83D\uDE80"), { - hd: 128640, - tl: /* [] */0 - }); + hd: 128640, + tl: /* [] */0 +}); eq("File \"chn_test.res\", line 81, characters 5-12", convert("\uD83D\uDE80\uD83D\uDE80"), { - hd: 128640, - tl: { - hd: 128640, - tl: /* [] */0 - } - }); + hd: 128640, + tl: { + hd: 128640, + tl: /* [] */0 + } +}); eq("File \"chn_test.res\", line 82, characters 5-12", convert(" \b\t\n\v\f\ra"), { - hd: 32, + hd: 32, + tl: { + hd: 8, + tl: { + hd: 9, tl: { - hd: 8, + hd: 10, tl: { - hd: 9, + hd: 11, tl: { - hd: 10, + hd: 12, tl: { - hd: 11, + hd: 13, tl: { - hd: 12, - tl: { - hd: 13, - tl: { - hd: 97, - tl: /* [] */0 - } - } + hd: 97, + tl: /* [] */0 } } } } } - }); + } + } +}); eq("File \"chn_test.res\", line 89, characters 4-11", convert(" \b\t\n\v\f\r\"'\\\0a"), { - hd: 32, + hd: 32, + tl: { + hd: 8, + tl: { + hd: 9, tl: { - hd: 8, + hd: 10, tl: { - hd: 9, + hd: 11, tl: { - hd: 10, + hd: 12, tl: { - hd: 11, + hd: 13, tl: { - hd: 12, + hd: 34, tl: { - hd: 13, + hd: 39, tl: { - hd: 34, + hd: 92, tl: { - hd: 39, + hd: 0, tl: { - hd: 92, - tl: { - hd: 0, - tl: { - hd: 97, - tl: /* [] */0 - } - } + hd: 97, + tl: /* [] */0 } } } @@ -266,7 +264,9 @@ eq("File \"chn_test.res\", line 89, characters 4-11", convert(" \b\t\n\v\f\r\"'\ } } } - }); + } + } +}); Mt.from_pair_suites("Chn_test", suites.contents); diff --git a/jscomp/test/const_defs_test.js b/jscomp/test/const_defs_test.js index 1792b074c9..6f49155394 100644 --- a/jscomp/test/const_defs_test.js +++ b/jscomp/test/const_defs_test.js @@ -2,15 +2,15 @@ 'use strict'; -var u = 3; +let u = 3; function f(param) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "hi" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "hi" + } + }); } exports.u = u; diff --git a/jscomp/test/custom_error_test.js b/jscomp/test/custom_error_test.js index d6b2c2df6e..0b695ad2d7 100644 --- a/jscomp/test/custom_error_test.js +++ b/jscomp/test/custom_error_test.js @@ -16,8 +16,8 @@ function test_js_error(param) { return; } throw new Error(err.RE_EXN_ID, { - cause: err - }); + cause: err + }); } return e; } @@ -31,12 +31,12 @@ function test_js_error2(param) { if (e.RE_EXN_ID === Js_exn.$$Error) { console.log(e._1.stack); throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } } @@ -52,8 +52,8 @@ function example1(param) { return; } throw new Error(err.RE_EXN_ID, { - cause: err - }); + cause: err + }); } return v; } @@ -68,8 +68,8 @@ function example2(param) { return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/jscomp/test/defunctor_make_test.js b/jscomp/test/defunctor_make_test.js index 264719f106..75b6eca17b 100644 --- a/jscomp/test/defunctor_make_test.js +++ b/jscomp/test/defunctor_make_test.js @@ -1,7 +1,7 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); +let Caml = require("../../lib/js/caml.js"); function getcompare(x) { return x; @@ -11,7 +11,7 @@ function Make(M) { return M; } -var Comparable = { +let Comparable = { getcompare: getcompare, Make: Make }; @@ -25,36 +25,36 @@ function height(x) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -62,34 +62,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -97,38 +97,38 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, compare, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = compare(x, v); + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = compare(x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: x_._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: x_._4 + }; } else if (c < 0) { return bal(add(x, data, compare, l), v, d, r); } else { @@ -137,43 +137,43 @@ function add(x, data, compare, x_) { } function add$1(x, data, v) { - var X = v.compare; + let X = v.compare; return { - compare: v.compare, - data: add(x, data, X.compare, v.data) - }; + compare: v.compare, + data: add(x, data, X.compare, v.data) + }; } function empty(v) { return { - compare: v, - data: "Empty" - }; + compare: v, + data: "Empty" + }; } -var compare = Caml.int_compare; +let compare = Caml.int_compare; -var V0 = { +let V0 = { compare: compare }; -var compare$1 = Caml.int_compare; +let compare$1 = Caml.int_compare; -var V1 = { +let V1 = { compare: compare$1 }; -var v0 = { +let v0 = { compare: V0, data: "Empty" }; -var v1 = { +let v1 = { compare: V1, data: "Empty" }; -var v3 = add$1(3, "a", v0); +let v3 = add$1(3, "a", v0); console.log(v3); diff --git a/jscomp/test/demo_int_map.js b/jscomp/test/demo_int_map.js index 84f92565e1..98da29bee8 100644 --- a/jscomp/test/demo_int_map.js +++ b/jscomp/test/demo_int_map.js @@ -11,36 +11,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -48,34 +48,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -83,52 +83,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = x - v | 0; + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = x - v | 0; if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -138,29 +138,29 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = x - param.v | 0; + let c = x - param.v | 0; if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function test(param) { - var m = "Empty"; - for(var i = 0; i <= 1000000; ++i){ + let m = "Empty"; + for(let i = 0; i <= 1000000; ++i){ m = add(i, i, m); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ find(i$1, m); } } diff --git a/jscomp/test/earger_curry_test.js b/jscomp/test/earger_curry_test.js index e7872fcee0..2bc34c8096 100644 --- a/jscomp/test/earger_curry_test.js +++ b/jscomp/test/earger_curry_test.js @@ -1,73 +1,73 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Pervasives = require("../../lib/js/pervasives.js"); +let Mt = require("./mt.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Pervasives = require("../../lib/js/pervasives.js"); function map(f, a) { - var f$1 = Curry.__1(f); - var l = a.length; + let f$1 = Curry.__1(f); + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, f$1(a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, f$1(a[0])); + for(let i = 1; i < l; ++i){ r[i] = f$1(a[i]); } return r; } function init(l, f) { - var f$1 = Curry.__1(f); + let f$1 = Curry.__1(f); if (l === 0) { return []; } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, f$1(0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, f$1(0)); + for(let i = 1; i < l; ++i){ res[i] = f$1(i); } return res; } function fold_left(f, x, a) { - var f$1 = Curry.__2(f); - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let f$1 = Curry.__2(f); + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f$1(r, a[i]); } return r; } function f2(param) { - var arr = init(30000000, (function (i) { - return i; - })); - var b = map((function (i) { - return i + i - 1; - }), arr); - var v = fold_left((function (prim0, prim1) { - return prim0 + prim1; - }), 0, b); + let arr = init(30000000, (function (i) { + return i; + })); + let b = map((function (i) { + return i + i - 1; + }), arr); + let v = fold_left((function (prim0, prim1) { + return prim0 + prim1; + }), 0, b); console.log(Pervasives.string_of_float(v)); } f2(); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -77,33 +77,33 @@ function eq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - }) + return { + TAG: "Eq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; } -var v = { +let v = { contents: 0 }; -var all_v = { +let all_v = { contents: /* [] */0 }; function add5(a0, a1, a2, a3, a4) { console.log([ - a0, - a1, - a2, - a3, - a4 - ]); + a0, + a1, + a2, + a3, + a4 + ]); all_v.contents = { hd: v.contents, tl: all_v.contents @@ -113,9 +113,9 @@ function add5(a0, a1, a2, a3, a4) { function f(x) { v.contents = v.contents + 1 | 0; - var partial_arg = 2; + let partial_arg = 2; v.contents = v.contents + 1 | 0; - var partial_arg$1 = 1; + let partial_arg$1 = 1; return function (param, param$1) { return add5(x, partial_arg$1, partial_arg, param, param$1); }; @@ -123,10 +123,10 @@ function f(x) { function g(x) { v.contents = v.contents + 1 | 0; - var partial_arg = 2; + let partial_arg = 2; v.contents = v.contents + 1 | 0; - var partial_arg$1 = 1; - var u = function (param, param$1) { + let partial_arg$1 = 1; + let u = function (param, param$1) { return add5(x, partial_arg$1, partial_arg, param, param$1); }; all_v.contents = { @@ -136,13 +136,13 @@ function g(x) { return u; } -var a = f(0)(3, 4); +let a = f(0)(3, 4); -var b = f(0)(3, 5); +let b = f(0)(3, 5); -var c = Curry._2(g(0), 3, 4); +let c = Curry._2(g(0), 3, 4); -var d = Curry._2(g(0), 3, 5); +let d = Curry._2(g(0), 3, 5); eq("File \"earger_curry_test.res\", line 138, characters 5-12", a, 10); @@ -153,24 +153,24 @@ eq("File \"earger_curry_test.res\", line 140, characters 5-12", c, 10); eq("File \"earger_curry_test.res\", line 141, characters 5-12", d, 11); eq("File \"earger_curry_test.res\", line 142, characters 5-12", all_v.contents, { - hd: 8, + hd: 8, + tl: { + hd: 8, + tl: { + hd: 6, tl: { - hd: 8, + hd: 6, tl: { - hd: 6, + hd: 4, tl: { - hd: 6, - tl: { - hd: 4, - tl: { - hd: 2, - tl: /* [] */0 - } - } + hd: 2, + tl: /* [] */0 } } } - }); + } + } +}); Mt.from_pair_suites("Earger_curry_test", suites.contents); diff --git a/jscomp/test/equal_exception_test.js b/jscomp/test/equal_exception_test.js index c3fb7e116d..910ff6b937 100644 --- a/jscomp/test/equal_exception_test.js +++ b/jscomp/test/equal_exception_test.js @@ -1,136 +1,136 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Caml_string = require("../../lib/js/caml_string.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Caml_string = require("../../lib/js/caml_string.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var v = "gso"; +let v = "gso"; function is_equal(param) { if (Caml_bytes.get(Bytes.make(3, /* 'a' */97), 0) !== /* 'a' */97) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 4, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 4, + 2 + ] + } + }); } if (Bytes.make(3, /* 'a' */97)[0] !== /* 'a' */97) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 5, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 5, + 2 + ] + } + }); } - var u = Bytes.make(3, /* 'a' */97); + let u = Bytes.make(3, /* 'a' */97); u[0] = /* 'b' */98; if (u[0] !== /* 'b' */98) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 8, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 8, + 2 + ] + } + }); } if (Caml_string.get(v, 0) === /* 'g' */103) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 9, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 9, + 2 + ] + } + }); } function is_exception(param) { try { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function is_normal_exception(_x) { - var A = /* @__PURE__ */Caml_exceptions.create("A"); - var v = { + let A = /* @__PURE__ */Caml_exceptions.create("A"); + let v = { RE_EXN_ID: A, _1: 3 }; try { throw new Error(v.RE_EXN_ID, { - cause: v - }); + cause: v + }); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === A) { if (exn._1 === 3) { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function is_arbitrary_exception(param) { - var A = /* @__PURE__ */Caml_exceptions.create("A"); + let A = /* @__PURE__ */Caml_exceptions.create("A"); try { throw new Error(A, { - cause: { - RE_EXN_ID: A - } - }); + cause: { + RE_EXN_ID: A + } + }); } catch (exn){ - return ; + return; } } -var suites_0 = [ +let suites_0 = [ "is_equal", is_equal ]; -var suites_1 = { +let suites_1 = { hd: [ "is_exception", is_exception @@ -150,12 +150,12 @@ var suites_1 = { } }; -var suites = { +let suites = { hd: suites_0, tl: suites_1 }; -var e = { +let e = { RE_EXN_ID: "Not_found" }; @@ -163,34 +163,34 @@ function eq(x) { return x.RE_EXN_ID === "Not_found"; } -var Not_found = /* @__PURE__ */Caml_exceptions.create("Equal_exception_test.Not_found"); +let Not_found = /* @__PURE__ */Caml_exceptions.create("Equal_exception_test.Not_found"); if (Caml_obj.equal(e, { - RE_EXN_ID: Not_found - }) !== false) { + RE_EXN_ID: Not_found + }) !== false) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 50, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 50, + 0 + ] + } + }); } if (Not_found === "Not_found" !== false) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "equal_exception_test.res", - 51, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "equal_exception_test.res", + 51, + 0 + ] + } + }); } Mt.from_suites("exception", suites); diff --git a/jscomp/test/exception_raise_test.js b/jscomp/test/exception_raise_test.js index 1977444ded..eed1be39b7 100644 --- a/jscomp/test/exception_raise_test.js +++ b/jscomp/test/exception_raise_test.js @@ -1,28 +1,28 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Js_exn = require("../../lib/js/js_exn.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Js_exn = require("../../lib/js/js_exn.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var Local = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.Local"); +let Local = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.Local"); -var B = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.B"); +let B = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.B"); -var C = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.C"); +let C = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.C"); -var D = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.D"); +let D = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.D"); function appf(g, x) { - var A = /* @__PURE__ */Caml_exceptions.create("A"); + let A = /* @__PURE__ */Caml_exceptions.create("A"); try { return Curry._1(g, x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Local) { return 3; } @@ -41,15 +41,15 @@ function appf(g, x) { return 4; } } - var match = exn._1; + let match = exn._1; if (!match) { return 4; } - var match$1 = match.tl; + let match$1 = match.tl; if (!match$1) { return 4; } - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return match$2.hd; } else { @@ -58,62 +58,62 @@ function appf(g, x) { } } -var A = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.A"); +let A = /* @__PURE__ */Caml_exceptions.create("Exception_raise_test.A"); -var f; +let f; try { f = (function () {throw (new Error ("x"))} ()); } catch (raw_x){ - var x = Caml_js_exceptions.internalToOCamlException(raw_x); + let x = Caml_js_exceptions.internalToOCamlException(raw_x); f = x.RE_EXN_ID === A ? x._1 : 2; } -var ff; +let ff; try { ff = (function () {throw 3} ()); } catch (raw_x$1){ - var x$1 = Caml_js_exceptions.internalToOCamlException(raw_x$1); + let x$1 = Caml_js_exceptions.internalToOCamlException(raw_x$1); ff = x$1.RE_EXN_ID === A ? x$1._1 : 2; } -var fff; +let fff; try { fff = (function () {throw 2} ()); } catch (raw_x$2){ - var x$2 = Caml_js_exceptions.internalToOCamlException(raw_x$2); + let x$2 = Caml_js_exceptions.internalToOCamlException(raw_x$2); fff = x$2.RE_EXN_ID === A ? x$2._1 : 2; } -var a0; +let a0; try { a0 = (function (){throw 2} ()); } catch (raw_x$3){ - var x$3 = Caml_js_exceptions.internalToOCamlException(raw_x$3); + let x$3 = Caml_js_exceptions.internalToOCamlException(raw_x$3); if (x$3.RE_EXN_ID === A || x$3.RE_EXN_ID === Js_exn.$$Error) { a0 = x$3._1; } else { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_raise_test.res", - 104, - 7 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_raise_test.res", + 104, + 7 + ] + } + }); } } -var a1; +let a1; try { a1 = (function (){throw 2} ()); @@ -122,7 +122,7 @@ catch (raw_e){ a1 = Caml_js_exceptions.internalToOCamlException(raw_e); } -var a2; +let a2; try { a2 = (function (){throw (new Error("x"))} ()); @@ -131,57 +131,57 @@ catch (raw_e$1){ a2 = Caml_js_exceptions.internalToOCamlException(raw_e$1); } -var suites = { +let suites = { contents: { hd: [ "File \"exception_raise_test.res\", line 120, characters 5-12", (function (param) { - return { - TAG: "Eq", - _0: [ - f, - ff, - fff, - a0 - ], - _1: [ - 2, - 2, - 2, - 2 - ] - }; - }) + return { + TAG: "Eq", + _0: [ + f, + ff, + fff, + a0 + ], + _1: [ + 2, + 2, + 2, + 2 + ] + }; + }) ], tl: { hd: [ "File \"exception_raise_test.res\", line 123, characters 6-13", (function (param) { - if (a1.RE_EXN_ID === Js_exn.$$Error) { - return { - TAG: "Eq", - _0: a1._1, - _1: 2 - }; - } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_raise_test.res", - 127, - 15 - ] - } - }); - }) + if (a1.RE_EXN_ID === Js_exn.$$Error) { + return { + TAG: "Eq", + _0: a1._1, + _1: 2 + }; + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_raise_test.res", + 127, + 15 + ] + } + }); + }) ], tl: /* [] */0 } } }; -var test_id = { +let test_id = { contents: 0 }; @@ -193,24 +193,24 @@ try { ((()=>{throw 2})()); } catch (raw_e$2){ - var e = Caml_js_exceptions.internalToOCamlException(raw_e$2); + let e = Caml_js_exceptions.internalToOCamlException(raw_e$2); eq("File \"exception_raise_test.res\", line 137, characters 10-17", Caml_js_exceptions.as_js_exn(e) !== undefined, true); } try { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } catch (raw_e$3){ - var e$1 = Caml_js_exceptions.internalToOCamlException(raw_e$3); + let e$1 = Caml_js_exceptions.internalToOCamlException(raw_e$3); eq("File \"exception_raise_test.res\", line 141, characters 10-17", Caml_js_exceptions.as_js_exn(e$1) !== undefined, false); } function fff0(x, g) { - var val; + let val; try { val = Curry._1(x, undefined); } @@ -222,8 +222,8 @@ function fff0(x, g) { function input_lines(ic, _acc) { while(true) { - var acc = _acc; - var line; + let acc = _acc; + let line; try { line = input_line(ic); } @@ -234,7 +234,7 @@ function input_lines(ic, _acc) { hd: line, tl: acc }; - continue ; + continue; }; } diff --git a/jscomp/test/exception_rebound_err_test.js b/jscomp/test/exception_rebound_err_test.js index dd554dd9a9..b77e33abab 100644 --- a/jscomp/test/exception_rebound_err_test.js +++ b/jscomp/test/exception_rebound_err_test.js @@ -76,8 +76,8 @@ function f(g) { return 1; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/jscomp/test/exception_value_test.js b/jscomp/test/exception_value_test.js index f11c1f95b2..533c2ae25a 100644 --- a/jscomp/test/exception_value_test.js +++ b/jscomp/test/exception_value_test.js @@ -1,50 +1,50 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Js_exn = require("../../lib/js/js_exn.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Js_exn = require("../../lib/js/js_exn.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function f(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function assert_f(x) { if (x <= 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "exception_value_test.res", - 4, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "exception_value_test.res", + 4, + 11 + ] + } + }); } return 3; } function hh(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var A = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.A"); +let A = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.A"); -var B = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.B"); +let B = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.B"); -var C = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.C"); +let C = /* @__PURE__ */Caml_exceptions.create("Exception_value_test.C"); -var u = { +let u = { RE_EXN_ID: A, _1: 3 }; @@ -54,13 +54,13 @@ function test_not_found(f, param) { return Curry._1(f, undefined); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return 2; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -69,16 +69,16 @@ function test_js_error2(param) { return JSON.parse(" {\"x\" : }"); } catch (raw_e){ - var e = Caml_js_exceptions.internalToOCamlException(raw_e); + let e = Caml_js_exceptions.internalToOCamlException(raw_e); if (e.RE_EXN_ID === Js_exn.$$Error) { console.log(e._1.stack); throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } } diff --git a/jscomp/test/ext_array_test.js b/jscomp/test/ext_array_test.js index a062e29d46..d8e014a68f 100644 --- a/jscomp/test/ext_array_test.js +++ b/jscomp/test/ext_array_test.js @@ -1,18 +1,18 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function reverse_range(a, i, len) { if (len === 0) { - return ; + return; } - for(var k = 0 ,k_finish = (len - 1 | 0) / 2 | 0; k <= k_finish; ++k){ - var t = a[i + k | 0]; + for(let k = 0 ,k_finish = (len - 1 | 0) / 2 | 0; k <= k_finish; ++k){ + let t = a[i + k | 0]; a[i + k | 0] = a[((i + len | 0) - 1 | 0) - k | 0]; a[((i + len | 0) - 1 | 0) - k | 0] = t; } @@ -23,12 +23,12 @@ function reverse_in_place(a) { } function reverse(a) { - var b_len = a.length; + let b_len = a.length; if (b_len === 0) { return []; } - var b = $$Array.copy(a); - for(var i = 0; i < b_len; ++i){ + let b = $$Array.copy(a); + for(let i = 0; i < b_len; ++i){ b[i] = a[(b_len - 1 | 0) - i | 0]; } return b; @@ -38,116 +38,116 @@ function reverse_of_list(x) { if (!x) { return []; } - var len = List.length(x); - var a = Caml_array.make(len, x.hd); - var _i = 0; - var _x = x.tl; + let len = List.length(x); + let a = Caml_array.make(len, x.hd); + let _i = 0; + let _x = x.tl; while(true) { - var x$1 = _x; - var i = _i; + let x$1 = _x; + let i = _i; if (!x$1) { return a; } a[(len - i | 0) - 2 | 0] = x$1.hd; _x = x$1.tl; _i = i + 1 | 0; - continue ; + continue; }; } function filter(f, a) { - var arr_len = a.length; - var _acc = /* [] */0; - var _i = 0; + let arr_len = a.length; + let _acc = /* [] */0; + let _i = 0; while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i === arr_len) { return reverse_of_list(acc); } - var v = a[i]; + let v = a[i]; if (Curry._1(f, v)) { _i = i + 1 | 0; _acc = { hd: v, tl: acc }; - continue ; + continue; } _i = i + 1 | 0; - continue ; + continue; }; } function filter_map(f, a) { - var arr_len = a.length; - var _acc = /* [] */0; - var _i = 0; + let arr_len = a.length; + let _acc = /* [] */0; + let _i = 0; while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i === arr_len) { return reverse_of_list(acc); } - var v = a[i]; - var v$1 = Curry._1(f, v); + let v = a[i]; + let v$1 = Curry._1(f, v); if (v$1 !== undefined) { _i = i + 1 | 0; _acc = { hd: Caml_option.valFromOption(v$1), tl: acc }; - continue ; + continue; } _i = i + 1 | 0; - continue ; + continue; }; } function range(from, to_) { if (from > to_) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_array_test.range" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_array_test.range" + } + }); } return $$Array.init((to_ - from | 0) + 1 | 0, (function (i) { - return i + from | 0; - })); + return i + from | 0; + })); } function map2i(f, a, b) { - var len = a.length; + let len = a.length; if (len !== b.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_array_test.map2i" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_array_test.map2i" + } + }); } return $$Array.mapi((function (i, a) { - return Curry._3(f, i, a, b[i]); - }), a); + return Curry._3(f, i, a, b[i]); + }), a); } function tolist_aux(a, f, _i, _res) { while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } - var v = a[i]; - var v$1 = Curry._1(f, v); + let v = a[i]; + let v$1 = Curry._1(f, v); _res = v$1 !== undefined ? ({ - hd: Caml_option.valFromOption(v$1), - tl: res - }) : res; + hd: Caml_option.valFromOption(v$1), + tl: res + }) : res; _i = i - 1 | 0; - continue ; + continue; }; } @@ -163,30 +163,30 @@ function of_list_map(f, a) { if (!a) { return []; } - var tl = a.tl; - var hd = Curry._1(f, a.hd); - var len = List.length(tl) + 1 | 0; - var arr = Caml_array.make(len, hd); - var _i = 1; - var _x = tl; + let tl = a.tl; + let hd = Curry._1(f, a.hd); + let len = List.length(tl) + 1 | 0; + let arr = Caml_array.make(len, hd); + let _i = 1; + let _x = tl; while(true) { - var x = _x; - var i = _i; + let x = _x; + let i = _i; if (!x) { return arr; } arr[i] = Curry._1(f, x.hd); _x = x.tl; _i = i + 1 | 0; - continue ; + continue; }; } function rfind_with_index(arr, cmp, v) { - var len = arr.length; - var _i = len - 1 | 0; + let len = arr.length; + let _i = len - 1 | 0; while(true) { - var i = _i; + let i = _i; if (i < 0) { return i; } @@ -194,30 +194,30 @@ function rfind_with_index(arr, cmp, v) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } function rfind_and_split(arr, cmp, v) { - var i = rfind_with_index(arr, cmp, v); + let i = rfind_with_index(arr, cmp, v); if (i < 0) { return "No_split"; } else { return { - NAME: "Split", - VAL: [ - $$Array.sub(arr, 0, i), - $$Array.sub(arr, i + 1 | 0, (arr.length - i | 0) - 1 | 0) - ] - }; + NAME: "Split", + VAL: [ + $$Array.sub(arr, 0, i), + $$Array.sub(arr, i + 1 | 0, (arr.length - i | 0) - 1 | 0) + ] + }; } } function find_with_index(arr, cmp, v) { - var len = arr.length; - var _i = 0; + let len = arr.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= len) { return -1; } @@ -225,30 +225,30 @@ function find_with_index(arr, cmp, v) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function find_and_split(arr, cmp, v) { - var i = find_with_index(arr, cmp, v); + let i = find_with_index(arr, cmp, v); if (i < 0) { return "No_split"; } else { return { - NAME: "Split", - VAL: [ - $$Array.sub(arr, 0, i), - $$Array.sub(arr, i + 1 | 0, (arr.length - i | 0) - 1 | 0) - ] - }; + NAME: "Split", + VAL: [ + $$Array.sub(arr, 0, i), + $$Array.sub(arr, i + 1 | 0, (arr.length - i | 0) - 1 | 0) + ] + }; } } function exists(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -256,7 +256,7 @@ function exists(p, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -266,7 +266,7 @@ function is_empty(arr) { function unsafe_loop(_index, len, p, xs, ys) { while(true) { - var index = _index; + let index = _index; if (index >= len) { return true; } @@ -274,13 +274,13 @@ function unsafe_loop(_index, len, p, xs, ys) { return false; } _index = index + 1 | 0; - continue ; + continue; }; } function for_all2_no_exn(p, xs, ys) { - var len_xs = xs.length; - var len_ys = ys.length; + let len_xs = xs.length; + let len_ys = ys.length; if (len_xs === len_ys) { return unsafe_loop(0, len_xs, p, xs, ys); } else { diff --git a/jscomp/test/ext_bytes_test.js b/jscomp/test/ext_bytes_test.js index 57c63f3ce9..c8de2ffa23 100644 --- a/jscomp/test/ext_bytes_test.js +++ b/jscomp/test/ext_bytes_test.js @@ -1,20 +1,20 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var Char = require("../../lib/js/char.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); - -var suites = { +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let Char = require("../../lib/js/char.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); + +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -23,9 +23,9 @@ function eq(loc, x, y) { } function escaped(s) { - var n = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var match = s[i]; + let n = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let match = s[i]; n = n + ( match >= 32 ? ( match > 92 || match < 34 ? ( @@ -45,11 +45,11 @@ function escaped(s) { if (n === s.length) { return Bytes.copy(s); } - var s$p = Caml_bytes.create(n); + let s$p = Caml_bytes.create(n); n = 0; - for(var i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ - var c = s[i$1]; - var exit = 0; + for(let i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ + let c = s[i$1]; + let exit = 0; if (c >= 35) { if (c !== 92) { if (c >= 127) { @@ -128,88 +128,88 @@ function escaped(s) { } function starts_with(xs, prefix, p) { - var H = /* @__PURE__ */Caml_exceptions.create("H"); - var len1 = xs.length; - var len2 = prefix.length; + let H = /* @__PURE__ */Caml_exceptions.create("H"); + let len1 = xs.length; + let len2 = prefix.length; if (len2 > len1) { return false; } try { - for(var i = 0; i < len2; ++i){ + for(let i = 0; i < len2; ++i){ if (!Curry._2(p, Caml_bytes.get(xs, i), Caml_bytes.get(prefix, i))) { throw new Error(H, { - cause: { - RE_EXN_ID: H - } - }); + cause: { + RE_EXN_ID: H + } + }); } } return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === H) { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var a = Bytes.init(100, Char.chr); +let a = Bytes.init(100, Char.chr); Bytes.blit(a, 5, a, 10, 10); eq("File \"ext_bytes_test.res\", line 116, characters 4-11", a, Bytes.of_string("\x00\x01\x02\x03\x04\x05\x06\x07\b\t\x05\x06\x07\b\t\n\x0b\x0c\r\x0e\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abc")); -var a$1 = Bytes.init(100, Char.chr); +let a$1 = Bytes.init(100, Char.chr); Bytes.blit(a$1, 10, a$1, 5, 10); eq("File \"ext_bytes_test.res\", line 128, characters 4-11", a$1, Bytes.of_string("\x00\x01\x02\x03\x04\n\x0b\x0c\r\x0e\x0f\x10\x11\x12\x13\x0f\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1a\x1b\x1c\x1d\x1e\x1f !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abc")); -var f = Char.chr; +let f = Char.chr; -var a$2 = Bytes.unsafe_to_string(Bytes.init(100, f)); +let a$2 = Bytes.unsafe_to_string(Bytes.init(100, f)); -var b = Bytes.init(100, (function (i) { - return /* '\000' */0; - })); +let b = Bytes.init(100, (function (i) { + return /* '\000' */0; +})); Bytes.blit_string(a$2, 10, b, 5, 10); eq("File \"ext_bytes_test.res\", line 141, characters 4-11", b, Bytes.of_string("\x00\x00\x00\x00\x00\n\x0b\x0c\r\x0e\x0f\x10\x11\x12\x13\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00")); -var s = Bytes.init(50000, (function (i) { - return Char.chr(i % 137); - })); +let s = Bytes.init(50000, (function (i) { + return Char.chr(i % 137); +})); -var s1 = Bytes.to_string(s); +let s1 = Bytes.to_string(s); -var s2 = Bytes.of_string(s1); +let s2 = Bytes.of_string(s1); eq("File \"ext_bytes_test.res\", line 153, characters 5-12", s, s2); function f$1(a, b) { return [ - Caml_bytes.bytes_greaterthan(a, b), - Caml_bytes.bytes_greaterequal(a, b), - Caml_bytes.bytes_lessthan(a, b), - Caml_bytes.bytes_lessequal(a, b), - Caml_bytes.bytes_equal(a, b) - ]; + Caml_bytes.bytes_greaterthan(a, b), + Caml_bytes.bytes_greaterequal(a, b), + Caml_bytes.bytes_lessthan(a, b), + Caml_bytes.bytes_lessequal(a, b), + Caml_bytes.bytes_equal(a, b) + ]; } function f_0(a, b) { return [ - Caml.i64_gt(a, b), - Caml.i64_ge(a, b), - Caml.i64_lt(a, b), - Caml.i64_le(a, b), - Caml.i64_eq(a, b) - ]; + Caml.i64_gt(a, b), + Caml.i64_ge(a, b), + Caml.i64_lt(a, b), + Caml.i64_le(a, b), + Caml.i64_eq(a, b) + ]; } Mt.from_pair_suites("Ext_bytes_test", suites.contents); diff --git a/jscomp/test/ext_filename_test.js b/jscomp/test/ext_filename_test.js index eb458baa85..a97fbfd66b 100644 --- a/jscomp/test/ext_filename_test.js +++ b/jscomp/test/ext_filename_test.js @@ -1,28 +1,28 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Sys = require("../../lib/js/sys.js"); -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_sys = require("../../lib/js/caml_sys.js"); -var Filename = require("../../lib/js/filename.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Test_literals = require("./test_literals.js"); -var Ext_string_test = require("./ext_string_test.js"); -var CamlinternalLazy = require("../../lib/js/camlinternalLazy.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Sys = require("../../lib/js/sys.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_sys = require("../../lib/js/caml_sys.js"); +let Filename = require("../../lib/js/filename.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Test_literals = require("./test_literals.js"); +let Ext_string_test = require("./ext_string_test.js"); +let CamlinternalLazy = require("../../lib/js/camlinternalLazy.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var node_sep = "/"; +let node_sep = "/"; -var node_parent = ".."; +let node_parent = ".."; -var node_current = "."; +let node_current = "."; -var cwd = CamlinternalLazy.from_fun(function () { - return Caml_sys.sys_getcwd(); - }); +let cwd = CamlinternalLazy.from_fun(function () { + return Caml_sys.sys_getcwd(); +}); function path_as_directory(x) { if (x === "" || Ext_string_test.ends_with(x, Filename.dir_sep)) { @@ -33,12 +33,12 @@ function path_as_directory(x) { } function absolute_path(s) { - var s$1 = Curry._1(Filename.is_relative, s) ? Filename.concat(CamlinternalLazy.force(cwd), s) : s; - var aux = function (_s) { + let s$1 = Curry._1(Filename.is_relative, s) ? Filename.concat(CamlinternalLazy.force(cwd), s) : s; + let aux = function (_s) { while(true) { - var s = _s; - var base = Curry._1(Filename.basename, s); - var dir = Curry._1(Filename.dirname, s); + let s = _s; + let base = Curry._1(Filename.basename, s); + let dir = Curry._1(Filename.dirname, s); if (dir === s) { return dir; } @@ -50,31 +50,31 @@ function absolute_path(s) { } } _s = dir; - continue ; + continue; }; }; return aux(s$1); } function chop_extension(locOpt, name) { - var loc = locOpt !== undefined ? locOpt : ""; + let loc = locOpt !== undefined ? locOpt : ""; try { return Filename.chop_extension(name); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Invalid_argument") { - var s = "Filename.chop_extension ( " + loc + " : " + name + " )"; + let s = "Filename.chop_extension ( " + loc + " : " + name + " )"; throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -83,49 +83,49 @@ function chop_extension_if_any(fname) { return Filename.chop_extension(fname); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Invalid_argument") { return fname; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var os_path_separator_char = Filename.dir_sep.codePointAt(0); +let os_path_separator_char = Filename.dir_sep.codePointAt(0); function relative_path(file_or_dir_1, file_or_dir_2) { - var relevant_dir1 = file_or_dir_1.NAME === "File" ? Curry._1(Filename.dirname, file_or_dir_1.VAL) : file_or_dir_1.VAL; - var relevant_dir2 = file_or_dir_2.NAME === "File" ? Curry._1(Filename.dirname, file_or_dir_2.VAL) : file_or_dir_2.VAL; - var dir1 = Ext_string_test.split(undefined, relevant_dir1, os_path_separator_char); - var dir2 = Ext_string_test.split(undefined, relevant_dir2, os_path_separator_char); - var go = function (_dir1, _dir2) { + let relevant_dir1 = file_or_dir_1.NAME === "File" ? Curry._1(Filename.dirname, file_or_dir_1.VAL) : file_or_dir_1.VAL; + let relevant_dir2 = file_or_dir_2.NAME === "File" ? Curry._1(Filename.dirname, file_or_dir_2.VAL) : file_or_dir_2.VAL; + let dir1 = Ext_string_test.split(undefined, relevant_dir1, os_path_separator_char); + let dir2 = Ext_string_test.split(undefined, relevant_dir2, os_path_separator_char); + let go = function (_dir1, _dir2) { while(true) { - var dir2 = _dir2; - var dir1 = _dir1; + let dir2 = _dir2; + let dir1 = _dir1; if (dir1 && dir2 && dir1.hd === dir2.hd) { _dir2 = dir2.tl; _dir1 = dir1.tl; - continue ; + continue; } return Pervasives.$at(List.map((function (param) { - return node_parent; - }), dir2), dir1); + return node_parent; + }), dir2), dir1); }; }; - var ys = go(dir1, dir2); + let ys = go(dir1, dir2); if (ys) { if (ys.hd === node_parent) { return $$Array.of_list(ys).join(node_sep); } - var xs = { + let xs = { hd: node_current, tl: ys }; return $$Array.of_list(xs).join(node_sep); } - var xs$1 = { + let xs$1 = { hd: node_current, tl: ys }; @@ -133,42 +133,42 @@ function relative_path(file_or_dir_1, file_or_dir_2) { } function node_relative_path(node_modules_shorten, file1, dep_file) { - var file2 = dep_file.VAL; - var v = Ext_string_test.find(undefined, Test_literals.node_modules, file2); - var len = file2.length; + let file2 = dep_file.VAL; + let v = Ext_string_test.find(undefined, Test_literals.node_modules, file2); + let len = file2.length; if (!(node_modules_shorten && v >= 0)) { return relative_path(dep_file.NAME === "File" ? ({ - NAME: "File", - VAL: absolute_path(dep_file.VAL) - }) : ({ - NAME: "Dir", - VAL: absolute_path(dep_file.VAL) - }), file1.NAME === "File" ? ({ - NAME: "File", - VAL: absolute_path(file1.VAL) - }) : ({ - NAME: "Dir", - VAL: absolute_path(file1.VAL) - })) + (node_sep + Curry._1(Filename.basename, file2)); + NAME: "File", + VAL: absolute_path(dep_file.VAL) + }) : ({ + NAME: "Dir", + VAL: absolute_path(dep_file.VAL) + }), file1.NAME === "File" ? ({ + NAME: "File", + VAL: absolute_path(file1.VAL) + }) : ({ + NAME: "Dir", + VAL: absolute_path(file1.VAL) + })) + (node_sep + Curry._1(Filename.basename, file2)); } - var skip = function (_i) { + let skip = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= len) { - var s = "invalid path: " + file2; + let s = "invalid path: " + file2; throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } - var curr_char = file2.codePointAt(i); + let curr_char = file2.codePointAt(i); if (!(curr_char === os_path_separator_char || curr_char === /* '.' */46)) { return i; } _i = i + 1 | 0; - continue ; + continue; }; }; return Ext_string_test.tail_from(file2, skip(v + Test_literals.node_modules_length | 0)); @@ -176,22 +176,22 @@ function node_relative_path(node_modules_shorten, file1, dep_file) { function find_root_filename(_cwd, filename) { while(true) { - var cwd = _cwd; + let cwd = _cwd; if (Caml_sys.sys_file_exists(Filename.concat(cwd, filename))) { return cwd; } - var cwd$p = Curry._1(Filename.dirname, cwd); + let cwd$p = Curry._1(Filename.dirname, cwd); if (cwd$p.length < cwd.length) { _cwd = cwd$p; - continue ; + continue; } - var s = filename + " not found from " + cwd; + let s = filename + " not found from " + cwd; throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); }; } @@ -199,18 +199,18 @@ function find_package_json_dir(cwd) { return find_root_filename(cwd, Test_literals.bsconfig_json); } -var package_dir = CamlinternalLazy.from_fun(function () { - var cwd$1 = CamlinternalLazy.force(cwd); - return find_root_filename(cwd$1, Test_literals.bsconfig_json); - }); +let package_dir = CamlinternalLazy.from_fun(function () { + let cwd$1 = CamlinternalLazy.force(cwd); + return find_root_filename(cwd$1, Test_literals.bsconfig_json); +}); function module_name_of_file(file) { - var s = Filename.chop_extension(Curry._1(Filename.basename, file)); + let s = Filename.chop_extension(Curry._1(Filename.basename, file)); return Bytes.unsafe_to_string(Bytes.capitalize_ascii(Bytes.unsafe_of_string(s))); } function module_name_of_file_if_any(file) { - var s = chop_extension_if_any(Curry._1(Filename.basename, file)); + let s = chop_extension_if_any(Curry._1(Filename.basename, file)); return Bytes.unsafe_to_string(Bytes.capitalize_ascii(Bytes.unsafe_of_string(s))); } @@ -227,44 +227,44 @@ function combine(p1, p2) { } function split_aux(p) { - var _p = p; - var _acc = /* [] */0; + let _p = p; + let _acc = /* [] */0; while(true) { - var acc = _acc; - var p$1 = _p; - var dir = Curry._1(Filename.dirname, p$1); + let acc = _acc; + let p$1 = _p; + let dir = Curry._1(Filename.dirname, p$1); if (dir === p$1) { return [ - dir, - acc - ]; + dir, + acc + ]; } - var new_path = Curry._1(Filename.basename, p$1); + let new_path = Curry._1(Filename.basename, p$1); if (new_path === Filename.dir_sep) { _p = dir; - continue ; + continue; } _acc = { hd: new_path, tl: acc }; _p = dir; - continue ; + continue; }; } function rel_normalized_absolute_path(from, to_) { - var match = split_aux(from); - var match$1 = split_aux(to_); - var root2 = match$1[0]; + let match = split_aux(from); + let match$1 = split_aux(to_); + let root2 = match$1[0]; if (match[0] !== root2) { return root2; } - var _xss = match[1]; - var _yss = match$1[1]; + let _xss = match[1]; + let _yss = match$1[1]; while(true) { - var yss = _yss; - var xss = _xss; + let yss = _yss; + let xss = _xss; if (!xss) { if (yss) { return List.fold_left(Filename.concat, yss.hd, yss.tl); @@ -272,73 +272,73 @@ function rel_normalized_absolute_path(from, to_) { return Ext_string_test.empty; } } - var xs = xss.tl; + let xs = xss.tl; if (!yss) { return List.fold_left((function (acc, param) { - return Filename.concat(acc, Ext_string_test.parent_dir_lit); - }), Ext_string_test.parent_dir_lit, xs); + return Filename.concat(acc, Ext_string_test.parent_dir_lit); + }), Ext_string_test.parent_dir_lit, xs); } if (xss.hd === yss.hd) { _yss = yss.tl; _xss = xs; - continue ; + continue; } - var start = List.fold_left((function (acc, param) { - return Filename.concat(acc, Ext_string_test.parent_dir_lit); - }), Ext_string_test.parent_dir_lit, xs); + let start = List.fold_left((function (acc, param) { + return Filename.concat(acc, Ext_string_test.parent_dir_lit); + }), Ext_string_test.parent_dir_lit, xs); return List.fold_left(Filename.concat, start, yss); }; } function normalize_absolute_path(x) { - var drop_if_exist = function (xs) { + let drop_if_exist = function (xs) { if (xs) { return xs.tl; } else { return /* [] */0; } }; - var normalize_list = function (_acc, _paths) { + let normalize_list = function (_acc, _paths) { while(true) { - var paths = _paths; - var acc = _acc; + let paths = _paths; + let acc = _acc; if (!paths) { return acc; } - var xs = paths.tl; - var x = paths.hd; + let xs = paths.tl; + let x = paths.hd; if (x === Ext_string_test.current_dir_lit) { _paths = xs; - continue ; + continue; } if (x === Ext_string_test.parent_dir_lit) { _paths = xs; _acc = drop_if_exist(acc); - continue ; + continue; } _paths = xs; _acc = { hd: x, tl: acc }; - continue ; + continue; }; }; - var match = split_aux(x); - var root = match[0]; - var rev_paths = normalize_list(/* [] */0, match[1]); + let match = split_aux(x); + let root = match[0]; + let rev_paths = normalize_list(/* [] */0, match[1]); if (rev_paths) { - var _acc = rev_paths.hd; - var _rev_paths = rev_paths.tl; + let _acc = rev_paths.hd; + let _rev_paths = rev_paths.tl; while(true) { - var rev_paths$1 = _rev_paths; - var acc = _acc; + let rev_paths$1 = _rev_paths; + let acc = _acc; if (!rev_paths$1) { return Filename.concat(root, acc); } _rev_paths = rev_paths$1.tl; _acc = Filename.concat(rev_paths$1.hd, acc); - continue ; + continue; }; } else { return root; @@ -346,7 +346,7 @@ function normalize_absolute_path(x) { } function get_extension(x) { - var pos = Ext_string_test.rindex_neg(x, /* '.' */46); + let pos = Ext_string_test.rindex_neg(x, /* '.' */46); if (pos < 0) { return ""; } else { @@ -354,25 +354,25 @@ function get_extension(x) { } } -var simple_convert_node_path_to_os_path; +let simple_convert_node_path_to_os_path; if (Sys.unix) { simple_convert_node_path_to_os_path = (function (x) { - return x; - }); + return x; + }); } else if (Sys.win32 || false) { simple_convert_node_path_to_os_path = Ext_string_test.replace_slash_backward; } else { - var s = "Unknown OS : " + Sys.os_type; + let s = "Unknown OS : " + Sys.os_type; throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } -var $slash$slash = Filename.concat; +let $slash$slash = Filename.concat; exports.node_sep = node_sep; exports.node_parent = node_parent; diff --git a/jscomp/test/ext_list_test.js b/jscomp/test/ext_list_test.js index 7eb3615327..4a7e668636 100644 --- a/jscomp/test/ext_list_test.js +++ b/jscomp/test/ext_list_test.js @@ -1,150 +1,150 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_option = require("../../lib/js/caml_option.js"); -var Ext_string_test = require("./ext_string_test.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_option = require("../../lib/js/caml_option.js"); +let Ext_string_test = require("./ext_string_test.js"); function filter_map(f, _xs) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var ys = xs.tl; - var z = Curry._1(f, xs.hd); + let ys = xs.tl; + let z = Curry._1(f, xs.hd); if (z !== undefined) { return { - hd: Caml_option.valFromOption(z), - tl: filter_map(f, ys) - }; + hd: Caml_option.valFromOption(z), + tl: filter_map(f, ys) + }; } _xs = ys; - continue ; + continue; }; } function excludes(p, l) { - var excluded = { + let excluded = { contents: false }; - var aux = function (_accu, _x) { + let aux = function (_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return List.rev(accu); } - var l = x.tl; - var x$1 = x.hd; + let l = x.tl; + let x$1 = x.hd; if (Curry._1(p, x$1)) { excluded.contents = true; _x = l; - continue ; + continue; } _x = l; _accu = { hd: x$1, tl: accu }; - continue ; + continue; }; }; - var v = aux(/* [] */0, l); + let v = aux(/* [] */0, l); if (excluded.contents) { return [ - true, - v - ]; + true, + v + ]; } else { return [ - false, - l - ]; + false, + l + ]; } } function exclude_with_fact(p, l) { - var excluded = { + let excluded = { contents: undefined }; - var aux = function (_accu, _x) { + let aux = function (_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return List.rev(accu); } - var l = x.tl; - var x$1 = x.hd; + let l = x.tl; + let x$1 = x.hd; if (Curry._1(p, x$1)) { excluded.contents = Caml_option.some(x$1); _x = l; - continue ; + continue; } _x = l; _accu = { hd: x$1, tl: accu }; - continue ; + continue; }; }; - var v = aux(/* [] */0, l); + let v = aux(/* [] */0, l); return [ - excluded.contents, - excluded.contents !== undefined ? v : l - ]; + excluded.contents, + excluded.contents !== undefined ? v : l + ]; } function exclude_with_fact2(p1, p2, l) { - var excluded1 = { + let excluded1 = { contents: undefined }; - var excluded2 = { + let excluded2 = { contents: undefined }; - var aux = function (_accu, _x) { + let aux = function (_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return List.rev(accu); } - var l = x.tl; - var x$1 = x.hd; + let l = x.tl; + let x$1 = x.hd; if (Curry._1(p1, x$1)) { excluded1.contents = Caml_option.some(x$1); _x = l; - continue ; + continue; } if (Curry._1(p2, x$1)) { excluded2.contents = Caml_option.some(x$1); _x = l; - continue ; + continue; } _x = l; _accu = { hd: x$1, tl: accu }; - continue ; + continue; }; }; - var v = aux(/* [] */0, l); + let v = aux(/* [] */0, l); return [ - excluded1.contents, - excluded2.contents, - excluded1.contents !== undefined && excluded2.contents !== undefined ? v : l - ]; + excluded1.contents, + excluded2.contents, + excluded1.contents !== undefined && excluded2.contents !== undefined ? v : l + ]; } function same_length(_xs, _ys) { while(true) { - var ys = _ys; - var xs = _xs; + let ys = _ys; + let xs = _xs; if (!xs) { if (ys) { return false; @@ -157,29 +157,29 @@ function same_length(_xs, _ys) { } _ys = ys.tl; _xs = xs.tl; - continue ; + continue; }; } function filter_mapi(f, xs) { - var aux = function (_i, _xs) { + let aux = function (_i, _xs) { while(true) { - var xs = _xs; - var i = _i; + let xs = _xs; + let i = _i; if (!xs) { return /* [] */0; } - var ys = xs.tl; - var z = Curry._2(f, i, xs.hd); + let ys = xs.tl; + let z = Curry._2(f, i, xs.hd); if (z !== undefined) { return { - hd: Caml_option.valFromOption(z), - tl: aux(i + 1 | 0, ys) - }; + hd: Caml_option.valFromOption(z), + tl: aux(i + 1 | 0, ys) + }; } _xs = ys; _i = i + 1 | 0; - continue ; + continue; }; }; return aux(0, xs); @@ -187,80 +187,80 @@ function filter_mapi(f, xs) { function filter_map2(f, _xs, _ys) { while(true) { - var ys = _ys; - var xs = _xs; + let ys = _ys; + let xs = _xs; if (xs) { if (ys) { - var vs = ys.tl; - var us = xs.tl; - var z = Curry._2(f, xs.hd, ys.hd); + let vs = ys.tl; + let us = xs.tl; + let z = Curry._2(f, xs.hd, ys.hd); if (z !== undefined) { return { - hd: Caml_option.valFromOption(z), - tl: filter_map2(f, us, vs) - }; + hd: Caml_option.valFromOption(z), + tl: filter_map2(f, us, vs) + }; } _ys = vs; _xs = us; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2" + } + }); } if (!ys) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2" + } + }); }; } function filter_map2i(f, xs, ys) { - var aux = function (_i, _xs, _ys) { + let aux = function (_i, _xs, _ys) { while(true) { - var ys = _ys; - var xs = _xs; - var i = _i; + let ys = _ys; + let xs = _xs; + let i = _i; if (xs) { if (ys) { - var vs = ys.tl; - var us = xs.tl; - var z = Curry._3(f, i, xs.hd, ys.hd); + let vs = ys.tl; + let us = xs.tl; + let z = Curry._3(f, i, xs.hd, ys.hd); if (z !== undefined) { return { - hd: Caml_option.valFromOption(z), - tl: aux(i + 1 | 0, us, vs) - }; + hd: Caml_option.valFromOption(z), + tl: aux(i + 1 | 0, us, vs) + }; } _ys = vs; _xs = us; _i = i + 1 | 0; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2i" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2i" + } + }); } if (!ys) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.filter_map2i" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.filter_map2i" + } + }); }; }; return aux(0, xs, ys); @@ -268,8 +268,8 @@ function filter_map2i(f, xs, ys) { function rev_map_append(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -278,39 +278,39 @@ function rev_map_append(f, _l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } function flat_map2(f, lx, ly) { - var _acc = /* [] */0; - var _lx = lx; - var _ly = ly; + let _acc = /* [] */0; + let _lx = lx; + let _ly = ly; while(true) { - var ly$1 = _ly; - var lx$1 = _lx; - var acc = _acc; + let ly$1 = _ly; + let lx$1 = _lx; + let acc = _acc; if (lx$1) { if (ly$1) { _ly = ly$1.tl; _lx = lx$1.tl; _acc = List.rev_append(Curry._2(f, lx$1.hd, ly$1.hd), acc); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.flat_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.flat_map2" + } + }); } if (ly$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.flat_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.flat_map2" + } + }); } return List.rev(acc); }; @@ -318,14 +318,14 @@ function flat_map2(f, lx, ly) { function flat_map_aux(f, _acc, append, _lx) { while(true) { - var lx = _lx; - var acc = _acc; + let lx = _lx; + let acc = _acc; if (!lx) { return List.rev_append(acc, append); } _lx = lx.tl; _acc = List.rev_append(Curry._1(f, lx.hd), acc); - continue ; + continue; }; } @@ -339,74 +339,74 @@ function flat_map_acc(f, append, lx) { function map2_last(f, l1, l2) { if (l1) { - var l1$1 = l1.tl; - var u = l1.hd; + let l1$1 = l1.tl; + let u = l1.hd; if (!l1$1) { if (l2) { if (!l2.tl) { return { - hd: Curry._3(f, true, u, l2.hd), - tl: /* [] */0 - }; + hd: Curry._3(f, true, u, l2.hd), + tl: /* [] */0 + }; } } else { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } } if (l2) { - var r = Curry._3(f, false, u, l2.hd); + let r = Curry._3(f, false, u, l2.hd); return { - hd: r, - tl: map2_last(f, l1$1, l2.tl) - }; + hd: r, + tl: map2_last(f, l1$1, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2_last" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2_last" + } + }); } function map_last(f, l1) { if (!l1) { return /* [] */0; } - var l1$1 = l1.tl; - var u = l1.hd; + let l1$1 = l1.tl; + let u = l1.hd; if (!l1$1) { return { - hd: Curry._2(f, true, u), - tl: /* [] */0 - }; + hd: Curry._2(f, true, u), + tl: /* [] */0 + }; } - var r = Curry._2(f, false, u); + let r = Curry._2(f, false, u); return { - hd: r, - tl: map_last(f, l1$1) - }; + hd: r, + tl: map_last(f, l1$1) + }; } function fold_right2_last(f, l1, l2, accu) { if (l1) { - var l1$1 = l1.tl; - var last1 = l1.hd; + let l1$1 = l1.tl; + let last1 = l1.hd; if (!l1$1) { if (l2) { if (!l2.tl) { @@ -415,30 +415,30 @@ function fold_right2_last(f, l1, l2, accu) { } else { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } } if (l2) { return Curry._4(f, false, last1, l2.hd, fold_right2_last(f, l1$1, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } @@ -448,44 +448,44 @@ function init(n, f) { } function take(n, l) { - var arr = $$Array.of_list(l); - var arr_length = arr.length; + let arr = $$Array.of_list(l); + let arr_length = arr.length; if (arr_length < n) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.take" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.take" + } + }); } return [ - $$Array.to_list($$Array.sub(arr, 0, n)), - $$Array.to_list($$Array.sub(arr, n, arr_length - n | 0)) - ]; + $$Array.to_list($$Array.sub(arr, 0, n)), + $$Array.to_list($$Array.sub(arr, n, arr_length - n | 0)) + ]; } function try_take(n, l) { - var arr = $$Array.of_list(l); - var arr_length = arr.length; + let arr = $$Array.of_list(l); + let arr_length = arr.length; if (arr_length <= n) { return [ - l, - arr_length, - /* [] */0 - ]; + l, + arr_length, + /* [] */0 + ]; } else { return [ - $$Array.to_list($$Array.sub(arr, 0, n)), - n, - $$Array.to_list($$Array.sub(arr, n, arr_length - n | 0)) - ]; + $$Array.to_list($$Array.sub(arr, 0, n)), + n, + $$Array.to_list($$Array.sub(arr, n, arr_length - n | 0)) + ]; } } function length_compare(_l, _n) { while(true) { - var n = _n; - var l = _l; + let n = _n; + let l = _l; if (n < 0) { return "Gt"; } @@ -498,14 +498,14 @@ function length_compare(_l, _n) { } _n = n - 1 | 0; _l = l.tl; - continue ; + continue; }; } function length_larger_than_n(n, _xs, _ys) { while(true) { - var ys = _ys; - var xs = _xs; + let ys = _ys; + let xs = _xs; if (!ys) { return length_compare(xs, n) === "Eq"; } @@ -514,38 +514,38 @@ function length_larger_than_n(n, _xs, _ys) { } _ys = ys.tl; _xs = xs.tl; - continue ; + continue; }; } function exclude_tail(x) { - var _acc = /* [] */0; - var _x = x; + let _acc = /* [] */0; + let _x = x; while(true) { - var x$1 = _x; - var acc = _acc; + let x$1 = _x; + let acc = _acc; if (x$1) { - var ys = x$1.tl; - var x$2 = x$1.hd; + let ys = x$1.tl; + let x$2 = x$1.hd; if (!ys) { return [ - x$2, - List.rev(acc) - ]; + x$2, + List.rev(acc) + ]; } _x = ys; _acc = { hd: x$2, tl: acc }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.exclude_tail" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.exclude_tail" + } + }); }; } @@ -560,28 +560,28 @@ function group(cmp, lst) { function aux(cmp, x, xss) { if (!xss) { return { - hd: { - hd: x, - tl: /* [] */0 - }, - tl: /* [] */0 - }; + hd: { + hd: x, + tl: /* [] */0 + }, + tl: /* [] */0 + }; } - var ys = xss.tl; - var y = xss.hd; + let ys = xss.tl; + let y = xss.hd; if (Curry._2(cmp, x, List.hd(y))) { return { - hd: { - hd: x, - tl: y - }, - tl: ys - }; + hd: { + hd: x, + tl: y + }, + tl: ys + }; } else { return { - hd: y, - tl: aux(cmp, x, ys) - }; + hd: y, + tl: aux(cmp, x, ys) + }; } } @@ -591,75 +591,75 @@ function stable_group(cmp, lst) { function drop(_n, _h) { while(true) { - var h = _h; - var n = _n; + let h = _h; + let n = _n; if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.drop" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.drop" + } + }); } if (n === 0) { return h; } if (h === /* [] */0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.drop" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.drop" + } + }); } _h = List.tl(h); _n = n - 1 | 0; - continue ; + continue; }; } function find_first_not(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } - var a = x.hd; + let a = x.hd; if (!Curry._1(p, a)) { return Caml_option.some(a); } _x = x.tl; - continue ; + continue; }; } function for_all_opt(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } - var v = Curry._1(p, x.hd); + let v = Curry._1(p, x.hd); if (v !== undefined) { return v; } _x = x.tl; - continue ; + continue; }; } function fold(f, l, init) { return List.fold_left((function (acc, i) { - return Curry._2(f, i, init); - }), init, l); + return Curry._2(f, i, init); + }), init, l); } function rev_map_acc(acc, f, l) { - var _accu = acc; - var _x = l; + let _accu = acc; + let _x = l; while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return accu; } @@ -668,16 +668,16 @@ function rev_map_acc(acc, f, l) { hd: Curry._1(f, x.hd), tl: accu }; - continue ; + continue; }; } function map_acc(acc, f, l) { if (l) { return { - hd: Curry._1(f, l.hd), - tl: map_acc(acc, f, l.tl) - }; + hd: Curry._1(f, l.hd), + tl: map_acc(acc, f, l.tl) + }; } else { return acc; } @@ -693,8 +693,8 @@ function rev_iter(f, xs) { function for_all2_no_exn(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return false; @@ -710,55 +710,55 @@ function for_all2_no_exn(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function find_no_exn(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } - var x$1 = x.hd; + let x$1 = x.hd; if (Curry._1(p, x$1)) { return Caml_option.some(x$1); } _x = x.tl; - continue ; + continue; }; } function find_opt(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } - var v = Curry._1(p, x.hd); + let v = Curry._1(p, x.hd); if (v !== undefined) { return v; } _x = x.tl; - continue ; + continue; }; } function split_map(f, xs) { - var _bs = /* [] */0; - var _cs = /* [] */0; - var _xs = xs; + let _bs = /* [] */0; + let _cs = /* [] */0; + let _xs = xs; while(true) { - var xs$1 = _xs; - var cs = _cs; - var bs = _bs; + let xs$1 = _xs; + let cs = _cs; + let bs = _bs; if (!xs$1) { return [ - List.rev(bs), - List.rev(cs) - ]; + List.rev(bs), + List.rev(cs) + ]; } - var match = Curry._1(f, xs$1.hd); + let match = Curry._1(f, xs$1.hd); _xs = xs$1.tl; _cs = { hd: match[1], @@ -768,23 +768,23 @@ function split_map(f, xs) { hd: match[0], tl: bs }; - continue ; + continue; }; } function reduce_from_right(fn, lst) { - var match = List.rev(lst); + let match = List.rev(lst); if (match) { return List.fold_left((function (x, y) { - return Curry._2(fn, y, x); - }), match.hd, match.tl); + return Curry._2(fn, y, x); + }), match.hd, match.tl); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.reduce" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.reduce" + } + }); } function reduce_from_left(fn, lst) { @@ -792,34 +792,34 @@ function reduce_from_left(fn, lst) { return List.fold_left(fn, lst.hd, lst.tl); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.reduce_from_left" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.reduce_from_left" + } + }); } function create_ref_empty(param) { return { - contents: /* [] */0 - }; + contents: /* [] */0 + }; } function ref_top(x) { - var match = x.contents; + let match = x.contents; if (match) { return match.hd; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.ref_top" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.ref_top" + } + }); } function ref_empty(x) { - var match = x.contents; + let match = x.contents; if (match) { return false; } else { @@ -835,127 +835,127 @@ function ref_push(x, refs) { } function ref_pop(refs) { - var match = refs.contents; + let match = refs.contents; if (match) { refs.contents = match.tl; return match.hd; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.ref_pop" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.ref_pop" + } + }); } function rev_except_last(xs) { - var _acc = /* [] */0; - var _xs = xs; + let _acc = /* [] */0; + let _xs = xs; while(true) { - var xs$1 = _xs; - var acc = _acc; + let xs$1 = _xs; + let acc = _acc; if (xs$1) { - var xs$2 = xs$1.tl; - var x = xs$1.hd; + let xs$2 = xs$1.tl; + let x = xs$1.hd; if (!xs$2) { return [ - acc, - x - ]; + acc, + x + ]; } _xs = xs$2; _acc = { hd: x, tl: acc }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.rev_except_last" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.rev_except_last" + } + }); }; } function sort_via_array(cmp, lst) { - var arr = $$Array.of_list(lst); + let arr = $$Array.of_list(lst); $$Array.sort(cmp, arr); return $$Array.to_list(arr); } function last(_xs) { while(true) { - var xs = _xs; + let xs = _xs; if (xs) { - var tl = xs.tl; + let tl = xs.tl; if (!tl) { return xs.hd; } _xs = tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_list_test.last" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_list_test.last" + } + }); }; } function assoc_by_string(def, k, _lst) { while(true) { - var lst = _lst; + let lst = _lst; if (lst) { - var match = lst.hd; + let match = lst.hd; if (match[0] === k) { return match[1]; } _lst = lst.tl; - continue ; + continue; } if (def !== undefined) { return Caml_option.valFromOption(def); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ext_list_test.res", - 472, - 14 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ext_list_test.res", + 472, + 14 + ] + } + }); }; } function assoc_by_int(def, k, _lst) { while(true) { - var lst = _lst; + let lst = _lst; if (lst) { - var match = lst.hd; + let match = lst.hd; if (match[0] === k) { return match[1]; } _lst = lst.tl; - continue ; + continue; } if (def !== undefined) { return Caml_option.valFromOption(def); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ext_list_test.res", - 487, - 14 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ext_list_test.res", + 487, + 14 + ] + } + }); }; } diff --git a/jscomp/test/ext_pervasives_test.js b/jscomp/test/ext_pervasives_test.js index fb091d2063..e2da1da2c2 100644 --- a/jscomp/test/ext_pervasives_test.js +++ b/jscomp/test/ext_pervasives_test.js @@ -1,34 +1,34 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_string = require("../../lib/js/caml_string.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_string = require("../../lib/js/caml_string.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function $$finally(v, action, f) { - var e; + let e; try { e = Curry._1(f, v); } catch (e$1){ Curry._1(action, v); throw new Error(e$1.RE_EXN_ID, { - cause: e$1 - }); + cause: e$1 + }); } Curry._1(action, v); return e; } function is_pos_pow(n) { - var E = /* @__PURE__ */Caml_exceptions.create("E"); + let E = /* @__PURE__ */Caml_exceptions.create("E"); try { - var _c = 0; - var _n = n; + let _c = 0; + let _n = n; while(true) { - var n$1 = _n; - var c = _c; + let n$1 = _n; + let c = _c; if (n$1 <= 0) { return -2; } @@ -38,34 +38,34 @@ function is_pos_pow(n) { if ((n$1 & 1) === 0) { _n = (n$1 >> 1); _c = c + 1 | 0; - continue ; + continue; } throw new Error(E, { - cause: { - RE_EXN_ID: E - } - }); + cause: { + RE_EXN_ID: E + } + }); }; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === E) { return -1; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function is_pos_pow_2(n) { - var E = /* @__PURE__ */Caml_exceptions.create("E"); + let E = /* @__PURE__ */Caml_exceptions.create("E"); try { - var _c = 0; - var _n = n; + let _c = 0; + let _n = n; while(true) { - var n$1 = _n; - var c = _c; + let n$1 = _n; + let c = _c; if (n$1 <= 0) { return -2; } @@ -75,29 +75,29 @@ function is_pos_pow_2(n) { if ((n$1 & 1) === 0) { _n = (n$1 >> 1); _c = c + 1 | 0; - continue ; + continue; } throw new Error(E, { - cause: { - RE_EXN_ID: E - } - }); + cause: { + RE_EXN_ID: E + } + }); }; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === E) { return -1; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function hash_variant(s) { - var accu = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let accu = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ accu = Math.imul(223, accu) + Caml_string.get(s, i) | 0; } accu = accu & 2147483647; @@ -108,7 +108,7 @@ function hash_variant(s) { } } -var LargeFile = { +let LargeFile = { u: 3 }; diff --git a/jscomp/test/ext_string_test.js b/jscomp/test/ext_string_test.js index a55cea2e10..45c8749f01 100644 --- a/jscomp/test/ext_string_test.js +++ b/jscomp/test/ext_string_test.js @@ -1,79 +1,79 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Curry = require("../../lib/js/curry.js"); -var $$String = require("../../lib/js/string.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Caml_string = require("../../lib/js/caml_string.js"); -var Ext_bytes_test = require("./ext_bytes_test.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let List = require("../../lib/js/list.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Curry = require("../../lib/js/curry.js"); +let $$String = require("../../lib/js/string.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Caml_string = require("../../lib/js/caml_string.js"); +let Ext_bytes_test = require("./ext_bytes_test.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function split_by(keep_emptyOpt, is_delim, str) { - var keep_empty = keep_emptyOpt !== undefined ? keep_emptyOpt : false; - var len = str.length; - var _acc = /* [] */0; - var _last_pos = len; - var _pos = len - 1 | 0; + let keep_empty = keep_emptyOpt !== undefined ? keep_emptyOpt : false; + let len = str.length; + let _acc = /* [] */0; + let _last_pos = len; + let _pos = len - 1 | 0; while(true) { - var pos = _pos; - var last_pos = _last_pos; - var acc = _acc; + let pos = _pos; + let last_pos = _last_pos; + let acc = _acc; if (pos === -1) { if (last_pos === 0 && !keep_empty) { return acc; } else { return { - hd: $$String.sub(str, 0, last_pos), - tl: acc - }; + hd: $$String.sub(str, 0, last_pos), + tl: acc + }; } } if (Curry._1(is_delim, Caml_string.get(str, pos))) { - var new_len = (last_pos - pos | 0) - 1 | 0; + let new_len = (last_pos - pos | 0) - 1 | 0; if (new_len !== 0 || keep_empty) { - var v = $$String.sub(str, pos + 1 | 0, new_len); + let v = $$String.sub(str, pos + 1 | 0, new_len); _pos = pos - 1 | 0; _last_pos = pos; _acc = { hd: v, tl: acc }; - continue ; + continue; } _pos = pos - 1 | 0; _last_pos = pos; - continue ; + continue; } _pos = pos - 1 | 0; - continue ; + continue; }; } function trim(s) { - var i = 0; - var j = s.length; + let i = 0; + let j = s.length; while((function () { - var tmp = false; - if (i < j) { - var u = s.codePointAt(i); - tmp = u === /* '\t' */9 || u === /* '\n' */10 || u === /* ' ' */32; - } - return tmp; - })()) { + let tmp = false; + if (i < j) { + let u = s.codePointAt(i); + tmp = u === /* '\t' */9 || u === /* '\n' */10 || u === /* ' ' */32; + } + return tmp; + })()) { i = i + 1 | 0; }; - var k = j - 1 | 0; + let k = j - 1 | 0; while((function () { - var tmp = false; - if (k >= i) { - var u = s.codePointAt(k); - tmp = u === /* '\t' */9 || u === /* '\n' */10 || u === /* ' ' */32; - } - return tmp; - })()) { + let tmp = false; + if (k >= i) { + let u = s.codePointAt(k); + tmp = u === /* '\t' */9 || u === /* '\n' */10 || u === /* ' ' */32; + } + return tmp; + })()) { k = k - 1 | 0; }; return $$String.sub(s, i, (k - i | 0) + 1 | 0); @@ -84,28 +84,28 @@ function split(keep_empty, str, on) { return /* [] */0; } else { return split_by(keep_empty, (function (x) { - return x === on; - }), str); + return x === on; + }), str); } } function quick_split_by_ws(str) { return split_by(false, (function (x) { - if (x === /* '\t' */9 || x === /* '\n' */10) { - return true; - } else { - return x === /* ' ' */32; - } - }), str); + if (x === /* '\t' */9 || x === /* '\n' */10) { + return true; + } else { + return x === /* ' ' */32; + } + }), str); } function starts_with(s, beg) { - var beg_len = beg.length; - var s_len = s.length; + let beg_len = beg.length; + let s_len = s.length; if (beg_len > s_len) { return false; } - var i = 0; + let i = 0; while(i < beg_len && s.codePointAt(i) === beg.codePointAt(i)) { i = i + 1 | 0; }; @@ -113,16 +113,16 @@ function starts_with(s, beg) { } function ends_with_index(s, end_) { - var s_finish = s.length - 1 | 0; - var s_beg = end_.length - 1 | 0; + let s_finish = s.length - 1 | 0; + let s_beg = end_.length - 1 | 0; if (s_beg > s_finish) { return -1; } - var _j = s_finish; - var _k = s_beg; + let _j = s_finish; + let _k = s_beg; while(true) { - var k = _k; - var j = _j; + let k = _k; + let j = _j; if (k < 0) { return j + 1 | 0; } @@ -131,7 +131,7 @@ function ends_with_index(s, end_) { } _k = k - 1 | 0; _j = j - 1 | 0; - continue ; + continue; }; } @@ -140,7 +140,7 @@ function ends_with(s, end_) { } function ends_with_then_chop(s, beg) { - var i = ends_with_index(s, beg); + let i = ends_with_index(s, beg); if (i >= 0) { return $$String.sub(s, 0, i); } @@ -149,34 +149,34 @@ function ends_with_then_chop(s, beg) { function check_any_suffix_case(s, suffixes) { return List.exists((function (x) { - return ends_with(s, x); - }), suffixes); + return ends_with(s, x); + }), suffixes); } function check_any_suffix_case_then_chop(s, suffixes) { - var _suffixes = suffixes; + let _suffixes = suffixes; while(true) { - var suffixes$1 = _suffixes; + let suffixes$1 = _suffixes; if (!suffixes$1) { - return ; + return; } - var id = ends_with_index(s, suffixes$1.hd); + let id = ends_with_index(s, suffixes$1.hd); if (id >= 0) { return $$String.sub(s, 0, id); } _suffixes = suffixes$1.tl; - continue ; + continue; }; } function escaped(s) { - var needs_escape = function (_i) { + let needs_escape = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= s.length) { return false; } - var match = s.codePointAt(i); + let match = s.codePointAt(i); if (match < 32) { return true; } @@ -185,13 +185,13 @@ function escaped(s) { return true; } _i = i + 1 | 0; - continue ; + continue; } if (match > 91 || match < 35) { return true; } _i = i + 1 | 0; - continue ; + continue; }; }; if (needs_escape(0)) { @@ -203,7 +203,7 @@ function escaped(s) { function unsafe_for_all_range(s, _start, finish, p) { while(true) { - var start = _start; + let start = _start; if (start > finish) { return true; } @@ -211,19 +211,19 @@ function unsafe_for_all_range(s, _start, finish, p) { return false; } _start = start + 1 | 0; - continue ; + continue; }; } function for_all_range(s, start, finish, p) { - var len = s.length; + let len = s.length; if (start < 0 || finish >= len) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.for_all_range" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.for_all_range" + } + }); } return unsafe_for_all_range(s, start, finish, p); } @@ -237,9 +237,9 @@ function is_empty(s) { } function repeat(n, s) { - var len = s.length; - var res = Caml_bytes.create(Math.imul(n, len)); - for(var i = 0; i < n; ++i){ + let len = s.length; + let res = Caml_bytes.create(Math.imul(n, len)); + for(let i = 0; i < n; ++i){ $$String.blit(s, 0, res, Math.imul(i, len), len); } return Bytes.to_string(res); @@ -247,9 +247,9 @@ function repeat(n, s) { function unsafe_is_sub(sub, i, s, j, len) { if ((j + len | 0) <= s.length) { - var _k = 0; + let _k = 0; while(true) { - var k = _k; + let k = _k; if (k === len) { return true; } @@ -257,41 +257,41 @@ function unsafe_is_sub(sub, i, s, j, len) { return false; } _k = k + 1 | 0; - continue ; + continue; }; } else { return false; } } -var Local_exit = /* @__PURE__ */Caml_exceptions.create("Ext_string_test.Local_exit"); +let Local_exit = /* @__PURE__ */Caml_exceptions.create("Ext_string_test.Local_exit"); function find(startOpt, sub, s) { - var start = startOpt !== undefined ? startOpt : 0; - var n = sub.length; - var s_len = s.length; - var i = start; + let start = startOpt !== undefined ? startOpt : 0; + let n = sub.length; + let s_len = s.length; + let i = start; try { while((i + n | 0) <= s_len) { if (unsafe_is_sub(sub, 0, s, i, n)) { throw new Error(Local_exit, { - cause: { - RE_EXN_ID: Local_exit - } - }); + cause: { + RE_EXN_ID: Local_exit + } + }); } i = i + 1 | 0; }; return -1; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Local_exit) { return i; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -300,94 +300,94 @@ function contain_substring(s, sub) { } function non_overlap_count(sub, s) { - var sub_len = sub.length; + let sub_len = sub.length; if (sub.length === 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.non_overlap_count" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.non_overlap_count" + } + }); } - var _acc = 0; - var _off = 0; + let _acc = 0; + let _off = 0; while(true) { - var off = _off; - var acc = _acc; - var i = find(off, sub, s); + let off = _off; + let acc = _acc; + let i = find(off, sub, s); if (i < 0) { return acc; } _off = i + sub_len | 0; _acc = acc + 1 | 0; - continue ; + continue; }; } function rfind(sub, s) { - var n = sub.length; - var i = s.length - n | 0; + let n = sub.length; + let i = s.length - n | 0; try { while(i >= 0) { if (unsafe_is_sub(sub, 0, s, i, n)) { throw new Error(Local_exit, { - cause: { - RE_EXN_ID: Local_exit - } - }); + cause: { + RE_EXN_ID: Local_exit + } + }); } i = i - 1 | 0; }; return -1; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Local_exit) { return i; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function tail_from(s, x) { - var len = s.length; + let len = s.length; if (x <= len) { return $$String.sub(s, x, len - x | 0); } - var s$1 = "Ext_string_test.tail_from " + (s + (" : " + String(x))); + let s$1 = "Ext_string_test.tail_from " + (s + (" : " + String(x))); throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s$1 - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s$1 + } + }); } function digits_of_str(s, offset, x) { - var _i = 0; - var _acc = 0; + let _i = 0; + let _acc = 0; while(true) { - var acc = _acc; - var i = _i; + let acc = _acc; + let i = _i; if (i >= x) { return acc; } _acc = (Math.imul(10, acc) + Caml_string.get(s, offset + i | 0) | 0) - 48 | 0; _i = i + 1 | 0; - continue ; + continue; }; } function starts_with_and_number(s, offset, beg) { - var beg_len = beg.length; - var s_len = s.length; - var finish_delim = offset + beg_len | 0; + let beg_len = beg.length; + let s_len = s.length; + let finish_delim = offset + beg_len | 0; if (finish_delim > s_len) { return -1; } - var i = offset; + let i = offset; while(i < finish_delim && s.codePointAt(i) === beg.codePointAt(i - offset | 0)) { i = i + 1 | 0; }; @@ -404,7 +404,7 @@ function equal(x, y) { function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { return i; } @@ -412,21 +412,21 @@ function rindex_rec(s, _i, c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -439,11 +439,11 @@ function rindex_opt(s, c) { } function is_valid_module_file(s) { - var len = s.length; + let len = s.length; if (len <= 0) { return false; } - var match = s.codePointAt(0); + let match = s.codePointAt(0); if (match >= 91) { if (match > 122 || match < 97) { return false; @@ -453,29 +453,29 @@ function is_valid_module_file(s) { return false; } return unsafe_for_all_range(s, 1, len - 1 | 0, (function (x) { - if (x >= 65) { - if (x > 96 || x < 91) { - return x < 123; - } else { - return x === 95; - } - } else if (x >= 48) { - return x < 58; - } else { - return x === 39; - } - })); + if (x >= 65) { + if (x > 96 || x < 91) { + return x < 123; + } else { + return x === 95; + } + } else if (x >= 48) { + return x < 58; + } else { + return x === 39; + } + })); } function is_valid_npm_package_name(s) { - var len = s.length; + let len = s.length; if (len > 214) { return false; } if (len <= 0) { return false; } - var match = s.codePointAt(0); + let match = s.codePointAt(0); if (match >= 97) { if (match >= 123) { return false; @@ -485,34 +485,34 @@ function is_valid_npm_package_name(s) { return false; } return unsafe_for_all_range(s, 1, len - 1 | 0, (function (x) { - if (x >= 58) { - if (x >= 97) { - return x < 123; - } else { - return x === 95; - } - } else if (x !== 45) { - return x >= 48; - } else { - return true; - } - })); + if (x >= 58) { + if (x >= 97) { + return x < 123; + } else { + return x === 95; + } + } else if (x !== 45) { + return x >= 48; + } else { + return true; + } + })); } function is_valid_source_name(name) { - var x = check_any_suffix_case_then_chop(name, { - hd: ".ml", + let x = check_any_suffix_case_then_chop(name, { + hd: ".ml", + tl: { + hd: ".res", + tl: { + hd: ".mli", tl: { - hd: ".res", - tl: { - hd: ".mli", - tl: { - hd: ".resi", - tl: /* [] */0 - } - } + hd: ".resi", + tl: /* [] */0 } - }); + } + } + }); if (x !== undefined) { if (is_valid_module_file(x)) { return "Good"; @@ -526,7 +526,7 @@ function is_valid_source_name(name) { function unsafe_no_char(x, ch, _i, last_idx) { while(true) { - var i = _i; + let i = _i; if (i > last_idx) { return true; } @@ -534,13 +534,13 @@ function unsafe_no_char(x, ch, _i, last_idx) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } function unsafe_no_char_idx(x, ch, _i, last_idx) { while(true) { - var i = _i; + let i = _i; if (i > last_idx) { return -1; } @@ -548,19 +548,19 @@ function unsafe_no_char_idx(x, ch, _i, last_idx) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function no_char(x, ch, i, len) { - var str_len = x.length; + let str_len = x.length; if (i < 0 || i >= str_len || len >= str_len) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Ext_string_test.no_char" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Ext_string_test.no_char" + } + }); } return unsafe_no_char(x, ch, i, len); } @@ -574,48 +574,48 @@ function no_slash_idx(x) { } function replace_slash_backward(x) { - var len = x.length; + let len = x.length; if (unsafe_no_char(x, /* '/' */47, 0, len - 1 | 0)) { return x; } else { return $$String.map((function (x) { - if (x !== 47) { - return x; - } else { - return /* '\\' */92; - } - }), x); + if (x !== 47) { + return x; + } else { + return /* '\\' */92; + } + }), x); } } function replace_backward_slash(x) { - var len = x.length; + let len = x.length; if (unsafe_no_char(x, /* '\\' */92, 0, len - 1 | 0)) { return x; } else { return $$String.map((function (x) { - if (x !== 92) { - return x; - } else { - return /* '/' */47; - } - }), x); + if (x !== 92) { + return x; + } else { + return /* '/' */47; + } + }), x); } } -var check_suffix_case = ends_with; +let check_suffix_case = ends_with; -var check_suffix_case_then_chop = ends_with_then_chop; +let check_suffix_case_then_chop = ends_with_then_chop; -var empty = ""; +let empty = ""; -var single_space = " "; +let single_space = " "; -var single_colon = ":"; +let single_colon = ":"; -var parent_dir_lit = ".."; +let parent_dir_lit = ".."; -var current_dir_lit = "."; +let current_dir_lit = "."; exports.split_by = split_by; exports.trim = trim; diff --git a/jscomp/test/extensible_variant_test.js b/jscomp/test/extensible_variant_test.js index 173915a235..a8bfbe5080 100644 --- a/jscomp/test/extensible_variant_test.js +++ b/jscomp/test/extensible_variant_test.js @@ -1,18 +1,18 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Mt = require("./mt.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Str = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.Str"); +let Str = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.Str"); -var Int = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.N.Int"); +let Int = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.N.Int"); -var N = { +let N = { Int: Int }; -var Int$1 = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.Int"); +let Int$1 = /* @__PURE__ */Caml_exceptions.create("Extensible_variant_test.Int"); function to_int(x) { if (x.RE_EXN_ID === Str) { @@ -25,66 +25,66 @@ function to_int(x) { return x._2; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "extensible_variant_test.res", - 16, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "extensible_variant_test.res", + 16, + 9 + ] + } + }); } -var suites_0 = [ +let suites_0 = [ "test_int", (function (param) { - return { - TAG: "Eq", - _0: 3, - _1: to_int({ - RE_EXN_ID: Int, - _1: 3, - _2: 0 - }) - }; - }) + return { + TAG: "Eq", + _0: 3, + _1: to_int({ + RE_EXN_ID: Int, + _1: 3, + _2: 0 + }) + }; + }) ]; -var suites_1 = { +let suites_1 = { hd: [ "test_int2", (function (param) { - return { - TAG: "Eq", - _0: 0, - _1: to_int({ - RE_EXN_ID: Int$1, - _1: 3, - _2: 0 - }) - }; - }) + return { + TAG: "Eq", + _0: 0, + _1: to_int({ + RE_EXN_ID: Int$1, + _1: 3, + _2: 0 + }) + }; + }) ], tl: { hd: [ "test_string", (function (param) { - return { - TAG: "Eq", - _0: -1, - _1: to_int({ - RE_EXN_ID: Str, - _1: "x" - }) - }; - }) + return { + TAG: "Eq", + _0: -1, + _1: to_int({ + RE_EXN_ID: Str, + _1: "x" + }) + }; + }) ], tl: /* [] */0 } }; -var suites = { +let suites = { hd: suites_0, tl: suites_1 }; diff --git a/jscomp/test/flexible_array_test.js b/jscomp/test/flexible_array_test.js index eece4b002f..c1beeb128a 100644 --- a/jscomp/test/flexible_array_test.js +++ b/jscomp/test/flexible_array_test.js @@ -1,21 +1,21 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_array = require("../../lib/js/caml_array.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_array = require("../../lib/js/caml_array.js"); function sub(_tr, _k) { while(true) { - var k = _k; - var tr = _tr; + let k = _k; + let tr = _tr; if (typeof tr !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (k === 1) { return tr._0; @@ -23,11 +23,11 @@ function sub(_tr, _k) { if (k % 2 === 0) { _k = k / 2 | 0; _tr = tr._1; - continue ; + continue; } _k = k / 2 | 0; _tr = tr._2; - continue ; + continue; }; } @@ -35,129 +35,129 @@ function update(tr, k, w) { if (typeof tr !== "object") { if (k === 1) { return { - TAG: "Br", - _0: w, - _1: "Lf", - _2: "Lf" - }; + TAG: "Br", + _0: w, + _1: "Lf", + _2: "Lf" + }; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = tr._2; - var l = tr._1; + let r = tr._2; + let l = tr._1; if (k === 1) { return { - TAG: "Br", - _0: w, - _1: l, - _2: r - }; + TAG: "Br", + _0: w, + _1: l, + _2: r + }; } - var v = tr._0; + let v = tr._0; if (k % 2 === 0) { return { - TAG: "Br", - _0: v, - _1: update(l, k / 2 | 0, w), - _2: r - }; + TAG: "Br", + _0: v, + _1: update(l, k / 2 | 0, w), + _2: r + }; } else { return { - TAG: "Br", - _0: v, - _1: l, - _2: update(r, k / 2 | 0, w) - }; + TAG: "Br", + _0: v, + _1: l, + _2: update(r, k / 2 | 0, w) + }; } } function $$delete(tr, n) { if (typeof tr !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (n === 1) { return "Lf"; } - var r = tr._2; - var l = tr._1; - var v = tr._0; + let r = tr._2; + let l = tr._1; + let v = tr._0; if (n % 2 === 0) { return { - TAG: "Br", - _0: v, - _1: $$delete(l, n / 2 | 0), - _2: r - }; + TAG: "Br", + _0: v, + _1: $$delete(l, n / 2 | 0), + _2: r + }; } else { return { - TAG: "Br", - _0: v, - _1: l, - _2: $$delete(r, n / 2 | 0) - }; + TAG: "Br", + _0: v, + _1: l, + _2: $$delete(r, n / 2 | 0) + }; } } function loext(tr, w) { if (typeof tr !== "object") { return { - TAG: "Br", - _0: w, - _1: "Lf", - _2: "Lf" - }; + TAG: "Br", + _0: w, + _1: "Lf", + _2: "Lf" + }; } else { return { - TAG: "Br", - _0: w, - _1: loext(tr._2, tr._0), - _2: tr._1 - }; + TAG: "Br", + _0: w, + _1: loext(tr._2, tr._0), + _2: tr._1 + }; } } function lorem(tr) { if (typeof tr !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = tr._1; + let l = tr._1; if (typeof l === "object") { return { - TAG: "Br", - _0: l._0, - _1: tr._2, - _2: lorem(l) - }; + TAG: "Br", + _0: l._0, + _1: tr._2, + _2: lorem(l) + }; } - var tmp = tr._2; + let tmp = tr._2; if (typeof tmp !== "object") { return "Lf"; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "flexible_array_test.res", - 80, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "flexible_array_test.res", + 80, + 9 + ] + } + }); } -var empty = [ +let empty = [ "Lf", 0 ]; @@ -171,80 +171,80 @@ function get(param, i) { return sub(param[0], i + 1 | 0); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.get" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.get" + } + }); } function set(param, i, v) { - var k = param[1]; + let k = param[1]; if (i >= 0 && i < k) { return [ - update(param[0], i + 1 | 0, v), - k - ]; + update(param[0], i + 1 | 0, v), + k + ]; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.set" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.set" + } + }); } function push_front(param, v) { return [ - loext(param[0], v), - param[1] + 1 | 0 - ]; + loext(param[0], v), + param[1] + 1 | 0 + ]; } function pop_front(param) { - var k = param[1]; + let k = param[1]; if (k > 0) { return [ - lorem(param[0]), - k - 1 | 0 - ]; + lorem(param[0]), + k - 1 | 0 + ]; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.pop_front" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.pop_front" + } + }); } function push_back(param, v) { - var k = param[1]; + let k = param[1]; return [ - update(param[0], k + 1 | 0, v), - k + 1 | 0 - ]; + update(param[0], k + 1 | 0, v), + k + 1 | 0 + ]; } function pop_back(param) { - var k = param[1]; + let k = param[1]; if (k > 0) { return [ - $$delete(param[0], k), - k - 1 | 0 - ]; + $$delete(param[0], k), + k - 1 | 0 + ]; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.pop_back" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.pop_back" + } + }); } function filter_from(i, p, s) { - var u = empty; - for(var i$1 = i ,i_finish = length(s); i$1 < i_finish; ++i$1){ - var ele = get(s, i$1); + let u = empty; + for(let i$1 = i ,i_finish = length(s); i$1 < i_finish; ++i$1){ + let ele = get(s, i$1); if (Curry._1(p, ele)) { u = push_back(u, ele); } @@ -254,42 +254,42 @@ function filter_from(i, p, s) { } function append(a, b) { - var empty$1 = empty; - for(var i = 0 ,i_finish = length(a); i < i_finish; ++i){ + let empty$1 = empty; + for(let i = 0 ,i_finish = length(a); i < i_finish; ++i){ empty$1 = push_back(empty$1, get(a, i)); } - for(var i$1 = 0 ,i_finish$1 = length(b); i$1 < i_finish$1; ++i$1){ + for(let i$1 = 0 ,i_finish$1 = length(b); i$1 < i_finish$1; ++i$1){ empty$1 = push_back(empty$1, get(b, i$1)); } return empty$1; } function sort(s) { - var size = length(s); + let size = length(s); if (size <= 1) { return s; } - var head = get(s, 0); - var larger = sort(filter_from(1, (function (x) { - return Caml_obj.greaterthan(x, head); - }), s)); - var smaller = sort(filter_from(1, (function (x) { - return Caml_obj.lessequal(x, head); - }), s)); + let head = get(s, 0); + let larger = sort(filter_from(1, (function (x) { + return Caml_obj.greaterthan(x, head); + }), s)); + let smaller = sort(filter_from(1, (function (x) { + return Caml_obj.lessequal(x, head); + }), s)); return append(smaller, push_front(larger, head)); } function of_array(arr) { - var v = empty; - for(var i = 0 ,i_finish = arr.length; i < i_finish; ++i){ + let v = empty; + for(let i = 0 ,i_finish = arr.length; i < i_finish; ++i){ v = push_back(v, Caml_array.get(arr, i)); } return v; } -var equal = Caml_obj.equal; +let equal = Caml_obj.equal; -var Int_array = { +let Int_array = { empty: empty, get: get, set: set, @@ -307,46 +307,46 @@ function $eq$tilde(x, y) { return Caml_obj.equal(x, of_array(y)); } -var u = of_array([ - 1, - 2, - 2, - 5, - 3, - 6 - ]); +let u = of_array([ + 1, + 2, + 2, + 5, + 3, + 6 +]); -var x = sort(u); +let x = sort(u); if (!Caml_obj.equal(x, of_array([ - 1, - 2, - 2, - 3, - 5, - 6 - ]))) { + 1, + 2, + 2, + 3, + 5, + 6 + ]))) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "flexible_array_test.res", - 184, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "flexible_array_test.res", + 184, + 2 + ] + } + }); } -var v = $$Array.init(500, (function (i) { - return 500 - i | 0; - })); +let v = $$Array.init(500, (function (i) { + return 500 - i | 0; +})); -var y = $$Array.init(500, (function (i) { - return i + 1 | 0; - })); +let y = $$Array.init(500, (function (i) { + return i + 1 | 0; +})); -var x$1 = sort(of_array(v)); +let x$1 = sort(of_array(v)); Caml_obj.equal(x$1, of_array(y)); diff --git a/jscomp/test/format_regression.js b/jscomp/test/format_regression.js index 8ad999ce3d..13670936e5 100644 --- a/jscomp/test/format_regression.js +++ b/jscomp/test/format_regression.js @@ -1,76 +1,76 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); +let Curry = require("../../lib/js/curry.js"); function peek_queue(param) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 10, - 22 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 10, + 22 + ] + } + }); } function int_of_size(param) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 11, - 23 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 11, + 23 + ] + } + }); } function take_queue(param) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 12, - 22 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 12, + 22 + ] + } + }); } function format_pp_token(param, param$1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "format_regression.res", - 13, - 32 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "format_regression.res", + 13, + 32 + ] + } + }); } function advance_loop(state) { while(true) { - var match = peek_queue(state.pp_queue); - var size = match.elem_size; - var size$1 = int_of_size(size); + let match = peek_queue(state.pp_queue); + let size = match.elem_size; + let size$1 = int_of_size(size); if (size$1 < 0 && (state.pp_right_total - state.pp_left_total | 0) < state.pp_space_left) { - return ; + return; } take_queue(state.pp_queue); Curry._1(format_pp_token(state, size$1 < 0 ? 1000000010 : size$1), match.token); state.pp_left_total = match.length + state.pp_left_total | 0; - continue ; + continue; }; } -var pp_infinity = 1000000010; +let pp_infinity = 1000000010; exports.peek_queue = peek_queue; exports.int_of_size = int_of_size; diff --git a/jscomp/test/fun_pattern_match.js b/jscomp/test/fun_pattern_match.js index 3aaea845ba..13a3c4bce0 100644 --- a/jscomp/test/fun_pattern_match.js +++ b/jscomp/test/fun_pattern_match.js @@ -1,8 +1,8 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); function f(param, v) { return ((((param.x0 + param.x1 | 0) + param.x2 | 0) + param.x3 | 0) + param.x4 | 0) + v | 0; @@ -13,9 +13,9 @@ function f2(param, param$1) { } function f3(param) { - var lhs = param.rank; + let lhs = param.rank; return function (param) { - var rhs = param.rank; + let rhs = param.rank; if (typeof lhs !== "object") { lhs === "Uninitialized"; } else { @@ -25,22 +25,22 @@ function f3(param) { rhs === "Uninitialized"; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "fun_pattern_match.res", - 33, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "fun_pattern_match.res", + 33, + 9 + ] + } + }); }; } function f4(param) { - var lhs = param.rank; + let lhs = param.rank; return function (param) { - var rhs = param.rank; + let rhs = param.rank; if (typeof lhs !== "object") { lhs === "Uninitialized"; } else { @@ -50,19 +50,19 @@ function f4(param) { rhs === "Uninitialized"; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "fun_pattern_match.res", - 39, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "fun_pattern_match.res", + 39, + 9 + ] + } + }); }; } -var x = { +let x = { NAME: "A", VAL: r }; @@ -71,9 +71,9 @@ function r(param) { return x; } -var match = r(); +let match = r(); -var v = Curry._1(match.VAL, undefined); +let v = Curry._1(match.VAL, undefined); console.log(v); @@ -87,9 +87,9 @@ function handle_tuple(x, y) { return 2; } console.log([ - x, - y - ]); + x, + y + ]); return x + y | 0; } diff --git a/jscomp/test/genlex_test.js b/jscomp/test/genlex_test.js index 832623ee5a..7e3df94193 100644 --- a/jscomp/test/genlex_test.js +++ b/jscomp/test/genlex_test.js @@ -47,8 +47,8 @@ function to_list(s) { return List.rev(acc); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } _acc = { hd: v, diff --git a/jscomp/test/gpr_1150.js b/jscomp/test/gpr_1150.js index d0486e9efb..82b56b2d74 100644 --- a/jscomp/test/gpr_1150.js +++ b/jscomp/test/gpr_1150.js @@ -6,244 +6,244 @@ function f(children) { if (!children) { return []; } - var children$1 = children.tl; - var a0 = children.hd; + let children$1 = children.tl; + let a0 = children.hd; if (!children$1) { return [a0]; } - var children$2 = children$1.tl; - var a1 = children$1.hd; + let children$2 = children$1.tl; + let a1 = children$1.hd; if (!children$2) { return [ - a0, - a1 - ]; + a0, + a1 + ]; } - var children$3 = children$2.tl; - var a2 = children$2.hd; + let children$3 = children$2.tl; + let a2 = children$2.hd; if (!children$3) { return [ - a0, - a1, - a2 - ]; + a0, + a1, + a2 + ]; } - var children$4 = children$3.tl; - var a3 = children$3.hd; + let children$4 = children$3.tl; + let a3 = children$3.hd; if (!children$4) { return [ - a0, - a1, - a2, - a3 - ]; - } - var children$5 = children$4.tl; - var a4 = children$4.hd; + a0, + a1, + a2, + a3 + ]; + } + let children$5 = children$4.tl; + let a4 = children$4.hd; if (!children$5) { return [ - a0, - a1, - a2, - a3, - a4 - ]; - } - var children$6 = children$5.tl; - var a5 = children$5.hd; + a0, + a1, + a2, + a3, + a4 + ]; + } + let children$6 = children$5.tl; + let a5 = children$5.hd; if (!children$6) { return [ - a0, - a1, - a2, - a3, - a4, - a5 - ]; - } - var children$7 = children$6.tl; - var a6 = children$6.hd; + a0, + a1, + a2, + a3, + a4, + a5 + ]; + } + let children$7 = children$6.tl; + let a6 = children$6.hd; if (!children$7) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6 - ]; - } - var children$8 = children$7.tl; - var a7 = children$7.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6 + ]; + } + let children$8 = children$7.tl; + let a7 = children$7.hd; if (!children$8) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7 - ]; - } - var children$9 = children$8.tl; - var a8 = children$8.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7 + ]; + } + let children$9 = children$8.tl; + let a8 = children$8.hd; if (!children$9) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8 - ]; - } - var children$10 = children$9.tl; - var a9 = children$9.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8 + ]; + } + let children$10 = children$9.tl; + let a9 = children$9.hd; if (!children$10) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9 - ]; - } - var children$11 = children$10.tl; - var a10 = children$10.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9 + ]; + } + let children$11 = children$10.tl; + let a10 = children$10.hd; if (!children$11) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10 - ]; - } - var children$12 = children$11.tl; - var a11 = children$11.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10 + ]; + } + let children$12 = children$11.tl; + let a11 = children$11.hd; if (!children$12) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10, - a11 - ]; - } - var children$13 = children$12.tl; - var a12 = children$12.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10, + a11 + ]; + } + let children$13 = children$12.tl; + let a12 = children$12.hd; if (!children$13) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10, - a11, - a12 - ]; - } - var children$14 = children$13.tl; - var a13 = children$13.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10, + a11, + a12 + ]; + } + let children$14 = children$13.tl; + let a13 = children$13.hd; if (!children$14) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10, - a11, - a12, - a13 - ]; - } - var children$15 = children$14.tl; - var a14 = children$14.hd; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10, + a11, + a12, + a13 + ]; + } + let children$15 = children$14.tl; + let a14 = children$14.hd; if (!children$15) { return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10, - a11, - a12, - a13, - a14 - ]; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10, + a11, + a12, + a13, + a14 + ]; } if (children$15.tl) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1150.res", - 100, - 62 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1150.res", + 100, + 62 + ] + } + }); } return [ - a0, - a1, - a2, - a3, - a4, - a5, - a6, - a7, - a8, - a9, - a10, - a11, - a12, - a13, - a14, - children$15.hd - ]; + a0, + a1, + a2, + a3, + a4, + a5, + a6, + a7, + a8, + a9, + a10, + a11, + a12, + a13, + a14, + children$15.hd + ]; } exports.f = f; diff --git a/jscomp/test/gpr_1245_test.js b/jscomp/test/gpr_1245_test.js index 54c354dd74..faa9bb19a7 100644 --- a/jscomp/test/gpr_1245_test.js +++ b/jscomp/test/gpr_1245_test.js @@ -49,8 +49,8 @@ function a1(f) { return 1; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/jscomp/test/gpr_1698_test.js b/jscomp/test/gpr_1698_test.js index 2dc7ed4ae2..65b7394091 100644 --- a/jscomp/test/gpr_1698_test.js +++ b/jscomp/test/gpr_1698_test.js @@ -4,7 +4,7 @@ function is_number(_expr) { while(true) { - var expr = _expr; + let expr = _expr; switch (expr.TAG) { case "Val" : if (expr._0.TAG === "Natural") { @@ -14,7 +14,7 @@ function is_number(_expr) { } case "Neg" : _expr = expr._0; - continue ; + continue; case "Sum" : case "Pow" : case "Frac" : @@ -27,16 +27,16 @@ function is_number(_expr) { function compare(context, state, _a, _b) { while(true) { - var b = _b; - var a = _a; - var exit = 0; - var na; - var da; - var nb; - var db; - var exit$1 = 0; - var exit$2 = 0; - var exit$3 = 0; + let b = _b; + let a = _a; + let exit = 0; + let na; + let da; + let nb; + let db; + let exit$1 = 0; + let exit$2 = 0; + let exit$3 = 0; switch (a.TAG) { case "Val" : switch (b.TAG) { @@ -50,15 +50,15 @@ function compare(context, state, _a, _b) { break; case "Frac" : throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1698_test.res", - 41, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1698_test.res", + 41, + 9 + ] + } + }); case "Pow" : case "Gcd" : exit = 1; @@ -68,7 +68,7 @@ function compare(context, state, _a, _b) { break; case "Neg" : _a = a._0; - continue ; + continue; case "Sum" : case "Pow" : exit$3 = 5; @@ -77,15 +77,15 @@ function compare(context, state, _a, _b) { switch (b.TAG) { case "Val" : throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_1698_test.res", - 41, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_1698_test.res", + 41, + 9 + ] + } + }); case "Neg" : exit$3 = 5; break; @@ -130,7 +130,7 @@ function compare(context, state, _a, _b) { if (exit$3 === 5) { if (b.TAG === "Neg") { _b = b._0; - continue ; + continue; } if (a.TAG === "Sum") { if (is_number(b)) { @@ -174,19 +174,19 @@ function compare(context, state, _a, _b) { return -1; } case 2 : - var denom = compare(context, state, da, db); + let denom = compare(context, state, da, db); if (denom !== 0) { return denom; } _b = nb; _a = na; - continue ; + continue; } }; } -var a = { +let a = { TAG: "Sum", _0: { hd: { @@ -209,7 +209,7 @@ var a = { } }; -var b = { +let b = { TAG: "Val", _0: { TAG: "Symbol", @@ -218,7 +218,7 @@ var b = { }; console.log(compare("InSum", { - complex: true - }, a, b)); + complex: true +}, a, b)); /* Not a pure module */ diff --git a/jscomp/test/gpr_1701_test.js b/jscomp/test/gpr_1701_test.js index 3cba8006ba..e122b7c346 100644 --- a/jscomp/test/gpr_1701_test.js +++ b/jscomp/test/gpr_1701_test.js @@ -1,52 +1,52 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let List = require("../../lib/js/list.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var Foo = /* @__PURE__ */Caml_exceptions.create("Gpr_1701_test.Foo"); +let Foo = /* @__PURE__ */Caml_exceptions.create("Gpr_1701_test.Foo"); function test(n) { if (n === 0) { throw new Error(Foo, { - cause: { - RE_EXN_ID: Foo - } - }); + cause: { + RE_EXN_ID: Foo + } + }); } try { return test(n - 1 | 0); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Foo) { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } test(100); function read_lines(inc) { - var _acc = /* [] */0; + let _acc = /* [] */0; while(true) { - var acc = _acc; - var l; + let acc = _acc; + let l; try { l = input_line(inc); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "End_of_file") { l = undefined; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } if (l === undefined) { @@ -56,52 +56,52 @@ function read_lines(inc) { hd: l, tl: acc }; - continue ; + continue; }; } function read_lines2(inc) { - var _acc = /* [] */0; + let _acc = /* [] */0; while(true) { - var acc = _acc; - var l; + let acc = _acc; + let l; try { l = input_line(inc); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "End_of_file") { return List.rev(acc); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } _acc = { hd: l, tl: acc }; - continue ; + continue; }; } function read_lines3(inc) { - var loop = function (acc) { + let loop = function (acc) { try { - var l = input_line(inc); + let l = input_line(inc); return loop({ - hd: l, - tl: acc - }); + hd: l, + tl: acc + }); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "End_of_file") { return List.rev(acc); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; return loop(/* [] */0); diff --git a/jscomp/test/gpr_2316_test.js b/jscomp/test/gpr_2316_test.js index 1d774db6fa..3cf2d8204d 100644 --- a/jscomp/test/gpr_2316_test.js +++ b/jscomp/test/gpr_2316_test.js @@ -1,14 +1,14 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -18,58 +18,58 @@ function eq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - }) + return { + TAG: "Eq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; } -var y; +let y; try { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "boo" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "boo" + } + }); } catch (raw_msg){ - var msg = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg.RE_EXN_ID === "Failure") { y = msg._1; } else { throw new Error(msg.RE_EXN_ID, { - cause: msg - }); + cause: msg + }); } } -var x; +let x; -var exit = 0; +let exit = 0; try { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "boo" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "boo" + } + }); } catch (raw_msg$1){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg$1); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg$1); if (msg$1.RE_EXN_ID === "Failure") { x = msg$1._1; } else { throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } diff --git a/jscomp/test/gpr_2682_test.js b/jscomp/test/gpr_2682_test.js index 6c1bf86ef3..c7fceff492 100644 --- a/jscomp/test/gpr_2682_test.js +++ b/jscomp/test/gpr_2682_test.js @@ -2,19 +2,19 @@ 'use strict'; -var sum = ((a,b) => a + b); +let sum = ((a,b) => a + b); -var v = sum(1, 2); +let v = sum(1, 2); function f(a) { return a + 3 | 0; } -var b = f(1); +let b = f(1); -var c = f(2); +let c = f(2); -var forIn = ((o,foo)=> { +let forIn = ((o,foo)=> { for (var i in o){ foo(o) } @@ -24,38 +24,38 @@ function log(x) { console.log(x); } -var N = { +let N = { log2: log }; forIn({ - x: 3 - }, (function (x) { - console.log(x); - })); + x: 3 +}, (function (x) { + console.log(x); +})); forIn({ - x: 3, - y: 3 - }, (function (x) { - console.log(x); - })); + x: 3, + y: 3 +}, (function (x) { + console.log(x); +})); -var f3 = (()=>true); +let f3 = (()=>true); -var bbbb = f3(); +let bbbb = f3(); if (!bbbb) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_2682_test.res", - 52, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_2682_test.res", + 52, + 0 + ] + } + }); } exports.sum = sum; diff --git a/jscomp/test/gpr_3877_test.js b/jscomp/test/gpr_3877_test.js index 824695146a..ee26bf3c5e 100644 --- a/jscomp/test/gpr_3877_test.js +++ b/jscomp/test/gpr_3877_test.js @@ -16,34 +16,34 @@ function test(code) { } } -var a = "good response"; +let a = "good response"; -var b = "bad response"; +let b = "bad response"; if (a !== "good response") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3877_test.res", - 26, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3877_test.res", + 26, + 0 + ] + } + }); } if (b !== "bad response") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3877_test.res", - 27, - 0 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3877_test.res", + 27, + 0 + ] + } + }); } exports.test = test; diff --git a/jscomp/test/gpr_3980_test.js b/jscomp/test/gpr_3980_test.js index d27fd16eab..b0de4b2bef 100644 --- a/jscomp/test/gpr_3980_test.js +++ b/jscomp/test/gpr_3980_test.js @@ -1,51 +1,51 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Js_math = require("../../lib/js/js_math.js"); +let Js_math = require("../../lib/js/js_math.js"); -var match = 1; +let match = 1; if (match !== undefined) { if (match !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3980_test.res", - 15, - 7 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3980_test.res", + 15, + 7 + ] + } + }); } - var match$1 = 1; + let match$1 = 1; if (match$1 !== 1) { if (match$1 !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_3980_test.res", - 13, - 9 - ] - } - }); - } - Js_math.floor(1); - } - -} else { - throw new Error("Assert_failure", { cause: { RE_EXN_ID: "Assert_failure", _1: [ "gpr_3980_test.res", - 15, - 7 + 13, + 9 ] } }); + } + Js_math.floor(1); + } + +} else { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_3980_test.res", + 15, + 7 + ] + } + }); } /* Not a pure module */ diff --git a/jscomp/test/gpr_405_test.js b/jscomp/test/gpr_405_test.js index b54820bf52..072699a11f 100644 --- a/jscomp/test/gpr_405_test.js +++ b/jscomp/test/gpr_405_test.js @@ -1,94 +1,94 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); -var Hashtbl = require("../../lib/js/hashtbl.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); +let Hashtbl = require("../../lib/js/hashtbl.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function Make(funarg) { - var $$let = funarg.V; - var H = Hashtbl.Make({ - equal: $$let.equal, - hash: $$let.hash - }); - var find_default = function (htbl, x) { + let $$let = funarg.V; + let H = Hashtbl.Make({ + equal: $$let.equal, + hash: $$let.hash + }); + let find_default = function (htbl, x) { try { return Curry._2(H.find, htbl, x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; - var min_cutset = function (gr, first_node) { - var n_labels = Curry._1(H.create, 97); - var l_labels = Curry._1(H.create, 97); - var already_processed = Curry._1(H.create, 97); - var on_the_stack = Curry._1(H.create, 97); - var cut_set = { + let min_cutset = function (gr, first_node) { + let n_labels = Curry._1(H.create, 97); + let l_labels = Curry._1(H.create, 97); + let already_processed = Curry._1(H.create, 97); + let on_the_stack = Curry._1(H.create, 97); + let cut_set = { contents: /* [] */0 }; - var counter = { + let counter = { contents: 1 }; - var step2 = function (top, rest_of_stack) { + let step2 = function (top, rest_of_stack) { if (find_default(already_processed, top)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_405_test.res", - 40, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_405_test.res", + 40, + 6 + ] + } + }); } if (find_default(on_the_stack, top)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_405_test.res", - 41, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_405_test.res", + 41, + 6 + ] + } + }); } Curry._3(H.add, on_the_stack, top, true); Curry._3(H.add, n_labels, top, counter.contents); counter.contents = counter.contents + 1 | 0; Curry._3(H.add, l_labels, top, 0); Curry._3(H.add, already_processed, top, true); - var _successors = Curry._2(funarg.succ, gr, top); - var _top = top; - var _rest_of_stack = rest_of_stack; + let _successors = Curry._2(funarg.succ, gr, top); + let _top = top; + let _rest_of_stack = rest_of_stack; while(true) { - var rest_of_stack$1 = _rest_of_stack; - var top$1 = _top; - var successors = _successors; + let rest_of_stack$1 = _rest_of_stack; + let top$1 = _top; + let successors = _successors; if (successors) { - var successor = successors.hd; + let successor = successors.hd; if (!find_default(already_processed, successor)) { return step2(successor, { - hd: [ - top$1, - successors - ], - tl: rest_of_stack$1 - }); + hd: [ + top$1, + successors + ], + tl: rest_of_stack$1 + }); } - var x = find_default(on_the_stack, successor) ? Curry._2(H.find, n_labels, successor) : Curry._2(H.find, l_labels, successor); + let x = find_default(on_the_stack, successor) ? Curry._2(H.find, n_labels, successor) : Curry._2(H.find, l_labels, successor); Curry._3(H.add, l_labels, top$1, Caml.int_max(Curry._2(H.find, l_labels, top$1), x)); _successors = successors.tl; - continue ; + continue; } if (Curry._2(H.find, l_labels, top$1) === Curry._2(H.find, n_labels, top$1)) { cut_set.contents = { @@ -99,30 +99,30 @@ function Make(funarg) { } if (Curry._2(H.find, l_labels, top$1) > Curry._2(H.find, n_labels, top$1)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Graph.Mincut: graph not reducible" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Graph.Mincut: graph not reducible" + } + }); } if (!rest_of_stack$1) { return cut_set.contents; } - var match = rest_of_stack$1.hd; - var new_top = match[0]; + let match = rest_of_stack$1.hd; + let new_top = match[0]; Curry._3(H.add, on_the_stack, top$1, false); Curry._3(H.add, l_labels, new_top, Caml.int_max(Curry._2(H.find, l_labels, top$1), Curry._2(H.find, l_labels, new_top))); _rest_of_stack = rest_of_stack$1.tl; _top = new_top; _successors = match[1]; - continue ; + continue; }; }; return step2(first_node, /* [] */0); }; return { - min_cutset: min_cutset - }; + min_cutset: min_cutset + }; } exports.Make = Make; diff --git a/jscomp/test/gpr_4632.js b/jscomp/test/gpr_4632.js index 2e325c7a58..070edd1752 100644 --- a/jscomp/test/gpr_4632.js +++ b/jscomp/test/gpr_4632.js @@ -2,7 +2,7 @@ 'use strict'; -var T0_myList = { +let T0_myList = { hd: 1, tl: { hd: 2, @@ -10,27 +10,27 @@ var T0_myList = { } }; -var T0_tail = { +let T0_tail = { hd: 2, tl: /* [] */0 }; -var T0 = { +let T0 = { myList: T0_myList, head: 1, tail: T0_tail }; throw new Error("Match_failure", { - cause: { - RE_EXN_ID: "Match_failure", - _1: [ - "gpr_4632.res", - 12, - 6 - ] - } - }); + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "gpr_4632.res", + 12, + 6 + ] + } + }); exports.T0 = T0; exports.T1 = T1; diff --git a/jscomp/test/gpr_5557.js b/jscomp/test/gpr_5557.js index 8c683da532..550804df76 100644 --- a/jscomp/test/gpr_5557.js +++ b/jscomp/test/gpr_5557.js @@ -7,18 +7,18 @@ function isA(c) { return true; } throw new Error("Match_failure", { - cause: { - RE_EXN_ID: "Match_failure", - _1: [ - "gpr_5557.res", - 5, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "gpr_5557.res", + 5, + 2 + ] + } + }); } -var h = /* 'a' */97; +let h = /* 'a' */97; exports.isA = isA; exports.h = h; diff --git a/jscomp/test/gpr_858_unit2_test.js b/jscomp/test/gpr_858_unit2_test.js index 066768f949..8f3e47dfa4 100644 --- a/jscomp/test/gpr_858_unit2_test.js +++ b/jscomp/test/gpr_858_unit2_test.js @@ -1,40 +1,38 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); +let Curry = require("../../lib/js/curry.js"); -var delayed = { +let delayed = { contents: (function (param) { - - }) + + }) }; -for(var i = 1; i <= 2; ++i){ - var f = (function(i){ - return function f(n, x) { +for(let i = 1; i <= 2; ++i){ + let f = function (n, x) { if (x !== 0) { - var prev = delayed.contents; + let prev = delayed.contents; delayed.contents = (function (param) { - Curry._1(prev, undefined); - f(((n + 1 | 0) + i | 0) - i | 0, x - 1 | 0); - }); - return ; + Curry._1(prev, undefined); + f(((n + 1 | 0) + i | 0) - i | 0, x - 1 | 0); + }); + return; } if (i === n) { - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_858_unit2_test.res", - 6, - 13 - ] - } - }); - } - }(i)); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_858_unit2_test.res", + 6, + 13 + ] + } + }); + }; f(0, i); } diff --git a/jscomp/test/gpr_974_test.js b/jscomp/test/gpr_974_test.js index c3be291c5a..ad28504aef 100644 --- a/jscomp/test/gpr_974_test.js +++ b/jscomp/test/gpr_974_test.js @@ -1,46 +1,46 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_option = require("../../lib/js/caml_option.js"); if (!Caml_obj.equal(Caml_option.nullable_to_opt(""), "")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 2, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 2, + 2 + ] + } + }); } if (!Caml_obj.equal(Caml_option.undefined_to_opt(""), "")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 3, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 3, + 2 + ] + } + }); } if (!Caml_obj.equal(Caml_option.null_to_opt(""), "")) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "gpr_974_test.res", - 4, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "gpr_974_test.res", + 4, + 2 + ] + } + }); } /* Not a pure module */ diff --git a/jscomp/test/imm_map_bench.js b/jscomp/test/imm_map_bench.js index 05cca70592..6cc1b2f8fa 100644 --- a/jscomp/test/imm_map_bench.js +++ b/jscomp/test/imm_map_bench.js @@ -21,8 +21,8 @@ function should(b) { return; } throw new Error(new Error("impossible").RE_EXN_ID, { - cause: new Error("impossible") - }); + cause: new Error("impossible") + }); } let shuffledDataAdd = Belt_Array.makeByAndShuffle(1000001, (function (i) { diff --git a/jscomp/test/inline_map2_test.js b/jscomp/test/inline_map2_test.js index f8fecf05e7..27ddb0a47d 100644 --- a/jscomp/test/inline_map2_test.js +++ b/jscomp/test/inline_map2_test.js @@ -1,60 +1,60 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function Make(Ord) { - var height = function (x) { + let height = function (x) { if (typeof x !== "object") { return 0; } else { return x._4; } }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: d, - _3: "Empty", - _4: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; + TAG: "Node", + _0: "Empty", + _1: x, + _2: d, + _3: "Empty", + _4: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -62,34 +62,34 @@ function Make(Ord) { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -97,149 +97,149 @@ function Make(Ord) { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; - var is_empty = function (x) { + let is_empty = function (x) { if (typeof x !== "object") { return true; } else { return false; } }; - var add = function (x, data, x_) { + let add = function (x, data, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: x_._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: x_._4 + }; } else if (c < 0) { return bal(add(x, data, l), v, d, r); } else { return bal(l, v, d, add(x, data, r)); } }; - var find = function (x, _x_) { + let find = function (x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Curry._2(Ord.compare, x, x_._1); + let c = Curry._2(Ord.compare, x, x_._1); if (c === 0) { return x_._2; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; }; - var mem = function (x, _x_) { + let mem = function (x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { return false; } - var c = Curry._2(Ord.compare, x, x_._1); + let c = Curry._2(Ord.compare, x, x_._1); if (c === 0) { return true; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; }; - var min_binding = function (_x) { + let min_binding = function (_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = l; - continue ; + continue; }; }; - var max_binding = function (_x) { + let max_binding = function (_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = x._3; + let r = x._3; if (typeof r !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = r; - continue ; + continue; }; }; - var remove_min_binding = function (x) { + let remove_min_binding = function (x) { if (typeof x !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._3; } else { return bal(remove_min_binding(l), x._1, x._2, x._3); } }; - var remove = function (x, x_) { + let remove = function (x, x_) { if (typeof x_ !== "object") { return "Empty"; } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -247,7 +247,7 @@ function Make(Ord) { if (typeof r !== "object") { return l; } - var match = min_binding(r); + let match = min_binding(r); return bal(l, match[0], match[1], remove_min_binding(r)); } else if (c < 0) { return bal(remove(x, l), v, d, r); @@ -255,66 +255,66 @@ function Make(Ord) { return bal(l, v, d, remove(x, r)); } }; - var iter = function (f, _x) { + let iter = function (f, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { - return ; + return; } iter(f, x._0); Curry._2(f, x._1, x._2); _x = x._3; - continue ; + continue; }; }; - var map = function (f, x) { + let map = function (f, x) { if (typeof x !== "object") { return "Empty"; } - var l$p = map(f, x._0); - var d$p = Curry._1(f, x._2); - var r$p = map(f, x._3); + let l$p = map(f, x._0); + let d$p = Curry._1(f, x._2); + let r$p = map(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: x._1, - _2: d$p, - _3: r$p, - _4: x._4 - }; - }; - var mapi = function (f, x) { + TAG: "Node", + _0: l$p, + _1: x._1, + _2: d$p, + _3: r$p, + _4: x._4 + }; + }; + let mapi = function (f, x) { if (typeof x !== "object") { return "Empty"; } - var v = x._1; - var l$p = mapi(f, x._0); - var d$p = Curry._2(f, v, x._2); - var r$p = mapi(f, x._3); + let v = x._1; + let l$p = mapi(f, x._0); + let d$p = Curry._2(f, v, x._2); + let r$p = mapi(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: v, - _2: d$p, - _3: r$p, - _4: x._4 - }; - }; - var fold = function (f, _m, _accu) { + TAG: "Node", + _0: l$p, + _1: v, + _2: d$p, + _3: r$p, + _4: x._4 + }; + }; + let fold = function (f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m._1, m._2, fold(f, m._0, accu)); _m = m._3; - continue ; + continue; }; }; - var for_all = function (p, _x) { + let for_all = function (p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return true; } @@ -325,12 +325,12 @@ function Make(Ord) { return false; } _x = x._3; - continue ; + continue; }; }; - var exists = function (p, _x) { + let exists = function (p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -341,32 +341,32 @@ function Make(Ord) { return true; } _x = x._3; - continue ; + continue; }; }; - var add_min_binding = function (k, v, x) { + let add_min_binding = function (k, v, x) { if (typeof x !== "object") { return singleton(k, v); } else { return bal(add_min_binding(k, v, x._0), x._1, x._2, x._3); } }; - var add_max_binding = function (k, v, x) { + let add_max_binding = function (k, v, x) { if (typeof x !== "object") { return singleton(k, v); } else { return bal(x._0, x._1, x._2, add_max_binding(k, v, x._3)); } }; - var join = function (l, v, d, r) { + let join = function (l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l._4; + let lh = l._4; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r._4; + let rh = r._4; if (lh > (rh + 2 | 0)) { return bal(l._0, l._1, l._2, join(l._3, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -375,135 +375,135 @@ function Make(Ord) { return create(l, v, d, r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); }; - var concat_or_join = function (t1, v, d, t2) { + let concat_or_join = function (t1, v, d, t2) { if (d !== undefined) { return join(t1, v, Caml_option.valFromOption(d), t2); } else { return concat(t1, t2); } }; - var split = function (x, x_) { + let split = function (x, x_) { if (typeof x_ !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var merge = function (f, s1, s2) { + let merge = function (f, s1, s2) { if (typeof s1 !== "object") { if (typeof s2 !== "object") { return "Empty"; } } else { - var v1 = s1._1; + let v1 = s1._1; if (s1._4 >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge(f, s1._0, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1._2), match[1]), merge(f, s1._3, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ] - } - }); - } - var v2 = s2._1; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); + } + let v2 = s2._1; + let match$1 = split(v2, s1); return concat_or_join(merge(f, match$1[0], s2._0), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2._2)), merge(f, match$1[2], s2._3)); }; - var filter = function (p, x) { + let filter = function (p, x) { if (typeof x !== "object") { return "Empty"; } - var d = x._2; - var v = x._1; - var l$p = filter(p, x._0); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, x._3); + let d = x._2; + let v = x._1; + let l$p = filter(p, x._0); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, x._3); if (pvd) { return join(l$p, v, d, r$p); } else { return concat(l$p, r$p); } }; - var partition = function (p, x) { + let partition = function (p, x) { if (typeof x !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = x._2; - var v = x._1; - var match = partition(p, x._0); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, x._3); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = x._2; + let v = x._1; + let match = partition(p, x._0); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, x._3); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } }; - var cons_enum = function (_m, _e) { + let cons_enum = function (_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -515,15 +515,15 @@ function Make(Ord) { _3: e }; _m = m._0; - continue ; + continue; }; }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -534,25 +534,25 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -571,20 +571,20 @@ function Make(Ord) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var cardinal = function (x) { + let cardinal = function (x) { if (typeof x !== "object") { return 0; } else { return (cardinal(x._0) + 1 | 0) + cardinal(x._3) | 0; } }; - var bindings_aux = function (_accu, _x) { + let bindings_aux = function (_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (typeof x !== "object") { return accu; } @@ -596,49 +596,49 @@ function Make(Ord) { ], tl: bindings_aux(accu, x._3) }; - continue ; + continue; }; }; - var bindings = function (s) { + let bindings = function (s) { return bindings_aux(/* [] */0, s); }; return { - height: height, - create: create, - singleton: singleton, - bal: bal, - empty: "Empty", - is_empty: is_empty, - add: add, - find: find, - mem: mem, - min_binding: min_binding, - max_binding: max_binding, - remove_min_binding: remove_min_binding, - remove: remove, - iter: iter, - map: map, - mapi: mapi, - fold: fold, - for_all: for_all, - exists: exists, - add_min_binding: add_min_binding, - add_max_binding: add_max_binding, - join: join, - concat: concat, - concat_or_join: concat_or_join, - split: split, - merge: merge, - filter: filter, - partition: partition, - cons_enum: cons_enum, - compare: compare, - equal: equal, - cardinal: cardinal, - bindings_aux: bindings_aux, - bindings: bindings, - choose: min_binding - }; + height: height, + create: create, + singleton: singleton, + bal: bal, + empty: "Empty", + is_empty: is_empty, + add: add, + find: find, + mem: mem, + min_binding: min_binding, + max_binding: max_binding, + remove_min_binding: remove_min_binding, + remove: remove, + iter: iter, + map: map, + mapi: mapi, + fold: fold, + for_all: for_all, + exists: exists, + add_min_binding: add_min_binding, + add_max_binding: add_max_binding, + join: join, + concat: concat, + concat_or_join: concat_or_join, + split: split, + merge: merge, + filter: filter, + partition: partition, + cons_enum: cons_enum, + compare: compare, + equal: equal, + cardinal: cardinal, + bindings_aux: bindings_aux, + bindings: bindings, + choose: min_binding + }; } function height(x) { @@ -650,47 +650,47 @@ function height(x) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function singleton(x, d) { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: d, - _3: "Empty", - _4: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: d, + _3: "Empty", + _4: 1 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -698,34 +698,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -733,11 +733,11 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(x) { @@ -751,28 +751,28 @@ function is_empty(x) { function add(x, data, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.int_compare(x, v); + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.int_compare(x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: x_._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: x_._4 + }; } else if (c < 0) { return bal(add(x, data, l), v, d, r); } else { @@ -782,92 +782,92 @@ function add(x, data, x_) { function find(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(x, x_._1); + let c = Caml.int_compare(x, x_._1); if (c === 0) { return x_._2; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; } function mem(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { return false; } - var c = Caml.int_compare(x, x_._1); + let c = Caml.int_compare(x, x_._1); if (c === 0) { return true; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; } function min_binding(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = l; - continue ; + continue; }; } function max_binding(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = x._3; + let r = x._3; if (typeof r !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = r; - continue ; + continue; }; } function remove_min_binding(x) { if (typeof x !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._3; } else { @@ -879,11 +879,11 @@ function remove(x, x_) { if (typeof x_ !== "object") { return "Empty"; } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.int_compare(x, v); + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.int_compare(x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -891,7 +891,7 @@ function remove(x, x_) { if (typeof r !== "object") { return l; } - var match = min_binding(r); + let match = min_binding(r); return bal(l, match[0], match[1], remove_min_binding(r)); } else if (c < 0) { return bal(remove(x, l), v, d, r); @@ -902,14 +902,14 @@ function remove(x, x_) { function iter(f, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { - return ; + return; } iter(f, x._0); Curry._2(f, x._1, x._2); _x = x._3; - continue ; + continue; }; } @@ -917,53 +917,53 @@ function map(f, x) { if (typeof x !== "object") { return "Empty"; } - var l$p = map(f, x._0); - var d$p = Curry._1(f, x._2); - var r$p = map(f, x._3); + let l$p = map(f, x._0); + let d$p = Curry._1(f, x._2); + let r$p = map(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: x._1, - _2: d$p, - _3: r$p, - _4: x._4 - }; + TAG: "Node", + _0: l$p, + _1: x._1, + _2: d$p, + _3: r$p, + _4: x._4 + }; } function mapi(f, x) { if (typeof x !== "object") { return "Empty"; } - var v = x._1; - var l$p = mapi(f, x._0); - var d$p = Curry._2(f, v, x._2); - var r$p = mapi(f, x._3); + let v = x._1; + let l$p = mapi(f, x._0); + let d$p = Curry._2(f, v, x._2); + let r$p = mapi(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: v, - _2: d$p, - _3: r$p, - _4: x._4 - }; + TAG: "Node", + _0: l$p, + _1: v, + _2: d$p, + _3: r$p, + _4: x._4 + }; } function fold(f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m._1, m._2, fold(f, m._0, accu)); _m = m._3; - continue ; + continue; }; } function for_all(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return true; } @@ -974,13 +974,13 @@ function for_all(p, _x) { return false; } _x = x._3; - continue ; + continue; }; } function exists(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -991,7 +991,7 @@ function exists(p, _x) { return true; } _x = x._3; - continue ; + continue; }; } @@ -1015,11 +1015,11 @@ function join(l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l._4; + let lh = l._4; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r._4; + let rh = r._4; if (lh > (rh + 2 | 0)) { return bal(l._0, l._1, l._2, join(l._3, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -1036,7 +1036,7 @@ function concat(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); } @@ -1051,37 +1051,37 @@ function concat_or_join(t1, v, d, t2) { function split(x, x_) { if (typeof x_ !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.int_compare(x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.int_compare(x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function merge(f, s1, s2) { @@ -1091,27 +1091,27 @@ function merge(f, s1, s2) { } } else { - var v1 = s1._1; + let v1 = s1._1; if (s1._4 >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge(f, s1._0, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1._2), match[1]), merge(f, s1._3, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); } - var v2 = s2._1; - var match$1 = split(v2, s1); + let v2 = s2._1; + let match$1 = split(v2, s1); return concat_or_join(merge(f, match$1[0], s2._0), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2._2)), merge(f, match$1[2], s2._3)); } @@ -1119,11 +1119,11 @@ function filter(p, x) { if (typeof x !== "object") { return "Empty"; } - var d = x._2; - var v = x._1; - var l$p = filter(p, x._0); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, x._3); + let d = x._2; + let v = x._1; + let l$p = filter(p, x._0); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, x._3); if (pvd) { return join(l$p, v, d, r$p); } else { @@ -1134,36 +1134,36 @@ function filter(p, x) { function partition(p, x) { if (typeof x !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = x._2; - var v = x._1; - var match = partition(p, x._0); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, x._3); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = x._2; + let v = x._1; + let match = partition(p, x._0); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, x._3); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } } function cons_enum(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -1175,16 +1175,16 @@ function cons_enum(_m, _e) { _3: e }; _m = m._0; - continue ; + continue; }; } function compare(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -1195,26 +1195,26 @@ function compare(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.int_compare(e1._0, e2._0); + let c = Caml.int_compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } function equal(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -1233,7 +1233,7 @@ function equal(cmp, m1, m2) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } @@ -1247,8 +1247,8 @@ function cardinal(x) { function bindings_aux(_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (typeof x !== "object") { return accu; } @@ -1260,7 +1260,7 @@ function bindings_aux(_accu, _x) { ], tl: bindings_aux(accu, x._3) }; - continue ; + continue; }; } @@ -1268,7 +1268,7 @@ function bindings(s) { return bindings_aux(/* [] */0, s); } -var IntMap = { +let IntMap = { height: height, create: create, singleton: singleton, @@ -1306,33 +1306,33 @@ var IntMap = { choose: min_binding }; -var m = List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", { +let m = List.fold_left((function (acc, param) { + return add(param[0], param[1], acc); +}), "Empty", { + hd: [ + 10, + /* 'a' */97 + ], + tl: { + hd: [ + 3, + /* 'b' */98 + ], + tl: { hd: [ - 10, - /* 'a' */97 + 7, + /* 'c' */99 ], tl: { hd: [ - 3, - /* 'b' */98 + 20, + /* 'd' */100 ], - tl: { - hd: [ - 7, - /* 'c' */99 - ], - tl: { - hd: [ - 20, - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); function height$1(x) { if (typeof x !== "object") { @@ -1343,47 +1343,47 @@ function height$1(x) { } function create$1(l, x, d, r) { - var hl = height$1(l); - var hr = height$1(r); + let hl = height$1(l); + let hr = height$1(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function singleton$1(x, d) { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: d, - _3: "Empty", - _4: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: d, + _3: "Empty", + _4: 1 + }; } function bal$1(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height$1(ll) >= height$1(lr)) { return create$1(ll, lv, ld, create$1(lr, x, d, r)); } @@ -1391,34 +1391,34 @@ function bal$1(l, x, d, r) { return create$1(create$1(ll, lv, ld, lr._0), lr._1, lr._2, create$1(lr._3, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height$1(rr) >= height$1(rl)) { return create$1(create$1(l, x, d, rl), rv, rd, rr); } @@ -1426,11 +1426,11 @@ function bal$1(l, x, d, r) { return create$1(create$1(l, x, d, rl._0), rl._1, rl._2, create$1(rl._3, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty$1(x) { @@ -1444,28 +1444,28 @@ function is_empty$1(x) { function add$1(x, data, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.string_compare(x, v); + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.string_compare(x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: x_._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: x_._4 + }; } else if (c < 0) { return bal$1(add$1(x, data, l), v, d, r); } else { @@ -1475,92 +1475,92 @@ function add$1(x, data, x_) { function find$1(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.string_compare(x, x_._1); + let c = Caml.string_compare(x, x_._1); if (c === 0) { return x_._2; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; } function mem$1(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { return false; } - var c = Caml.string_compare(x, x_._1); + let c = Caml.string_compare(x, x_._1); if (c === 0) { return true; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; } function min_binding$1(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = l; - continue ; + continue; }; } function max_binding$1(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = x._3; + let r = x._3; if (typeof r !== "object") { return [ - x._1, - x._2 - ]; + x._1, + x._2 + ]; } _x = r; - continue ; + continue; }; } function remove_min_binding$1(x) { if (typeof x !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._3; } else { @@ -1572,11 +1572,11 @@ function remove$1(x, x_) { if (typeof x_ !== "object") { return "Empty"; } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.string_compare(x, v); + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.string_compare(x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -1584,7 +1584,7 @@ function remove$1(x, x_) { if (typeof r !== "object") { return l; } - var match = min_binding$1(r); + let match = min_binding$1(r); return bal$1(l, match[0], match[1], remove_min_binding$1(r)); } else if (c < 0) { return bal$1(remove$1(x, l), v, d, r); @@ -1595,14 +1595,14 @@ function remove$1(x, x_) { function iter$1(f, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { - return ; + return; } iter$1(f, x._0); Curry._2(f, x._1, x._2); _x = x._3; - continue ; + continue; }; } @@ -1610,53 +1610,53 @@ function map$1(f, x) { if (typeof x !== "object") { return "Empty"; } - var l$p = map$1(f, x._0); - var d$p = Curry._1(f, x._2); - var r$p = map$1(f, x._3); + let l$p = map$1(f, x._0); + let d$p = Curry._1(f, x._2); + let r$p = map$1(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: x._1, - _2: d$p, - _3: r$p, - _4: x._4 - }; + TAG: "Node", + _0: l$p, + _1: x._1, + _2: d$p, + _3: r$p, + _4: x._4 + }; } function mapi$1(f, x) { if (typeof x !== "object") { return "Empty"; } - var v = x._1; - var l$p = mapi$1(f, x._0); - var d$p = Curry._2(f, v, x._2); - var r$p = mapi$1(f, x._3); + let v = x._1; + let l$p = mapi$1(f, x._0); + let d$p = Curry._2(f, v, x._2); + let r$p = mapi$1(f, x._3); return { - TAG: "Node", - _0: l$p, - _1: v, - _2: d$p, - _3: r$p, - _4: x._4 - }; + TAG: "Node", + _0: l$p, + _1: v, + _2: d$p, + _3: r$p, + _4: x._4 + }; } function fold$1(f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m._1, m._2, fold$1(f, m._0, accu)); _m = m._3; - continue ; + continue; }; } function for_all$1(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return true; } @@ -1667,13 +1667,13 @@ function for_all$1(p, _x) { return false; } _x = x._3; - continue ; + continue; }; } function exists$1(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -1684,7 +1684,7 @@ function exists$1(p, _x) { return true; } _x = x._3; - continue ; + continue; }; } @@ -1708,11 +1708,11 @@ function join$1(l, v, d, r) { if (typeof l !== "object") { return add_min_binding$1(v, d, r); } - var lh = l._4; + let lh = l._4; if (typeof r !== "object") { return add_max_binding$1(v, d, l); } - var rh = r._4; + let rh = r._4; if (lh > (rh + 2 | 0)) { return bal$1(l._0, l._1, l._2, join$1(l._3, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -1729,7 +1729,7 @@ function concat$1(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding$1(t2); + let match = min_binding$1(t2); return join$1(t1, match[0], match[1], remove_min_binding$1(t2)); } @@ -1744,37 +1744,37 @@ function concat_or_join$1(t1, v, d, t2) { function split$1(x, x_) { if (typeof x_ !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.string_compare(x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.string_compare(x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split$1(x, l); + let match = split$1(x, l); return [ - match[0], - match[1], - join$1(match[2], v, d, r) - ]; + match[0], + match[1], + join$1(match[2], v, d, r) + ]; } - var match$1 = split$1(x, r); + let match$1 = split$1(x, r); return [ - join$1(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join$1(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function merge$1(f, s1, s2) { @@ -1784,27 +1784,27 @@ function merge$1(f, s1, s2) { } } else { - var v1 = s1._1; + let v1 = s1._1; if (s1._4 >= height$1(s2)) { - var match = split$1(v1, s2); + let match = split$1(v1, s2); return concat_or_join$1(merge$1(f, s1._0, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1._2), match[1]), merge$1(f, s1._3, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map2_test.res", - 359, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map2_test.res", + 359, + 11 + ] + } + }); } - var v2 = s2._1; - var match$1 = split$1(v2, s1); + let v2 = s2._1; + let match$1 = split$1(v2, s1); return concat_or_join$1(merge$1(f, match$1[0], s2._0), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2._2)), merge$1(f, match$1[2], s2._3)); } @@ -1812,11 +1812,11 @@ function filter$1(p, x) { if (typeof x !== "object") { return "Empty"; } - var d = x._2; - var v = x._1; - var l$p = filter$1(p, x._0); - var pvd = Curry._2(p, v, d); - var r$p = filter$1(p, x._3); + let d = x._2; + let v = x._1; + let l$p = filter$1(p, x._0); + let pvd = Curry._2(p, v, d); + let r$p = filter$1(p, x._3); if (pvd) { return join$1(l$p, v, d, r$p); } else { @@ -1827,36 +1827,36 @@ function filter$1(p, x) { function partition$1(p, x) { if (typeof x !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = x._2; - var v = x._1; - var match = partition$1(p, x._0); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition$1(p, x._3); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = x._2; + let v = x._1; + let match = partition$1(p, x._0); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition$1(p, x._3); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join$1(lt, v, d, rt), - concat$1(lf, rf) - ]; + join$1(lt, v, d, rt), + concat$1(lf, rf) + ]; } else { return [ - concat$1(lt, rt), - join$1(lf, v, d, rf) - ]; + concat$1(lt, rt), + join$1(lf, v, d, rf) + ]; } } function cons_enum$1(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -1868,16 +1868,16 @@ function cons_enum$1(_m, _e) { _3: e }; _m = m._0; - continue ; + continue; }; } function compare$1(cmp, m1, m2) { - var _e1 = cons_enum$1(m1, "End"); - var _e2 = cons_enum$1(m2, "End"); + let _e1 = cons_enum$1(m1, "End"); + let _e2 = cons_enum$1(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -1888,26 +1888,26 @@ function compare$1(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.string_compare(e1._0, e2._0); + let c = Caml.string_compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum$1(e2._2, e2._3); _e1 = cons_enum$1(e1._2, e1._3); - continue ; + continue; }; } function equal$1(cmp, m1, m2) { - var _e1 = cons_enum$1(m1, "End"); - var _e2 = cons_enum$1(m2, "End"); + let _e1 = cons_enum$1(m1, "End"); + let _e2 = cons_enum$1(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -1926,7 +1926,7 @@ function equal$1(cmp, m1, m2) { } _e2 = cons_enum$1(e2._2, e2._3); _e1 = cons_enum$1(e1._2, e1._3); - continue ; + continue; }; } @@ -1940,8 +1940,8 @@ function cardinal$1(x) { function bindings_aux$1(_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (typeof x !== "object") { return accu; } @@ -1953,7 +1953,7 @@ function bindings_aux$1(_accu, _x) { ], tl: bindings_aux$1(accu, x._3) }; - continue ; + continue; }; } @@ -1961,7 +1961,7 @@ function bindings$1(s) { return bindings_aux$1(/* [] */0, s); } -var SMap = { +let SMap = { height: height$1, create: create$1, singleton: singleton$1, @@ -1999,61 +1999,61 @@ var SMap = { choose: min_binding$1 }; -var s = List.fold_left((function (acc, param) { - return add$1(param[0], param[1], acc); - }), "Empty", { +let s = List.fold_left((function (acc, param) { + return add$1(param[0], param[1], acc); +}), "Empty", { + hd: [ + "10", + /* 'a' */97 + ], + tl: { + hd: [ + "3", + /* 'b' */98 + ], + tl: { hd: [ - "10", - /* 'a' */97 + "7", + /* 'c' */99 ], tl: { hd: [ - "3", - /* 'b' */98 + "20", + /* 'd' */100 ], - tl: { - hd: [ - "7", - /* 'c' */99 - ], - tl: { - hd: [ - "20", - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); Mt.from_pair_suites("Inline_map2_test", { - hd: [ - "assertion1", - (function (param) { - return { - TAG: "Eq", - _0: find(10, m), - _1: /* 'a' */97 - }; - }) - ], - tl: { - hd: [ - "assertion2", - (function (param) { - return { - TAG: "Eq", - _0: find$1("10", s), - _1: /* 'a' */97 - }; - }) - ], - tl: /* [] */0 - } - }); + hd: [ + "assertion1", + (function (param) { + return { + TAG: "Eq", + _0: find(10, m), + _1: /* 'a' */97 + }; + }) + ], + tl: { + hd: [ + "assertion2", + (function (param) { + return { + TAG: "Eq", + _0: find$1("10", s), + _1: /* 'a' */97 + }; + }) + ], + tl: /* [] */0 + } +}); -var empty = "Empty"; +let empty = "Empty"; exports.Make = Make; exports.IntMap = IntMap; diff --git a/jscomp/test/inline_map_demo.js b/jscomp/test/inline_map_demo.js index b29f979c5c..3c00e2308c 100644 --- a/jscomp/test/inline_map_demo.js +++ b/jscomp/test/inline_map_demo.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); function height(x) { if (typeof x !== "object") { @@ -14,40 +14,40 @@ function height(x) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 41, - 15 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 41, + 15 + ] + } + }); } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -55,42 +55,42 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 47, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 47, + 19 + ] + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 55, - 15 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 55, + 15 + ] + } + }); } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -98,42 +98,42 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_map_demo.res", - 61, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_map_demo.res", + 61, + 19 + ] + } + }); } function add(x, data, tree) { if (typeof tree !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; } - var r = tree._3; - var d = tree._2; - var v = tree._1; - var l = tree._0; - var c = Caml.int_compare(x, v); + let r = tree._3; + let d = tree._2; + let v = tree._1; + let l = tree._0; + let c = Caml.int_compare(x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: tree._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: tree._4 + }; } else if (c < 0) { return bal(add(x, data, l), v, d, r); } else { @@ -141,65 +141,65 @@ function add(x, data, tree) { } } -var m = List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", { +let m = List.fold_left((function (acc, param) { + return add(param[0], param[1], acc); +}), "Empty", { + hd: [ + 10, + /* 'a' */97 + ], + tl: { + hd: [ + 3, + /* 'b' */98 + ], + tl: { hd: [ - 10, - /* 'a' */97 + 7, + /* 'c' */99 ], tl: { hd: [ - 3, - /* 'b' */98 + 20, + /* 'd' */100 ], - tl: { - hd: [ - 7, - /* 'c' */99 - ], - tl: { - hd: [ - 20, - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); function find(px, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(px, x._1); + let c = Caml.int_compare(px, x._1); if (c === 0) { return x._2; } _x = c < 0 ? x._0 : x._3; - continue ; + continue; }; } Mt.from_pair_suites("Inline_map_demo", { - hd: [ - "find", - (function (param) { - return { - TAG: "Eq", - _0: find(10, m), - _1: /* 'a' */97 - }; - }) - ], - tl: /* [] */0 - }); + hd: [ + "find", + (function (param) { + return { + TAG: "Eq", + _0: find(10, m), + _1: /* 'a' */97 + }; + }) + ], + tl: /* [] */0 +}); /* m Not a pure module */ diff --git a/jscomp/test/inline_map_test.js b/jscomp/test/inline_map_test.js index 89401a3b71..0f1899e51f 100644 --- a/jscomp/test/inline_map_test.js +++ b/jscomp/test/inline_map_test.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); function height(x) { if (typeof x !== "object") { @@ -14,36 +14,36 @@ function height(x) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._4; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._4; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l._3; - var ld = l._2; - var lv = l._1; - var ll = l._0; + let lr = l._3; + let ld = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -51,34 +51,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr._0), lr._1, lr._2, create(lr._3, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: x, - _2: d, - _3: r, - _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: x, + _2: d, + _3: r, + _4: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r._3; - var rd = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._3; + let rd = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -86,38 +86,38 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl._0), rl._1, rl._2, create(rl._3, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: data, - _3: "Empty", - _4: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: data, + _3: "Empty", + _4: 1 + }; } - var r = x_._3; - var d = x_._2; - var v = x_._1; - var l = x_._0; - var c = Caml.int_compare(x, v); + let r = x_._3; + let d = x_._2; + let v = x_._1; + let l = x_._0; + let c = Caml.int_compare(x, v); if (c === 0) { return { - TAG: "Node", - _0: l, - _1: x, - _2: data, - _3: r, - _4: x_._4 - }; + TAG: "Node", + _0: l, + _1: x, + _2: data, + _3: r, + _4: x_._4 + }; } else if (c < 0) { return bal(add(x, data, l), v, d, r); } else { @@ -127,63 +127,63 @@ function add(x, data, x_) { function find(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(x, x_._1); + let c = Caml.int_compare(x, x_._1); if (c === 0) { return x_._2; } _x_ = c < 0 ? x_._0 : x_._3; - continue ; + continue; }; } -var m = List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", { +let m = List.fold_left((function (acc, param) { + return add(param[0], param[1], acc); +}), "Empty", { + hd: [ + 10, + /* 'a' */97 + ], + tl: { + hd: [ + 3, + /* 'b' */98 + ], + tl: { hd: [ - 10, - /* 'a' */97 + 7, + /* 'c' */99 ], tl: { hd: [ - 3, - /* 'b' */98 + 20, + /* 'd' */100 ], - tl: { - hd: [ - 7, - /* 'c' */99 - ], - tl: { - hd: [ - 20, - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); Mt.from_pair_suites("Inline_map_test", { - hd: [ - "find", - (function (param) { - return { - TAG: "Eq", - _0: find(10, m), - _1: /* 'a' */97 - }; - }) - ], - tl: /* [] */0 - }); + hd: [ + "find", + (function (param) { + return { + TAG: "Eq", + _0: find(10, m), + _1: /* 'a' */97 + }; + }) + ], + tl: /* [] */0 +}); /* m Not a pure module */ diff --git a/jscomp/test/inline_record_test.js b/jscomp/test/inline_record_test.js index 2945882594..a9a339501c 100644 --- a/jscomp/test/inline_record_test.js +++ b/jscomp/test/inline_record_test.js @@ -1,15 +1,15 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var List = require("../../lib/js/list.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Mt = require("./mt.js"); +let List = require("../../lib/js/list.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -17,13 +17,13 @@ function eq(loc, x, y) { Mt.eq_suites(test_id, suites, loc, x, y); } -var v = { +let v = { TAG: "A0", lbl: 3, more: /* [] */0 }; -var v1 = { +let v1 = { TAG: "A1", more: { hd: 1, @@ -37,12 +37,12 @@ var v1 = { function f(x) { if (x.TAG === "A0") { return List.fold_left((function (prim0, prim1) { - return prim0 + prim1 | 0; - }), x.lbl, x.more); + return prim0 + prim1 | 0; + }), x.lbl, x.more); } else { return List.fold_left((function (prim0, prim1) { - return prim0 + prim1 | 0; - }), 0, x.more); + return prim0 + prim1 | 0; + }), 0, x.more); } } @@ -54,29 +54,29 @@ console.log(f(v)); console.log(f(v1)); -var A0 = /* @__PURE__ */Caml_exceptions.create("Inline_record_test.A0"); +let A0 = /* @__PURE__ */Caml_exceptions.create("Inline_record_test.A0"); -var v3 = { +let v3 = { RE_EXN_ID: A0, lbl: 3, more: /* [] */0 }; -var tmp; +let tmp; if (A0 === A0) { tmp = 3; } else { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 47, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 47, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 44, characters 2-9", tmp, 3); @@ -89,64 +89,64 @@ function ff(x) { } } -var v4 = { +let v4 = { TAG: "A0", x: 0, y: 0, z: 0 }; -var v5 = { +let v5 = { TAG: "A1", z: 0 }; -for(var i = 0; i <= 10; ++i){ +for(let i = 0; i <= 10; ++i){ ff(v4); ff(v5); } -var tmp$1; +let tmp$1; if (v4.TAG === "A0") { tmp$1 = v4.x; } else { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 74, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 74, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 71, characters 2-9", tmp$1, 11); -var tmp$2; +let tmp$2; if (v5.TAG === "A0") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 83, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 83, + 9 + ] + } + }); } tmp$2 = v5.z; eq("File \"inline_record_test.res\", line 80, characters 2-9", tmp$2, 22); -var A4 = /* @__PURE__ */Caml_exceptions.create("Inline_record_test.A4"); +let A4 = /* @__PURE__ */Caml_exceptions.create("Inline_record_test.A4"); -var v6 = { +let v6 = { RE_EXN_ID: A4, x: 0, y: 0, @@ -157,30 +157,30 @@ function ff0(x) { if (x.RE_EXN_ID === A4) { x.x = x.x + 1 | 0; x.z = x.z + 1 | 0; - return ; + return; } } -for(var i$1 = 0; i$1 <= 10; ++i$1){ +for(let i$1 = 0; i$1 <= 10; ++i$1){ ff0(v6); } -var tmp$3; +let tmp$3; if (v6.RE_EXN_ID === A4) { tmp$3 = v6.x; } else { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "inline_record_test.res", - 108, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "inline_record_test.res", + 108, + 9 + ] + } + }); } eq("File \"inline_record_test.res\", line 105, characters 2-9", tmp$3, 11); @@ -190,16 +190,16 @@ function ff1(x) { return "A1"; } else { return { - TAG: "A0", - lbl: x.lbl + 1 | 0, - more: x.more - }; + TAG: "A0", + lbl: x.lbl + 1 | 0, + more: x.more + }; } } Mt.from_pair_suites("Inline_record_test", suites.contents); -var b = { +let b = { TAG: "B" }; @@ -211,19 +211,19 @@ if (typeof b !== "object") { console.log("10!"); -var v2 = { +let v2 = { TAG: "A0", lbl: 3, more: /* [] */0 }; -var vvv = { +let vvv = { TAG: "A0", lbl: 3, more: /* [] */0 }; -var r = { +let r = { y: 10 }; diff --git a/jscomp/test/int64_string_test.js b/jscomp/test/int64_string_test.js index bf2a91aae4..049b421fe2 100644 --- a/jscomp/test/int64_string_test.js +++ b/jscomp/test/int64_string_test.js @@ -1,16 +1,16 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Int64 = require("../../lib/js/int64.js"); -var Belt_List = require("../../lib/js/belt_List.js"); -var Caml_int64 = require("../../lib/js/caml_int64.js"); +let Mt = require("./mt.js"); +let Int64 = require("../../lib/js/int64.js"); +let Belt_List = require("../../lib/js/belt_List.js"); +let Caml_int64 = require("../../lib/js/caml_int64.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -18,7 +18,7 @@ function eq(loc, x, y) { Mt.eq_suites(test_id, suites, loc, x, y); } -var v = Caml_int64.to_string(Int64.max_int); +let v = Caml_int64.to_string(Int64.max_int); eq("File \"int64_string_test.res\", line 6, characters 3-10", v, "9223372036854775807"); @@ -26,83 +26,83 @@ function f(a, b) { eq("File \"int64_string_test.res\", line 7, characters 21-28", Caml_int64.to_string(a), b); } -var hh = Caml_int64.add(Int64.min_int, [ - 0, - 100 - ]); +let hh = Caml_int64.add(Int64.min_int, [ + 0, + 100 +]); eq("File \"int64_string_test.res\", line 14, characters 3-10", hh, [ - -2147483648, - 100 - ]); + -2147483648, + 100 +]); f([ - -1, - 4294967263 - ], "-33"); + -1, + 4294967263 +], "-33"); f([ - 0, - 33 - ], "33"); + 0, + 33 +], "33"); f(Int64.min_int, "-9223372036854775808"); f(hh, "-9223372036854775708"); f([ - 232830, - 2764472320 - ], "1000000000000000"); + 232830, + 2764472320 +], "1000000000000000"); -for(var i = 0; i <= 8; ++i){ +for(let i = 0; i <= 8; ++i){ eq("File \"int64_string_test.res\", line 22, characters 4-11", Caml_int64.to_string(Caml_int64.add(Int64.min_int, Caml_int64.of_int32(i))), "-922337203685477580" + String(8 - i | 0)); } -for(var i$1 = 0; i$1 <= 8; ++i$1){ +for(let i$1 = 0; i$1 <= 8; ++i$1){ eq("File \"int64_string_test.res\", line 32, characters 4-11", Caml_int64.to_string(Caml_int64.add(Int64.min_int, Caml_int64.of_int32(100 + i$1 | 0))), "-922337203685477570" + String(8 - i$1 | 0)); } -for(var i$2 = 0; i$2 <= 8; ++i$2){ +for(let i$2 = 0; i$2 <= 8; ++i$2){ eq("File \"int64_string_test.res\", line 42, characters 4-11", Caml_int64.to_string(Caml_int64.add(Int64.min_int, Caml_int64.of_int32(1000000 + i$2 | 0))), "-922337203685377580" + String(8 - i$2 | 0)); } -var u = [ +let u = [ 2097151, 4294957295 ]; -for(var i$3 = 0; i$3 <= 6; ++i$3){ +for(let i$3 = 0; i$3 <= 6; ++i$3){ eq("File \"int64_string_test.res\", line 56, characters 4-11", Caml_int64.to_string(Caml_int64.add(u, Caml_int64.of_int32(Math.imul(i$3, 10000)))), "90071992547" + (String(3 + i$3 | 0) + "0991")); } -var v$1 = [ +let v$1 = [ -2097153, 4294917297 ]; -for(var i$4 = 0; i$4 <= 9; ++i$4){ +for(let i$4 = 0; i$4 <= 9; ++i$4){ eq("File \"int64_string_test.res\", line 67, characters 4-11", Caml_int64.to_string(Caml_int64.add(v$1, Caml_int64.of_int32(Math.imul(i$4, 10000)))), "-90071992547" + (String(9 - i$4 | 0) + "0991")); } eq("File \"int64_string_test.res\", line 73, characters 3-10", Caml_int64.to_string([ - 2097151, - 4294967295 - ]), "9007199254740991"); + 2097151, + 4294967295 +]), "9007199254740991"); eq("File \"int64_string_test.res\", line 74, characters 3-10", Caml_int64.to_string([ - -2097152, - 1 - ]), "-9007199254740991"); + -2097152, + 1 +]), "-9007199254740991"); eq("File \"int64_string_test.res\", line 75, characters 3-10", Caml_int64.to_string([ - -1, - 4294967063 - ]), "-233"); + -1, + 4294967063 +]), "-233"); eq("File \"int64_string_test.res\", line 77, characters 2-9", Caml_int64.to_string(Caml_int64.max_int), "9223372036854775807"); -var random_data = { +let random_data = { hd: { hd: [ [ @@ -1305,43 +1305,43 @@ var random_data = { }; Belt_List.forEach(random_data, (function (u) { - if (u) { - if (u.tl) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "int64_string_test.res", - 191, - 9 - ] - } - }); - } - var match = u.hd; - return eq("File \"int64_string_test.res\", line 190, characters 25-32", Caml_int64.to_string(match[0]), match[1]); + if (u) { + if (u.tl) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "int64_string_test.res", + 191, + 9 + ] + } + }); + } + let match = u.hd; + return eq("File \"int64_string_test.res\", line 190, characters 25-32", Caml_int64.to_string(match[0]), match[1]); + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "int64_string_test.res", + 191, + 9 + ] } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "int64_string_test.res", - 191, - 9 - ] - } - }); - })); + }); +})); eq("File \"int64_string_test.res\", line 195, characters 3-10", Caml_int64.to_string([ - -2097152, - 1 - ]), "-9007199254740991"); + -2097152, + 1 +]), "-9007199254740991"); eq("File \"int64_string_test.res\", line 196, characters 3-10", Caml_int64.to_string([ - -2097152, - 0 - ]), "-9007199254740992"); + -2097152, + 0 +]), "-9007199254740992"); Mt.from_pair_suites("File \"int64_string_test.res\", line 197, characters 20-27", suites.contents); diff --git a/jscomp/test/int_map.js b/jscomp/test/int_map.js index 7ac5a801b5..b776fbda6d 100644 --- a/jscomp/test/int_map.js +++ b/jscomp/test/int_map.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function height(param) { if (typeof param !== "object") { @@ -14,47 +14,47 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function singleton(x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -62,34 +62,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -97,11 +97,11 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -115,42 +115,42 @@ function is_empty(param) { function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -160,299 +160,299 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function min_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function min_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function max_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function max_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function remove_min_binding(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -467,7 +467,7 @@ function merge(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); } @@ -475,23 +475,23 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -501,53 +501,53 @@ function remove(x, param) { function update(x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { @@ -557,14 +557,14 @@ function update(x, f, param) { function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; } @@ -572,53 +572,53 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; } function mapi(f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; } function fold(f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -629,13 +629,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -646,7 +646,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -670,11 +670,11 @@ function join(l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -691,7 +691,7 @@ function concat(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); } @@ -706,37 +706,37 @@ function concat_or_join(t1, v, d, t2) { function split(x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function merge$1(f, s1, s2) { @@ -746,27 +746,27 @@ function merge$1(f, s1, s2) { } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); } @@ -774,28 +774,28 @@ function union(f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { @@ -807,13 +807,13 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -828,36 +828,36 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } } function cons_enum(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -869,16 +869,16 @@ function cons_enum(_m, _e) { _3: e }; _m = m.l; - continue ; + continue; }; } function compare(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -889,26 +889,26 @@ function compare(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.int_compare(e1._0, e2._0); + let c = Caml.int_compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } function equal(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -927,7 +927,7 @@ function equal(cmp, m1, m2) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } @@ -941,8 +941,8 @@ function cardinal(param) { function bindings_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -954,7 +954,7 @@ function bindings_aux(_accu, _param) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; } @@ -962,11 +962,11 @@ function bindings(s) { return bindings_aux(/* [] */0, s); } -var empty = "Empty"; +let empty = "Empty"; -var choose = min_binding; +let choose = min_binding; -var choose_opt = min_binding_opt; +let choose_opt = min_binding_opt; exports.empty = empty; exports.is_empty = is_empty; diff --git a/jscomp/test/internal_unused_test.js b/jscomp/test/internal_unused_test.js index b0721597f0..6b4f1b57ac 100644 --- a/jscomp/test/internal_unused_test.js +++ b/jscomp/test/internal_unused_test.js @@ -1,33 +1,33 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); console.log(3); -var A = /* @__PURE__ */Caml_exceptions.create("Internal_unused_test.P1.A"); +let A = /* @__PURE__ */Caml_exceptions.create("Internal_unused_test.P1.A"); function f(param) { throw new Error(A, { - cause: { - RE_EXN_ID: A - } - }); + cause: { + RE_EXN_ID: A + } + }); } -var c = 5; +let c = 5; -var h1 = 2; +let h1 = 2; -var h2 = h1 + 1 | 0; +let h2 = h1 + 1 | 0; -var h4 = 2; +let h4 = 2; -var h5 = h4 + 1 | 0; +let h5 = h4 + 1 | 0; -var b = 5; +let b = 5; -var N = { +let N = { b: b }; diff --git a/jscomp/test/js_exception_catch_test.js b/jscomp/test/js_exception_catch_test.js index 9cde2612e5..6446aa65dc 100644 --- a/jscomp/test/js_exception_catch_test.js +++ b/jscomp/test/js_exception_catch_test.js @@ -1,23 +1,23 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Curry = require("../../lib/js/curry.js"); -var Js_exn = require("../../lib/js/js_exn.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Mt = require("./mt.js"); +let Curry = require("../../lib/js/curry.js"); +let Js_exn = require("../../lib/js/js_exn.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var counter = { +let counter = { contents: 0 }; function add_test(loc, test) { counter.contents = counter.contents + 1 | 0; - var id = loc + (" id " + String(counter.contents)); + let id = loc + (" id " + String(counter.contents)); suites.contents = { hd: [ id, @@ -29,70 +29,70 @@ function add_test(loc, test) { function eq(loc, x, y) { add_test(loc, (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - })); + return { + TAG: "Eq", + _0: x, + _1: y + }; + })); } function false_(loc) { add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } function true_(loc) { add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } -var exit = 0; +let exit = 0; -var e; +let e; try { e = JSON.parse(" {\"x\"}"); exit = 1; } catch (raw_x){ - var x = Caml_js_exceptions.internalToOCamlException(raw_x); + let x = Caml_js_exceptions.internalToOCamlException(raw_x); if (x.RE_EXN_ID === Js_exn.$$Error) { add_test("File \"js_exception_catch_test.res\", line 18, characters 37-44", (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } else { throw new Error(x.RE_EXN_ID, { - cause: x - }); + cause: x + }); } } if (exit === 1) { add_test("File \"js_exception_catch_test.res\", line 19, characters 14-21", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } -var A = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.A"); +let A = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.A"); -var B = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.B"); +let B = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.B"); -var C = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.C"); +let C = /* @__PURE__ */Caml_exceptions.create("Js_exception_catch_test.C"); function test(f) { try { @@ -100,7 +100,7 @@ function test(f) { return "No_error"; } catch (raw_e){ - var e = Caml_js_exceptions.internalToOCamlException(raw_e); + let e = Caml_js_exceptions.internalToOCamlException(raw_e); if (e.RE_EXN_ID === "Not_found") { return "Not_found"; } else if (e.RE_EXN_ID === "Invalid_argument") { @@ -132,95 +132,95 @@ function test(f) { } eq("File \"js_exception_catch_test.res\", line 44, characters 5-12", test(function (param) { - - }), "No_error"); + +}), "No_error"); eq("File \"js_exception_catch_test.res\", line 45, characters 5-12", test(function (param) { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - }), "Not_found"); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); +}), "Not_found"); eq("File \"js_exception_catch_test.res\", line 46, characters 5-12", test(function (param) { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "x" - } - }); - }), "Invalid_argument"); + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "x" + } + }); +}), "Invalid_argument"); eq("File \"js_exception_catch_test.res\", line 47, characters 5-12", test(function (param) { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "" - } - }); - }), "Invalid_any"); + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "" + } + }); +}), "Invalid_any"); eq("File \"js_exception_catch_test.res\", line 48, characters 5-12", test(function (param) { - throw new Error(A, { - cause: { - RE_EXN_ID: A, - _1: 2 - } - }); - }), "A2"); + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 2 + } + }); +}), "A2"); eq("File \"js_exception_catch_test.res\", line 49, characters 5-12", test(function (param) { - throw new Error(A, { - cause: { - RE_EXN_ID: A, - _1: 3 - } - }); - }), "A_any"); + throw new Error(A, { + cause: { + RE_EXN_ID: A, + _1: 3 + } + }); +}), "A_any"); eq("File \"js_exception_catch_test.res\", line 50, characters 5-12", test(function (param) { - throw new Error(B, { - cause: { - RE_EXN_ID: B - } - }); - }), "B"); + throw new Error(B, { + cause: { + RE_EXN_ID: B + } + }); +}), "B"); eq("File \"js_exception_catch_test.res\", line 51, characters 5-12", test(function (param) { - throw new Error(C, { - cause: { - RE_EXN_ID: C, - _1: 1, - _2: 2 - } - }); - }), "C"); + throw new Error(C, { + cause: { + RE_EXN_ID: C, + _1: 1, + _2: 2 + } + }); +}), "C"); eq("File \"js_exception_catch_test.res\", line 52, characters 5-12", test(function (param) { - throw new Error(C, { - cause: { - RE_EXN_ID: C, - _1: 0, - _2: 2 - } - }); - }), "C_any"); + throw new Error(C, { + cause: { + RE_EXN_ID: C, + _1: 0, + _2: 2 + } + }); +}), "C_any"); eq("File \"js_exception_catch_test.res\", line 53, characters 5-12", test(function (param) { - throw new Error(new Error("x").RE_EXN_ID, { - cause: new Error("x") - }); - }), "Js_error"); + throw new Error(new Error("x").RE_EXN_ID, { + cause: new Error("x") + }); +}), "Js_error"); eq("File \"js_exception_catch_test.res\", line 54, characters 5-12", test(function (param) { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "x" - } - }); - }), "Any"); + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "x" + } + }); +}), "Any"); Mt.from_pair_suites("Js_exception_catch_test", suites.contents); diff --git a/jscomp/test/js_json_test.js b/jscomp/test/js_json_test.js index 7785a9aa35..a1a017bac1 100644 --- a/jscomp/test/js_json_test.js +++ b/jscomp/test/js_json_test.js @@ -1,26 +1,26 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var $$Array = require("../../lib/js/array.js"); -var Js_dict = require("../../lib/js/js_dict.js"); -var Js_json = require("../../lib/js/js_json.js"); -var Belt_List = require("../../lib/js/belt_List.js"); -var Belt_Array = require("../../lib/js/belt_Array.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Caml_option = require("../../lib/js/caml_option.js"); - -var suites = { +let Mt = require("./mt.js"); +let $$Array = require("../../lib/js/array.js"); +let Js_dict = require("../../lib/js/js_dict.js"); +let Js_json = require("../../lib/js/js_json.js"); +let Belt_List = require("../../lib/js/belt_List.js"); +let Belt_Array = require("../../lib/js/belt_Array.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Caml_option = require("../../lib/js/caml_option.js"); + +let suites = { contents: /* [] */0 }; -var counter = { +let counter = { contents: 0 }; function add_test(loc, test) { counter.contents = counter.contents + 1 | 0; - var id = loc + (" id " + String(counter.contents)); + let id = loc + (" id " + String(counter.contents)); suites.contents = { hd: [ id, @@ -32,162 +32,162 @@ function add_test(loc, test) { function eq(loc, x, y) { add_test(loc, (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - })); + return { + TAG: "Eq", + _0: x, + _1: y + }; + })); } function false_(loc) { add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } function true_(loc) { add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } -var v = JSON.parse(" { \"x\" : [1, 2, 3 ] } "); +let v = JSON.parse(" { \"x\" : [1, 2, 3 ] } "); add_test("File \"js_json_test.res\", line 22, characters 11-18", (function (param) { - var ty = Js_json.classify(v); - if (typeof ty !== "object") { - return { - TAG: "Ok", - _0: false - }; - } - if (ty.TAG !== "JSONObject") { - return { - TAG: "Ok", - _0: false - }; - } - var v$1 = Js_dict.get(ty._0, "x"); - if (v$1 === undefined) { - return { - TAG: "Ok", - _0: false - }; - } - var ty2 = Js_json.classify(v$1); - if (typeof ty2 !== "object") { - return { - TAG: "Ok", - _0: false - }; - } - if (ty2.TAG !== "JSONArray") { - return { - TAG: "Ok", - _0: false - }; - } - ty2._0.forEach(function (x) { - var ty3 = Js_json.classify(x); - if (typeof ty3 !== "object") { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 37, - 19 - ] - } - }); - } - if (ty3.TAG === "JSONNumber") { - return ; - } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 37, - 19 - ] - } - }); - }); - return { - TAG: "Ok", - _0: true - }; - })); + let ty = Js_json.classify(v); + if (typeof ty !== "object") { + return { + TAG: "Ok", + _0: false + }; + } + if (ty.TAG !== "JSONObject") { + return { + TAG: "Ok", + _0: false + }; + } + let v$1 = Js_dict.get(ty._0, "x"); + if (v$1 === undefined) { + return { + TAG: "Ok", + _0: false + }; + } + let ty2 = Js_json.classify(v$1); + if (typeof ty2 !== "object") { + return { + TAG: "Ok", + _0: false + }; + } + if (ty2.TAG !== "JSONArray") { + return { + TAG: "Ok", + _0: false + }; + } + ty2._0.forEach(function (x) { + let ty3 = Js_json.classify(x); + if (typeof ty3 !== "object") { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 37, + 19 + ] + } + }); + } + if (ty3.TAG === "JSONNumber") { + return; + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 37, + 19 + ] + } + }); + }); + return { + TAG: "Ok", + _0: true + }; +})); eq("File \"js_json_test.res\", line 48, characters 5-12", Js_json.test(v, "Object"), true); -var json = JSON.parse(JSON.stringify(null)); +let json = JSON.parse(JSON.stringify(null)); -var ty = Js_json.classify(json); +let ty = Js_json.classify(json); if (typeof ty !== "object") { if (ty === "JSONNull") { add_test("File \"js_json_test.res\", line 55, characters 24-31", (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } else { console.log(ty); add_test("File \"js_json_test.res\", line 58, characters 11-18", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } else { console.log(ty); add_test("File \"js_json_test.res\", line 58, characters 11-18", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } -var json$1 = JSON.parse(JSON.stringify("test string")); +let json$1 = JSON.parse(JSON.stringify("test string")); -var ty$1 = Js_json.classify(json$1); +let ty$1 = Js_json.classify(json$1); if (typeof ty$1 !== "object") { add_test("File \"js_json_test.res\", line 68, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$1.TAG === "JSONString") { eq("File \"js_json_test.res\", line 67, characters 26-33", ty$1._0, "test string"); } else { add_test("File \"js_json_test.res\", line 68, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } -var json$2 = JSON.parse(JSON.stringify(1.23456789)); +let json$2 = JSON.parse(JSON.stringify(1.23456789)); -var ty$2 = Js_json.classify(json$2); +let ty$2 = Js_json.classify(json$2); -var exit = 0; +let exit = 0; if (typeof ty$2 !== "object" || ty$2.TAG !== "JSONNumber") { exit = 1; @@ -197,18 +197,18 @@ if (typeof ty$2 !== "object" || ty$2.TAG !== "JSONNumber") { if (exit === 1) { add_test("File \"js_json_test.res\", line 78, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } -var json$3 = JSON.parse(JSON.stringify(-1347440721)); +let json$3 = JSON.parse(JSON.stringify(-1347440721)); -var ty$3 = Js_json.classify(json$3); +let ty$3 = Js_json.classify(json$3); -var exit$1 = 0; +let exit$1 = 0; if (typeof ty$3 !== "object" || ty$3.TAG !== "JSONNumber") { exit$1 = 1; @@ -218,23 +218,23 @@ if (typeof ty$3 !== "object" || ty$3.TAG !== "JSONNumber") { if (exit$1 === 1) { add_test("File \"js_json_test.res\", line 88, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } function test(v) { - var json = JSON.parse(JSON.stringify(v)); - var ty = Js_json.classify(json); + let json = JSON.parse(JSON.stringify(v)); + let ty = Js_json.classify(json); if (typeof ty === "object") { return add_test("File \"js_json_test.res\", line 100, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } switch (ty) { case "JSONFalse" : @@ -243,11 +243,11 @@ function test(v) { return eq("File \"js_json_test.res\", line 98, characters 23-30", true, v); default: return add_test("File \"js_json_test.res\", line 100, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } @@ -260,196 +260,196 @@ function option_get(x) { return Caml_option.valFromOption(x); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "js_json_test.res", - 111, - 12 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "js_json_test.res", + 111, + 12 + ] + } + }); } -var dict = {}; +let dict = {}; dict["a"] = "test string"; dict["b"] = 123.0; -var json$4 = JSON.parse(JSON.stringify(dict)); +let json$4 = JSON.parse(JSON.stringify(dict)); -var ty$4 = Js_json.classify(json$4); +let ty$4 = Js_json.classify(json$4); if (typeof ty$4 !== "object") { add_test("File \"js_json_test.res\", line 142, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$4.TAG === "JSONObject") { - var x = ty$4._0; - var ta = Js_json.classify(option_get(Js_dict.get(x, "a"))); + let x = ty$4._0; + let ta = Js_json.classify(option_get(Js_dict.get(x, "a"))); if (typeof ta !== "object") { add_test("File \"js_json_test.res\", line 140, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ta.TAG === "JSONString") { if (ta._0 !== "test string") { add_test("File \"js_json_test.res\", line 131, characters 15-22", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else { - var ty$5 = Js_json.classify(option_get(Js_dict.get(x, "b"))); + let ty$5 = Js_json.classify(option_get(Js_dict.get(x, "b"))); if (typeof ty$5 !== "object") { add_test("File \"js_json_test.res\", line 137, characters 22-29", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$5.TAG === "JSONNumber") { - var b = ty$5._0; + let b = ty$5._0; add_test("File \"js_json_test.res\", line 136, characters 38-45", (function (param) { - return { - TAG: "Approx", - _0: 123.0, - _1: b - }; - })); + return { + TAG: "Approx", + _0: 123.0, + _1: b + }; + })); } else { add_test("File \"js_json_test.res\", line 137, characters 22-29", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } } else { add_test("File \"js_json_test.res\", line 140, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } else { add_test("File \"js_json_test.res\", line 142, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } function eq_at_i(loc, json, i, kind, expected) { - var ty = Js_json.classify(json); + let ty = Js_json.classify(json); if (typeof ty !== "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } if (ty.TAG !== "JSONArray") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } - var ty$1 = Js_json.classify(Caml_array.get(ty._0, i)); + let ty$1 = Js_json.classify(Caml_array.get(ty._0, i)); switch (kind) { case "String" : if (typeof ty$1 !== "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$1.TAG === "JSONString") { return eq(loc, ty$1._0, expected); } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } case "Number" : if (typeof ty$1 !== "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$1.TAG === "JSONNumber") { return eq(loc, ty$1._0, expected); } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } case "Object" : if (typeof ty$1 !== "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$1.TAG === "JSONObject") { return eq(loc, ty$1._0, expected); } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } case "Array" : if (typeof ty$1 !== "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$1.TAG === "JSONArray") { return eq(loc, ty$1._0, expected); } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } case "Boolean" : if (typeof ty$1 === "object") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } switch (ty$1) { case "JSONFalse" : @@ -458,48 +458,48 @@ function eq_at_i(loc, json, i, kind, expected) { return eq(loc, true, expected); default: return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } case "Null" : if (typeof ty$1 !== "object") { if (ty$1 === "JSONNull") { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } else { return add_test(loc, (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } } -var json$5 = JSON.parse(JSON.stringify($$Array.map((function (prim) { - return prim; - }), [ - "string 0", - "string 1", - "string 2" - ]))); +let json$5 = JSON.parse(JSON.stringify($$Array.map((function (prim) { + return prim; +}), [ + "string 0", + "string 1", + "string 2" +]))); eq_at_i("File \"js_json_test.res\", line 199, characters 10-17", json$5, 0, "String", "string 0"); @@ -507,11 +507,11 @@ eq_at_i("File \"js_json_test.res\", line 200, characters 10-17", json$5, 1, "Str eq_at_i("File \"js_json_test.res\", line 201, characters 10-17", json$5, 2, "String", "string 2"); -var json$6 = JSON.parse(JSON.stringify([ - "string 0", - "string 1", - "string 2" - ])); +let json$6 = JSON.parse(JSON.stringify([ + "string 0", + "string 1", + "string 2" +])); eq_at_i("File \"js_json_test.res\", line 208, characters 10-17", json$6, 0, "String", "string 0"); @@ -519,13 +519,13 @@ eq_at_i("File \"js_json_test.res\", line 209, characters 10-17", json$6, 1, "Str eq_at_i("File \"js_json_test.res\", line 210, characters 10-17", json$6, 2, "String", "string 2"); -var a = [ +let a = [ 1.0000001, 10000000000.1, 123.0 ]; -var json$7 = JSON.parse(JSON.stringify(a)); +let json$7 = JSON.parse(JSON.stringify(a)); eq_at_i("File \"js_json_test.res\", line 219, characters 10-17", json$7, 0, "Number", Caml_array.get(a, 0)); @@ -533,15 +533,15 @@ eq_at_i("File \"js_json_test.res\", line 220, characters 10-17", json$7, 1, "Num eq_at_i("File \"js_json_test.res\", line 221, characters 10-17", json$7, 2, "Number", Caml_array.get(a, 2)); -var a$1 = [ +let a$1 = [ 0, -1347440721, -268391749 ]; -var json$8 = JSON.parse(JSON.stringify($$Array.map((function (prim) { - return prim; - }), a$1))); +let json$8 = JSON.parse(JSON.stringify($$Array.map((function (prim) { + return prim; +}), a$1))); eq_at_i("File \"js_json_test.res\", line 230, characters 10-17", json$8, 0, "Number", Caml_array.get(a$1, 0)); @@ -549,13 +549,13 @@ eq_at_i("File \"js_json_test.res\", line 231, characters 10-17", json$8, 1, "Num eq_at_i("File \"js_json_test.res\", line 232, characters 10-17", json$8, 2, "Number", Caml_array.get(a$1, 2)); -var a$2 = [ +let a$2 = [ true, false, true ]; -var json$9 = JSON.parse(JSON.stringify(a$2)); +let json$9 = JSON.parse(JSON.stringify(a$2)); eq_at_i("File \"js_json_test.res\", line 241, characters 10-17", json$9, 0, "Boolean", Caml_array.get(a$2, 0)); @@ -564,104 +564,104 @@ eq_at_i("File \"js_json_test.res\", line 242, characters 10-17", json$9, 1, "Boo eq_at_i("File \"js_json_test.res\", line 243, characters 10-17", json$9, 2, "Boolean", Caml_array.get(a$2, 2)); function make_d(s, i) { - var d = {}; + let d = {}; d["a"] = s; d["b"] = i; return d; } -var a$3 = [ +let a$3 = [ make_d("aaa", 123), make_d("bbb", 456) ]; -var json$10 = JSON.parse(JSON.stringify(a$3)); +let json$10 = JSON.parse(JSON.stringify(a$3)); -var ty$6 = Js_json.classify(json$10); +let ty$6 = Js_json.classify(json$10); if (typeof ty$6 !== "object") { add_test("File \"js_json_test.res\", line 271, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$6.TAG === "JSONArray") { - var ty$7 = Js_json.classify(Caml_array.get(ty$6._0, 1)); + let ty$7 = Js_json.classify(Caml_array.get(ty$6._0, 1)); if (typeof ty$7 !== "object") { add_test("File \"js_json_test.res\", line 269, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$7.TAG === "JSONObject") { - var ty$8 = Js_json.classify(option_get(Js_dict.get(ty$7._0, "a"))); + let ty$8 = Js_json.classify(option_get(Js_dict.get(ty$7._0, "a"))); if (typeof ty$8 !== "object") { add_test("File \"js_json_test.res\", line 267, characters 20-27", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } else if (ty$8.TAG === "JSONString") { eq("File \"js_json_test.res\", line 266, characters 35-42", ty$8._0, "bbb"); } else { add_test("File \"js_json_test.res\", line 267, characters 20-27", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } else { add_test("File \"js_json_test.res\", line 269, characters 18-25", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } } else { add_test("File \"js_json_test.res\", line 271, characters 16-23", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } try { JSON.parse("{{ A}"); add_test("File \"js_json_test.res\", line 279, characters 11-18", (function (param) { - return { - TAG: "Ok", - _0: false - }; - })); + return { + TAG: "Ok", + _0: false + }; + })); } catch (exn){ add_test("File \"js_json_test.res\", line 281, characters 17-24", (function (param) { - return { - TAG: "Ok", - _0: true - }; - })); + return { + TAG: "Ok", + _0: true + }; + })); } eq("File \"js_json_test.res\", line 287, characters 12-19", JSON.stringify([ - 1, - 2, - 3 - ]), "[1,2,3]"); + 1, + 2, + 3 +]), "[1,2,3]"); eq("File \"js_json_test.res\", line 290, characters 2-9", JSON.stringify({ - foo: 1, - bar: "hello", - baz: { - baaz: 10 - } - }), "{\"foo\":1,\"bar\":\"hello\",\"baz\":{\"baaz\":10}}"); + foo: 1, + bar: "hello", + baz: { + baaz: 10 + } +}), "{\"foo\":1,\"bar\":\"hello\",\"baz\":{\"baaz\":10}}"); eq("File \"js_json_test.res\", line 295, characters 12-19", JSON.stringify(null), "null"); @@ -750,33 +750,33 @@ function idtest(obj) { idtest(undefined); idtest({ - hd: [ - undefined, - undefined, - undefined - ], - tl: /* [] */0 - }); + hd: [ + undefined, + undefined, + undefined + ], + tl: /* [] */0 +}); idtest(Belt_List.makeBy(500, (function (i) { - if (i % 2 === 0) { - return ; - } else { - return 1; - } - }))); + if (i % 2 === 0) { + return; + } else { + return 1; + } +}))); idtest(Belt_Array.makeBy(500, (function (i) { - if (i % 2 === 0) { - return ; - } else { - return 1; - } - }))); + if (i % 2 === 0) { + return; + } else { + return 1; + } +}))); Mt.from_pair_suites("Js_json_test", suites.contents); -var J; +let J; exports.suites = suites; exports.J = J; diff --git a/jscomp/test/lazy_test.js b/jscomp/test/lazy_test.js index 1a636f6b9e..9a611e41d3 100644 --- a/jscomp/test/lazy_test.js +++ b/jscomp/test/lazy_test.js @@ -1,225 +1,223 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Lazy = require("../../lib/js/lazy.js"); -var CamlinternalLazy = require("../../lib/js/camlinternalLazy.js"); +let Mt = require("./mt.js"); +let Lazy = require("../../lib/js/lazy.js"); +let CamlinternalLazy = require("../../lib/js/camlinternalLazy.js"); -var u = { +let u = { contents: 3 }; -var v = CamlinternalLazy.from_fun(function () { - u.contents = 32; - }); +let v = CamlinternalLazy.from_fun(function () { + u.contents = 32; +}); function lazy_test(param) { - var h = u.contents; + let h = u.contents; CamlinternalLazy.force(v); - var g = u.contents; + let g = u.contents; return [ - h, - g - ]; + h, + g + ]; } -var u_v = { +let u_v = { contents: 0 }; -var u$1 = CamlinternalLazy.from_fun(function () { - u_v.contents = 2; - }); +let u$1 = CamlinternalLazy.from_fun(function () { + u_v.contents = 2; +}); CamlinternalLazy.force(u$1); -var exotic = CamlinternalLazy.force; +let exotic = CamlinternalLazy.force; -var l_from_fun = CamlinternalLazy.from_fun(function () { - return 3; - }); +let l_from_fun = CamlinternalLazy.from_fun(function () { + return 3; +}); -var forward_test = CamlinternalLazy.from_fun(function () { - var u = 3; - u = u + 1 | 0; - return u; - }); +let forward_test = CamlinternalLazy.from_fun(function () { + let u = 3; + u = u + 1 | 0; + return u; +}); -var f005 = CamlinternalLazy.from_fun(function () { - return 6; - }); +let f005 = CamlinternalLazy.from_fun(function () { + return 6; +}); -var f006 = CamlinternalLazy.from_fun(function () { - return function (param) { - return 3; - }; - }); +let f006 = CamlinternalLazy.from_fun(function () { + return function (param) { + return 3; + }; +}); -var f007 = CamlinternalLazy.from_fun(function () { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - }); - -var f008 = CamlinternalLazy.from_fun(function () { - console.log("hi"); - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - }); +let f007 = CamlinternalLazy.from_fun(function () { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); +}); + +let f008 = CamlinternalLazy.from_fun(function () { + console.log("hi"); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); +}); -var a2 = CamlinternalLazy.from_val; +let a2 = CamlinternalLazy.from_val; -var a3 = CamlinternalLazy.from_val(3); +let a3 = CamlinternalLazy.from_val(3); -var a4 = CamlinternalLazy.from_val(3); +let a4 = CamlinternalLazy.from_val(3); -var a5 = CamlinternalLazy.from_val(undefined); +let a5 = CamlinternalLazy.from_val(undefined); -var a6 = CamlinternalLazy.from_val(); +let a6 = CamlinternalLazy.from_val(); -var a7 = CamlinternalLazy.force(a5); +let a7 = CamlinternalLazy.force(a5); -var a8 = CamlinternalLazy.force(a6); +let a8 = CamlinternalLazy.force(a6); Mt.from_pair_suites("Lazy_test", { + hd: [ + "simple", + (function (param) { + return { + TAG: "Eq", + _0: lazy_test(), + _1: [ + 3, + 32 + ] + }; + }) + ], + tl: { + hd: [ + "lazy_force", + (function (param) { + return { + TAG: "Eq", + _0: u_v.contents, + _1: 2 + }; + }) + ], + tl: { hd: [ - "simple", + "lazy_from_fun", (function (param) { - return { - TAG: "Eq", - _0: lazy_test(), - _1: [ - 3, - 32 - ] - }; - }) + return { + TAG: "Eq", + _0: CamlinternalLazy.force(l_from_fun), + _1: 3 + }; + }) ], tl: { hd: [ - "lazy_force", + "lazy_from_val", (function (param) { - return { - TAG: "Eq", - _0: u_v.contents, - _1: 2 - }; - }) + return { + TAG: "Eq", + _0: CamlinternalLazy.force(CamlinternalLazy.from_val(3)), + _1: 3 + }; + }) ], tl: { hd: [ - "lazy_from_fun", + "lazy_from_val2", (function (param) { - return { - TAG: "Eq", - _0: CamlinternalLazy.force(l_from_fun), - _1: 3 - }; - }) + return { + TAG: "Eq", + _0: CamlinternalLazy.force(CamlinternalLazy.force(CamlinternalLazy.from_val(CamlinternalLazy.from_fun(function () { + return 3; + })))), + _1: 3 + }; + }) ], tl: { hd: [ - "lazy_from_val", + "lazy_from_val3", (function (param) { - return { - TAG: "Eq", - _0: CamlinternalLazy.force(CamlinternalLazy.from_val(3)), - _1: 3 - }; - }) + debugger; + return { + TAG: "Eq", + _0: CamlinternalLazy.force(CamlinternalLazy.force(CamlinternalLazy.from_val(forward_test))), + _1: 4 + }; + }) ], tl: { hd: [ - "lazy_from_val2", + "lazy_test.res", (function (param) { - return { - TAG: "Eq", - _0: CamlinternalLazy.force(CamlinternalLazy.force(CamlinternalLazy.from_val(CamlinternalLazy.from_fun(function () { - return 3; - })))), - _1: 3 - }; - }) + return { + TAG: "Eq", + _0: a3, + _1: a4 + }; + }) ], tl: { hd: [ - "lazy_from_val3", + "lazy_test.res", (function (param) { - debugger; - return { - TAG: "Eq", - _0: CamlinternalLazy.force(CamlinternalLazy.force(CamlinternalLazy.from_val(forward_test))), - _1: 4 - }; - }) + return { + TAG: "Eq", + _0: a7, + _1: undefined + }; + }) ], tl: { hd: [ "lazy_test.res", (function (param) { - return { - TAG: "Eq", - _0: a3, - _1: a4 - }; - }) + return { + TAG: "Eq", + _0: a8, + _1: undefined + }; + }) ], tl: { hd: [ - "lazy_test.res", + "File \"lazy_test.res\", line 95, characters 7-14", (function (param) { - return { - TAG: "Eq", - _0: a7, - _1: undefined - }; - }) + return { + TAG: "Ok", + _0: Lazy.is_val(CamlinternalLazy.from_val(3)) + }; + }) ], tl: { hd: [ - "lazy_test.res", + "File \"lazy_test.res\", line 96, characters 7-14", (function (param) { - return { - TAG: "Eq", - _0: a8, - _1: undefined - }; - }) + return { + TAG: "Ok", + _0: !Lazy.is_val(CamlinternalLazy.from_fun(function () { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); + })) + }; + }) ], - tl: { - hd: [ - "File \"lazy_test.res\", line 95, characters 7-14", - (function (param) { - return { - TAG: "Ok", - _0: Lazy.is_val(CamlinternalLazy.from_val(3)) - }; - }) - ], - tl: { - hd: [ - "File \"lazy_test.res\", line 96, characters 7-14", - (function (param) { - return { - TAG: "Ok", - _0: !Lazy.is_val(CamlinternalLazy.from_fun(function () { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - })) - }; - }) - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } } } @@ -228,7 +226,9 @@ Mt.from_pair_suites("Lazy_test", { } } } - }); + } + } +}); exports.v = v; exports.lazy_test = lazy_test; diff --git a/jscomp/test/libqueue_test.js b/jscomp/test/libqueue_test.js index 45df76bd56..146b72d8ea 100644 --- a/jscomp/test/libqueue_test.js +++ b/jscomp/test/libqueue_test.js @@ -1,22 +1,22 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Queue = require("../../lib/js/queue.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Queue = require("../../lib/js/queue.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function to_list(q) { return List.rev(Queue.fold((function (l, x) { - return { - hd: x, - tl: l - }; - }), /* [] */0, q)); + return { + hd: x, + tl: l + }; + }), /* [] */0, q)); } -var Q = { +let Q = { Empty: Queue.Empty, create: Queue.create, add: Queue.add, @@ -41,17 +41,17 @@ function does_raise(f, q) { return false; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Queue.Empty) { return true; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var q = { +let q = { length: 0, first: "Nil", last: "Nil" @@ -59,243 +59,243 @@ var q = { if (!(to_list(q) === /* [] */0 && q.length === 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 30, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 30, + 2 + ] + } + }); } Queue.add(1, q); if (!(Caml_obj.equal(to_list(q), { - hd: 1, - tl: /* [] */0 - }) && q.length === 1)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 32, - 2 - ] - } - }); + hd: 1, + tl: /* [] */0 + }) && q.length === 1)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 32, + 2 + ] + } + }); } Queue.add(2, q); if (!(Caml_obj.equal(to_list(q), { - hd: 1, - tl: { - hd: 2, - tl: /* [] */0 - } - }) && q.length === 2)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 34, - 2 - ] - } - }); + hd: 1, + tl: { + hd: 2, + tl: /* [] */0 + } + }) && q.length === 2)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 34, + 2 + ] + } + }); } Queue.add(3, q); if (!(Caml_obj.equal(to_list(q), { - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: /* [] */0 - } - } - }) && q.length === 3)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 36, - 2 - ] - } - }); + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: /* [] */0 + } + } + }) && q.length === 3)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 36, + 2 + ] + } + }); } Queue.add(4, q); if (!(Caml_obj.equal(to_list(q), { - hd: 1, - tl: { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } - } - }) && q.length === 4)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 38, - 2 - ] - } - }); + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, + tl: { + hd: 4, + tl: /* [] */0 + } + } + } + }) && q.length === 4)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 38, + 2 + ] + } + }); } if (Queue.take(q) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 39, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 39, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } - }) && q.length === 3)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 40, - 2 - ] - } - }); + hd: 2, + tl: { + hd: 3, + tl: { + hd: 4, + tl: /* [] */0 + } + } + }) && q.length === 3)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 40, + 2 + ] + } + }); } if (Queue.take(q) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 41, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 41, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - }) && q.length === 2)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 42, - 2 - ] - } - }); + hd: 3, + tl: { + hd: 4, + tl: /* [] */0 + } + }) && q.length === 2)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 42, + 2 + ] + } + }); } if (Queue.take(q) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 43, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 43, + 2 + ] + } + }); } if (!(Caml_obj.equal(to_list(q), { - hd: 4, - tl: /* [] */0 - }) && q.length === 1)) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 44, - 2 - ] - } - }); + hd: 4, + tl: /* [] */0 + }) && q.length === 1)) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 44, + 2 + ] + } + }); } if (Queue.take(q) !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 45, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 45, + 2 + ] + } + }); } if (!(to_list(q) === /* [] */0 && q.length === 0)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 46, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 46, + 2 + ] + } + }); } if (!does_raise(Queue.take, q)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 47, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 47, + 2 + ] + } + }); } -var q$1 = { +let q$1 = { length: 0, first: "Nil", last: "Nil" @@ -305,72 +305,72 @@ Queue.add(1, q$1); if (Queue.take(q$1) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 53, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 53, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 54, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 54, + 2 + ] + } + }); } Queue.add(2, q$1); if (Queue.take(q$1) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 56, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 56, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 57, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 57, + 2 + ] + } + }); } if (q$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 58, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 58, + 2 + ] + } + }); } -var q$2 = { +let q$2 = { length: 0, first: "Nil", last: "Nil" @@ -380,158 +380,158 @@ Queue.add(1, q$2); if (Queue.peek(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 64, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 64, + 2 + ] + } + }); } Queue.add(2, q$2); if (Queue.peek(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 66, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 66, + 2 + ] + } + }); } Queue.add(3, q$2); if (Queue.peek(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 68, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 68, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 69, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 69, + 2 + ] + } + }); } if (Queue.take(q$2) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 70, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 70, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 71, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 71, + 2 + ] + } + }); } if (Queue.take(q$2) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 72, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 72, + 2 + ] + } + }); } if (Queue.peek(q$2) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 73, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 73, + 2 + ] + } + }); } if (Queue.take(q$2) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 74, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 74, + 2 + ] + } + }); } if (!does_raise(Queue.peek, q$2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 75, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 75, + 2 + ] + } + }); } if (!does_raise(Queue.peek, q$2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 76, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 76, + 2 + ] + } + }); } -var q$3 = { +let q$3 = { length: 0, first: "Nil", last: "Nil" }; -for(var i = 1; i <= 10; ++i){ +for(let i = 1; i <= 10; ++i){ Queue.add(i, q$3); } @@ -539,97 +539,95 @@ Queue.clear(q$3); if (q$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 85, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 85, + 2 + ] + } + }); } if (!does_raise(Queue.take, q$3)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 86, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 86, + 2 + ] + } + }); } if (!Caml_obj.equal(q$3, { - length: 0, - first: "Nil", - last: "Nil" - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 87, - 2 - ] - } - }); + length: 0, + first: "Nil", + last: "Nil" + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 87, + 2 + ] + } + }); } Queue.add(42, q$3); if (Queue.take(q$3) !== 42) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 89, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 89, + 2 + ] + } + }); } -var q1 = { +let q1 = { length: 0, first: "Nil", last: "Nil" }; -for(var i$1 = 1; i$1 <= 10; ++i$1){ +for(let i$1 = 1; i$1 <= 10; ++i$1){ Queue.add(i$1, q1); } -var q2 = Queue.copy(q1); +let q2 = Queue.copy(q1); if (!Caml_obj.equal(to_list(q1), { - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, + hd: 4, tl: { - hd: 3, + hd: 5, tl: { - hd: 4, + hd: 6, tl: { - hd: 5, + hd: 7, tl: { - hd: 6, + hd: 8, tl: { - hd: 7, + hd: 9, tl: { - hd: 8, - tl: { - hd: 9, - tl: { - hd: 10, - tl: /* [] */0 - } - } + hd: 10, + tl: /* [] */0 } } } @@ -637,42 +635,42 @@ if (!Caml_obj.equal(to_list(q1), { } } } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 98, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 98, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2), { - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, + hd: 4, tl: { - hd: 3, + hd: 5, tl: { - hd: 4, + hd: 6, tl: { - hd: 5, + hd: 7, tl: { - hd: 6, + hd: 8, tl: { - hd: 7, + hd: 9, tl: { - hd: 8, - tl: { - hd: 9, - tl: { - hd: 10, - tl: /* [] */0 - } - } + hd: 10, + tl: /* [] */0 } } } @@ -680,78 +678,80 @@ if (!Caml_obj.equal(to_list(q2), { } } } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 99, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 99, + 2 + ] + } + }); } if (q1.length !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 100, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 100, + 2 + ] + } + }); } if (q2.length !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 101, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 101, + 2 + ] + } + }); } -for(var i$2 = 1; i$2 <= 10; ++i$2){ +for(let i$2 = 1; i$2 <= 10; ++i$2){ if (Queue.take(q1) !== i$2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 103, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 103, + 4 + ] + } + }); } } -for(var i$3 = 1; i$3 <= 10; ++i$3){ +for(let i$3 = 1; i$3 <= 10; ++i$3){ if (Queue.take(q2) !== i$3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 106, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 106, + 4 + ] + } + }); } } -var q$4 = { +let q$4 = { length: 0, first: "Nil", last: "Nil" @@ -759,137 +759,137 @@ var q$4 = { if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 112, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 112, + 2 + ] + } + }); } -for(var i$4 = 1; i$4 <= 10; ++i$4){ +for(let i$4 = 1; i$4 <= 10; ++i$4){ Queue.add(i$4, q$4); if (q$4.length !== i$4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 115, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 115, + 4 + ] + } + }); } if (q$4.length === 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 116, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 116, + 4 + ] + } + }); } } -for(var i$5 = 10; i$5 >= 1; --i$5){ +for(let i$5 = 10; i$5 >= 1; --i$5){ if (q$4.length !== i$5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 119, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 119, + 4 + ] + } + }); } if (q$4.length === 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 120, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 120, + 4 + ] + } + }); } Queue.take(q$4); } if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 123, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 123, + 2 + ] + } + }); } if (q$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 124, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 124, + 2 + ] + } + }); } -var q$5 = { +let q$5 = { length: 0, first: "Nil", last: "Nil" }; -for(var i$6 = 1; i$6 <= 10; ++i$6){ +for(let i$6 = 1; i$6 <= 10; ++i$6){ Queue.add(i$6, q$5); } -var i$7 = { +let i$7 = { contents: 1 }; Queue.iter((function (j) { - if (i$7.contents !== j) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 134, - 4 - ] - } - }); - } - i$7.contents = i$7.contents + 1 | 0; - }), q$5); + if (i$7.contents !== j) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 134, + 4 + ] + } + }); + } + i$7.contents = i$7.contents + 1 | 0; +}), q$5); -var q1$1 = { +let q1$1 = { length: 0, first: "Nil", last: "Nil" }; -var q2$1 = { +let q2$1 = { length: 0, first: "Nil", last: "Nil" @@ -897,574 +897,574 @@ var q2$1 = { if (q1$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 141, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 141, + 2 + ] + } + }); } if (to_list(q1$1) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 142, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 142, + 2 + ] + } + }); } if (q2$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 143, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 143, + 2 + ] + } + }); } if (to_list(q2$1) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 144, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 144, + 2 + ] + } + }); } Queue.transfer(q1$1, q2$1); if (q1$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 146, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 146, + 2 + ] + } + }); } if (to_list(q1$1) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 147, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 147, + 2 + ] + } + }); } if (q2$1.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 148, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 148, + 2 + ] + } + }); } if (to_list(q2$1) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 149, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 149, + 2 + ] + } + }); } -var q1$2 = { +let q1$2 = { length: 0, first: "Nil", last: "Nil" }; -var q2$2 = { +let q2$2 = { length: 0, first: "Nil", last: "Nil" }; -for(var i$8 = 1; i$8 <= 4; ++i$8){ +for(let i$8 = 1; i$8 <= 4; ++i$8){ Queue.add(i$8, q1$2); } if (q1$2.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 157, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 157, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q1$2), { - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } + hd: 4, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 158, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 158, + 2 + ] + } + }); } if (q2$2.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 159, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 159, + 2 + ] + } + }); } if (to_list(q2$2) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 160, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 160, + 2 + ] + } + }); } Queue.transfer(q1$2, q2$2); if (q1$2.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 162, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 162, + 2 + ] + } + }); } if (to_list(q1$2) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 163, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 163, + 2 + ] + } + }); } if (q2$2.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 164, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 164, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$2), { - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } + hd: 4, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 165, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 165, + 2 + ] + } + }); } -var q1$3 = { +let q1$3 = { length: 0, first: "Nil", last: "Nil" }; -var q2$3 = { +let q2$3 = { length: 0, first: "Nil", last: "Nil" }; -for(var i$9 = 5; i$9 <= 8; ++i$9){ +for(let i$9 = 5; i$9 <= 8; ++i$9){ Queue.add(i$9, q2$3); } if (q1$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 173, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 173, + 2 + ] + } + }); } if (to_list(q1$3) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 174, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 174, + 2 + ] + } + }); } if (q2$3.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 175, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 175, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$3), { - hd: 5, + hd: 5, + tl: { + hd: 6, + tl: { + hd: 7, tl: { - hd: 6, - tl: { - hd: 7, - tl: { - hd: 8, - tl: /* [] */0 - } - } + hd: 8, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 176, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 176, + 2 + ] + } + }); } Queue.transfer(q1$3, q2$3); if (q1$3.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 178, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 178, + 2 + ] + } + }); } if (to_list(q1$3) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 179, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 179, + 2 + ] + } + }); } if (q2$3.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 180, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 180, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$3), { - hd: 5, + hd: 5, + tl: { + hd: 6, + tl: { + hd: 7, tl: { - hd: 6, - tl: { - hd: 7, - tl: { - hd: 8, - tl: /* [] */0 - } - } + hd: 8, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 181, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 181, + 2 + ] + } + }); } -var q1$4 = { +let q1$4 = { length: 0, first: "Nil", last: "Nil" }; -var q2$4 = { +let q2$4 = { length: 0, first: "Nil", last: "Nil" }; -for(var i$10 = 1; i$10 <= 4; ++i$10){ +for(let i$10 = 1; i$10 <= 4; ++i$10){ Queue.add(i$10, q1$4); } -for(var i$11 = 5; i$11 <= 8; ++i$11){ +for(let i$11 = 5; i$11 <= 8; ++i$11){ Queue.add(i$11, q2$4); } if (q1$4.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 192, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 192, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q1$4), { - hd: 1, + hd: 1, + tl: { + hd: 2, + tl: { + hd: 3, tl: { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } + hd: 4, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 193, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 193, + 2 + ] + } + }); } if (q2$4.length !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 194, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 194, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$4), { - hd: 5, + hd: 5, + tl: { + hd: 6, + tl: { + hd: 7, tl: { - hd: 6, - tl: { - hd: 7, - tl: { - hd: 8, - tl: /* [] */0 - } - } + hd: 8, + tl: /* [] */0 } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 195, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 195, + 2 + ] + } + }); } Queue.transfer(q1$4, q2$4); if (q1$4.length !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 197, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 197, + 2 + ] + } + }); } if (to_list(q1$4) !== /* [] */0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 198, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 198, + 2 + ] + } + }); } if (q2$4.length !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 199, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 199, + 2 + ] + } + }); } if (!Caml_obj.equal(to_list(q2$4), { - hd: 5, + hd: 5, + tl: { + hd: 6, + tl: { + hd: 7, tl: { - hd: 6, + hd: 8, tl: { - hd: 7, + hd: 1, tl: { - hd: 8, + hd: 2, tl: { - hd: 1, + hd: 3, tl: { - hd: 2, - tl: { - hd: 3, - tl: { - hd: 4, - tl: /* [] */0 - } - } + hd: 4, + tl: /* [] */0 } } } } } - })) { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "libqueue_test.res", - 200, - 2 - ] - } - }); + } + } + })) { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "libqueue_test.res", + 200, + 2 + ] + } + }); } console.log("OK"); diff --git a/jscomp/test/map_find_test.js b/jscomp/test/map_find_test.js index 1160bda9c7..3f9a5deec7 100644 --- a/jscomp/test/map_find_test.js +++ b/jscomp/test/map_find_test.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); function height(param) { if (typeof param !== "object") { @@ -14,36 +14,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -51,34 +51,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -86,52 +86,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -141,50 +141,50 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } -var m = List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", { +let m = List.fold_left((function (acc, param) { + return add(param[0], param[1], acc); +}), "Empty", { + hd: [ + 10, + /* 'a' */97 + ], + tl: { + hd: [ + 3, + /* 'b' */98 + ], + tl: { hd: [ - 10, - /* 'a' */97 + 7, + /* 'c' */99 ], tl: { hd: [ - 3, - /* 'b' */98 + 20, + /* 'd' */100 ], - tl: { - hd: [ - 7, - /* 'c' */99 - ], - tl: { - hd: [ - 20, - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); function height$1(param) { if (typeof param !== "object") { @@ -195,36 +195,36 @@ function height$1(param) { } function create$1(l, x, d, r) { - var hl = height$1(l); - var hr = height$1(r); + let hl = height$1(l); + let hr = height$1(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal$1(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height$1(ll) >= height$1(lr)) { return create$1(ll, lv, ld, create$1(lr, x, d, r)); } @@ -232,34 +232,34 @@ function bal$1(l, x, d, r) { return create$1(create$1(ll, lv, ld, lr.l), lr.v, lr.d, create$1(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height$1(rr) >= height$1(rl)) { return create$1(create$1(l, x, d, rl), rv, rd, rr); } @@ -267,52 +267,52 @@ function bal$1(l, x, d, r) { return create$1(create$1(l, x, d, rl.l), rl.v, rl.d, create$1(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add$1(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add$1(x, data, l); + let ll = add$1(x, data, l); if (l === ll) { return param; } else { return bal$1(ll, v, d, r); } } - var rr = add$1(x, data, r); + let rr = add$1(x, data, r); if (r === rr) { return param; } else { @@ -322,75 +322,75 @@ function add$1(x, data, param) { function find$1(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.string_compare(x, param.v); + let c = Caml.string_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } -var s = List.fold_left((function (acc, param) { - return add$1(param[0], param[1], acc); - }), "Empty", { +let s = List.fold_left((function (acc, param) { + return add$1(param[0], param[1], acc); +}), "Empty", { + hd: [ + "10", + /* 'a' */97 + ], + tl: { + hd: [ + "3", + /* 'b' */98 + ], + tl: { hd: [ - "10", - /* 'a' */97 + "7", + /* 'c' */99 ], tl: { hd: [ - "3", - /* 'b' */98 + "20", + /* 'd' */100 ], - tl: { - hd: [ - "7", - /* 'c' */99 - ], - tl: { - hd: [ - "20", - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); Mt.from_pair_suites("Map_find_test", { - hd: [ - "int", - (function (param) { - return { - TAG: "Eq", - _0: find(10, m), - _1: /* 'a' */97 - }; - }) - ], - tl: { - hd: [ - "string", - (function (param) { - return { - TAG: "Eq", - _0: find$1("10", s), - _1: /* 'a' */97 - }; - }) - ], - tl: /* [] */0 - } - }); + hd: [ + "int", + (function (param) { + return { + TAG: "Eq", + _0: find(10, m), + _1: /* 'a' */97 + }; + }) + ], + tl: { + hd: [ + "string", + (function (param) { + return { + TAG: "Eq", + _0: find$1("10", s), + _1: /* 'a' */97 + }; + }) + ], + tl: /* [] */0 + } +}); /* m Not a pure module */ diff --git a/jscomp/test/map_test.js b/jscomp/test/map_test.js index aad1746b59..501aa76e42 100644 --- a/jscomp/test/map_test.js +++ b/jscomp/test/map_test.js @@ -1,10 +1,10 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); function height(param) { if (typeof param !== "object") { @@ -15,36 +15,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -52,34 +52,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -87,52 +87,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -142,8 +142,8 @@ function add(x, data, param) { function cons_enum(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -155,16 +155,16 @@ function cons_enum(_m, _e) { _3: e }; _m = m.l; - continue ; + continue; }; } function compare(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -175,26 +175,26 @@ function compare(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.int_compare(e1._0, e2._0); + let c = Caml.int_compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } function equal(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -213,7 +213,7 @@ function equal(cmp, m1, m2) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } @@ -234,36 +234,36 @@ function height$1(param) { } function create$1(l, x, d, r) { - var hl = height$1(l); - var hr = height$1(r); + let hl = height$1(l); + let hr = height$1(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal$1(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height$1(ll) >= height$1(lr)) { return create$1(ll, lv, ld, create$1(lr, x, d, r)); } @@ -271,34 +271,34 @@ function bal$1(l, x, d, r) { return create$1(create$1(ll, lv, ld, lr.l), lr.v, lr.d, create$1(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height$1(rr) >= height$1(rl)) { return create$1(create$1(l, x, d, rl), rv, rd, rr); } @@ -306,52 +306,52 @@ function bal$1(l, x, d, r) { return create$1(create$1(l, x, d, rl.l), rl.v, rl.d, create$1(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add$1(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add$1(x, data, l); + let ll = add$1(x, data, l); if (l === ll) { return param; } else { return bal$1(ll, v, d, r); } } - var rr = add$1(x, data, r); + let rr = add$1(x, data, r); if (r === rr) { return param; } else { @@ -361,187 +361,187 @@ function add$1(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.string_compare(x, param.v); + let c = Caml.string_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function of_list(kvs) { return List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", kvs); + return add(param[0], param[1], acc); + }), "Empty", kvs); } -var int_map_suites_0 = [ +let int_map_suites_0 = [ "add", (function (param) { - var v = of_list({ + let v = of_list({ + hd: [ + 1, + /* '1' */49 + ], + tl: { + hd: [ + 2, + /* '3' */51 + ], + tl: { + hd: [ + 3, + /* '4' */52 + ], + tl: /* [] */0 + } + } + }); + return { + TAG: "Eq", + _0: cardinal(v), + _1: 3 + }; + }) +]; + +let int_map_suites_1 = { + hd: [ + "equal", + (function (param) { + let v = of_list({ + hd: [ + 1, + /* '1' */49 + ], + tl: { + hd: [ + 2, + /* '3' */51 + ], + tl: { + hd: [ + 3, + /* '4' */52 + ], + tl: /* [] */0 + } + } + }); + let u = of_list({ + hd: [ + 2, + /* '3' */51 + ], + tl: { + hd: [ + 3, + /* '4' */52 + ], + tl: { hd: [ 1, /* '1' */49 ], + tl: /* [] */0 + } + } + }); + return { + TAG: "Eq", + _0: compare(Caml.int_compare, u, v), + _1: 0 + }; + }) + ], + tl: { + hd: [ + "equal2", + (function (param) { + let v = of_list({ + hd: [ + 1, + /* '1' */49 + ], + tl: { + hd: [ + 2, + /* '3' */51 + ], tl: { hd: [ - 2, - /* '3' */51 + 3, + /* '4' */52 ], - tl: { - hd: [ - 3, - /* '4' */52 - ], - tl: /* [] */0 - } + tl: /* [] */0 } - }); - return { - TAG: "Eq", - _0: cardinal(v), - _1: 3 - }; - }) -]; - -var int_map_suites_1 = { - hd: [ - "equal", - (function (param) { - var v = of_list({ + } + }); + let u = of_list({ + hd: [ + 2, + /* '3' */51 + ], + tl: { + hd: [ + 3, + /* '4' */52 + ], + tl: { hd: [ 1, /* '1' */49 ], - tl: { - hd: [ - 2, - /* '3' */51 - ], - tl: { - hd: [ - 3, - /* '4' */52 - ], - tl: /* [] */0 - } - } - }); - var u = of_list({ - hd: [ - 2, - /* '3' */51 - ], - tl: { - hd: [ - 3, - /* '4' */52 - ], - tl: { - hd: [ - 1, - /* '1' */49 - ], - tl: /* [] */0 - } - } - }); + tl: /* [] */0 + } + } + }); return { - TAG: "Eq", - _0: compare(Caml.int_compare, u, v), - _1: 0 - }; + TAG: "Eq", + _0: true, + _1: equal((function (x, y) { + return x === y; + }), u, v) + }; }) - ], - tl: { - hd: [ - "equal2", - (function (param) { - var v = of_list({ - hd: [ - 1, - /* '1' */49 - ], - tl: { - hd: [ - 2, - /* '3' */51 - ], - tl: { - hd: [ - 3, - /* '4' */52 - ], - tl: /* [] */0 - } - } - }); - var u = of_list({ - hd: [ - 2, - /* '3' */51 - ], - tl: { - hd: [ - 3, - /* '4' */52 - ], - tl: { - hd: [ - 1, - /* '1' */49 - ], - tl: /* [] */0 - } - } - }); - return { - TAG: "Eq", - _0: true, - _1: equal((function (x, y) { - return x === y; - }), u, v) - }; - }) ], tl: { hd: [ "iteration", (function (param) { - var m = "Empty"; - for(var i = 0; i <= 10000; ++i){ - m = add$1(String(i), String(i), m); - } - var v = -1; - for(var i$1 = 0; i$1 <= 10000; ++i$1){ - if (find(String(i$1), m) !== String(i$1)) { - v = i$1; - } - + let m = "Empty"; + for(let i = 0; i <= 10000; ++i){ + m = add$1(String(i), String(i), m); + } + let v = -1; + for(let i$1 = 0; i$1 <= 10000; ++i$1){ + if (find(String(i$1), m) !== String(i$1)) { + v = i$1; } - return { - TAG: "Eq", - _0: v, - _1: -1 - }; - }) + + } + return { + TAG: "Eq", + _0: v, + _1: -1 + }; + }) ], tl: /* [] */0 } } }; -var int_map_suites = { +let int_map_suites = { hd: int_map_suites_0, tl: int_map_suites_1 }; diff --git a/jscomp/test/mario_game.js b/jscomp/test/mario_game.js index aeb36999f6..cd6c69b564 100644 --- a/jscomp/test/mario_game.js +++ b/jscomp/test/mario_game.js @@ -1,151 +1,151 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Random = require("../../lib/js/random.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_int32 = require("../../lib/js/caml_int32.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Random = require("../../lib/js/random.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_int32 = require("../../lib/js/caml_int32.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_option = require("../../lib/js/caml_option.js"); -var Actors = {}; +let Actors = {}; -var Dom_html = {}; +let Dom_html = {}; function setup_sprite(loopOpt, bbox_offsetOpt, bbox_sizeOpt, img_src, max_frames, max_ticks, frame_size, src_offset) { - var loop = loopOpt !== undefined ? loopOpt : true; - var bbox_offset = bbox_offsetOpt !== undefined ? bbox_offsetOpt : [ + let loop = loopOpt !== undefined ? loopOpt : true; + let bbox_offset = bbox_offsetOpt !== undefined ? bbox_offsetOpt : [ 0, 0 ]; - var bbox_size = bbox_sizeOpt !== undefined ? bbox_sizeOpt : [ + let bbox_size = bbox_sizeOpt !== undefined ? bbox_sizeOpt : [ 0, 0 ]; - var bbox_size$1 = Caml_obj.equal(bbox_size, [ - 0, - 0 - ]) ? frame_size : bbox_size; - var img_src$1 = "./sprites/" + img_src; + let bbox_size$1 = Caml_obj.equal(bbox_size, [ + 0, + 0 + ]) ? frame_size : bbox_size; + let img_src$1 = "./sprites/" + img_src; return { - max_frames: max_frames, - max_ticks: max_ticks, - img_src: img_src$1, - frame_size: frame_size, - src_offset: src_offset, - bbox_offset: bbox_offset, - bbox_size: bbox_size$1, - loop: loop - }; + max_frames: max_frames, + max_ticks: max_ticks, + img_src: img_src$1, + frame_size: frame_size, + src_offset: src_offset, + bbox_offset: bbox_offset, + bbox_size: bbox_size$1, + loop: loop + }; } function make_enemy(param) { - var dir = param[1]; + let dir = param[1]; switch (param[0]) { case "Goomba" : return setup_sprite(undefined, [ - 1, - 1 - ], [ - 14, - 14 - ], "enemies.png", 2, 10, [ - 16, - 16 - ], [ - 0, - 128 - ]); + 1, + 1 + ], [ + 14, + 14 + ], "enemies.png", 2, 10, [ + 16, + 16 + ], [ + 0, + 128 + ]); case "GKoopa" : if (dir === "Left") { return setup_sprite(undefined, [ - 4, - 10 - ], [ - 11, - 16 - ], "enemies.png", 2, 10, [ - 16, - 27 - ], [ - 0, - 69 - ]); + 4, + 10 + ], [ + 11, + 16 + ], "enemies.png", 2, 10, [ + 16, + 27 + ], [ + 0, + 69 + ]); } else { return setup_sprite(undefined, [ - 1, - 10 - ], [ - 11, - 16 - ], "enemies.png", 2, 10, [ - 16, - 27 - ], [ - 32, - 69 - ]); + 1, + 10 + ], [ + 11, + 16 + ], "enemies.png", 2, 10, [ + 16, + 27 + ], [ + 32, + 69 + ]); } case "RKoopa" : if (dir === "Left") { return setup_sprite(undefined, [ - 4, - 10 - ], [ - 11, - 16 - ], "enemies.png", 2, 10, [ - 16, - 27 - ], [ - 0, - 5 - ]); + 4, + 10 + ], [ + 11, + 16 + ], "enemies.png", 2, 10, [ + 16, + 27 + ], [ + 0, + 5 + ]); } else { return setup_sprite(undefined, [ - 1, - 10 - ], [ - 11, - 16 - ], "enemies.png", 2, 10, [ - 16, - 27 - ], [ - 32, - 5 - ]); + 1, + 10 + ], [ + 11, + 16 + ], "enemies.png", 2, 10, [ + 16, + 27 + ], [ + 32, + 5 + ]); } case "GKoopaShell" : return setup_sprite(undefined, [ - 2, - 2 - ], [ - 12, - 13 - ], "enemies.png", 4, 10, [ - 16, - 16 - ], [ - 0, - 96 - ]); + 2, + 2 + ], [ + 12, + 13 + ], "enemies.png", 4, 10, [ + 16, + 16 + ], [ + 0, + 96 + ]); case "RKoopaShell" : return setup_sprite(undefined, [ - 2, - 2 - ], [ - 12, - 13 - ], "enemies.png", 4, 10, [ - 16, - 16 - ], [ - 0, - 32 - ]); + 2, + 2 + ], [ + 12, + 13 + ], "enemies.png", 4, 10, [ + 16, + 16 + ], [ + 0, + 32 + ]); } } @@ -154,92 +154,92 @@ function make_particle(x) { switch (x) { case "GoombaSquish" : return setup_sprite(undefined, undefined, undefined, "enemies.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 144 - ]); + 16, + 16 + ], [ + 0, + 144 + ]); case "BrickChunkL" : return setup_sprite(undefined, undefined, undefined, "chunks.png", 1, 0, [ - 8, - 8 - ], [ - 0, - 0 - ]); + 8, + 8 + ], [ + 0, + 0 + ]); case "BrickChunkR" : return setup_sprite(undefined, undefined, undefined, "chunks.png", 1, 0, [ - 8, - 8 - ], [ - 8, - 0 - ]); + 8, + 8 + ], [ + 8, + 0 + ]); case "Score100" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 12, - 8 - ], [ - 0, - 0 - ]); + 12, + 8 + ], [ + 0, + 0 + ]); case "Score200" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 12, - 9 - ], [ - 0, - 9 - ]); + 12, + 9 + ], [ + 0, + 9 + ]); case "Score400" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 12, - 9 - ], [ - 0, - 18 - ]); + 12, + 9 + ], [ + 0, + 18 + ]); case "Score800" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 12, - 9 - ], [ - 0, - 27 - ]); + 12, + 9 + ], [ + 0, + 27 + ]); case "Score1000" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 14, - 9 - ], [ - 13, - 0 - ]); + 14, + 9 + ], [ + 13, + 0 + ]); case "Score2000" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 14, - 9 - ], [ - 13, - 9 - ]); + 14, + 9 + ], [ + 13, + 9 + ]); case "Score4000" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 14, - 9 - ], [ - 13, - 18 - ]); + 14, + 9 + ], [ + 13, + 18 + ]); case "Score8000" : return setup_sprite(undefined, undefined, undefined, "score.png", 1, 0, [ - 14, - 9 - ], [ - 13, - 27 - ]); + 14, + 9 + ], [ + 13, + 27 + ]); } } @@ -247,372 +247,372 @@ function make_particle(x) { function make_type(typ, dir) { switch (typ.TAG) { case "SPlayer" : - var pt = typ._0; - var spr_type = [ + let pt = typ._0; + let spr_type = [ typ._1, dir ]; if (pt === "BigM") { - var typ$1 = spr_type[0]; + let typ$1 = spr_type[0]; if (spr_type[1] === "Left") { switch (typ$1) { case "Standing" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 13, - 25 - ], "mario-big.png", 1, 0, [ - 16, - 27 - ], [ - 16, - 5 - ]); + 2, + 1 + ], [ + 13, + 25 + ], "mario-big.png", 1, 0, [ + 16, + 27 + ], [ + 16, + 5 + ]); case "Jumping" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 12, - 25 - ], "mario-big.png", 1, 0, [ - 16, - 26 - ], [ - 48, - 6 - ]); + 2, + 1 + ], [ + 12, + 25 + ], "mario-big.png", 1, 0, [ + 16, + 26 + ], [ + 48, + 6 + ]); case "Running" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 13, - 25 - ], "mario-big.png", 4, 10, [ - 16, - 27 - ], [ - 0, - 37 - ]); + 2, + 1 + ], [ + 13, + 25 + ], "mario-big.png", 4, 10, [ + 16, + 27 + ], [ + 0, + 37 + ]); case "Crouching" : return setup_sprite(undefined, [ - 2, - 10 - ], [ - 13, - 17 - ], "mario-big.png", 1, 0, [ - 16, - 27 - ], [ - 32, - 5 - ]); + 2, + 10 + ], [ + 13, + 17 + ], "mario-big.png", 1, 0, [ + 16, + 27 + ], [ + 32, + 5 + ]); } } else { switch (typ$1) { case "Standing" : return setup_sprite(undefined, [ - 1, - 1 - ], [ - 13, - 25 - ], "mario-big.png", 1, 0, [ - 16, - 26 - ], [ - 16, - 69 - ]); + 1, + 1 + ], [ + 13, + 25 + ], "mario-big.png", 1, 0, [ + 16, + 26 + ], [ + 16, + 69 + ]); case "Jumping" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 12, - 25 - ], "mario-big.png", 1, 0, [ - 16, - 26 - ], [ - 48, - 70 - ]); + 2, + 1 + ], [ + 12, + 25 + ], "mario-big.png", 1, 0, [ + 16, + 26 + ], [ + 48, + 70 + ]); case "Running" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 13, - 25 - ], "mario-big.png", 4, 10, [ - 16, - 27 - ], [ - 0, - 101 - ]); + 2, + 1 + ], [ + 13, + 25 + ], "mario-big.png", 4, 10, [ + 16, + 27 + ], [ + 0, + 101 + ]); case "Crouching" : return setup_sprite(undefined, [ - 2, - 10 - ], [ - 13, - 17 - ], "mario-big.png", 1, 0, [ - 16, - 27 - ], [ - 32, - 69 - ]); + 2, + 10 + ], [ + 13, + 17 + ], "mario-big.png", 1, 0, [ + 16, + 27 + ], [ + 32, + 69 + ]); } } } else { - var typ$2 = spr_type[0]; + let typ$2 = spr_type[0]; if (spr_type[1] === "Left") { switch (typ$2) { case "Standing" : return setup_sprite(undefined, [ - 3, - 1 - ], [ - 11, - 15 - ], "mario-small.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 0 - ]); + 3, + 1 + ], [ + 11, + 15 + ], "mario-small.png", 1, 0, [ + 16, + 16 + ], [ + 0, + 0 + ]); case "Jumping" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 13, - 15 - ], "mario-small.png", 2, 10, [ - 16, - 16 - ], [ - 16, - 16 - ]); + 2, + 1 + ], [ + 13, + 15 + ], "mario-small.png", 2, 10, [ + 16, + 16 + ], [ + 16, + 16 + ]); case "Running" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 12, - 15 - ], "mario-small.png", 3, 5, [ - 16, - 16 - ], [ - 16, - 0 - ]); + 2, + 1 + ], [ + 12, + 15 + ], "mario-small.png", 3, 5, [ + 16, + 16 + ], [ + 16, + 0 + ]); case "Crouching" : return setup_sprite(undefined, [ - 1, - 5 - ], [ - 14, - 10 - ], "mario-small.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 64 - ]); + 1, + 5 + ], [ + 14, + 10 + ], "mario-small.png", 1, 0, [ + 16, + 16 + ], [ + 0, + 64 + ]); } } else { switch (typ$2) { case "Standing" : return setup_sprite(undefined, [ - 1, - 1 - ], [ - 11, - 15 - ], "mario-small.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 32 - ]); + 1, + 1 + ], [ + 11, + 15 + ], "mario-small.png", 1, 0, [ + 16, + 16 + ], [ + 0, + 32 + ]); case "Jumping" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 13, - 15 - ], "mario-small.png", 2, 10, [ - 16, - 16 - ], [ - 16, - 48 - ]); + 2, + 1 + ], [ + 13, + 15 + ], "mario-small.png", 2, 10, [ + 16, + 16 + ], [ + 16, + 48 + ]); case "Running" : return setup_sprite(undefined, [ - 2, - 1 - ], [ - 12, - 15 - ], "mario-small.png", 3, 5, [ - 16, - 16 - ], [ - 16, - 32 - ]); + 2, + 1 + ], [ + 12, + 15 + ], "mario-small.png", 3, 5, [ + 16, + 16 + ], [ + 16, + 32 + ]); case "Crouching" : return setup_sprite(undefined, [ - 1, - 5 - ], [ - 14, - 10 - ], "mario-small.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 64 - ]); + 1, + 5 + ], [ + 14, + 10 + ], "mario-small.png", 1, 0, [ + 16, + 16 + ], [ + 0, + 64 + ]); } } } case "SEnemy" : return make_enemy([ - typ._0, - dir - ]); + typ._0, + dir + ]); case "SItem" : - var x = typ._0; + let x = typ._0; switch (x) { case "Mushroom" : return setup_sprite(undefined, [ - 2, - 0 - ], [ - 12, - 16 - ], "items.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 0 - ]); + 2, + 0 + ], [ + 12, + 16 + ], "items.png", 1, 0, [ + 16, + 16 + ], [ + 0, + 0 + ]); case "FireFlower" : return setup_sprite(undefined, undefined, undefined, "items.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 188 - ]); + 16, + 16 + ], [ + 0, + 188 + ]); case "Star" : return setup_sprite(undefined, undefined, undefined, "items.png", 1, 0, [ - 16, - 16 - ], [ - 16, - 48 - ]); + 16, + 16 + ], [ + 16, + 48 + ]); case "Coin" : return setup_sprite(undefined, [ - 3, - 0 - ], [ - 12, - 16 - ], "items.png", 3, 15, [ - 16, - 16 - ], [ - 0, - 80 - ]); + 3, + 0 + ], [ + 12, + 16 + ], "items.png", 3, 15, [ + 16, + 16 + ], [ + 0, + 80 + ]); } case "SBlock" : - var x$1 = typ._0; + let x$1 = typ._0; if (typeof x$1 === "object") { return setup_sprite(undefined, undefined, undefined, "blocks.png", 4, 15, [ - 16, - 16 - ], [ - 0, - 16 - ]); + 16, + 16 + ], [ + 0, + 16 + ]); } switch (x$1) { case "QBlockUsed" : return setup_sprite(undefined, undefined, undefined, "blocks.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 32 - ]); + 16, + 16 + ], [ + 0, + 32 + ]); case "Brick" : return setup_sprite(undefined, undefined, undefined, "blocks.png", 5, 10, [ - 16, - 16 - ], [ - 0, - 0 - ]); + 16, + 16 + ], [ + 0, + 0 + ]); case "UnBBlock" : return setup_sprite(undefined, undefined, undefined, "blocks.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 48 - ]); + 16, + 16 + ], [ + 0, + 48 + ]); case "Cloud" : return setup_sprite(undefined, undefined, undefined, "blocks.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 64 - ]); + 16, + 16 + ], [ + 0, + 64 + ]); case "Panel" : return setup_sprite(undefined, undefined, undefined, "panel.png", 3, 15, [ - 26, - 26 - ], [ - 0, - 0 - ]); + 26, + 26 + ], [ + 0, + 0 + ]); case "Ground" : return setup_sprite(undefined, undefined, undefined, "ground.png", 1, 0, [ - 16, - 16 - ], [ - 0, - 32 - ]); + 16, + 16 + ], [ + 0, + 32 + ]); } @@ -620,70 +620,70 @@ function make_type(typ, dir) { } function make_from_params(params, context) { - var img = document.createElement("img"); + let img = document.createElement("img"); img.src = params.img_src; return { - params: params, - context: context, - frame: { - contents: 0 - }, - ticks: { - contents: 0 - }, - img: img - }; + params: params, + context: context, + frame: { + contents: 0 + }, + ticks: { + contents: 0 + }, + img: img + }; } function make(spawn, dir, context) { - var params = make_type(spawn, dir); + let params = make_type(spawn, dir); return make_from_params(params, context); } function make_bgd(context) { - var params = setup_sprite(undefined, undefined, undefined, "bgd-1.png", 1, 0, [ - 512, - 256 - ], [ - 0, - 0 - ]); + let params = setup_sprite(undefined, undefined, undefined, "bgd-1.png", 1, 0, [ + 512, + 256 + ], [ + 0, + 0 + ]); return make_from_params(params, context); } function make_particle$1(ptyp, context) { - var params = make_particle(ptyp); + let params = make_particle(ptyp); return make_from_params(params, context); } function transform_enemy(enemy_typ, spr, dir) { - var params = make_enemy([ - enemy_typ, - dir - ]); - var img = document.createElement("img"); + let params = make_enemy([ + enemy_typ, + dir + ]); + let img = document.createElement("img"); img.src = params.img_src; spr.params = params; spr.img = img; } function update_animation(spr) { - var curr_ticks = spr.ticks.contents; + let curr_ticks = spr.ticks.contents; if (curr_ticks >= spr.params.max_ticks) { spr.ticks.contents = 0; if (spr.params.loop) { spr.frame.contents = Caml_int32.mod_(spr.frame.contents + 1 | 0, spr.params.max_frames); - return ; + return; } else { - return ; + return; } } else { spr.ticks.contents = curr_ticks + 1 | 0; - return ; + return; } } -var Sprite = { +let Sprite = { setup_sprite: setup_sprite, make: make, make_bgd: make_bgd, @@ -694,9 +694,9 @@ var Sprite = { function pair_to_xy(pair) { return { - x: pair[0], - y: pair[1] - }; + x: pair[0], + y: pair[1] + }; } function make_type$1(typ, ctx) { @@ -704,45 +704,45 @@ function make_type$1(typ, ctx) { case "BrickChunkL" : case "BrickChunkR" : return { - sprite: make_particle$1(typ, ctx), - rot: 0, - lifetime: 300 - }; + sprite: make_particle$1(typ, ctx), + rot: 0, + lifetime: 300 + }; default: return { - sprite: make_particle$1(typ, ctx), - rot: 0, - lifetime: 30 - }; + sprite: make_particle$1(typ, ctx), + rot: 0, + lifetime: 30 + }; } } function make$1(velOpt, accOpt, part_type, pos, ctx) { - var vel = velOpt !== undefined ? velOpt : [ + let vel = velOpt !== undefined ? velOpt : [ 0, 0 ]; - var acc = accOpt !== undefined ? accOpt : [ + let acc = accOpt !== undefined ? accOpt : [ 0, 0 ]; - var params = make_type$1(part_type, ctx); - var pos$1 = pair_to_xy(pos); - var vel$1 = pair_to_xy(vel); - var acc$1 = pair_to_xy(acc); + let params = make_type$1(part_type, ctx); + let pos$1 = pair_to_xy(pos); + let vel$1 = pair_to_xy(vel); + let acc$1 = pair_to_xy(acc); return { - params: params, - part_type: part_type, - pos: pos$1, - vel: vel$1, - acc: acc$1, - kill: false, - life: params.lifetime - }; + params: params, + part_type: part_type, + pos: pos$1, + vel: vel$1, + acc: acc$1, + kill: false, + life: params.lifetime + }; } function make_score(score, pos, ctx) { - var t = score >= 801 ? ( + let t = score >= 801 ? ( score >= 2001 ? ( score !== 4000 ? ( score !== 8000 ? "Score100" : "Score8000" @@ -762,9 +762,9 @@ function make_score(score, pos, ctx) { ) ); return make$1([ - 0.5, - -0.7 - ], undefined, t, pos, ctx); + 0.5, + -0.7 + ], undefined, t, pos, ctx); } function update_vel(part) { @@ -782,28 +782,28 @@ function $$process(part) { part.pos.y = part.vel.y + part.pos.y; } -var Particle = { +let Particle = { make: make$1, make_score: make_score, $$process: $$process }; -var id_counter = { +let id_counter = { contents: Pervasives.min_int }; function setup_obj(has_gravityOpt, speedOpt, param) { - var has_gravity = has_gravityOpt !== undefined ? has_gravityOpt : true; - var speed = speedOpt !== undefined ? speedOpt : 1; + let has_gravity = has_gravityOpt !== undefined ? has_gravityOpt : true; + let speed = speedOpt !== undefined ? speedOpt : 1; return { - has_gravity: has_gravity, - speed: speed - }; + has_gravity: has_gravity, + speed: speed + }; } function set_vel_to_speed(obj) { - var speed = obj.params.speed; - var match = obj.dir; + let speed = obj.params.speed; + let match = obj.dir; if (match === "Left") { obj.vel.x = - speed; } else { @@ -816,7 +816,7 @@ function make_type$2(x) { case "SPlayer" : return setup_obj(undefined, 2.8, undefined); case "SEnemy" : - var x$1 = x._0; + let x$1 = x._0; switch (x$1) { case "GKoopaShell" : case "RKoopaShell" : @@ -825,7 +825,7 @@ function make_type$2(x) { return setup_obj(undefined, undefined, undefined); } case "SItem" : - var x$2 = x._0; + let x$2 = x._0; if (x$2 === "Coin") { return setup_obj(false, undefined, undefined); } else { @@ -843,12 +843,12 @@ function new_id(param) { } function make$2($staropt$star, $staropt$star$1, spawnable, context, param) { - var id = $staropt$star !== undefined ? Caml_option.valFromOption($staropt$star) : undefined; - var dir = $staropt$star$1 !== undefined ? $staropt$star$1 : "Left"; - var spr = make(spawnable, dir, context); - var params = make_type$2(spawnable); - var id$1 = id !== undefined ? id : new_id(); - var obj = { + let id = $staropt$star !== undefined ? Caml_option.valFromOption($staropt$star) : undefined; + let dir = $staropt$star$1 !== undefined ? $staropt$star$1 : "Left"; + let spr = make(spawnable, dir, context); + let params = make_type$2(spawnable); + let id$1 = id !== undefined ? id : new_id(); + let obj = { params: params, pos: { x: param[0], @@ -869,48 +869,48 @@ function make$2($staropt$star, $staropt$star$1, spawnable, context, param) { score: 0 }; return [ - spr, - obj - ]; + spr, + obj + ]; } function spawn(spawnable, context, param) { - var match = make$2(undefined, undefined, spawnable, context, [ - param[0], - param[1] - ]); - var obj = match[1]; - var spr = match[0]; + let match = make$2(undefined, undefined, spawnable, context, [ + param[0], + param[1] + ]); + let obj = match[1]; + let spr = match[0]; switch (spawnable.TAG) { case "SPlayer" : return { - TAG: "Player", - _0: spawnable._0, - _1: spr, - _2: obj - }; + TAG: "Player", + _0: spawnable._0, + _1: spr, + _2: obj + }; case "SEnemy" : set_vel_to_speed(obj); return { - TAG: "Enemy", - _0: spawnable._0, - _1: spr, - _2: obj - }; + TAG: "Enemy", + _0: spawnable._0, + _1: spr, + _2: obj + }; case "SItem" : return { - TAG: "Item", - _0: spawnable._0, - _1: spr, - _2: obj - }; + TAG: "Item", + _0: spawnable._0, + _1: spr, + _2: obj + }; case "SBlock" : return { - TAG: "Block", - _0: spawnable._0, - _1: spr, - _2: obj - }; + TAG: "Block", + _0: spawnable._0, + _1: spr, + _2: obj + }; } } @@ -944,123 +944,123 @@ function equals(col1, col2) { } function normalize_pos(pos, p1, p2) { - var match = p1.bbox_offset; - var match$1 = p2.bbox_offset; - var match$2 = p1.bbox_size; - var match$3 = p2.bbox_size; + let match = p1.bbox_offset; + let match$1 = p2.bbox_offset; + let match$2 = p1.bbox_size; + let match$3 = p2.bbox_size; pos.x = pos.x - (match$3[0] + match$1[0]) + (match$2[0] + match[0]); pos.y = pos.y - (match$3[1] + match$1[1]) + (match$2[1] + match[1]); } function update_player(player, keys, context) { - var prev_jumping = player.jumping; - var prev_dir = player.dir; - var prev_vx = Math.abs(player.vel.x); + let prev_jumping = player.jumping; + let prev_dir = player.dir; + let prev_vx = Math.abs(player.vel.x); List.iter((function (param) { - var lr_acc = player.vel.x * 0.2; - switch (param) { - case "CLeft" : - if (!player.crouch) { - if (player.vel.x > - player.params.speed) { - player.vel.x = player.vel.x - (0.4 - lr_acc); - } - player.dir = "Left"; - return ; - } else { - return ; - } - case "CRight" : - if (!player.crouch) { - if (player.vel.x < player.params.speed) { - player.vel.x = player.vel.x + (0.4 + lr_acc); - } - player.dir = "Right"; - return ; - } else { - return ; - } - case "CUp" : - if (!player.jumping && player.grounded) { - player.jumping = true; - player.grounded = false; - player.vel.y = Caml.float_max(player.vel.y - (5.7 + Math.abs(player.vel.x) * 0.25), -6); - return ; - } else { - return ; - } - case "CDown" : - if (!player.jumping && player.grounded) { - player.crouch = true; - return ; - } else { - return ; - } - + let lr_acc = player.vel.x * 0.2; + switch (param) { + case "CLeft" : + if (!player.crouch) { + if (player.vel.x > - player.params.speed) { + player.vel.x = player.vel.x - (0.4 - lr_acc); + } + player.dir = "Left"; + return; + } else { + return; + } + case "CRight" : + if (!player.crouch) { + if (player.vel.x < player.params.speed) { + player.vel.x = player.vel.x + (0.4 + lr_acc); + } + player.dir = "Right"; + return; + } else { + return; + } + case "CUp" : + if (!player.jumping && player.grounded) { + player.jumping = true; + player.grounded = false; + player.vel.y = Caml.float_max(player.vel.y - (5.7 + Math.abs(player.vel.x) * 0.25), -6); + return; + } else { + return; + } + case "CDown" : + if (!player.jumping && player.grounded) { + player.crouch = true; + return; + } else { + return; } - }), keys); - var v = player.vel.x * 0.9; - var vel_damped = Math.abs(v) < 0.1 ? 0 : v; + + } + }), keys); + let v = player.vel.x * 0.9; + let vel_damped = Math.abs(v) < 0.1 ? 0 : v; player.vel.x = vel_damped; - var pl_typ = player.health <= 1 ? "SmallM" : "BigM"; + let pl_typ = player.health <= 1 ? "SmallM" : "BigM"; if (!prev_jumping && player.jumping) { return [ - pl_typ, - make({ - TAG: "SPlayer", - _0: pl_typ, - _1: "Jumping" - }, player.dir, context) - ]; + pl_typ, + make({ + TAG: "SPlayer", + _0: pl_typ, + _1: "Jumping" + }, player.dir, context) + ]; } else if (prev_dir !== player.dir || prev_vx === 0 && Math.abs(player.vel.x) > 0 && !player.jumping) { return [ - pl_typ, - make({ - TAG: "SPlayer", - _0: pl_typ, - _1: "Running" - }, player.dir, context) - ]; + pl_typ, + make({ + TAG: "SPlayer", + _0: pl_typ, + _1: "Running" + }, player.dir, context) + ]; } else if (prev_dir !== player.dir && player.jumping && prev_jumping) { return [ - pl_typ, - make({ - TAG: "SPlayer", - _0: pl_typ, - _1: "Jumping" - }, player.dir, context) - ]; + pl_typ, + make({ + TAG: "SPlayer", + _0: pl_typ, + _1: "Jumping" + }, player.dir, context) + ]; } else if (player.vel.y === 0 && player.crouch) { return [ - pl_typ, - make({ - TAG: "SPlayer", - _0: pl_typ, - _1: "Crouching" - }, player.dir, context) - ]; + pl_typ, + make({ + TAG: "SPlayer", + _0: pl_typ, + _1: "Crouching" + }, player.dir, context) + ]; } else if (player.vel.y === 0 && player.vel.x === 0) { return [ - pl_typ, - make({ - TAG: "SPlayer", - _0: pl_typ, - _1: "Standing" - }, player.dir, context) - ]; + pl_typ, + make({ + TAG: "SPlayer", + _0: pl_typ, + _1: "Standing" + }, player.dir, context) + ]; } else { - return ; + return; } } function update_vel$1(obj) { if (obj.grounded) { obj.vel.y = 0; - return ; + return; } else if (obj.params.has_gravity) { obj.vel.y = Caml.float_min(obj.vel.y + 0.2 + Math.abs(obj.vel.y) * 0.01, 4.5); - return ; + return; } else { - return ; + return; } } @@ -1068,7 +1068,7 @@ function update_pos(obj) { obj.pos.x = obj.vel.x + obj.pos.x; if (obj.params.has_gravity) { obj.pos.y = obj.vel.y + obj.pos.y; - return ; + return; } } @@ -1078,30 +1078,30 @@ function process_obj(obj, mapy) { update_pos(obj); if (obj.pos.y > mapy) { obj.kill = true; - return ; + return; } } function normalize_origin(pos, spr) { - var p = spr.params; - var match = p.bbox_offset; - var match$1 = p.bbox_size; + let p = spr.params; + let match = p.bbox_offset; + let match$1 = p.bbox_size; pos.x = pos.x - match[0]; pos.y = pos.y - (match[1] + match$1[1]); } function collide_block(check_xOpt, dir, obj) { - var check_x = check_xOpt !== undefined ? check_xOpt : true; + let check_x = check_xOpt !== undefined ? check_xOpt : true; switch (dir) { case "North" : obj.vel.y = -0.001; - return ; + return; case "South" : obj.vel.y = 0; obj.grounded = true; obj.jumping = false; - return ; + return; case "East" : case "West" : break; @@ -1109,7 +1109,7 @@ function collide_block(check_xOpt, dir, obj) { } if (check_x) { obj.vel.x = 0; - return ; + return; } } @@ -1131,41 +1131,41 @@ function evolve_enemy(player_dir, typ, spr, obj, context) { switch (typ) { case "Goomba" : obj.kill = true; - return ; + return; case "GKoopa" : - var match = make$2(undefined, obj.dir, { - TAG: "SEnemy", - _0: "GKoopaShell" - }, context, [ - obj.pos.x, - obj.pos.y - ]); - var new_obj = match[1]; - var new_spr = match[0]; + let match = make$2(undefined, obj.dir, { + TAG: "SEnemy", + _0: "GKoopaShell" + }, context, [ + obj.pos.x, + obj.pos.y + ]); + let new_obj = match[1]; + let new_spr = match[0]; normalize_pos(new_obj.pos, spr.params, new_spr.params); return { - TAG: "Enemy", - _0: "GKoopaShell", - _1: new_spr, - _2: new_obj - }; + TAG: "Enemy", + _0: "GKoopaShell", + _1: new_spr, + _2: new_obj + }; case "RKoopa" : - var match$1 = make$2(undefined, obj.dir, { - TAG: "SEnemy", - _0: "RKoopaShell" - }, context, [ - obj.pos.x, - obj.pos.y - ]); - var new_obj$1 = match$1[1]; - var new_spr$1 = match$1[0]; + let match$1 = make$2(undefined, obj.dir, { + TAG: "SEnemy", + _0: "RKoopaShell" + }, context, [ + obj.pos.x, + obj.pos.y + ]); + let new_obj$1 = match$1[1]; + let new_spr$1 = match$1[0]; normalize_pos(new_obj$1.pos, spr.params, new_spr$1.params); return { - TAG: "Enemy", - _0: "RKoopaShell", - _1: new_spr$1, - _2: new_obj$1 - }; + TAG: "Enemy", + _0: "RKoopaShell", + _1: new_spr$1, + _2: new_obj$1 + }; case "GKoopaShell" : case "RKoopaShell" : break; @@ -1181,50 +1181,50 @@ function evolve_enemy(player_dir, typ, spr, obj, context) { function rev_dir(o, t, s) { reverse_left_right(o); - var old_params = s.params; + let old_params = s.params; transform_enemy(t, s, o.dir); normalize_pos(o.pos, old_params, s.params); } function dec_health(obj) { - var health = obj.health - 1 | 0; + let health = obj.health - 1 | 0; if (health === 0) { obj.kill = true; - return ; + return; } else if (obj.invuln === 0) { obj.health = health; - return ; + return; } else { - return ; + return; } } function evolve_block(obj, context) { dec_health(obj); - var match = make$2(undefined, undefined, { - TAG: "SBlock", - _0: "QBlockUsed" - }, context, [ - obj.pos.x, - obj.pos.y - ]); + let match = make$2(undefined, undefined, { + TAG: "SBlock", + _0: "QBlockUsed" + }, context, [ + obj.pos.x, + obj.pos.y + ]); return { - TAG: "Block", - _0: "QBlockUsed", - _1: match[0], - _2: match[1] - }; + TAG: "Block", + _0: "QBlockUsed", + _1: match[0], + _2: match[1] + }; } function spawn_above(player_dir, obj, typ, context) { - var item = spawn({ - TAG: "SItem", - _0: typ - }, context, [ - obj.pos.x, - obj.pos.y - ]); - var item_obj = item._2; + let item = spawn({ + TAG: "SItem", + _0: typ + }, context, [ + obj.pos.x, + obj.pos.y + ]); + let item_obj = item._2; item_obj.pos.y = item_obj.pos.y - item._1.params.frame_size[1]; item_obj.dir = opposite_dir(player_dir); set_vel_to_speed(item_obj); @@ -1232,30 +1232,30 @@ function spawn_above(player_dir, obj, typ, context) { } function get_aabb(obj) { - var spr = obj._1.params; - var obj$1 = obj._2; - var match = spr.bbox_offset; - var box = obj$1.pos.x + match[0]; - var boy = obj$1.pos.y + match[1]; - var match$1 = spr.bbox_size; - var sy = match$1[1]; - var sx = match$1[0]; + let spr = obj._1.params; + let obj$1 = obj._2; + let match = spr.bbox_offset; + let box = obj$1.pos.x + match[0]; + let boy = obj$1.pos.y + match[1]; + let match$1 = spr.bbox_size; + let sy = match$1[1]; + let sx = match$1[0]; return { - center: { - x: box + sx / 2, - y: boy + sy / 2 - }, - half: { - x: sx / 2, - y: sy / 2 - } - }; + center: { + x: box + sx / 2, + y: boy + sy / 2 + }, + half: { + x: sx / 2, + y: sy / 2 + } + }; } function col_bypass(c1, c2) { - var o1 = c1._2; - var o2 = c2._2; - var ctypes; + let o1 = c1._2; + let o2 = c2._2; + let ctypes; switch (c1.TAG) { case "Player" : ctypes = c2.TAG === "Enemy" ? c1._2.invuln > 0 : false; @@ -1289,21 +1289,21 @@ function col_bypass(c1, c2) { } function check_collision(c1, c2) { - var b1 = get_aabb(c1); - var b2 = get_aabb(c2); - var o1 = c1._2; + let b1 = get_aabb(c1); + let b2 = get_aabb(c2); + let o1 = c1._2; if (col_bypass(c1, c2)) { - return ; + return; } - var vx = b1.center.x - b2.center.x; - var vy = b1.center.y - b2.center.y; - var hwidths = b1.half.x + b2.half.x; - var hheights = b1.half.y + b2.half.y; + let vx = b1.center.x - b2.center.x; + let vy = b1.center.y - b2.center.y; + let hwidths = b1.half.x + b2.half.x; + let hheights = b1.half.y + b2.half.y; if (!(Math.abs(vx) < hwidths && Math.abs(vy) < hheights)) { - return ; + return; } - var ox = hwidths - Math.abs(vx); - var oy = hheights - Math.abs(vy); + let ox = hwidths - Math.abs(vx); + let oy = hheights - Math.abs(vy); if (ox >= oy) { if (vy > 0) { o1.pos.y = o1.pos.y + oy; @@ -1326,97 +1326,97 @@ function kill(collid, ctx) { case "Player" : return /* [] */0; case "Enemy" : - var o = collid._2; - var pos_0 = o.pos.x; - var pos_1 = o.pos.y; - var pos = [ + let o = collid._2; + let pos_0 = o.pos.x; + let pos_1 = o.pos.y; + let pos = [ pos_0, pos_1 ]; - var score = o.score > 0 ? ({ - hd: make_score(o.score, pos, ctx), - tl: /* [] */0 - }) : /* [] */0; - var remains; + let score = o.score > 0 ? ({ + hd: make_score(o.score, pos, ctx), + tl: /* [] */0 + }) : /* [] */0; + let remains; remains = collid._0 === "Goomba" ? ({ - hd: make$1(undefined, undefined, "GoombaSquish", pos, ctx), - tl: /* [] */0 - }) : /* [] */0; + hd: make$1(undefined, undefined, "GoombaSquish", pos, ctx), + tl: /* [] */0 + }) : /* [] */0; return Pervasives.$at(score, remains); case "Item" : - var o$1 = collid._2; + let o$1 = collid._2; if (collid._0 === "Mushroom") { return { - hd: make_score(o$1.score, [ - o$1.pos.x, - o$1.pos.y - ], ctx), - tl: /* [] */0 - }; + hd: make_score(o$1.score, [ + o$1.pos.x, + o$1.pos.y + ], ctx), + tl: /* [] */0 + }; } else { return /* [] */0; } case "Block" : - var o$2 = collid._2; - var tmp = collid._0; + let o$2 = collid._2; + let tmp = collid._0; if (typeof tmp === "object") { return /* [] */0; } if (tmp !== "Brick") { return /* [] */0; } - var pos_0$1 = o$2.pos.x; - var pos_1$1 = o$2.pos.y; - var pos$1 = [ + let pos_0$1 = o$2.pos.x; + let pos_1$1 = o$2.pos.y; + let pos$1 = [ pos_0$1, pos_1$1 ]; - var p1 = make$1([ - -5, - -5 - ], [ - 0, - 0.2 - ], "BrickChunkL", pos$1, ctx); - var p2 = make$1([ - -3, - -4 - ], [ - 0, - 0.2 - ], "BrickChunkL", pos$1, ctx); - var p3 = make$1([ - 3, - -4 - ], [ - 0, - 0.2 - ], "BrickChunkR", pos$1, ctx); - var p4 = make$1([ - 5, - -5 - ], [ - 0, - 0.2 - ], "BrickChunkR", pos$1, ctx); + let p1 = make$1([ + -5, + -5 + ], [ + 0, + 0.2 + ], "BrickChunkL", pos$1, ctx); + let p2 = make$1([ + -3, + -4 + ], [ + 0, + 0.2 + ], "BrickChunkL", pos$1, ctx); + let p3 = make$1([ + 3, + -4 + ], [ + 0, + 0.2 + ], "BrickChunkR", pos$1, ctx); + let p4 = make$1([ + 5, + -5 + ], [ + 0, + 0.2 + ], "BrickChunkR", pos$1, ctx); return { - hd: p1, - tl: { - hd: p2, - tl: { - hd: p3, - tl: { - hd: p4, - tl: /* [] */0 - } - } - } - }; + hd: p1, + tl: { + hd: p2, + tl: { + hd: p3, + tl: { + hd: p4, + tl: /* [] */0 + } + } + } + }; } } -var $$Object = { +let $$Object = { invuln: 60, dampen_jump: 4, get_sprite: get_sprite, @@ -1441,63 +1441,63 @@ var $$Object = { }; function render_bbox(sprite, param) { - var context = sprite.context; - var match = sprite.params.bbox_offset; - var match$1 = sprite.params.bbox_size; + let context = sprite.context; + let match = sprite.params.bbox_offset; + let match$1 = sprite.params.bbox_size; context.strokeStyle = "#FF0000"; return Curry._4(context.strokeRect, param[0] + match[0], param[1] + match[1], match$1[0], match$1[1]); } function render(sprite, param) { - var context = sprite.context; - var match = sprite.params.src_offset; - var match$1 = sprite.params.frame_size; - var sw = match$1[0]; - var match$2 = sprite.params.frame_size; - var sx = match[0] + sprite.frame.contents * sw; + let context = sprite.context; + let match = sprite.params.src_offset; + let match$1 = sprite.params.frame_size; + let sw = match$1[0]; + let match$2 = sprite.params.frame_size; + let sx = match[0] + sprite.frame.contents * sw; return Curry.app(context.drawImage, [ - sprite.img, - sx, - match[1], - sw, - match$1[1], - param[0], - param[1], - match$2[0], - match$2[1] - ]); + sprite.img, + sx, + match[1], + sw, + match$1[1], + param[0], + param[1], + match$2[0], + match$2[1] + ]); } function draw_bgd(bgd, off_x) { render(bgd, [ - - off_x, - 0 - ]); + - off_x, + 0 + ]); return render(bgd, [ - bgd.params.frame_size[0] - off_x, - 0 - ]); + bgd.params.frame_size[0] - off_x, + 0 + ]); } function clear_canvas(canvas) { - var context = Curry._1(canvas.getContext, "2d"); - var cwidth = canvas.width; - var cheight = canvas.height; + let context = Curry._1(canvas.getContext, "2d"); + let cwidth = canvas.width; + let cheight = canvas.height; Curry._4(context.clearRect, 0, 0, cwidth, cheight); } function hud(canvas, score, coins) { - var score_string = String(score); - var coin_string = String(coins); - var context = Curry._1(canvas.getContext, "2d"); + let score_string = String(score); + let coin_string = String(coins); + let context = Curry._1(canvas.getContext, "2d"); context.font = "10px 'Press Start 2P'"; Curry._3(context.fillText, "Score: " + score_string, canvas.width - 140, 18); Curry._3(context.fillText, "Coins: " + coin_string, 120, 18); } function fps(canvas, fps_val) { - var fps_str = String(fps_val | 0); - var context = Curry._1(canvas.getContext, "2d"); + let fps_str = String(fps_val | 0); + let context = Curry._1(canvas.getContext, "2d"); Curry._3(context.fillText, fps_str, 10, 18); } @@ -1509,11 +1509,11 @@ function game_win(ctx) { ctx.font = "20px 'Press Start 2P'"; Curry._3(ctx.fillText, "You win!", 180, 128); throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Game over." - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Game over." + } + }); } function game_loss(ctx) { @@ -1524,14 +1524,14 @@ function game_loss(ctx) { ctx.font = "20px 'Press Start 2P'"; Curry._3(ctx.fillText, "GAME OVER. You lose!", 60, 128); throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Game over." - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Game over." + } + }); } -var Draw = { +let Draw = { render: render, clear_canvas: clear_canvas, draw_bgd: draw_bgd, @@ -1544,33 +1544,33 @@ var Draw = { function make$3(param, param$1) { return { - pos: { - x: 0, - y: 0 - }, - v_dim: { - x: param[0], - y: param[1] - }, - m_dim: { - x: param$1[0], - y: param$1[1] - } - }; + pos: { + x: 0, + y: 0 + }, + v_dim: { + x: param[0], + y: param[1] + }, + m_dim: { + x: param$1[0], + y: param$1[1] + } + }; } function calc_viewport_point(cc, vc, mc) { - var vc_half = vc / 2; + let vc_half = vc / 2; return Caml.float_min(Caml.float_max(cc - vc_half, 0), Caml.float_min(mc - vc, Math.abs(cc - vc_half))); } function in_viewport(v, pos) { - var v_min_x = v.pos.x - 32; - var v_max_x = v.pos.x + v.v_dim.x; - var v_min_y = v.pos.y - 32; - var v_max_y = v.pos.y + v.v_dim.y; - var x = pos.x; - var y = pos.y; + let v_min_x = v.pos.x - 32; + let v_max_x = v.pos.x + v.v_dim.x; + let v_min_y = v.pos.y - 32; + let v_max_y = v.pos.y + v.v_dim.y; + let x = pos.x; + let y = pos.y; if (x >= v_min_x && x <= v_max_x && y >= v_min_y) { return y <= v_max_y; } else { @@ -1579,32 +1579,32 @@ function in_viewport(v, pos) { } function out_of_viewport_below(v, y) { - var v_max_y = v.pos.y + v.v_dim.y; + let v_max_y = v.pos.y + v.v_dim.y; return y >= v_max_y; } function coord_to_viewport(viewport, coord) { return { - x: coord.x - viewport.pos.x, - y: coord.y - viewport.pos.y - }; + x: coord.x - viewport.pos.x, + y: coord.y - viewport.pos.y + }; } function update(vpt, ctr) { - var new_x = calc_viewport_point(ctr.x, vpt.v_dim.x, vpt.m_dim.x); - var new_y = calc_viewport_point(ctr.y, vpt.v_dim.y, vpt.m_dim.y); - var pos = { + let new_x = calc_viewport_point(ctr.x, vpt.v_dim.x, vpt.m_dim.x); + let new_y = calc_viewport_point(ctr.y, vpt.v_dim.y, vpt.m_dim.y); + let pos = { x: new_x, y: new_y }; return { - pos: pos, - v_dim: vpt.v_dim, - m_dim: vpt.m_dim - }; + pos: pos, + v_dim: vpt.v_dim, + m_dim: vpt.m_dim + }; } -var Viewport = { +let Viewport = { make: make$3, calc_viewport_point: calc_viewport_point, in_viewport: in_viewport, @@ -1613,7 +1613,7 @@ var Viewport = { update: update }; -var pressed_keys = { +let pressed_keys = { left: false, right: false, up: false, @@ -1621,20 +1621,20 @@ var pressed_keys = { bbox: 0 }; -var collid_objs = { +let collid_objs = { contents: /* [] */0 }; -var particles = { +let particles = { contents: /* [] */0 }; -var last_time = { +let last_time = { contents: 0 }; function calc_fps(t0, t1) { - var delta = (t1 - t0) / 1000; + let delta = (t1 - t0) / 1000; return 1 / delta; } @@ -1643,35 +1643,35 @@ function update_score(state, i) { } function process_collision(dir, c1, c2, state) { - var context = state.ctx; - var exit = 0; - var s1; - var o1; - var typ; - var s2; - var o2; - var s1$1; - var o1$1; - var t2; - var s2$1; - var o2$1; - var o1$2; - var t2$1; - var o2$2; + let context = state.ctx; + let exit = 0; + let s1; + let o1; + let typ; + let s2; + let o2; + let s1$1; + let o1$1; + let t2; + let s2$1; + let o2$1; + let o1$2; + let t2$1; + let o2$2; switch (c1.TAG) { case "Player" : - var o1$3 = c1._2; - var s1$2 = c1._1; + let o1$3 = c1._2; + let s1$2 = c1._1; switch (c2.TAG) { case "Player" : return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "Enemy" : - var o2$3 = c2._2; - var s2$2 = c2._1; - var typ$1 = c2._0; + let o2$3 = c2._2; + let s2$2 = c2._1; + let typ$1 = c2._0; if (dir === "South") { s1 = s1$2; o1 = o1$3; @@ -1695,8 +1695,8 @@ function process_collision(dir, c1, c2, state) { exit = 3; break; case "Block" : - var o2$4 = c2._2; - var t = c2._0; + let o2$4 = c2._2; + let t = c2._0; if (dir === "North") { if (typeof t !== "object") { switch (t) { @@ -1705,47 +1705,47 @@ function process_collision(dir, c1, c2, state) { collide_block(undefined, dir, o1$3); dec_health(o2$4); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } else { collide_block(undefined, dir, o1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } case "Panel" : game_win(state.ctx); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; default: collide_block(undefined, dir, o1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } } else { - var updated_block = evolve_block(o2$4, context); - var spawned_item = spawn_above(o1$3.dir, o2$4, t._0, context); + let updated_block = evolve_block(o2$4, context); + let spawned_item = spawn_above(o1$3.dir, o2$4, t._0, context); collide_block(undefined, dir, o1$3); return [ - spawned_item, - updated_block - ]; + spawned_item, + updated_block + ]; } } else { - var exit$1 = 0; + let exit$1 = 0; if (typeof t !== "object") { if (t === "Panel") { game_win(state.ctx); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } exit$1 = 4; } else { @@ -1756,15 +1756,15 @@ function process_collision(dir, c1, c2, state) { state.multiplier = 1; collide_block(undefined, dir, o1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } collide_block(undefined, dir, o1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } } @@ -1773,13 +1773,13 @@ function process_collision(dir, c1, c2, state) { } break; case "Enemy" : - var o1$4 = c1._2; - var s1$3 = c1._1; - var t1 = c1._0; + let o1$4 = c1._2; + let s1$3 = c1._1; + let t1 = c1._0; switch (c2.TAG) { case "Player" : - var o1$5 = c2._2; - var s1$4 = c2._1; + let o1$5 = c2._2; + let s1$4 = c2._1; if (dir === "North") { s1 = s1$4; o1 = o1$5; @@ -1797,10 +1797,10 @@ function process_collision(dir, c1, c2, state) { } break; case "Enemy" : - var t2$2 = c2._0; - var s2$3 = c2._1; - var o2$5 = c2._2; - var exit$2 = 0; + let t2$2 = c2._0; + let s2$3 = c2._1; + let o2$5 = c2._2; + let exit$2 = 0; switch (t1) { case "GKoopaShell" : switch (t2$2) { @@ -1829,14 +1829,14 @@ function process_collision(dir, c1, c2, state) { exit$2 = 3; break; default: - var exit$3 = 0; + let exit$3 = 0; switch (dir) { case "North" : case "South" : return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "East" : case "West" : exit$3 = 4; @@ -1847,9 +1847,9 @@ function process_collision(dir, c1, c2, state) { rev_dir(o1$4, t1, s1$3); rev_dir(o2$5, t2$2, s2$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } } @@ -1859,56 +1859,56 @@ function process_collision(dir, c1, c2, state) { dec_health(o1$4); dec_health(o2$5); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case 2 : if (o1$4.vel.x === 0) { rev_dir(o2$5, t2$2, s2$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } else { dec_health(o2$5); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } case 3 : if (o2$5.vel.x === 0) { rev_dir(o1$4, t1, s1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } else { dec_health(o1$4); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } } case "Item" : return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "Block" : - var o2$6 = c2._2; - var t2$3 = c2._0; - var exit$4 = 0; + let o2$6 = c2._2; + let t2$3 = c2._0; + let exit$4 = 0; switch (dir) { case "North" : case "South" : collide_block(undefined, dir, o1$4); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "East" : case "West" : exit$4 = 4; @@ -1916,8 +1916,8 @@ function process_collision(dir, c1, c2, state) { } if (exit$4 === 4) { - var exit$5 = 0; - var typ$2; + let exit$5 = 0; + let typ$2; switch (t1) { case "GKoopaShell" : if (typeof t2$3 !== "object") { @@ -1925,9 +1925,9 @@ function process_collision(dir, c1, c2, state) { dec_health(o2$6); reverse_left_right(o1$4); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } exit$5 = 5; } else { @@ -1941,9 +1941,9 @@ function process_collision(dir, c1, c2, state) { dec_health(o2$6); reverse_left_right(o1$4); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } exit$5 = 5; } else { @@ -1958,17 +1958,17 @@ function process_collision(dir, c1, c2, state) { case 5 : rev_dir(o1$4, t1, s1$3); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case 6 : - var updated_block$1 = evolve_block(o2$6, context); - var spawned_item$1 = spawn_above(o1$4.dir, o2$6, typ$2, context); + let updated_block$1 = evolve_block(o2$6, context); + let spawned_item$1 = spawn_above(o1$4.dir, o2$6, typ$2, context); rev_dir(o1$4, t1, s1$3); return [ - updated_block$1, - spawned_item$1 - ]; + updated_block$1, + spawned_item$1 + ]; } } @@ -1977,7 +1977,7 @@ function process_collision(dir, c1, c2, state) { } break; case "Item" : - var o2$7 = c1._2; + let o2$7 = c1._2; switch (c2.TAG) { case "Player" : o1$2 = c2._2; @@ -1988,25 +1988,25 @@ function process_collision(dir, c1, c2, state) { case "Enemy" : case "Item" : return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "Block" : switch (dir) { case "North" : case "South" : collide_block(undefined, dir, o2$7); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "East" : case "West" : reverse_left_right(o2$7); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } @@ -2014,9 +2014,9 @@ function process_collision(dir, c1, c2, state) { break; case "Block" : return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } switch (exit) { @@ -2035,26 +2035,26 @@ function process_collision(dir, c1, c2, state) { update_score(state, 800); o2.score = 800; return [ - undefined, - evolve_enemy(o1.dir, typ, s2, o2, context) - ]; + undefined, + evolve_enemy(o1.dir, typ, s2, o2, context) + ]; } - var score = Math.imul(100, state.multiplier); + let score = Math.imul(100, state.multiplier); update_score(state, score); o2.score = score; state.multiplier = (state.multiplier << 1); return [ - undefined, - evolve_enemy(o1.dir, typ, s2, o2, context) - ]; + undefined, + evolve_enemy(o1.dir, typ, s2, o2, context) + ]; } - var r2 = evolve_enemy(o1.dir, typ, s2, o2, context); + let r2 = evolve_enemy(o1.dir, typ, s2, o2, context); o1.vel.y = - 4; o1.pos.y = o1.pos.y - 5; return [ - undefined, - r2 - ]; + undefined, + r2 + ]; case 2 : switch (t2) { case "GKoopaShell" : @@ -2064,17 +2064,17 @@ function process_collision(dir, c1, c2, state) { dec_health(o1$1); o1$1.invuln = 60; return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } - var r2$1 = o2$1.vel.x === 0 ? evolve_enemy(o1$1.dir, t2, s2$1, o2$1, context) : (dec_health(o1$1), o1$1.invuln = 60, undefined); + let r2$1 = o2$1.vel.x === 0 ? evolve_enemy(o1$1.dir, t2, s2$1, o2$1, context) : (dec_health(o1$1), o1$1.invuln = 60, undefined); return [ - undefined, - r2$1 - ]; + undefined, + r2$1 + ]; case 3 : - var exit$6 = 0; + let exit$6 = 0; switch (t2$1) { case "Mushroom" : dec_health(o2$2); @@ -2088,9 +2088,9 @@ function process_collision(dir, c1, c2, state) { update_score(state, 1000); o2$2.score = 1000; return [ - undefined, - undefined - ]; + undefined, + undefined + ]; case "FireFlower" : case "Star" : exit$6 = 4; @@ -2100,18 +2100,18 @@ function process_collision(dir, c1, c2, state) { dec_health(o2$2); update_score(state, 100); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } if (exit$6 === 4) { dec_health(o2$2); update_score(state, 1000); return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } break; @@ -2119,92 +2119,92 @@ function process_collision(dir, c1, c2, state) { } function broad_phase(collid, all_collids, state) { - var obj = collid._2; + let obj = collid._2; return List.filter(function (c) { - if (in_viewport(state.vpt, obj.pos) || is_player(collid)) { - return true; - } else { - return out_of_viewport_below(state.vpt, obj.pos.y); - } - })(all_collids); + if (in_viewport(state.vpt, obj.pos) || is_player(collid)) { + return true; + } else { + return out_of_viewport_below(state.vpt, obj.pos.y); + } + })(all_collids); } function check_collisions(collid, all_collids, state) { if (collid.TAG === "Block") { return /* [] */0; } - var broad = broad_phase(collid, all_collids, state); - var _cs = broad; - var _acc = /* [] */0; + let broad = broad_phase(collid, all_collids, state); + let _cs = broad; + let _acc = /* [] */0; while(true) { - var acc = _acc; - var cs = _cs; + let acc = _acc; + let cs = _cs; if (!cs) { return acc; } - var h = cs.hd; - var c_obj = collid._2; - var new_objs; + let h = cs.hd; + let c_obj = collid._2; + let new_objs; if (equals(collid, h)) { new_objs = [ undefined, undefined ]; } else { - var dir = check_collision(collid, h); + let dir = check_collision(collid, h); new_objs = dir !== undefined && h._2.id !== c_obj.id ? process_collision(dir, collid, h, state) : [ undefined, undefined ]; } - var o = new_objs[0]; - var acc$1; + let o = new_objs[0]; + let acc$1; if (o !== undefined) { - var o2 = new_objs[1]; + let o2 = new_objs[1]; acc$1 = o2 !== undefined ? ({ - hd: o, - tl: { - hd: o2, - tl: acc - } - }) : ({ - hd: o, + hd: o, + tl: { + hd: o2, tl: acc - }); + } + }) : ({ + hd: o, + tl: acc + }); } else { - var o$1 = new_objs[1]; + let o$1 = new_objs[1]; acc$1 = o$1 !== undefined ? ({ - hd: o$1, - tl: acc - }) : acc; + hd: o$1, + tl: acc + }) : acc; } _acc = acc$1; _cs = cs.tl; - continue ; + continue; }; } function update_collidable(state, collid, all_collids) { - var obj = collid._2; - var spr = collid._1; + let obj = collid._2; + let spr = collid._1; obj.invuln = obj.invuln > 0 ? obj.invuln - 1 | 0 : 0; - var viewport_filter = in_viewport(state.vpt, obj.pos) || is_player(collid) || out_of_viewport_below(state.vpt, obj.pos.y); + let viewport_filter = in_viewport(state.vpt, obj.pos) || is_player(collid) || out_of_viewport_below(state.vpt, obj.pos.y); if (!(!obj.kill && viewport_filter)) { return /* [] */0; } obj.grounded = false; process_obj(obj, state.map); - var evolved = check_collisions(collid, all_collids, state); - var vpt_adj_xy = coord_to_viewport(state.vpt, obj.pos); + let evolved = check_collisions(collid, all_collids, state); + let vpt_adj_xy = coord_to_viewport(state.vpt, obj.pos); render(spr, [ - vpt_adj_xy.x, - vpt_adj_xy.y - ]); + vpt_adj_xy.x, + vpt_adj_xy.y + ]); if (pressed_keys.bbox === 1) { render_bbox(spr, [ - vpt_adj_xy.x, - vpt_adj_xy.y - ]); + vpt_adj_xy.x, + vpt_adj_xy.y + ]); } if (obj.vel.x !== 0 || !is_enemy(collid)) { update_animation(spr); @@ -2213,11 +2213,11 @@ function update_collidable(state, collid, all_collids) { } function translate_keys(param) { - var ctrls_0 = [ + let ctrls_0 = [ pressed_keys.left, "CLeft" ]; - var ctrls_1 = { + let ctrls_1 = { hd: [ pressed_keys.right, "CRight" @@ -2236,31 +2236,31 @@ function translate_keys(param) { } } }; - var ctrls = { + let ctrls = { hd: ctrls_0, tl: ctrls_1 }; return List.fold_left((function (a, x) { - if (x[0]) { - return { - hd: x[1], - tl: a - }; - } else { - return a; - } - }), /* [] */0, ctrls); + if (x[0]) { + return { + hd: x[1], + tl: a + }; + } else { + return a; + } + }), /* [] */0, ctrls); } function run_update_collid(state, collid, all_collids) { if (collid.TAG === "Player") { - var o = collid._2; - var keys = translate_keys(); + let o = collid._2; + let keys = translate_keys(); o.crouch = false; - var match = update_player(o, keys, state.ctx); - var player; + let match = update_player(o, keys, state.ctx); + let player; if (match !== undefined) { - var new_spr = match[1]; + let new_spr = match[1]; normalize_pos(o.pos, collid._1.params, new_spr.params); player = { TAG: "Player", @@ -2271,33 +2271,33 @@ function run_update_collid(state, collid, all_collids) { } else { player = collid; } - var evolved = update_collidable(state, player, all_collids); + let evolved = update_collidable(state, player, all_collids); collid_objs.contents = Pervasives.$at(collid_objs.contents, evolved); return player; } - var obj = collid._2; - var evolved$1 = update_collidable(state, collid, all_collids); + let obj = collid._2; + let evolved$1 = update_collidable(state, collid, all_collids); if (!obj.kill) { collid_objs.contents = { hd: collid, tl: Pervasives.$at(collid_objs.contents, evolved$1) }; } - var new_parts = obj.kill ? kill(collid, state.ctx) : /* [] */0; + let new_parts = obj.kill ? kill(collid, state.ctx) : /* [] */0; particles.contents = Pervasives.$at(particles.contents, new_parts); return collid; } function update_loop(canvas, param, map_dim) { - var player = param[0]; - var ctx = Curry._1(canvas.getContext, "2d"); - var cwidth = canvas.width / 1; - var cheight = canvas.height / 1; - var viewport = make$3([ - cwidth, - cheight - ], map_dim); - var state = { + let player = param[0]; + let ctx = Curry._1(canvas.getContext, "2d"); + let cwidth = canvas.width / 1; + let cheight = canvas.height / 1; + let viewport = make$3([ + cwidth, + cheight + ], map_dim); + let state = { bgd: make_bgd(ctx), ctx: ctx, vpt: update(viewport, player._2.pos), @@ -2308,23 +2308,23 @@ function update_loop(canvas, param, map_dim) { game_over: false }; Curry._2(state.ctx.scale, 1, 1); - var update_helper = function (time, state, player, objs, parts) { + let update_helper = function (time, state, player, objs, parts) { if (state.game_over === true) { return game_win(state.ctx); } collid_objs.contents = /* [] */0; particles.contents = /* [] */0; - var fps$1 = calc_fps(last_time.contents, time); + let fps$1 = calc_fps(last_time.contents, time); last_time.contents = time; clear_canvas(canvas); - var vpos_x_int = state.vpt.pos.x / 5 | 0; - var bgd_width = state.bgd.params.frame_size[0] | 0; + let vpos_x_int = state.vpt.pos.x / 5 | 0; + let bgd_width = state.bgd.params.frame_size[0] | 0; draw_bgd(state.bgd, Caml_int32.mod_(vpos_x_int, bgd_width)); - var player$1 = run_update_collid(state, player, objs); + let player$1 = run_update_collid(state, player, objs); if (player$1._2.kill === true) { return game_loss(state.ctx); } - var state$1 = { + let state$1 = { bgd: state.bgd, ctx: state.ctx, vpt: update(state.vpt, player$1._2.pos), @@ -2335,36 +2335,36 @@ function update_loop(canvas, param, map_dim) { game_over: state.game_over }; List.iter((function (obj) { - run_update_collid(state$1, obj, objs); - }), objs); + run_update_collid(state$1, obj, objs); + }), objs); List.iter((function (part) { - $$process(part); - var x = part.pos.x - state$1.vpt.pos.x; - var y = part.pos.y - state$1.vpt.pos.y; - render(part.params.sprite, [ - x, - y - ]); - if (!part.kill) { - particles.contents = { - hd: part, - tl: particles.contents - }; - return ; - } - - }), parts); + $$process(part); + let x = part.pos.x - state$1.vpt.pos.x; + let y = part.pos.y - state$1.vpt.pos.y; + render(part.params.sprite, [ + x, + y + ]); + if (!part.kill) { + particles.contents = { + hd: part, + tl: particles.contents + }; + return; + } + + }), parts); fps(canvas, fps$1); hud(canvas, state$1.score, state$1.coins); requestAnimationFrame(function (t) { - update_helper(t, state$1, player$1, collid_objs.contents, particles.contents); - }); + update_helper(t, state$1, player$1, collid_objs.contents, particles.contents); + }); }; update_helper(0, state, player, param[1], /* [] */0); } function keydown(evt) { - var match = evt.keyCode; + let match = evt.keyCode; if (match >= 41) { switch (match) { case 65 : @@ -2412,7 +2412,7 @@ function keydown(evt) { } function keyup(evt) { - var match = evt.keyCode; + let match = evt.keyCode; if (match >= 68) { if (match !== 83) { if (match !== 87) { @@ -2459,7 +2459,7 @@ function keyup(evt) { return true; } -var Director = { +let Director = { update_loop: update_loop, keydown: keydown, keyup: keyup @@ -2467,7 +2467,7 @@ var Director = { function mem_loc(checkloc, _loclist) { while(true) { - var loclist = _loclist; + let loclist = _loclist; if (!loclist) { return false; } @@ -2475,7 +2475,7 @@ function mem_loc(checkloc, _loclist) { return true; } _loclist = loclist.tl; - continue ; + continue; }; } @@ -2483,17 +2483,17 @@ function convert_list(lst) { if (!lst) { return /* [] */0; } - var h = lst.hd; + let h = lst.hd; return Pervasives.$at({ - hd: [ - h[0], - [ - h[1][0] * 16, - h[1][1] * 16 - ] - ], - tl: /* [] */0 - }, convert_list(lst.tl)); + hd: [ + h[0], + [ + h[1][0] * 16, + h[1][1] * 16 + ] + ], + tl: /* [] */0 + }, convert_list(lst.tl)); } function choose_enemy_typ(typ) { @@ -2506,11 +2506,11 @@ function choose_enemy_typ(typ) { return "Goomba"; default: throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } @@ -2524,60 +2524,60 @@ function choose_sblock_typ(typ) { return "Cloud"; case 3 : return { - TAG: "QBlock", - _0: "Mushroom" - }; + TAG: "QBlock", + _0: "Mushroom" + }; case 4 : return "Ground"; default: throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } function avoid_overlap(_lst, currentLst) { while(true) { - var lst = _lst; + let lst = _lst; if (!lst) { return /* [] */0; } - var t = lst.tl; - var h = lst.hd; + let t = lst.tl; + let h = lst.hd; if (!mem_loc(h[1], currentLst)) { return Pervasives.$at({ - hd: h, - tl: /* [] */0 - }, avoid_overlap(t, currentLst)); + hd: h, + tl: /* [] */0 + }, avoid_overlap(t, currentLst)); } _lst = t; - continue ; + continue; }; } function trim_edges(_lst, blockw, blockh) { while(true) { - var lst = _lst; + let lst = _lst; if (!lst) { return /* [] */0; } - var t = lst.tl; - var h = lst.hd; - var cx = h[1][0]; - var cy = h[1][1]; - var pixx = blockw * 16; - var pixy = blockh * 16; + let t = lst.tl; + let h = lst.hd; + let cx = h[1][0]; + let cy = h[1][1]; + let pixx = blockw * 16; + let pixy = blockh * 16; if (!(cx < 128 || pixx - cx < 528 || cy === 0 || pixy - cy < 48)) { return Pervasives.$at({ - hd: h, - tl: /* [] */0 - }, trim_edges(t, blockw, blockh)); + hd: h, + tl: /* [] */0 + }, trim_edges(t, blockw, blockh)); } _lst = t; - continue ; + continue; }; } @@ -2586,43 +2586,43 @@ function generate_clouds(cbx, cby, typ, num) { return /* [] */0; } else { return Pervasives.$at({ - hd: [ - typ, - [ - cbx, - cby - ] - ], - tl: /* [] */0 - }, generate_clouds(cbx + 1, cby, typ, num - 1 | 0)); + hd: [ + typ, + [ + cbx, + cby + ] + ], + tl: /* [] */0 + }, generate_clouds(cbx + 1, cby, typ, num - 1 | 0)); } } function generate_coins(_block_coord) { while(true) { - var block_coord = _block_coord; - var place_coin = Random.$$int(2); + let block_coord = _block_coord; + let place_coin = Random.$$int(2); if (!block_coord) { return /* [] */0; } - var t = block_coord.tl; - var h = block_coord.hd; + let t = block_coord.tl; + let h = block_coord.hd; if (place_coin === 0) { - var xc = h[1][0]; - var yc = h[1][1]; + let xc = h[1][0]; + let yc = h[1][1]; return Pervasives.$at({ - hd: [ - 0, - [ - xc, - yc - 16 - ] - ], - tl: /* [] */0 - }, generate_coins(t)); + hd: [ + 0, + [ + xc, + yc - 16 + ] + ], + tl: /* [] */0 + }, generate_coins(t)); } _block_coord = t; - continue ; + continue; }; } @@ -2630,75 +2630,75 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { if (cbx > blockw || cby > blockh) { return /* [] */0; } - var block_typ = Random.$$int(4); - var stair_typ = Random.$$int(2); - var life_block_chance = Random.$$int(5); - var middle_block = life_block_chance === 0 ? 3 : stair_typ; + let block_typ = Random.$$int(4); + let stair_typ = Random.$$int(2); + let life_block_chance = Random.$$int(5); + let middle_block = life_block_chance === 0 ? 3 : stair_typ; switch (prob) { case 0 : if (blockw - cbx > 2) { return { - hd: [ - stair_typ, - [ - cbx, - cby - ] - ], - tl: { - hd: [ - middle_block, - [ - cbx + 1, - cby - ] - ], - tl: { - hd: [ - stair_typ, - [ - cbx + 2, - cby - ] - ], - tl: /* [] */0 - } - } - }; + hd: [ + stair_typ, + [ + cbx, + cby + ] + ], + tl: { + hd: [ + middle_block, + [ + cbx + 1, + cby + ] + ], + tl: { + hd: [ + stair_typ, + [ + cbx + 2, + cby + ] + ], + tl: /* [] */0 + } + } + }; } else if (blockw - cbx > 1) { return { - hd: [ - block_typ, - [ - cbx, - cby - ] - ], - tl: { - hd: [ - block_typ, - [ - cbx + 1, - cby - ] - ], - tl: /* [] */0 - } - }; + hd: [ + block_typ, + [ + cbx, + cby + ] + ], + tl: { + hd: [ + block_typ, + [ + cbx + 1, + cby + ] + ], + tl: /* [] */0 + } + }; } else { return { - hd: [ - block_typ, - [ - cbx, - cby - ] - ], - tl: /* [] */0 - }; + hd: [ + block_typ, + [ + cbx, + cby + ] + ], + tl: /* [] */0 + }; } case 1 : - var num_clouds = Random.$$int(5) + 5 | 0; + let num_clouds = Random.$$int(5) + 5 | 0; if (cby < 5) { return generate_clouds(cbx, cby, 2, num_clouds); } else { @@ -2706,14 +2706,14 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { } case 2 : if (blockh - cby === 1) { - var four_0 = [ + let four_0 = [ stair_typ, [ cbx, cby ] ]; - var four_1 = { + let four_1 = { hd: [ stair_typ, [ @@ -2741,18 +2741,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { } } }; - var four = { + let four = { hd: four_0, tl: four_1 }; - var three_0 = [ + let three_0 = [ stair_typ, [ cbx + 1, cby - 1 ] ]; - var three_1 = { + let three_1 = { hd: [ stair_typ, [ @@ -2771,18 +2771,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { tl: /* [] */0 } }; - var three = { + let three = { hd: three_0, tl: three_1 }; - var two_0 = [ + let two_0 = [ stair_typ, [ cbx + 2, cby - 2 ] ]; - var two_1 = { + let two_1 = { hd: [ stair_typ, [ @@ -2792,18 +2792,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { ], tl: /* [] */0 }; - var two = { + let two = { hd: two_0, tl: two_1 }; - var one_0 = [ + let one_0 = [ stair_typ, [ cbx + 3, cby - 3 ] ]; - var one = { + let one = { hd: one_0, tl: /* [] */0 }; @@ -2813,14 +2813,14 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { } case 3 : if (stair_typ === 0 && blockh - cby > 3) { - var three_0$1 = [ + let three_0$1 = [ stair_typ, [ cbx, cby ] ]; - var three_1$1 = { + let three_1$1 = { hd: [ stair_typ, [ @@ -2839,18 +2839,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { tl: /* [] */0 } }; - var three$1 = { + let three$1 = { hd: three_0$1, tl: three_1$1 }; - var two_0$1 = [ + let two_0$1 = [ stair_typ, [ cbx + 2, cby + 1 ] ]; - var two_1$1 = { + let two_1$1 = { hd: [ stair_typ, [ @@ -2860,18 +2860,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { ], tl: /* [] */0 }; - var two$1 = { + let two$1 = { hd: two_0$1, tl: two_1$1 }; - var one_0$1 = [ + let one_0$1 = [ stair_typ, [ cbx + 5, cby + 2 ] ]; - var one_1 = { + let one_1 = { hd: [ stair_typ, [ @@ -2881,20 +2881,20 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { ], tl: /* [] */0 }; - var one$1 = { + let one$1 = { hd: one_0$1, tl: one_1 }; return Pervasives.$at(three$1, Pervasives.$at(two$1, one$1)); } else if (blockh - cby > 2) { - var one_0$2 = [ + let one_0$2 = [ stair_typ, [ cbx, cby ] ]; - var one_1$1 = { + let one_1$1 = { hd: [ stair_typ, [ @@ -2904,18 +2904,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { ], tl: /* [] */0 }; - var one$2 = { + let one$2 = { hd: one_0$2, tl: one_1$1 }; - var two_0$2 = [ + let two_0$2 = [ stair_typ, [ cbx + 3, cby - 1 ] ]; - var two_1$2 = { + let two_1$2 = { hd: [ stair_typ, [ @@ -2925,18 +2925,18 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { ], tl: /* [] */0 }; - var two$2 = { + let two$2 = { hd: two_0$2, tl: two_1$2 }; - var three_0$2 = [ + let three_0$2 = [ stair_typ, [ cbx + 4, cby - 2 ] ]; - var three_1$2 = { + let three_1$2 = { hd: [ stair_typ, [ @@ -2955,258 +2955,258 @@ function choose_block_pattern(blockw, blockh, cbx, cby, prob) { tl: /* [] */0 } }; - var three$2 = { + let three$2 = { hd: three_0$2, tl: three_1$2 }; return Pervasives.$at(one$2, Pervasives.$at(two$2, three$2)); } else { return { - hd: [ - stair_typ, - [ - cbx, - cby - ] - ], - tl: /* [] */0 - }; + hd: [ + stair_typ, + [ + cbx, + cby + ] + ], + tl: /* [] */0 + }; } case 4 : if (cby + 3 - blockh === 2) { return { - hd: [ - stair_typ, - [ - cbx, - cby - ] - ], - tl: /* [] */0 - }; + hd: [ + stair_typ, + [ + cbx, + cby + ] + ], + tl: /* [] */0 + }; } else if (cby + 3 - blockh === 1) { return { - hd: [ - stair_typ, - [ - cbx, - cby - ] - ], - tl: { - hd: [ - stair_typ, - [ - cbx, - cby + 1 - ] - ], - tl: /* [] */0 - } - }; + hd: [ + stair_typ, + [ + cbx, + cby + ] + ], + tl: { + hd: [ + stair_typ, + [ + cbx, + cby + 1 + ] + ], + tl: /* [] */0 + } + }; } else { return { - hd: [ - stair_typ, - [ - cbx, - cby - ] - ], - tl: { - hd: [ - stair_typ, - [ - cbx, - cby + 1 - ] - ], - tl: { - hd: [ - stair_typ, - [ - cbx, - cby + 2 - ] - ], - tl: /* [] */0 - } - } - }; - } - case 5 : - return { + hd: [ + stair_typ, + [ + cbx, + cby + ] + ], + tl: { + hd: [ + stair_typ, + [ + cbx, + cby + 1 + ] + ], + tl: { hd: [ - 3, + stair_typ, [ cbx, - cby + cby + 2 ] ], tl: /* [] */0 - }; + } + } + }; + } + case 5 : + return { + hd: [ + 3, + [ + cbx, + cby + ] + ], + tl: /* [] */0 + }; default: throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Shouldn't reach here" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Shouldn't reach here" + } + }); } } function generate_enemies(blockw, blockh, _cbx, _cby, acc) { while(true) { - var cby = _cby; - var cbx = _cbx; + let cby = _cby; + let cbx = _cbx; if (cbx > blockw - 32) { return /* [] */0; } if (cby > blockh - 1 || cbx < 15) { _cby = 0; _cbx = cbx + 1; - continue ; + continue; } if (mem_loc([ - cbx, - cby - ], acc) || cby === 0) { + cbx, + cby + ], acc) || cby === 0) { _cby = cby + 1; - continue ; + continue; } - var prob = Random.$$int(30); + let prob = Random.$$int(30); if (prob < 3 && blockh - 1 === cby) { - var enemy_0 = [ + let enemy_0 = [ prob, [ cbx * 16, cby * 16 ] ]; - var enemy = { + let enemy = { hd: enemy_0, tl: /* [] */0 }; return Pervasives.$at(enemy, generate_enemies(blockw, blockh, cbx, cby + 1, acc)); } _cby = cby + 1; - continue ; + continue; }; } function generate_block_enemies(_block_coord) { while(true) { - var block_coord = _block_coord; - var place_enemy = Random.$$int(20); - var enemy_typ = Random.$$int(3); + let block_coord = _block_coord; + let place_enemy = Random.$$int(20); + let enemy_typ = Random.$$int(3); if (!block_coord) { return /* [] */0; } - var t = block_coord.tl; - var h = block_coord.hd; + let t = block_coord.tl; + let h = block_coord.hd; if (place_enemy === 0) { - var xc = h[1][0]; - var yc = h[1][1]; + let xc = h[1][0]; + let yc = h[1][1]; return Pervasives.$at({ - hd: [ - enemy_typ, - [ - xc, - yc - 16 - ] - ], - tl: /* [] */0 - }, generate_block_enemies(t)); + hd: [ + enemy_typ, + [ + xc, + yc - 16 + ] + ], + tl: /* [] */0 + }, generate_block_enemies(t)); } _block_coord = t; - continue ; + continue; }; } function generate_block_locs(blockw, blockh, _cbx, _cby, _acc) { while(true) { - var acc = _acc; - var cby = _cby; - var cbx = _cbx; + let acc = _acc; + let cby = _cby; + let cbx = _cbx; if (blockw - cbx < 33) { return acc; } if (cby > blockh - 1) { _cby = 0; _cbx = cbx + 1; - continue ; + continue; } if (mem_loc([ - cbx, - cby - ], acc) || cby === 0) { + cbx, + cby + ], acc) || cby === 0) { _cby = cby + 1; - continue ; + continue; } - var prob = Random.$$int(100); + let prob = Random.$$int(100); if (prob < 5) { - var newacc = choose_block_pattern(blockw, blockh, cbx, cby, prob); - var undup_lst = avoid_overlap(newacc, acc); - var called_acc = Pervasives.$at(acc, undup_lst); + let newacc = choose_block_pattern(blockw, blockh, cbx, cby, prob); + let undup_lst = avoid_overlap(newacc, acc); + let called_acc = Pervasives.$at(acc, undup_lst); _acc = called_acc; _cby = cby + 1; - continue ; + continue; } _cby = cby + 1; - continue ; + continue; }; } function generate_panel(context, blockw, blockh) { return spawn({ - TAG: "SBlock", - _0: "Panel" - }, context, [ - blockw * 16 - 256, - blockh * 16 * 2 / 3 - ]); + TAG: "SBlock", + _0: "Panel" + }, context, [ + blockw * 16 - 256, + blockh * 16 * 2 / 3 + ]); } function generate_ground(blockw, blockh, _inc, _acc) { while(true) { - var acc = _acc; - var inc = _inc; + let acc = _acc; + let inc = _inc; if (inc > blockw) { return acc; } if (inc > 10) { - var skip = Random.$$int(10); - var newacc = Pervasives.$at(acc, { - hd: [ - 4, - [ - inc * 16, - blockh * 16 - ] - ], - tl: /* [] */0 - }); + let skip = Random.$$int(10); + let newacc = Pervasives.$at(acc, { + hd: [ + 4, + [ + inc * 16, + blockh * 16 + ] + ], + tl: /* [] */0 + }); if (skip === 7 && blockw - inc > 32) { _inc = inc + 1; - continue ; + continue; } _acc = newacc; _inc = inc + 1; - continue ; + continue; } - var newacc$1 = Pervasives.$at(acc, { - hd: [ - 4, - [ - inc * 16, - blockh * 16 - ] - ], - tl: /* [] */0 - }); + let newacc$1 = Pervasives.$at(acc, { + hd: [ + 4, + [ + inc * 16, + blockh * 16 + ] + ], + tl: /* [] */0 + }); _acc = newacc$1; _inc = inc + 1; - continue ; + continue; }; } @@ -3214,127 +3214,127 @@ function convert_to_block_obj(lst, context) { if (!lst) { return /* [] */0; } - var h = lst.hd; - var sblock_typ = choose_sblock_typ(h[0]); - var ob = spawn({ - TAG: "SBlock", - _0: sblock_typ - }, context, h[1]); + let h = lst.hd; + let sblock_typ = choose_sblock_typ(h[0]); + let ob = spawn({ + TAG: "SBlock", + _0: sblock_typ + }, context, h[1]); return Pervasives.$at({ - hd: ob, - tl: /* [] */0 - }, convert_to_block_obj(lst.tl, context)); + hd: ob, + tl: /* [] */0 + }, convert_to_block_obj(lst.tl, context)); } function convert_to_enemy_obj(lst, context) { if (!lst) { return /* [] */0; } - var h = lst.hd; - var senemy_typ = choose_enemy_typ(h[0]); - var ob = spawn({ - TAG: "SEnemy", - _0: senemy_typ - }, context, h[1]); + let h = lst.hd; + let senemy_typ = choose_enemy_typ(h[0]); + let ob = spawn({ + TAG: "SEnemy", + _0: senemy_typ + }, context, h[1]); return Pervasives.$at({ - hd: ob, - tl: /* [] */0 - }, convert_to_enemy_obj(lst.tl, context)); + hd: ob, + tl: /* [] */0 + }, convert_to_enemy_obj(lst.tl, context)); } function convert_to_coin_obj(lst, context) { if (!lst) { return /* [] */0; } - var ob = spawn({ - TAG: "SItem", - _0: "Coin" - }, context, lst.hd[1]); + let ob = spawn({ + TAG: "SItem", + _0: "Coin" + }, context, lst.hd[1]); return Pervasives.$at({ - hd: ob, - tl: /* [] */0 - }, convert_to_coin_obj(lst.tl, context)); + hd: ob, + tl: /* [] */0 + }, convert_to_coin_obj(lst.tl, context)); } function generate_helper(blockw, blockh, cx, cy, context) { - var block_locs = generate_block_locs(blockw, blockh, 0, 0, /* [] */0); - var converted_block_locs = trim_edges(convert_list(block_locs), blockw, blockh); - var obj_converted_block_locs = convert_to_block_obj(converted_block_locs, context); - var ground_blocks = generate_ground(blockw, blockh, 0, /* [] */0); - var obj_converted_ground_blocks = convert_to_block_obj(ground_blocks, context); - var block_locations = Pervasives.$at(block_locs, ground_blocks); - var all_blocks = Pervasives.$at(obj_converted_block_locs, obj_converted_ground_blocks); - var enemy_locs = generate_enemies(blockw, blockh, 0, 0, block_locations); - var obj_converted_enemies = convert_to_enemy_obj(enemy_locs, context); - var coin_locs = generate_coins(converted_block_locs); - var undup_coin_locs = trim_edges(avoid_overlap(coin_locs, converted_block_locs), blockw, blockh); - var converted_block_coin_locs = Pervasives.$at(converted_block_locs, coin_locs); - var enemy_block_locs = generate_block_enemies(converted_block_locs); - var undup_enemy_block_locs = avoid_overlap(enemy_block_locs, converted_block_coin_locs); - var obj_enemy_blocks = convert_to_enemy_obj(undup_enemy_block_locs, context); - var coin_objects = convert_to_coin_obj(undup_coin_locs, context); - var obj_panel = generate_panel(context, blockw, blockh); + let block_locs = generate_block_locs(blockw, blockh, 0, 0, /* [] */0); + let converted_block_locs = trim_edges(convert_list(block_locs), blockw, blockh); + let obj_converted_block_locs = convert_to_block_obj(converted_block_locs, context); + let ground_blocks = generate_ground(blockw, blockh, 0, /* [] */0); + let obj_converted_ground_blocks = convert_to_block_obj(ground_blocks, context); + let block_locations = Pervasives.$at(block_locs, ground_blocks); + let all_blocks = Pervasives.$at(obj_converted_block_locs, obj_converted_ground_blocks); + let enemy_locs = generate_enemies(blockw, blockh, 0, 0, block_locations); + let obj_converted_enemies = convert_to_enemy_obj(enemy_locs, context); + let coin_locs = generate_coins(converted_block_locs); + let undup_coin_locs = trim_edges(avoid_overlap(coin_locs, converted_block_locs), blockw, blockh); + let converted_block_coin_locs = Pervasives.$at(converted_block_locs, coin_locs); + let enemy_block_locs = generate_block_enemies(converted_block_locs); + let undup_enemy_block_locs = avoid_overlap(enemy_block_locs, converted_block_coin_locs); + let obj_enemy_blocks = convert_to_enemy_obj(undup_enemy_block_locs, context); + let coin_objects = convert_to_coin_obj(undup_coin_locs, context); + let obj_panel = generate_panel(context, blockw, blockh); return Pervasives.$at(all_blocks, Pervasives.$at(obj_converted_enemies, Pervasives.$at(coin_objects, Pervasives.$at(obj_enemy_blocks, { - hd: obj_panel, - tl: /* [] */0 - })))); + hd: obj_panel, + tl: /* [] */0 + })))); } function generate(w, h, context) { - var blockw = w / 16; - var blockh = h / 16 - 1; - var collide_list = generate_helper(blockw, blockh, 0, 0, context); - var player = spawn({ - TAG: "SPlayer", - _0: "SmallM", - _1: "Standing" - }, context, [ - 100, - 224 - ]); + let blockw = w / 16; + let blockh = h / 16 - 1; + let collide_list = generate_helper(blockw, blockh, 0, 0, context); + let player = spawn({ + TAG: "SPlayer", + _0: "SmallM", + _1: "Standing" + }, context, [ + 100, + 224 + ]); return [ - player, - collide_list - ]; + player, + collide_list + ]; } function init(param) { Random.self_init(); } -var Procedural_generator = { +let Procedural_generator = { init: init, generate: generate }; -var loadCount = { +let loadCount = { contents: 0 }; function load(param) { Random.self_init(); - var canvas_id = "canvas"; - var el = document.getElementById(canvas_id); - var canvas; + let canvas_id = "canvas"; + let el = document.getElementById(canvas_id); + let canvas; if (el !== null) { canvas = el; } else { console.log("cant find canvas " + canvas_id); throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "fail" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "fail" + } + }); } - var context = Curry._1(canvas.getContext, "2d"); + let context = Curry._1(canvas.getContext, "2d"); document.addEventListener("keydown", keydown, true); document.addEventListener("keyup", keyup, true); Random.self_init(); update_loop(canvas, generate(2400, 256, context), [ - 2400, - 256 - ]); + 2400, + 256 + ]); console.log("asd"); } @@ -3348,34 +3348,34 @@ function inc_counter(param) { function preload(param) { return List.map((function (img_src) { - var img_src$1 = "sprites/" + img_src; - var img = document.createElement("img"); - img.src = img_src$1; - img.addEventListener("load", (function (ev) { - inc_counter(); - return true; - }), true); - }), { - hd: "blocks.png", - tl: { - hd: "items.png", - tl: { - hd: "enemies.png", - tl: { - hd: "mario-small.png", - tl: /* [] */0 - } - } - } - }); + let img_src$1 = "sprites/" + img_src; + let img = document.createElement("img"); + img.src = img_src$1; + img.addEventListener("load", (function (ev) { + inc_counter(); + return true; + }), true); + }), { + hd: "blocks.png", + tl: { + hd: "items.png", + tl: { + hd: "enemies.png", + tl: { + hd: "mario-small.png", + tl: /* [] */0 + } + } + } + }); } window.onload = (function (param) { - preload(); - return true; - }); + preload(); + return true; +}); -var Main = { +let Main = { Html: undefined, Pg: undefined, loadCount: loadCount, diff --git a/jscomp/test/marshal.js b/jscomp/test/marshal.js index 35b171c0be..5a1dcc9aff 100644 --- a/jscomp/test/marshal.js +++ b/jscomp/test/marshal.js @@ -1,17 +1,17 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Bytes = require("../../lib/js/bytes.js"); -var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); function to_buffer(buff, ofs, len, v, flags) { if (ofs < 0 || len < 0 || ofs > (buff.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.to_buffer: substring out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.to_buffer: substring out of bounds" + } + }); } return Caml_external_polyfill.resolve("output_value_to_buffer")(buff, ofs, len, v, flags); } @@ -19,11 +19,11 @@ function to_buffer(buff, ofs, len, v, flags) { function data_size(buff, ofs) { if (ofs < 0 || ofs > (buff.length - 20 | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.data_size" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.data_size" + } + }); } return Caml_external_polyfill.resolve("marshal_data_size")(buff, ofs); } @@ -35,20 +35,20 @@ function total_size(buff, ofs) { function from_bytes(buff, ofs) { if (ofs < 0 || ofs > (buff.length - 20 | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.from_bytes" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.from_bytes" + } + }); } - var len = Caml_external_polyfill.resolve("marshal_data_size")(buff, ofs); + let len = Caml_external_polyfill.resolve("marshal_data_size")(buff, ofs); if (ofs > (buff.length - (20 + len | 0) | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.from_bytes" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.from_bytes" + } + }); } return Caml_external_polyfill.resolve("input_value_from_string")(buff, ofs); } @@ -57,7 +57,7 @@ function from_string(buff, ofs) { return from_bytes(Bytes.unsafe_of_string(buff), ofs); } -var header_size = 20; +let header_size = 20; exports.to_buffer = to_buffer; exports.header_size = header_size; diff --git a/jscomp/test/noassert.js b/jscomp/test/noassert.js index 185d74bd13..6ba808303a 100644 --- a/jscomp/test/noassert.js +++ b/jscomp/test/noassert.js @@ -4,15 +4,15 @@ function f(param) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "noassert.res", - 1, - 14 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "noassert.res", + 1, + 14 + ] + } + }); } function h(param) { diff --git a/jscomp/test/ocaml_re_test.js b/jscomp/test/ocaml_re_test.js index c5c65c8370..6c26fe0756 100644 --- a/jscomp/test/ocaml_re_test.js +++ b/jscomp/test/ocaml_re_test.js @@ -1,29 +1,29 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var Char = require("../../lib/js/char.js"); -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Curry = require("../../lib/js/curry.js"); -var $$String = require("../../lib/js/string.js"); -var Hashtbl = require("../../lib/js/hashtbl.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_array = require("../../lib/js/caml_array.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_option = require("../../lib/js/caml_option.js"); -var Caml_string = require("../../lib/js/caml_string.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); - -var suites = { +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let Char = require("../../lib/js/char.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Curry = require("../../lib/js/curry.js"); +let $$String = require("../../lib/js/string.js"); +let Hashtbl = require("../../lib/js/hashtbl.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_array = require("../../lib/js/caml_array.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_option = require("../../lib/js/caml_option.js"); +let Caml_string = require("../../lib/js/caml_string.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); + +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -33,12 +33,12 @@ function eq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - }) + return { + TAG: "Eq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; @@ -46,39 +46,39 @@ function eq(loc, x, y) { function union(_l, _l$p) { while(true) { - var l$p = _l$p; - var l = _l; + let l$p = _l$p; + let l = _l; if (!l$p) { return l; } if (!l) { return l$p; } - var r$p = l$p.tl; - var match = l$p.hd; - var c2$p = match[1]; - var c1$p = match[0]; - var r = l.tl; - var match$1 = l.hd; - var c2 = match$1[1]; - var c1 = match$1[0]; + let r$p = l$p.tl; + let match = l$p.hd; + let c2$p = match[1]; + let c1$p = match[0]; + let r = l.tl; + let match$1 = l.hd; + let c2 = match$1[1]; + let c1 = match$1[0]; if ((c2 + 1 | 0) < c1$p) { return { - hd: [ - c1, - c2 - ], - tl: union(r, l$p) - }; + hd: [ + c1, + c2 + ], + tl: union(r, l$p) + }; } if ((c2$p + 1 | 0) < c1) { return { - hd: [ - c1$p, - c2$p - ], - tl: union(l, r$p) - }; + hd: [ + c1$p, + c2$p + ], + tl: union(l, r$p) + }; } if (c2 < c2$p) { _l$p = { @@ -89,7 +89,7 @@ function union(_l, _l$p) { tl: r$p }; _l = r; - continue ; + continue; } _l$p = r$p; _l = { @@ -99,136 +99,136 @@ function union(_l, _l$p) { ], tl: r }; - continue ; + continue; }; } function inter(_l, _l$p) { while(true) { - var l$p = _l$p; - var l = _l; + let l$p = _l$p; + let l = _l; if (!l$p) { return /* [] */0; } if (!l) { return /* [] */0; } - var r$p = l$p.tl; - var match = l$p.hd; - var c2$p = match[1]; - var c1$p = match[0]; - var r = l.tl; - var match$1 = l.hd; - var c2 = match$1[1]; - var c1 = match$1[0]; + let r$p = l$p.tl; + let match = l$p.hd; + let c2$p = match[1]; + let c1$p = match[0]; + let r = l.tl; + let match$1 = l.hd; + let c2 = match$1[1]; + let c1 = match$1[0]; if (Caml_obj.lessthan(c2, c1$p)) { _l = r; - continue ; + continue; } if (!Caml_obj.lessthan(c2$p, c1)) { if (Caml_obj.lessthan(c2, c2$p)) { return { - hd: [ - Caml_obj.max(c1, c1$p), - c2 - ], - tl: inter(r, l$p) - }; + hd: [ + Caml_obj.max(c1, c1$p), + c2 + ], + tl: inter(r, l$p) + }; } else { return { - hd: [ - Caml_obj.max(c1, c1$p), - c2$p - ], - tl: inter(l, r$p) - }; + hd: [ + Caml_obj.max(c1, c1$p), + c2$p + ], + tl: inter(l, r$p) + }; } } _l$p = r$p; - continue ; + continue; }; } function diff(_l, _l$p) { while(true) { - var l$p = _l$p; - var l = _l; + let l$p = _l$p; + let l = _l; if (!l$p) { return l; } if (!l) { return /* [] */0; } - var r$p = l$p.tl; - var match = l$p.hd; - var c2$p = match[1]; - var c1$p = match[0]; - var r = l.tl; - var match$1 = l.hd; - var c2 = match$1[1]; - var c1 = match$1[0]; + let r$p = l$p.tl; + let match = l$p.hd; + let c2$p = match[1]; + let c1$p = match[0]; + let r = l.tl; + let match$1 = l.hd; + let c2 = match$1[1]; + let c1 = match$1[0]; if (c2 < c1$p) { return { - hd: [ - c1, - c2 - ], - tl: diff(r, l$p) - }; + hd: [ + c1, + c2 + ], + tl: diff(r, l$p) + }; } if (c2$p < c1) { _l$p = r$p; - continue ; + continue; } - var r$p$p = c2$p < c2 ? ({ - hd: [ - c2$p + 1 | 0, - c2 - ], - tl: r - }) : r; + let r$p$p = c2$p < c2 ? ({ + hd: [ + c2$p + 1 | 0, + c2 + ], + tl: r + }) : r; if (c1 < c1$p) { return { - hd: [ - c1, - c1$p - 1 | 0 - ], - tl: diff(r$p$p, r$p) - }; + hd: [ + c1, + c1$p - 1 | 0 + ], + tl: diff(r$p$p, r$p) + }; } _l$p = r$p; _l = r$p$p; - continue ; + continue; }; } function single(c) { return { - hd: [ - c, - c - ], - tl: /* [] */0 - }; + hd: [ + c, + c + ], + tl: /* [] */0 + }; } function seq(c, c$p) { if (Caml_obj.lessequal(c, c$p)) { return { - hd: [ - c, - c$p - ], - tl: /* [] */0 - }; + hd: [ + c, + c$p + ], + tl: /* [] */0 + }; } else { return { - hd: [ - c$p, - c - ], - tl: /* [] */0 - }; + hd: [ + c$p, + c + ], + tl: /* [] */0 + }; } } @@ -236,28 +236,28 @@ function offset(o, l) { if (!l) { return /* [] */0; } - var match = l.hd; + let match = l.hd; return { - hd: [ - match[0] + o | 0, - match[1] + o | 0 - ], - tl: offset(o, l.tl) - }; + hd: [ + match[0] + o | 0, + match[1] + o | 0 + ], + tl: offset(o, l.tl) + }; } function mem(c, _s) { while(true) { - var s = _s; + let s = _s; if (!s) { return false; } - var match = s.hd; + let match = s.hd; if (c <= match[1]) { return c >= match[0]; } _s = s.tl; - continue ; + continue; }; } @@ -265,19 +265,19 @@ function hash_rec(x) { if (!x) { return 0; } - var match = x.hd; + let match = x.hd; return (match[0] + Math.imul(13, match[1]) | 0) + Math.imul(257, hash_rec(x.tl)) | 0; } function one_char(x) { if (!x) { - return ; + return; } if (x.tl) { - return ; + return; } - var match = x.hd; - var i = match[0]; + let match = x.hd; + let i = match[0]; if (Caml_obj.equal(i, match[1])) { return Caml_option.some(i); } @@ -285,7 +285,7 @@ function one_char(x) { } function compare(param, param$1) { - var c = Caml_obj.compare(param[0], param$1[0]); + let c = Caml_obj.compare(param[0], param$1[0]); if (c !== 0) { return c; } else { @@ -302,36 +302,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -339,34 +339,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -374,52 +374,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -427,7 +427,7 @@ function add(x, data, param) { } } -var cany = { +let cany = { hd: [ 0, 255 @@ -502,36 +502,36 @@ function height$1(param) { } function create$1(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal$1(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height$1(ll) >= height$1(lr)) { return create$1(ll, lv, create$1(lr, v, r)); } @@ -539,32 +539,32 @@ function bal$1(l, v, r) { return create$1(create$1(ll, lv, lr.l), lr.v, create$1(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height$1(rr) >= height$1(rl)) { return create$1(create$1(l, v, rl), rv, rr); } @@ -572,39 +572,39 @@ function bal$1(l, v, r) { return create$1(create$1(l, v, rl.l), rl.v, create$1(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add$1(x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add$1(x, l); + let ll = add$1(x, l); if (l === ll) { return param; } else { return bal$1(ll, v, r); } } - var rr = add$1(x, r); + let rr = add$1(x, r); if (r === rr) { return param; } else { @@ -616,24 +616,24 @@ function hash_combine(h, accu) { return Math.imul(accu, 65599) + h | 0; } -var empty = { +let empty = { marks: /* [] */0, pmarks: "Empty" }; function hash(m, accu) { - var _l = m.marks; - var _accu = hash_combine(Hashtbl.hash(m.pmarks), accu); + let _l = m.marks; + let _accu = hash_combine(Hashtbl.hash(m.pmarks), accu); while(true) { - var accu$1 = _accu; - var l = _l; + let accu$1 = _accu; + let l = _l; if (!l) { return accu$1; } - var match = l.hd; + let match = l.hd; _accu = hash_combine(match[0], hash_combine(match[1], accu$1)); _l = l.tl; - continue ; + continue; }; } @@ -641,43 +641,43 @@ function marks_set_idx(idx, x) { if (!x) { return x; } - var match = x.hd; + let match = x.hd; if (match[1] !== -1) { return x; } else { return { - hd: [ - match[0], - idx - ], - tl: marks_set_idx(idx, x.tl) - }; + hd: [ + match[0], + idx + ], + tl: marks_set_idx(idx, x.tl) + }; } } function marks_set_idx$1(marks, idx) { return { - marks: marks_set_idx(idx, marks.marks), - pmarks: marks.pmarks - }; + marks: marks_set_idx(idx, marks.marks), + pmarks: marks.pmarks + }; } function first(f, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } - var res = Curry._1(f, x.hd); + let res = Curry._1(f, x.hd); if (res !== undefined) { return res; } _x = x.tl; - continue ; + continue; }; } -var eps_expr = { +let eps_expr = { id: 0, def: "Eps" }; @@ -685,22 +685,22 @@ var eps_expr = { function mk_expr(ids, def) { ids.contents = ids.contents + 1 | 0; return { - id: ids.contents, - def: def - }; + id: ids.contents, + def: def + }; } function cst(ids, s) { if (s ? false : true) { return mk_expr(ids, { - TAG: "Alt", - _0: /* [] */0 - }); + TAG: "Alt", + _0: /* [] */0 + }); } else { return mk_expr(ids, { - TAG: "Cst", - _0: s - }); + TAG: "Cst", + _0: s + }); } } @@ -708,24 +708,24 @@ function alt(ids, x) { if (x) { if (x.tl) { return mk_expr(ids, { - TAG: "Alt", - _0: x - }); + TAG: "Alt", + _0: x + }); } else { return x.hd; } } else { return mk_expr(ids, { - TAG: "Alt", - _0: /* [] */0 - }); + TAG: "Alt", + _0: /* [] */0 + }); } } function seq$1(ids, kind, x, y) { - var match = x.def; - var match$1 = y.def; - var exit = 0; + let match = x.def; + let match$1 = y.def; + let exit = 0; if (typeof match !== "object") { return y; } @@ -749,15 +749,15 @@ function seq$1(ids, kind, x, y) { } return mk_expr(ids, { - TAG: "Seq", - _0: kind, - _1: x, - _2: y - }); + TAG: "Seq", + _0: kind, + _1: x, + _2: y + }); } function is_eps(expr) { - var match = expr.def; + let match = expr.def; if (typeof match !== "object") { return true; } else { @@ -767,48 +767,48 @@ function is_eps(expr) { function rep(ids, kind, sem, x) { return mk_expr(ids, { - TAG: "Rep", - _0: kind, - _1: sem, - _2: x - }); + TAG: "Rep", + _0: kind, + _1: sem, + _2: x + }); } function erase(ids, m, m$p) { return mk_expr(ids, { - TAG: "Erase", - _0: m, - _1: m$p - }); + TAG: "Erase", + _0: m, + _1: m$p + }); } function rename(ids, x) { - var l = x.def; + let l = x.def; if (typeof l !== "object") { return mk_expr(ids, x.def); } switch (l.TAG) { case "Alt" : return mk_expr(ids, { - TAG: "Alt", - _0: List.map((function (param) { - return rename(ids, param); - }), l._0) - }); + TAG: "Alt", + _0: List.map((function (param) { + return rename(ids, param); + }), l._0) + }); case "Seq" : return mk_expr(ids, { - TAG: "Seq", - _0: l._0, - _1: rename(ids, l._1), - _2: rename(ids, l._2) - }); + TAG: "Seq", + _0: l._0, + _1: rename(ids, l._1), + _2: rename(ids, l._2) + }); case "Rep" : return mk_expr(ids, { - TAG: "Rep", - _0: l._0, - _1: l._1, - _2: rename(ids, l._2) - }); + TAG: "Rep", + _0: l._0, + _1: l._1, + _2: rename(ids, l._2) + }); default: return mk_expr(ids, x.def); } @@ -816,8 +816,8 @@ function rename(ids, x) { function equal(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return false; @@ -825,13 +825,13 @@ function equal(_l1, _l2) { return true; } } - var marks1 = l1.hd; + let marks1 = l1.hd; switch (marks1.TAG) { case "TSeq" : if (!l2) { return false; } - var match = l2.hd; + let match = l2.hd; switch (match.TAG) { case "TSeq" : if (marks1._1.id !== match._1.id) { @@ -842,7 +842,7 @@ function equal(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; case "TExp" : case "TMatch" : return false; @@ -852,7 +852,7 @@ function equal(_l1, _l2) { if (!l2) { return false; } - var match$1 = l2.hd; + let match$1 = l2.hd; switch (match$1.TAG) { case "TExp" : if (marks1._1.id !== match$1._1.id) { @@ -863,7 +863,7 @@ function equal(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; case "TSeq" : case "TMatch" : return false; @@ -873,7 +873,7 @@ function equal(_l1, _l2) { if (!l2) { return false; } - var marks2 = l2.hd; + let marks2 = l2.hd; switch (marks2.TAG) { case "TSeq" : case "TExp" : @@ -884,7 +884,7 @@ function equal(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } @@ -894,25 +894,25 @@ function equal(_l1, _l2) { function hash$1(_l, _accu) { while(true) { - var accu = _accu; - var l = _l; + let accu = _accu; + let l = _l; if (!l) { return accu; } - var marks = l.hd; + let marks = l.hd; switch (marks.TAG) { case "TSeq" : _accu = hash_combine(388635598, hash_combine(marks._1.id, hash$1(marks._0, accu))); _l = l.tl; - continue ; + continue; case "TExp" : _accu = hash_combine(726404471, hash_combine(marks._1.id, hash(marks._0, accu))); _l = l.tl; - continue ; + continue; case "TMatch" : _accu = hash_combine(471882453, hash(marks._0, accu)); _l = l.tl; - continue ; + continue; } }; @@ -922,19 +922,19 @@ function tseq(kind, x, y, rem) { if (!x) { return rem; } - var match = x.hd; + let match = x.hd; switch (match.TAG) { case "TExp" : - var tmp = match._1.def; + let tmp = match._1.def; if (typeof tmp !== "object" && !x.tl) { return { - hd: { - TAG: "TExp", - _0: match._0, - _1: y - }, - tl: rem - }; + hd: { + TAG: "TExp", + _0: match._0, + _1: y + }, + tl: rem + }; } break; case "TSeq" : @@ -943,17 +943,17 @@ function tseq(kind, x, y, rem) { } return { - hd: { - TAG: "TSeq", - _0: x, - _1: y, - _2: kind - }, - tl: rem - }; + hd: { + TAG: "TSeq", + _0: x, + _1: y, + _2: kind + }, + tl: rem + }; } -var dummy = { +let dummy = { idx: -1, category: -1, desc: /* [] */0, @@ -967,23 +967,23 @@ function hash$2(idx, cat, desc) { function mk(idx, cat, desc) { return { - idx: idx, - category: cat, - desc: desc, - status: undefined, - hash: hash$2(idx, cat, desc) - }; + idx: idx, + category: cat, + desc: desc, + status: undefined, + hash: hash$2(idx, cat, desc) + }; } function create$2(cat, e) { return mk(0, cat, { - hd: { - TAG: "TExp", - _0: empty, - _1: e - }, - tl: /* [] */0 - }); + hd: { + TAG: "TExp", + _0: empty, + _1: e + }, + tl: /* [] */0 + }); } function equal$1(x, y) { @@ -998,10 +998,10 @@ function hash$3(t) { return t.hash; } -var Table = Hashtbl.Make({ - equal: equal$1, - hash: hash$3 - }); +let Table = Hashtbl.Make({ + equal: equal$1, + hash: hash$3 +}); function reset_table(a) { $$Array.fill(a, 0, a.length, false); @@ -1010,65 +1010,65 @@ function reset_table(a) { function mark_used_indices(tbl) { return function (param) { return List.iter((function (x) { - switch (x.TAG) { - case "TSeq" : - return mark_used_indices(tbl)(x._0); - case "TExp" : - case "TMatch" : - break; - - } - List.iter((function (param) { - var i = param[1]; - if (i >= 0) { - return Caml_array.set(tbl, i, true); - } - - }), x._0.marks); - }), param); + switch (x.TAG) { + case "TSeq" : + return mark_used_indices(tbl)(x._0); + case "TExp" : + case "TMatch" : + break; + + } + List.iter((function (param) { + let i = param[1]; + if (i >= 0) { + return Caml_array.set(tbl, i, true); + } + + }), x._0.marks); + }), param); }; } function find_free(tbl, _idx, len) { while(true) { - var idx = _idx; + let idx = _idx; if (idx === len || !Caml_array.get(tbl, idx)) { return idx; } _idx = idx + 1 | 0; - continue ; + continue; }; } function free_index(tbl_ref, l) { - var tbl = tbl_ref.contents; + let tbl = tbl_ref.contents; reset_table(tbl); mark_used_indices(tbl)(l); - var len = tbl.length; - var idx = find_free(tbl, 0, len); + let len = tbl.length; + let idx = find_free(tbl, 0, len); if (idx === len) { tbl_ref.contents = Caml_array.make((len << 1), false); } return idx; } -var remove_matches = List.filter(function (x) { - switch (x.TAG) { - case "TSeq" : - case "TExp" : - return true; - case "TMatch" : - return false; - - } - }); +let remove_matches = List.filter(function (x) { + switch (x.TAG) { + case "TSeq" : + case "TExp" : + return true; + case "TMatch" : + return false; + + } +}); function split_at_match_rec(_l$p, _x) { while(true) { - var x = _x; - var l$p = _l$p; + let x = _x; + let l$p = _l$p; if (x) { - var x$1 = x.hd; + let x$1 = x.hd; switch (x$1.TAG) { case "TSeq" : case "TExp" : @@ -1077,93 +1077,93 @@ function split_at_match_rec(_l$p, _x) { hd: x$1, tl: l$p }; - continue ; + continue; case "TMatch" : return [ - List.rev(l$p), - Curry._1(remove_matches, x.tl) - ]; + List.rev(l$p), + Curry._1(remove_matches, x.tl) + ]; } } else { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 816, - 16 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 816, + 16 + ] + } + }); } }; } function remove_duplicates(prev, _l, y) { while(true) { - var l = _l; + let l = _l; if (!l) { return [ - /* [] */0, - prev - ]; + /* [] */0, + prev + ]; } - var x = l.hd; + let x = l.hd; switch (x.TAG) { case "TSeq" : - var x$1 = x._1; - var match = remove_duplicates(prev, x._0, x$1); - var match$1 = remove_duplicates(match[1], l.tl, y); + let x$1 = x._1; + let match = remove_duplicates(prev, x._0, x$1); + let match$1 = remove_duplicates(match[1], l.tl, y); return [ - tseq(x._2, match[0], x$1, match$1[0]), - match$1[1] - ]; + tseq(x._2, match[0], x$1, match$1[0]), + match$1[1] + ]; case "TExp" : - var x$2 = x._1; - var tmp = x$2.def; + let x$2 = x._1; + let tmp = x$2.def; if (typeof tmp !== "object") { - var r = l.tl; + let r = l.tl; if (List.memq(y.id, prev)) { _l = r; - continue ; + continue; } - var match$2 = remove_duplicates({ - hd: y.id, - tl: prev - }, r, y); + let match$2 = remove_duplicates({ + hd: y.id, + tl: prev + }, r, y); return [ - { - hd: x, - tl: match$2[0] - }, - match$2[1] - ]; + { + hd: x, + tl: match$2[0] + }, + match$2[1] + ]; } - var r$1 = l.tl; + let r$1 = l.tl; if (List.memq(x$2.id, prev)) { _l = r$1; - continue ; + continue; } - var match$3 = remove_duplicates({ - hd: x$2.id, - tl: prev - }, r$1, y); + let match$3 = remove_duplicates({ + hd: x$2.id, + tl: prev + }, r$1, y); return [ - { - hd: x, - tl: match$3[0] - }, - match$3[1] - ]; + { + hd: x, + tl: match$3[0] + }, + match$3[1] + ]; case "TMatch" : return [ - { - hd: x, - tl: /* [] */0 - }, - prev - ]; + { + hd: x, + tl: /* [] */0 + }, + prev + ]; } }; @@ -1173,188 +1173,188 @@ function set_idx(idx, x) { if (!x) { return /* [] */0; } - var marks = x.hd; + let marks = x.hd; switch (marks.TAG) { case "TSeq" : return { - hd: { - TAG: "TSeq", - _0: set_idx(idx, marks._0), - _1: marks._1, - _2: marks._2 - }, - tl: set_idx(idx, x.tl) - }; + hd: { + TAG: "TSeq", + _0: set_idx(idx, marks._0), + _1: marks._1, + _2: marks._2 + }, + tl: set_idx(idx, x.tl) + }; case "TExp" : return { - hd: { - TAG: "TExp", - _0: marks_set_idx$1(marks._0, idx), - _1: marks._1 - }, - tl: set_idx(idx, x.tl) - }; + hd: { + TAG: "TExp", + _0: marks_set_idx$1(marks._0, idx), + _1: marks._1 + }, + tl: set_idx(idx, x.tl) + }; case "TMatch" : return { - hd: { - TAG: "TMatch", - _0: marks_set_idx$1(marks._0, idx) - }, - tl: set_idx(idx, x.tl) - }; + hd: { + TAG: "TMatch", + _0: marks_set_idx$1(marks._0, idx) + }, + tl: set_idx(idx, x.tl) + }; } } function filter_marks(b, e, marks) { return { - marks: List.filter(function (param) { - var i = param[0]; - if (i < b) { - return true; - } else { - return i > e; - } - })(marks.marks), - pmarks: marks.pmarks - }; + marks: List.filter(function (param) { + let i = param[0]; + if (i < b) { + return true; + } else { + return i > e; + } + })(marks.marks), + pmarks: marks.pmarks + }; } function delta_1(marks, c, next_cat, prev_cat, x, rem) { - var s = x.def; + let s = x.def; if (typeof s !== "object") { return { - hd: { - TAG: "TMatch", - _0: marks - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: marks + }, + tl: rem + }; } switch (s.TAG) { case "Cst" : if (mem(c, s._0)) { return { - hd: { - TAG: "TExp", - _0: marks, - _1: eps_expr - }, - tl: rem - }; + hd: { + TAG: "TExp", + _0: marks, + _1: eps_expr + }, + tl: rem + }; } else { return rem; } case "Alt" : return delta_2(marks, c, next_cat, prev_cat, s._0, rem); case "Seq" : - var y$p = delta_1(marks, c, next_cat, prev_cat, s._1, /* [] */0); + let y$p = delta_1(marks, c, next_cat, prev_cat, s._1, /* [] */0); return delta_seq(c, next_cat, prev_cat, s._0, y$p, s._2, rem); case "Rep" : - var kind = s._1; - var y$p$1 = delta_1(marks, c, next_cat, prev_cat, s._2, /* [] */0); - var marks$p = first((function (x) { - switch (x.TAG) { - case "TSeq" : - case "TExp" : - return ; - case "TMatch" : - return x._0; - - } - }), y$p$1); - var match = marks$p !== undefined ? [ + let kind = s._1; + let y$p$1 = delta_1(marks, c, next_cat, prev_cat, s._2, /* [] */0); + let marks$p = first((function (x) { + switch (x.TAG) { + case "TSeq" : + case "TExp" : + return; + case "TMatch" : + return x._0; + + } + }), y$p$1); + let match = marks$p !== undefined ? [ Curry._1(remove_matches, y$p$1), marks$p ] : [ y$p$1, marks ]; - var y$p$p = match[0]; + let y$p$p = match[0]; if (s._0 === "Non_greedy") { return { - hd: { - TAG: "TMatch", - _0: marks - }, - tl: tseq(kind, y$p$p, x, rem) - }; + hd: { + TAG: "TMatch", + _0: marks + }, + tl: tseq(kind, y$p$p, x, rem) + }; } else { return tseq(kind, y$p$p, x, { - hd: { - TAG: "TMatch", - _0: match[1] - }, - tl: rem - }); + hd: { + TAG: "TMatch", + _0: match[1] + }, + tl: rem + }); } case "Mark" : - var i = s._0; - var marks_marks = { + let i = s._0; + let marks_marks = { hd: [ i, -1 ], tl: List.remove_assq(i, marks.marks) }; - var marks_pmarks = marks.pmarks; - var marks$1 = { + let marks_pmarks = marks.pmarks; + let marks$1 = { marks: marks_marks, pmarks: marks_pmarks }; return { - hd: { - TAG: "TMatch", - _0: marks$1 - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: marks$1 + }, + tl: rem + }; case "Erase" : return { - hd: { - TAG: "TMatch", - _0: filter_marks(s._0, s._1, marks) - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: filter_marks(s._0, s._1, marks) + }, + tl: rem + }; case "Before" : if (intersect(next_cat, s._0)) { return { - hd: { - TAG: "TMatch", - _0: marks - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: marks + }, + tl: rem + }; } else { return rem; } case "After" : if (intersect(prev_cat, s._0)) { return { - hd: { - TAG: "TMatch", - _0: marks - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: marks + }, + tl: rem + }; } else { return rem; } case "Pmark" : - var marks_marks$1 = marks.marks; - var marks_pmarks$1 = add$1(s._0, marks.pmarks); - var marks$2 = { + let marks_marks$1 = marks.marks; + let marks_pmarks$1 = add$1(s._0, marks.pmarks); + let marks$2 = { marks: marks_marks$1, pmarks: marks_pmarks$1 }; return { - hd: { - TAG: "TMatch", - _0: marks$2 - }, - tl: rem - }; + hd: { + TAG: "TMatch", + _0: marks$2 + }, + tl: rem + }; } } @@ -1368,16 +1368,16 @@ function delta_2(marks, c, next_cat, prev_cat, l, rem) { } function delta_seq(c, next_cat, prev_cat, kind, y, z, rem) { - var marks = first((function (x) { - switch (x.TAG) { - case "TSeq" : - case "TExp" : - return ; - case "TMatch" : - return x._0; - - } - }), y); + let marks = first((function (x) { + switch (x.TAG) { + case "TSeq" : + case "TExp" : + return; + case "TMatch" : + return x._0; + + } + }), y); if (marks === undefined) { return tseq(kind, y, z, rem); } @@ -1387,25 +1387,25 @@ function delta_seq(c, next_cat, prev_cat, kind, y, z, rem) { if (kind !== "First") { return delta_1(marks, c, next_cat, prev_cat, z, tseq(kind, Curry._1(remove_matches, y), z, rem)); } - var match = split_at_match_rec(/* [] */0, y); + let match = split_at_match_rec(/* [] */0, y); return tseq(kind, match[0], z, delta_1(marks, c, next_cat, prev_cat, z, tseq(kind, match[1], z, rem))); } function delta_4(c, next_cat, prev_cat, l, rem) { if (l) { - var x = l.hd; - var rem$1 = delta_4(c, next_cat, prev_cat, l.tl, rem); + let x = l.hd; + let rem$1 = delta_4(c, next_cat, prev_cat, l.tl, rem); switch (x.TAG) { case "TSeq" : - var y$p = delta_4(c, next_cat, prev_cat, x._0, /* [] */0); + let y$p = delta_4(c, next_cat, prev_cat, x._0, /* [] */0); return delta_seq(c, next_cat, prev_cat, x._2, y$p, x._1, rem$1); case "TExp" : return delta_1(x._0, c, next_cat, prev_cat, x._1, rem$1); case "TMatch" : return { - hd: x, - tl: rem$1 - }; + hd: x, + tl: rem$1 + }; } } else { @@ -1414,41 +1414,41 @@ function delta_4(c, next_cat, prev_cat, l, rem) { } function delta(tbl_ref, next_cat, $$char, st) { - var prev_cat = st.category; - var match = remove_duplicates(/* [] */0, delta_4($$char, next_cat, prev_cat, st.desc, /* [] */0), eps_expr); - var expr$p = match[0]; - var idx = free_index(tbl_ref, expr$p); - var expr$p$p = set_idx(idx, expr$p); + let prev_cat = st.category; + let match = remove_duplicates(/* [] */0, delta_4($$char, next_cat, prev_cat, st.desc, /* [] */0), eps_expr); + let expr$p = match[0]; + let idx = free_index(tbl_ref, expr$p); + let expr$p$p = set_idx(idx, expr$p); return mk(idx, next_cat, expr$p$p); } function flatten_match(m) { - var ma = List.fold_left((function (ma, param) { - return Caml.int_max(ma, param[0]); - }), -1, m); - var res = Caml_array.make(ma + 1 | 0, -1); + let ma = List.fold_left((function (ma, param) { + return Caml.int_max(ma, param[0]); + }), -1, m); + let res = Caml_array.make(ma + 1 | 0, -1); List.iter((function (param) { - Caml_array.set(res, param[0], param[1]); - }), m); + Caml_array.set(res, param[0], param[1]); + }), m); return res; } function status(s) { - var st = s.status; + let st = s.status; if (st !== undefined) { return st; } - var match = s.desc; - var st$1; + let match = s.desc; + let st$1; if (match) { - var m = match.hd; + let m = match.hd; switch (m.TAG) { case "TSeq" : case "TExp" : st$1 = "Running"; break; case "TMatch" : - var m$1 = m._0; + let m$1 = m._0; st$1 = { TAG: "Match", _0: flatten_match(m$1.marks), @@ -1464,7 +1464,7 @@ function status(s) { return st$1; } -var Re_automata_Category = { +let Re_automata_Category = { $plus$plus: $plus$plus, from_char: from_char, inexistant: 1, @@ -1475,7 +1475,7 @@ var Re_automata_Category = { search_boundary: 32 }; -var Re_automata_State = { +let Re_automata_State = { dummy: dummy, create: create$2, Table: Table @@ -1483,14 +1483,14 @@ var Re_automata_State = { function iter(_n, f, _v) { while(true) { - var v = _v; - var n = _n; + let v = _v; + let n = _n; if (n === 0) { return v; } _v = Curry._1(f, v); _n = n - 1 | 0; - continue ; + continue; }; } @@ -1504,9 +1504,9 @@ function category(re, c) { } } -var dummy_next = []; +let dummy_next = []; -var unknown_state = { +let unknown_state = { idx: -2, real_idx: 0, next: dummy_next, @@ -1515,16 +1515,16 @@ var unknown_state = { }; function mk_state(ncol, desc) { - var match = status(desc); - var break_state; + let match = status(desc); + let break_state; break_state = typeof match !== "object" && match !== "Failed" ? false : true; return { - idx: break_state ? -3 : desc.idx, - real_idx: desc.idx, - next: break_state ? dummy_next : Caml_array.make(ncol, unknown_state), - final: /* [] */0, - desc: desc - }; + idx: break_state ? -3 : desc.idx, + real_idx: desc.idx, + next: break_state ? dummy_next : Caml_array.make(ncol, unknown_state), + final: /* [] */0, + desc: desc + }; } function find_state(re, desc) { @@ -1532,23 +1532,23 @@ function find_state(re, desc) { return Curry._2(Re_automata_State.Table.find, re.states, desc); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var st = mk_state(re.ncol, desc); + let st = mk_state(re.ncol, desc); Curry._3(Re_automata_State.Table.add, re.states, desc, st); return st; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function delta$1(info, cat, c, st) { - var desc = delta(info.re.tbl, cat, c, st.desc); - var len = info.positions.length; + let desc = delta(info.re.tbl, cat, c, st.desc); + let len = info.positions.length; if (desc.idx === len && len > 0) { - var pos = info.positions; + let pos = info.positions; info.positions = Caml_array.make((len << 1), 0); $$Array.blit(pos, 0, info.positions, 0, len); } @@ -1556,10 +1556,10 @@ function delta$1(info, cat, c, st) { } function validate(info, s, pos, st) { - var c = Caml_bytes.get(info.i_cols, Caml_string.get(s, pos)); - var cat = category(info.re, c); - var desc$p = delta$1(info, cat, c, st); - var st$p = find_state(info.re, desc$p); + let c = Caml_bytes.get(info.i_cols, Caml_string.get(s, pos)); + let cat = category(info.re, c); + let desc$p = delta$1(info, cat, c, st); + let st$p = find_state(info.re, desc$p); Caml_array.set(st.next, c, st$p); } @@ -1567,14 +1567,14 @@ function loop(info, s, pos, st) { if (pos >= info.last) { return st; } - var st$p = Caml_array.get(st.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos))); - var _pos = pos; - var _st = st; - var _st$p = st$p; + let st$p = Caml_array.get(st.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos))); + let _pos = pos; + let _st = st; + let _st$p = st$p; while(true) { - var st$p$1 = _st$p; - var st$1 = _st; - var pos$1 = _pos; + let st$p$1 = _st$p; + let st$1 = _st; + let pos$1 = _pos; if (st$p$1.idx < 0) { if (st$p$1.idx === -3) { Caml_array.set(info.positions, st$p$1.real_idx, pos$1 + 1 | 0); @@ -1584,14 +1584,14 @@ function loop(info, s, pos, st) { return loop(info, s, pos$1, st$1); } } - var pos$2 = pos$1 + 1 | 0; + let pos$2 = pos$1 + 1 | 0; if (pos$2 < info.last) { - var st$p$p = Caml_array.get(st$p$1.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos$2))); + let st$p$p = Caml_array.get(st$p$1.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos$2))); Caml_array.set(info.positions, st$p$1.idx, pos$2); _st$p = st$p$p; _st = st$p$1; _pos = pos$2; - continue ; + continue; } Caml_array.set(info.positions, st$p$1.idx, pos$2); return st$p$1; @@ -1603,12 +1603,12 @@ function $$final(info, st, cat) { return List.assq(cat, st.final); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var st$p = delta$1(info, cat, -1, st); - var res_0 = st$p.idx; - var res_1 = status(st$p); - var res = [ + let st$p = delta$1(info, cat, -1, st); + let res_0 = st$p.idx; + let res_1 = status(st$p); + let res = [ res_0, res_1 ]; @@ -1622,8 +1622,8 @@ function $$final(info, st, cat) { return res; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -1632,9 +1632,9 @@ function find_initial_state(re, cat) { return List.assq(cat, re.initial_states); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var st = find_state(re, Curry._2(Re_automata_State.create, cat, re.initial)); + let st = find_state(re, Curry._2(Re_automata_State.create, cat, re.initial)); re.initial_states = { hd: [ cat, @@ -1645,8 +1645,8 @@ function find_initial_state(re, cat) { return st; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -1654,7 +1654,7 @@ function get_color(re, s, pos) { if (pos < 0) { return -1; } - var slen = s.length; + let slen = s.length; if (pos >= slen) { return -1; } else if (pos === (slen - 1 | 0) && re.lnl !== -1 && Caml_string.get(s, pos) === /* '\n' */10) { @@ -1665,48 +1665,48 @@ function get_color(re, s, pos) { } function scan_str(info, s, initial_state, groups) { - var pos = info.pos; - var last = info.last; + let pos = info.pos; + let last = info.last; if (!(last === s.length && info.re.lnl !== -1 && last > pos && Caml_string.get(s, last - 1 | 0) === /* '\n' */10)) { if (groups) { return loop(info, s, pos, initial_state); } else { - var _pos = pos; - var _st = initial_state; + let _pos = pos; + let _st = initial_state; while(true) { - var st = _st; - var pos$1 = _pos; + let st = _st; + let pos$1 = _pos; if (pos$1 >= last) { return st; } - var st$p = Caml_array.get(st.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos$1))); + let st$p = Caml_array.get(st.next, Caml_bytes.get(info.i_cols, Caml_string.get(s, pos$1))); if (st$p.idx >= 0) { _st = st$p; _pos = pos$1 + 1 | 0; - continue ; + continue; } if (st$p.idx === -3) { return st$p; } validate(info, s, pos$1, st); - continue ; + continue; }; } } - var info$1 = { + let info$1 = { re: info.re, i_cols: info.i_cols, positions: info.positions, pos: info.pos, last: last - 1 | 0 }; - var st$1 = scan_str(info$1, s, initial_state, groups); + let st$1 = scan_str(info$1, s, initial_state, groups); if (st$1.idx === -3) { return st$1; } else { - var pos$2 = last - 1 | 0; + let pos$2 = last - 1 | 0; while(true) { - var st$p$1 = Caml_array.get(st$1.next, info$1.re.lnl); + let st$p$1 = Caml_array.get(st$1.next, info$1.re.lnl); if (st$p$1.idx >= 0) { if (groups) { Caml_array.set(info$1.positions, st$p$1.idx, pos$2 + 1 | 0); @@ -1719,13 +1719,13 @@ function scan_str(info, s, initial_state, groups) { } return st$p$1; } - var c = info$1.re.lnl; - var real_c = Caml_bytes.get(info$1.i_cols, /* '\n' */10); - var cat = category(info$1.re, c); - var desc$p = delta$1(info$1, cat, real_c, st$1); - var st$p$2 = find_state(info$1.re, desc$p); + let c = info$1.re.lnl; + let real_c = Caml_bytes.get(info$1.i_cols, /* '\n' */10); + let cat = category(info$1.re, c); + let desc$p = delta$1(info$1, cat, real_c, st$1); + let st$p$2 = find_state(info$1.re, desc$p); Caml_array.set(st$1.next, c, st$p$2); - continue ; + continue; }; } } @@ -1735,52 +1735,52 @@ function cadd(c, s) { } function trans_set(cache, cm, s) { - var i = one_char(s); + let i = one_char(s); if (i !== undefined) { return single(Caml_bytes.get(cm, i)); } - var v_0 = hash_rec(s); - var v = [ + let v_0 = hash_rec(s); + let v = [ v_0, s ]; try { - var _param = cache.contents; + let _param = cache.contents; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = compare(v, param.v); + let c = compare(v, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var l = List.fold_right((function (param, l) { - return union(seq(Caml_bytes.get(cm, param[0]), Caml_bytes.get(cm, param[1])), l); - }), s, /* [] */0); + let l = List.fold_right((function (param, l) { + return union(seq(Caml_bytes.get(cm, param[0]), Caml_bytes.get(cm, param[1])), l); + }), s, /* [] */0); cache.contents = add(v, l, cache.contents); return l; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function is_charset(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -1790,12 +1790,12 @@ function is_charset(_x) { case "Sem" : case "Sem_greedy" : _x = x._1; - continue ; + continue; case "No_group" : case "Case" : case "No_case" : _x = x._0; - continue ; + continue; case "Alternative" : case "Intersection" : case "Complement" : @@ -1805,7 +1805,7 @@ function is_charset(_x) { return false; } _x = x._1; - continue ; + continue; default: return false; } @@ -1813,86 +1813,86 @@ function is_charset(_x) { } function split(s, cm) { - var _t = s; - var f = function (i, j) { + let _t = s; + let f = function (i, j) { Caml_bytes.set(cm, i, /* '\001' */1); Caml_bytes.set(cm, j + 1 | 0, /* '\001' */1); }; while(true) { - var t = _t; + let t = _t; if (!t) { - return ; + return; } - var match = t.hd; + let match = t.hd; Curry._2(f, match[0], match[1]); _t = t.tl; - continue ; + continue; }; } -var cupper = union(seq(/* 'A' */65, /* 'Z' */90), union(seq(/* '\192' */192, /* '\214' */214), seq(/* '\216' */216, /* '\222' */222))); +let cupper = union(seq(/* 'A' */65, /* 'Z' */90), union(seq(/* '\192' */192, /* '\214' */214), seq(/* '\216' */216, /* '\222' */222))); -var clower = offset(32, cupper); +let clower = offset(32, cupper); -var calpha = List.fold_right(cadd, { - hd: /* '\170' */170, +let calpha = List.fold_right(cadd, { + hd: /* '\170' */170, + tl: { + hd: /* '\181' */181, + tl: { + hd: /* '\186' */186, tl: { - hd: /* '\181' */181, + hd: /* '\223' */223, tl: { - hd: /* '\186' */186, - tl: { - hd: /* '\223' */223, - tl: { - hd: /* '\255' */255, - tl: /* [] */0 - } - } + hd: /* '\255' */255, + tl: /* [] */0 } } - }, union(clower, cupper)); + } + } +}, union(clower, cupper)); -var cdigit = seq(/* '0' */48, /* '9' */57); +let cdigit = seq(/* '0' */48, /* '9' */57); -var calnum = union(calpha, cdigit); +let calnum = union(calpha, cdigit); -var cword = union({ - hd: [ - /* '_' */95, - /* '_' */95 - ], - tl: /* [] */0 - }, calnum); +let cword = union({ + hd: [ + /* '_' */95, + /* '_' */95 + ], + tl: /* [] */0 +}, calnum); function colorize(c, regexp) { - var lnl = { + let lnl = { contents: false }; - var colorize$1 = function (_regexp) { + let colorize$1 = function (_regexp) { while(true) { - var regexp = _regexp; + let regexp = _regexp; if (typeof regexp !== "object") { switch (regexp) { case "Beg_of_line" : case "End_of_line" : return split({ - hd: [ - /* '\n' */10, - /* '\n' */10 - ], - tl: /* [] */0 - }, c); + hd: [ + /* '\n' */10, + /* '\n' */10 + ], + tl: /* [] */0 + }, c); case "Beg_of_word" : case "End_of_word" : case "Not_bound" : return split(cword, c); case "Last_end_of_line" : lnl.contents = true; - return ; + return; case "Beg_of_str" : case "End_of_str" : case "Start" : case "Stop" : - return ; + return; } } else { @@ -1907,23 +1907,23 @@ function colorize(c, regexp) { case "No_group" : case "Nest" : _regexp = regexp._0; - continue ; + continue; case "Sem" : case "Sem_greedy" : case "Pmark" : _regexp = regexp._1; - continue ; + continue; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2169, - 8 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2169, + 8 + ] + } + }); } } }; @@ -1933,12 +1933,12 @@ function colorize(c, regexp) { } function flatten_cmap(cm) { - var c = Caml_bytes.create(256); - var col_repr = Caml_bytes.create(256); - var v = 0; + let c = Caml_bytes.create(256); + let col_repr = Caml_bytes.create(256); + let v = 0; Caml_bytes.set(c, 0, /* '\000' */0); Caml_bytes.set(col_repr, 0, /* '\000' */0); - for(var i = 1; i <= 255; ++i){ + for(let i = 1; i <= 255; ++i){ if (Caml_bytes.get(cm, i) !== /* '\000' */0) { v = v + 1 | 0; } @@ -1946,16 +1946,16 @@ function flatten_cmap(cm) { Caml_bytes.set(col_repr, v, Char.chr(i)); } return [ - c, - Bytes.sub(col_repr, 0, v + 1 | 0), - v + 1 | 0 - ]; + c, + Bytes.sub(col_repr, 0, v + 1 | 0), + v + 1 | 0 + ]; } function equal$2(_x1, _x2) { while(true) { - var x2 = _x2; - var x1 = _x1; + let x2 = _x2; + let x1 = _x1; if (typeof x1 !== "object") { switch (x1) { case "Beg_of_line" : @@ -2055,7 +2055,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._0; _x1 = x1._0; - continue ; + continue; case "Sem" : if (typeof x2 !== "object") { return false; @@ -2068,7 +2068,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._1; _x1 = x1._1; - continue ; + continue; case "Sem_greedy" : if (typeof x2 !== "object") { return false; @@ -2081,7 +2081,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._1; _x1 = x1._1; - continue ; + continue; case "Group" : return false; case "No_group" : @@ -2093,7 +2093,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._0; _x1 = x1._0; - continue ; + continue; case "Nest" : if (typeof x2 !== "object") { return false; @@ -2103,7 +2103,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._0; _x1 = x1._0; - continue ; + continue; case "Case" : if (typeof x2 !== "object") { return false; @@ -2113,7 +2113,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._0; _x1 = x1._0; - continue ; + continue; case "No_case" : if (typeof x2 !== "object") { return false; @@ -2123,7 +2123,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._0; _x1 = x1._0; - continue ; + continue; case "Intersection" : if (typeof x2 !== "object" || x2.TAG !== "Intersection") { return false; @@ -2148,7 +2148,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._1; _x1 = x1._1; - continue ; + continue; case "Pmark" : if (typeof x2 !== "object") { return false; @@ -2161,7 +2161,7 @@ function equal$2(_x1, _x2) { } _x2 = x2._1; _x1 = x1._1; - continue ; + continue; } } @@ -2170,8 +2170,8 @@ function equal$2(_x1, _x2) { function eq_list(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return false; @@ -2187,7 +2187,7 @@ function eq_list(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -2196,58 +2196,58 @@ function sequence(x) { return x.hd; } else { return { - TAG: "Sequence", - _0: x - }; + TAG: "Sequence", + _0: x + }; } } function merge_sequences(_x) { while(true) { - var x = _x; + let x = _x; if (!x) { return /* [] */0; } - var l$p = x.hd; + let l$p = x.hd; if (typeof l$p === "object") { switch (l$p.TAG) { case "Sequence" : - var match = l$p._0; + let match = l$p._0; if (match) { - var y = match.tl; - var x$1 = match.hd; - var r$p = merge_sequences(x.tl); - var exit = 0; + let y = match.tl; + let x$1 = match.hd; + let r$p = merge_sequences(x.tl); + let exit = 0; if (r$p) { - var match$1 = r$p.hd; + let match$1 = r$p.hd; if (typeof match$1 !== "object" || match$1.TAG !== "Sequence") { exit = 2; } else { - var match$2 = match$1._0; + let match$2 = match$1._0; if (match$2) { if (equal$2(x$1, match$2.hd)) { return { + hd: { + TAG: "Sequence", + _0: { + hd: x$1, + tl: { hd: { - TAG: "Sequence", + TAG: "Alternative", _0: { - hd: x$1, + hd: sequence(y), tl: { - hd: { - TAG: "Alternative", - _0: { - hd: sequence(y), - tl: { - hd: sequence(match$2.tl), - tl: /* [] */0 - } - } - }, + hd: sequence(match$2.tl), tl: /* [] */0 } } }, - tl: r$p.tl - }; + tl: /* [] */0 + } + } + }, + tl: r$p.tl + }; } exit = 2; } else { @@ -2259,30 +2259,30 @@ function merge_sequences(_x) { } if (exit === 2) { return { - hd: { - TAG: "Sequence", - _0: { - hd: x$1, - tl: y - } - }, - tl: r$p - }; + hd: { + TAG: "Sequence", + _0: { + hd: x$1, + tl: y + } + }, + tl: r$p + }; } } break; case "Alternative" : _x = Pervasives.$at(l$p._0, x.tl); - continue ; + continue; default: } } return { - hd: l$p, - tl: merge_sequences(x.tl) - }; + hd: l$p, + tl: merge_sequences(x.tl) + }; }; } @@ -2296,263 +2296,255 @@ function enforce_kind(ids, kind, kind$p, cr) { function translate(ids, kind, _ign_group, ign_case, _greedy, pos, cache, c, _x) { while(true) { - var x = _x; - var greedy = _greedy; - var ign_group = _ign_group; + let x = _x; + let greedy = _greedy; + let ign_group = _ign_group; if (typeof x !== "object") { switch (x) { case "Beg_of_line" : - var c$1 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.newline); + let c$1 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.newline); return [ - mk_expr(ids, { - TAG: "After", - _0: c$1 - }), - kind - ]; + mk_expr(ids, { + TAG: "After", + _0: c$1 + }), + kind + ]; case "End_of_line" : - var c$2 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.newline); + let c$2 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.newline); return [ - mk_expr(ids, { - TAG: "Before", - _0: c$2 - }), - kind - ]; + mk_expr(ids, { + TAG: "Before", + _0: c$2 + }), + kind + ]; case "Beg_of_word" : - var c$3 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.not_letter); - var c$4 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.letter); + let c$3 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.not_letter); + let c$4 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.letter); return [ - seq$1(ids, "First", mk_expr(ids, { - TAG: "After", - _0: c$3 - }), mk_expr(ids, { - TAG: "Before", - _0: c$4 - })), - kind - ]; + seq$1(ids, "First", mk_expr(ids, { + TAG: "After", + _0: c$3 + }), mk_expr(ids, { + TAG: "Before", + _0: c$4 + })), + kind + ]; case "End_of_word" : - var c$5 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.letter); - var c$6 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.not_letter); + let c$5 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.letter); + let c$6 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.not_letter); return [ - seq$1(ids, "First", mk_expr(ids, { - TAG: "After", - _0: c$5 - }), mk_expr(ids, { - TAG: "Before", - _0: c$6 - })), - kind - ]; + seq$1(ids, "First", mk_expr(ids, { + TAG: "After", + _0: c$5 + }), mk_expr(ids, { + TAG: "Before", + _0: c$6 + })), + kind + ]; case "Not_bound" : return [ - alt(ids, { - hd: seq$1(ids, "First", mk_expr(ids, { - TAG: "After", - _0: Re_automata_Category.letter - }), mk_expr(ids, { - TAG: "Before", - _0: Re_automata_Category.letter - })), - tl: { - hd: seq$1(ids, "First", mk_expr(ids, { - TAG: "After", - _0: Re_automata_Category.letter - }), mk_expr(ids, { - TAG: "Before", - _0: Re_automata_Category.letter - })), - tl: /* [] */0 - } - }), - kind - ]; + alt(ids, { + hd: seq$1(ids, "First", mk_expr(ids, { + TAG: "After", + _0: Re_automata_Category.letter + }), mk_expr(ids, { + TAG: "Before", + _0: Re_automata_Category.letter + })), + tl: { + hd: seq$1(ids, "First", mk_expr(ids, { + TAG: "After", + _0: Re_automata_Category.letter + }), mk_expr(ids, { + TAG: "Before", + _0: Re_automata_Category.letter + })), + tl: /* [] */0 + } + }), + kind + ]; case "Beg_of_str" : return [ - mk_expr(ids, { - TAG: "After", - _0: Re_automata_Category.inexistant - }), - kind - ]; + mk_expr(ids, { + TAG: "After", + _0: Re_automata_Category.inexistant + }), + kind + ]; case "End_of_str" : return [ - mk_expr(ids, { - TAG: "Before", - _0: Re_automata_Category.inexistant - }), - kind - ]; + mk_expr(ids, { + TAG: "Before", + _0: Re_automata_Category.inexistant + }), + kind + ]; case "Last_end_of_line" : - var c$7 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.lastnewline); + let c$7 = Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.inexistant, Re_automata_Category.lastnewline); return [ - mk_expr(ids, { - TAG: "Before", - _0: c$7 - }), - kind - ]; + mk_expr(ids, { + TAG: "Before", + _0: c$7 + }), + kind + ]; case "Start" : return [ - mk_expr(ids, { - TAG: "After", - _0: Re_automata_Category.search_boundary - }), - kind - ]; + mk_expr(ids, { + TAG: "After", + _0: Re_automata_Category.search_boundary + }), + kind + ]; case "Stop" : return [ - mk_expr(ids, { - TAG: "Before", - _0: Re_automata_Category.search_boundary - }), - kind - ]; + mk_expr(ids, { + TAG: "Before", + _0: Re_automata_Category.search_boundary + }), + kind + ]; } } else { switch (x.TAG) { case "Set" : return [ - cst(ids, trans_set(cache, c, x._0)), - kind - ]; + cst(ids, trans_set(cache, c, x._0)), + kind + ]; case "Sequence" : return [ - trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0), - kind - ]; + trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0), + kind + ]; case "Alternative" : - var merged_sequences = merge_sequences(x._0); + let merged_sequences = merge_sequences(x._0); if (merged_sequences && !merged_sequences.tl) { - var match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, merged_sequences.hd); + let match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, merged_sequences.hd); return [ - enforce_kind(ids, kind, match[1], match[0]), - kind - ]; + enforce_kind(ids, kind, match[1], match[0]), + kind + ]; } return [ - alt(ids, List.map((function(ign_group,greedy){ - return function (r$p) { - var match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r$p); - return enforce_kind(ids, kind, match[1], match[0]); - } - }(ign_group,greedy)), merged_sequences)), - kind - ]; + alt(ids, List.map((function (r$p) { + let match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r$p); + return enforce_kind(ids, kind, match[1], match[0]); + }), merged_sequences)), + kind + ]; case "Repeat" : - var j = x._2; - var i = x._1; - var match$1 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0); - var kind$p = match$1[1]; - var cr = match$1[0]; - var rem; + let j = x._2; + let i = x._1; + let match$1 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0); + let kind$p = match$1[1]; + let cr = match$1[0]; + let rem; if (j !== undefined) { - var f = greedy === "Non_greedy" ? (function(cr,kind$p){ - return function (rem) { + let f = greedy === "Non_greedy" ? (function (rem) { return alt(ids, { - hd: mk_expr(ids, "Eps"), - tl: { - hd: seq$1(ids, kind$p, rename(ids, cr), rem), - tl: /* [] */0 - } - }); - } - }(cr,kind$p)) : (function(cr,kind$p){ - return function (rem) { + hd: mk_expr(ids, "Eps"), + tl: { + hd: seq$1(ids, kind$p, rename(ids, cr), rem), + tl: /* [] */0 + } + }); + }) : (function (rem) { return alt(ids, { - hd: seq$1(ids, kind$p, rename(ids, cr), rem), - tl: { - hd: mk_expr(ids, "Eps"), - tl: /* [] */0 - } - }); - } - }(cr,kind$p)); + hd: seq$1(ids, kind$p, rename(ids, cr), rem), + tl: { + hd: mk_expr(ids, "Eps"), + tl: /* [] */0 + } + }); + }); rem = iter(j - i | 0, f, mk_expr(ids, "Eps")); } else { rem = rep(ids, greedy, kind$p, cr); } return [ - iter(i, (function(cr,kind$p){ - return function (rem) { - return seq$1(ids, kind$p, rename(ids, cr), rem); - } - }(cr,kind$p)), rem), - kind - ]; + iter(i, (function (rem) { + return seq$1(ids, kind$p, rename(ids, cr), rem); + }), rem), + kind + ]; case "Sem" : - var kind$p$1 = x._0; - var match$2 = translate(ids, kind$p$1, ign_group, ign_case, greedy, pos, cache, c, x._1); + let kind$p$1 = x._0; + let match$2 = translate(ids, kind$p$1, ign_group, ign_case, greedy, pos, cache, c, x._1); return [ - enforce_kind(ids, kind$p$1, match$2[1], match$2[0]), - kind$p$1 - ]; + enforce_kind(ids, kind$p$1, match$2[1], match$2[0]), + kind$p$1 + ]; case "Sem_greedy" : _x = x._1; _greedy = x._0; - continue ; + continue; case "Group" : - var r$p = x._0; + let r$p = x._0; if (ign_group) { _x = r$p; - continue ; + continue; } - var p = pos.contents; + let p = pos.contents; pos.contents = pos.contents + 2 | 0; - var match$3 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r$p); + let match$3 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r$p); return [ - seq$1(ids, "First", mk_expr(ids, { - TAG: "Mark", - _0: p - }), seq$1(ids, "First", match$3[0], mk_expr(ids, { - TAG: "Mark", - _0: p + 1 | 0 - }))), - match$3[1] - ]; + seq$1(ids, "First", mk_expr(ids, { + TAG: "Mark", + _0: p + }), seq$1(ids, "First", match$3[0], mk_expr(ids, { + TAG: "Mark", + _0: p + 1 | 0 + }))), + match$3[1] + ]; case "No_group" : _x = x._0; _ign_group = true; - continue ; + continue; case "Nest" : - var b = pos.contents; - var match$4 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0); - var kind$p$2 = match$4[1]; - var cr$1 = match$4[0]; - var e = pos.contents - 1 | 0; + let b = pos.contents; + let match$4 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._0); + let kind$p$2 = match$4[1]; + let cr$1 = match$4[0]; + let e = pos.contents - 1 | 0; if (e < b) { return [ - cr$1, - kind$p$2 - ]; + cr$1, + kind$p$2 + ]; } else { return [ - seq$1(ids, "First", erase(ids, b, e), cr$1), - kind$p$2 - ]; + seq$1(ids, "First", erase(ids, b, e), cr$1), + kind$p$2 + ]; } case "Pmark" : - var match$5 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._1); + let match$5 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x._1); return [ - seq$1(ids, "First", mk_expr(ids, { - TAG: "Pmark", - _0: x._0 - }), match$5[0]), - match$5[1] - ]; + seq$1(ids, "First", mk_expr(ids, { + TAG: "Pmark", + _0: x._0 + }), match$5[0]), + match$5[1] + ]; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2403, - 80 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2403, + 80 + ] + } + }); } } }; @@ -2562,12 +2554,12 @@ function trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x) { if (!x) { return mk_expr(ids, "Eps"); } - var rem = x.tl; - var r = x.hd; + let rem = x.tl; + let r = x.hd; if (rem) { - var match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r); - var cr$p = match[0]; - var cr$p$p = trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, rem); + let match = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r); + let cr$p = match[0]; + let cr$p$p = trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, rem); if (is_eps(cr$p$p)) { return cr$p; } else if (is_eps(cr$p)) { @@ -2576,7 +2568,7 @@ function trans_seq(ids, kind, ign_group, ign_case, greedy, pos, cache, c, x) { return seq$1(ids, match[1], cr$p, cr$p$p); } } - var match$1 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r); + let match$1 = translate(ids, kind, ign_group, ign_case, greedy, pos, cache, c, r); return enforce_kind(ids, kind, match$1[1], match$1[0]); } @@ -2587,173 +2579,165 @@ function case_insens(s) { function as_set(x) { if (typeof x !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2438, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2438, + 11 + ] + } + }); } if (x.TAG === "Set") { return x._0; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "ocaml_re_test.res", - 2438, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "ocaml_re_test.res", + 2438, + 11 + ] + } + }); } function handle_case(_ign_case, _x) { while(true) { - var x = _x; - var ign_case = _ign_case; + let x = _x; + let ign_case = _ign_case; if (typeof x !== "object") { return x; } switch (x.TAG) { case "Set" : - var s = x._0; + let s = x._0; return { - TAG: "Set", - _0: ign_case ? case_insens(s) : s - }; + TAG: "Set", + _0: ign_case ? case_insens(s) : s + }; case "Sequence" : return { - TAG: "Sequence", - _0: List.map((function(ign_case){ - return function (param) { - return handle_case(ign_case, param); - } - }(ign_case)), x._0) - }; + TAG: "Sequence", + _0: List.map((function (param) { + return handle_case(ign_case, param); + }), x._0) + }; case "Alternative" : - var l$p = List.map((function(ign_case){ - return function (param) { - return handle_case(ign_case, param); - } - }(ign_case)), x._0); + let l$p = List.map((function (param) { + return handle_case(ign_case, param); + }), x._0); if (is_charset({ - TAG: "Alternative", - _0: l$p - })) { + TAG: "Alternative", + _0: l$p + })) { return { - TAG: "Set", - _0: List.fold_left((function (s, r) { - return union(s, as_set(r)); - }), /* [] */0, l$p) - }; + TAG: "Set", + _0: List.fold_left((function (s, r) { + return union(s, as_set(r)); + }), /* [] */0, l$p) + }; } else { return { - TAG: "Alternative", - _0: l$p - }; + TAG: "Alternative", + _0: l$p + }; } case "Repeat" : return { - TAG: "Repeat", - _0: handle_case(ign_case, x._0), - _1: x._1, - _2: x._2 - }; + TAG: "Repeat", + _0: handle_case(ign_case, x._0), + _1: x._1, + _2: x._2 + }; case "Sem" : - var r$p = handle_case(ign_case, x._1); + let r$p = handle_case(ign_case, x._1); if (is_charset(r$p)) { return r$p; } else { return { - TAG: "Sem", - _0: x._0, - _1: r$p - }; + TAG: "Sem", + _0: x._0, + _1: r$p + }; } case "Sem_greedy" : - var r$p$1 = handle_case(ign_case, x._1); + let r$p$1 = handle_case(ign_case, x._1); if (is_charset(r$p$1)) { return r$p$1; } else { return { - TAG: "Sem_greedy", - _0: x._0, - _1: r$p$1 - }; + TAG: "Sem_greedy", + _0: x._0, + _1: r$p$1 + }; } case "Group" : return { - TAG: "Group", - _0: handle_case(ign_case, x._0) - }; + TAG: "Group", + _0: handle_case(ign_case, x._0) + }; case "No_group" : - var r$p$2 = handle_case(ign_case, x._0); + let r$p$2 = handle_case(ign_case, x._0); if (is_charset(r$p$2)) { return r$p$2; } else { return { - TAG: "No_group", - _0: r$p$2 - }; + TAG: "No_group", + _0: r$p$2 + }; } case "Nest" : - var r$p$3 = handle_case(ign_case, x._0); + let r$p$3 = handle_case(ign_case, x._0); if (is_charset(r$p$3)) { return r$p$3; } else { return { - TAG: "Nest", - _0: r$p$3 - }; + TAG: "Nest", + _0: r$p$3 + }; } case "Case" : _x = x._0; _ign_case = false; - continue ; + continue; case "No_case" : _x = x._0; _ign_case = true; - continue ; + continue; case "Intersection" : - var l$p$1 = List.map((function(ign_case){ - return function (r) { - return handle_case(ign_case, r); - } - }(ign_case)), x._0); + let l$p$1 = List.map((function (r) { + return handle_case(ign_case, r); + }), x._0); return { - TAG: "Set", - _0: List.fold_left((function (s, r) { - return inter(s, as_set(r)); - }), cany, l$p$1) - }; + TAG: "Set", + _0: List.fold_left((function (s, r) { + return inter(s, as_set(r)); + }), cany, l$p$1) + }; case "Complement" : - var l$p$2 = List.map((function(ign_case){ - return function (r) { - return handle_case(ign_case, r); - } - }(ign_case)), x._0); + let l$p$2 = List.map((function (r) { + return handle_case(ign_case, r); + }), x._0); return { - TAG: "Set", - _0: diff(cany, List.fold_left((function (s, r) { - return union(s, as_set(r)); - }), /* [] */0, l$p$2)) - }; + TAG: "Set", + _0: diff(cany, List.fold_left((function (s, r) { + return union(s, as_set(r)); + }), /* [] */0, l$p$2)) + }; case "Difference" : return { - TAG: "Set", - _0: inter(as_set(handle_case(ign_case, x._0)), diff(cany, as_set(handle_case(ign_case, x._1)))) - }; + TAG: "Set", + _0: inter(as_set(handle_case(ign_case, x._0)), diff(cany, as_set(handle_case(ign_case, x._1)))) + }; case "Pmark" : return { - TAG: "Pmark", - _0: x._0, - _1: handle_case(ign_case, x._1) - }; + TAG: "Pmark", + _0: x._0, + _1: handle_case(ign_case, x._1) + }; } }; @@ -2761,7 +2745,7 @@ function handle_case(_ign_case, _x) { function anchored(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { switch (x) { case "Beg_of_str" : @@ -2781,19 +2765,19 @@ function anchored(_x) { return false; } _x = x._0; - continue ; + continue; case "Group" : case "No_group" : case "Nest" : case "Case" : case "No_case" : _x = x._0; - continue ; + continue; case "Sem" : case "Sem_greedy" : case "Pmark" : _x = x._1; - continue ; + continue; default: return false; } @@ -2806,9 +2790,9 @@ function alt$1(x) { return x.hd; } else { return { - TAG: "Alternative", - _0: x - }; + TAG: "Alternative", + _0: x + }; } } @@ -2817,13 +2801,13 @@ function seq$2(x) { return x.hd; } else { return { - TAG: "Sequence", - _0: x - }; + TAG: "Sequence", + _0: x + }; } } -var epsilon = { +let epsilon = { TAG: "Sequence", _0: /* [] */0 }; @@ -2831,41 +2815,41 @@ var epsilon = { function repn(r, i, j) { if (i < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Re.repn" - } - }); - } + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.repn" + } + }); + } if (j !== undefined && j < i) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Re.repn" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.repn" + } + }); } return { - TAG: "Repeat", - _0: r, - _1: i, - _2: j - }; + TAG: "Repeat", + _0: r, + _1: i, + _2: j + }; } function set(str) { - var s = /* [] */0; - for(var i = 0 ,i_finish = str.length; i < i_finish; ++i){ + let s = /* [] */0; + for(let i = 0 ,i_finish = str.length; i < i_finish; ++i){ s = union(single(Caml_string.get(str, i)), s); } return { - TAG: "Set", - _0: s - }; + TAG: "Set", + _0: s + }; } function compl(l) { - var r = { + let r = { TAG: "Complement", _0: l }; @@ -2873,257 +2857,255 @@ function compl(l) { return r; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Re.compl" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Re.compl" + } + }); } -var any = { +let any = { TAG: "Set", _0: cany }; -var notnl = { +let notnl = { TAG: "Set", _0: diff(cany, { + hd: [ + /* '\n' */10, + /* '\n' */10 + ], + tl: /* [] */0 + }) +}; + +let lower = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* 'a' */97, /* 'z' */122) + }, + tl: { + hd: { + TAG: "Set", + _0: { hd: [ - /* '\n' */10, - /* '\n' */10 + /* '\181' */181, + /* '\181' */181 ], tl: /* [] */0 - }) -}; - -var lower = alt$1({ + } + }, + tl: { hd: { TAG: "Set", - _0: seq(/* 'a' */97, /* 'z' */122) + _0: seq(/* '\223' */223, /* '\246' */246) }, tl: { hd: { TAG: "Set", - _0: { - hd: [ - /* '\181' */181, - /* '\181' */181 - ], - tl: /* [] */0 - } + _0: seq(/* '\248' */248, /* '\255' */255) }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\223' */223, /* '\246' */246) - }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\248' */248, /* '\255' */255) - }, - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); - -var upper = alt$1({ + } + } +}); + +let upper = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* 'A' */65, /* 'Z' */90) + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* '\192' */192, /* '\214' */214) + }, + tl: { hd: { TAG: "Set", - _0: seq(/* 'A' */65, /* 'Z' */90) + _0: seq(/* '\216' */216, /* '\222' */222) }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\192' */192, /* '\214' */214) - }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\216' */216, /* '\222' */222) - }, - tl: /* [] */0 - } - } - }); + tl: /* [] */0 + } + } +}); -var alpha = alt$1({ - hd: lower, - tl: { - hd: upper, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '\170' */170, - /* '\170' */170 - ], - tl: /* [] */0 - } - }, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '\186' */186, - /* '\186' */186 - ], - tl: /* [] */0 - } - }, - tl: /* [] */0 - } +let alpha = alt$1({ + hd: lower, + tl: { + hd: upper, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '\170' */170, + /* '\170' */170 + ], + tl: /* [] */0 } - } - }); - -var digit = { - TAG: "Set", - _0: seq(/* '0' */48, /* '9' */57) -}; - -var alnum = alt$1({ - hd: alpha, - tl: { - hd: digit, - tl: /* [] */0 - } - }); - -var wordc = alt$1({ - hd: alnum, + }, tl: { hd: { TAG: "Set", _0: { hd: [ - /* '_' */95, - /* '_' */95 + /* '\186' */186, + /* '\186' */186 ], tl: /* [] */0 } }, tl: /* [] */0 } - }); + } + } +}); -var ascii = { +let digit = { TAG: "Set", - _0: seq(/* '\000' */0, /* '\127' */127) + _0: seq(/* '0' */48, /* '9' */57) }; -var blank = set("\t "); - -var cntrl = alt$1({ - hd: { - TAG: "Set", - _0: seq(/* '\000' */0, /* '\031' */31) - }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\127' */127, /* '\159' */159) - }, - tl: /* [] */0 - } - }); - -var graph = alt$1({ - hd: { - TAG: "Set", - _0: seq(/* '!' */33, /* '~' */126) - }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\160' */160, /* '\255' */255) - }, +let alnum = alt$1({ + hd: alpha, + tl: { + hd: digit, + tl: /* [] */0 + } +}); + +let wordc = alt$1({ + hd: alnum, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '_' */95, + /* '_' */95 + ], tl: /* [] */0 } - }); + }, + tl: /* [] */0 + } +}); -var print = alt$1({ - hd: { - TAG: "Set", - _0: seq(/* ' ' */32, /* '~' */126) - }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\160' */160, /* '\255' */255) - }, - tl: /* [] */0 - } - }); +let ascii = { + TAG: "Set", + _0: seq(/* '\000' */0, /* '\127' */127) +}; -var punct = alt$1({ +let blank = set("\t "); + +let cntrl = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* '\000' */0, /* '\031' */31) + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* '\127' */127, /* '\159' */159) + }, + tl: /* [] */0 + } +}); + +let graph = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* '!' */33, /* '~' */126) + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* '\160' */160, /* '\255' */255) + }, + tl: /* [] */0 + } +}); + +let print = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* ' ' */32, /* '~' */126) + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* '\160' */160, /* '\255' */255) + }, + tl: /* [] */0 + } +}); + +let punct = alt$1({ + hd: { + TAG: "Set", + _0: seq(/* '!' */33, /* '/' */47) + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* ':' */58, /* '@' */64) + }, + tl: { hd: { TAG: "Set", - _0: seq(/* '!' */33, /* '/' */47) + _0: seq(/* '[' */91, /* '`' */96) }, tl: { hd: { TAG: "Set", - _0: seq(/* ':' */58, /* '@' */64) + _0: seq(/* '{' */123, /* '~' */126) }, tl: { hd: { TAG: "Set", - _0: seq(/* '[' */91, /* '`' */96) + _0: seq(/* '\160' */160, /* '\169' */169) }, tl: { hd: { TAG: "Set", - _0: seq(/* '{' */123, /* '~' */126) + _0: seq(/* '\171' */171, /* '\180' */180) }, tl: { hd: { TAG: "Set", - _0: seq(/* '\160' */160, /* '\169' */169) + _0: seq(/* '\182' */182, /* '\185' */185) }, tl: { hd: { TAG: "Set", - _0: seq(/* '\171' */171, /* '\180' */180) + _0: seq(/* '\187' */187, /* '\191' */191) }, tl: { hd: { TAG: "Set", - _0: seq(/* '\182' */182, /* '\185' */185) + _0: { + hd: [ + /* '\215' */215, + /* '\215' */215 + ], + tl: /* [] */0 + } }, tl: { hd: { TAG: "Set", - _0: seq(/* '\187' */187, /* '\191' */191) - }, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '\215' */215, - /* '\215' */215 - ], - tl: /* [] */0 - } - }, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '\247' */247, - /* '\247' */247 - ], - tl: /* [] */0 - } - }, + _0: { + hd: [ + /* '\247' */247, + /* '\247' */247 + ], tl: /* [] */0 } - } + }, + tl: /* [] */0 } } } @@ -3131,115 +3113,117 @@ var punct = alt$1({ } } } - }); + } + } +}); -var space = alt$1({ +let space = alt$1({ + hd: { + TAG: "Set", + _0: { + hd: [ + /* ' ' */32, + /* ' ' */32 + ], + tl: /* [] */0 + } + }, + tl: { + hd: { + TAG: "Set", + _0: seq(/* '\t' */9, /* '\r' */13) + }, + tl: /* [] */0 + } +}); + +let xdigit = alt$1({ + hd: digit, + tl: { + hd: { + TAG: "Set", + _0: seq(/* 'a' */97, /* 'f' */102) + }, + tl: { hd: { TAG: "Set", - _0: { - hd: [ - /* ' ' */32, - /* ' ' */32 - ], - tl: /* [] */0 - } + _0: seq(/* 'A' */65, /* 'F' */70) }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* '\t' */9, /* '\r' */13) - }, - tl: /* [] */0 - } - }); + tl: /* [] */0 + } + } +}); -var xdigit = alt$1({ - hd: digit, +function compile(r) { + let regexp = anchored(r) ? ({ + TAG: "Group", + _0: r + }) : seq$2({ + hd: { + TAG: "Sem", + _0: "Shortest", + _1: repn(any, 0, undefined) + }, tl: { hd: { - TAG: "Set", - _0: seq(/* 'a' */97, /* 'f' */102) + TAG: "Group", + _0: r }, - tl: { - hd: { - TAG: "Set", - _0: seq(/* 'A' */65, /* 'F' */70) - }, - tl: /* [] */0 - } + tl: /* [] */0 } }); - -function compile(r) { - var regexp = anchored(r) ? ({ - TAG: "Group", - _0: r - }) : seq$2({ - hd: { - TAG: "Sem", - _0: "Shortest", - _1: repn(any, 0, undefined) - }, - tl: { - hd: { - TAG: "Group", - _0: r - }, - tl: /* [] */0 - } - }); - var regexp$1 = handle_case(false, regexp); - var c = Bytes.make(257, /* '\000' */0); - var need_lnl = colorize(c, regexp$1); - var match = flatten_cmap(c); - var ncol = match[2]; - var col = match[0]; - var lnl = need_lnl ? ncol : -1; - var ncol$1 = need_lnl ? ncol + 1 | 0 : ncol; - var ids = { + let regexp$1 = handle_case(false, regexp); + let c = Bytes.make(257, /* '\000' */0); + let need_lnl = colorize(c, regexp$1); + let match = flatten_cmap(c); + let ncol = match[2]; + let col = match[0]; + let lnl = need_lnl ? ncol : -1; + let ncol$1 = need_lnl ? ncol + 1 | 0 : ncol; + let ids = { contents: 0 }; - var pos = { + let pos = { contents: 0 }; - var match$1 = translate(ids, "First", false, false, "Greedy", pos, { - contents: "Empty" - }, col, regexp$1); - var r$1 = enforce_kind(ids, "First", match$1[1], match$1[0]); - var col_repr = match[1]; - var group_count = pos.contents / 2 | 0; + let match$1 = translate(ids, "First", false, false, "Greedy", pos, { + contents: "Empty" + }, col, regexp$1); + let r$1 = enforce_kind(ids, "First", match$1[1], match$1[0]); + let col_repr = match[1]; + let group_count = pos.contents / 2 | 0; return { - initial: r$1, - initial_states: /* [] */0, - cols: col, - col_repr: col_repr, - ncol: ncol$1, - lnl: lnl, - tbl: { - contents: [false] - }, - states: Curry._1(Re_automata_State.Table.create, 97), - group_count: group_count - }; + initial: r$1, + initial_states: /* [] */0, + cols: col, + col_repr: col_repr, + ncol: ncol$1, + lnl: lnl, + tbl: { + contents: [false] + }, + states: Curry._1(Re_automata_State.Table.create, 97), + group_count: group_count + }; } function exec_internal(name, posOpt, lenOpt, groups, re, s) { - var pos = posOpt !== undefined ? posOpt : 0; - var len = lenOpt !== undefined ? lenOpt : -1; + let pos = posOpt !== undefined ? posOpt : 0; + let len = lenOpt !== undefined ? lenOpt : -1; if (pos < 0 || len < -1 || (pos + len | 0) > s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: name - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: name + } + }); } - var partial = false; - var slen = s.length; - var last = len === -1 ? slen : pos + len | 0; - var tmp; + let partial = false; + let slen = s.length; + let last = len === -1 ? slen : pos + len | 0; + let tmp; if (groups) { - var n = re.tbl.contents.length + 1 | 0; + let n = re.tbl.contents.length + 1 | 0; tmp = n <= 10 ? [ 0, 0, @@ -3255,22 +3239,22 @@ function exec_internal(name, posOpt, lenOpt, groups, re, s) { } else { tmp = []; } - var info = { + let info = { re: re, i_cols: re.cols, positions: tmp, pos: pos, last: last }; - var initial_cat = pos === 0 ? Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, Re_automata_Category.inexistant) : Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, category(re, get_color(re, s, pos - 1 | 0))); - var initial_state = find_initial_state(re, initial_cat); - var st = scan_str(info, s, initial_state, groups); - var res; + let initial_cat = pos === 0 ? Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, Re_automata_Category.inexistant) : Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, category(re, get_color(re, s, pos - 1 | 0))); + let initial_state = find_initial_state(re, initial_cat); + let st = scan_str(info, s, initial_state, groups); + let res; if (st.idx === -3 || partial) { res = status(st.desc); } else { - var final_cat = last === slen ? Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, Re_automata_Category.inexistant) : Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, category(re, get_color(re, s, last))); - var match = $$final(info, st, final_cat); + let final_cat = last === slen ? Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, Re_automata_Category.inexistant) : Curry._2(Re_automata_Category.$plus$plus, Re_automata_Category.search_boundary, category(re, get_color(re, s, last))); + let match = $$final(info, st, final_cat); if (groups) { Caml_array.set(info.positions, match[0], last + 1 | 0); } @@ -3284,51 +3268,51 @@ function exec_internal(name, posOpt, lenOpt, groups, re, s) { } } else { return { - TAG: "Match", - _0: { - s: s, - marks: res._0, - pmarks: res._1, - gpos: info.positions, - gcount: re.group_count - } - }; + TAG: "Match", + _0: { + s: s, + marks: res._0, + pmarks: res._1, + gpos: info.positions, + gcount: re.group_count + } + }; } } function offset$1(t, i) { if (((i << 1) + 1 | 0) >= t.marks.length) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var m1 = Caml_array.get(t.marks, (i << 1)); + let m1 = Caml_array.get(t.marks, (i << 1)); if (m1 === -1) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var p1 = Caml_array.get(t.gpos, m1) - 1 | 0; - var p2 = Caml_array.get(t.gpos, Caml_array.get(t.marks, (i << 1) + 1 | 0)) - 1 | 0; + let p1 = Caml_array.get(t.gpos, m1) - 1 | 0; + let p2 = Caml_array.get(t.gpos, Caml_array.get(t.marks, (i << 1) + 1 | 0)) - 1 | 0; return [ - p1, - p2 - ]; + p1, + p2 + ]; } function get(t, i) { - var match = offset$1(t, i); - var p1 = match[0]; + let match = offset$1(t, i); + let p1 = match[0]; return $$String.sub(t.s, p1, match[1] - p1 | 0); } -var Parse_error = /* @__PURE__ */Caml_exceptions.create("Parse_error"); +let Parse_error = /* @__PURE__ */Caml_exceptions.create("Parse_error"); -var Not_supported = /* @__PURE__ */Caml_exceptions.create("Not_supported"); +let Not_supported = /* @__PURE__ */Caml_exceptions.create("Not_supported"); function posix_class_of_string(x) { switch (x) { @@ -3359,93 +3343,93 @@ function posix_class_of_string(x) { case "xdigit" : return xdigit; default: - var s = "Invalid pcre class: " + x; + let s = "Invalid pcre class: " + x; throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } } function parse(multiline, dollar_endonly, dotall, ungreedy, s) { - var i = { + let i = { contents: 0 }; - var l = s.length; - var test = function (c) { + let l = s.length; + let test = function (c) { if (i.contents !== l) { return Caml_string.get(s, i.contents) === c; } else { return false; } }; - var accept = function (c) { - var r = test(c); + let accept = function (c) { + let r = test(c); if (r) { i.contents = i.contents + 1 | 0; } return r; }; - var accept_s = function (s$p) { - var len = s$p.length; + let accept_s = function (s$p) { + let len = s$p.length; try { - for(var j = 0; j < len; ++j){ + for(let j = 0; j < len; ++j){ try { if (Caml_string.get(s$p, j) !== Caml_string.get(s, i.contents + j | 0)) { throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } catch (exn){ throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } i.contents = i.contents + len | 0; return true; } catch (raw_exn){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn$1.RE_EXN_ID === Pervasives.Exit) { return false; } throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } }; - var get = function (param) { - var r = Caml_string.get(s, i.contents); + let get = function (param) { + let r = Caml_string.get(s, i.contents); i.contents = i.contents + 1 | 0; return r; }; - var greedy_mod = function (r) { - var gr = accept(/* '?' */63); - var gr$1 = ungreedy ? !gr : gr; + let greedy_mod = function (r) { + let gr = accept(/* '?' */63); + let gr$1 = ungreedy ? !gr : gr; if (gr$1) { return { - TAG: "Sem_greedy", - _0: "Non_greedy", - _1: r - }; + TAG: "Sem_greedy", + _0: "Non_greedy", + _1: r + }; } else { return { - TAG: "Sem_greedy", - _0: "Greedy", - _1: r - }; + TAG: "Sem_greedy", + _0: "Greedy", + _1: r + }; } }; - var atom = function (param) { + let atom = function (param) { if (accept(/* '.' */46)) { if (dotall) { return any; @@ -3456,45 +3440,45 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (accept(/* '(' */40)) { if (accept(/* '?' */63)) { if (accept(/* ':' */58)) { - var r = regexp$p(branch$p(/* [] */0)); + let r = regexp$p(branch$p(/* [] */0)); if (!accept(/* ')' */41)) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return r; } if (accept(/* '#' */35)) { - var _param; + let _param; while(true) { if (accept(/* ')' */41)) { return epsilon; } i.contents = i.contents + 1 | 0; _param = undefined; - continue ; + continue; }; } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var r$1 = regexp$p(branch$p(/* [] */0)); + let r$1 = regexp$p(branch$p(/* [] */0)); if (!accept(/* ')' */41)) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return { - TAG: "Group", - _0: r$1 - }; + TAG: "Group", + _0: r$1 + }; } if (accept(/* '^' */94)) { if (multiline) { @@ -3522,12 +3506,12 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (accept(/* '\\' */92)) { if (i.contents === l) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var c = get(); + let c = get(); switch (c) { case 48 : case 49 : @@ -3540,74 +3524,74 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 56 : case 57 : throw new Error(Not_supported, { - cause: { - RE_EXN_ID: Not_supported - } - }); + cause: { + RE_EXN_ID: Not_supported + } + }); case 65 : return "Beg_of_str"; case 66 : return "Not_bound"; case 68 : return compl({ - hd: digit, - tl: /* [] */0 - }); + hd: digit, + tl: /* [] */0 + }); case 71 : return "Start"; case 83 : return compl({ - hd: space, - tl: /* [] */0 - }); + hd: space, + tl: /* [] */0 + }); case 87 : return compl({ - hd: alnum, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '_' */95, - /* '_' */95 - ], - tl: /* [] */0 - } - }, - tl: /* [] */0 - } - }); + hd: alnum, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '_' */95, + /* '_' */95 + ], + tl: /* [] */0 + } + }, + tl: /* [] */0 + } + }); case 90 : return "Last_end_of_line"; case 98 : return alt$1({ - hd: "Beg_of_word", - tl: { - hd: "End_of_word", - tl: /* [] */0 - } - }); + hd: "Beg_of_word", + tl: { + hd: "End_of_word", + tl: /* [] */0 + } + }); case 100 : return digit; case 115 : return space; case 119 : return alt$1({ - hd: alnum, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '_' */95, - /* '_' */95 - ], - tl: /* [] */0 - } - }, - tl: /* [] */0 - } - }); + hd: alnum, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '_' */95, + /* '_' */95 + ], + tl: /* [] */0 + } + }, + tl: /* [] */0 + } + }); case 67 : case 69 : case 70 : @@ -3649,156 +3633,154 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 120 : case 121 : throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); case 122 : return "End_of_str"; default: return { - TAG: "Set", - _0: single(c) - }; + TAG: "Set", + _0: single(c) + }; } } else { if (i.contents === l) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var c$1 = get(); + let c$1 = get(); if (c$1 >= 64) { if (c$1 !== 92) { if (c$1 !== 123) { return { - TAG: "Set", - _0: single(c$1) - }; + TAG: "Set", + _0: single(c$1) + }; } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } if (c$1 >= 44) { if (c$1 >= 63) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return { - TAG: "Set", - _0: single(c$1) - }; + TAG: "Set", + _0: single(c$1) + }; } if (c$1 >= 42) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return { - TAG: "Set", - _0: single(c$1) - }; + TAG: "Set", + _0: single(c$1) + }; } }; - var integer = function (param) { + let integer = function (param) { if (i.contents === l) { - return ; + return; } - var d = get(); + let d = get(); if (d > 57 || d < 48) { i.contents = i.contents - 1 | 0; - return ; + return; } else { - var _i = d - /* '0' */48 | 0; + let _i = d - /* '0' */48 | 0; while(true) { - var i$1 = _i; + let i$1 = _i; if (i.contents === l) { return i$1; } - var d$1 = get(); + let d$1 = get(); if (d$1 > 57 || d$1 < 48) { i.contents = i.contents - 1 | 0; return i$1; } - var i$p = Math.imul(10, i$1) + (d$1 - /* '0' */48 | 0) | 0; + let i$p = Math.imul(10, i$1) + (d$1 - /* '0' */48 | 0) | 0; if (i$p < i$1) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } _i = i$p; - continue ; + continue; }; } }; - var $$char = function (param) { + let $$char = function (param) { if (i.contents === l) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var c = get(); + let c = get(); if (c === /* '[' */91) { if (accept(/* '=' */61)) { throw new Error(Not_supported, { - cause: { - RE_EXN_ID: Not_supported - } - }); + cause: { + RE_EXN_ID: Not_supported + } + }); } if (accept(/* ':' */58)) { - var compl$1 = accept(/* '^' */94); - var cls; + let compl$1 = accept(/* '^' */94); + let cls; try { cls = List.find(accept_s, { - hd: "alnum", + hd: "alnum", + tl: { + hd: "ascii", + tl: { + hd: "blank", tl: { - hd: "ascii", + hd: "cntrl", tl: { - hd: "blank", + hd: "digit", tl: { - hd: "cntrl", + hd: "lower", tl: { - hd: "digit", + hd: "print", tl: { - hd: "lower", + hd: "space", tl: { - hd: "print", + hd: "upper", tl: { - hd: "space", + hd: "word", tl: { - hd: "upper", + hd: "punct", tl: { - hd: "word", + hd: "graph", tl: { - hd: "punct", - tl: { - hd: "graph", - tl: { - hd: "xdigit", - tl: /* [] */0 - } - } + hd: "xdigit", + tl: /* [] */0 } } } @@ -3809,122 +3791,124 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { } } } - }); + } + } + }); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } if (!accept_s(":]")) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var posix_class = posix_class_of_string(cls); - var re = compl$1 ? compl({ - hd: posix_class, - tl: /* [] */0 - }) : posix_class; + let posix_class = posix_class_of_string(cls); + let re = compl$1 ? compl({ + hd: posix_class, + tl: /* [] */0 + }) : posix_class; return { - NAME: "Set", - VAL: re - }; + NAME: "Set", + VAL: re + }; } if (!accept(/* '.' */46)) { return { - NAME: "Char", - VAL: c - }; + NAME: "Char", + VAL: c + }; } if (i.contents === l) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } - var c$1 = get(); + let c$1 = get(); if (!accept(/* '.' */46)) { throw new Error(Not_supported, { - cause: { - RE_EXN_ID: Not_supported - } - }); + cause: { + RE_EXN_ID: Not_supported + } + }); } if (!accept(/* ']' */93)) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return { - NAME: "Char", - VAL: c$1 - }; + NAME: "Char", + VAL: c$1 + }; } if (c !== /* '\\' */92) { return { - NAME: "Char", - VAL: c - }; + NAME: "Char", + VAL: c + }; } - var c$2 = get(); + let c$2 = get(); if (c$2 >= 58) { if (c$2 >= 123) { return { - NAME: "Char", - VAL: c$2 - }; + NAME: "Char", + VAL: c$2 + }; } switch (c$2) { case 68 : return { - NAME: "Set", - VAL: compl({ - hd: digit, - tl: /* [] */0 - }) - }; + NAME: "Set", + VAL: compl({ + hd: digit, + tl: /* [] */0 + }) + }; case 83 : return { - NAME: "Set", - VAL: compl({ - hd: space, - tl: /* [] */0 - }) - }; + NAME: "Set", + VAL: compl({ + hd: space, + tl: /* [] */0 + }) + }; case 87 : return { - NAME: "Set", - VAL: compl({ - hd: alnum, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '_' */95, - /* '_' */95 - ], - tl: /* [] */0 - } - }, - tl: /* [] */0 - } - }) - }; + NAME: "Set", + VAL: compl({ + hd: alnum, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '_' */95, + /* '_' */95 + ], + tl: /* [] */0 + } + }, + tl: /* [] */0 + } + }) + }; case 58 : case 59 : case 60 : @@ -3939,59 +3923,59 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 95 : case 96 : return { - NAME: "Char", - VAL: c$2 - }; + NAME: "Char", + VAL: c$2 + }; case 98 : return { - NAME: "Char", - VAL: /* '\b' */8 - }; + NAME: "Char", + VAL: /* '\b' */8 + }; case 100 : return { - NAME: "Set", - VAL: digit - }; + NAME: "Set", + VAL: digit + }; case 110 : return { - NAME: "Char", - VAL: /* '\n' */10 - }; + NAME: "Char", + VAL: /* '\n' */10 + }; case 114 : return { - NAME: "Char", - VAL: /* '\r' */13 - }; + NAME: "Char", + VAL: /* '\r' */13 + }; case 115 : return { - NAME: "Set", - VAL: space - }; + NAME: "Set", + VAL: space + }; case 116 : return { - NAME: "Char", - VAL: /* '\t' */9 - }; + NAME: "Char", + VAL: /* '\t' */9 + }; case 119 : return { - NAME: "Set", - VAL: alt$1({ - hd: alnum, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '_' */95, - /* '_' */95 - ], - tl: /* [] */0 - } - }, - tl: /* [] */0 - } - }) - }; + NAME: "Set", + VAL: alt$1({ + hd: alnum, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '_' */95, + /* '_' */95 + ], + tl: /* [] */0 + } + }, + tl: /* [] */0 + } + }) + }; case 65 : case 66 : case 67 : @@ -4035,81 +4019,81 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { case 121 : case 122 : throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } } else { if (c$2 >= 48) { throw new Error(Not_supported, { - cause: { - RE_EXN_ID: Not_supported - } - }); + cause: { + RE_EXN_ID: Not_supported + } + }); } return { - NAME: "Char", - VAL: c$2 - }; + NAME: "Char", + VAL: c$2 + }; } }; - var bracket = function (_s) { + let bracket = function (_s) { while(true) { - var s = _s; + let s = _s; if (s !== /* [] */0 && accept(/* ']' */93)) { return s; } - var match = $$char(); + let match = $$char(); if (match.NAME === "Char") { - var c = match.VAL; + let c = match.VAL; if (accept(/* '-' */45)) { if (accept(/* ']' */93)) { return { - hd: { - TAG: "Set", - _0: single(c) - }, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '-' */45, - /* '-' */45 - ], - tl: /* [] */0 - } - }, - tl: s - } - }; + hd: { + TAG: "Set", + _0: single(c) + }, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '-' */45, + /* '-' */45 + ], + tl: /* [] */0 + } + }, + tl: s + } + }; } - var match$1 = $$char(); + let match$1 = $$char(); if (match$1.NAME !== "Char") { return { - hd: { - TAG: "Set", - _0: single(c) - }, - tl: { - hd: { - TAG: "Set", - _0: { - hd: [ - /* '-' */45, - /* '-' */45 - ], - tl: /* [] */0 - } - }, - tl: { - hd: match$1.VAL, - tl: s - } - } - }; + hd: { + TAG: "Set", + _0: single(c) + }, + tl: { + hd: { + TAG: "Set", + _0: { + hd: [ + /* '-' */45, + /* '-' */45 + ], + tl: /* [] */0 + } + }, + tl: { + hd: match$1.VAL, + tl: s + } + } + }; } _s = { hd: { @@ -4118,7 +4102,7 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }, tl: s }; - continue ; + continue; } _s = { hd: { @@ -4127,17 +4111,17 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { }, tl: s }; - continue ; + continue; } _s = { hd: match.VAL, tl: s }; - continue ; + continue; }; }; - var piece = function (param) { - var r = atom(); + let piece = function (param) { + let r = atom(); if (accept(/* '*' */42)) { return greedy_mod(repn(r, 0, undefined)); } @@ -4150,31 +4134,31 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { if (!accept(/* '{' */123)) { return r; } - var i$1 = integer(); + let i$1 = integer(); if (i$1 !== undefined) { - var j = accept(/* ',' */44) ? integer() : i$1; + let j = accept(/* ',' */44) ? integer() : i$1; if (!accept(/* '}' */125)) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } if (j !== undefined && j < i$1) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return greedy_mod(repn(r, i$1, j)); } i.contents = i.contents - 1 | 0; return r; }; - var branch$p = function (_left) { + let branch$p = function (_left) { while(true) { - var left = _left; + let left = _left; if (i.contents === l || test(/* '|' */124) || test(/* ')' */41)) { return seq$2(List.rev(left)); } @@ -4182,88 +4166,88 @@ function parse(multiline, dollar_endonly, dotall, ungreedy, s) { hd: piece(), tl: left }; - continue ; + continue; }; }; - var regexp$p = function (_left) { + let regexp$p = function (_left) { while(true) { - var left = _left; + let left = _left; if (!accept(/* '|' */124)) { return left; } _left = alt$1({ - hd: left, - tl: { - hd: branch$p(/* [] */0), - tl: /* [] */0 - } - }); - continue ; + hd: left, + tl: { + hd: branch$p(/* [] */0), + tl: /* [] */0 + } + }); + continue; }; }; - var res = regexp$p(branch$p(/* [] */0)); + let res = regexp$p(branch$p(/* [] */0)); if (i.contents !== l) { throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); } return res; } function re(flagsOpt, pat) { - var flags = flagsOpt !== undefined ? flagsOpt : /* [] */0; - var opts = List.map((function (x) { - if (x === "CASELESS") { - return "Caseless"; - } else if (x === "ANCHORED") { - return "Anchored"; - } else { - return "Multiline"; - } - }), flags); - var optsOpt = opts; - var opts$1 = optsOpt !== undefined ? optsOpt : /* [] */0; - var r = parse(List.memq("Multiline", opts$1), List.memq("Dollar_endonly", opts$1), List.memq("Dotall", opts$1), List.memq("Ungreedy", opts$1), pat); - var r$1 = List.memq("Anchored", opts$1) ? seq$2({ - hd: "Start", - tl: { - hd: r, - tl: /* [] */0 - } - }) : r; + let flags = flagsOpt !== undefined ? flagsOpt : /* [] */0; + let opts = List.map((function (x) { + if (x === "CASELESS") { + return "Caseless"; + } else if (x === "ANCHORED") { + return "Anchored"; + } else { + return "Multiline"; + } + }), flags); + let optsOpt = opts; + let opts$1 = optsOpt !== undefined ? optsOpt : /* [] */0; + let r = parse(List.memq("Multiline", opts$1), List.memq("Dollar_endonly", opts$1), List.memq("Dotall", opts$1), List.memq("Ungreedy", opts$1), pat); + let r$1 = List.memq("Anchored", opts$1) ? seq$2({ + hd: "Start", + tl: { + hd: r, + tl: /* [] */0 + } + }) : r; if (List.memq("Caseless", opts$1)) { return { - TAG: "No_case", - _0: r$1 - }; + TAG: "No_case", + _0: r$1 + }; } else { return r$1; } } function exec(rex, pos, s) { - var len; - var substr = exec_internal("Re.exec", pos, len, true, rex, s); + let len; + let substr = exec_internal("Re.exec", pos, len, true, rex, s); if (typeof substr === "object") { return substr._0; } if (substr === "Failed") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var s = "a".repeat(1048575) + "b"; +let s = "a".repeat(1048575) + "b"; eq("File \"ocaml_re_test.res\", line 3843, characters 7-14", get(exec(compile(re(undefined, "aa?b")), undefined, s), 0), "aab"); diff --git a/jscomp/test/offset.js b/jscomp/test/offset.js index a966ae65dc..f14004e9c2 100644 --- a/jscomp/test/offset.js +++ b/jscomp/test/offset.js @@ -1,11 +1,11 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var $$String = require("../../lib/js/string.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let $$String = require("../../lib/js/string.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function height(param) { if (typeof param !== "object") { @@ -16,36 +16,36 @@ function height(param) { } function create(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -53,32 +53,32 @@ function bal(l, v, r) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -86,39 +86,39 @@ function bal(l, v, r) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { @@ -128,12 +128,12 @@ function add(x, param) { function singleton(x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } function add_min_element(x, param) { @@ -156,11 +156,11 @@ function join(l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -172,82 +172,82 @@ function join(l, v, r) { function min_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; } function min_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; } function max_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; } function max_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; } function remove_min_elt(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -268,36 +268,36 @@ function concat(t1, t2) { function split(x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; + "Empty", + false, + "Empty" + ]; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; } function is_empty(param) { @@ -310,16 +310,16 @@ function is_empty(param) { function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Caml.string_compare(x, param.v); + let c = Caml.string_compare(x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -327,10 +327,10 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -341,14 +341,14 @@ function remove(x, param) { } } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -360,24 +360,24 @@ function union(s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); } @@ -388,11 +388,11 @@ function inter(s1, s2) { if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { @@ -407,11 +407,11 @@ function diff(s1, s2) { if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { @@ -421,8 +421,8 @@ function diff(s1, s2) { function cons_enum(_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -433,16 +433,16 @@ function cons_enum(_s, _e) { _2: e }; _s = s.l; - continue ; + continue; }; } function compare(s1, s2) { - var _e1 = cons_enum(s1, "End"); - var _e2 = cons_enum(s2, "End"); + let _e1 = cons_enum(s1, "End"); + let _e2 = cons_enum(s2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -453,13 +453,13 @@ function compare(s1, s2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.string_compare(e1._0, e2._0); + let c = Caml.string_compare(e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; } @@ -469,84 +469,84 @@ function equal(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Caml.string_compare(v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Caml.string_compare(v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; } function fold(f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -557,13 +557,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -574,7 +574,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -582,12 +582,12 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -602,28 +602,28 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; + "Empty", + "Empty" + ]; } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } } @@ -637,8 +637,8 @@ function cardinal(param) { function elements_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -647,7 +647,7 @@ function elements_aux(_accu, _param) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; } @@ -657,169 +657,169 @@ function elements(s) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Caml.string_compare(x, v); + let v = param.v; + let c = Caml.string_compare(x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Caml.string_compare(x, v); + let v = param.v; + let c = Caml.string_compare(x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -827,12 +827,12 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else if ((l$p === "Empty" || Caml.string_compare(max_elt(l$p), v$p) < 0) && (r$p === "Empty" || Caml.string_compare(v$p, min_elt(r$p)) < 0)) { @@ -846,99 +846,99 @@ function of_list(l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { - var l$1 = List.sort_uniq($$String.compare, l); - var sub = function (n, l) { + let l$1 = List.sort_uniq($$String.compare, l); + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -948,26 +948,26 @@ function of_list(l) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -978,7 +978,7 @@ function of_list(l) { } } -var $$Set = { +let $$Set = { empty: "Empty", is_empty: is_empty, mem: mem, @@ -1016,12 +1016,12 @@ var $$Set = { of_list: of_list }; -var M = { +let M = { x: 1, $$Set: $$Set }; -var x = 1; +let x = 1; exports.M = M; exports.x = x; diff --git a/jscomp/test/pq_test.js b/jscomp/test/pq_test.js index ed472c30a5..4888a86070 100644 --- a/jscomp/test/pq_test.js +++ b/jscomp/test/pq_test.js @@ -1,97 +1,97 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); function insert(queue, prio, elt) { if (typeof queue !== "object") { return { - TAG: "Node", - _0: prio, - _1: elt, - _2: "Empty", - _3: "Empty" - }; + TAG: "Node", + _0: prio, + _1: elt, + _2: "Empty", + _3: "Empty" + }; } - var right = queue._3; - var left = queue._2; - var e = queue._1; - var p = queue._0; + let right = queue._3; + let left = queue._2; + let e = queue._1; + let p = queue._0; if (prio <= p) { return { - TAG: "Node", - _0: prio, - _1: elt, - _2: insert(right, p, e), - _3: left - }; + TAG: "Node", + _0: prio, + _1: elt, + _2: insert(right, p, e), + _3: left + }; } else { return { - TAG: "Node", - _0: p, - _1: e, - _2: insert(right, prio, elt), - _3: left - }; + TAG: "Node", + _0: p, + _1: e, + _2: insert(right, prio, elt), + _3: left + }; } } -var Queue_is_empty = /* @__PURE__ */Caml_exceptions.create("Pq_test.PrioQueue.Queue_is_empty"); +let Queue_is_empty = /* @__PURE__ */Caml_exceptions.create("Pq_test.PrioQueue.Queue_is_empty"); function remove_top(x) { if (typeof x !== "object") { throw new Error(Queue_is_empty, { - cause: { - RE_EXN_ID: Queue_is_empty - } - }); + cause: { + RE_EXN_ID: Queue_is_empty + } + }); } - var left = x._2; - var tmp = x._3; + let left = x._2; + let tmp = x._3; if (typeof tmp !== "object") { return left; } if (typeof left !== "object") { return x._3; } - var right = x._3; - var rprio = right._0; - var lprio = left._0; + let right = x._3; + let rprio = right._0; + let lprio = left._0; if (lprio <= rprio) { return { - TAG: "Node", - _0: lprio, - _1: left._1, - _2: remove_top(left), - _3: right - }; + TAG: "Node", + _0: lprio, + _1: left._1, + _2: remove_top(left), + _3: right + }; } else { return { - TAG: "Node", - _0: rprio, - _1: right._1, - _2: left, - _3: remove_top(right) - }; + TAG: "Node", + _0: rprio, + _1: right._1, + _2: left, + _3: remove_top(right) + }; } } function extract(x) { if (typeof x === "object") { return [ - x._0, - x._1, - remove_top(x) - ]; + x._0, + x._1, + remove_top(x) + ]; } throw new Error(Queue_is_empty, { - cause: { - RE_EXN_ID: Queue_is_empty - } - }); + cause: { + RE_EXN_ID: Queue_is_empty + } + }); } -var PrioQueue = { +let PrioQueue = { empty: "Empty", insert: insert, Queue_is_empty: Queue_is_empty, diff --git a/jscomp/test/queue_402.js b/jscomp/test/queue_402.js index e90ba1566e..ed21a89983 100644 --- a/jscomp/test/queue_402.js +++ b/jscomp/test/queue_402.js @@ -1,17 +1,17 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Empty = /* @__PURE__ */Caml_exceptions.create("Queue_402.Empty"); +let Empty = /* @__PURE__ */Caml_exceptions.create("Queue_402.Empty"); function create(param) { return { - length: 0, - tail: undefined - }; + length: 0, + tail: undefined + }; } function clear(q) { @@ -21,16 +21,16 @@ function clear(q) { function add(x, q) { if (q.length === 0) { - var cell = {}; + let cell = {}; cell.content = x; cell.next = cell; q.length = 1; q.tail = cell; - return ; + return; } - var tail = q.tail; - var head = tail.next; - var cell$1 = { + let tail = q.tail; + let head = tail.next; + let cell$1 = { content: x, next: head }; @@ -42,10 +42,10 @@ function add(x, q) { function peek(q) { if (q.length === 0) { throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } return q.tail.next.content; } @@ -53,14 +53,14 @@ function peek(q) { function take(q) { if (q.length === 0) { throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } q.length = q.length - 1 | 0; - var tail = q.tail; - var head = tail.next; + let tail = q.tail; + let head = tail.next; if (head === tail) { q.tail = undefined; } else { @@ -72,38 +72,38 @@ function take(q) { function copy(q) { if (q.length === 0) { return { - length: 0, - tail: undefined - }; + length: 0, + tail: undefined + }; } - var tail = q.tail; - var tail$p = {}; + let tail = q.tail; + let tail$p = {}; Caml_obj.update_dummy(tail$p, { - content: tail.content, - next: tail$p - }); - var copy$1 = function (_prev, _cell) { + content: tail.content, + next: tail$p + }); + let copy$1 = function (_prev, _cell) { while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (cell === tail) { - return ; + return; } - var res = { + let res = { content: cell.content, next: tail$p }; prev.next = res; _cell = cell.next; _prev = res; - continue ; + continue; }; }; copy$1(tail$p, tail.next); return { - length: q.length, - tail: tail$p - }; + length: q.length, + tail: tail$p + }; } function is_empty(q) { @@ -116,18 +116,18 @@ function length(q) { function iter(f, q) { if (q.length <= 0) { - return ; + return; } - var tail = q.tail; - var _cell = tail.next; + let tail = q.tail; + let _cell = tail.next; while(true) { - var cell = _cell; + let cell = _cell; Curry._1(f, cell.content); if (cell === tail) { - return ; + return; } _cell = cell.next; - continue ; + continue; }; } @@ -135,33 +135,33 @@ function fold(f, accu, q) { if (q.length === 0) { return accu; } - var tail = q.tail; - var _accu = accu; - var _cell = tail.next; + let tail = q.tail; + let _accu = accu; + let _cell = tail.next; while(true) { - var cell = _cell; - var accu$1 = _accu; - var accu$2 = Curry._2(f, accu$1, cell.content); + let cell = _cell; + let accu$1 = _accu; + let accu$2 = Curry._2(f, accu$1, cell.content); if (cell === tail) { return accu$2; } _cell = cell.next; _accu = accu$2; - continue ; + continue; }; } function transfer(q1, q2) { - var length1 = q1.length; + let length1 = q1.length; if (length1 <= 0) { - return ; + return; } - var tail1 = q1.tail; + let tail1 = q1.tail; clear(q1); if (q2.length > 0) { - var tail2 = q2.tail; - var head1 = tail1.next; - var head2 = tail2.next; + let tail2 = q2.tail; + let head1 = tail1.next; + let head2 = tail2.next; tail1.next = head2; tail2.next = head1; } @@ -169,11 +169,11 @@ function transfer(q1, q2) { q2.tail = tail1; } -var push = add; +let push = add; -var top = peek; +let top = peek; -var pop = take; +let pop = take; exports.Empty = Empty; exports.create = create; diff --git a/jscomp/test/raw_hash_tbl_bench.js b/jscomp/test/raw_hash_tbl_bench.js index 0ad9ed9aca..de9b019430 100644 --- a/jscomp/test/raw_hash_tbl_bench.js +++ b/jscomp/test/raw_hash_tbl_bench.js @@ -1,36 +1,36 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Hashtbl = require("../../lib/js/hashtbl.js"); +let Hashtbl = require("../../lib/js/hashtbl.js"); function bench(param) { - var table = Hashtbl.create(undefined, 1000000); - for(var i = 0; i <= 1000000; ++i){ + let table = Hashtbl.create(undefined, 1000000); + for(let i = 0; i <= 1000000; ++i){ Hashtbl.add(table, i, i); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ if (!Hashtbl.mem(table, i$1)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "raw_hash_tbl_bench.res", - 8, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "raw_hash_tbl_bench.res", + 8, + 4 + ] + } + }); } } - for(var i$2 = 0; i$2 <= 1000000; ++i$2){ + for(let i$2 = 0; i$2 <= 1000000; ++i$2){ Hashtbl.remove(table, i$2); } } bench(); -var count = 1000000; +let count = 1000000; exports.count = count; exports.bench = bench; diff --git a/jscomp/test/rbset.js b/jscomp/test/rbset.js index 28a09bb794..0213e644bd 100644 --- a/jscomp/test/rbset.js +++ b/jscomp/test/rbset.js @@ -5,20 +5,20 @@ function blackify(x) { if (typeof x !== "object" || x._0 === "Black") { return [ - x, - true - ]; + x, + true + ]; } else { return [ - { - TAG: "Node", - _0: "Black", - _1: x._1, - _2: x._2, - _3: x._3 - }, - false - ]; + { + TAG: "Node", + _0: "Black", + _1: x._1, + _2: x._2, + _3: x._3 + }, + false + ]; } } @@ -32,37 +32,37 @@ function is_empty(x) { function mem(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { return false; } - var y = x_._2; + let y = x_._2; if (x === y) { return true; } if (x < y) { _x_ = x_._1; - continue ; + continue; } _x_ = x_._3; - continue ; + continue; }; } function balance_left(l, x, r) { - var exit = 0; - var a; - var x$1; - var b; - var y; - var c; - var z; - var d; + let exit = 0; + let a; + let x$1; + let b; + let y; + let c; + let z; + let d; if (typeof l !== "object" || l._0 === "Black") { exit = 1; } else { - var a$1 = l._1; - var exit$1 = 0; + let a$1 = l._1; + let exit$1 = 0; if (typeof a$1 !== "object" || a$1._0 === "Black") { exit$1 = 3; } else { @@ -76,7 +76,7 @@ function balance_left(l, x, r) { exit = 2; } if (exit$1 === 3) { - var match = l._3; + let match = l._3; if (typeof match !== "object" || match._0 === "Black") { exit = 1; } else { @@ -95,50 +95,50 @@ function balance_left(l, x, r) { switch (exit) { case 1 : return { - TAG: "Node", - _0: "Black", - _1: l, - _2: x, - _3: r - }; + TAG: "Node", + _0: "Black", + _1: l, + _2: x, + _3: r + }; case 2 : return { - TAG: "Node", - _0: "Red", - _1: { - TAG: "Node", - _0: "Black", - _1: a, - _2: x$1, - _3: b - }, - _2: y, - _3: { - TAG: "Node", - _0: "Black", - _1: c, - _2: z, - _3: d - } - }; + TAG: "Node", + _0: "Red", + _1: { + TAG: "Node", + _0: "Black", + _1: a, + _2: x$1, + _3: b + }, + _2: y, + _3: { + TAG: "Node", + _0: "Black", + _1: c, + _2: z, + _3: d + } + }; } } function balance_right(l, x, r) { - var exit = 0; - var a; - var x$1; - var b; - var y; - var c; - var z; - var d; + let exit = 0; + let a; + let x$1; + let b; + let y; + let c; + let z; + let d; if (typeof r !== "object" || r._0 === "Black") { exit = 1; } else { - var b$1 = r._1; - var exit$1 = 0; + let b$1 = r._1; + let exit$1 = 0; if (typeof b$1 !== "object" || b$1._0 === "Black") { exit$1 = 3; } else { @@ -152,7 +152,7 @@ function balance_right(l, x, r) { exit = 2; } if (exit$1 === 3) { - var match = r._3; + let match = r._3; if (typeof match !== "object" || match._0 === "Black") { exit = 1; } else { @@ -171,463 +171,463 @@ function balance_right(l, x, r) { switch (exit) { case 1 : return { - TAG: "Node", - _0: "Black", - _1: l, - _2: x, - _3: r - }; + TAG: "Node", + _0: "Black", + _1: l, + _2: x, + _3: r + }; case 2 : return { - TAG: "Node", - _0: "Red", - _1: { - TAG: "Node", - _0: "Black", - _1: a, - _2: x$1, - _3: b - }, - _2: y, - _3: { - TAG: "Node", - _0: "Black", - _1: c, - _2: z, - _3: d - } - }; + TAG: "Node", + _0: "Red", + _1: { + TAG: "Node", + _0: "Black", + _1: a, + _2: x$1, + _3: b + }, + _2: y, + _3: { + TAG: "Node", + _0: "Black", + _1: c, + _2: z, + _3: d + } + }; } } function singleton(x) { return { - TAG: "Node", - _0: "Black", - _1: "Empty", - _2: x, - _3: "Empty" - }; + TAG: "Node", + _0: "Black", + _1: "Empty", + _2: x, + _3: "Empty" + }; } function unbalanced_left(x) { if (typeof x === "object") { if (x._0 === "Black") { - var match = x._1; + let match = x._1; if (typeof match === "object") { if (match._0 === "Black") { return [ - balance_left({ - TAG: "Node", - _0: "Red", - _1: match._1, - _2: match._2, - _3: match._3 - }, x._2, x._3), - true - ]; + balance_left({ + TAG: "Node", + _0: "Red", + _1: match._1, + _2: match._2, + _3: match._3 + }, x._2, x._3), + true + ]; } - var match$1 = match._3; + let match$1 = match._3; if (typeof match$1 === "object" && match$1._0 === "Black") { return [ - { - TAG: "Node", - _0: "Black", - _1: match._1, - _2: match._2, - _3: balance_left({ - TAG: "Node", - _0: "Red", - _1: match$1._1, - _2: match$1._2, - _3: match$1._3 - }, x._2, x._3) - }, - false - ]; + { + TAG: "Node", + _0: "Black", + _1: match._1, + _2: match._2, + _3: balance_left({ + TAG: "Node", + _0: "Red", + _1: match$1._1, + _2: match$1._2, + _3: match$1._3 + }, x._2, x._3) + }, + false + ]; } } } else { - var match$2 = x._1; + let match$2 = x._1; if (typeof match$2 === "object" && match$2._0 === "Black") { return [ - balance_left({ - TAG: "Node", - _0: "Red", - _1: match$2._1, - _2: match$2._2, - _3: match$2._3 - }, x._2, x._3), - false - ]; + balance_left({ + TAG: "Node", + _0: "Red", + _1: match$2._1, + _2: match$2._2, + _3: match$2._3 + }, x._2, x._3), + false + ]; } } } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 64, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 64, + 9 + ] + } + }); } function unbalanced_right(x) { if (typeof x === "object") { if (x._0 === "Black") { - var match = x._3; - var x$1 = x._2; - var a = x._1; + let match = x._3; + let x$1 = x._2; + let a = x._1; if (typeof match === "object") { if (match._0 === "Black") { return [ - balance_right(a, x$1, { - TAG: "Node", - _0: "Red", - _1: match._1, - _2: match._2, - _3: match._3 - }), - true - ]; + balance_right(a, x$1, { + TAG: "Node", + _0: "Red", + _1: match._1, + _2: match._2, + _3: match._3 + }), + true + ]; } - var match$1 = match._1; + let match$1 = match._1; if (typeof match$1 === "object" && match$1._0 === "Black") { return [ - { - TAG: "Node", - _0: "Black", - _1: balance_right(a, x$1, { - TAG: "Node", - _0: "Red", - _1: match$1._1, - _2: match$1._2, - _3: match$1._3 - }), - _2: match._2, - _3: match._3 - }, - false - ]; + { + TAG: "Node", + _0: "Black", + _1: balance_right(a, x$1, { + TAG: "Node", + _0: "Red", + _1: match$1._1, + _2: match$1._2, + _3: match$1._3 + }), + _2: match._2, + _3: match._3 + }, + false + ]; } } } else { - var match$2 = x._3; + let match$2 = x._3; if (typeof match$2 === "object" && match$2._0 === "Black") { return [ - balance_right(x._1, x._2, { - TAG: "Node", - _0: "Red", - _1: match$2._1, - _2: match$2._2, - _3: match$2._3 - }), - false - ]; + balance_right(x._1, x._2, { + TAG: "Node", + _0: "Red", + _1: match$2._1, + _2: match$2._2, + _3: match$2._3 + }), + false + ]; } } } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 75, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 75, + 9 + ] + } + }); } function lbalance(x1, x2, x3) { if (typeof x1 !== "object") { return { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: x3 - }; + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: x3 + }; } if (x1._0 === "Black") { return { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: x3 - }; + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: x3 + }; } - var r = x1._3; - var l = x1._1; + let r = x1._3; + let l = x1._1; if (typeof l === "object" && l._0 !== "Black") { return { - TAG: "Node", - _0: "Red", - _1: { - TAG: "Node", - _0: "Black", - _1: l._1, - _2: l._2, - _3: l._3 - }, - _2: x1._2, - _3: { - TAG: "Node", - _0: "Black", - _1: r, - _2: x2, - _3: x3 - } - }; + TAG: "Node", + _0: "Red", + _1: { + TAG: "Node", + _0: "Black", + _1: l._1, + _2: l._2, + _3: l._3 + }, + _2: x1._2, + _3: { + TAG: "Node", + _0: "Black", + _1: r, + _2: x2, + _3: x3 + } + }; } if (typeof r !== "object") { return { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: x3 - }; + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: x3 + }; } if (r._0 === "Black") { return { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: x3 - }; + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: x3 + }; } - var y = r._2; + let y = r._2; return { + TAG: "Node", + _0: "Red", + _1: { + TAG: "Node", + _0: "Black", + _1: l, + _2: y, + _3: r._1 + }, + _2: y, + _3: { + TAG: "Node", + _0: "Black", + _1: r._3, + _2: x2, + _3: x3 + } + }; +} + +function rbalance(x1, x2, x3) { + if (typeof x3 === "object" && x3._0 !== "Black") { + let b = x3._1; + let exit = 0; + if (typeof b !== "object") { + exit = 2; + } else { + if (b._0 !== "Black") { + return { TAG: "Node", _0: "Red", _1: { TAG: "Node", _0: "Black", - _1: l, - _2: y, - _3: r._1 + _1: x1, + _2: x2, + _3: b._1 }, - _2: y, + _2: b._2, _3: { TAG: "Node", _0: "Black", - _1: r._3, - _2: x2, - _3: x3 + _1: b._3, + _2: x3._2, + _3: x3._3 } }; -} - -function rbalance(x1, x2, x3) { - if (typeof x3 === "object" && x3._0 !== "Black") { - var b = x3._1; - var exit = 0; - if (typeof b !== "object") { - exit = 2; - } else { - if (b._0 !== "Black") { - return { - TAG: "Node", - _0: "Red", - _1: { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: b._1 - }, - _2: b._2, - _3: { - TAG: "Node", - _0: "Black", - _1: b._3, - _2: x3._2, - _3: x3._3 - } - }; } exit = 2; } if (exit === 2) { - var match = x3._3; + let match = x3._3; if (typeof match === "object" && match._0 !== "Black") { return { - TAG: "Node", - _0: "Red", - _1: { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: b - }, - _2: x3._2, - _3: { - TAG: "Node", - _0: "Black", - _1: match._1, - _2: match._2, - _3: match._3 - } - }; + TAG: "Node", + _0: "Red", + _1: { + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: b + }, + _2: x3._2, + _3: { + TAG: "Node", + _0: "Black", + _1: match._1, + _2: match._2, + _3: match._3 + } + }; } } } return { - TAG: "Node", - _0: "Black", - _1: x1, - _2: x2, - _3: x3 - }; + TAG: "Node", + _0: "Black", + _1: x1, + _2: x2, + _3: x3 + }; } function ins(x, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Red", - _1: "Empty", - _2: x, - _3: "Empty" - }; + TAG: "Node", + _0: "Red", + _1: "Empty", + _2: x, + _3: "Empty" + }; } if (x_._0 === "Black") { - var y = x_._2; + let y = x_._2; if (x === y) { return x_; } - var b = x_._3; - var a = x_._1; + let b = x_._3; + let a = x_._1; if (x < y) { return lbalance(ins(x, a), y, b); } else { return rbalance(a, y, ins(x, b)); } } - var y$1 = x_._2; + let y$1 = x_._2; if (x === y$1) { return x_; } - var b$1 = x_._3; - var a$1 = x_._1; + let b$1 = x_._3; + let a$1 = x_._1; if (x < y$1) { return { - TAG: "Node", - _0: "Red", - _1: ins(x, a$1), - _2: y$1, - _3: b$1 - }; + TAG: "Node", + _0: "Red", + _1: ins(x, a$1), + _2: y$1, + _3: b$1 + }; } else { return { - TAG: "Node", - _0: "Red", - _1: a$1, - _2: y$1, - _3: ins(x, b$1) - }; + TAG: "Node", + _0: "Red", + _1: a$1, + _2: y$1, + _3: ins(x, b$1) + }; } } function add(x, s) { - var s$1 = ins(x, s); + let s$1 = ins(x, s); if (typeof s$1 !== "object" || s$1._0 === "Black") { return s$1; } else { return { - TAG: "Node", - _0: "Black", - _1: s$1._1, - _2: s$1._2, - _3: s$1._3 - }; + TAG: "Node", + _0: "Black", + _1: s$1._1, + _2: s$1._2, + _3: s$1._3 + }; } } function remove_min(x) { if (typeof x !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 138, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 138, + 4 + ] + } + }); } - var c = x._0; + let c = x._0; if (c === "Black") { - var tmp = x._1; + let tmp = x._1; if (typeof tmp !== "object") { - var match = x._3; - var x$1 = x._2; + let match = x._3; + let x$1 = x._2; if (typeof match !== "object") { return [ - "Empty", - x$1, - true - ]; + "Empty", + x$1, + true + ]; } if (match._0 !== "Black") { return [ - { - TAG: "Node", - _0: "Black", - _1: match._1, - _2: match._2, - _3: match._3 - }, - x$1, - false - ]; + { + TAG: "Node", + _0: "Black", + _1: match._1, + _2: match._2, + _3: match._3 + }, + x$1, + false + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "rbset.res", - 138, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "rbset.res", + 138, + 4 + ] + } + }); } } else { - var tmp$1 = x._1; + let tmp$1 = x._1; if (typeof tmp$1 !== "object") { return [ - x._3, - x._2, - false - ]; + x._3, + x._2, + false + ]; } } - var match$1 = remove_min(x._1); - var y = match$1[1]; - var s_1 = match$1[0]; - var s_2 = x._2; - var s_3 = x._3; - var s = { + let match$1 = remove_min(x._1); + let y = match$1[1]; + let s_1 = match$1[0]; + let s_2 = x._2; + let s_3 = x._3; + let s = { TAG: "Node", _0: c, _1: s_1, @@ -636,45 +636,45 @@ function remove_min(x) { }; if (!match$1[2]) { return [ - s, - y, - false - ]; + s, + y, + false + ]; } - var match$2 = unbalanced_right(s); + let match$2 = unbalanced_right(s); return [ - match$2[0], - y, - match$2[1] - ]; + match$2[0], + y, + match$2[1] + ]; } function remove_aux(x, n) { if (typeof n !== "object") { return [ - "Empty", - false - ]; + "Empty", + false + ]; } - var r = n._3; - var y = n._2; - var l = n._1; - var c = n._0; + let r = n._3; + let y = n._2; + let l = n._1; + let c = n._0; if (x === y) { if (typeof r !== "object") { if (c === "Red") { return [ - l, - false - ]; + l, + false + ]; } else { return blackify(l); } } - var match = remove_min(r); - var n_2 = match[1]; - var n_3 = match[0]; - var n$1 = { + let match = remove_min(r); + let n_2 = match[1]; + let n_3 = match[0]; + let n$1 = { TAG: "Node", _0: c, _1: l, @@ -685,15 +685,15 @@ function remove_aux(x, n) { return unbalanced_left(n$1); } else { return [ - n$1, - false - ]; + n$1, + false + ]; } } if (x < y) { - var match$1 = remove_aux(x, l); - var n_1 = match$1[0]; - var n$2 = { + let match$1 = remove_aux(x, l); + let n_1 = match$1[0]; + let n$2 = { TAG: "Node", _0: c, _1: n_1, @@ -704,14 +704,14 @@ function remove_aux(x, n) { return unbalanced_right(n$2); } else { return [ - n$2, - false - ]; + n$2, + false + ]; } } - var match$2 = remove_aux(x, r); - var n_3$1 = match$2[0]; - var n$3 = { + let match$2 = remove_aux(x, r); + let n_3$1 = match$2[0]; + let n$3 = { TAG: "Node", _0: c, _1: l, @@ -722,9 +722,9 @@ function remove_aux(x, n) { return unbalanced_left(n$3); } else { return [ - n$3, - false - ]; + n$3, + false + ]; } } @@ -740,7 +740,7 @@ function cardinal(x) { } } -var empty = "Empty"; +let empty = "Empty"; exports.blackify = blackify; exports.empty = empty; diff --git a/jscomp/test/reactDOMRe.js b/jscomp/test/reactDOMRe.js index 0799e0ab20..a8fef06588 100644 --- a/jscomp/test/reactDOMRe.js +++ b/jscomp/test/reactDOMRe.js @@ -1,11 +1,11 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var React = require("react"); -var ReactDom = require("react-dom"); +let React = require("react"); +let ReactDom = require("react-dom"); function renderToElementWithClassName(reactElement, className) { - var elements = document.getElementsByClassName(className); + let elements = document.getElementsByClassName(className); if (elements.length !== 0) { ReactDom.render(reactElement, elements[0]); } else { @@ -14,7 +14,7 @@ function renderToElementWithClassName(reactElement, className) { } function renderToElementWithId(reactElement, id) { - var element = document.getElementById(id); + let element = document.getElementById(id); if (element == null) { console.error("ReactDOMRe.renderToElementWithId : no element of id " + (id + " found in the HTML.")); } else { @@ -23,42 +23,42 @@ function renderToElementWithId(reactElement, id) { } function createRootWithClassName(className) { - var elements = document.getElementsByClassName(className); + let elements = document.getElementsByClassName(className); if (elements.length !== 0) { return { - TAG: "Ok", - _0: ReactDom.createRoot(elements[0]) - }; + TAG: "Ok", + _0: ReactDom.createRoot(elements[0]) + }; } else { return { - TAG: "Error", - _0: "ReactDOMRe.Unstable.createRootWithClassName: no element of class " + (className + " found in the HTML.") - }; + TAG: "Error", + _0: "ReactDOMRe.Unstable.createRootWithClassName: no element of class " + (className + " found in the HTML.") + }; } } function createRootWithId(id) { - var element = document.getElementById(id); + let element = document.getElementById(id); if (element == null) { return { - TAG: "Error", - _0: "ReactDOMRe.Unstable.createRootWithId: no element of id " + (id + " found in the HTML.") - }; + TAG: "Error", + _0: "ReactDOMRe.Unstable.createRootWithId: no element of id " + (id + " found in the HTML.") + }; } else { return { - TAG: "Ok", - _0: ReactDom.createRoot(element) - }; + TAG: "Ok", + _0: ReactDom.createRoot(element) + }; } } -var Experimental = { +let Experimental = { createRootWithClassName: createRootWithClassName, createRootWithId: createRootWithId }; function hydrateToElementWithClassName(reactElement, className) { - var elements = document.getElementsByClassName(className); + let elements = document.getElementsByClassName(className); if (elements.length !== 0) { ReactDom.hydrate(reactElement, elements[0]); } else { @@ -67,35 +67,35 @@ function hydrateToElementWithClassName(reactElement, className) { } function hydrateToElementWithId(reactElement, id) { - var element = document.getElementById(id); + let element = document.getElementById(id); if (element == null) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "ReactDOMRe.hydrateToElementWithId : no element of id " + (id + " found in the HTML.") - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "ReactDOMRe.hydrateToElementWithId : no element of id " + (id + " found in the HTML.") + } + }); } ReactDom.hydrate(reactElement, element); } -var Ref = {}; +let Ref = {}; function createElementVariadic(domClassName, props, children) { - var variadicArguments = [ - domClassName, - props - ].concat(children); + let variadicArguments = [ + domClassName, + props + ].concat(children); return React.createElement.apply(null, variadicArguments); } function unsafeAddProp(style, key, value) { - var dict = {}; + let dict = {}; dict[key] = value; return Object.assign({}, style, dict); } -var Style = { +let Style = { unsafeAddProp: unsafeAddProp }; diff --git a/jscomp/test/rec_module_test.js b/jscomp/test/rec_module_test.js index 9b0496c8b1..82dde281c0 100644 --- a/jscomp/test/rec_module_test.js +++ b/jscomp/test/rec_module_test.js @@ -1,11 +1,11 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Mt = require("./mt.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function even(n) { if (n === 0) { @@ -17,7 +17,7 @@ function even(n) { } } -var A = { +let A = { even: even }; @@ -31,7 +31,7 @@ function odd(n) { } } -var B = { +let B = { odd: odd }; @@ -49,7 +49,7 @@ function x(param) { return Curry._1(BB.y, undefined) + 3 | 0; } -var AA = { +let AA = { even: even$1, x: x }; @@ -68,14 +68,14 @@ function y(param) { return 32; } -var BB = { +let BB = { odd: odd$1, y: y }; -var Even = {}; +let Even = {}; -var Odd = {}; +let Odd = {}; function compare(t1, t2) { if (t1.TAG === "Leaf") { @@ -91,7 +91,7 @@ function compare(t1, t2) { } } -var AAA = { +let AAA = { compare: compare }; @@ -104,36 +104,36 @@ function height(param) { } function create(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -141,32 +141,32 @@ function bal(l, v, r) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -174,39 +174,39 @@ function bal(l, v, r) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(AAA.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(AAA.compare, x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { @@ -216,12 +216,12 @@ function add(x, param) { function singleton(x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } function add_min_element(x, param) { @@ -244,11 +244,11 @@ function join(l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -260,82 +260,82 @@ function join(l, v, r) { function min_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; } function min_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; } function max_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; } function max_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; } function remove_min_elt(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -356,36 +356,36 @@ function concat(t1, t2) { function split(x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; + "Empty", + false, + "Empty" + ]; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(AAA.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(AAA.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; } function is_empty(param) { @@ -398,16 +398,16 @@ function is_empty(param) { function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(AAA.compare, x, param.v); + let c = Curry._2(AAA.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -415,10 +415,10 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(AAA.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(AAA.compare, x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -429,14 +429,14 @@ function remove(x, param) { } } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -448,24 +448,24 @@ function union(s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); } @@ -476,11 +476,11 @@ function inter(s1, s2) { if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { @@ -495,11 +495,11 @@ function diff(s1, s2) { if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { @@ -509,8 +509,8 @@ function diff(s1, s2) { function cons_enum(_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -521,16 +521,16 @@ function cons_enum(_s, _e) { _2: e }; _s = s.l; - continue ; + continue; }; } function compare$1(s1, s2) { - var _e1 = cons_enum(s1, "End"); - var _e2 = cons_enum(s2, "End"); + let _e1 = cons_enum(s1, "End"); + let _e2 = cons_enum(s2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -541,13 +541,13 @@ function compare$1(s1, s2) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(AAA.compare, e1._0, e2._0); + let c = Curry._2(AAA.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; } @@ -557,84 +557,84 @@ function equal(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(AAA.compare, v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(AAA.compare, v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; } function fold(f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -645,13 +645,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -662,7 +662,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -670,12 +670,12 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -690,28 +690,28 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; + "Empty", + "Empty" + ]; } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } } @@ -725,8 +725,8 @@ function cardinal(param) { function elements_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -735,7 +735,7 @@ function elements_aux(_accu, _param) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; } @@ -745,169 +745,169 @@ function elements(s) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Curry._2(AAA.compare, x, v); + let v = param.v; + let c = Curry._2(AAA.compare, x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Curry._2(AAA.compare, x, v); + let v = param.v; + let c = Curry._2(AAA.compare, x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -915,12 +915,12 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else if ((l$p === "Empty" || Curry._2(AAA.compare, max_elt(l$p), v$p) < 0) && (r$p === "Empty" || Curry._2(AAA.compare, v$p, min_elt(r$p)) < 0)) { @@ -934,99 +934,99 @@ function of_list(l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { - var l$1 = List.sort_uniq(AAA.compare, l); - var sub = function (n, l) { + let l$1 = List.sort_uniq(AAA.compare, l); + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -1036,26 +1036,26 @@ function of_list(l) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -1066,7 +1066,7 @@ function of_list(l) { } } -var ASet = { +let ASet = { empty: "Empty", is_empty: is_empty, mem: mem, @@ -1104,110 +1104,110 @@ var ASet = { of_list: of_list }; -var suites_0 = [ +let suites_0 = [ "test1", (function (param) { - return { - TAG: "Eq", - _0: [ - true, - true, - false, - false - ], - _1: [ - Curry._1(A.even, 2), - Curry._1(even$1, 4), - Curry._1(B.odd, 2), - Curry._1(odd$1, 4) - ] - }; - }) + return { + TAG: "Eq", + _0: [ + true, + true, + false, + false + ], + _1: [ + Curry._1(A.even, 2), + Curry._1(even$1, 4), + Curry._1(B.odd, 2), + Curry._1(odd$1, 4) + ] + }; + }) ]; -var suites_1 = { +let suites_1 = { hd: [ "test2", (function (param) { - return { - TAG: "Eq", - _0: Curry._1(y, undefined), - _1: 32 - }; - }) + return { + TAG: "Eq", + _0: Curry._1(y, undefined), + _1: 32 + }; + }) ], tl: { hd: [ "test3", (function (param) { - return { - TAG: "Eq", - _0: Curry._1(x, undefined), - _1: 35 - }; - }) + return { + TAG: "Eq", + _0: Curry._1(x, undefined), + _1: 35 + }; + }) ], tl: { hd: [ "test4", (function (param) { - return { - TAG: "Eq", - _0: true, - _1: Curry._1(A.even, 2) - }; - }) + return { + TAG: "Eq", + _0: true, + _1: Curry._1(A.even, 2) + }; + }) ], tl: { hd: [ "test4", (function (param) { - return { - TAG: "Eq", - _0: true, - _1: Curry._1(even$1, 4) - }; - }) + return { + TAG: "Eq", + _0: true, + _1: Curry._1(even$1, 4) + }; + }) ], tl: { hd: [ "test5", (function (param) { - return { - TAG: "Eq", - _0: false, - _1: Curry._1(B.odd, 2) - }; - }) + return { + TAG: "Eq", + _0: false, + _1: Curry._1(B.odd, 2) + }; + }) ], tl: { hd: [ "test6", (function (param) { - return { - TAG: "Eq", - _0: 2, - _1: Curry._1(cardinal, Curry._1(of_list, { - hd: { - TAG: "Leaf", - _0: "a" - }, - tl: { - hd: { - TAG: "Leaf", - _0: "b" - }, - tl: { - hd: { - TAG: "Leaf", - _0: "a" - }, - tl: /* [] */0 - } - } - })) - }; - }) + return { + TAG: "Eq", + _0: 2, + _1: Curry._1(cardinal, Curry._1(of_list, { + hd: { + TAG: "Leaf", + _0: "a" + }, + tl: { + hd: { + TAG: "Leaf", + _0: "b" + }, + tl: { + hd: { + TAG: "Leaf", + _0: "a" + }, + tl: /* [] */0 + } + } + })) + }; + }) ], tl: /* [] */0 } @@ -1217,7 +1217,7 @@ var suites_1 = { } }; -var suites = { +let suites = { hd: suites_0, tl: suites_1 }; diff --git a/jscomp/test/recmodule.js b/jscomp/test/recmodule.js index 7c4bce73e3..9594c0ecbe 100644 --- a/jscomp/test/recmodule.js +++ b/jscomp/test/recmodule.js @@ -1,157 +1,157 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_module = require("../../lib/js/caml_module.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_module = require("../../lib/js/caml_module.js"); -var Entity = {}; +let Entity = {}; function MakeLayer(Deps) { - var getLight = function (id) { + let getLight = function (id) { return Curry._1(Deps.presentLight, { - id: id, - name: "Light 1" - }); + id: id, + name: "Light 1" + }); }; return { - getLight: getLight - }; + getLight: getLight + }; } -var UseCase = { +let UseCase = { MakeLayer: MakeLayer }; function MakeLayer$1(Deps, UC) { - var presentLight = function (light) { + let presentLight = function (light) { return Curry._2(Deps.presentJson, light, 200); }; - var handleGetLight = function (req) { + let handleGetLight = function (req) { return Curry._1(UC.getLight, req.params.id); }; return { - handleGetLight: handleGetLight, - presentLight: presentLight - }; + handleGetLight: handleGetLight, + presentLight: presentLight + }; } -var Adapter = { +let Adapter = { MakeLayer: MakeLayer$1 }; function MakeLayer$2(Deps) { - var presentJson = function (json, status) { + let presentJson = function (json, status) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "recmodule.res", - 60, - 41 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recmodule.res", + 60, + 41 + ] + } + }); }; - var routes = function (param) { + let routes = function (param) { return [[ - "/lights", - Deps.handleGetLight - ]]; + "/lights", + Deps.handleGetLight + ]]; }; return { - presentJson: presentJson, - routes: routes - }; + presentJson: presentJson, + routes: routes + }; } -var Infra = { +let Infra = { MakeLayer: MakeLayer$2 }; -var I = Caml_module.init_mod([ - "recmodule.res", - 67, - 30 - ], { - TAG: "Module", - _0: [ - [ - "Function", - "presentJson" - ], - [ - "Function", - "routes" - ] - ] - }); - -var A = Caml_module.init_mod([ - "recmodule.res", - 68, - 25 - ], { - TAG: "Module", - _0: [ - [ - "Function", - "handleGetLight" - ], - [ - "Function", - "presentLight" - ] - ] - }); - -var U = Caml_module.init_mod([ - "recmodule.res", - 69, - 25 - ], { - TAG: "Module", - _0: [[ - "Function", - "getLight" - ]] - }); +let I = Caml_module.init_mod([ + "recmodule.res", + 67, + 30 +], { + TAG: "Module", + _0: [ + [ + "Function", + "presentJson" + ], + [ + "Function", + "routes" + ] + ] +}); + +let A = Caml_module.init_mod([ + "recmodule.res", + 68, + 25 +], { + TAG: "Module", + _0: [ + [ + "Function", + "handleGetLight" + ], + [ + "Function", + "presentLight" + ] + ] +}); + +let U = Caml_module.init_mod([ + "recmodule.res", + 69, + 25 +], { + TAG: "Module", + _0: [[ + "Function", + "getLight" + ]] +}); function presentJson(json, status) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "recmodule.res", - 60, - 41 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recmodule.res", + 60, + 41 + ] + } + }); } function routes(param) { return [[ - "/lights", - A.handleGetLight - ]]; + "/lights", + A.handleGetLight + ]]; } Caml_module.update_mod({ - TAG: "Module", - _0: [ - [ - "Function", - "presentJson" - ], - [ - "Function", - "routes" - ] - ] - }, I, { - presentJson: presentJson, - routes: routes - }); + TAG: "Module", + _0: [ + [ + "Function", + "presentJson" + ], + [ + "Function", + "routes" + ] + ] +}, I, { + presentJson: presentJson, + routes: routes +}); function presentLight(light) { return Curry._2(I.presentJson, light, 200); @@ -162,40 +162,40 @@ function handleGetLight(req) { } Caml_module.update_mod({ - TAG: "Module", - _0: [ - [ - "Function", - "handleGetLight" - ], - [ - "Function", - "presentLight" - ] - ] - }, A, { - handleGetLight: handleGetLight, - presentLight: presentLight - }); + TAG: "Module", + _0: [ + [ + "Function", + "handleGetLight" + ], + [ + "Function", + "presentLight" + ] + ] +}, A, { + handleGetLight: handleGetLight, + presentLight: presentLight +}); function getLight(id) { return Curry._1(A.presentLight, { - id: id, - name: "Light 1" - }); + id: id, + name: "Light 1" + }); } Caml_module.update_mod({ - TAG: "Module", - _0: [[ - "Function", - "getLight" - ]] - }, U, { - getLight: getLight - }); - -var App = { + TAG: "Module", + _0: [[ + "Function", + "getLight" + ]] +}, U, { + getLight: getLight +}); + +let App = { I: I, A: A, U: U diff --git a/jscomp/test/recursive_module.js b/jscomp/test/recursive_module.js index 03ee7d6a8a..2574e8eeb4 100644 --- a/jscomp/test/recursive_module.js +++ b/jscomp/test/recursive_module.js @@ -110,8 +110,8 @@ catch (raw_exn){ tmp = -1; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -188,8 +188,8 @@ catch (raw_exn$1){ tmp$1 = 4; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } diff --git a/jscomp/test/recursive_records_test.js b/jscomp/test/recursive_records_test.js index 9bca0bd580..ccf80b9d3b 100644 --- a/jscomp/test/recursive_records_test.js +++ b/jscomp/test/recursive_records_test.js @@ -1,15 +1,15 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var List = require("../../lib/js/list.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); +let Mt = require("./mt.js"); +let List = require("../../lib/js/list.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -17,18 +17,18 @@ function eq(loc, x, y) { Mt.eq_suites(test_id, suites, loc, x, y); } -var rec_cell = {}; +let rec_cell = {}; rec_cell.content = 3; rec_cell.next = rec_cell; function f0(x) { - var rec_cell = {}; + let rec_cell = {}; Caml_obj.update_dummy(rec_cell, { - content: Math.imul(x, x) - 6 | 0, - next: rec_cell - }); + content: Math.imul(x, x) - 6 | 0, + next: rec_cell + }); return rec_cell; } @@ -40,19 +40,19 @@ eq("File \"recursive_records_test.res\", line 26, characters 5-12", a0(rec_cell) eq("File \"recursive_records_test.res\", line 27, characters 5-12", a0(f0(3)), 9); -var rec_cell2 = {}; +let rec_cell2 = {}; rec_cell2.content = 3; rec_cell2.next = rec_cell2; function f2(x) { - var rec_cell2 = {}; + let rec_cell2 = {}; Caml_obj.update_dummy(rec_cell2, { - TAG: "Cons", - content: Math.imul(x, x) - 6 | 0, - next: rec_cell2 - }); + TAG: "Cons", + content: Math.imul(x, x) - 6 | 0, + next: rec_cell2 + }); return rec_cell2; } @@ -69,41 +69,41 @@ function tl_exn(x) { return x.next; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "recursive_records_test.res", - 49, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "recursive_records_test.res", + 49, + 11 + ] + } + }); } eq("File \"recursive_records_test.res\", line 54, characters 5-12", (hd(rec_cell2) + hd(tl_exn(rec_cell2)) | 0) + hd(tl_exn(tl_exn(rec_cell2))) | 0, 9); -var rec_cell2$1 = f2(3); +let rec_cell2$1 = f2(3); eq("File \"recursive_records_test.res\", line 56, characters 5-12", (hd(rec_cell2$1) + hd(tl_exn(rec_cell2$1)) | 0) + hd(tl_exn(tl_exn(rec_cell2$1))) | 0, 9); -var rec_cell3 = {}; +let rec_cell3 = {}; rec_cell3.hd = 3; rec_cell3.tl = rec_cell3; function f3(x) { - var rec_cell3 = {}; + let rec_cell3 = {}; Caml_obj.update_dummy(rec_cell3, { - hd: Math.imul(x, x) - 6 | 0, - tl: rec_cell3 - }); + hd: Math.imul(x, x) - 6 | 0, + tl: rec_cell3 + }); return rec_cell3; } eq("File \"recursive_records_test.res\", line 68, characters 4-11", (List.hd(rec_cell3) + List.hd(List.tl(rec_cell3)) | 0) + List.hd(List.tl(List.tl(rec_cell3))) | 0, 9); -var rec_cell3$1 = f3(3); +let rec_cell3$1 = f3(3); eq("File \"recursive_records_test.res\", line 77, characters 4-11", (List.hd(rec_cell3$1) + List.hd(List.tl(rec_cell3$1)) | 0) + List.hd(List.tl(List.tl(rec_cell3$1))) | 0, 9); diff --git a/jscomp/test/return_check.js b/jscomp/test/return_check.js index d9f071e05c..ea41a8d33e 100644 --- a/jscomp/test/return_check.js +++ b/jscomp/test/return_check.js @@ -1,10 +1,10 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function test(dom) { - var elem = dom.getElementById("haha"); + let elem = dom.getElementById("haha"); if (elem !== null) { console.log(elem); return 2; @@ -14,24 +14,24 @@ function test(dom) { } function f_undefined(xs, i) { - var k = xs[i]; + let k = xs[i]; if (k !== undefined) { return k; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 23, - 12 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 23, + 12 + ] + } + }); } function f_escaped_not(xs, i) { - var x = xs[i]; + let x = xs[i]; console.log("hei"); if (x !== undefined) { return x; @@ -41,7 +41,7 @@ function f_escaped_not(xs, i) { } function f_escaped_1(xs, i) { - var x = xs[i]; + let x = xs[i]; return function (param) { if (x !== undefined) { return x; @@ -56,37 +56,37 @@ function f_escaped_2(xs, i) { } function f_null(xs, i) { - var k = xs[i]; + let k = xs[i]; if (k !== null) { return k; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 51, - 12 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 51, + 12 + ] + } + }); } function f_null_undefined(xs, i) { - var k = xs[i]; + let k = xs[i]; if (!(k == null)) { return k; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "return_check.res", - 59, - 12 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "return_check.res", + 59, + 12 + ] + } + }); } exports.test = test; diff --git a/jscomp/test/set_gen.js b/jscomp/test/set_gen.js index 51a2d64446..ab3ba89780 100644 --- a/jscomp/test/set_gen.js +++ b/jscomp/test/set_gen.js @@ -1,15 +1,15 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); function cons_enum(_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -20,7 +20,7 @@ function cons_enum(_s, _e) { _2: e }; _s = s._0; - continue ; + continue; }; } @@ -34,39 +34,39 @@ function height(x) { function min_elt(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._1; } _x = l; - continue ; + continue; }; } function max_elt(_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = x._2; + let r = x._2; if (typeof r !== "object") { return x._1; } _x = r; - continue ; + continue; }; } @@ -80,14 +80,14 @@ function is_empty(x) { function cardinal_aux(_acc, _x) { while(true) { - var x = _x; - var acc = _acc; + let x = _x; + let acc = _acc; if (typeof x !== "object") { return acc; } _x = x._0; _acc = cardinal_aux(acc + 1 | 0, x._2); - continue ; + continue; }; } @@ -97,8 +97,8 @@ function cardinal(s) { function elements_aux(_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (typeof x !== "object") { return accu; } @@ -107,7 +107,7 @@ function elements_aux(_accu, _x) { hd: x._1, tl: elements_aux(accu, x._2) }; - continue ; + continue; }; } @@ -117,33 +117,33 @@ function elements(s) { function iter(f, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { - return ; + return; } iter(f, x._0); Curry._1(f, x._1); _x = x._2; - continue ; + continue; }; } function fold(f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s._1, fold(f, s._0, accu)); _s = s._2; - continue ; + continue; }; } function for_all(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return true; } @@ -154,13 +154,13 @@ function for_all(p, _x) { return false; } _x = x._2; - continue ; + continue; }; } function exists(p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -171,7 +171,7 @@ function exists(p, _x) { return true; } _x = x._2; - continue ; + continue; }; } @@ -197,31 +197,31 @@ function max_int_2(a, b) { } } -var Height_invariant_broken = /* @__PURE__ */Caml_exceptions.create("Set_gen.Height_invariant_broken"); +let Height_invariant_broken = /* @__PURE__ */Caml_exceptions.create("Set_gen.Height_invariant_broken"); -var Height_diff_borken = /* @__PURE__ */Caml_exceptions.create("Set_gen.Height_diff_borken"); +let Height_diff_borken = /* @__PURE__ */Caml_exceptions.create("Set_gen.Height_diff_borken"); function check_height_and_diff(x) { if (typeof x !== "object") { return 0; } - var h = x._3; - var hl = check_height_and_diff(x._0); - var hr = check_height_and_diff(x._2); + let h = x._3; + let hl = check_height_and_diff(x._0); + let hr = check_height_and_diff(x._2); if (h !== (max_int_2(hl, hr) + 1 | 0)) { throw new Error(Height_invariant_broken, { - cause: { - RE_EXN_ID: Height_invariant_broken - } - }); + cause: { + RE_EXN_ID: Height_invariant_broken + } + }); } - var diff = Pervasives.abs(hl - hr | 0); + let diff = Pervasives.abs(hl - hr | 0); if (diff > 2) { throw new Error(Height_diff_borken, { - cause: { - RE_EXN_ID: Height_diff_borken - } - }); + cause: { + RE_EXN_ID: Height_diff_borken + } + }); } return h; } @@ -231,40 +231,40 @@ function check(tree) { } function create(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._3; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._3; return { - TAG: "Node", - _0: l, - _1: v, - _2: r, - _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: v, + _2: r, + _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function internal_bal(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l._3; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._3; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 278, - 15 - ] - } - }); - } - var lr = l._2; - var lv = l._1; - var ll = l._0; + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 278, + 15 + ] + } + }); + } + let lr = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -272,40 +272,40 @@ function internal_bal(l, v, r) { return create(create(ll, lv, lr._0), lr._1, create(lr._2, v, r)); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 288, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 288, + 19 + ] + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: v, - _2: r, - _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: v, + _2: r, + _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 300, - 15 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 300, + 15 + ] + } + }); } - var rr = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -313,27 +313,27 @@ function internal_bal(l, v, r) { return create(create(l, v, rl._0), rl._1, create(rl._2, rv, rr)); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 306, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 306, + 19 + ] + } + }); } function remove_min_elt(x) { if (typeof x !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._2; } else { @@ -343,12 +343,12 @@ function remove_min_elt(x) { function singleton(x) { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: "Empty", - _3: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: "Empty", + _3: 1 + }; } function internal_merge(l, r) { @@ -381,11 +381,11 @@ function internal_join(l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l._3; + let lh = l._3; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r._3; + let rh = r._3; if (lh > (rh + 2 | 0)) { return internal_bal(l._0, l._1, internal_join(l._2, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -409,10 +409,10 @@ function filter(p, x) { if (typeof x !== "object") { return "Empty"; } - var v = x._1; - var l$p = filter(p, x._0); - var pv = Curry._1(p, v); - var r$p = filter(p, x._2); + let v = x._1; + let l$p = filter(p, x._0); + let pv = Curry._1(p, v); + let r$p = filter(p, x._2); if (pv) { return internal_join(l$p, v, r$p); } else { @@ -423,105 +423,105 @@ function filter(p, x) { function partition(p, x) { if (typeof x !== "object") { return [ - "Empty", - "Empty" - ]; + "Empty", + "Empty" + ]; } - var v = x._1; - var match = partition(p, x._0); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, x._2); - var rf = match$1[1]; - var rt = match$1[0]; + let v = x._1; + let match = partition(p, x._0); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, x._2); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - internal_join(lt, v, rt), - internal_concat(lf, rf) - ]; + internal_join(lt, v, rt), + internal_concat(lf, rf) + ]; } else { return [ - internal_concat(lt, rt), - internal_join(lf, v, rf) - ]; + internal_concat(lt, rt), + internal_join(lf, v, rf) + ]; } } function of_sorted_list(l) { - var sub = function (n, l) { + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - l.tl - ]; + { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - _1: match.hd, - _2: "Empty", - _3: 2 - }, - match.tl - ]; + { + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + _1: match.hd, + _2: "Empty", + _3: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - _1: match$1.hd, - _2: { - TAG: "Node", - _0: "Empty", - _1: match$2.hd, - _2: "Empty", - _3: 1 - }, - _3: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + _1: match$1.hd, + _2: { + TAG: "Node", + _0: "Empty", + _1: match$2.hd, + _2: "Empty", + _3: 1 + }, + _3: 2 + }, + match$2.tl + ]; } } @@ -531,131 +531,131 @@ function of_sorted_list(l) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set_gen.res", - 447, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set_gen.res", + 447, + 18 + ] + } + }); }; return sub(List.length(l), l)[0]; } function of_sorted_array(l) { - var sub = function (start, n, l) { + let sub = function (start, n, l) { if (n === 0) { return "Empty"; } if (n === 1) { - var x0 = l[start]; + let x0 = l[start]; return { - TAG: "Node", - _0: "Empty", - _1: x0, - _2: "Empty", - _3: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x0, + _2: "Empty", + _3: 1 + }; } if (n === 2) { - var x0$1 = l[start]; - var x1 = l[start + 1 | 0]; + let x0$1 = l[start]; + let x1 = l[start + 1 | 0]; return { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: x0$1, - _2: "Empty", - _3: 1 - }, - _1: x1, - _2: "Empty", - _3: 2 - }; + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: x0$1, + _2: "Empty", + _3: 1 + }, + _1: x1, + _2: "Empty", + _3: 2 + }; } if (n === 3) { - var x0$2 = l[start]; - var x1$1 = l[start + 1 | 0]; - var x2 = l[start + 2 | 0]; + let x0$2 = l[start]; + let x1$1 = l[start + 1 | 0]; + let x2 = l[start + 2 | 0]; return { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: x0$2, - _2: "Empty", - _3: 1 - }, - _1: x1$1, - _2: { - TAG: "Node", - _0: "Empty", - _1: x2, - _2: "Empty", - _3: 1 - }, - _3: 2 - }; - } - var nl = n / 2 | 0; - var left = sub(start, nl, l); - var mid = start + nl | 0; - var v = l[mid]; - var right = sub(mid + 1 | 0, (n - nl | 0) - 1 | 0, l); + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: x0$2, + _2: "Empty", + _3: 1 + }, + _1: x1$1, + _2: { + TAG: "Node", + _0: "Empty", + _1: x2, + _2: "Empty", + _3: 1 + }, + _3: 2 + }; + } + let nl = n / 2 | 0; + let left = sub(start, nl, l); + let mid = start + nl | 0; + let v = l[mid]; + let right = sub(mid + 1 | 0, (n - nl | 0) - 1 | 0, l); return create(left, v, right); }; return sub(0, l.length, l); } function is_ordered(cmp, tree) { - var is_ordered_min_max = function (tree) { + let is_ordered_min_max = function (tree) { if (typeof tree !== "object") { return "Empty"; } - var r = tree._2; - var v = tree._1; - var match = is_ordered_min_max(tree._0); + let r = tree._2; + let v = tree._1; + let match = is_ordered_min_max(tree._0); if (typeof match === "object") { - var match$1 = match.VAL; - var max_v = match$1[1]; - var min_v = match$1[0]; - var match$2 = is_ordered_min_max(r); + let match$1 = match.VAL; + let max_v = match$1[1]; + let min_v = match$1[0]; + let match$2 = is_ordered_min_max(r); if (typeof match$2 !== "object") { if (match$2 === "Empty" && Curry._2(cmp, max_v, v) < 0) { return { - NAME: "V", - VAL: [ - min_v, - v - ] - }; + NAME: "V", + VAL: [ + min_v, + v + ] + }; } else { return "No"; } } - var match$3 = match$2.VAL; + let match$3 = match$2.VAL; if (Curry._2(cmp, max_v, match$3[0]) < 0) { return { - NAME: "V", - VAL: [ - min_v, - match$3[1] - ] - }; + NAME: "V", + VAL: [ + min_v, + match$3[1] + ] + }; } else { return "No"; } @@ -663,29 +663,29 @@ function is_ordered(cmp, tree) { if (match !== "Empty") { return "No"; } - var match$4 = is_ordered_min_max(r); + let match$4 = is_ordered_min_max(r); if (typeof match$4 !== "object") { if (match$4 === "Empty") { return { - NAME: "V", - VAL: [ - v, - v - ] - }; + NAME: "V", + VAL: [ + v, + v + ] + }; } else { return "No"; } } - var match$5 = match$4.VAL; + let match$5 = match$4.VAL; if (Curry._2(cmp, v, match$5[0]) < 0) { return { - NAME: "V", - VAL: [ - v, - match$5[1] - ] - }; + NAME: "V", + VAL: [ + v, + match$5[1] + ] + }; } else { return "No"; } @@ -700,8 +700,8 @@ function invariant(cmp, t) { function compare_aux(cmp, _e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -712,13 +712,13 @@ function compare_aux(cmp, _e1, _e2) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(cmp, e1._0, e2._0); + let c = Curry._2(cmp, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; } @@ -726,9 +726,9 @@ function compare(cmp, s1, s2) { return compare_aux(cmp, cons_enum(s1, "End"), cons_enum(s2, "End")); } -var empty = "Empty"; +let empty = "Empty"; -var choose = min_elt; +let choose = min_elt; exports.cons_enum = cons_enum; exports.height = height; diff --git a/jscomp/test/sexp.js b/jscomp/test/sexp.js index a0f7f6a93d..aace8269f8 100644 --- a/jscomp/test/sexp.js +++ b/jscomp/test/sexp.js @@ -1,146 +1,146 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Hashtbl = require("../../lib/js/hashtbl.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_format = require("../../lib/js/caml_format.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Hashtbl = require("../../lib/js/hashtbl.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_format = require("../../lib/js/caml_format.js"); +let Caml_option = require("../../lib/js/caml_option.js"); -var equal = Caml_obj.equal; +let equal = Caml_obj.equal; -var compare = Caml_obj.compare; +let compare = Caml_obj.compare; -var hash = Hashtbl.hash; +let hash = Hashtbl.hash; function of_int(x) { return { - NAME: "Atom", - VAL: String(x) - }; + NAME: "Atom", + VAL: String(x) + }; } function of_float(x) { return { - NAME: "Atom", - VAL: Pervasives.string_of_float(x) - }; + NAME: "Atom", + VAL: Pervasives.string_of_float(x) + }; } function of_bool(x) { return { - NAME: "Atom", - VAL: x ? "true" : "false" - }; + NAME: "Atom", + VAL: x ? "true" : "false" + }; } function atom(x) { return { - NAME: "Atom", - VAL: x - }; + NAME: "Atom", + VAL: x + }; } function of_list(l) { return { - NAME: "List", - VAL: l - }; + NAME: "List", + VAL: l + }; } function of_rev_list(l) { return { - NAME: "List", - VAL: List.rev(l) - }; + NAME: "List", + VAL: List.rev(l) + }; } function of_pair(param) { return { - NAME: "List", - VAL: { - hd: param[0], - tl: { - hd: param[1], - tl: /* [] */0 - } - } - }; + NAME: "List", + VAL: { + hd: param[0], + tl: { + hd: param[1], + tl: /* [] */0 + } + } + }; } function of_triple(param) { return { - NAME: "List", - VAL: { - hd: param[0], - tl: { - hd: param[1], - tl: { - hd: param[2], - tl: /* [] */0 - } - } - } - }; + NAME: "List", + VAL: { + hd: param[0], + tl: { + hd: param[1], + tl: { + hd: param[2], + tl: /* [] */0 + } + } + } + }; } function of_quad(param) { return { - NAME: "List", - VAL: { - hd: param[0], - tl: { - hd: param[1], - tl: { - hd: param[2], - tl: { - hd: param[3], - tl: /* [] */0 - } - } - } + NAME: "List", + VAL: { + hd: param[0], + tl: { + hd: param[1], + tl: { + hd: param[2], + tl: { + hd: param[3], + tl: /* [] */0 } - }; + } + } + } + }; } function of_variant(name, args) { return { - NAME: "List", - VAL: { - hd: { - NAME: "Atom", - VAL: name - }, - tl: args - } - }; + NAME: "List", + VAL: { + hd: { + NAME: "Atom", + VAL: name + }, + tl: args + } + }; } function of_field(name, t) { return { - NAME: "List", - VAL: { - hd: { - NAME: "Atom", - VAL: name - }, - tl: { - hd: t, - tl: /* [] */0 - } - } - }; + NAME: "List", + VAL: { + hd: { + NAME: "Atom", + VAL: name + }, + tl: { + hd: t, + tl: /* [] */0 + } + } + }; } function of_record(l) { return { - NAME: "List", - VAL: List.map((function (param) { - return of_field(param[0], param[1]); - }), l) - }; + NAME: "List", + VAL: List.map((function (param) { + return of_field(param[0], param[1]); + }), l) + }; } function $$return(x) { @@ -162,41 +162,41 @@ function $great$great$eq(e, f) { } function map_opt(f, l) { - var _acc = /* [] */0; - var _l = l; + let _acc = /* [] */0; + let _l = l; while(true) { - var l$1 = _l; - var acc = _acc; + let l$1 = _l; + let acc = _acc; if (!l$1) { return List.rev(acc); } - var y = Curry._1(f, l$1.hd); + let y = Curry._1(f, l$1.hd); if (y === undefined) { - return ; + return; } _l = l$1.tl; _acc = { hd: Caml_option.valFromOption(y), tl: acc }; - continue ; + continue; }; } function list_any(f, e) { if (e.NAME === "List") { - var _l = e.VAL; + let _l = e.VAL; while(true) { - var l = _l; + let l = _l; if (!l) { - return ; + return; } - var res = Curry._1(f, l.hd); + let res = Curry._1(f, l.hd); if (res !== undefined) { return res; } _l = l.tl; - continue ; + continue; }; } @@ -204,26 +204,26 @@ function list_any(f, e) { function list_all(f, e) { if (e.NAME === "List") { - var _acc = /* [] */0; - var _l = e.VAL; + let _acc = /* [] */0; + let _l = e.VAL; while(true) { - var l = _l; - var acc = _acc; + let l = _l; + let acc = _acc; if (!l) { return List.rev(acc); } - var tl = l.tl; - var y = Curry._1(f, l.hd); + let tl = l.tl; + let y = Curry._1(f, l.hd); if (y !== undefined) { _l = tl; _acc = { hd: Caml_option.valFromOption(y), tl: acc }; - continue ; + continue; } _l = tl; - continue ; + continue; }; } else { return /* [] */0; @@ -232,13 +232,13 @@ function list_all(f, e) { function _try_atom(e, f) { if (e.NAME === "List") { - return ; + return; } try { return Caml_option.some(Curry._1(f, e.VAL)); } catch (exn){ - return ; + return; } } @@ -256,87 +256,87 @@ function to_float(e) { function to_string(e) { return _try_atom(e, (function (x) { - return x; - })); + return x; + })); } function to_pair(e) { if (typeof e !== "object") { - return ; + return; } if (e.NAME !== "List") { - return ; + return; } - var match = e.VAL; + let match = e.VAL; if (!match) { - return ; + return; } - var match$1 = match.tl; + let match$1 = match.tl; if (match$1 && !match$1.tl) { return [ - match.hd, - match$1.hd - ]; + match.hd, + match$1.hd + ]; } } function to_pair_with(f1, f2, e) { return $great$great$eq(to_pair(e), (function (param) { - var y = param[1]; - return $great$great$eq(Curry._1(f1, param[0]), (function (x) { - return $great$great$eq(Curry._1(f2, y), (function (y) { - return [ - x, - y - ]; - })); - })); - })); + let y = param[1]; + return $great$great$eq(Curry._1(f1, param[0]), (function (x) { + return $great$great$eq(Curry._1(f2, y), (function (y) { + return [ + x, + y + ]; + })); + })); + })); } function to_triple(e) { if (typeof e !== "object") { - return ; + return; } if (e.NAME !== "List") { - return ; + return; } - var match = e.VAL; + let match = e.VAL; if (!match) { - return ; + return; } - var match$1 = match.tl; + let match$1 = match.tl; if (!match$1) { - return ; + return; } - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2 && !match$2.tl) { return [ - match.hd, - match$1.hd, - match$2.hd - ]; + match.hd, + match$1.hd, + match$2.hd + ]; } } function to_triple_with(f1, f2, f3, e) { return $great$great$eq(to_triple(e), (function (param) { - var z = param[2]; - var y = param[1]; - return $great$great$eq(Curry._1(f1, param[0]), (function (x) { - return $great$great$eq(Curry._1(f2, y), (function (y) { - return $great$great$eq(Curry._1(f3, z), (function (z) { - return [ - x, - y, - z - ]; - })); - })); - })); - })); + let z = param[2]; + let y = param[1]; + return $great$great$eq(Curry._1(f1, param[0]), (function (x) { + return $great$great$eq(Curry._1(f2, y), (function (y) { + return $great$great$eq(Curry._1(f3, z), (function (z) { + return [ + x, + y, + z + ]; + })); + })); + })); + })); } function to_list(e) { @@ -355,49 +355,49 @@ function to_list_with(f, e) { function get_field(name, e) { if (e.NAME === "List") { - var _l = e.VAL; + let _l = e.VAL; while(true) { - var l = _l; + let l = _l; if (!l) { - return ; + return; } - var match = l.hd; + let match = l.hd; if (typeof match === "object") { if (match.NAME === "List") { - var match$1 = match.VAL; + let match$1 = match.VAL; if (match$1) { - var match$2 = match$1.hd; + let match$2 = match$1.hd; if (typeof match$2 === "object") { if (match$2.NAME === "Atom") { - var match$3 = match$1.tl; + let match$3 = match$1.tl; if (match$3) { if (match$3.tl) { _l = l.tl; - continue ; + continue; } if (Caml_obj.equal(name, match$2.VAL)) { return match$3.hd; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; }; } @@ -409,38 +409,38 @@ function field(name, f, e) { function _get_field_list(name, _l) { while(true) { - var l = _l; + let l = _l; if (!l) { - return ; + return; } - var match = l.hd; + let match = l.hd; if (typeof match === "object") { if (match.NAME === "List") { - var match$1 = match.VAL; + let match$1 = match.VAL; if (match$1) { - var match$2 = match$1.hd; + let match$2 = match$1.hd; if (typeof match$2 === "object") { if (match$2.NAME === "Atom") { if (Caml_obj.equal(name, match$2.VAL)) { return match$1.tl; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; } _l = l.tl; - continue ; + continue; }; } @@ -453,16 +453,16 @@ function field_list(name, f, e) { function _get_variant(s, args, _l) { while(true) { - var l = _l; + let l = _l; if (!l) { - return ; + return; } - var match = l.hd; + let match = l.hd; if (Caml_obj.equal(s, match[0])) { return Curry._1(match[1], args); } _l = l.tl; - continue ; + continue; }; } @@ -470,11 +470,11 @@ function get_variant(l, e) { if (e.NAME !== "List") { return _get_variant(e.VAL, /* [] */0, l); } - var match = e.VAL; + let match = e.VAL; if (!match) { - return ; + return; } - var match$1 = match.hd; + let match$1 = match.hd; if (typeof match$1 === "object" && match$1.NAME === "Atom") { return _get_variant(match$1.VAL, match.tl, l); } @@ -486,19 +486,19 @@ function get_exn(e) { return Caml_option.valFromOption(e); } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "CCSexp.Traverse.get_exn" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "CCSexp.Traverse.get_exn" + } + }); } -var of_unit = { +let of_unit = { NAME: "List", VAL: /* [] */0 }; -var Traverse = { +let Traverse = { map_opt: map_opt, list_any: list_any, list_all: list_all, diff --git a/jscomp/test/sexpm.js b/jscomp/test/sexpm.js index 9393f5d6f8..bb09aa7c16 100644 --- a/jscomp/test/sexpm.js +++ b/jscomp/test/sexpm.js @@ -1,40 +1,40 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Sys = require("../../lib/js/sys.js"); -var Caml = require("../../lib/js/caml.js"); -var Char = require("../../lib/js/char.js"); -var List = require("../../lib/js/list.js"); -var Bytes = require("../../lib/js/bytes.js"); -var Curry = require("../../lib/js/curry.js"); -var $$Buffer = require("../../lib/js/buffer.js"); -var $$String = require("../../lib/js/string.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Sys = require("../../lib/js/sys.js"); +let Caml = require("../../lib/js/caml.js"); +let Char = require("../../lib/js/char.js"); +let List = require("../../lib/js/list.js"); +let Bytes = require("../../lib/js/bytes.js"); +let Curry = require("../../lib/js/curry.js"); +let $$Buffer = require("../../lib/js/buffer.js"); +let $$String = require("../../lib/js/string.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function _must_escape(s) { try { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var c = s.codePointAt(i); - var exit = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let c = s.codePointAt(i); + let exit = 0; if (c >= 42) { if (c !== 59) { if (c !== 92) { exit = 1; } else { throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else { throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else if (c >= 11) { if (c >= 32) { @@ -52,10 +52,10 @@ function _must_escape(s) { case 40 : case 41 : throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } else { @@ -64,47 +64,47 @@ function _must_escape(s) { } else { if (c >= 9) { throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } exit = 1; } if (exit === 1 && c > 127) { throw new Error(Pervasives.Exit, { - cause: { - RE_EXN_ID: Pervasives.Exit - } - }); + cause: { + RE_EXN_ID: Pervasives.Exit + } + }); } } return false; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Pervasives.Exit) { return true; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function to_buf(b, t) { if (t.NAME === "List") { - var l = t.VAL; + let l = t.VAL; if (l) { if (l.tl) { $$Buffer.add_char(b, /* '(' */40); List.iteri((function (i, t$p) { - if (i > 0) { - $$Buffer.add_char(b, /* ' ' */32); - } - to_buf(b, t$p); - }), l); + if (i > 0) { + $$Buffer.add_char(b, /* ' ' */32); + } + to_buf(b, t$p); + }), l); return $$Buffer.add_char(b, /* ')' */41); } else { $$Buffer.add_string(b, "("); @@ -115,7 +115,7 @@ function to_buf(b, t) { return $$Buffer.add_string(b, "()"); } } - var s = t.VAL; + let s = t.VAL; if (_must_escape(s)) { return $$Buffer.add_string(b, "\"" + ($$String.escaped(s) + "\"")); } else { @@ -124,23 +124,23 @@ function to_buf(b, t) { } function to_string(t) { - var b = $$Buffer.create(128); + let b = $$Buffer.create(128); to_buf(b, t); return $$Buffer.contents(b); } function make(bufsizeOpt, refill) { - var bufsize = bufsizeOpt !== undefined ? bufsizeOpt : 1024; - var bufsize$1 = Caml.int_min(bufsize > 16 ? bufsize : 16, Sys.max_string_length); + let bufsize = bufsizeOpt !== undefined ? bufsizeOpt : 1024; + let bufsize$1 = Caml.int_min(bufsize > 16 ? bufsize : 16, Sys.max_string_length); return { - buf: Caml_bytes.create(bufsize$1), - refill: refill, - atom: $$Buffer.create(32), - i: 0, - len: 0, - line: 1, - col: 1 - }; + buf: Caml_bytes.create(bufsize$1), + refill: refill, + atom: $$Buffer.create(32), + i: 0, + len: 0, + line: 1, + col: 1 + }; } function _is_digit(c) { @@ -152,7 +152,7 @@ function _is_digit(c) { } function _refill(t, k_succ, k_fail) { - var n = Curry._3(t.refill, t.buf, 0, t.buf.length); + let n = Curry._3(t.refill, t.buf, 0, t.buf.length); t.i = 0; t.len = n; if (n === 0) { @@ -165,17 +165,17 @@ function _refill(t, k_succ, k_fail) { function _get(t) { if (t.i >= t.len) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 111, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 111, + 4 + ] + } + }); } - var c = Caml_bytes.get(t.buf, t.i); + let c = Caml_bytes.get(t.buf, t.i); t.i = t.i + 1 | 0; if (c === /* '\n' */10) { t.col = 1; @@ -187,17 +187,17 @@ function _get(t) { } function _error(param) { - var line = param.line; - var col = param.col; + let line = param.line; + let col = param.col; return function (msg) { - var b = $$Buffer.create(32); + let b = $$Buffer.create(32); $$Buffer.add_string(b, "at " + (line + (", " + (col + ": ")))); $$Buffer.add_string(b, msg); - var msg$p = $$Buffer.contents(b); + let msg$p = $$Buffer.contents(b); return { - NAME: "Error", - VAL: msg$p - }; + NAME: "Error", + VAL: msg$p + }; }; } @@ -209,20 +209,20 @@ function expr(k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return expr(k, param); - }), _error_eof); + return expr(k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (c >= 11) { if (c !== 32) { return expr_starting_with(c, k, t); } - continue ; + continue; } if (c < 9) { return expr_starting_with(c, k, t); } - continue ; + continue; }; } @@ -230,8 +230,8 @@ function expr_starting_with(c, k, t) { if (c >= 42) { if (c === 59) { return skip_comment((function (param, param$1) { - return expr(k, t); - }), t); + return expr(k, t); + }), t); } if (c === 92) { return _error(t)("unexpected '\\'"); @@ -242,15 +242,15 @@ function expr_starting_with(c, k, t) { switch (c) { case 32 : throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 152, - 27 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 152, + 27 + ] + } + }); case 34 : return quoted(k, t); case 33 : @@ -270,15 +270,15 @@ function expr_starting_with(c, k, t) { } else if (c >= 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "sexpm.res", - 152, - 27 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "sexpm.res", + 152, + 27 + ] + } + }); } $$Buffer.add_char(t.atom, c); return atom(k, t); @@ -288,76 +288,76 @@ function expr_list(acc, k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return expr_list(acc, k, param); - }), _error_eof); + return expr_list(acc, k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (c > 32 || c < 9) { if (c === 41) { return Curry._2(k, undefined, { - NAME: "List", - VAL: List.rev(acc) - }); + NAME: "List", + VAL: List.rev(acc) + }); } } else if (c > 31 || c < 11) { - continue ; + continue; } return expr_starting_with(c, (function (last, e) { - if (last !== undefined) { - if (last !== 40) { - if (last !== 41) { - return expr_list({ - hd: e, - tl: acc - }, k, t); - } else { - return Curry._2(k, undefined, { - NAME: "List", - VAL: List.rev({ - hd: e, - tl: acc - }) - }); - } - } else { - return expr_list(/* [] */0, (function (param, l) { - return expr_list({ - hd: l, - tl: acc - }, k, t); - }), t); - } - } else { - return expr_list({ - hd: e, - tl: acc - }, k, t); - } - }), t); + if (last !== undefined) { + if (last !== 40) { + if (last !== 41) { + return expr_list({ + hd: e, + tl: acc + }, k, t); + } else { + return Curry._2(k, undefined, { + NAME: "List", + VAL: List.rev({ + hd: e, + tl: acc + }) + }); + } + } else { + return expr_list(/* [] */0, (function (param, l) { + return expr_list({ + hd: l, + tl: acc + }, k, t); + }), t); + } + } else { + return expr_list({ + hd: e, + tl: acc + }, k, t); + } + }), t); }; } function _return_atom(last, k, t) { - var s = $$Buffer.contents(t.atom); + let s = $$Buffer.contents(t.atom); t.atom.position = 0; return Curry._2(k, last, { - NAME: "Atom", - VAL: s - }); + NAME: "Atom", + VAL: s + }); } function atom(k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return atom(k, param); - }), (function (param) { - return _return_atom(undefined, k, param); - })); + return atom(k, param); + }), (function (param) { + return _return_atom(undefined, k, param); + })); } - var c = _get(t); - var exit = 0; + let c = _get(t); + let exit = 0; if (c >= 35) { if (c >= 42) { if (c === 92) { @@ -389,7 +389,7 @@ function atom(k, t) { switch (exit) { case 1 : $$Buffer.add_char(t.atom, c); - continue ; + continue; case 2 : return _return_atom(c, k, t); @@ -401,31 +401,31 @@ function quoted(k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return quoted(k, param); - }), _error_eof); + return quoted(k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (c === 34) { return _return_atom(undefined, k, t); } if (c === 92) { return escaped((function (c) { - $$Buffer.add_char(t.atom, c); - return quoted(k, t); - }), t); + $$Buffer.add_char(t.atom, c); + return quoted(k, t); + }), t); } $$Buffer.add_char(t.atom, c); - continue ; + continue; }; } function escaped(k, t) { if (t.i === t.len) { return _refill(t, (function (param) { - return escaped(k, param); - }), _error_eof); + return escaped(k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (c >= 92) { if (c < 117) { switch (c) { @@ -469,8 +469,8 @@ function escaped(k, t) { } if (_is_digit(c)) { return read2int(c - /* '0' */48 | 0, (function (n) { - return Curry._1(k, Char.chr(n)); - }), t); + return Curry._1(k, Char.chr(n)); + }), t); } else { return _error(t)("unexpected escaped char '" + (c + "'")); } @@ -479,10 +479,10 @@ function escaped(k, t) { function read2int(i, k, t) { if (t.i === t.len) { return _refill(t, (function (param) { - return read2int(i, k, param); - }), _error_eof); + return read2int(i, k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (_is_digit(c)) { return read1int(Math.imul(10, i) + (c - /* '0' */48 | 0) | 0, k, t); } else { @@ -493,10 +493,10 @@ function read2int(i, k, t) { function read1int(i, k, t) { if (t.i === t.len) { return _refill(t, (function (param) { - return read1int(i, k, param); - }), _error_eof); + return read1int(i, k, param); + }), _error_eof); } - var c = _get(t); + let c = _get(t); if (_is_digit(c)) { return Curry._1(k, Math.imul(10, i) + (c - /* '0' */48 | 0) | 0); } else { @@ -508,14 +508,14 @@ function skip_comment(k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return skip_comment(k, param); - }), _error_eof); + return skip_comment(k, param); + }), _error_eof); } - var match = _get(t); + let match = _get(t); if (match === 10) { return Curry._2(k, undefined, undefined); } - continue ; + continue; }; } @@ -523,40 +523,40 @@ function expr_or_end(k, t) { while(true) { if (t.i === t.len) { return _refill(t, (function (param) { - return expr_or_end(k, param); - }), (function (param) { - return "End"; - })); + return expr_or_end(k, param); + }), (function (param) { + return "End"; + })); } - var c = _get(t); + let c = _get(t); if (c >= 11) { if (c !== 32) { return expr_starting_with(c, k, t); } - continue ; + continue; } if (c < 9) { return expr_starting_with(c, k, t); } - continue ; + continue; }; } function next(t) { return expr_or_end((function (param, x) { - return { - NAME: "Ok", - VAL: x - }; - }), t); + return { + NAME: "Ok", + VAL: x + }; + }), t); } function parse_string(s) { - var n = s.length; - var stop = { + let n = s.length; + let stop = { contents: false }; - var refill = function (bytes, i, _len) { + let refill = function (bytes, i, _len) { if (stop.contents) { return 0; } else { @@ -565,15 +565,15 @@ function parse_string(s) { return n; } }; - var d = make(n, refill); - var res = next(d); + let d = make(n, refill); + let res = next(d); if (typeof res === "object") { return res; } else { return { - NAME: "Error", - VAL: "unexpected end of file" - }; + NAME: "Error", + VAL: "unexpected end of file" + }; } } diff --git a/jscomp/test/stack_comp_test.js b/jscomp/test/stack_comp_test.js index f7b0b74e67..d44a82031f 100644 --- a/jscomp/test/stack_comp_test.js +++ b/jscomp/test/stack_comp_test.js @@ -67,8 +67,8 @@ function does_raise(f, s) { return true; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/jscomp/test/stream_parser_test.js b/jscomp/test/stream_parser_test.js index 7644ed0f73..0c00b53845 100644 --- a/jscomp/test/stream_parser_test.js +++ b/jscomp/test/stream_parser_test.js @@ -1,23 +1,23 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Mt = require("./mt.js"); -var Curry = require("../../lib/js/curry.js"); -var Queue = require("../../lib/js/queue.js"); -var Genlex = require("../../lib/js/genlex.js"); -var Stream = require("../../lib/js/stream.js"); -var Caml_int32 = require("../../lib/js/caml_int32.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Mt = require("./mt.js"); +let Curry = require("../../lib/js/curry.js"); +let Queue = require("../../lib/js/queue.js"); +let Genlex = require("../../lib/js/genlex.js"); +let Stream = require("../../lib/js/stream.js"); +let Caml_int32 = require("../../lib/js/caml_int32.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Parse_error = /* @__PURE__ */Caml_exceptions.create("Stream_parser_test.Parse_error"); +let Parse_error = /* @__PURE__ */Caml_exceptions.create("Stream_parser_test.Parse_error"); function parse(token) { - var look_ahead = { + let look_ahead = { length: 0, first: "Nil", last: "Nil" }; - var token$1 = function (param) { + let token$1 = function (param) { if (look_ahead.length !== 0) { return Queue.pop(look_ahead); } @@ -26,57 +26,57 @@ function parse(token) { } catch (exn){ return { - TAG: "Kwd", - _0: "==" - }; + TAG: "Kwd", + _0: "==" + }; } }; - var parse_atom = function (param) { - var n = token$1(); + let parse_atom = function (param) { + let n = token$1(); switch (n.TAG) { case "Kwd" : if (n._0 === "(") { - var v = parse_expr_aux(parse_term_aux(parse_atom())); - var match = token$1(); + let v = parse_expr_aux(parse_term_aux(parse_atom())); + let match = token$1(); if (match.TAG === "Kwd") { if (match._0 === ")") { return v; } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "Unbalanced parens" - } - }); + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced parens" + } + }); } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "Unbalanced parens" - } - }); + cause: { + RE_EXN_ID: Parse_error, + _1: "Unbalanced parens" + } + }); } Queue.push(n, look_ahead); throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "unexpected token" - } - }); + cause: { + RE_EXN_ID: Parse_error, + _1: "unexpected token" + } + }); case "Int" : return n._0; default: Queue.push(n, look_ahead); throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "unexpected token" - } - }); + cause: { + RE_EXN_ID: Parse_error, + _1: "unexpected token" + } + }); } }; - var parse_term_aux = function (e1) { - var e = token$1(); + let parse_term_aux = function (e1) { + let e = token$1(); if (e.TAG === "Kwd") { switch (e._0) { case "*" : @@ -92,8 +92,8 @@ function parse(token) { return e1; } }; - var parse_expr_aux = function (e1) { - var e = token$1(); + let parse_expr_aux = function (e1) { + let e = token$1(); if (e.TAG === "Kwd") { switch (e._0) { case "+" : @@ -109,52 +109,52 @@ function parse(token) { return e1; } }; - var r = parse_expr_aux(parse_term_aux(parse_atom())); + let r = parse_expr_aux(parse_term_aux(parse_atom())); return [ - r, - Queue.fold((function (acc, x) { - return { - hd: x, - tl: acc - }; - }), /* [] */0, look_ahead) - ]; + r, + Queue.fold((function (acc, x) { + return { + hd: x, + tl: acc + }; + }), /* [] */0, look_ahead) + ]; } -var lexer = Genlex.make_lexer({ - hd: "(", +let lexer = Genlex.make_lexer({ + hd: "(", + tl: { + hd: "*", + tl: { + hd: "/", tl: { - hd: "*", + hd: "+", tl: { - hd: "/", + hd: "-", tl: { - hd: "+", - tl: { - hd: "-", - tl: { - hd: ")", - tl: /* [] */0 - } - } + hd: ")", + tl: /* [] */0 } } } - }); + } + } +}); function token(chars) { - var strm = lexer(chars); + let strm = lexer(chars); return function (param) { return Stream.next(strm); }; } function l_parse(token) { - var look_ahead = { + let look_ahead = { length: 0, first: "Nil", last: "Nil" }; - var token$1 = function (param) { + let token$1 = function (param) { if (look_ahead.length !== 0) { return Queue.pop(look_ahead); } @@ -163,23 +163,23 @@ function l_parse(token) { } catch (exn){ return { - TAG: "Kwd", - _0: "==" - }; + TAG: "Kwd", + _0: "==" + }; } }; - var parse_f_aux = function (_a) { + let parse_f_aux = function (_a) { while(true) { - var a = _a; - var t = token$1(); + let a = _a; + let t = token$1(); if (t.TAG === "Kwd") { switch (t._0) { case "*" : _a = Math.imul(a, parse_f()); - continue ; + continue; case "/" : _a = Caml_int32.div(a, parse_f()); - continue ; + continue; default: Queue.push(t, look_ahead); return a; @@ -190,60 +190,60 @@ function l_parse(token) { } }; }; - var parse_f = function (param) { - var i = token$1(); + let parse_f = function (param) { + let i = token$1(); switch (i.TAG) { case "Kwd" : if (i._0 === "(") { - var v = parse_t_aux(parse_f_aux(parse_f())); - var t = token$1(); + let v = parse_t_aux(parse_f_aux(parse_f())); + let t = token$1(); if (t.TAG === "Kwd") { if (t._0 === ")") { return v; } throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "Unbalanced )" - } - }); - } - throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error, - _1: "Unbalanced )" - } - }); - } - throw new Error(Parse_error, { cause: { RE_EXN_ID: Parse_error, - _1: "Unexpected token" + _1: "Unbalanced )" } }); - case "Int" : - return i._0; - default: - throw new Error(Parse_error, { + } + throw new Error(Parse_error, { cause: { RE_EXN_ID: Parse_error, - _1: "Unexpected token" + _1: "Unbalanced )" } }); + } + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unexpected token" + } + }); + case "Int" : + return i._0; + default: + throw new Error(Parse_error, { + cause: { + RE_EXN_ID: Parse_error, + _1: "Unexpected token" + } + }); } }; - var parse_t_aux = function (_a) { + let parse_t_aux = function (_a) { while(true) { - var a = _a; - var t = token$1(); + let a = _a; + let t = token$1(); if (t.TAG === "Kwd") { switch (t._0) { case "+" : _a = a + parse_f_aux(parse_f()) | 0; - continue ; + continue; case "-" : _a = a - parse_f_aux(parse_f()) | 0; - continue ; + continue; default: Queue.push(t, look_ahead); return a; @@ -254,23 +254,23 @@ function l_parse(token) { } }; }; - var r = parse_t_aux(parse_f_aux(parse_f())); + let r = parse_t_aux(parse_f_aux(parse_f())); return [ - r, - Queue.fold((function (acc, x) { - return { - hd: x, - tl: acc - }; - }), /* [] */0, look_ahead) - ]; + r, + Queue.fold((function (acc, x) { + return { + hd: x, + tl: acc + }; + }), /* [] */0, look_ahead) + ]; } -var suites = { +let suites = { contents: /* [] */0 }; -var test_id = { +let test_id = { contents: 0 }; @@ -280,54 +280,54 @@ function eq(loc, x, y) { hd: [ loc + (" id " + String(test_id.contents)), (function (param) { - return { - TAG: "Eq", - _0: x, - _1: y - }; - }) + return { + TAG: "Eq", + _0: x, + _1: y + }; + }) ], tl: suites.contents }; } -var match = parse(token(Stream.of_string("1 + 2 + (3 - 2) * 3 * 3 - 2 a"))); +let match = parse(token(Stream.of_string("1 + 2 + (3 - 2) * 3 * 3 - 2 a"))); eq("File \"stream_parser_test.res\", line 141, characters 5-12", [ - match[0], - match[1] - ], [ - 10, - { - hd: { - TAG: "Ident", - _0: "a" - }, - tl: /* [] */0 - } - ]); + match[0], + match[1] +], [ + 10, + { + hd: { + TAG: "Ident", + _0: "a" + }, + tl: /* [] */0 + } +]); eq("File \"stream_parser_test.res\", line 142, characters 5-12", [ - 2, - { - hd: { - TAG: "Kwd", - _0: "==" - }, - tl: /* [] */0 - } - ], parse(token(Stream.of_string("3 - 2 - 1")))); + 2, + { + hd: { + TAG: "Kwd", + _0: "==" + }, + tl: /* [] */0 + } +], parse(token(Stream.of_string("3 - 2 - 1")))); eq("File \"stream_parser_test.res\", line 143, characters 5-12", [ - 0, - { - hd: { - TAG: "Kwd", - _0: "==" - }, - tl: /* [] */0 - } - ], l_parse(token(Stream.of_string("3 - 2 - 1")))); + 0, + { + hd: { + TAG: "Kwd", + _0: "==" + }, + tl: /* [] */0 + } +], l_parse(token(Stream.of_string("3 - 2 - 1")))); Mt.from_pair_suites("Stream_parser_test", suites.contents); diff --git a/jscomp/test/string_set.js b/jscomp/test/string_set.js index 3a27d69e96..7103bdbfba 100644 --- a/jscomp/test/string_set.js +++ b/jscomp/test/string_set.js @@ -1,61 +1,61 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var $$Array = require("../../lib/js/array.js"); -var $$String = require("../../lib/js/string.js"); -var Set_gen = require("./set_gen.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let $$Array = require("../../lib/js/array.js"); +let $$String = require("../../lib/js/string.js"); +let Set_gen = require("./set_gen.js"); function split(x, tree) { if (typeof tree !== "object") { return [ - "Empty", - false, - "Empty" - ]; + "Empty", + false, + "Empty" + ]; } - var r = tree._2; - var v = tree._1; - var l = tree._0; - var c = Caml.string_compare(x, v); + let r = tree._2; + let v = tree._1; + let l = tree._0; + let c = Caml.string_compare(x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - Set_gen.internal_join(match[2], v, r) - ]; + match[0], + match[1], + Set_gen.internal_join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - Set_gen.internal_join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + Set_gen.internal_join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; } function add(x, tree) { if (typeof tree !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: "Empty", - _3: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: "Empty", + _3: 1 + }; } - var r = tree._2; - var v = tree._1; - var l = tree._0; - var c = Caml.string_compare(x, v); + let r = tree._2; + let v = tree._1; + let l = tree._0; + let c = Caml.string_compare(x, v); if (c === 0) { return tree; } else if (c < 0) { @@ -69,24 +69,24 @@ function union(s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1._3; - var v1 = s1._1; + let h1 = s1._3; + let v1 = s1._1; if (typeof s2 !== "object") { return s1; } - var h2 = s2._3; - var v2 = s2._1; + let h2 = s2._3; + let v2 = s2._1; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return Set_gen.internal_join(union(s1._0, match[0]), v1, union(s1._2, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return Set_gen.internal_join(union(match$1[0], s2._0), v2, union(match$1[2], s2._2)); } @@ -97,11 +97,11 @@ function inter(s1, s2) { if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return Set_gen.internal_join(inter(l1, l2), v1, inter(r1, match[2])); } else { @@ -116,11 +116,11 @@ function diff(s1, s2) { if (typeof s2 !== "object") { return s1; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return Set_gen.internal_concat(diff(l1, l2), diff(r1, match[2])); } else { @@ -130,16 +130,16 @@ function diff(s1, s2) { function mem(x, _tree) { while(true) { - var tree = _tree; + let tree = _tree; if (typeof tree !== "object") { return false; } - var c = Caml.string_compare(x, tree._1); + let c = Caml.string_compare(x, tree._1); if (c === 0) { return true; } _tree = c < 0 ? tree._0 : tree._2; - continue ; + continue; }; } @@ -147,10 +147,10 @@ function remove(x, tree) { if (typeof tree !== "object") { return "Empty"; } - var r = tree._2; - var v = tree._1; - var l = tree._0; - var c = Caml.string_compare(x, v); + let r = tree._2; + let v = tree._1; + let l = tree._0; + let c = Caml.string_compare(x, v); if (c === 0) { return Set_gen.internal_merge(l, r); } else if (c < 0) { @@ -170,72 +170,72 @@ function equal(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; if (typeof s2 !== "object") { return false; } - var r2 = s2._2; - var l2 = s2._0; - var c = Caml.string_compare(v1, s2._1); + let r2 = s2._2; + let l2 = s2._0; + let c = Caml.string_compare(v1, s2._1); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - _0: l1, - _1: v1, - _2: "Empty", - _3: 0 - }, l2)) { + TAG: "Node", + _0: l1, + _1: v1, + _2: "Empty", + _3: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - _0: "Empty", - _1: v1, - _2: r1, - _3: 0 - }, r2)) { + TAG: "Node", + _0: "Empty", + _1: v1, + _2: r1, + _3: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function find(x, _tree) { while(true) { - var tree = _tree; + let tree = _tree; if (typeof tree !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = tree._1; - var c = Caml.string_compare(x, v); + let v = tree._1; + let c = Caml.string_compare(x, v); if (c === 0) { return v; } _tree = c < 0 ? tree._0 : tree._2; - continue ; + continue; }; } @@ -243,23 +243,23 @@ function of_list(l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return Set_gen.singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, Set_gen.singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, Set_gen.singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { return Set_gen.of_sorted_list(List.sort_uniq($$String.compare, l)); @@ -273,8 +273,8 @@ function of_list(l) { function of_array(l) { return $$Array.fold_left((function (acc, x) { - return add(x, acc); - }), "Empty", l); + return add(x, acc); + }), "Empty", l); } function invariant(t) { @@ -282,39 +282,39 @@ function invariant(t) { return Set_gen.is_ordered($$String.compare, t); } -var compare_elt = $$String.compare; +let compare_elt = $$String.compare; -var empty = "Empty"; +let empty = "Empty"; -var is_empty = Set_gen.is_empty; +let is_empty = Set_gen.is_empty; -var iter = Set_gen.iter; +let iter = Set_gen.iter; -var fold = Set_gen.fold; +let fold = Set_gen.fold; -var for_all = Set_gen.for_all; +let for_all = Set_gen.for_all; -var exists = Set_gen.exists; +let exists = Set_gen.exists; -var singleton = Set_gen.singleton; +let singleton = Set_gen.singleton; -var cardinal = Set_gen.cardinal; +let cardinal = Set_gen.cardinal; -var elements = Set_gen.elements; +let elements = Set_gen.elements; -var min_elt = Set_gen.min_elt; +let min_elt = Set_gen.min_elt; -var max_elt = Set_gen.max_elt; +let max_elt = Set_gen.max_elt; -var choose = Set_gen.choose; +let choose = Set_gen.choose; -var partition = Set_gen.partition; +let partition = Set_gen.partition; -var filter = Set_gen.filter; +let filter = Set_gen.filter; -var of_sorted_list = Set_gen.of_sorted_list; +let of_sorted_list = Set_gen.of_sorted_list; -var of_sorted_array = Set_gen.of_sorted_array; +let of_sorted_array = Set_gen.of_sorted_array; exports.compare_elt = compare_elt; exports.empty = empty; diff --git a/jscomp/test/string_test.js b/jscomp/test/string_test.js index dd54bb2deb..3bbfc4e23a 100644 --- a/jscomp/test/string_test.js +++ b/jscomp/test/string_test.js @@ -74,8 +74,8 @@ function rev_split_by_char(c, s) { }; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; return loop(0, /* [] */0); @@ -105,8 +105,8 @@ function xsplit(delim, s) { }; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } let l_0 = $$String.sub(s, i$p + 1 | 0, (x - i$p | 0) - 1 | 0); let l$1 = { diff --git a/jscomp/test/stringmatch_test.js b/jscomp/test/stringmatch_test.js index 5bf7c32ec5..69510ced77 100644 --- a/jscomp/test/stringmatch_test.js +++ b/jscomp/test/stringmatch_test.js @@ -12,71 +12,71 @@ function tst01(s) { if (tst01("") !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 22, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 22, + 2 + ] + } + }); } if (tst01("\x00\x00\x00\x03") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 23, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 23, + 2 + ] + } + }); } if (tst01("\x00\x00\x00\x00\x00\x00\x00\x07") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 24, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 24, + 2 + ] + } + }); } function tst02(s) { - var len = s.length; + let len = s.length; if (s === "") { if (len >= 0) { return 1; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 33, - 21 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 33, + 21 + ] + } + }); } if (len === 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 35, - 21 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 35, + 21 + ] + } + }); } if (s === "A") { return 2; @@ -87,67 +87,67 @@ function tst02(s) { if (tst02("") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 42, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 42, + 2 + ] + } + }); } if (tst02("A") !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 43, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 43, + 2 + ] + } + }); } if (tst02("B") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 44, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 44, + 2 + ] + } + }); } if (tst02("\x00\x00\x00\x00\x00\x00\x00\x07") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 45, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 45, + 2 + ] + } + }); } if (tst02("\x00\x00\x00\x03") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 46, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 46, + 2 + ] + } + }); } function tst03(s) { @@ -207,626 +207,626 @@ function tst03(s) { if (tst03("get_const") !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 131, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 131, + 2 + ] + } + }); } if (tst03("set_congt") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 132, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 132, + 2 + ] + } + }); } if (tst03("get_var") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 133, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 133, + 2 + ] + } + }); } if (tst03("gat_ver") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 134, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 134, + 2 + ] + } + }); } if (tst03("get_env") !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 135, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 135, + 2 + ] + } + }); } if (tst03("get_env") !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 136, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 136, + 2 + ] + } + }); } if (tst03("get_meth") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 137, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 137, + 2 + ] + } + }); } if (tst03("met_geth") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 138, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 138, + 2 + ] + } + }); } if (tst03("set_var") !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 139, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 139, + 2 + ] + } + }); } if (tst03("sev_tar") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 140, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 140, + 2 + ] + } + }); } if (tst03("app_const") !== 5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 141, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 141, + 2 + ] + } + }); } if (tst03("ppa_const") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 142, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 142, + 2 + ] + } + }); } if (tst03("app_var") !== 6) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 143, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 143, + 2 + ] + } + }); } if (tst03("app_var") !== 6) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 144, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 144, + 2 + ] + } + }); } if (tst03("app_env") !== 7) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 145, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 145, + 2 + ] + } + }); } if (tst03("epp_anv") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 146, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 146, + 2 + ] + } + }); } if (tst03("app_meth") !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 147, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 147, + 2 + ] + } + }); } if (tst03("atp_meph") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 148, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 148, + 2 + ] + } + }); } if (tst03("app_const_const") !== 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 149, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 149, + 2 + ] + } + }); } if (tst03("app_const_const") !== 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 150, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 150, + 2 + ] + } + }); } if (tst03("app_const_var") !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 151, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 151, + 2 + ] + } + }); } if (tst03("atp_consp_var") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 152, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 152, + 2 + ] + } + }); } if (tst03("app_const_env") !== 11) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 153, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 153, + 2 + ] + } + }); } if (tst03("app_constne_v") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 154, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 154, + 2 + ] + } + }); } if (tst03("app_const_meth") !== 12) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 155, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 155, + 2 + ] + } + }); } if (tst03("spp_conat_meth") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 156, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 156, + 2 + ] + } + }); } if (tst03("app_var_const") !== 13) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 157, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 157, + 2 + ] + } + }); } if (tst03("app_va_rconst") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 158, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 158, + 2 + ] + } + }); } if (tst03("app_env_const") !== 14) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 159, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 159, + 2 + ] + } + }); } if (tst03("app_env_const") !== 14) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 160, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 160, + 2 + ] + } + }); } if (tst03("app_meth_const") !== 15) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 161, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 161, + 2 + ] + } + }); } if (tst03("app_teth_consm") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 162, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 162, + 2 + ] + } + }); } if (tst03("meth_app_const") !== 16) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 163, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 163, + 2 + ] + } + }); } if (tst03("math_epp_const") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 164, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 164, + 2 + ] + } + }); } if (tst03("meth_app_var") !== 17) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 165, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 165, + 2 + ] + } + }); } if (tst03("meth_app_var") !== 17) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 166, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 166, + 2 + ] + } + }); } if (tst03("meth_app_env") !== 18) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 167, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 167, + 2 + ] + } + }); } if (tst03("eeth_app_mnv") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 168, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 168, + 2 + ] + } + }); } if (tst03("meth_app_meth") !== 19) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 169, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 169, + 2 + ] + } + }); } if (tst03("meth_apt_meph") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 170, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 170, + 2 + ] + } + }); } if (tst03("send_const") !== 20) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 171, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 171, + 2 + ] + } + }); } if (tst03("tend_conss") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 172, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 172, + 2 + ] + } + }); } if (tst03("send_var") !== 21) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 173, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 173, + 2 + ] + } + }); } if (tst03("serd_van") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 174, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 174, + 2 + ] + } + }); } if (tst03("send_env") !== 22) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 175, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 175, + 2 + ] + } + }); } if (tst03("sen_denv") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 176, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 176, + 2 + ] + } + }); } if (tst03("send_meth") !== 23) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 177, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 177, + 2 + ] + } + }); } if (tst03("tend_mesh") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 178, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 178, + 2 + ] + } + }); } function tst04(s) { @@ -862,249 +862,249 @@ function tst04(s) { if (tst04("AAAAAAAA") !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 215, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 215, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAA") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 216, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 216, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAAAAAAAAAA") !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 217, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 217, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 218, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 218, + 2 + ] + } + }); } if (tst04("BBBBBBBB") !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 219, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 219, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBB") !== 5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 220, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 220, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBBBBBBBBBB") !== 6) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 221, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 221, + 2 + ] + } + }); } if (tst04("BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB") !== 7) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 222, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 222, + 2 + ] + } + }); } if (tst04("CCCCCCCC") !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 223, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 223, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCC") !== 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 224, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 224, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCCCCCCCCCC") !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 225, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 225, + 2 + ] + } + }); } if (tst04("CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC") !== 11) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 226, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 226, + 2 + ] + } + }); } if (tst04("") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 227, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 227, + 2 + ] + } + }); } if (tst04("DDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 228, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 228, + 2 + ] + } + }); } if (tst04("DDDDDDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 229, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 229, + 2 + ] + } + }); } if (tst04("AAADDDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 230, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 230, + 2 + ] + } + }); } if (tst04("AAAAAAADDDDDDDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 231, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 231, + 2 + ] + } + }); } if (tst04("AAAAAAADDDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 232, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 232, + 2 + ] + } + }); } if (tst04("AAAAAAAAAAAAAAADDDD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 233, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 233, + 2 + ] + } + }); } function tst05(s) { @@ -1142,657 +1142,657 @@ function tst05(s) { if (tst05("AAA") !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 272, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 272, + 2 + ] + } + }); } if (tst05("AAAA") !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 273, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 273, + 2 + ] + } + }); } if (tst05("AAAAA") !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 274, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 274, + 2 + ] + } + }); } if (tst05("AAAAAA") !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 275, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 275, + 2 + ] + } + }); } if (tst05("AAAAAAA") !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 276, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 276, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAA") !== 5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 277, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 277, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAAAAAA") !== 6) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 278, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 278, + 2 + ] + } + }); } if (tst05("AAAAAAAAAAAAAAAAAAAA") !== 7) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 279, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 279, + 2 + ] + } + }); } if (tst05("BBB") !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 280, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 280, + 2 + ] + } + }); } if (tst05("BBBB") !== 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 281, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 281, + 2 + ] + } + }); } if (tst05("BBBBB") !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 282, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 282, + 2 + ] + } + }); } if (tst05("BBBBBB") !== 11) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 283, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 283, + 2 + ] + } + }); } if (tst05("BBBBBBB") !== 12) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 284, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 284, + 2 + ] + } + }); } if (tst05("") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 285, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 285, + 2 + ] + } + }); } if (tst05("AAD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 286, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 286, + 2 + ] + } + }); } if (tst05("AAAD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 287, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 287, + 2 + ] + } + }); } if (tst05("AAAAAAD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 288, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 288, + 2 + ] + } + }); } if (tst05("AAAAAAAD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 289, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 289, + 2 + ] + } + }); } if (tst05("BBD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 290, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 290, + 2 + ] + } + }); } if (tst05("BBBD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 291, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 291, + 2 + ] + } + }); } if (tst05("BBBBBBD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 292, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 292, + 2 + ] + } + }); } if (tst05("BBBBBBBD") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 293, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 293, + 2 + ] + } + }); } -var s00 = "and"; +let s00 = "and"; -var t00 = "nad"; +let t00 = "nad"; -var s01 = "as"; +let s01 = "as"; -var t01 = "sa"; +let t01 = "sa"; -var s02 = "assert"; +let s02 = "assert"; -var t02 = "asesrt"; +let t02 = "asesrt"; -var s03 = "begin"; +let s03 = "begin"; -var t03 = "negib"; +let t03 = "negib"; -var s04 = "class"; +let s04 = "class"; -var t04 = "lcass"; +let t04 = "lcass"; -var s05 = "constraint"; +let s05 = "constraint"; -var t05 = "constiarnt"; +let t05 = "constiarnt"; -var s06 = "do"; +let s06 = "do"; -var t06 = "od"; +let t06 = "od"; -var s07 = "done"; +let s07 = "done"; -var t07 = "eond"; +let t07 = "eond"; -var s08 = "downto"; +let s08 = "downto"; -var t08 = "dowtno"; +let t08 = "dowtno"; -var s09 = "else"; +let s09 = "else"; -var t09 = "lese"; +let t09 = "lese"; -var s10 = "end"; +let s10 = "end"; -var t10 = "edn"; +let t10 = "edn"; -var s11 = "exception"; +let s11 = "exception"; -var t11 = "exception"; +let t11 = "exception"; -var s12 = "external"; +let s12 = "external"; -var t12 = "external"; +let t12 = "external"; -var s13 = "false"; +let s13 = "false"; -var t13 = "fslae"; +let t13 = "fslae"; -var s14 = "for"; +let s14 = "for"; -var t14 = "ofr"; +let t14 = "ofr"; -var s15 = "fun"; +let s15 = "fun"; -var t15 = "fnu"; +let t15 = "fnu"; -var s16 = "function"; +let s16 = "function"; -var t16 = "function"; +let t16 = "function"; -var s17 = "functor"; +let s17 = "functor"; -var t17 = "ounctfr"; +let t17 = "ounctfr"; -var s18 = "if"; +let s18 = "if"; -var t18 = "fi"; +let t18 = "fi"; -var s19 = "in"; +let s19 = "in"; -var t19 = "in"; +let t19 = "in"; -var s20 = "include"; +let s20 = "include"; -var t20 = "inculde"; +let t20 = "inculde"; -var s21 = "inherit"; +let s21 = "inherit"; -var t21 = "iehnrit"; +let t21 = "iehnrit"; -var s22 = "initializer"; +let s22 = "initializer"; -var t22 = "enitializir"; +let t22 = "enitializir"; -var s23 = "lazy"; +let s23 = "lazy"; -var t23 = "zaly"; +let t23 = "zaly"; -var s24 = "let"; +let s24 = "let"; -var t24 = "elt"; +let t24 = "elt"; -var s25 = "match"; +let s25 = "match"; -var t25 = "match"; +let t25 = "match"; -var s26 = "method"; +let s26 = "method"; -var t26 = "methdo"; +let t26 = "methdo"; -var s27 = "module"; +let s27 = "module"; -var t27 = "modelu"; +let t27 = "modelu"; -var s28 = "mutable"; +let s28 = "mutable"; -var t28 = "butamle"; +let t28 = "butamle"; -var s29 = "new"; +let s29 = "new"; -var t29 = "wen"; +let t29 = "wen"; -var s30 = "object"; +let s30 = "object"; -var t30 = "objcet"; +let t30 = "objcet"; -var s31 = "of"; +let s31 = "of"; -var t31 = "of"; +let t31 = "of"; -var s32 = "open"; +let s32 = "open"; -var t32 = "epon"; +let t32 = "epon"; -var s33 = "or"; +let s33 = "or"; -var t33 = "ro"; +let t33 = "ro"; -var s34 = "private"; +let s34 = "private"; -var t34 = "privaet"; +let t34 = "privaet"; -var s35 = "rec"; +let s35 = "rec"; -var t35 = "rec"; +let t35 = "rec"; -var s36 = "sig"; +let s36 = "sig"; -var t36 = "gis"; +let t36 = "gis"; -var s37 = "struct"; +let s37 = "struct"; -var t37 = "scrutt"; +let t37 = "scrutt"; -var s38 = "then"; +let s38 = "then"; -var t38 = "hten"; +let t38 = "hten"; -var s39 = "to"; +let s39 = "to"; -var t39 = "to"; +let t39 = "to"; -var s40 = "true"; +let s40 = "true"; -var t40 = "teur"; +let t40 = "teur"; -var s41 = "try"; +let s41 = "try"; -var t41 = "try"; +let t41 = "try"; -var s42 = "type"; +let s42 = "type"; -var t42 = "pyte"; +let t42 = "pyte"; -var s43 = "val"; +let s43 = "val"; -var t43 = "val"; +let t43 = "val"; -var s44 = "virtual"; +let s44 = "virtual"; -var t44 = "vritual"; +let t44 = "vritual"; -var s45 = "when"; +let s45 = "when"; -var t45 = "whne"; +let t45 = "whne"; -var s46 = "while"; +let s46 = "while"; -var t46 = "wlihe"; +let t46 = "wlihe"; -var s47 = "with"; +let s47 = "with"; -var t47 = "iwth"; +let t47 = "iwth"; -var s48 = "mod"; +let s48 = "mod"; -var t48 = "mod"; +let t48 = "mod"; -var s49 = "land"; +let s49 = "land"; -var t49 = "alnd"; +let t49 = "alnd"; -var s50 = "lor"; +let s50 = "lor"; -var t50 = "rol"; +let t50 = "rol"; -var s51 = "lxor"; +let s51 = "lxor"; -var t51 = "lxor"; +let t51 = "lxor"; -var s52 = "lsl"; +let s52 = "lsl"; -var t52 = "lsl"; +let t52 = "lsl"; -var s53 = "lsr"; +let s53 = "lsr"; -var t53 = "lsr"; +let t53 = "lsr"; -var s54 = "asr"; +let s54 = "asr"; -var t54 = "sar"; +let t54 = "sar"; -var s55 = "A"; +let s55 = "A"; -var t55 = "A"; +let t55 = "A"; -var s56 = "AA"; +let s56 = "AA"; -var t56 = "AA"; +let t56 = "AA"; -var s57 = "AAA"; +let s57 = "AAA"; -var t57 = "AAA"; +let t57 = "AAA"; -var s58 = "AAAA"; +let s58 = "AAAA"; -var t58 = "AAAA"; +let t58 = "AAAA"; -var s59 = "AAAAA"; +let s59 = "AAAAA"; -var t59 = "AAAAA"; +let t59 = "AAAAA"; -var s60 = "AAAAAA"; +let s60 = "AAAAAA"; -var t60 = "AAAAAA"; +let t60 = "AAAAAA"; -var s61 = "AAAAAAA"; +let s61 = "AAAAAAA"; -var t61 = "AAAAAAA"; +let t61 = "AAAAAAA"; -var s62 = "AAAAAAAA"; +let s62 = "AAAAAAAA"; -var t62 = "AAAAAAAA"; +let t62 = "AAAAAAAA"; -var s63 = "AAAAAAAAA"; +let s63 = "AAAAAAAAA"; -var t63 = "AAAAAAAAA"; +let t63 = "AAAAAAAAA"; -var s64 = "AAAAAAAAAA"; +let s64 = "AAAAAAAAAA"; -var t64 = "AAAAAAAAAA"; +let t64 = "AAAAAAAAAA"; -var s65 = "AAAAAAAAAAA"; +let s65 = "AAAAAAAAAAA"; -var t65 = "AAAAAAAAAAA"; +let t65 = "AAAAAAAAAAA"; -var s66 = "AAAAAAAAAAAA"; +let s66 = "AAAAAAAAAAAA"; -var t66 = "AAAAAAAAAAAA"; +let t66 = "AAAAAAAAAAAA"; -var s67 = "AAAAAAAAAAAAA"; +let s67 = "AAAAAAAAAAAAA"; -var t67 = "AAAAAAAAAAAAA"; +let t67 = "AAAAAAAAAAAAA"; -var s68 = "AAAAAAAAAAAAAA"; +let s68 = "AAAAAAAAAAAAAA"; -var t68 = "AAAAAAAAAAAAAA"; +let t68 = "AAAAAAAAAAAAAA"; -var s69 = "AAAAAAAAAAAAAAA"; +let s69 = "AAAAAAAAAAAAAAA"; -var t69 = "AAAAAAAAAAAAAAA"; +let t69 = "AAAAAAAAAAAAAAA"; -var s70 = "AAAAAAAAAAAAAAAA"; +let s70 = "AAAAAAAAAAAAAAAA"; -var t70 = "AAAAAAAAAAAAAAAA"; +let t70 = "AAAAAAAAAAAAAAAA"; -var s71 = "AAAAAAAAAAAAAAAAA"; +let s71 = "AAAAAAAAAAAAAAAAA"; -var t71 = "AAAAAAAAAAAAAAAAA"; +let t71 = "AAAAAAAAAAAAAAAAA"; -var s72 = "AAAAAAAAAAAAAAAAAA"; +let s72 = "AAAAAAAAAAAAAAAAAA"; -var t72 = "AAAAAAAAAAAAAAAAAA"; +let t72 = "AAAAAAAAAAAAAAAAAA"; -var s73 = "AAAAAAAAAAAAAAAAAAA"; +let s73 = "AAAAAAAAAAAAAAAAAAA"; -var t73 = "AAAAAAAAAAAAAAAAAAA"; +let t73 = "AAAAAAAAAAAAAAAAAAA"; -var s74 = "AAAAAAAAAAAAAAAAAAAA"; +let s74 = "AAAAAAAAAAAAAAAAAAAA"; -var t74 = "AAAAAAAAAAAAAAAAAAAA"; +let t74 = "AAAAAAAAAAAAAAAAAAAA"; -var s75 = "AAAAAAAAAAAAAAAAAAAAA"; +let s75 = "AAAAAAAAAAAAAAAAAAAAA"; -var t75 = "AAAAAAAAAAAAAAAAAAAAA"; +let t75 = "AAAAAAAAAAAAAAAAAAAAA"; -var s76 = "AAAAAAAAAAAAAAAAAAAAAA"; +let s76 = "AAAAAAAAAAAAAAAAAAAAAA"; -var t76 = "AAAAAAAAAAAAAAAAAAAAAA"; +let t76 = "AAAAAAAAAAAAAAAAAAAAAA"; -var s77 = "AAAAAAAAAAAAAAAAAAAAAAA"; +let s77 = "AAAAAAAAAAAAAAAAAAAAAAA"; -var t77 = "AAAAAAAAAAAAAAAAAAAAAAA"; +let t77 = "AAAAAAAAAAAAAAAAAAAAAAA"; -var s78 = "AAAAAAAAAAAAAAAAAAAAAAAA"; +let s78 = "AAAAAAAAAAAAAAAAAAAAAAAA"; -var t78 = "AAAAAAAAAAAAAAAAAAAAAAAA"; +let t78 = "AAAAAAAAAAAAAAAAAAAAAAAA"; -var s79 = "AAAAAAAAAAAAAAAAAAAAAAAAA"; +let s79 = "AAAAAAAAAAAAAAAAAAAAAAAAA"; -var t79 = "AAAAAAAAAAAAAAAAAAAAAAAAA"; +let t79 = "AAAAAAAAAAAAAAAAAAAAAAAAA"; -var s80 = "AAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s80 = "AAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t80 = "AAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t80 = "AAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s81 = "AAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s81 = "AAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t81 = "AAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t81 = "AAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s82 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s82 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t82 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t82 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s83 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s83 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t83 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t83 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s84 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s84 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t84 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t84 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s85 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s85 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t85 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t85 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s86 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s86 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t86 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t86 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s87 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s87 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t87 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t87 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s88 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let s88 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var t88 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; +let t88 = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"; -var s89 = "BBBBBBBBBBBBBBB"; +let s89 = "BBBBBBBBBBBBBBB"; -var t89 = "BBBBBBBBBBBBBBB"; +let t89 = "BBBBBBBBBBBBBBB"; -var s90 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; +let s90 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; -var t90 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; +let t90 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; -var s91 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; +let s91 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; -var t91 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; +let t91 = "BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB"; function tst06(s) { switch (s) { @@ -1987,2407 +1987,2407 @@ function tst06(s) { if (tst06(s00) !== 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 582, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 582, + 2 + ] + } + }); } if (tst06(t00) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 583, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 583, + 2 + ] + } + }); } if (tst06(s01) !== 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 584, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 584, + 2 + ] + } + }); } if (tst06(t01) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 585, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 585, + 2 + ] + } + }); } if (tst06(s02) !== 2) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 586, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 586, + 2 + ] + } + }); } if (tst06(t02) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 587, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 587, + 2 + ] + } + }); } if (tst06(s03) !== 3) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 588, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 588, + 2 + ] + } + }); } if (tst06(t03) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 589, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 589, + 2 + ] + } + }); } if (tst06(s04) !== 4) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 590, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 590, + 2 + ] + } + }); } if (tst06(t04) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 591, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 591, + 2 + ] + } + }); } if (tst06(s05) !== 5) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 592, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 592, + 2 + ] + } + }); } if (tst06(t05) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 593, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 593, + 2 + ] + } + }); } if (tst06(s06) !== 6) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 594, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 594, + 2 + ] + } + }); } if (tst06(t06) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 595, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 595, + 2 + ] + } + }); } if (tst06(s07) !== 7) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 596, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 596, + 2 + ] + } + }); } if (tst06(t07) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 597, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 597, + 2 + ] + } + }); } if (tst06(s08) !== 8) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 598, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 598, + 2 + ] + } + }); } if (tst06(t08) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 599, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 599, + 2 + ] + } + }); } if (tst06(s09) !== 9) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 600, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 600, + 2 + ] + } + }); } if (tst06(t09) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 601, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 601, + 2 + ] + } + }); } if (tst06(s10) !== 10) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 602, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 602, + 2 + ] + } + }); } if (tst06(t10) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 603, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 603, + 2 + ] + } + }); } if (tst06(s11) !== 11) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 604, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 604, + 2 + ] + } + }); } if (tst06(t11) !== 11) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 605, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 605, + 2 + ] + } + }); } if (tst06(s12) !== 12) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 606, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 606, + 2 + ] + } + }); } if (tst06(t12) !== 12) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 607, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 607, + 2 + ] + } + }); } if (tst06(s13) !== 13) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 608, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 608, + 2 + ] + } + }); } if (tst06(t13) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 609, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 609, + 2 + ] + } + }); } if (tst06(s14) !== 14) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 610, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 610, + 2 + ] + } + }); } if (tst06(t14) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 611, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 611, + 2 + ] + } + }); } if (tst06(s15) !== 15) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 612, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 612, + 2 + ] + } + }); } if (tst06(t15) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 613, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 613, + 2 + ] + } + }); } if (tst06(s16) !== 16) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 614, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 614, + 2 + ] + } + }); } if (tst06(t16) !== 16) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 615, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 615, + 2 + ] + } + }); } if (tst06(s17) !== 17) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 616, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 616, + 2 + ] + } + }); } if (tst06(t17) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 617, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 617, + 2 + ] + } + }); } if (tst06(s18) !== 18) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 618, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 618, + 2 + ] + } + }); } if (tst06(t18) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 619, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 619, + 2 + ] + } + }); } if (tst06(s19) !== 19) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 620, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 620, + 2 + ] + } + }); } if (tst06(t19) !== 19) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 621, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 621, + 2 + ] + } + }); } if (tst06(s20) !== 20) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 622, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 622, + 2 + ] + } + }); } if (tst06(t20) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 623, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 623, + 2 + ] + } + }); } if (tst06(s21) !== 21) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 624, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 624, + 2 + ] + } + }); } if (tst06(t21) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 625, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 625, + 2 + ] + } + }); } if (tst06(s22) !== 22) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 626, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 626, + 2 + ] + } + }); } if (tst06(t22) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 627, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 627, + 2 + ] + } + }); } if (tst06(s23) !== 23) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 628, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 628, + 2 + ] + } + }); } if (tst06(t23) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 629, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 629, + 2 + ] + } + }); } if (tst06(s24) !== 24) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 630, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 630, + 2 + ] + } + }); } if (tst06(t24) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 631, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 631, + 2 + ] + } + }); } if (tst06(s25) !== 25) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 632, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 632, + 2 + ] + } + }); } if (tst06(t25) !== 25) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 633, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 633, + 2 + ] + } + }); } if (tst06(s26) !== 26) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 634, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 634, + 2 + ] + } + }); } if (tst06(t26) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 635, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 635, + 2 + ] + } + }); } if (tst06(s27) !== 27) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 636, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 636, + 2 + ] + } + }); } if (tst06(t27) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 637, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 637, + 2 + ] + } + }); } if (tst06(s28) !== 28) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 638, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 638, + 2 + ] + } + }); } if (tst06(t28) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 639, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 639, + 2 + ] + } + }); } if (tst06(s29) !== 29) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 640, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 640, + 2 + ] + } + }); } if (tst06(t29) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 641, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 641, + 2 + ] + } + }); } if (tst06(s30) !== 30) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 642, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 642, + 2 + ] + } + }); } if (tst06(t30) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 643, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 643, + 2 + ] + } + }); } if (tst06(s31) !== 31) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 644, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 644, + 2 + ] + } + }); } if (tst06(t31) !== 31) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 645, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 645, + 2 + ] + } + }); } if (tst06(s32) !== 32) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 646, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 646, + 2 + ] + } + }); } if (tst06(t32) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 647, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 647, + 2 + ] + } + }); } if (tst06(s33) !== 33) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 648, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 648, + 2 + ] + } + }); } if (tst06(t33) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 649, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 649, + 2 + ] + } + }); } if (tst06(s34) !== 34) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 650, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 650, + 2 + ] + } + }); } if (tst06(t34) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 651, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 651, + 2 + ] + } + }); } if (tst06(s35) !== 35) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 652, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 652, + 2 + ] + } + }); } if (tst06(t35) !== 35) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 653, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 653, + 2 + ] + } + }); } if (tst06(s36) !== 36) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 654, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 654, + 2 + ] + } + }); } if (tst06(t36) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 655, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 655, + 2 + ] + } + }); } if (tst06(s37) !== 37) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 656, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 656, + 2 + ] + } + }); } if (tst06(t37) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 657, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 657, + 2 + ] + } + }); } if (tst06(s38) !== 38) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 658, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 658, + 2 + ] + } + }); } if (tst06(t38) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 659, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 659, + 2 + ] + } + }); } if (tst06(s39) !== 39) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 660, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 660, + 2 + ] + } + }); } if (tst06(t39) !== 39) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 661, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 661, + 2 + ] + } + }); } if (tst06(s40) !== 40) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 662, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 662, + 2 + ] + } + }); } if (tst06(t40) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 663, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 663, + 2 + ] + } + }); } if (tst06(s41) !== 41) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 664, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 664, + 2 + ] + } + }); } if (tst06(t41) !== 41) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 665, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 665, + 2 + ] + } + }); } if (tst06(s42) !== 42) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 666, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 666, + 2 + ] + } + }); } if (tst06(t42) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 667, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 667, + 2 + ] + } + }); } if (tst06(s43) !== 43) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 668, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 668, + 2 + ] + } + }); } if (tst06(t43) !== 43) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 669, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 669, + 2 + ] + } + }); } if (tst06(s44) !== 44) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 670, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 670, + 2 + ] + } + }); } if (tst06(t44) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 671, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 671, + 2 + ] + } + }); } if (tst06(s45) !== 45) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 672, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 672, + 2 + ] + } + }); } if (tst06(t45) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 673, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 673, + 2 + ] + } + }); } if (tst06(s46) !== 46) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 674, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 674, + 2 + ] + } + }); } if (tst06(t46) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 675, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 675, + 2 + ] + } + }); } if (tst06(s47) !== 47) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 676, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 676, + 2 + ] + } + }); } if (tst06(t47) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 677, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 677, + 2 + ] + } + }); } if (tst06(s48) !== 48) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 678, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 678, + 2 + ] + } + }); } if (tst06(t48) !== 48) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 679, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 679, + 2 + ] + } + }); } if (tst06(s49) !== 49) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 680, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 680, + 2 + ] + } + }); } if (tst06(t49) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 681, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 681, + 2 + ] + } + }); } if (tst06(s50) !== 50) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 682, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 682, + 2 + ] + } + }); } if (tst06(t50) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 683, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 683, + 2 + ] + } + }); } if (tst06(s51) !== 51) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 684, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 684, + 2 + ] + } + }); } if (tst06(t51) !== 51) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 685, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 685, + 2 + ] + } + }); } if (tst06(s52) !== 52) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 686, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 686, + 2 + ] + } + }); } if (tst06(t52) !== 52) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 687, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 687, + 2 + ] + } + }); } if (tst06(s53) !== 53) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 688, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 688, + 2 + ] + } + }); } if (tst06(t53) !== 53) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 689, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 689, + 2 + ] + } + }); } if (tst06(s54) !== 54) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 690, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 690, + 2 + ] + } + }); } if (tst06(t54) !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 691, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 691, + 2 + ] + } + }); } if (tst06(s55) !== 55) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 692, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 692, + 2 + ] + } + }); } if (tst06(t55) !== 55) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 693, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 693, + 2 + ] + } + }); } if (tst06(s56) !== 56) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 694, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 694, + 2 + ] + } + }); } if (tst06(t56) !== 56) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 695, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 695, + 2 + ] + } + }); } if (tst06(s57) !== 57) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 696, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 696, + 2 + ] + } + }); } if (tst06(t57) !== 57) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 697, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 697, + 2 + ] + } + }); } if (tst06(s58) !== 58) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 698, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 698, + 2 + ] + } + }); } if (tst06(t58) !== 58) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 699, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 699, + 2 + ] + } + }); } if (tst06(s59) !== 59) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 700, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 700, + 2 + ] + } + }); } if (tst06(t59) !== 59) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 701, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 701, + 2 + ] + } + }); } if (tst06(s60) !== 60) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 702, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 702, + 2 + ] + } + }); } if (tst06(t60) !== 60) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 703, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 703, + 2 + ] + } + }); } if (tst06(s61) !== 61) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 704, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 704, + 2 + ] + } + }); } if (tst06(t61) !== 61) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 705, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 705, + 2 + ] + } + }); } if (tst06(s62) !== 62) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 706, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 706, + 2 + ] + } + }); } if (tst06(t62) !== 62) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 707, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 707, + 2 + ] + } + }); } if (tst06(s63) !== 63) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 708, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 708, + 2 + ] + } + }); } if (tst06(t63) !== 63) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 709, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 709, + 2 + ] + } + }); } if (tst06(s64) !== 64) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 710, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 710, + 2 + ] + } + }); } if (tst06(t64) !== 64) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 711, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 711, + 2 + ] + } + }); } if (tst06(s65) !== 65) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 712, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 712, + 2 + ] + } + }); } if (tst06(t65) !== 65) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 713, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 713, + 2 + ] + } + }); } if (tst06(s66) !== 66) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 714, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 714, + 2 + ] + } + }); } if (tst06(t66) !== 66) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 715, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 715, + 2 + ] + } + }); } if (tst06(s67) !== 67) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 716, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 716, + 2 + ] + } + }); } if (tst06(t67) !== 67) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 717, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 717, + 2 + ] + } + }); } if (tst06(s68) !== 68) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 718, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 718, + 2 + ] + } + }); } if (tst06(t68) !== 68) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 719, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 719, + 2 + ] + } + }); } if (tst06(s69) !== 69) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 720, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 720, + 2 + ] + } + }); } if (tst06(t69) !== 69) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 721, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 721, + 2 + ] + } + }); } if (tst06(s70) !== 70) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 722, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 722, + 2 + ] + } + }); } if (tst06(t70) !== 70) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 723, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 723, + 2 + ] + } + }); } if (tst06(s71) !== 71) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 724, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 724, + 2 + ] + } + }); } if (tst06(t71) !== 71) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 725, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 725, + 2 + ] + } + }); } if (tst06(s72) !== 72) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 726, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 726, + 2 + ] + } + }); } if (tst06(t72) !== 72) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 727, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 727, + 2 + ] + } + }); } if (tst06(s73) !== 73) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 728, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 728, + 2 + ] + } + }); } if (tst06(t73) !== 73) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 729, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 729, + 2 + ] + } + }); } if (tst06(s74) !== 74) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 730, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 730, + 2 + ] + } + }); } if (tst06(t74) !== 74) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 731, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 731, + 2 + ] + } + }); } if (tst06(s75) !== 75) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 732, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 732, + 2 + ] + } + }); } if (tst06(t75) !== 75) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 733, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 733, + 2 + ] + } + }); } if (tst06(s76) !== 76) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 734, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 734, + 2 + ] + } + }); } if (tst06(t76) !== 76) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 735, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 735, + 2 + ] + } + }); } if (tst06(s77) !== 77) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 736, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 736, + 2 + ] + } + }); } if (tst06(t77) !== 77) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 737, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 737, + 2 + ] + } + }); } if (tst06(s78) !== 78) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 738, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 738, + 2 + ] + } + }); } if (tst06(t78) !== 78) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 739, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 739, + 2 + ] + } + }); } if (tst06(s79) !== 79) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 740, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 740, + 2 + ] + } + }); } if (tst06(t79) !== 79) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 741, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 741, + 2 + ] + } + }); } if (tst06(s80) !== 80) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 742, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 742, + 2 + ] + } + }); } if (tst06(t80) !== 80) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 743, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 743, + 2 + ] + } + }); } if (tst06(s81) !== 81) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 744, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 744, + 2 + ] + } + }); } if (tst06(t81) !== 81) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 745, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 745, + 2 + ] + } + }); } if (tst06(s82) !== 82) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 746, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 746, + 2 + ] + } + }); } if (tst06(t82) !== 82) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 747, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 747, + 2 + ] + } + }); } if (tst06(s83) !== 83) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 748, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 748, + 2 + ] + } + }); } if (tst06(t83) !== 83) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 749, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 749, + 2 + ] + } + }); } if (tst06(s84) !== 84) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 750, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 750, + 2 + ] + } + }); } if (tst06(t84) !== 84) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 751, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 751, + 2 + ] + } + }); } if (tst06(s85) !== 85) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 752, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 752, + 2 + ] + } + }); } if (tst06(t85) !== 85) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 753, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 753, + 2 + ] + } + }); } if (tst06(s86) !== 86) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 754, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 754, + 2 + ] + } + }); } if (tst06(t86) !== 86) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 755, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 755, + 2 + ] + } + }); } if (tst06(s87) !== 87) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 756, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 756, + 2 + ] + } + }); } if (tst06(t87) !== 87) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 757, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 757, + 2 + ] + } + }); } if (tst06(s88) !== 88) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 758, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 758, + 2 + ] + } + }); } if (tst06(t88) !== 88) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 759, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 759, + 2 + ] + } + }); } if (tst06(s89) !== 89) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 760, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 760, + 2 + ] + } + }); } if (tst06(t89) !== 89) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 761, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 761, + 2 + ] + } + }); } if (tst06(s90) !== 90) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 762, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 762, + 2 + ] + } + }); } if (tst06(t90) !== 90) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 763, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 763, + 2 + ] + } + }); } if (tst06(s91) !== 91) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 764, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 764, + 2 + ] + } + }); } if (tst06(t91) !== 91) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 765, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 765, + 2 + ] + } + }); } if (tst06("") !== -1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stringmatch_test.res", - 766, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stringmatch_test.res", + 766, + 2 + ] + } + }); } exports.tst01 = tst01; diff --git a/jscomp/test/test_array_primitive.js b/jscomp/test/test_array_primitive.js index ec04ca4f81..d1dc53858d 100644 --- a/jscomp/test/test_array_primitive.js +++ b/jscomp/test/test_array_primitive.js @@ -1,11 +1,11 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_array = require("../../lib/js/caml_array.js"); +let Caml_array = require("../../lib/js/caml_array.js"); function caml_array_sub(x, offset, len) { - var result = new Array(len); - for(var j = 0; j < len; ++j){ + let result = new Array(len); + for(let j = 0; j < len; ++j){ Caml_array.set(result, j, Caml_array.get(x, offset + j | 0)); } return result; @@ -14,11 +14,11 @@ function caml_array_sub(x, offset, len) { function caml_array_set(xs, index, newval) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } Caml_array.set(xs, index, newval); } @@ -26,18 +26,18 @@ function caml_array_set(xs, index, newval) { function caml_array_get(xs, index) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return Caml_array.get(xs, index); } function caml_make_vect(len, init) { - var b = new Array(len); - for(var i = 0; i < len; ++i){ + let b = new Array(len); + for(let i = 0; i < len; ++i){ Caml_array.set(b, i, init); } return b; diff --git a/jscomp/test/test_bool_equal.js b/jscomp/test/test_bool_equal.js index 3627c632c6..7ba6649e5b 100644 --- a/jscomp/test/test_bool_equal.js +++ b/jscomp/test/test_bool_equal.js @@ -19,51 +19,51 @@ function bool_equal(x, y) { function assertions(param) { if (!bool_equal(true, true)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 16, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 16, + 2 + ] + } + }); } if (!bool_equal(false, false)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 17, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 17, + 2 + ] + } + }); } if (bool_equal(true, false)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 18, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 18, + 2 + ] + } + }); } if (bool_equal(false, true)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_bool_equal.res", - 19, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_bool_equal.res", + 19, + 2 + ] + } + }); } } diff --git a/jscomp/test/test_closure.js b/jscomp/test/test_closure.js index 379788cb56..96cd4f8993 100644 --- a/jscomp/test/test_closure.js +++ b/jscomp/test/test_closure.js @@ -1,45 +1,43 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_array = require("../../lib/js/caml_array.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_array = require("../../lib/js/caml_array.js"); -var v = { +let v = { contents: 0 }; function f(param) { - var arr = Caml_array.make(10, (function (param) { - - })); - for(var i = 0; i <= 9; ++i){ - Caml_array.set(arr, i, (function(i){ - return function (param) { - v.contents = v.contents + i | 0; - } - }(i))); + let arr = Caml_array.make(10, (function (param) { + + })); + for(let i = 0; i <= 9; ++i){ + Caml_array.set(arr, i, (function (param) { + v.contents = v.contents + i | 0; + })); } return arr; } -var u = f(); +let u = f(); $$Array.iter((function (x) { - Curry._1(x, undefined); - }), u); + Curry._1(x, undefined); +}), u); if (v.contents !== 45) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_closure.res", - 52, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_closure.res", + 52, + 2 + ] + } + }); } exports.v = v; diff --git a/jscomp/test/test_exception.js b/jscomp/test/test_exception.js index c6d2201a06..c8e8edc719 100644 --- a/jscomp/test/test_exception.js +++ b/jscomp/test/test_exception.js @@ -1,57 +1,57 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Test_common = require("./test_common.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Test_common = require("./test_common.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Local = /* @__PURE__ */Caml_exceptions.create("Test_exception.Local"); +let Local = /* @__PURE__ */Caml_exceptions.create("Test_exception.Local"); function f(param) { throw new Error(Local, { - cause: { - RE_EXN_ID: Local, - _1: 3 - } - }); + cause: { + RE_EXN_ID: Local, + _1: 3 + } + }); } function g(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function h(param) { throw new Error(Test_common.U, { - cause: { - RE_EXN_ID: Test_common.U, - _1: 3 - } - }); + cause: { + RE_EXN_ID: Test_common.U, + _1: 3 + } + }); } function x(param) { throw new Error(Test_common.H, { - cause: { - RE_EXN_ID: Test_common.H - } - }); + cause: { + RE_EXN_ID: Test_common.H + } + }); } function xx(param) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "x" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "x" + } + }); } -var Nullary = /* @__PURE__ */Caml_exceptions.create("Test_exception.Nullary"); +let Nullary = /* @__PURE__ */Caml_exceptions.create("Test_exception.Nullary"); -var a = { +let a = { RE_EXN_ID: Nullary }; diff --git a/jscomp/test/test_exception_escape.js b/jscomp/test/test_exception_escape.js index b7abf5bd60..8b90039f39 100644 --- a/jscomp/test/test_exception_escape.js +++ b/jscomp/test/test_exception_escape.js @@ -1,25 +1,25 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var A = /* @__PURE__ */Caml_exceptions.create("Test_exception_escape.N.A"); +let A = /* @__PURE__ */Caml_exceptions.create("Test_exception_escape.N.A"); -var f; +let f; try { throw new Error(A, { - cause: { - RE_EXN_ID: A, - _1: 3 - } - }); + cause: { + RE_EXN_ID: A, + _1: 3 + } + }); } catch (exn){ f = 3; } -var N = { +let N = { f: f }; diff --git a/jscomp/test/test_for_map.js b/jscomp/test/test_for_map.js index a80558497f..b8c3075fa4 100644 --- a/jscomp/test/test_for_map.js +++ b/jscomp/test/test_for_map.js @@ -1,9 +1,9 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_option = require("../../lib/js/caml_option.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_option = require("../../lib/js/caml_option.js"); function height(param) { if (typeof param !== "object") { @@ -14,47 +14,47 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function singleton(x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -62,34 +62,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -97,11 +97,11 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -115,42 +115,42 @@ function is_empty(param) { function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -160,299 +160,299 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Caml.int_compare(x, param.v); + let c = Caml.int_compare(x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function min_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function min_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function max_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function max_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function remove_min_binding(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -467,7 +467,7 @@ function merge(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); } @@ -475,23 +475,23 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -501,53 +501,53 @@ function remove(x, param) { function update(x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { @@ -557,14 +557,14 @@ function update(x, f, param) { function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; } @@ -572,53 +572,53 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; } function mapi(f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; } function fold(f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -629,13 +629,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -646,7 +646,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -670,11 +670,11 @@ function join(l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -691,7 +691,7 @@ function concat(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); } @@ -706,37 +706,37 @@ function concat_or_join(t1, v, d, t2) { function split(x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function merge$1(f, s1, s2) { @@ -746,27 +746,27 @@ function merge$1(f, s1, s2) { } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); } @@ -774,28 +774,28 @@ function union(f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { @@ -807,13 +807,13 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -828,36 +828,36 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } } function cons_enum(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -869,16 +869,16 @@ function cons_enum(_m, _e) { _3: e }; _m = m.l; - continue ; + continue; }; } function compare(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -889,26 +889,26 @@ function compare(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.int_compare(e1._0, e2._0); + let c = Caml.int_compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } function equal(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -927,7 +927,7 @@ function equal(cmp, m1, m2) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } @@ -941,8 +941,8 @@ function cardinal(param) { function bindings_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -954,7 +954,7 @@ function bindings_aux(_accu, _param) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; } @@ -962,7 +962,7 @@ function bindings(s) { return bindings_aux(/* [] */0, s); } -var IntMap = { +let IntMap = { empty: "Empty", is_empty: is_empty, mem: mem, @@ -1000,11 +1000,11 @@ var IntMap = { }; function assertion_test(param) { - var m = "Empty"; - for(var i = 0; i <= 1000000; ++i){ + let m = "Empty"; + for(let i = 0; i <= 1000000; ++i){ m = add(i, i, m); } - for(var i$1 = 0; i$1 <= 1000000; ++i$1){ + for(let i$1 = 0; i$1 <= 1000000; ++i$1){ find(i$1, m); } } diff --git a/jscomp/test/test_incomplete.js b/jscomp/test/test_incomplete.js index 832981b722..89fb301e78 100644 --- a/jscomp/test/test_incomplete.js +++ b/jscomp/test/test_incomplete.js @@ -7,15 +7,15 @@ function f(x) { return /* 'a' */97; } throw new Error("Match_failure", { - cause: { - RE_EXN_ID: "Match_failure", - _1: [ - "test_incomplete.res", - 3, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Match_failure", + _1: [ + "test_incomplete.res", + 3, + 2 + ] + } + }); } function f2(x) { diff --git a/jscomp/test/test_int_map_find.js b/jscomp/test/test_int_map_find.js index 023d5fb107..bb5b8cdfce 100644 --- a/jscomp/test/test_int_map_find.js +++ b/jscomp/test/test_int_map_find.js @@ -1,8 +1,8 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); function height(param) { if (typeof param !== "object") { @@ -13,36 +13,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -50,34 +50,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -85,52 +85,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.int_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.int_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -139,31 +139,31 @@ function add(x, data, param) { } List.fold_left((function (acc, param) { - return add(param[0], param[1], acc); - }), "Empty", { + return add(param[0], param[1], acc); +}), "Empty", { + hd: [ + 10, + /* 'a' */97 + ], + tl: { + hd: [ + 3, + /* 'b' */98 + ], + tl: { hd: [ - 10, - /* 'a' */97 + 7, + /* 'c' */99 ], tl: { hd: [ - 3, - /* 'b' */98 + 20, + /* 'd' */100 ], - tl: { - hd: [ - 7, - /* 'c' */99 - ], - tl: { - hd: [ - 20, - /* 'd' */100 - ], - tl: /* [] */0 - } - } + tl: /* [] */0 } - }); + } + } +}); /* Not a pure module */ diff --git a/jscomp/test/test_list.js b/jscomp/test/test_list.js index 1cf27806ca..f6b0f3d41e 100644 --- a/jscomp/test/test_list.js +++ b/jscomp/test/test_list.js @@ -1,21 +1,21 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Pervasives = require("../../lib/js/pervasives.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Pervasives = require("../../lib/js/pervasives.js"); function length_aux(_len, _x) { while(true) { - var x = _x; - var len = _len; + let x = _x; + let len = _len; if (!x) { return len; } _x = x.tl; _len = len + 1 | 0; - continue ; + continue; }; } @@ -28,11 +28,11 @@ function hd(x) { return x.hd; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "hd" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(x) { @@ -40,48 +40,48 @@ function tl(x) { return x.tl; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "tl" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (l$1) { if (n$1 === 0) { return l$1.hd; } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "nth" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function rev_append(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -90,7 +90,7 @@ function rev_append(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -110,22 +110,22 @@ function map(f, x) { if (!x) { return /* [] */0; } - var r = Curry._1(f, x.hd); + let r = Curry._1(f, x.hd); return { - hd: r, - tl: map(f, x.tl) - }; + hd: r, + tl: map(f, x.tl) + }; } function mapi(i, f, x) { if (!x) { return /* [] */0; } - var r = Curry._2(f, i, x.hd); + let r = Curry._2(f, i, x.hd); return { - hd: r, - tl: mapi(i + 1 | 0, f, x.tl) - }; + hd: r, + tl: mapi(i + 1 | 0, f, x.tl) + }; } function mapi$1(f, l) { @@ -133,11 +133,11 @@ function mapi$1(f, l) { } function rev_map(f, l) { - var _accu = /* [] */0; - var _x = l; + let _accu = /* [] */0; + let _x = l; while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return accu; } @@ -146,48 +146,48 @@ function rev_map(f, l) { hd: Curry._1(f, x.hd), tl: accu }; - continue ; + continue; }; } function iter(f, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } Curry._1(f, x.hd); _x = x.tl; - continue ; + continue; }; } function iteri(f, l) { - var _i = 0; - var _x = l; + let _i = 0; + let _x = l; while(true) { - var x = _x; - var i = _i; + let x = _x; + let i = _i; if (!x) { - return ; + return; } Curry._2(f, i, x.hd); _x = x.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, _accu, _l) { while(true) { - var l = _l; - var accu = _accu; + let l = _l; + let accu = _accu; if (!l) { return accu; } _l = l.tl; _accu = Curry._2(f, accu, l.hd); - continue ; + continue; }; } @@ -202,38 +202,38 @@ function fold_right(f, l, accu) { function map2(f, l1, l2) { if (l1) { if (l2) { - var r = Curry._2(f, l1.hd, l2.hd); + let r = Curry._2(f, l1.hd, l2.hd); return { - hd: r, - tl: map2(f, l1.tl, l2.tl) - }; + hd: r, + tl: map2(f, l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { - var _accu = /* [] */0; - var _l1 = l1; - var _l2 = l2; + let _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; while(true) { - var l2$1 = _l2; - var l1$1 = _l1; - var accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; + let accu = _accu; if (l1$1) { if (l2$1) { _l2 = l2$1.tl; @@ -242,22 +242,22 @@ function rev_map2(f, l1, l2) { hd: Curry._2(f, l1$1.hd, l2$1.hd), tl: accu }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -265,60 +265,60 @@ function rev_map2(f, l1, l2) { function iter2(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { Curry._2(f, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { - return ; + return; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } function fold_left2(f, _accu, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; - var accu = _accu; + let l2 = _l2; + let l1 = _l1; + let accu = _accu; if (l1) { if (l2) { _l2 = l2.tl; _l1 = l1.tl; _accu = Curry._3(f, accu, l1.hd, l2.hd); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -330,26 +330,26 @@ function fold_right2(f, l1, l2, accu) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } function for_all(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { return true; } @@ -357,13 +357,13 @@ function for_all(p, _x) { return false; } _x = x.tl; - continue ; + continue; }; } function exists(p, _x) { while(true) { - var x = _x; + let x = _x; if (!x) { return false; } @@ -371,14 +371,14 @@ function exists(p, _x) { return true; } _x = x.tl; - continue ; + continue; }; } function for_all2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (!Curry._2(p, l1.hd, l2.hd)) { @@ -386,31 +386,31 @@ function for_all2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } function exists2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (Curry._2(p, l1.hd, l2.hd)) { @@ -418,30 +418,30 @@ function exists2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } function mem(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (!x_) { return false; } @@ -449,13 +449,13 @@ function mem(x, _x_) { return true; } _x_ = x_.tl; - continue ; + continue; }; } function memq(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (!x_) { return false; } @@ -463,51 +463,51 @@ function memq(x, _x_) { return true; } _x_ = x_.tl; - continue ; + continue; }; } function assoc(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (x_) { - var match = x_.hd; + let match = x_.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _x_ = x_.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assq(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (x_) { - var match = x_.hd; + let match = x_.hd; if (match[0] === x) { return match[1]; } _x_ = x_.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function mem_assoc(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (!x_) { return false; } @@ -515,13 +515,13 @@ function mem_assoc(x, _x_) { return true; } _x_ = x_.tl; - continue ; + continue; }; } function mem_assq(x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (!x_) { return false; } @@ -529,7 +529,7 @@ function mem_assq(x, _x_) { return true; } _x_ = x_.tl; - continue ; + continue; }; } @@ -537,15 +537,15 @@ function remove_assoc(x, x_) { if (!x_) { return /* [] */0; } - var l = x_.tl; - var pair = x_.hd; + let l = x_.tl; + let pair = x_.hd; if (Caml_obj.equal(pair[0], x)) { return l; } else { return { - hd: pair, - tl: remove_assoc(x, l) - }; + hd: pair, + tl: remove_assoc(x, l) + }; } } @@ -553,144 +553,144 @@ function remove_assq(x, x_) { if (!x_) { return /* [] */0; } - var l = x_.tl; - var pair = x_.hd; + let l = x_.tl; + let pair = x_.hd; if (pair[0] === x) { return l; } else { return { - hd: pair, - tl: remove_assq(x, l) - }; + hd: pair, + tl: remove_assq(x, l) + }; } } function find(p, _x) { while(true) { - var x = _x; + let x = _x; if (x) { - var x$1 = x.hd; + let x$1 = x.hd; if (Curry._1(p, x$1)) { return x$1; } _x = x.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function find_all(p) { return function (param) { - var _accu = /* [] */0; - var _x = param; + let _accu = /* [] */0; + let _x = param; while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (!x) { return rev_append(accu, /* [] */0); } - var l = x.tl; - var x$1 = x.hd; + let l = x.tl; + let x$1 = x.hd; if (Curry._1(p, x$1)) { _x = l; _accu = { hd: x$1, tl: accu }; - continue ; + continue; } _x = l; - continue ; + continue; }; }; } function partition(p, l) { - var _yes = /* [] */0; - var _no = /* [] */0; - var _x = l; + let _yes = /* [] */0; + let _no = /* [] */0; + let _x = l; while(true) { - var x = _x; - var no = _no; - var yes = _yes; + let x = _x; + let no = _no; + let yes = _yes; if (!x) { return [ - rev_append(yes, /* [] */0), - rev_append(no, /* [] */0) - ]; + rev_append(yes, /* [] */0), + rev_append(no, /* [] */0) + ]; } - var l$1 = x.tl; - var x$1 = x.hd; + let l$1 = x.tl; + let x$1 = x.hd; if (Curry._1(p, x$1)) { _x = l$1; _yes = { hd: x$1, tl: yes }; - continue ; + continue; } _x = l$1; _no = { hd: x$1, tl: no }; - continue ; + continue; }; } function split(x) { if (!x) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = x.hd; - var match$1 = split(x.tl); + let match = x.hd; + let match$1 = split(x.tl); return [ - { - hd: match[0], - tl: match$1[0] - }, - { - hd: match[1], - tl: match$1[1] - } - ]; + { + hd: match[0], + tl: match$1[0] + }, + { + hd: match[1], + tl: match$1[1] + } + ]; } function combine(l1, l2) { if (l1) { if (l2) { return { - hd: [ - l1.hd, - l2.hd - ], - tl: combine(l1.tl, l2.tl) - }; + hd: [ + l1.hd, + l2.hd + ], + tl: combine(l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -700,125 +700,125 @@ function merge(cmp, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { return { - hd: h1, - tl: merge(cmp, l1.tl, l2) - }; + hd: h1, + tl: merge(cmp, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(cmp, l1, l2.tl) - }; + hd: h2, + tl: merge(cmp, l1, l2.tl) + }; } } function chop(_k, _l) { while(true) { - var l = _l; - var k = _k; + let l = _l; + let k = _k; if (k === 0) { return l; } if (l) { _l = l.tl; _k = k - 1 | 0; - continue ; + continue; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_list.res", - 343, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_list.res", + 343, + 11 + ] + } + }); }; } function stable_sort(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) <= 0) { if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -827,144 +827,144 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) <= 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) > 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) > 0) { if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -973,67 +973,67 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var len = length_aux(0, l); + let len = length_aux(0, l); if (len < 2) { return l; } else { @@ -1042,151 +1042,151 @@ function stable_sort(cmp, l) { } function sort_uniq(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c < 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 < 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 < 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 < 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1195,59 +1195,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 < 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1255,7 +1255,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 > 0) { _accu = { @@ -1263,161 +1263,161 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c > 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1426,59 +1426,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1486,7 +1486,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 < 0) { _accu = { @@ -1494,17 +1494,17 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var len = length_aux(0, l); + let len = length_aux(0, l); if (len < 2) { return l; } else { @@ -1512,17 +1512,17 @@ function sort_uniq(cmp, l) { } } -var u = List.length; +let u = List.length; -var append = Pervasives.$at; +let append = Pervasives.$at; -var concat = flatten; +let concat = flatten; -var filter = find_all; +let filter = find_all; -var sort = stable_sort; +let sort = stable_sort; -var fast_sort = stable_sort; +let fast_sort = stable_sort; exports.u = u; exports.length_aux = length_aux; diff --git a/jscomp/test/test_match_exception.js b/jscomp/test/test_match_exception.js index 34b26f9e7b..3e2ab2cf40 100644 --- a/jscomp/test/test_match_exception.js +++ b/jscomp/test/test_match_exception.js @@ -14,8 +14,8 @@ function f(g, x) { return 3; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/jscomp/test/test_per.js b/jscomp/test/test_per.js index 882b5a42a5..a966844427 100644 --- a/jscomp/test/test_per.js +++ b/jscomp/test/test_per.js @@ -1,40 +1,40 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Caml_sys = require("../../lib/js/caml_sys.js"); -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Caml_int64 = require("../../lib/js/caml_int64.js"); -var Caml_format = require("../../lib/js/caml_format.js"); -var Caml_string = require("../../lib/js/caml_string.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Caml_sys = require("../../lib/js/caml_sys.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Caml_int64 = require("../../lib/js/caml_int64.js"); +let Caml_format = require("../../lib/js/caml_format.js"); +let Caml_string = require("../../lib/js/caml_string.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); Caml_external_polyfill.resolve("register_named_value")("Pervasives.array_bound_error", { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - }); + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" +}); function failwith(s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } -var Exit = /* @__PURE__ */Caml_exceptions.create("Test_per.Exit"); +let Exit = /* @__PURE__ */Caml_exceptions.create("Test_per.Exit"); function min(x, y) { if (Caml_obj.lessequal(x, y)) { @@ -64,42 +64,42 @@ function lnot(x) { return x ^ -1; } -var min_int = -2147483648; +let min_int = -2147483648; -var infinity = Caml_int64.float_of_bits([ - 2146435072, - 0 - ]); +let infinity = Caml_int64.float_of_bits([ + 2146435072, + 0 +]); -var neg_infinity = Caml_int64.float_of_bits([ - -1048576, - 0 - ]); +let neg_infinity = Caml_int64.float_of_bits([ + -1048576, + 0 +]); -var nan = Caml_int64.float_of_bits([ - 2146435072, - 1 - ]); +let nan = Caml_int64.float_of_bits([ + 2146435072, + 1 +]); -var max_float = Caml_int64.float_of_bits([ - 2146435071, - 4294967295 - ]); +let max_float = Caml_int64.float_of_bits([ + 2146435071, + 4294967295 +]); -var min_float = Caml_int64.float_of_bits([ - 1048576, - 0 - ]); +let min_float = Caml_int64.float_of_bits([ + 1048576, + 0 +]); -var epsilon_float = Caml_int64.float_of_bits([ - 1018167296, - 0 - ]); +let epsilon_float = Caml_int64.float_of_bits([ + 1018167296, + 0 +]); function $caret(s1, s2) { - var l1 = s1.length; - var l2 = s2.length; - var s = Caml_bytes.create(l1 + l2 | 0); + let l1 = s1.length; + let l2 = s2.length; + let s = Caml_bytes.create(l1 + l2 | 0); Caml_external_polyfill.resolve("blit_string")(s1, 0, s, 0, l1); Caml_external_polyfill.resolve("blit_string")(s2, 0, s, l1, l2); return s; @@ -108,11 +108,11 @@ function $caret(s1, s2) { function char_of_int(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -133,11 +133,11 @@ function bool_of_string(x) { return true; default: throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -146,26 +146,26 @@ function string_of_int(n) { } function valid_float_lexem(s) { - var l = s.length; - var _i = 0; + let l = s.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= l) { return $caret(s, "."); } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 48) { if (match >= 58) { return s; } _i = i + 1 | 0; - continue ; + continue; } if (match !== 45) { return s; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -176,9 +176,9 @@ function string_of_float(f) { function $at(l1, l2) { if (l1) { return { - hd: l1.hd, - tl: $at(l1.tl, l2) - }; + hd: l1.hd, + tl: $at(l1.tl, l2) + }; } else { return l2; } @@ -190,42 +190,42 @@ function open_out_gen(mode, perm, name) { function open_out(name) { return open_out_gen({ - hd: "Open_wronly", - tl: { - hd: "Open_creat", - tl: { - hd: "Open_trunc", - tl: { - hd: "Open_text", - tl: /* [] */0 - } - } - } - }, 438, name); + hd: "Open_wronly", + tl: { + hd: "Open_creat", + tl: { + hd: "Open_trunc", + tl: { + hd: "Open_text", + tl: /* [] */0 + } + } + } + }, 438, name); } function open_out_bin(name) { return open_out_gen({ - hd: "Open_wronly", - tl: { - hd: "Open_creat", - tl: { - hd: "Open_trunc", - tl: { - hd: "Open_binary", - tl: /* [] */0 - } - } - } - }, 438, name); + hd: "Open_wronly", + tl: { + hd: "Open_creat", + tl: { + hd: "Open_trunc", + tl: { + hd: "Open_binary", + tl: /* [] */0 + } + } + } + }, 438, name); } function flush_all(param) { - var _x = Caml_external_polyfill.resolve("ml_out_channels_list")(); + let _x = Caml_external_polyfill.resolve("ml_out_channels_list")(); while(true) { - var x = _x; + let x = _x; if (!x) { - return ; + return; } try { Caml_external_polyfill.resolve("ml_flush")(x.hd); @@ -234,7 +234,7 @@ function flush_all(param) { } _x = x.tl; - continue ; + continue; }; } @@ -249,11 +249,11 @@ function output_string(oc, s) { function output(oc, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "output" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "output" + } + }); } Caml_external_polyfill.resolve("ml_output")(oc, s, ofs, len); } @@ -261,11 +261,11 @@ function output(oc, s, ofs, len) { function output_substring(oc, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "output_substring" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "output_substring" + } + }); } Caml_external_polyfill.resolve("ml_output")(oc, s, ofs, len); } @@ -290,7 +290,7 @@ function close_out_noerr(oc) { return Caml_external_polyfill.resolve("ml_close_channel")(oc); } catch (exn$1){ - return ; + return; } } @@ -300,128 +300,128 @@ function open_in_gen(mode, perm, name) { function open_in(name) { return open_in_gen({ - hd: "Open_rdonly", - tl: { - hd: "Open_text", - tl: /* [] */0 - } - }, 0, name); + hd: "Open_rdonly", + tl: { + hd: "Open_text", + tl: /* [] */0 + } + }, 0, name); } function open_in_bin(name) { return open_in_gen({ - hd: "Open_rdonly", - tl: { - hd: "Open_binary", - tl: /* [] */0 - } - }, 0, name); + hd: "Open_rdonly", + tl: { + hd: "Open_binary", + tl: /* [] */0 + } + }, 0, name); } function input(ic, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "input" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "input" + } + }); } return Caml_external_polyfill.resolve("ml_input")(ic, s, ofs, len); } function unsafe_really_input(ic, s, _ofs, _len) { while(true) { - var len = _len; - var ofs = _ofs; + let len = _len; + let ofs = _ofs; if (len <= 0) { - return ; + return; } - var r = Caml_external_polyfill.resolve("ml_input")(ic, s, ofs, len); + let r = Caml_external_polyfill.resolve("ml_input")(ic, s, ofs, len); if (r === 0) { throw new Error("End_of_file", { - cause: { - RE_EXN_ID: "End_of_file" - } - }); + cause: { + RE_EXN_ID: "End_of_file" + } + }); } _len = len - r | 0; _ofs = ofs + r | 0; - continue ; + continue; }; } function really_input(ic, s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "really_input" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "really_input" + } + }); } unsafe_really_input(ic, s, ofs, len); } function really_input_string(ic, len) { - var s = Caml_bytes.create(len); + let s = Caml_bytes.create(len); really_input(ic, s, 0, len); return s; } function input_line(chan) { - var build_result = function (buf, _pos, _x) { + let build_result = function (buf, _pos, _x) { while(true) { - var x = _x; - var pos = _pos; + let x = _x; + let pos = _pos; if (!x) { return buf; } - var hd = x.hd; - var len = hd.length; + let hd = x.hd; + let len = hd.length; Caml_external_polyfill.resolve("blit_string")(hd, 0, buf, pos - len | 0, len); _x = x.tl; _pos = pos - len | 0; - continue ; + continue; }; }; - var _accu = /* [] */0; - var _len = 0; + let _accu = /* [] */0; + let _len = 0; while(true) { - var len = _len; - var accu = _accu; - var n = Caml_external_polyfill.resolve("ml_input_scan_line")(chan); + let len = _len; + let accu = _accu; + let n = Caml_external_polyfill.resolve("ml_input_scan_line")(chan); if (n === 0) { if (accu) { return build_result(Caml_bytes.create(len), len, accu); } throw new Error("End_of_file", { - cause: { - RE_EXN_ID: "End_of_file" - } - }); + cause: { + RE_EXN_ID: "End_of_file" + } + }); } if (n > 0) { - var res = Caml_bytes.create(n - 1 | 0); + let res = Caml_bytes.create(n - 1 | 0); Caml_external_polyfill.resolve("ml_input")(chan, res, 0, n - 1 | 0); Caml_external_polyfill.resolve("ml_input_char")(chan); if (!accu) { return res; } - var len$1 = (len + n | 0) - 1 | 0; + let len$1 = (len + n | 0) - 1 | 0; return build_result(Caml_bytes.create(len$1), len$1, { - hd: res, - tl: accu - }); + hd: res, + tl: accu + }); } - var beg = Caml_bytes.create(-n | 0); + let beg = Caml_bytes.create(-n | 0); Caml_external_polyfill.resolve("ml_input")(chan, beg, 0, -n | 0); _len = len - n | 0; _accu = { hd: beg, tl: accu }; - continue ; + continue; }; } @@ -430,22 +430,22 @@ function close_in_noerr(ic) { return Caml_external_polyfill.resolve("ml_close_channel")(ic); } catch (exn){ - return ; + return; } } -var LargeFile = {}; +let LargeFile = {}; -var exit_function = { +let exit_function = { contents: flush_all }; function at_exit(f) { - var g = exit_function.contents; + let g = exit_function.contents; exit_function.contents = (function (param) { - Curry._1(f, undefined); - Curry._1(g, undefined); - }); + Curry._1(f, undefined); + Curry._1(g, undefined); + }); } function do_at_exit(param) { @@ -459,7 +459,7 @@ function exit(retcode) { Caml_external_polyfill.resolve("register_named_value")("Pervasives.do_at_exit", do_at_exit); -var max_int = 2147483647; +let max_int = 2147483647; exports.failwith = failwith; exports.invalid_arg = invalid_arg; diff --git a/jscomp/test/test_seq.js b/jscomp/test/test_seq.js index 22aaa15933..98b33eeab9 100644 --- a/jscomp/test/test_seq.js +++ b/jscomp/test/test_seq.js @@ -1,47 +1,47 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var Bad = /* @__PURE__ */Caml_exceptions.create("Test_seq.Bad"); +let Bad = /* @__PURE__ */Caml_exceptions.create("Test_seq.Bad"); -var Help = /* @__PURE__ */Caml_exceptions.create("Test_seq.Help"); +let Help = /* @__PURE__ */Caml_exceptions.create("Test_seq.Help"); -var Stop = /* @__PURE__ */Caml_exceptions.create("Test_seq.Stop"); +let Stop = /* @__PURE__ */Caml_exceptions.create("Test_seq.Stop"); function assoc3(x, _l) { while(true) { - var l = _l; + let l = _l; if (l) { - var match = l.hd; + let match = l.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _l = l.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function help_action(param) { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function v(speclist) { @@ -54,13 +54,13 @@ function f(g, speclist) { } function add_help(speclist) { - var add1; + let add1; try { assoc3("-help", speclist); add1 = /* [] */0; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { add1 = { hd: [ @@ -75,17 +75,17 @@ function add_help(speclist) { }; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } - var add2; + let add2; try { assoc3("--help", speclist); add2 = /* [] */0; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { add2 = { hd: [ @@ -100,8 +100,8 @@ function add_help(speclist) { }; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); diff --git a/jscomp/test/test_set.js b/jscomp/test/test_set.js index 9a2e2fcd15..064c3ee923 100644 --- a/jscomp/test/test_set.js +++ b/jscomp/test/test_set.js @@ -1,47 +1,47 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); function Make(Ord) { - var height = function (x) { + let height = function (x) { if (typeof x !== "object") { return 0; } else { return x._3; } }; - var create = function (l, v, r) { - var hl; + let create = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l._3; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._3; return { - TAG: "Node", - _0: l, - _1: v, - _2: r, - _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; + TAG: "Node", + _0: l, + _1: v, + _2: r, + _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l._3; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r._3; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var lr = l._2; - var lv = l._1; - var ll = l._0; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let lr = l._2; + let lv = l._1; + let ll = l._0; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -49,32 +49,32 @@ function Make(Ord) { return create(create(ll, lv, lr._0), lr._1, create(lr._2, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - _0: l, - _1: v, - _2: r, - _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + _0: l, + _1: v, + _2: r, + _3: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r._2; - var rv = r._1; - var rl = r._0; + let rr = r._2; + let rv = r._1; + let rl = r._0; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -82,26 +82,26 @@ function Make(Ord) { return create(create(l, v, rl._0), rl._1, create(rl._2, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; - var add = function (x, x_) { + let add = function (x, x_) { if (typeof x_ !== "object") { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: "Empty", - _3: 1 - }; - } - var r = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + _0: "Empty", + _1: x, + _2: "Empty", + _3: 1 + }; + } + let r = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return x_; } else if (c < 0) { @@ -110,38 +110,38 @@ function Make(Ord) { return bal(l, v, add(x, r)); } }; - var singleton = function (x) { + let singleton = function (x) { return { - TAG: "Node", - _0: "Empty", - _1: x, - _2: "Empty", - _3: 1 - }; + TAG: "Node", + _0: "Empty", + _1: x, + _2: "Empty", + _3: 1 + }; }; - var add_min_element = function (v, x) { + let add_min_element = function (v, x) { if (typeof x !== "object") { return singleton(v); } else { return bal(add_min_element(v, x._0), x._1, x._2); } }; - var add_max_element = function (v, x) { + let add_max_element = function (v, x) { if (typeof x !== "object") { return singleton(v); } else { return bal(x._0, x._1, add_max_element(v, x._2)); } }; - var join = function (l, v, r) { + let join = function (l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l._3; + let lh = l._3; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r._3; + let rh = r._3; if (lh > (rh + 2 | 0)) { return bal(l._0, l._1, join(l._2, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -150,59 +150,59 @@ function Make(Ord) { return create(l, v, r); } }; - var min_elt = function (_x) { + let min_elt = function (_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._1; } _x = l; - continue ; + continue; }; }; - var max_elt = function (_x) { + let max_elt = function (_x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = x._2; + let r = x._2; if (typeof r !== "object") { return x._1; } _x = r; - continue ; + continue; }; }; - var remove_min_elt = function (x) { + let remove_min_elt = function (x) { if (typeof x !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = x._0; + let l = x._0; if (typeof l !== "object") { return x._2; } else { return bal(remove_min_elt(l), x._1, x._2); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -211,7 +211,7 @@ function Make(Ord) { return bal(t1, min_elt(t2), remove_min_elt(t2)); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -220,69 +220,69 @@ function Make(Ord) { return join(t1, min_elt(t2), remove_min_elt(t2)); } }; - var split = function (x, x_) { + let split = function (x, x_) { if (typeof x_ !== "object") { return [ - "Empty", - false, - "Empty" - ]; - } - var r = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + "Empty", + false, + "Empty" + ]; + } + let r = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var is_empty = function (x) { + let is_empty = function (x) { if (typeof x !== "object") { return true; } else { return false; } }; - var mem = function (x, _x_) { + let mem = function (x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { return false; } - var c = Curry._2(Ord.compare, x, x_._1); + let c = Curry._2(Ord.compare, x, x_._1); if (c === 0) { return true; } _x_ = c < 0 ? x_._0 : x_._2; - continue ; + continue; }; }; - var remove = function (x, x_) { + let remove = function (x, x_) { if (typeof x_ !== "object") { return "Empty"; } - var r = x_._2; - var v = x_._1; - var l = x_._0; - var c = Curry._2(Ord.compare, x, v); + let r = x_._2; + let v = x_._1; + let l = x_._0; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return merge(l, r); } else if (c < 0) { @@ -291,70 +291,70 @@ function Make(Ord) { return bal(l, v, remove(x, r)); } }; - var union = function (s1, s2) { + let union = function (s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1._3; - var v1 = s1._1; + let h1 = s1._3; + let v1 = s1._1; if (typeof s2 !== "object") { return s1; } - var h2 = s2._3; - var v2 = s2._1; + let h2 = s2._3; + let v2 = s2._1; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1._0, match[0]), v1, union(s1._2, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2._0), v2, union(match$1[2], s2._2)); }; - var inter = function (s1, s2) { + let inter = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { return concat(inter(l1, l2), inter(r1, match[2])); } }; - var diff = function (s1, s2) { + let diff = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return s1; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { return join(diff(l1, l2), v1, diff(r1, match[2])); } }; - var cons_enum = function (_s, _e) { + let cons_enum = function (_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -365,13 +365,13 @@ function Make(Ord) { _2: e }; _s = s._0; - continue ; + continue; }; }; - var compare_aux = function (_e1, _e2) { + let compare_aux = function (_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -382,98 +382,98 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; }; - var compare = function (s1, s2) { + let compare = function (s1, s2) { return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); }; - var equal = function (s1, s2) { + let equal = function (s1, s2) { return compare(s1, s2) === 0; }; - var subset = function (_s1, _s2) { + let subset = function (_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1._2; - var v1 = s1._1; - var l1 = s1._0; + let r1 = s1._2; + let v1 = s1._1; + let l1 = s1._0; if (typeof s2 !== "object") { return false; } - var r2 = s2._2; - var l2 = s2._0; - var c = Curry._2(Ord.compare, v1, s2._1); + let r2 = s2._2; + let l2 = s2._0; + let c = Curry._2(Ord.compare, v1, s2._1); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - _0: l1, - _1: v1, - _2: "Empty", - _3: 0 - }, l2)) { + TAG: "Node", + _0: l1, + _1: v1, + _2: "Empty", + _3: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - _0: "Empty", - _1: v1, - _2: r1, - _3: 0 - }, r2)) { + TAG: "Node", + _0: "Empty", + _1: v1, + _2: r1, + _3: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; }; - var iter = function (f, _x_) { + let iter = function (f, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { - return ; + return; } iter(f, x_._0); Curry._1(f, x_._1); _x_ = x_._2; - continue ; + continue; }; }; - var fold = function (f, _s, _accu) { + let fold = function (f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s._1, fold(f, s._0, accu)); _s = s._2; - continue ; + continue; }; }; - var for_all = function (p, _x) { + let for_all = function (p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return true; } @@ -484,12 +484,12 @@ function Make(Ord) { return false; } _x = x._2; - continue ; + continue; }; }; - var exists = function (p, _x) { + let exists = function (p, _x) { while(true) { - var x = _x; + let x = _x; if (typeof x !== "object") { return false; } @@ -500,61 +500,61 @@ function Make(Ord) { return true; } _x = x._2; - continue ; + continue; }; }; - var filter = function (p, x) { + let filter = function (p, x) { if (typeof x !== "object") { return "Empty"; } - var v = x._1; - var l$p = filter(p, x._0); - var pv = Curry._1(p, v); - var r$p = filter(p, x._2); + let v = x._1; + let l$p = filter(p, x._0); + let pv = Curry._1(p, v); + let r$p = filter(p, x._2); if (pv) { return join(l$p, v, r$p); } else { return concat(l$p, r$p); } }; - var partition = function (p, x) { + let partition = function (p, x) { if (typeof x !== "object") { return [ - "Empty", - "Empty" - ]; - } - var v = x._1; - var match = partition(p, x._0); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, x._2); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let v = x._1; + let match = partition(p, x._0); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, x._2); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } }; - var cardinal = function (x) { + let cardinal = function (x) { if (typeof x !== "object") { return 0; } else { return (cardinal(x._0) + 1 | 0) + cardinal(x._2) | 0; } }; - var elements_aux = function (_accu, _x) { + let elements_aux = function (_accu, _x) { while(true) { - var x = _x; - var accu = _accu; + let x = _x; + let accu = _accu; if (typeof x !== "object") { return accu; } @@ -563,105 +563,105 @@ function Make(Ord) { hd: x._1, tl: elements_aux(accu, x._2) }; - continue ; + continue; }; }; - var elements = function (s) { + let elements = function (s) { return elements_aux(/* [] */0, s); }; - var find = function (x, _x_) { + let find = function (x, _x_) { while(true) { - var x_ = _x_; + let x_ = _x_; if (typeof x_ !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = x_._1; - var c = Curry._2(Ord.compare, x, v); + let v = x_._1; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return v; } _x_ = c < 0 ? x_._0 : x_._2; - continue ; + continue; }; }; - var of_sorted_list = function (l) { - var sub = function (n, l) { + let of_sorted_list = function (l) { + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - l.tl - ]; + { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - _1: match.hd, - _2: "Empty", - _3: 2 - }, - match.tl - ]; + { + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + _1: match.hd, + _2: "Empty", + _3: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - _0: { - TAG: "Node", - _0: "Empty", - _1: l.hd, - _2: "Empty", - _3: 1 - }, - _1: match$1.hd, - _2: { - TAG: "Node", - _0: "Empty", - _1: match$2.hd, - _2: "Empty", - _3: 1 - }, - _3: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + _0: { + TAG: "Node", + _0: "Empty", + _1: l.hd, + _2: "Empty", + _3: 1 + }, + _1: match$1.hd, + _2: { + TAG: "Node", + _0: "Empty", + _1: match$2.hd, + _2: "Empty", + _3: 1 + }, + _3: 2 + }, + match$2.tl + ]; } } @@ -671,50 +671,50 @@ function Make(Ord) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_set.res", - 497, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_set.res", + 497, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; - var of_list = function (l) { + let of_list = function (l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { return of_sorted_list(List.sort_uniq(Ord.compare, l)); @@ -726,49 +726,49 @@ function Make(Ord) { } }; return { - height: height, - create: create, - bal: bal, - add: add, - singleton: singleton, - add_min_element: add_min_element, - add_max_element: add_max_element, - join: join, - min_elt: min_elt, - max_elt: max_elt, - remove_min_elt: remove_min_elt, - merge: merge, - concat: concat, - split: split, - empty: "Empty", - is_empty: is_empty, - mem: mem, - remove: remove, - union: union, - inter: inter, - diff: diff, - cons_enum: cons_enum, - compare_aux: compare_aux, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements_aux: elements_aux, - elements: elements, - choose: min_elt, - find: find, - of_sorted_list: of_sorted_list, - of_list: of_list - }; + height: height, + create: create, + bal: bal, + add: add, + singleton: singleton, + add_min_element: add_min_element, + add_max_element: add_max_element, + join: join, + min_elt: min_elt, + max_elt: max_elt, + remove_min_elt: remove_min_elt, + merge: merge, + concat: concat, + split: split, + empty: "Empty", + is_empty: is_empty, + mem: mem, + remove: remove, + union: union, + inter: inter, + diff: diff, + cons_enum: cons_enum, + compare_aux: compare_aux, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements_aux: elements_aux, + elements: elements, + choose: min_elt, + find: find, + of_sorted_list: of_sorted_list, + of_list: of_list + }; } -var N = { +let N = { a: 3 }; diff --git a/jscomp/test/test_static_catch_ident.js b/jscomp/test/test_static_catch_ident.js index e5fe7b7097..df30925c09 100644 --- a/jscomp/test/test_static_catch_ident.js +++ b/jscomp/test/test_static_catch_ident.js @@ -11,8 +11,8 @@ function scanf_bad_input(ib, x) { s = x._1; } else { throw new Error(x.RE_EXN_ID, { - cause: x - }); + cause: x + }); } for(let i = 0; i <= 100; ++i){ console.log(s); diff --git a/jscomp/test/test_string.js b/jscomp/test/test_string.js index bce3136baa..f71fcdffbe 100644 --- a/jscomp/test/test_string.js +++ b/jscomp/test/test_string.js @@ -1,8 +1,8 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_bytes = require("../../lib/js/caml_bytes.js"); -var Caml_string = require("../../lib/js/caml_string.js"); +let Caml_bytes = require("../../lib/js/caml_bytes.js"); +let Caml_string = require("../../lib/js/caml_string.js"); function f(x) { switch (x) { @@ -12,15 +12,15 @@ function f(x) { return 1; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_string.res", - 5, - 17 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_string.res", + 5, + 17 + ] + } + }); } } @@ -36,7 +36,7 @@ function c(x, y) { return x + "hellohiuhi" + y; } -var v = "xx".length; +let v = "xx".length; function h(s, b) { if (Caml_string.get(s, 0) === /* 'a' */97 && Caml_bytes.get(b, 0) === /* 'b' */98) { diff --git a/jscomp/test/test_string_case.js b/jscomp/test/test_string_case.js index 26155e430f..9a5bd0ef27 100644 --- a/jscomp/test/test_string_case.js +++ b/jscomp/test/test_string_case.js @@ -10,15 +10,15 @@ function f(x) { return 1; default: throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_string_case.res", - 5, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_string_case.res", + 5, + 9 + ] + } + }); } } diff --git a/jscomp/test/test_string_const.js b/jscomp/test/test_string_const.js index 511b69bd1e..d6335edda9 100644 --- a/jscomp/test/test_string_const.js +++ b/jscomp/test/test_string_const.js @@ -18,8 +18,8 @@ catch (raw_e){ hh = /* 'a' */97; } else { throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } } diff --git a/jscomp/test/test_string_map.js b/jscomp/test/test_string_map.js index 63025d8a2c..3dbd98deb4 100644 --- a/jscomp/test/test_string_map.js +++ b/jscomp/test/test_string_map.js @@ -1,8 +1,8 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var Curry = require("../../lib/js/curry.js"); +let Caml = require("../../lib/js/caml.js"); +let Curry = require("../../lib/js/curry.js"); function height(param) { if (typeof param !== "object") { @@ -13,36 +13,36 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -50,34 +50,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -85,52 +85,52 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -140,20 +140,20 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml.string_compare(x, param.v); + let c = Caml.string_compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -164,19 +164,19 @@ function timing(label, f) { } function assertion_test(param) { - var m = { + let m = { contents: "Empty" }; timing("building", (function (param) { - for(var i = 0; i <= 1000000; ++i){ - m.contents = add(String(i), String(i), m.contents); - } - })); + for(let i = 0; i <= 1000000; ++i){ + m.contents = add(String(i), String(i), m.contents); + } + })); timing("querying", (function (param) { - for(var i = 0; i <= 1000000; ++i){ - find(String(i), m.contents); - } - })); + for(let i = 0; i <= 1000000; ++i){ + find(String(i), m.contents); + } + })); } exports.assertion_test = assertion_test; diff --git a/jscomp/test/test_trywith.js b/jscomp/test/test_trywith.js index dd860c7889..bb6e7279c0 100644 --- a/jscomp/test/test_trywith.js +++ b/jscomp/test/test_trywith.js @@ -1,28 +1,28 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); -var Out_of_memory = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Out_of_memory"); +let Out_of_memory = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Out_of_memory"); -var Sys_error = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Sys_error"); +let Sys_error = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Sys_error"); -var Stack_overflow = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Stack_overflow"); +let Stack_overflow = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Stack_overflow"); -var Sys_blocked_io = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Sys_blocked_io"); +let Sys_blocked_io = /* @__PURE__ */Caml_exceptions.create("Test_trywith.Sys_blocked_io"); function ff(g, x) { try { Curry._1(g, x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID !== "Not_found") { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -30,11 +30,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID !== Out_of_memory) { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } @@ -42,11 +42,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$2){ - var exn$2 = Caml_js_exceptions.internalToOCamlException(raw_exn$2); + let exn$2 = Caml_js_exceptions.internalToOCamlException(raw_exn$2); if (exn$2.RE_EXN_ID !== Sys_error) { throw new Error(exn$2.RE_EXN_ID, { - cause: exn$2 - }); + cause: exn$2 + }); } } @@ -54,11 +54,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$3){ - var exn$3 = Caml_js_exceptions.internalToOCamlException(raw_exn$3); + let exn$3 = Caml_js_exceptions.internalToOCamlException(raw_exn$3); if (exn$3.RE_EXN_ID !== "Invalid_argument") { throw new Error(exn$3.RE_EXN_ID, { - cause: exn$3 - }); + cause: exn$3 + }); } } @@ -66,11 +66,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$4){ - var exn$4 = Caml_js_exceptions.internalToOCamlException(raw_exn$4); + let exn$4 = Caml_js_exceptions.internalToOCamlException(raw_exn$4); if (exn$4.RE_EXN_ID !== "End_of_file") { throw new Error(exn$4.RE_EXN_ID, { - cause: exn$4 - }); + cause: exn$4 + }); } } @@ -78,11 +78,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$5){ - var exn$5 = Caml_js_exceptions.internalToOCamlException(raw_exn$5); + let exn$5 = Caml_js_exceptions.internalToOCamlException(raw_exn$5); if (exn$5.RE_EXN_ID !== "Match_failure") { throw new Error(exn$5.RE_EXN_ID, { - cause: exn$5 - }); + cause: exn$5 + }); } } @@ -90,11 +90,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$6){ - var exn$6 = Caml_js_exceptions.internalToOCamlException(raw_exn$6); + let exn$6 = Caml_js_exceptions.internalToOCamlException(raw_exn$6); if (exn$6.RE_EXN_ID !== Stack_overflow) { throw new Error(exn$6.RE_EXN_ID, { - cause: exn$6 - }); + cause: exn$6 + }); } } @@ -102,11 +102,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$7){ - var exn$7 = Caml_js_exceptions.internalToOCamlException(raw_exn$7); + let exn$7 = Caml_js_exceptions.internalToOCamlException(raw_exn$7); if (exn$7.RE_EXN_ID !== Sys_blocked_io) { throw new Error(exn$7.RE_EXN_ID, { - cause: exn$7 - }); + cause: exn$7 + }); } } @@ -114,11 +114,11 @@ function ff(g, x) { Curry._1(g, x); } catch (raw_exn$8){ - var exn$8 = Caml_js_exceptions.internalToOCamlException(raw_exn$8); + let exn$8 = Caml_js_exceptions.internalToOCamlException(raw_exn$8); if (exn$8.RE_EXN_ID !== "Assert_failure") { throw new Error(exn$8.RE_EXN_ID, { - cause: exn$8 - }); + cause: exn$8 + }); } } @@ -126,22 +126,22 @@ function ff(g, x) { return Curry._1(g, x); } catch (raw_exn$9){ - var exn$9 = Caml_js_exceptions.internalToOCamlException(raw_exn$9); + let exn$9 = Caml_js_exceptions.internalToOCamlException(raw_exn$9); if (exn$9.RE_EXN_ID === "Undefined_recursive_module") { - return ; + return; } throw new Error(exn$9.RE_EXN_ID, { - cause: exn$9 - }); + cause: exn$9 + }); } } function u(param) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function f(x) { @@ -152,20 +152,20 @@ function f(x) { return 1; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_trywith.res", - 59, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_trywith.res", + 59, + 9 + ] + } + }); } -var u1 = "bad character decimal encoding \\"; +let u1 = "bad character decimal encoding \\"; -var v = "bad character decimal encoding \\%c%c%c"; +let v = "bad character decimal encoding \\%c%c%c"; exports.Out_of_memory = Out_of_memory; exports.Sys_error = Sys_error; diff --git a/jscomp/test/test_unsupported_primitive.js b/jscomp/test/test_unsupported_primitive.js index 30f79ace3e..ac85e30558 100644 --- a/jscomp/test/test_unsupported_primitive.js +++ b/jscomp/test/test_unsupported_primitive.js @@ -1,16 +1,16 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); +let Caml_external_polyfill = require("../../lib/js/caml_external_polyfill.js"); function to_buffer(buff, ofs, len, v, flags) { if (ofs < 0 || len < 0 || ofs > (buff.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Marshal.to_buffer: substring out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Marshal.to_buffer: substring out of bounds" + } + }); } return Caml_external_polyfill.resolve("caml_output_value_to_buffer")(buff, ofs, len, v, flags); } diff --git a/jscomp/test/test_while_closure.js b/jscomp/test/test_while_closure.js index a8160a0aa8..096c86a68f 100644 --- a/jscomp/test/test_while_closure.js +++ b/jscomp/test/test_while_closure.js @@ -1,27 +1,25 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var $$Array = require("../../lib/js/array.js"); -var Curry = require("../../lib/js/curry.js"); -var Caml_array = require("../../lib/js/caml_array.js"); +let $$Array = require("../../lib/js/array.js"); +let Curry = require("../../lib/js/curry.js"); +let Caml_array = require("../../lib/js/caml_array.js"); -var v = { +let v = { contents: 0 }; -var arr = Caml_array.make(10, (function (param) { - - })); +let arr = Caml_array.make(10, (function (param) { + +})); function f(param) { - var n = 0; + let n = 0; while(n < 10) { - var j = n; - Caml_array.set(arr, j, (function(j){ - return function (param) { - v.contents = v.contents + j | 0; - } - }(j))); + let j = n; + Caml_array.set(arr, j, (function (param) { + v.contents = v.contents + j | 0; + })); n = n + 1 | 0; }; } @@ -29,25 +27,25 @@ function f(param) { f(); $$Array.iter((function (x) { - Curry._1(x, undefined); - }), arr); + Curry._1(x, undefined); +}), arr); console.log(String(v.contents)); if (v.contents !== 45) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "test_while_closure.res", - 55, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "test_while_closure.res", + 55, + 2 + ] + } + }); } -var count = 10; +let count = 10; exports.v = v; exports.count = count; diff --git a/jscomp/test/ticker.js b/jscomp/test/ticker.js index 04cf4a6aa9..58c91f9fd1 100644 --- a/jscomp/test/ticker.js +++ b/jscomp/test/ticker.js @@ -1,55 +1,55 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var $$String = require("../../lib/js/string.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_format = require("../../lib/js/caml_format.js"); -var Caml_option = require("../../lib/js/caml_option.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let $$String = require("../../lib/js/string.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_format = require("../../lib/js/caml_format.js"); +let Caml_option = require("../../lib/js/caml_option.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); function split(delim, s) { - var len = s.length; + let len = s.length; if (len !== 0) { - var _l = /* [] */0; - var _x = len; + let _l = /* [] */0; + let _x = len; while(true) { - var x = _x; - var l = _l; + let x = _x; + let l = _l; if (x === 0) { return l; } - var i$p; + let i$p; try { i$p = $$String.rindex_from(s, x - 1 | 0, delim); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return { - hd: $$String.sub(s, 0, x), - tl: l - }; + hd: $$String.sub(s, 0, x), + tl: l + }; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } - var l_0 = $$String.sub(s, i$p + 1 | 0, (x - i$p | 0) - 1 | 0); - var l$1 = { + let l_0 = $$String.sub(s, i$p + 1 | 0, (x - i$p | 0) - 1 | 0); + let l$1 = { hd: l_0, tl: l }; - var l$2 = i$p === 0 ? ({ - hd: "", - tl: l$1 - }) : l$1; + let l$2 = i$p === 0 ? ({ + hd: "", + tl: l$1 + }) : l$1; _x = i$p; _l = l$2; - continue ; + continue; }; } else { return /* [] */0; @@ -64,7 +64,7 @@ function string_of_float_option(x) { } } -var Util = { +let Util = { split: split, string_of_float_option: string_of_float_option }; @@ -83,18 +83,18 @@ function string_of_rank(x) { function find_ticker_by_name(all_tickers, ticker) { return List.find((function (param) { - return param.ticker_name === ticker; - }), all_tickers); + return param.ticker_name === ticker; + }), all_tickers); } function print_all_composite(all_tickers) { List.iter((function (x) { - var tmp = x.type_; - if (typeof tmp !== "object") { - return ; - } - console.log(x.ticker_name); - }), all_tickers); + let tmp = x.type_; + if (typeof tmp !== "object") { + return; + } + console.log(x.ticker_name); + }), all_tickers); } function height(param) { @@ -106,47 +106,47 @@ function height(param) { } function create(l, x, d, r) { - var hl = height(l); - var hr = height(r); + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function singleton(x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; } function bal(l, x, d, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -154,34 +154,34 @@ function bal(l, x, d, r) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -189,11 +189,11 @@ function bal(l, x, d, r) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } function is_empty(param) { @@ -207,42 +207,42 @@ function is_empty(param) { function add(x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml_obj.compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml_obj.compare(x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { @@ -252,299 +252,299 @@ function add(x, data, param) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml_obj.compare(x, param.v); + let c = Caml_obj.compare(x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Caml_obj.compare(x, param.v); + let c = Caml_obj.compare(x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Caml_obj.compare(x, param.v); + let c = Caml_obj.compare(x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function min_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function min_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; } function max_binding(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function max_binding_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; } function remove_min_binding(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -559,7 +559,7 @@ function merge(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); } @@ -567,23 +567,23 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml_obj.compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml_obj.compare(x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -593,53 +593,53 @@ function remove(x, param) { function update(x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml_obj.compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml_obj.compare(x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { @@ -649,14 +649,14 @@ function update(x, f, param) { function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; } @@ -664,53 +664,53 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; } function mapi(f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; } function fold(f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -721,13 +721,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -738,7 +738,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -762,11 +762,11 @@ function join(l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -783,7 +783,7 @@ function concat(t1, t2) { if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); } @@ -798,37 +798,37 @@ function concat_or_join(t1, v, d, t2) { function split$1(x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; + "Empty", + undefined, + "Empty" + ]; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Caml_obj.compare(x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Caml_obj.compare(x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split$1(x, l); + let match = split$1(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split$1(x, r); + let match$1 = split$1(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function merge$1(f, s1, s2) { @@ -838,27 +838,27 @@ function merge$1(f, s1, s2) { } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split$1(v1, s2); + let match = split$1(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); } - var v2 = s2.v; - var match$1 = split$1(v2, s1); + let v2 = s2.v; + let match$1 = split$1(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); } @@ -866,28 +866,28 @@ function union(f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split$1(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split$1(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split$1(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split$1(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { @@ -899,13 +899,13 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -920,36 +920,36 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; + "Empty", + "Empty" + ]; } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } } function cons_enum(_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -961,16 +961,16 @@ function cons_enum(_m, _e) { _3: e }; _m = m.l; - continue ; + continue; }; } function compare(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -981,26 +981,26 @@ function compare(cmp, m1, m2) { if (typeof e2 !== "object") { return 1; } - var c = Caml_obj.compare(e1._0, e2._0); + let c = Caml_obj.compare(e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } function equal(cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -1019,7 +1019,7 @@ function equal(cmp, m1, m2) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; } @@ -1033,8 +1033,8 @@ function cardinal(param) { function bindings_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -1046,7 +1046,7 @@ function bindings_aux(_accu, _param) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; } @@ -1054,7 +1054,7 @@ function bindings(s) { return bindings_aux(/* [] */0, s); } -var Ticker_map = { +let Ticker_map = { empty: "Empty", is_empty: is_empty, mem: mem, @@ -1093,348 +1093,348 @@ var Ticker_map = { function compute_update_sequences(all_tickers) { List.fold_left((function (counter, ticker) { - var loop = function (counter, ticker) { - var rank = ticker.rank; - if (typeof rank === "object") { - return counter; - } - if (rank !== "Uninitialized") { - return counter; - } - ticker.rank = "Visited"; - var match = ticker.type_; - if (typeof match !== "object") { - var counter$1 = counter + 1 | 0; - ticker.rank = { - TAG: "Ranked", - _0: counter$1 - }; - return counter$1; - } - var match$1 = match._0; - var counter$2 = loop(counter, match$1.lhs); - var counter$3 = loop(counter$2, match$1.rhs); - var counter$4 = counter$3 + 1 | 0; - ticker.rank = { - TAG: "Ranked", - _0: counter$4 - }; - return counter$4; - }; - return loop(counter, ticker); - }), 0, all_tickers); - var map = List.fold_left((function (map, ticker) { - var tmp = ticker.type_; - if (typeof tmp !== "object") { - return add(ticker.ticker_name, { - hd: ticker, - tl: /* [] */0 - }, map); - } - var loop = function (_up, _map, _ticker) { - while(true) { - var ticker = _ticker; - var map = _map; - var up = _up; - var type_ = ticker.type_; - var ticker_name = ticker.ticker_name; - if (typeof type_ !== "object") { - var l = find(ticker_name, map); - return add(ticker_name, Pervasives.$at(up, l), map); - } - var match = type_._0; - var map$1 = loop({ - hd: ticker, - tl: up - }, map, match.lhs); - _ticker = match.rhs; - _map = map$1; - _up = { - hd: ticker, - tl: up - }; - continue ; - }; - }; - return loop(/* [] */0, map, ticker); - }), "Empty", List.rev(all_tickers)); + let loop = function (counter, ticker) { + let rank = ticker.rank; + if (typeof rank === "object") { + return counter; + } + if (rank !== "Uninitialized") { + return counter; + } + ticker.rank = "Visited"; + let match = ticker.type_; + if (typeof match !== "object") { + let counter$1 = counter + 1 | 0; + ticker.rank = { + TAG: "Ranked", + _0: counter$1 + }; + return counter$1; + } + let match$1 = match._0; + let counter$2 = loop(counter, match$1.lhs); + let counter$3 = loop(counter$2, match$1.rhs); + let counter$4 = counter$3 + 1 | 0; + ticker.rank = { + TAG: "Ranked", + _0: counter$4 + }; + return counter$4; + }; + return loop(counter, ticker); + }), 0, all_tickers); + let map = List.fold_left((function (map, ticker) { + let tmp = ticker.type_; + if (typeof tmp !== "object") { + return add(ticker.ticker_name, { + hd: ticker, + tl: /* [] */0 + }, map); + } + let loop = function (_up, _map, _ticker) { + while(true) { + let ticker = _ticker; + let map = _map; + let up = _up; + let type_ = ticker.type_; + let ticker_name = ticker.ticker_name; + if (typeof type_ !== "object") { + let l = find(ticker_name, map); + return add(ticker_name, Pervasives.$at(up, l), map); + } + let match = type_._0; + let map$1 = loop({ + hd: ticker, + tl: up + }, map, match.lhs); + _ticker = match.rhs; + _map = map$1; + _up = { + hd: ticker, + tl: up + }; + continue; + }; + }; + return loop(/* [] */0, map, ticker); + }), "Empty", List.rev(all_tickers)); return fold((function (k, l, map) { - var l$1 = List.sort_uniq((function (lhs, rhs) { - var x = lhs.rank; - if (typeof x !== "object") { - if (x === "Uninitialized") { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked" - } - }); - } - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked" - } - }); - } else { - var y = rhs.rank; - if (typeof y === "object") { - return Caml.int_compare(x._0, y._0); - } - if (y === "Uninitialized") { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked" - } - }); - } - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "All nodes should be ranked" - } - }); - } - }), l); - return add(k, l$1, map); - }), map, map); + let l$1 = List.sort_uniq((function (lhs, rhs) { + let x = lhs.rank; + if (typeof x !== "object") { + if (x === "Uninitialized") { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); + } else { + let y = rhs.rank; + if (typeof y === "object") { + return Caml.int_compare(x._0, y._0); + } + if (y === "Uninitialized") { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "All nodes should be ranked" + } + }); + } + }), l); + return add(k, l$1, map); + }), map, map); } function process_quote(ticker_map, new_ticker, new_value) { - var update_sequence = find(new_ticker, ticker_map); + let update_sequence = find(new_ticker, ticker_map); List.iter((function (ticker) { - var match = ticker.type_; - if (typeof match !== "object") { - if (ticker.ticker_name === new_ticker) { - ticker.value = new_value; - return ; + let match = ticker.type_; + if (typeof match !== "object") { + if (ticker.ticker_name === new_ticker) { + ticker.value = new_value; + return; + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Only single Market ticker should be udpated upon a new quote" } - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Only single Market ticker should be udpated upon a new quote" - } - }); - } - var match$1 = match._0; - var match$2 = match$1.lhs.value; - var match$3 = match$1.rhs.value; - var value = match$2 !== undefined && match$3 !== undefined ? ( - match$1.op === "PLUS" ? match$2 + match$3 : match$2 - match$3 - ) : undefined; - ticker.value = value; - }), update_sequence); + }); + } + let match$1 = match._0; + let match$2 = match$1.lhs.value; + let match$3 = match$1.rhs.value; + let value = match$2 !== undefined && match$3 !== undefined ? ( + match$1.op === "PLUS" ? match$2 + match$3 : match$2 - match$3 + ) : undefined; + ticker.value = value; + }), update_sequence); } function process_input_line(ticker_map, all_tickers, line) { - var make_binary_op = function (ticker_name, lhs, rhs, op) { - var lhs$1 = find_ticker_by_name(all_tickers, lhs); - var rhs$1 = find_ticker_by_name(all_tickers, rhs); + let make_binary_op = function (ticker_name, lhs, rhs, op) { + let lhs$1 = find_ticker_by_name(all_tickers, lhs); + let rhs$1 = find_ticker_by_name(all_tickers, rhs); return { - value: undefined, - rank: "Uninitialized", - ticker_name: ticker_name, - type_: { - TAG: "Binary_op", - _0: { - op: op, - rhs: rhs$1, - lhs: lhs$1 - } - } - }; + value: undefined, + rank: "Uninitialized", + ticker_name: ticker_name, + type_: { + TAG: "Binary_op", + _0: { + op: op, + rhs: rhs$1, + lhs: lhs$1 + } + } + }; }; - var tokens = split(/* '|' */124, line); + let tokens = split(/* '|' */124, line); if (tokens) { switch (tokens.hd) { case "Q" : - var match = tokens.tl; + let match = tokens.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { if (match$1.tl) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); - } - var ticker_map$1 = ticker_map !== undefined ? Caml_option.valFromOption(ticker_map) : compute_update_sequences(all_tickers); - var value = Caml_format.float_of_string(match$1.hd); - process_quote(ticker_map$1, match.hd, value); - return [ - all_tickers, - Caml_option.some(ticker_map$1) - ]; - } - throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); + } + let ticker_map$1 = ticker_map !== undefined ? Caml_option.valFromOption(ticker_map) : compute_update_sequences(all_tickers); + let value = Caml_format.float_of_string(match$1.hd); + process_quote(ticker_map$1, match.hd, value); + return [ + all_tickers, + Caml_option.some(ticker_map$1) + ]; + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "R" : - var match$2 = tokens.tl; + let match$2 = tokens.tl; if (match$2) { - var match$3 = match$2.tl; + let match$3 = match$2.tl; if (match$3) { - var ticker_name = match$2.hd; + let ticker_name = match$2.hd; switch (match$3.hd) { case "+" : - var match$4 = match$3.tl; + let match$4 = match$3.tl; if (match$4) { - var match$5 = match$4.tl; + let match$5 = match$4.tl; if (match$5) { if (match$5.tl) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); - } - return [ - { - hd: make_binary_op(ticker_name, match$4.hd, match$5.hd, "PLUS"), - tl: all_tickers - }, - ticker_map - ]; - } - throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); + } + return [ + { + hd: make_binary_op(ticker_name, match$4.hd, match$5.hd, "PLUS"), + tl: all_tickers + }, + ticker_map + ]; + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "-" : - var match$6 = match$3.tl; + let match$6 = match$3.tl; if (match$6) { - var match$7 = match$6.tl; + let match$7 = match$6.tl; if (match$7) { if (match$7.tl) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); - } - return [ - { - hd: make_binary_op(ticker_name, match$6.hd, match$7.hd, "MINUS"), - tl: all_tickers - }, - ticker_map - ]; - } - throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); + } + return [ + { + hd: make_binary_op(ticker_name, match$6.hd, match$7.hd, "MINUS"), + tl: all_tickers + }, + ticker_map + ]; + } + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); case "S" : if (match$3.tl) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); - } - return [ - { - hd: { - value: undefined, - rank: "Uninitialized", - ticker_name: ticker_name, - type_: "Market" - }, - tl: all_tickers - }, - ticker_map - ]; - default: - throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); - } - } else { - throw new Error("Failure", { + } + return [ + { + hd: { + value: undefined, + rank: "Uninitialized", + ticker_name: ticker_name, + type_: "Market" + }, + tl: all_tickers + }, + ticker_map + ]; + default: + throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); + } + } else { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } else { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Invalid input line" - } - }); - } - default: - throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); - } - } else { - throw new Error("Failure", { + } + default: + throw new Error("Failure", { cause: { RE_EXN_ID: "Failure", _1: "Invalid input line" } }); + } + } else { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Invalid input line" + } + }); } } function loop(_lines, _param) { while(true) { - var param = _param; - var lines = _lines; - var all_tickers = param[0]; + let param = _param; + let lines = _lines; + let all_tickers = param[0]; if (!lines) { return print_all_composite(all_tickers); } _param = process_input_line(param[1], all_tickers, lines.hd); _lines = lines.tl; - continue ; + continue; }; } -var lines = { +let lines = { hd: "R|MSFT|S", tl: { hd: "R|IBM|S", diff --git a/jscomp/test/topsort_test.js b/jscomp/test/topsort_test.js index 3970cbe202..e624fc366f 100644 --- a/jscomp/test/topsort_test.js +++ b/jscomp/test/topsort_test.js @@ -1,17 +1,17 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Caml = require("../../lib/js/caml.js"); -var List = require("../../lib/js/list.js"); -var Curry = require("../../lib/js/curry.js"); -var $$String = require("../../lib/js/string.js"); -var Caml_obj = require("../../lib/js/caml_obj.js"); -var Pervasives = require("../../lib/js/pervasives.js"); -var Caml_option = require("../../lib/js/caml_option.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); -var Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); - -var graph = { +let Caml = require("../../lib/js/caml.js"); +let List = require("../../lib/js/list.js"); +let Curry = require("../../lib/js/curry.js"); +let $$String = require("../../lib/js/string.js"); +let Caml_obj = require("../../lib/js/caml_obj.js"); +let Pervasives = require("../../lib/js/pervasives.js"); +let Caml_option = require("../../lib/js/caml_option.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Caml_js_exceptions = require("../../lib/js/caml_js_exceptions.js"); + +let graph = { hd: [ "a", "b" @@ -63,29 +63,29 @@ var graph = { function nexts(x, g) { return List.fold_left((function (acc, param) { - if (param[0] === x) { - return { - hd: param[1], - tl: acc - }; - } else { - return acc; - } - }), /* [] */0, g); + if (param[0] === x) { + return { + hd: param[1], + tl: acc + }; + } else { + return acc; + } + }), /* [] */0, g); } function dfs1(_nodes, graph, _visited) { while(true) { - var visited = _visited; - var nodes = _nodes; + let visited = _visited; + let nodes = _nodes; if (!nodes) { return List.rev(visited); } - var xs = nodes.tl; - var x = nodes.hd; + let xs = nodes.tl; + let x = nodes.hd; if (List.mem(x, visited)) { _nodes = xs; - continue ; + continue; } console.log(x); _visited = { @@ -93,282 +93,282 @@ function dfs1(_nodes, graph, _visited) { tl: visited }; _nodes = Pervasives.$at(nexts(x, graph), xs); - continue ; + continue; }; } if (!Caml_obj.equal(dfs1({ - hd: "a", - tl: /* [] */0 - }, graph, /* [] */0), { - hd: "a", + hd: "a", + tl: /* [] */0 + }, graph, /* [] */0), { + hd: "a", + tl: { + hd: "d", + tl: { + hd: "e", tl: { - hd: "d", + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", + hd: "c", tl: { - hd: "f", - tl: { - hd: "c", - tl: { - hd: "b", - tl: /* [] */0 - } - } + hd: "b", + tl: /* [] */0 } } } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 35, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 35, + 2 + ] + } + }); } console.log(""); if (!Caml_obj.equal(dfs1({ - hd: "b", - tl: /* [] */0 - }, { - hd: [ - "f", - "d" - ], - tl: graph - }, /* [] */0), { - hd: "b", + hd: "b", + tl: /* [] */0 + }, { + hd: [ + "f", + "d" + ], + tl: graph + }, /* [] */0), { + hd: "b", + tl: { + hd: "e", + tl: { + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", - tl: { - hd: "f", - tl: { - hd: "d", - tl: /* [] */0 - } - } + hd: "d", + tl: /* [] */0 } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 38, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 38, + 2 + ] + } + }); } function dfs2(nodes, graph, visited) { - var aux = function (_nodes, graph, _visited) { + let aux = function (_nodes, graph, _visited) { while(true) { - var visited = _visited; - var nodes = _nodes; + let visited = _visited; + let nodes = _nodes; if (!nodes) { return visited; } - var xs = nodes.tl; - var x = nodes.hd; + let xs = nodes.tl; + let x = nodes.hd; if (List.mem(x, visited)) { _nodes = xs; - continue ; + continue; } _visited = aux(nexts(x, graph), graph, { - hd: x, - tl: visited - }); + hd: x, + tl: visited + }); _nodes = xs; - continue ; + continue; }; }; return List.rev(aux(nodes, graph, visited)); } if (!Caml_obj.equal(dfs2({ - hd: "a", - tl: /* [] */0 - }, graph, /* [] */0), { - hd: "a", + hd: "a", + tl: /* [] */0 + }, graph, /* [] */0), { + hd: "a", + tl: { + hd: "d", + tl: { + hd: "e", tl: { - hd: "d", + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", + hd: "c", tl: { - hd: "f", - tl: { - hd: "c", - tl: { - hd: "b", - tl: /* [] */0 - } - } + hd: "b", + tl: /* [] */0 } } } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 57, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 57, + 2 + ] + } + }); } if (!Caml_obj.equal(dfs2({ - hd: "b", - tl: /* [] */0 - }, { - hd: [ - "f", - "d" - ], - tl: graph - }, /* [] */0), { - hd: "b", + hd: "b", + tl: /* [] */0 + }, { + hd: [ + "f", + "d" + ], + tl: graph + }, /* [] */0), { + hd: "b", + tl: { + hd: "e", + tl: { + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", - tl: { - hd: "f", - tl: { - hd: "d", - tl: /* [] */0 - } - } + hd: "d", + tl: /* [] */0 } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 58, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 58, + 2 + ] + } + }); } function dfs3(nodes, graph) { - var visited = { + let visited = { contents: /* [] */0 }; - var aux = function (node, graph) { + let aux = function (node, graph) { if (!List.mem(node, visited.contents)) { visited.contents = { hd: node, tl: visited.contents }; return List.iter((function (x) { - aux(x, graph); - }), nexts(node, graph)); + aux(x, graph); + }), nexts(node, graph)); } }; List.iter((function (node) { - aux(node, graph); - }), nodes); + aux(node, graph); + }), nodes); return List.rev(visited.contents); } if (!Caml_obj.equal(dfs3({ - hd: "a", - tl: /* [] */0 - }, graph), { - hd: "a", + hd: "a", + tl: /* [] */0 + }, graph), { + hd: "a", + tl: { + hd: "d", + tl: { + hd: "e", tl: { - hd: "d", + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", + hd: "c", tl: { - hd: "f", - tl: { - hd: "c", - tl: { - hd: "b", - tl: /* [] */0 - } - } + hd: "b", + tl: /* [] */0 } } } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 74, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 74, + 2 + ] + } + }); } if (!Caml_obj.equal(dfs3({ - hd: "b", - tl: /* [] */0 - }, { - hd: [ - "f", - "d" - ], - tl: graph - }), { - hd: "b", + hd: "b", + tl: /* [] */0 + }, { + hd: [ + "f", + "d" + ], + tl: graph + }), { + hd: "b", + tl: { + hd: "e", + tl: { + hd: "g", tl: { - hd: "e", + hd: "f", tl: { - hd: "g", - tl: { - hd: "f", - tl: { - hd: "d", - tl: /* [] */0 - } - } + hd: "d", + tl: /* [] */0 } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 75, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 75, + 2 + ] + } + }); } -var grwork = { +let grwork = { hd: [ "wake", "shower" @@ -407,14 +407,14 @@ var grwork = { }; function unsafe_topsort(graph) { - var visited = { + let visited = { contents: /* [] */0 }; - var sort_node = function (node) { + let sort_node = function (node) { if (List.mem(node, visited.contents)) { - return ; + return; } - var nodes = nexts(node, graph); + let nodes = nexts(node, graph); List.iter(sort_node, nodes); visited.contents = { hd: node, @@ -422,40 +422,40 @@ function unsafe_topsort(graph) { }; }; List.iter((function (param) { - sort_node(param[0]); - }), graph); + sort_node(param[0]); + }), graph); return visited.contents; } if (!Caml_obj.equal(unsafe_topsort(grwork), { - hd: "wake", + hd: "wake", + tl: { + hd: "shower", + tl: { + hd: "dress", tl: { - hd: "shower", + hd: "eat", tl: { - hd: "dress", + hd: "washup", tl: { - hd: "eat", - tl: { - hd: "washup", - tl: { - hd: "go", - tl: /* [] */0 - } - } + hd: "go", + tl: /* [] */0 } } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 112, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 112, + 9 + ] + } + }); } function height(param) { @@ -467,36 +467,36 @@ function height(param) { } function create(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } function bal(l, v, r) { - var hl; + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -504,32 +504,32 @@ function bal(l, v, r) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -537,39 +537,39 @@ function bal(l, v, r) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } function add(x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { @@ -579,12 +579,12 @@ function add(x, param) { function singleton(x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; } function add_min_element(x, param) { @@ -607,11 +607,11 @@ function join(l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -623,82 +623,82 @@ function join(l, v, r) { function min_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; } function min_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; } function max_elt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; } function max_elt_opt(_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; } function remove_min_elt(param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { @@ -719,36 +719,36 @@ function concat(t1, t2) { function split(x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; + "Empty", + false, + "Empty" + ]; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; } function is_empty(param) { @@ -761,16 +761,16 @@ function is_empty(param) { function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Caml.string_compare(x, param.v); + let c = Caml.string_compare(x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -778,10 +778,10 @@ function remove(x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Caml.string_compare(x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Caml.string_compare(x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -792,14 +792,14 @@ function remove(x, param) { } } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { @@ -811,24 +811,24 @@ function union(s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); } @@ -839,11 +839,11 @@ function inter(s1, s2) { if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { @@ -858,11 +858,11 @@ function diff(s1, s2) { if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { @@ -872,8 +872,8 @@ function diff(s1, s2) { function cons_enum(_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -884,16 +884,16 @@ function cons_enum(_s, _e) { _2: e }; _s = s.l; - continue ; + continue; }; } function compare(s1, s2) { - var _e1 = cons_enum(s1, "End"); - var _e2 = cons_enum(s2, "End"); + let _e1 = cons_enum(s1, "End"); + let _e2 = cons_enum(s2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -904,13 +904,13 @@ function compare(s1, s2) { if (typeof e2 !== "object") { return 1; } - var c = Caml.string_compare(e1._0, e2._0); + let c = Caml.string_compare(e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; } @@ -920,84 +920,84 @@ function equal(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Caml.string_compare(v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Caml.string_compare(v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; } function fold(f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -1008,13 +1008,13 @@ function for_all(p, _param) { return false; } _param = param.r; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -1025,7 +1025,7 @@ function exists(p, _param) { return true; } _param = param.r; - continue ; + continue; }; } @@ -1033,12 +1033,12 @@ function filter(p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -1053,28 +1053,28 @@ function filter(p, param) { function partition(p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; + "Empty", + "Empty" + ]; } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } } @@ -1088,8 +1088,8 @@ function cardinal(param) { function elements_aux(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -1098,7 +1098,7 @@ function elements_aux(_accu, _param) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; } @@ -1108,169 +1108,169 @@ function elements(s) { function find(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Caml.string_compare(x, v); + let v = param.v; + let c = Caml.string_compare(x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } function find_first(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_first_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; } function find_last(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_last_opt(f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; } function find_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Caml.string_compare(x, v); + let v = param.v; + let c = Caml.string_compare(x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; } @@ -1278,12 +1278,12 @@ function map(f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else if ((l$p === "Empty" || Caml.string_compare(max_elt(l$p), v$p) < 0) && (r$p === "Empty" || Caml.string_compare(v$p, min_elt(r$p)) < 0)) { @@ -1297,99 +1297,99 @@ function of_list(l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { - var l$1 = List.sort_uniq($$String.compare, l); - var sub = function (n, l) { + let l$1 = List.sort_uniq($$String.compare, l); + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -1399,26 +1399,26 @@ function of_list(l) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -1429,7 +1429,7 @@ function of_list(l) { } } -var String_set = { +let String_set = { empty: "Empty", is_empty: is_empty, mem: mem, @@ -1467,121 +1467,121 @@ var String_set = { of_list: of_list }; -var Cycle = /* @__PURE__ */Caml_exceptions.create("Topsort_test.Cycle"); +let Cycle = /* @__PURE__ */Caml_exceptions.create("Topsort_test.Cycle"); function pathsort(graph) { - var visited = { + let visited = { contents: /* [] */0 }; - var empty_path = [ + let empty_path = [ "Empty", /* [] */0 ]; - var $plus$great = function (node, param) { - var stack = param[1]; - var set = param[0]; + let $plus$great = function (node, param) { + let stack = param[1]; + let set = param[0]; if (mem(node, set)) { throw new Error(Cycle, { - cause: { - RE_EXN_ID: Cycle, - _1: { - hd: node, - tl: stack - } - } - }); + cause: { + RE_EXN_ID: Cycle, + _1: { + hd: node, + tl: stack + } + } + }); } return [ - add(node, set), - { - hd: node, - tl: stack - } - ]; + add(node, set), + { + hd: node, + tl: stack + } + ]; }; - var sort_nodes = function (path, nodes) { + let sort_nodes = function (path, nodes) { List.iter((function (node) { - sort_node(path, node); - }), nodes); + sort_node(path, node); + }), nodes); }; - var sort_node = function (path, node) { + let sort_node = function (path, node) { if (!List.mem(node, visited.contents)) { sort_nodes($plus$great(node, path), nexts(node, graph)); visited.contents = { hd: node, tl: visited.contents }; - return ; + return; } }; List.iter((function (param) { - sort_node(empty_path, param[0]); - }), graph); + sort_node(empty_path, param[0]); + }), graph); return visited.contents; } if (!Caml_obj.equal(pathsort(grwork), { - hd: "wake", + hd: "wake", + tl: { + hd: "shower", + tl: { + hd: "dress", tl: { - hd: "shower", + hd: "eat", tl: { - hd: "dress", + hd: "washup", tl: { - hd: "eat", - tl: { - hd: "washup", - tl: { - hd: "go", - tl: /* [] */0 - } - } + hd: "go", + tl: /* [] */0 } } } - })) { + } + } + })) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 144, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 144, + 9 + ] + } + }); } try { pathsort({ - hd: [ - "go", - "eat" - ], - tl: grwork - }); + hd: [ + "go", + "eat" + ], + tl: grwork + }); throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 148, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 148, + 2 + ] + } + }); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); - var exit = 0; + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exit = 0; if (exn.RE_EXN_ID === Cycle) { - var match = exn._1; + let match = exn._1; if (match && match.hd === "go") { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1 && match$1.hd === "washup") { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2 && match$2.hd === "eat") { - var match$3 = match$2.tl; + let match$3 = match$2.tl; if (!(match$3 && match$3.hd === "go" && !match$3.tl)) { exit = 1; } @@ -1600,15 +1600,15 @@ catch (raw_exn){ } if (exit === 1) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "topsort_test.res", - 151, - 7 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "topsort_test.res", + 151, + 7 + ] + } + }); } } diff --git a/jscomp/test/uncurried_cast.js b/jscomp/test/uncurried_cast.js index 716ff1cf2e..e6fde9268f 100644 --- a/jscomp/test/uncurried_cast.js +++ b/jscomp/test/uncurried_cast.js @@ -1,48 +1,48 @@ // Generated by ReScript, PLEASE EDIT WITH CARE 'use strict'; -var Curry = require("../../lib/js/curry.js"); -var Belt_List = require("../../lib/js/belt_List.js"); -var Caml_exceptions = require("../../lib/js/caml_exceptions.js"); +let Curry = require("../../lib/js/curry.js"); +let Belt_List = require("../../lib/js/belt_List.js"); +let Caml_exceptions = require("../../lib/js/caml_exceptions.js"); function raise(e) { throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } -var map = Belt_List.mapU; +let map = Belt_List.mapU; -var List = { +let List = { map: map }; -var Uncurried = { +let Uncurried = { raise: raise, List: List }; -var E = /* @__PURE__ */Caml_exceptions.create("Uncurried_cast.E"); +let E = /* @__PURE__ */Caml_exceptions.create("Uncurried_cast.E"); function testRaise(param) { throw new Error(E, { - cause: { - RE_EXN_ID: E - } - }); + cause: { + RE_EXN_ID: E + } + }); } -var l = Belt_List.mapU({ - hd: 1, - tl: { - hd: 2, - tl: /* [] */0 - } - }, (function (x) { - return x + 1 | 0; - })); - -var partial_arg = { +let l = Belt_List.mapU({ + hd: 1, + tl: { + hd: 2, + tl: /* [] */0 + } +}, (function (x) { + return x + 1 | 0; +})); + +let partial_arg = { hd: 1, tl: { hd: 2, @@ -54,13 +54,13 @@ function partial(param) { return map(partial_arg, param); } -var ll = partial(function (x) { - return x + 1 | 0; - }); +let ll = partial(function (x) { + return x + 1 | 0; +}); function withOpts(xOpt, y, zOpt, w) { - var x = xOpt !== undefined ? xOpt : 3; - var z = zOpt !== undefined ? zOpt : 4; + let x = xOpt !== undefined ? xOpt : 3; + let z = zOpt !== undefined ? zOpt : 4; return ((x + y | 0) + z | 0) + w | 0; } @@ -68,9 +68,9 @@ function still2Args(param, param$1) { return withOpts(undefined, 4, param, param$1); } -var anInt = Curry._1(still2Args, 3)(5); +let anInt = Curry._1(still2Args, 3)(5); -var StandardNotation = { +let StandardNotation = { testRaise: testRaise, l: l, partial: partial, @@ -82,23 +82,23 @@ var StandardNotation = { function testRaise$1() { throw new Error(E, { - cause: { - RE_EXN_ID: E - } - }); + cause: { + RE_EXN_ID: E + } + }); } -var l$1 = Belt_List.mapU({ - hd: 1, - tl: { - hd: 2, - tl: /* [] */0 - } - }, (function (x) { - return x + 1 | 0; - })); - -var partial_arg$1 = { +let l$1 = Belt_List.mapU({ + hd: 1, + tl: { + hd: 2, + tl: /* [] */0 + } +}, (function (x) { + return x + 1 | 0; +})); + +let partial_arg$1 = { hd: 1, tl: { hd: 2, @@ -110,13 +110,13 @@ function partial$1(param) { return map(partial_arg$1, param); } -var ll$1 = partial$1(function (x) { - return x + 1 | 0; - }); +let ll$1 = partial$1(function (x) { + return x + 1 | 0; +}); function withOpts$1(xOpt, y, zOpt, w) { - var x = xOpt !== undefined ? xOpt : 3; - var z = zOpt !== undefined ? zOpt : 4; + let x = xOpt !== undefined ? xOpt : 3; + let z = zOpt !== undefined ? zOpt : 4; return ((x + y | 0) + z | 0) + w | 0; } @@ -124,11 +124,11 @@ function still2Args$1(param, param$1) { return withOpts$1(undefined, 4, param, param$1); } -var partial_arg$2 = 3; +let partial_arg$2 = 3; -var anInt$1 = (function (param) { - return still2Args$1(partial_arg$2, param); - })(5); +let anInt$1 = (function (param) { + return still2Args$1(partial_arg$2, param); +})(5); exports.Uncurried = Uncurried; exports.E = E; diff --git a/jscomp/test/variant.js b/jscomp/test/variant.js index ed112c7fe2..27a8b3a8d2 100644 --- a/jscomp/test/variant.js +++ b/jscomp/test/variant.js @@ -98,8 +98,8 @@ function rollback_path(subst, p) { } } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } } @@ -137,8 +137,8 @@ function fooExn(f) { return match[0] + match[1] | 0; } throw new Error(n.RE_EXN_ID, { - cause: n - }); + cause: n + }); } } diff --git a/lib/es6/arg.js b/lib/es6/arg.js index 6015cefd07..c62d842b49 100644 --- a/lib/es6/arg.js +++ b/lib/es6/arg.js @@ -15,45 +15,45 @@ import * as Caml_string from "./caml_string.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var Bad = /* @__PURE__ */Caml_exceptions.create("Arg.Bad"); +let Bad = /* @__PURE__ */Caml_exceptions.create("Arg.Bad"); -var Help = /* @__PURE__ */Caml_exceptions.create("Arg.Help"); +let Help = /* @__PURE__ */Caml_exceptions.create("Arg.Help"); -var Stop = /* @__PURE__ */Caml_exceptions.create("Arg.Stop"); +let Stop = /* @__PURE__ */Caml_exceptions.create("Arg.Stop"); function assoc3(x, _l) { while(true) { - var l = _l; + let l = _l; if (l) { - var match = l.hd; + let match = l.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _l = l.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function split(s) { - var i = $$String.index(s, /* '=' */61); - var len = s.length; + let i = $$String.index(s, /* '=' */61); + let len = s.length; return [ - $$String.sub(s, 0, i), - $$String.sub(s, i + 1 | 0, len - (i + 1 | 0) | 0) - ]; + $$String.sub(s, 0, i), + $$String.sub(s, i + 1 | 0, len - (i + 1 | 0) | 0) + ]; } function make_symlist(prefix, sep, suffix, l) { if (l) { return List.fold_left((function (x, y) { - return x + (sep + y); - }), prefix + l.hd, l.tl) + suffix; + return x + (sep + y); + }), prefix + l.hd, l.tl) + suffix; } else { return ""; } @@ -61,24 +61,24 @@ function make_symlist(prefix, sep, suffix, l) { function help_action(param) { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function add_help(speclist) { - var add1; + let add1; try { assoc3("-help", speclist); add1 = /* [] */0; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { add1 = { hd: [ @@ -93,17 +93,17 @@ function add_help(speclist) { }; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } - var add2; + let add2; try { assoc3("--help", speclist); add2 = /* [] */0; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { add2 = { hd: [ @@ -118,8 +118,8 @@ function add_help(speclist) { }; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); @@ -128,22 +128,22 @@ function add_help(speclist) { function usage_b(buf, speclist, errmsg) { $$Buffer.add_string(buf, errmsg + "\n"); List.iter((function (param) { - var doc = param[2]; - if (doc.length === 0) { - return ; - } - var spec = param[1]; - var key = param[0]; - if (spec.TAG !== "Symbol") { - return $$Buffer.add_string(buf, " " + key + " " + doc + "\n"); - } - var sym = make_symlist("{", "|", "}", spec._0); - return $$Buffer.add_string(buf, " " + key + " " + sym + doc + "\n"); - }), add_help(speclist)); + let doc = param[2]; + if (doc.length === 0) { + return; + } + let spec = param[1]; + let key = param[0]; + if (spec.TAG !== "Symbol") { + return $$Buffer.add_string(buf, " " + key + " " + doc + "\n"); + } + let sym = make_symlist("{", "|", "}", spec._0); + return $$Buffer.add_string(buf, " " + key + " " + sym + doc + "\n"); + }), add_help(speclist)); } function usage_string(speclist, errmsg) { - var b = $$Buffer.create(200); + let b = $$Buffer.create(200); usage_b(b, speclist, errmsg); return $$Buffer.contents(b); } @@ -152,7 +152,7 @@ function usage(speclist, errmsg) { console.log(usage_string(speclist, errmsg)); } -var current = { +let current = { contents: 0 }; @@ -161,13 +161,13 @@ function bool_of_string_opt(x) { return Pervasives.bool_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Invalid_argument") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -176,13 +176,13 @@ function int_of_string_opt(x) { return Caml_format.int_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -191,24 +191,24 @@ function float_of_string_opt(x) { return Caml_format.float_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist, anonfun, errmsg) { - var initpos = current.contents; - var convert_error = function (error) { - var b = $$Buffer.create(200); - var progname = initpos < argv.contents.length ? Caml_array.get(argv.contents, initpos) : "(?)"; + let initpos = current.contents; + let convert_error = function (error) { + let b = $$Buffer.create(200); + let progname = initpos < argv.contents.length ? Caml_array.get(argv.contents, initpos) : "(?)"; switch (error.TAG) { case "Unknown" : - var s = error._0; + let s = error._0; switch (s) { case "--help" : case "-help" : @@ -230,29 +230,29 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist } usage_b(b, speclist.contents, errmsg); if (Caml_obj.equal(error, { - TAG: "Unknown", - _0: "-help" - }) || Caml_obj.equal(error, { - TAG: "Unknown", - _0: "--help" - })) { + TAG: "Unknown", + _0: "-help" + }) || Caml_obj.equal(error, { + TAG: "Unknown", + _0: "--help" + })) { return { - RE_EXN_ID: Help, - _1: $$Buffer.contents(b) - }; + RE_EXN_ID: Help, + _1: $$Buffer.contents(b) + }; } else { return { - RE_EXN_ID: Bad, - _1: $$Buffer.contents(b) - }; + RE_EXN_ID: Bad, + _1: $$Buffer.contents(b) + }; } }; current.contents = current.contents + 1 | 0; while(current.contents < argv.contents.length) { try { - var s = Caml_array.get(argv.contents, current.contents); + let s = Caml_array.get(argv.contents, current.contents); if (s.length >= 1 && Caml_string.get(s, 0) === /* '-' */45) { - var match; + let match; try { match = [ assoc3(s, speclist.contents), @@ -260,59 +260,56 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist ]; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { try { - var match$1 = split(s); + let match$1 = split(s); match = [ assoc3(match$1[0], speclist.contents), match$1[1] ]; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: s - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: s + } + } + }); } throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } - var follow = match[1]; - var no_arg = (function(s,follow){ - return function no_arg(param) { + let follow = match[1]; + let no_arg = function (param) { if (follow === undefined) { - return ; + return; } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: follow, - _2: "no argument" - } - } - }); - } - }(s,follow)); - var get_arg = (function(s,follow){ - return function get_arg(param) { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: follow, + _2: "no argument" + } + } + }); + }; + let get_arg = function (param) { if (follow !== undefined) { return follow; } @@ -320,223 +317,218 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist return Caml_array.get(argv.contents, current.contents + 1 | 0); } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Missing", - _0: s - } - } - }); - } - }(s,follow)); - var consume_arg = (function(follow){ - return function consume_arg(param) { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Missing", + _0: s + } + } + }); + }; + let consume_arg = function (param) { if (follow !== undefined) { - return ; + return; } else { current.contents = current.contents + 1 | 0; - return ; + return; } - } - }(follow)); - var treat_action = (function(s){ - return function treat_action(f) { + }; + let treat_action = function (f) { switch (f.TAG) { case "Unit" : return Curry._1(f._0, undefined); case "Bool" : - var arg = get_arg(); - var s$1 = bool_of_string_opt(arg); + let arg = get_arg(); + let s$1 = bool_of_string_opt(arg); if (s$1 !== undefined) { Curry._1(f._0, s$1); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg, - _2: "a boolean" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg, + _2: "a boolean" + } + } + }); } return consume_arg(); case "Set" : no_arg(); f._0.contents = true; - return ; + return; case "Clear" : no_arg(); f._0.contents = false; - return ; + return; case "String" : - var arg$1 = get_arg(); + let arg$1 = get_arg(); Curry._1(f._0, arg$1); return consume_arg(); case "Set_string" : f._0.contents = get_arg(); return consume_arg(); case "Int" : - var arg$2 = get_arg(); - var x = int_of_string_opt(arg$2); + let arg$2 = get_arg(); + let x = int_of_string_opt(arg$2); if (x !== undefined) { Curry._1(f._0, x); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$2, - _2: "an integer" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$2, + _2: "an integer" + } + } + }); } return consume_arg(); case "Set_int" : - var arg$3 = get_arg(); - var x$1 = int_of_string_opt(arg$3); + let arg$3 = get_arg(); + let x$1 = int_of_string_opt(arg$3); if (x$1 !== undefined) { f._0.contents = x$1; } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$3, - _2: "an integer" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$3, + _2: "an integer" + } + } + }); } return consume_arg(); case "Float" : - var arg$4 = get_arg(); - var x$2 = float_of_string_opt(arg$4); + let arg$4 = get_arg(); + let x$2 = float_of_string_opt(arg$4); if (x$2 !== undefined) { Curry._1(f._0, x$2); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$4, - _2: "a float" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$4, + _2: "a float" + } + } + }); } return consume_arg(); case "Set_float" : - var arg$5 = get_arg(); - var x$3 = float_of_string_opt(arg$5); + let arg$5 = get_arg(); + let x$3 = float_of_string_opt(arg$5); if (x$3 !== undefined) { f._0.contents = x$3; } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$5, - _2: "a float" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$5, + _2: "a float" + } + } + }); } return consume_arg(); case "Tuple" : return List.iter(treat_action, f._0); case "Symbol" : - var symb = f._0; - var arg$6 = get_arg(); + let symb = f._0; + let arg$6 = get_arg(); if (List.mem(arg$6, symb)) { Curry._1(f._1, arg$6); return consume_arg(); } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$6, - _2: "one of: " + make_symlist("", " ", "", symb) - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$6, + _2: "one of: " + make_symlist("", " ", "", symb) + } + } + }); case "Rest" : - var f$1 = f._0; + let f$1 = f._0; while(current.contents < (argv.contents.length - 1 | 0)) { Curry._1(f$1, Caml_array.get(argv.contents, current.contents + 1 | 0)); consume_arg(); }; - return ; + return; case "Expand" : if (!allow_expand) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" + } + }); } - var arg$7 = get_arg(); - var newarg = Curry._1(f._0, arg$7); + let arg$7 = get_arg(); + let newarg = Curry._1(f._0, arg$7); consume_arg(); - var before = $$Array.sub(argv.contents, 0, current.contents + 1 | 0); - var after = $$Array.sub(argv.contents, current.contents + 1 | 0, (argv.contents.length - current.contents | 0) - 1 | 0); + let before = $$Array.sub(argv.contents, 0, current.contents + 1 | 0); + let after = $$Array.sub(argv.contents, current.contents + 1 | 0, (argv.contents.length - current.contents | 0) - 1 | 0); argv.contents = Caml_array.concat({ - hd: before, - tl: { - hd: newarg, - tl: { - hd: after, - tl: /* [] */0 - } - } - }); - return ; + hd: before, + tl: { + hd: newarg, + tl: { + hd: after, + tl: /* [] */0 + } + } + }); + return; } - } - }(s)); + }; treat_action(match[0]); } else { Curry._1(anonfun, s); } } catch (raw_m){ - var m = Caml_js_exceptions.internalToOCamlException(raw_m); + let m = Caml_js_exceptions.internalToOCamlException(raw_m); if (m.RE_EXN_ID === Bad) { throw new Error(convert_error({ - TAG: "Message", - _0: m._1 - }).RE_EXN_ID, { - cause: convert_error({ - TAG: "Message", - _0: m._1 - }) - }); + TAG: "Message", + _0: m._1 + }).RE_EXN_ID, { + cause: convert_error({ + TAG: "Message", + _0: m._1 + }) + }); } if (m.RE_EXN_ID === Stop) { throw new Error(convert_error(m._1).RE_EXN_ID, { - cause: convert_error(m._1) - }); + cause: convert_error(m._1) + }); } throw new Error(m.RE_EXN_ID, { - cause: m - }); + cause: m + }); } current.contents = current.contents + 1 | 0; }; @@ -547,17 +539,17 @@ function parse_and_expand_argv_dynamic(current, argv, speclist, anonfun, errmsg) } function parse_argv_dynamic(currentOpt, argv, speclist, anonfun, errmsg) { - var current$1 = currentOpt !== undefined ? currentOpt : current; + let current$1 = currentOpt !== undefined ? currentOpt : current; parse_and_expand_argv_dynamic_aux(false, current$1, { - contents: argv - }, speclist, anonfun, errmsg); + contents: argv + }, speclist, anonfun, errmsg); } function parse_argv(currentOpt, argv, speclist, anonfun, errmsg) { - var current$1 = currentOpt !== undefined ? currentOpt : current; + let current$1 = currentOpt !== undefined ? currentOpt : current; parse_argv_dynamic(current$1, argv, { - contents: speclist - }, anonfun, errmsg); + contents: speclist + }, anonfun, errmsg); } function parse(l, f, msg) { @@ -565,7 +557,7 @@ function parse(l, f, msg) { return parse_argv(undefined, Sys.argv, l, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -575,8 +567,8 @@ function parse(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } @@ -585,7 +577,7 @@ function parse_dynamic(l, f, msg) { return parse_argv_dynamic(undefined, Sys.argv, l, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -595,26 +587,26 @@ function parse_dynamic(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } function parse_expand(l, f, msg) { try { - var argv = { + let argv = { contents: Sys.argv }; - var spec = { + let spec = { contents: l }; - var current$1 = { + let current$1 = { contents: current.contents }; return parse_and_expand_argv_dynamic(current$1, argv, spec, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -624,16 +616,16 @@ function parse_expand(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } function second_word(s) { - var len = s.length; - var loop = function (_n) { + let len = s.length; + let loop = function (_n) { while(true) { - var n = _n; + let n = _n; if (n >= len) { return len; } @@ -641,30 +633,30 @@ function second_word(s) { return n; } _n = n + 1 | 0; - continue ; + continue; }; }; - var n; + let n; try { n = $$String.index(s, /* '\t' */9); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var exit = 0; - var n$1; + let exit = 0; + let n$1; try { n$1 = $$String.index(s, /* ' ' */32); exit = 2; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { return len; } throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } if (exit === 2) { return loop(n$1 + 1 | 0); @@ -672,15 +664,15 @@ function second_word(s) { } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } return loop(n + 1 | 0); } function max_arg_len(cur, param) { - var kwd = param[0]; + let kwd = param[0]; if (param[1].TAG === "Symbol") { return Caml.int_max(cur, kwd.length); } else { @@ -689,74 +681,74 @@ function max_arg_len(cur, param) { } function replace_leading_tab(s) { - var seen = { + let seen = { contents: false }; return $$String.map((function (c) { - if (c !== 9 || seen.contents) { - return c; - } else { - seen.contents = true; - return /* ' ' */32; - } - }), s); + if (c !== 9 || seen.contents) { + return c; + } else { + seen.contents = true; + return /* ' ' */32; + } + }), s); } function align(limitOpt, speclist) { - var limit = limitOpt !== undefined ? limitOpt : Pervasives.max_int; - var completed = add_help(speclist); - var len = List.fold_left(max_arg_len, 0, completed); - var len$1 = len < limit ? len : limit; + let limit = limitOpt !== undefined ? limitOpt : Pervasives.max_int; + let completed = add_help(speclist); + let len = List.fold_left(max_arg_len, 0, completed); + let len$1 = len < limit ? len : limit; return List.map((function (param) { - var spec = param[1]; - var kwd = param[0]; - if (param[2] === "") { - return param; - } - if (spec.TAG === "Symbol") { - var msg = param[2]; - var cutcol = second_word(msg); - var spaces = " ".repeat(Caml.int_max(0, len$1 - cutcol | 0) + 3 | 0); - return [ - kwd, - spec, - "\n" + (spaces + replace_leading_tab(msg)) - ]; - } - var msg$1 = param[2]; - var cutcol$1 = second_word(msg$1); - var kwd_len = kwd.length; - var diff = (len$1 - kwd_len | 0) - cutcol$1 | 0; - if (diff <= 0) { - return [ - kwd, - spec, - replace_leading_tab(msg$1) - ]; - } - var spaces$1 = " ".repeat(diff); - var prefix = $$String.sub(replace_leading_tab(msg$1), 0, cutcol$1); - var suffix = $$String.sub(msg$1, cutcol$1, msg$1.length - cutcol$1 | 0); - return [ - kwd, - spec, - prefix + (spaces$1 + suffix) - ]; - }), completed); + let spec = param[1]; + let kwd = param[0]; + if (param[2] === "") { + return param; + } + if (spec.TAG === "Symbol") { + let msg = param[2]; + let cutcol = second_word(msg); + let spaces = " ".repeat(Caml.int_max(0, len$1 - cutcol | 0) + 3 | 0); + return [ + kwd, + spec, + "\n" + (spaces + replace_leading_tab(msg)) + ]; + } + let msg$1 = param[2]; + let cutcol$1 = second_word(msg$1); + let kwd_len = kwd.length; + let diff = (len$1 - kwd_len | 0) - cutcol$1 | 0; + if (diff <= 0) { + return [ + kwd, + spec, + replace_leading_tab(msg$1) + ]; + } + let spaces$1 = " ".repeat(diff); + let prefix = $$String.sub(replace_leading_tab(msg$1), 0, cutcol$1); + let suffix = $$String.sub(msg$1, cutcol$1, msg$1.length - cutcol$1 | 0); + return [ + kwd, + spec, + prefix + (spaces$1 + suffix) + ]; + }), completed); } export { - parse , - parse_dynamic , - parse_argv , - parse_argv_dynamic , - parse_and_expand_argv_dynamic , - parse_expand , - Help , - Bad , - usage , - usage_string , - align , - current , + parse, + parse_dynamic, + parse_argv, + parse_argv_dynamic, + parse_and_expand_argv_dynamic, + parse_expand, + Help, + Bad, + usage, + usage_string, + align, + current, } /* No side effect */ diff --git a/lib/es6/array.js b/lib/es6/array.js index 55ca0bc350..9ca9bf4969 100644 --- a/lib/es6/array.js +++ b/lib/es6/array.js @@ -6,9 +6,9 @@ import * as Caml_array from "./caml_array.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var make_float = Caml_array.make_float; +let make_float = Caml_array.make_float; -var Floatarray = {}; +let Floatarray = {}; function init(l, f) { if (l === 0) { @@ -16,29 +16,29 @@ function init(l, f) { } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, Curry._1(f, 0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, Curry._1(f, 0)); + for(let i = 1; i < l; ++i){ res[i] = Curry._1(f, i); } return res; } function make_matrix(sx, sy, init) { - var res = Caml_array.make(sx, []); - for(var x = 0; x < sx; ++x){ + let res = Caml_array.make(sx, []); + for(let x = 0; x < sx; ++x){ res[x] = Caml_array.make(sy, init); } return res; } function copy(a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } else { @@ -47,7 +47,7 @@ function copy(a) { } function append(a1, a2) { - var l1 = a1.length; + let l1 = a1.length; if (l1 === 0) { return copy(a2); } else if (a2.length === 0) { @@ -60,11 +60,11 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } @@ -72,13 +72,13 @@ function sub(a, ofs, len) { function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } - for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; } } @@ -86,17 +86,17 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } @@ -104,74 +104,74 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); } } function map(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._1(f, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._1(f, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._1(f, a[i]); } return r; } function map2(f, a, b) { - var la = a.length; - var lb = b.length; + let la = a.length; + let lb = b.length; if (la !== lb) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; } - var r = Caml_array.make(la, Curry._2(f, a[0], b[0])); - for(var i = 1; i < la; ++i){ + let r = Caml_array.make(la, Curry._2(f, a[0], b[0])); + for(let i = 1; i < la; ++i){ r[i] = Curry._2(f, a[i], b[i]); } return r; } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } function mapi(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._2(f, 0, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._2(f, 0, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._2(f, i, a[i]); } return r; } function to_list(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -180,20 +180,20 @@ function to_list(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function list_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } _param = param.tl; _accu = accu + 1 | 0; - continue ; + continue; }; } @@ -201,43 +201,43 @@ function of_list(param) { if (!param) { return []; } - var a = Caml_array.make(list_length(0, param), param.hd); - var _i = 1; - var _param = param.tl; + let a = Caml_array.make(list_length(0, param), param.hd); + let _i = 1; + let _param = param.tl; while(true) { - var param$1 = _param; - var i = _i; + let param$1 = _param; + let i = _i; if (!param$1) { return a; } a[i] = param$1.hd; _param = param$1.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, x, a) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = Curry._2(f, r, a[i]); } return r; } function fold_right(f, a, x) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = Curry._2(f, a[i], r); } return r; } function exists(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -245,15 +245,15 @@ function exists(p, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function for_all(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return true; } @@ -261,15 +261,15 @@ function for_all(p, a) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } function mem(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -277,15 +277,15 @@ function mem(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function memq(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -293,16 +293,16 @@ function memq(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } -var Bottom = /* @__PURE__ */Caml_exceptions.create("Array.Bottom"); +let Bottom = /* @__PURE__ */Caml_exceptions.create("Array.Bottom"); function sort(cmp, a) { - var maxson = function (l, i) { - var i31 = ((i + i | 0) + i | 0) + 1 | 0; - var x = i31; + let maxson = function (l, i) { + let i31 = ((i + i | 0) + i | 0) + 1 | 0; + let x = i31; if ((i31 + 2 | 0) < l) { if (Curry._2(cmp, Caml_array.get(a, i31), Caml_array.get(a, i31 + 1 | 0)) < 0) { x = i31 + 1 | 0; @@ -319,72 +319,72 @@ function sort(cmp, a) { return i31; } throw new Error(Bottom, { - cause: { - RE_EXN_ID: Bottom, - _1: i - } - }); + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; - var trickle = function (l, i, e) { + let trickle = function (l, i, e) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); if (Curry._2(cmp, Caml_array.get(a, j), e) <= 0) { return Caml_array.set(a, i$1, e); } Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var bubble = function (l, i) { + let bubble = function (l, i) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var trickleup = function (_i, e) { + let trickleup = function (_i, e) { while(true) { - var i = _i; - var father = (i - 1 | 0) / 3 | 0; + let i = _i; + let father = (i - 1 | 0) / 3 | 0; if (i === father) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "array.res", - 321, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "array.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); @@ -394,67 +394,67 @@ function sort(cmp, a) { return Caml_array.set(a, 0, e); } _i = father; - continue ; + continue; }; }; - var l = a.length; - for(var i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ + let l = a.length; + for(let i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ trickle(l, i, Caml_array.get(a, i)); } - for(var i$1 = l - 1 | 0; i$1 >= 2; --i$1){ - var e = Caml_array.get(a, i$1); + for(let i$1 = l - 1 | 0; i$1 >= 2; --i$1){ + let e = Caml_array.get(a, i$1); Caml_array.set(a, i$1, Caml_array.get(a, 0)); trickleup(bubble(i$1, 0), e); } if (l <= 1) { - return ; + return; } - var e$1 = Caml_array.get(a, 1); + let e$1 = Caml_array.get(a, 1); Caml_array.set(a, 1, Caml_array.get(a, 0)); Caml_array.set(a, 0, e$1); } function stable_sort(cmp, a) { - var merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { - var src1r = src1ofs + src1len | 0; - var src2r = src2ofs + src2len | 0; - var _i1 = src1ofs; - var _s1 = Caml_array.get(a, src1ofs); - var _i2 = src2ofs; - var _s2 = Caml_array.get(src2, src2ofs); - var _d = dstofs; + let merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { + let src1r = src1ofs + src1len | 0; + let src2r = src2ofs + src2len | 0; + let _i1 = src1ofs; + let _s1 = Caml_array.get(a, src1ofs); + let _i2 = src2ofs; + let _s2 = Caml_array.get(src2, src2ofs); + let _d = dstofs; while(true) { - var d = _d; - var s2 = _s2; - var i2 = _i2; - var s1 = _s1; - var i1 = _i1; + let d = _d; + let s2 = _s2; + let i2 = _i2; + let s1 = _s1; + let i1 = _i1; if (Curry._2(cmp, s1, s2) <= 0) { Caml_array.set(dst, d, s1); - var i1$1 = i1 + 1 | 0; + let i1$1 = i1 + 1 | 0; if (i1$1 >= src1r) { return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0); } _d = d + 1 | 0; _s1 = Caml_array.get(a, i1$1); _i1 = i1$1; - continue ; + continue; } Caml_array.set(dst, d, s2); - var i2$1 = i2 + 1 | 0; + let i2$1 = i2 + 1 | 0; if (i2$1 >= src2r) { return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0); } _d = d + 1 | 0; _s2 = Caml_array.get(src2, i2$1); _i2 = i2$1; - continue ; + continue; }; }; - var isortto = function (srcofs, dst, dstofs, len) { - for(var i = 0; i < len; ++i){ - var e = Caml_array.get(a, srcofs + i | 0); - var j = (dstofs + i | 0) - 1 | 0; + let isortto = function (srcofs, dst, dstofs, len) { + for(let i = 0; i < len; ++i){ + let e = Caml_array.get(a, srcofs + i | 0); + let j = (dstofs + i | 0) - 1 | 0; while(j >= dstofs && Curry._2(cmp, Caml_array.get(dst, j), e) > 0) { Caml_array.set(dst, j + 1 | 0, Caml_array.get(dst, j)); j = j - 1 | 0; @@ -462,62 +462,62 @@ function stable_sort(cmp, a) { Caml_array.set(dst, j + 1 | 0, e); } }; - var sortto = function (srcofs, dst, dstofs, len) { + let sortto = function (srcofs, dst, dstofs, len) { if (len <= 5) { return isortto(srcofs, dst, dstofs, len); } - var l1 = len / 2 | 0; - var l2 = len - l1 | 0; + let l1 = len / 2 | 0; + let l2 = len - l1 | 0; sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2); sortto(srcofs, a, srcofs + l2 | 0, l1); merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs); }; - var l = a.length; + let l = a.length; if (l <= 5) { return isortto(0, a, 0, l); } - var l1 = l / 2 | 0; - var l2 = l - l1 | 0; - var t = Caml_array.make(l2, Caml_array.get(a, 0)); + let l1 = l / 2 | 0; + let l2 = l - l1 | 0; + let t = Caml_array.make(l2, Caml_array.get(a, 0)); sortto(l1, t, 0, l2); sortto(0, a, l2, l1); merge(l2, l1, t, 0, l2, a, 0); } -var create_matrix = make_matrix; +let create_matrix = make_matrix; -var concat = Caml_array.concat; +let concat = Caml_array.concat; -var fast_sort = stable_sort; +let fast_sort = stable_sort; export { - make_float , - init , - make_matrix , - create_matrix , - append , - concat , - sub , - copy , - fill , - blit , - to_list , - of_list , - iter , - iteri , - map , - mapi , - fold_left , - fold_right , - iter2 , - map2 , - for_all , - exists , - mem , - memq , - sort , - stable_sort , - fast_sort , - Floatarray , + make_float, + init, + make_matrix, + create_matrix, + append, + concat, + sub, + copy, + fill, + blit, + to_list, + of_list, + iter, + iteri, + map, + mapi, + fold_left, + fold_right, + iter2, + map2, + for_all, + exists, + mem, + memq, + sort, + stable_sort, + fast_sort, + Floatarray, } /* No side effect */ diff --git a/lib/es6/arrayLabels.js b/lib/es6/arrayLabels.js index 72ebd1e9d8..c938c3b9b1 100644 --- a/lib/es6/arrayLabels.js +++ b/lib/es6/arrayLabels.js @@ -6,9 +6,9 @@ import * as Caml_array from "./caml_array.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var make_float = Caml_array.make_float; +let make_float = Caml_array.make_float; -var Floatarray = {}; +let Floatarray = {}; function init(l, f) { if (l === 0) { @@ -16,29 +16,29 @@ function init(l, f) { } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, Curry._1(f, 0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, Curry._1(f, 0)); + for(let i = 1; i < l; ++i){ res[i] = Curry._1(f, i); } return res; } function make_matrix(sx, sy, init) { - var res = Caml_array.make(sx, []); - for(var x = 0; x < sx; ++x){ + let res = Caml_array.make(sx, []); + for(let x = 0; x < sx; ++x){ res[x] = Caml_array.make(sy, init); } return res; } function copy(a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } else { @@ -47,7 +47,7 @@ function copy(a) { } function append(a1, a2) { - var l1 = a1.length; + let l1 = a1.length; if (l1 === 0) { return copy(a2); } else if (a2.length === 0) { @@ -60,11 +60,11 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } @@ -72,13 +72,13 @@ function sub(a, ofs, len) { function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } - for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; } } @@ -86,17 +86,17 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } @@ -104,74 +104,74 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); } } function map(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._1(f, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._1(f, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._1(f, a[i]); } return r; } function map2(f, a, b) { - var la = a.length; - var lb = b.length; + let la = a.length; + let lb = b.length; if (la !== lb) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; } - var r = Caml_array.make(la, Curry._2(f, a[0], b[0])); - for(var i = 1; i < la; ++i){ + let r = Caml_array.make(la, Curry._2(f, a[0], b[0])); + for(let i = 1; i < la; ++i){ r[i] = Curry._2(f, a[i], b[i]); } return r; } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } function mapi(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._2(f, 0, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._2(f, 0, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._2(f, i, a[i]); } return r; } function to_list(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -180,20 +180,20 @@ function to_list(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function list_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } _param = param.tl; _accu = accu + 1 | 0; - continue ; + continue; }; } @@ -201,43 +201,43 @@ function of_list(param) { if (!param) { return []; } - var a = Caml_array.make(list_length(0, param), param.hd); - var _i = 1; - var _param = param.tl; + let a = Caml_array.make(list_length(0, param), param.hd); + let _i = 1; + let _param = param.tl; while(true) { - var param$1 = _param; - var i = _i; + let param$1 = _param; + let i = _i; if (!param$1) { return a; } a[i] = param$1.hd; _param = param$1.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, x, a) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = Curry._2(f, r, a[i]); } return r; } function fold_right(f, a, x) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = Curry._2(f, a[i], r); } return r; } function exists(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -245,15 +245,15 @@ function exists(p, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function for_all(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return true; } @@ -261,15 +261,15 @@ function for_all(p, a) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } function mem(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -277,15 +277,15 @@ function mem(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function memq(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -293,16 +293,16 @@ function memq(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } -var Bottom = /* @__PURE__ */Caml_exceptions.create("ArrayLabels.Bottom"); +let Bottom = /* @__PURE__ */Caml_exceptions.create("ArrayLabels.Bottom"); function sort(cmp, a) { - var maxson = function (l, i) { - var i31 = ((i + i | 0) + i | 0) + 1 | 0; - var x = i31; + let maxson = function (l, i) { + let i31 = ((i + i | 0) + i | 0) + 1 | 0; + let x = i31; if ((i31 + 2 | 0) < l) { if (Curry._2(cmp, Caml_array.get(a, i31), Caml_array.get(a, i31 + 1 | 0)) < 0) { x = i31 + 1 | 0; @@ -319,72 +319,72 @@ function sort(cmp, a) { return i31; } throw new Error(Bottom, { - cause: { - RE_EXN_ID: Bottom, - _1: i - } - }); + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; - var trickle = function (l, i, e) { + let trickle = function (l, i, e) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); if (Curry._2(cmp, Caml_array.get(a, j), e) <= 0) { return Caml_array.set(a, i$1, e); } Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var bubble = function (l, i) { + let bubble = function (l, i) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var trickleup = function (_i, e) { + let trickleup = function (_i, e) { while(true) { - var i = _i; - var father = (i - 1 | 0) / 3 | 0; + let i = _i; + let father = (i - 1 | 0) / 3 | 0; if (i === father) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "arrayLabels.res", - 321, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "arrayLabels.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); @@ -394,67 +394,67 @@ function sort(cmp, a) { return Caml_array.set(a, 0, e); } _i = father; - continue ; + continue; }; }; - var l = a.length; - for(var i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ + let l = a.length; + for(let i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ trickle(l, i, Caml_array.get(a, i)); } - for(var i$1 = l - 1 | 0; i$1 >= 2; --i$1){ - var e = Caml_array.get(a, i$1); + for(let i$1 = l - 1 | 0; i$1 >= 2; --i$1){ + let e = Caml_array.get(a, i$1); Caml_array.set(a, i$1, Caml_array.get(a, 0)); trickleup(bubble(i$1, 0), e); } if (l <= 1) { - return ; + return; } - var e$1 = Caml_array.get(a, 1); + let e$1 = Caml_array.get(a, 1); Caml_array.set(a, 1, Caml_array.get(a, 0)); Caml_array.set(a, 0, e$1); } function stable_sort(cmp, a) { - var merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { - var src1r = src1ofs + src1len | 0; - var src2r = src2ofs + src2len | 0; - var _i1 = src1ofs; - var _s1 = Caml_array.get(a, src1ofs); - var _i2 = src2ofs; - var _s2 = Caml_array.get(src2, src2ofs); - var _d = dstofs; + let merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { + let src1r = src1ofs + src1len | 0; + let src2r = src2ofs + src2len | 0; + let _i1 = src1ofs; + let _s1 = Caml_array.get(a, src1ofs); + let _i2 = src2ofs; + let _s2 = Caml_array.get(src2, src2ofs); + let _d = dstofs; while(true) { - var d = _d; - var s2 = _s2; - var i2 = _i2; - var s1 = _s1; - var i1 = _i1; + let d = _d; + let s2 = _s2; + let i2 = _i2; + let s1 = _s1; + let i1 = _i1; if (Curry._2(cmp, s1, s2) <= 0) { Caml_array.set(dst, d, s1); - var i1$1 = i1 + 1 | 0; + let i1$1 = i1 + 1 | 0; if (i1$1 >= src1r) { return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0); } _d = d + 1 | 0; _s1 = Caml_array.get(a, i1$1); _i1 = i1$1; - continue ; + continue; } Caml_array.set(dst, d, s2); - var i2$1 = i2 + 1 | 0; + let i2$1 = i2 + 1 | 0; if (i2$1 >= src2r) { return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0); } _d = d + 1 | 0; _s2 = Caml_array.get(src2, i2$1); _i2 = i2$1; - continue ; + continue; }; }; - var isortto = function (srcofs, dst, dstofs, len) { - for(var i = 0; i < len; ++i){ - var e = Caml_array.get(a, srcofs + i | 0); - var j = (dstofs + i | 0) - 1 | 0; + let isortto = function (srcofs, dst, dstofs, len) { + for(let i = 0; i < len; ++i){ + let e = Caml_array.get(a, srcofs + i | 0); + let j = (dstofs + i | 0) - 1 | 0; while(j >= dstofs && Curry._2(cmp, Caml_array.get(dst, j), e) > 0) { Caml_array.set(dst, j + 1 | 0, Caml_array.get(dst, j)); j = j - 1 | 0; @@ -462,62 +462,62 @@ function stable_sort(cmp, a) { Caml_array.set(dst, j + 1 | 0, e); } }; - var sortto = function (srcofs, dst, dstofs, len) { + let sortto = function (srcofs, dst, dstofs, len) { if (len <= 5) { return isortto(srcofs, dst, dstofs, len); } - var l1 = len / 2 | 0; - var l2 = len - l1 | 0; + let l1 = len / 2 | 0; + let l2 = len - l1 | 0; sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2); sortto(srcofs, a, srcofs + l2 | 0, l1); merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs); }; - var l = a.length; + let l = a.length; if (l <= 5) { return isortto(0, a, 0, l); } - var l1 = l / 2 | 0; - var l2 = l - l1 | 0; - var t = Caml_array.make(l2, Caml_array.get(a, 0)); + let l1 = l / 2 | 0; + let l2 = l - l1 | 0; + let t = Caml_array.make(l2, Caml_array.get(a, 0)); sortto(l1, t, 0, l2); sortto(0, a, l2, l1); merge(l2, l1, t, 0, l2, a, 0); } -var create_matrix = make_matrix; +let create_matrix = make_matrix; -var concat = Caml_array.concat; +let concat = Caml_array.concat; -var fast_sort = stable_sort; +let fast_sort = stable_sort; export { - init , - make_matrix , - create_matrix , - append , - concat , - sub , - copy , - fill , - blit , - to_list , - of_list , - iter , - map , - iteri , - mapi , - fold_left , - fold_right , - iter2 , - map2 , - exists , - for_all , - mem , - memq , - make_float , - sort , - stable_sort , - fast_sort , - Floatarray , + init, + make_matrix, + create_matrix, + append, + concat, + sub, + copy, + fill, + blit, + to_list, + of_list, + iter, + map, + iteri, + mapi, + fold_left, + fold_right, + iter2, + map2, + exists, + for_all, + mem, + memq, + make_float, + sort, + stable_sort, + fast_sort, + Floatarray, } /* No side effect */ diff --git a/lib/es6/belt_Array.js b/lib/es6/belt_Array.js index 2e4495289b..d309b07a1b 100644 --- a/lib/es6/belt_Array.js +++ b/lib/es6/belt_Array.js @@ -15,15 +15,15 @@ function get(arr, i) { function getExn(arr, i) { if (!(i >= 0 && i < arr.length)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 36, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 36, + 2 + ] + } + }); } return arr[i]; } @@ -40,50 +40,50 @@ function set(arr, i, v) { function setExn(arr, i, v) { if (!(i >= 0 && i < arr.length)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 49, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 49, + 2 + ] + } + }); } arr[i] = v; } function swapUnsafe(xs, i, j) { - var tmp = xs[i]; + let tmp = xs[i]; xs[i] = xs[j]; xs[j] = tmp; } function shuffleInPlace(xs) { - var len = xs.length; - for(var i = 0; i < len; ++i){ + let len = xs.length; + for(let i = 0; i < len; ++i){ swapUnsafe(xs, i, Js_math.random_int(i, len)); } } function shuffle(xs) { - var result = xs.slice(0); + let result = xs.slice(0); shuffleInPlace(result); return result; } function reverseInPlace(xs) { - var len = xs.length; - var ofs = 0; - for(var i = 0 ,i_finish = len / 2 | 0; i < i_finish; ++i){ + let len = xs.length; + let ofs = 0; + for(let i = 0 ,i_finish = len / 2 | 0; i < i_finish; ++i){ swapUnsafe(xs, ofs + i | 0, ((ofs + len | 0) - i | 0) - 1 | 0); } } function reverse(xs) { - var len = xs.length; - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let len = xs.length; + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = xs[(len - 1 | 0) - i | 0]; } return result; @@ -93,8 +93,8 @@ function make(l, f) { if (l <= 0) { return []; } - var res = new Array(l); - for(var i = 0; i < l; ++i){ + let res = new Array(l); + for(let i = 0; i < l; ++i){ res[i] = f; } return res; @@ -104,8 +104,8 @@ function makeByU(l, f) { if (l <= 0) { return []; } - var res = new Array(l); - for(var i = 0; i < l; ++i){ + let res = new Array(l); + for(let i = 0; i < l; ++i){ res[i] = f(i); } return res; @@ -116,7 +116,7 @@ function makeBy(l, f) { } function makeByAndShuffleU(l, f) { - var u = makeByU(l, f); + let u = makeByU(l, f); shuffleInPlace(u); return u; } @@ -126,26 +126,26 @@ function makeByAndShuffle(l, f) { } function range(start, finish) { - var cut = finish - start | 0; + let cut = finish - start | 0; if (cut < 0) { return []; } - var arr = new Array(cut + 1 | 0); - for(var i = 0; i <= cut; ++i){ + let arr = new Array(cut + 1 | 0); + for(let i = 0; i <= cut; ++i){ arr[i] = start + i | 0; } return arr; } function rangeBy(start, finish, step) { - var cut = finish - start | 0; + let cut = finish - start | 0; if (cut < 0 || step <= 0) { return []; } - var nb = (cut / step | 0) + 1 | 0; - var arr = new Array(nb); - var cur = start; - for(var i = 0; i < nb; ++i){ + let nb = (cut / step | 0) + 1 | 0; + let arr = new Array(nb); + let cur = start; + for(let i = 0; i < nb; ++i){ arr[i] = cur; cur = cur + step | 0; } @@ -153,11 +153,11 @@ function rangeBy(start, finish, step) { } function zip(xs, ys) { - var lenx = xs.length; - var leny = ys.length; - var len = lenx < leny ? lenx : leny; - var s = new Array(len); - for(var i = 0; i < len; ++i){ + let lenx = xs.length; + let leny = ys.length; + let len = lenx < leny ? lenx : leny; + let s = new Array(len); + for(let i = 0; i < len; ++i){ s[i] = [ xs[i], ys[i] @@ -167,11 +167,11 @@ function zip(xs, ys) { } function zipByU(xs, ys, f) { - var lenx = xs.length; - var leny = ys.length; - var len = lenx < leny ? lenx : leny; - var s = new Array(len); - for(var i = 0; i < len; ++i){ + let lenx = xs.length; + let leny = ys.length; + let len = lenx < leny ? lenx : leny; + let s = new Array(len); + for(let i = 0; i < len; ++i){ s[i] = f(xs[i], ys[i]); } return s; @@ -182,29 +182,29 @@ function zipBy(xs, ys, f) { } function concat(a1, a2) { - var l1 = a1.length; - var l2 = a2.length; - var a1a2 = new Array(l1 + l2 | 0); - for(var i = 0; i < l1; ++i){ + let l1 = a1.length; + let l2 = a2.length; + let a1a2 = new Array(l1 + l2 | 0); + for(let i = 0; i < l1; ++i){ a1a2[i] = a1[i]; } - for(var i$1 = 0; i$1 < l2; ++i$1){ + for(let i$1 = 0; i$1 < l2; ++i$1){ a1a2[l1 + i$1 | 0] = a2[i$1]; } return a1a2; } function concatMany(arrs) { - var lenArrs = arrs.length; - var totalLen = 0; - for(var i = 0; i < lenArrs; ++i){ + let lenArrs = arrs.length; + let totalLen = 0; + for(let i = 0; i < lenArrs; ++i){ totalLen = totalLen + arrs[i].length | 0; } - var result = new Array(totalLen); + let result = new Array(totalLen); totalLen = 0; - for(var j = 0; j < lenArrs; ++j){ - var cur = arrs[j]; - for(var k = 0 ,k_finish = cur.length; k < k_finish; ++k){ + for(let j = 0; j < lenArrs; ++j){ + let cur = arrs[j]; + for(let k = 0 ,k_finish = cur.length; k < k_finish; ++k){ result[totalLen] = cur[k]; totalLen = totalLen + 1 | 0; } @@ -216,26 +216,26 @@ function slice(a, offset, len) { if (len <= 0) { return []; } - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var hasLen = lena - ofs | 0; - var copyLength = hasLen < len ? hasLen : len; + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let hasLen = lena - ofs | 0; + let copyLength = hasLen < len ? hasLen : len; if (copyLength <= 0) { return []; } - var result = new Array(copyLength); - for(var i = 0; i < copyLength; ++i){ + let result = new Array(copyLength); + for(let i = 0; i < copyLength; ++i){ result[i] = a[ofs + i | 0]; } return result; } function sliceToEnd(a, offset) { - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var len = lena > ofs ? lena - ofs | 0 : 0; - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let len = lena > ofs ? lena - ofs | 0 : 0; + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = a[ofs + i | 0]; } return result; @@ -243,51 +243,51 @@ function sliceToEnd(a, offset) { function fill(a, offset, len, v) { if (len <= 0) { - return ; + return; } - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var hasLen = lena - ofs | 0; - var fillLength = hasLen < len ? hasLen : len; + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let hasLen = lena - ofs | 0; + let fillLength = hasLen < len ? hasLen : len; if (fillLength <= 0) { - return ; + return; } - for(var i = ofs ,i_finish = ofs + fillLength | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + fillLength | 0; i < i_finish; ++i){ a[i] = v; } } function blitUnsafe(a1, srcofs1, a2, srcofs2, blitLength) { if (srcofs2 <= srcofs1) { - for(var j = 0; j < blitLength; ++j){ + for(let j = 0; j < blitLength; ++j){ a2[j + srcofs2 | 0] = a1[j + srcofs1 | 0]; } - return ; + return; } - for(var j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + srcofs2 | 0] = a1[j$1 + srcofs1 | 0]; } } function blit(a1, ofs1, a2, ofs2, len) { - var lena1 = a1.length; - var lena2 = a2.length; - var srcofs1 = ofs1 < 0 ? Caml.int_max(lena1 + ofs1 | 0, 0) : ofs1; - var srcofs2 = ofs2 < 0 ? Caml.int_max(lena2 + ofs2 | 0, 0) : ofs2; - var blitLength = Caml.int_min(len, Caml.int_min(lena1 - srcofs1 | 0, lena2 - srcofs2 | 0)); + let lena1 = a1.length; + let lena2 = a2.length; + let srcofs1 = ofs1 < 0 ? Caml.int_max(lena1 + ofs1 | 0, 0) : ofs1; + let srcofs2 = ofs2 < 0 ? Caml.int_max(lena2 + ofs2 | 0, 0) : ofs2; + let blitLength = Caml.int_min(len, Caml.int_min(lena1 - srcofs1 | 0, lena2 - srcofs2 | 0)); if (srcofs2 <= srcofs1) { - for(var j = 0; j < blitLength; ++j){ + for(let j = 0; j < blitLength; ++j){ a2[j + srcofs2 | 0] = a1[j + srcofs1 | 0]; } - return ; + return; } - for(var j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + srcofs2 | 0] = a1[j$1 + srcofs1 | 0]; } } function forEachU(a, f) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ f(a[i]); } } @@ -297,9 +297,9 @@ function forEach(a, f) { } function mapU(a, f) { - var l = a.length; - var r = new Array(l); - for(var i = 0; i < l; ++i){ + let l = a.length; + let r = new Array(l); + for(let i = 0; i < l; ++i){ r[i] = f(a[i]); } return r; @@ -318,11 +318,11 @@ function flatMap(a, f) { } function getByU(a, p) { - var l = a.length; - var i = 0; - var r; + let l = a.length; + let i = 0; + let r; while(r === undefined && i < l) { - var v = a[i]; + let v = a[i]; if (p(v)) { r = Caml_option.some(v); } @@ -336,11 +336,11 @@ function getBy(a, p) { } function getIndexByU(a, p) { - var l = a.length; - var i = 0; - var r; + let l = a.length; + let i = 0; + let r; while(r === undefined && i < l) { - var v = a[i]; + let v = a[i]; if (p(v)) { r = i; } @@ -354,11 +354,11 @@ function getIndexBy(a, p) { } function keepU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; if (f(v)) { r[j] = v; j = j + 1 | 0; @@ -374,11 +374,11 @@ function keep(a, f) { } function keepWithIndexU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; if (f(v, i)) { r[j] = v; j = j + 1 | 0; @@ -394,12 +394,12 @@ function keepWithIndex(a, f) { } function keepMapU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; - var v$1 = f(v); + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; + let v$1 = f(v); if (v$1 !== undefined) { r[j] = Caml_option.valFromOption(v$1); j = j + 1 | 0; @@ -415,7 +415,7 @@ function keepMap(a, f) { } function forEachWithIndexU(a, f) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ f(i, a[i]); } } @@ -425,9 +425,9 @@ function forEachWithIndex(a, f) { } function mapWithIndexU(a, f) { - var l = a.length; - var r = new Array(l); - for(var i = 0; i < l; ++i){ + let l = a.length; + let r = new Array(l); + for(let i = 0; i < l; ++i){ r[i] = f(i, a[i]); } return r; @@ -438,8 +438,8 @@ function mapWithIndex(a, f) { } function reduceU(a, x, f) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f(r, a[i]); } return r; @@ -450,8 +450,8 @@ function reduce(a, x, f) { } function reduceReverseU(a, x, f) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = f(r, a[i]); } return r; @@ -462,9 +462,9 @@ function reduceReverse(a, x, f) { } function reduceReverse2U(a, b, x, f) { - var r = x; - var len = Caml.int_min(a.length, b.length); - for(var i = len - 1 | 0; i >= 0; --i){ + let r = x; + let len = Caml.int_min(a.length, b.length); + for(let i = len - 1 | 0; i >= 0; --i){ r = f(r, a[i], b[i]); } return r; @@ -475,8 +475,8 @@ function reduceReverse2(a, b, x, f) { } function reduceWithIndexU(a, x, f) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f(r, a[i], i); } return r; @@ -487,10 +487,10 @@ function reduceWithIndex(a, x, f) { } function everyU(arr, b) { - var len = arr.length; - var _i = 0; + let len = arr.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { return true; } @@ -498,7 +498,7 @@ function everyU(arr, b) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -507,10 +507,10 @@ function every(arr, f) { } function someU(arr, b) { - var len = arr.length; - var _i = 0; + let len = arr.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { return false; } @@ -518,7 +518,7 @@ function someU(arr, b) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -528,7 +528,7 @@ function some(arr, f) { function everyAux2(arr1, arr2, _i, b, len) { while(true) { - var i = _i; + let i = _i; if (i === len) { return true; } @@ -536,7 +536,7 @@ function everyAux2(arr1, arr2, _i, b, len) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -549,10 +549,10 @@ function every2(a, b, p) { } function some2U(a, b, p) { - var _i = 0; - var len = Caml.int_min(a.length, b.length); + let _i = 0; + let len = Caml.int_min(a.length, b.length); while(true) { - var i = _i; + let i = _i; if (i === len) { return false; } @@ -560,7 +560,7 @@ function some2U(a, b, p) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -569,8 +569,8 @@ function some2(a, b, p) { } function eqU(a, b, p) { - var lena = a.length; - var lenb = b.length; + let lena = a.length; + let lenb = b.length; if (lena === lenb) { return everyAux2(a, b, 0, p, lena); } else { @@ -583,25 +583,25 @@ function eq(a, b, p) { } function cmpU(a, b, p) { - var lena = a.length; - var lenb = b.length; + let lena = a.length; + let lenb = b.length; if (lena > lenb) { return 1; } else if (lena < lenb) { return -1; } else { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === lena) { return 0; } - var c = p(a[i], b[i]); + let c = p(a[i], b[i]); if (c !== 0) { return c; } _i = i + 1 | 0; - continue ; + continue; }; } } @@ -611,13 +611,13 @@ function cmp(a, b, p) { } function partitionU(a, f) { - var l = a.length; - var i = 0; - var j = 0; - var a1 = new Array(l); - var a2 = new Array(l); - for(var ii = 0; ii < l; ++ii){ - var v = a[ii]; + let l = a.length; + let i = 0; + let j = 0; + let a1 = new Array(l); + let a2 = new Array(l); + for(let ii = 0; ii < l; ++ii){ + let v = a[ii]; if (f(v)) { a1[i] = v; i = i + 1 | 0; @@ -629,9 +629,9 @@ function partitionU(a, f) { a1.length = i; a2.length = j; return [ - a1, - a2 - ]; + a1, + a2 + ]; } function partition(a, f) { @@ -639,37 +639,37 @@ function partition(a, f) { } function unzip(a) { - var l = a.length; - var a1 = new Array(l); - var a2 = new Array(l); - for(var i = 0; i < l; ++i){ - var match = a[i]; + let l = a.length; + let a1 = new Array(l); + let a2 = new Array(l); + for(let i = 0; i < l; ++i){ + let match = a[i]; a1[i] = match[0]; a2[i] = match[1]; } return [ - a1, - a2 - ]; + a1, + a2 + ]; } function joinWithU(a, sep, toString) { - var l = a.length; + let l = a.length; if (l === 0) { return ""; } - var lastIndex = l - 1 | 0; - var _i = 0; - var _res = ""; + let lastIndex = l - 1 | 0; + let _i = 0; + let _res = ""; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i === lastIndex) { return res + toString(a[i]); } _res = res + (toString(a[i]) + sep); _i = i + 1 | 0; - continue ; + continue; }; } @@ -678,8 +678,8 @@ function joinWith(a, sep, toString) { } function initU(n, f) { - var v = new Array(n); - for(var i = 0; i < n; ++i){ + let v = new Array(n); + for(let i = 0; i < n; ++i){ v[i] = f(i); } return v; @@ -690,77 +690,77 @@ function init(n, f) { } export { - get , - getExn , - set , - setExn , - shuffleInPlace , - shuffle , - reverseInPlace , - reverse , - make , - range , - rangeBy , - makeByU , - makeBy , - makeByAndShuffleU , - makeByAndShuffle , - zip , - zipByU , - zipBy , - unzip , - concat , - concatMany , - slice , - sliceToEnd , - fill , - blit , - blitUnsafe , - forEachU , - forEach , - mapU , - map , - flatMapU , - flatMap , - getByU , - getBy , - getIndexByU , - getIndexBy , - keepU , - keep , - keepWithIndexU , - keepWithIndex , - keepMapU , - keepMap , - forEachWithIndexU , - forEachWithIndex , - mapWithIndexU , - mapWithIndex , - partitionU , - partition , - reduceU , - reduce , - reduceReverseU , - reduceReverse , - reduceReverse2U , - reduceReverse2 , - reduceWithIndexU , - reduceWithIndex , - joinWithU , - joinWith , - someU , - some , - everyU , - every , - every2U , - every2 , - some2U , - some2 , - cmpU , - cmp , - eqU , - eq , - initU , - init , + get, + getExn, + set, + setExn, + shuffleInPlace, + shuffle, + reverseInPlace, + reverse, + make, + range, + rangeBy, + makeByU, + makeBy, + makeByAndShuffleU, + makeByAndShuffle, + zip, + zipByU, + zipBy, + unzip, + concat, + concatMany, + slice, + sliceToEnd, + fill, + blit, + blitUnsafe, + forEachU, + forEach, + mapU, + map, + flatMapU, + flatMap, + getByU, + getBy, + getIndexByU, + getIndexBy, + keepU, + keep, + keepWithIndexU, + keepWithIndex, + keepMapU, + keepMap, + forEachWithIndexU, + forEachWithIndex, + mapWithIndexU, + mapWithIndex, + partitionU, + partition, + reduceU, + reduce, + reduceReverseU, + reduceReverse, + reduceReverse2U, + reduceReverse2, + reduceWithIndexU, + reduceWithIndex, + joinWithU, + joinWith, + someU, + some, + everyU, + every, + every2U, + every2, + some2U, + some2, + cmpU, + cmp, + eqU, + eq, + initU, + init, } /* No side effect */ diff --git a/lib/es6/belt_List.js b/lib/es6/belt_List.js index f47751ab16..c65babf3e6 100644 --- a/lib/es6/belt_List.js +++ b/lib/es6/belt_List.js @@ -17,10 +17,10 @@ function headExn(x) { return x.hd; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function tail(x) { @@ -35,37 +35,37 @@ function tailExn(x) { return x.tl; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function add(xs, x) { return { - hd: x, - tl: xs - }; + hd: x, + tl: xs + }; } function get(x, n) { if (n < 0) { - return ; + return; } else { - var _x = x; - var _n = n; + let _x = x; + let _n = n; while(true) { - var n$1 = _n; - var x$1 = _x; + let n$1 = _n; + let x$1 = _x; if (!x$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(x$1.hd); } _n = n$1 - 1 | 0; _x = x$1.tl; - continue ; + continue; }; } } @@ -73,43 +73,43 @@ function get(x, n) { function getExn(x, n) { if (n < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var _x = x; - var _n = n; + let _x = x; + let _n = n; while(true) { - var n$1 = _n; - var x$1 = _x; + let n$1 = _n; + let x$1 = _x; if (x$1) { if (n$1 === 0) { return x$1.hd; } _n = n$1 - 1 | 0; _x = x$1.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function partitionAux(p, _cell, _precX, _precY) { while(true) { - var precY = _precY; - var precX = _precX; - var cell = _cell; + let precY = _precY; + let precX = _precX; + let cell = _cell; if (!cell) { - return ; + return; } - var t = cell.tl; - var h = cell.hd; - var next = { + let t = cell.tl; + let h = cell.hd; + let next = { hd: h, tl: /* [] */0 }; @@ -117,29 +117,29 @@ function partitionAux(p, _cell, _precX, _precY) { precX.tl = next; _precX = next; _cell = t; - continue ; + continue; } precY.tl = next; _precY = next; _cell = t; - continue ; + continue; }; } function splitAux(_cell, _precX, _precY) { while(true) { - var precY = _precY; - var precX = _precX; - var cell = _cell; + let precY = _precY; + let precX = _precX; + let cell = _cell; if (!cell) { - return ; + return; } - var match = cell.hd; - var nextA = { + let match = cell.hd; + let nextA = { hd: match[0], tl: /* [] */0 }; - var nextB = { + let nextB = { hd: match[1], tl: /* [] */0 }; @@ -148,64 +148,64 @@ function splitAux(_cell, _precX, _precY) { _precY = nextB; _precX = nextA; _cell = cell.tl; - continue ; + continue; }; } function copyAuxCont(_cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return prec; } - var next = { + let next = { hd: cellX.hd, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWitFilter(f, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h)) { - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; } _cellX = t; - continue ; + continue; }; } function copyAuxWithFilterIndex(f, _cellX, _prec, _i) { while(true) { - var i = _i; - var prec = _prec; - var cellX = _cellX; + let i = _i; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h, i)) { - var next = { + let next = { hd: h, tl: /* [] */0 }; @@ -213,71 +213,71 @@ function copyAuxWithFilterIndex(f, _cellX, _prec, _i) { _i = i + 1 | 0; _prec = next; _cellX = t; - continue ; + continue; } _i = i + 1 | 0; _cellX = t; - continue ; + continue; }; } function copyAuxWitFilterMap(f, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = f(cellX.hd); + let t = cellX.tl; + let h = f(cellX.hd); if (h !== undefined) { - var next = { + let next = { hd: Caml_option.valFromOption(h), tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; } _cellX = t; - continue ; + continue; }; } function removeAssocAuxWithMap(_cellX, x, _prec, f) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return false; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h[0], x)) { prec.tl = t; return true; } - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; }; } function setAssocAuxWithMap(_cellX, x, k, _prec, eq) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return false; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (eq(h[0], x)) { prec.tl = { hd: [ @@ -288,47 +288,47 @@ function setAssocAuxWithMap(_cellX, x, k, _prec, eq) { }; return true; } - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; }; } function copyAuxWithMap(_cellX, _prec, f) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var next = { + let next = { hd: f(cellX.hd), tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = cellX.tl; - continue ; + continue; }; } function zipAux(_cellX, _cellY, _prec) { while(true) { - var prec = _prec; - var cellY = _cellY; - var cellX = _cellX; + let prec = _prec; + let cellY = _cellY; + let cellX = _cellX; if (!cellX) { - return ; + return; } if (!cellY) { - return ; + return; } - var next = { + let next = { hd: [ cellX.hd, cellY.hd @@ -339,22 +339,22 @@ function zipAux(_cellX, _cellY, _prec) { _prec = next; _cellY = cellY.tl; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWithMap2(f, _cellX, _cellY, _prec) { while(true) { - var prec = _prec; - var cellY = _cellY; - var cellX = _cellX; + let prec = _prec; + let cellY = _cellY; + let cellX = _cellX; if (!cellX) { - return ; + return; } if (!cellY) { - return ; + return; } - var next = { + let next = { hd: f(cellX.hd, cellY.hd), tl: /* [] */0 }; @@ -362,19 +362,19 @@ function copyAuxWithMap2(f, _cellX, _cellY, _prec) { _prec = next; _cellY = cellY.tl; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWithMapI(f, _i, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; - var i = _i; + let prec = _prec; + let cellX = _cellX; + let i = _i; if (!cellX) { - return ; + return; } - var next = { + let next = { hd: f(i, cellX.hd), tl: /* [] */0 }; @@ -382,22 +382,22 @@ function copyAuxWithMapI(f, _i, _cellX, _prec) { _prec = next; _cellX = cellX.tl; _i = i + 1 | 0; - continue ; + continue; }; } function takeAux(_n, _cell, _prec) { while(true) { - var prec = _prec; - var cell = _cell; - var n = _n; + let prec = _prec; + let cell = _cell; + let n = _n; if (n === 0) { return true; } if (!cell) { return false; } - var cell$1 = { + let cell$1 = { hd: cell.hd, tl: /* [] */0 }; @@ -405,22 +405,22 @@ function takeAux(_n, _cell, _prec) { _prec = cell$1; _cell = cell.tl; _n = n - 1 | 0; - continue ; + continue; }; } function splitAtAux(_n, _cell, _prec) { while(true) { - var prec = _prec; - var cell = _cell; - var n = _n; + let prec = _prec; + let cell = _cell; + let n = _n; if (n === 0) { return cell; } if (!cell) { - return ; + return; } - var cell$1 = { + let cell$1 = { hd: cell.hd, tl: /* [] */0 }; @@ -428,25 +428,25 @@ function splitAtAux(_n, _cell, _prec) { _prec = cell$1; _cell = cell.tl; _n = n - 1 | 0; - continue ; + continue; }; } function take(lst, n) { if (n < 0) { - return ; + return; } if (n === 0) { return /* [] */0; } if (!lst) { - return ; + return; } - var cell = { + let cell = { hd: lst.hd, tl: /* [] */0 }; - var has = takeAux(n - 1 | 0, lst.tl, cell); + let has = takeAux(n - 1 | 0, lst.tl, cell); if (has) { return cell; } @@ -455,49 +455,49 @@ function take(lst, n) { function drop(lst, n) { if (n < 0) { - return ; + return; } else { - var _l = lst; - var _n = n; + let _l = lst; + let _n = n; while(true) { - var n$1 = _n; - var l = _l; + let n$1 = _n; + let l = _l; if (n$1 === 0) { return l; } if (!l) { - return ; + return; } _n = n$1 - 1 | 0; _l = l.tl; - continue ; + continue; }; } } function splitAt(lst, n) { if (n < 0) { - return ; + return; } if (n === 0) { return [ - /* [] */0, - lst - ]; + /* [] */0, + lst + ]; } if (!lst) { - return ; + return; } - var cell = { + let cell = { hd: lst.hd, tl: /* [] */0 }; - var rest = splitAtAux(n - 1 | 0, lst.tl, cell); + let rest = splitAtAux(n - 1 | 0, lst.tl, cell); if (rest !== undefined) { return [ - cell, - rest - ]; + cell, + rest + ]; } } @@ -506,7 +506,7 @@ function concat(xs, ys) { if (!xs) { return ys; } - var cell = { + let cell = { hd: xs.hd, tl: /* [] */0 }; @@ -518,7 +518,7 @@ function mapU(xs, f) { if (!xs) { return /* [] */0; } - var cell = { + let cell = { hd: f(xs.hd), tl: /* [] */0 }; @@ -537,7 +537,7 @@ function zipByU(l1, l2, f) { if (!l2) { return /* [] */0; } - var cell = { + let cell = { hd: f(l1.hd, l2.hd), tl: /* [] */0 }; @@ -553,7 +553,7 @@ function mapWithIndexU(xs, f) { if (!xs) { return /* [] */0; } - var cell = { + let cell = { hd: f(0, xs.hd), tl: /* [] */0 }; @@ -569,14 +569,14 @@ function makeByU(n, f) { if (n <= 0) { return /* [] */0; } - var headX = { + let headX = { hd: f(0), tl: /* [] */0 }; - var cur = headX; - var i = 1; + let cur = headX; + let i = 1; while(i < n) { - var v = { + let v = { hd: f(i), tl: /* [] */0 }; @@ -595,14 +595,14 @@ function make(n, v) { if (n <= 0) { return /* [] */0; } - var headX = { + let headX = { hd: v, tl: /* [] */0 }; - var cur = headX; - var i = 1; + let cur = headX; + let i = 1; while(i < n) { - var v$1 = { + let v$1 = { hd: v, tl: /* [] */0 }; @@ -614,40 +614,40 @@ function make(n, v) { } function length(xs) { - var _x = xs; - var _acc = 0; + let _x = xs; + let _acc = 0; while(true) { - var acc = _acc; - var x = _x; + let acc = _acc; + let x = _x; if (!x) { return acc; } _acc = acc + 1 | 0; _x = x.tl; - continue ; + continue; }; } function fillAux(arr, _i, _x) { while(true) { - var x = _x; - var i = _i; + let x = _x; + let i = _i; if (!x) { - return ; + return; } arr[i] = x.hd; _x = x.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fromArray(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -656,27 +656,27 @@ function fromArray(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function toArray(x) { - var len = length(x); - var arr = new Array(len); + let len = length(x); + let arr = new Array(len); fillAux(arr, 0, x); return arr; } function shuffle(xs) { - var v = toArray(xs); + let v = toArray(xs); Belt_Array.shuffleInPlace(v); return fromArray(v); } function reverseConcat(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -685,7 +685,7 @@ function reverseConcat(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -695,27 +695,27 @@ function reverse(l) { function flattenAux(_prec, _xs) { while(true) { - var xs = _xs; - var prec = _prec; + let xs = _xs; + let prec = _prec; if (xs) { _xs = xs.tl; _prec = copyAuxCont(xs.hd, prec); - continue ; + continue; } prec.tl = /* [] */0; - return ; + return; }; } function flatten(_xs) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var match = xs.hd; + let match = xs.hd; if (match) { - var cell = { + let cell = { hd: match.hd, tl: /* [] */0 }; @@ -723,32 +723,32 @@ function flatten(_xs) { return cell; } _xs = xs.tl; - continue ; + continue; }; } function concatMany(xs) { - var len = xs.length; + let len = xs.length; if (len === 1) { return xs[0]; } if (len === 0) { return /* [] */0; } - var len$1 = xs.length; - var v = xs[len$1 - 1 | 0]; - for(var i = len$1 - 2 | 0; i >= 0; --i){ + let len$1 = xs.length; + let v = xs[len$1 - 1 | 0]; + for(let i = len$1 - 2 | 0; i >= 0; --i){ v = concat(xs[i], v); } return v; } function mapReverseU(l, f) { - var _accu = /* [] */0; - var _xs = l; + let _accu = /* [] */0; + let _xs = l; while(true) { - var xs = _xs; - var accu = _accu; + let xs = _xs; + let accu = _accu; if (!xs) { return accu; } @@ -757,7 +757,7 @@ function mapReverseU(l, f) { hd: f(xs.hd), tl: accu }; - continue ; + continue; }; } @@ -767,13 +767,13 @@ function mapReverse(l, f) { function forEachU(_xs, f) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } f(xs.hd); _xs = xs.tl; - continue ; + continue; }; } @@ -782,18 +782,18 @@ function forEach(xs, f) { } function forEachWithIndexU(l, f) { - var _xs = l; - var _i = 0; + let _xs = l; + let _i = 0; while(true) { - var i = _i; - var xs = _xs; + let i = _i; + let xs = _xs; if (!xs) { - return ; + return; } f(i, xs.hd); _i = i + 1 | 0; _xs = xs.tl; - continue ; + continue; }; } @@ -803,14 +803,14 @@ function forEachWithIndex(l, f) { function reduceU(_l, _accu, f) { while(true) { - var accu = _accu; - var l = _l; + let accu = _accu; + let l = _l; if (!l) { return accu; } _accu = f(accu, l.hd); _l = l.tl; - continue ; + continue; }; } @@ -827,7 +827,7 @@ function reduceReverseUnsafeU(l, accu, f) { } function reduceReverseU(l, acc, f) { - var len = length(l); + let len = length(l); if (len < 1000) { return reduceReverseUnsafeU(l, acc, f); } else { @@ -840,20 +840,20 @@ function reduceReverse(l, accu, f) { } function reduceWithIndexU(l, acc, f) { - var _l = l; - var _acc = acc; - var _i = 0; + let _l = l; + let _acc = acc; + let _i = 0; while(true) { - var i = _i; - var acc$1 = _acc; - var l$1 = _l; + let i = _i; + let acc$1 = _acc; + let l$1 = _l; if (!l$1) { return acc$1; } _i = i + 1 | 0; _acc = f(acc$1, l$1.hd, i); _l = l$1.tl; - continue ; + continue; }; } @@ -862,13 +862,13 @@ function reduceWithIndex(l, acc, f) { } function mapReverse2U(l1, l2, f) { - var _l1 = l1; - var _l2 = l2; - var _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1$1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; if (!l1$1) { return accu; } @@ -881,7 +881,7 @@ function mapReverse2U(l1, l2, f) { }; _l2 = l2$1.tl; _l1 = l1$1.tl; - continue ; + continue; }; } @@ -891,18 +891,18 @@ function mapReverse2(l1, l2, f) { function forEach2U(_l1, _l2, f) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { - return ; + return; } if (!l2) { - return ; + return; } f(l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -912,9 +912,9 @@ function forEach2(l1, l2, f) { function reduce2U(_l1, _l2, _accu, f) { while(true) { - var accu = _accu; - var l2 = _l2; - var l1 = _l1; + let accu = _accu; + let l2 = _l2; + let l1 = _l1; if (!l1) { return accu; } @@ -924,7 +924,7 @@ function reduce2U(_l1, _l2, _accu, f) { _accu = f(accu, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -941,7 +941,7 @@ function reduceReverse2UnsafeU(l1, l2, accu, f) { } function reduceReverse2U(l1, l2, acc, f) { - var len = length(l1); + let len = length(l1); if (len < 1000) { return reduceReverse2UnsafeU(l1, l2, acc, f); } else { @@ -955,7 +955,7 @@ function reduceReverse2(l1, l2, acc, f) { function everyU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return true; } @@ -963,7 +963,7 @@ function everyU(_xs, p) { return false; } _xs = xs.tl; - continue ; + continue; }; } @@ -973,7 +973,7 @@ function every(xs, p) { function someU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -981,7 +981,7 @@ function someU(_xs, p) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -991,8 +991,8 @@ function some(xs, p) { function every2U(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return true; } @@ -1004,7 +1004,7 @@ function every2U(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1014,8 +1014,8 @@ function every2(l1, l2, p) { function cmpByLength(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1028,14 +1028,14 @@ function cmpByLength(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function cmpU(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1046,13 +1046,13 @@ function cmpU(_l1, _l2, p) { if (!l2) { return 1; } - var c = p(l1.hd, l2.hd); + let c = p(l1.hd, l2.hd); if (c !== 0) { return c; } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1062,8 +1062,8 @@ function cmp(l1, l2, f) { function eqU(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return false; @@ -1079,7 +1079,7 @@ function eqU(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1089,8 +1089,8 @@ function eq(l1, l2, f) { function some2U(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return false; } @@ -1102,7 +1102,7 @@ function some2U(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1112,7 +1112,7 @@ function some2(l1, l2, p) { function hasU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -1120,7 +1120,7 @@ function hasU(_xs, x, eq) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -1130,16 +1130,16 @@ function has(xs, x, eq) { function getAssocU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } - var match = xs.hd; + let match = xs.hd; if (eq(match[0], x)) { return Caml_option.some(match[1]); } _xs = xs.tl; - continue ; + continue; }; } @@ -1149,7 +1149,7 @@ function getAssoc(xs, x, eq) { function hasAssocU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -1157,7 +1157,7 @@ function hasAssocU(_xs, x, eq) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -1169,16 +1169,16 @@ function removeAssocU(xs, x, eq) { if (!xs) { return /* [] */0; } - var l = xs.tl; - var pair = xs.hd; + let l = xs.tl; + let pair = xs.hd; if (eq(pair[0], x)) { return l; } - var cell = { + let cell = { hd: pair, tl: /* [] */0 }; - var removed = removeAssocAuxWithMap(l, x, cell, eq); + let removed = removeAssocAuxWithMap(l, x, cell, eq); if (removed) { return cell; } else { @@ -1193,39 +1193,39 @@ function removeAssoc(xs, x, eq) { function setAssocU(xs, x, k, eq) { if (!xs) { return { - hd: [ - x, - k - ], - tl: /* [] */0 - }; + hd: [ + x, + k + ], + tl: /* [] */0 + }; } - var l = xs.tl; - var pair = xs.hd; + let l = xs.tl; + let pair = xs.hd; if (eq(pair[0], x)) { return { - hd: [ - x, - k - ], - tl: l - }; + hd: [ + x, + k + ], + tl: l + }; } - var cell = { + let cell = { hd: pair, tl: /* [] */0 }; - var replaced = setAssocAuxWithMap(l, x, k, cell, eq); + let replaced = setAssocAuxWithMap(l, x, k, cell, eq); if (replaced) { return cell; } else { return { - hd: [ - x, - k - ], - tl: xs - }; + hd: [ + x, + k + ], + tl: xs + }; } } @@ -1234,7 +1234,7 @@ function setAssoc(xs, x, k, eq) { } function sortU(xs, cmp) { - var arr = toArray(xs); + let arr = toArray(xs); Belt_SortArray.stableSortInPlaceByU(arr, cmp); return fromArray(arr); } @@ -1245,16 +1245,16 @@ function sort(xs, cmp) { function getByU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } - var x = xs.hd; + let x = xs.hd; if (p(x)) { return Caml_option.some(x); } _xs = xs.tl; - continue ; + continue; }; } @@ -1264,14 +1264,14 @@ function getBy(xs, p) { function keepU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var t = xs.tl; - var h = xs.hd; + let t = xs.tl; + let h = xs.hd; if (p(h)) { - var cell = { + let cell = { hd: h, tl: /* [] */0 }; @@ -1279,7 +1279,7 @@ function keepU(_xs, p) { return cell; } _xs = t; - continue ; + continue; }; } @@ -1288,18 +1288,18 @@ function keep(xs, p) { } function keepWithIndexU(xs, p) { - var _xs = xs; - var _i = 0; + let _xs = xs; + let _i = 0; while(true) { - var i = _i; - var xs$1 = _xs; + let i = _i; + let xs$1 = _xs; if (!xs$1) { return /* [] */0; } - var t = xs$1.tl; - var h = xs$1.hd; + let t = xs$1.tl; + let h = xs$1.hd; if (p(h, i)) { - var cell = { + let cell = { hd: h, tl: /* [] */0 }; @@ -1308,7 +1308,7 @@ function keepWithIndexU(xs, p) { } _i = i + 1 | 0; _xs = t; - continue ; + continue; }; } @@ -1318,14 +1318,14 @@ function keepWithIndex(xs, p) { function keepMapU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var t = xs.tl; - var h = p(xs.hd); + let t = xs.tl; + let h = p(xs.hd); if (h !== undefined) { - var cell = { + let cell = { hd: Caml_option.valFromOption(h), tl: /* [] */0 }; @@ -1333,7 +1333,7 @@ function keepMapU(_xs, p) { return cell; } _xs = t; - continue ; + continue; }; } @@ -1344,31 +1344,31 @@ function keepMap(xs, p) { function partitionU(l, p) { if (!l) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var h = l.hd; - var nextX = { + let h = l.hd; + let nextX = { hd: h, tl: /* [] */0 }; - var nextY = { + let nextY = { hd: h, tl: /* [] */0 }; - var b = p(h); + let b = p(h); partitionAux(p, l.tl, nextX, nextY); if (b) { return [ - nextX, - nextY.tl - ]; + nextX, + nextY.tl + ]; } else { return [ - nextX.tl, - nextY - ]; + nextX.tl, + nextY + ]; } } @@ -1379,24 +1379,24 @@ function partition(l, p) { function unzip(xs) { if (!xs) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = xs.hd; - var cellX = { + let match = xs.hd; + let cellX = { hd: match[0], tl: /* [] */0 }; - var cellY = { + let cellY = { hd: match[1], tl: /* [] */0 }; splitAux(xs.tl, cellX, cellY); return [ - cellX, - cellY - ]; + cellX, + cellY + ]; } function zip(l1, l2) { @@ -1406,7 +1406,7 @@ function zip(l1, l2) { if (!l2) { return /* [] */0; } - var cell = { + let cell = { hd: [ l1.hd, l2.hd @@ -1417,100 +1417,100 @@ function zip(l1, l2) { return cell; } -var size = length; +let size = length; -var filter = keep; +let filter = keep; -var filterWithIndex = keepWithIndex; +let filterWithIndex = keepWithIndex; export { - length , - size , - head , - headExn , - tail , - tailExn , - add , - get , - getExn , - make , - makeByU , - makeBy , - shuffle , - drop , - take , - splitAt , - concat , - concatMany , - reverseConcat , - flatten , - mapU , - map , - zip , - zipByU , - zipBy , - mapWithIndexU , - mapWithIndex , - fromArray , - toArray , - reverse , - mapReverseU , - mapReverse , - forEachU , - forEach , - forEachWithIndexU , - forEachWithIndex , - reduceU , - reduce , - reduceWithIndexU , - reduceWithIndex , - reduceReverseU , - reduceReverse , - mapReverse2U , - mapReverse2 , - forEach2U , - forEach2 , - reduce2U , - reduce2 , - reduceReverse2U , - reduceReverse2 , - everyU , - every , - someU , - some , - every2U , - every2 , - some2U , - some2 , - cmpByLength , - cmpU , - cmp , - eqU , - eq , - hasU , - has , - getByU , - getBy , - keepU , - keep , - filter , - keepWithIndexU , - keepWithIndex , - filterWithIndex , - keepMapU , - keepMap , - partitionU , - partition , - unzip , - getAssocU , - getAssoc , - hasAssocU , - hasAssoc , - removeAssocU , - removeAssoc , - setAssocU , - setAssoc , - sortU , - sort , + length, + size, + head, + headExn, + tail, + tailExn, + add, + get, + getExn, + make, + makeByU, + makeBy, + shuffle, + drop, + take, + splitAt, + concat, + concatMany, + reverseConcat, + flatten, + mapU, + map, + zip, + zipByU, + zipBy, + mapWithIndexU, + mapWithIndex, + fromArray, + toArray, + reverse, + mapReverseU, + mapReverse, + forEachU, + forEach, + forEachWithIndexU, + forEachWithIndex, + reduceU, + reduce, + reduceWithIndexU, + reduceWithIndex, + reduceReverseU, + reduceReverse, + mapReverse2U, + mapReverse2, + forEach2U, + forEach2, + reduce2U, + reduce2, + reduceReverse2U, + reduceReverse2, + everyU, + every, + someU, + some, + every2U, + every2, + some2U, + some2, + cmpByLength, + cmpU, + cmp, + eqU, + eq, + hasU, + has, + getByU, + getBy, + keepU, + keep, + filter, + keepWithIndexU, + keepWithIndex, + filterWithIndex, + keepMapU, + keepMap, + partitionU, + partition, + unzip, + getAssocU, + getAssoc, + hasAssocU, + hasAssoc, + removeAssocU, + removeAssoc, + setAssocU, + setAssoc, + sortU, + sort, } /* No side effect */ diff --git a/lib/es6/belt_MutableQueue.js b/lib/es6/belt_MutableQueue.js index 805a77c683..fc8edbfafb 100644 --- a/lib/es6/belt_MutableQueue.js +++ b/lib/es6/belt_MutableQueue.js @@ -5,10 +5,10 @@ import * as Caml_option from "./caml_option.js"; function make(param) { return { - length: 0, - first: undefined, - last: undefined - }; + length: 0, + first: undefined, + last: undefined + }; } function clear(q) { @@ -18,11 +18,11 @@ function clear(q) { } function add(q, x) { - var cell = { + let cell = { content: x, next: undefined }; - var last = q.last; + let last = q.last; if (last !== undefined) { q.length = q.length + 1 | 0; last.next = cell; @@ -35,7 +35,7 @@ function add(q, x) { } function peek(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return Caml_option.some(v.content); } @@ -43,7 +43,7 @@ function peek(q) { } function peekUndefined(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return v.content; } @@ -51,23 +51,23 @@ function peekUndefined(q) { } function peekExn(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return v.content; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function pop(q) { - var x = q.first; + let x = q.first; if (x === undefined) { - return ; + return; } - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return Caml_option.some(x.content); @@ -79,9 +79,9 @@ function pop(q) { } function popExn(q) { - var x = q.first; + let x = q.first; if (x !== undefined) { - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return x.content; @@ -92,18 +92,18 @@ function popExn(q) { } } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function popUndefined(q) { - var x = q.first; + let x = q.first; if (x === undefined) { - return ; + return; } - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return x.content; @@ -115,19 +115,19 @@ function popUndefined(q) { } function copy(q) { - var qRes = { + let qRes = { length: q.length, first: undefined, last: undefined }; - var _prev; - var _cell = q.first; + let _prev; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (cell !== undefined) { - var content = cell.content; - var res = { + let content = cell.content; + let res = { content: content, next: undefined }; @@ -138,7 +138,7 @@ function copy(q) { } _cell = cell.next; _prev = res; - continue ; + continue; } qRes.last = prev; return qRes; @@ -146,19 +146,19 @@ function copy(q) { } function mapU(q, f) { - var qRes = { + let qRes = { length: q.length, first: undefined, last: undefined }; - var _prev; - var _cell = q.first; + let _prev; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (cell !== undefined) { - var content = f(cell.content); - var res = { + let content = f(cell.content); + let res = { content: content, next: undefined }; @@ -169,7 +169,7 @@ function mapU(q, f) { } _cell = cell.next; _prev = res; - continue ; + continue; } qRes.last = prev; return qRes; @@ -189,15 +189,15 @@ function size(q) { } function forEachU(q, f) { - var _cell = q.first; + let _cell = q.first; while(true) { - var cell = _cell; + let cell = _cell; if (cell === undefined) { - return ; + return; } f(cell.content); _cell = cell.next; - continue ; + continue; }; } @@ -206,18 +206,18 @@ function forEach(q, f) { } function reduceU(q, accu, f) { - var _accu = accu; - var _cell = q.first; + let _accu = accu; + let _cell = q.first; while(true) { - var cell = _cell; - var accu$1 = _accu; + let cell = _cell; + let accu$1 = _accu; if (cell === undefined) { return accu$1; } - var accu$2 = f(accu$1, cell.content); + let accu$2 = f(accu$1, cell.content); _cell = cell.next; _accu = accu$2; - continue ; + continue; }; } @@ -227,9 +227,9 @@ function reduce(q, accu, f) { function transfer(q1, q2) { if (q1.length <= 0) { - return ; + return; } - var l = q2.last; + let l = q2.last; if (l !== undefined) { q2.length = q2.length + q1.length | 0; l.next = q1.first; @@ -245,57 +245,57 @@ function transfer(q1, q2) { function fillAux(_i, arr, _cell) { while(true) { - var cell = _cell; - var i = _i; + let cell = _cell; + let i = _i; if (cell === undefined) { - return ; + return; } arr[i] = cell.content; _cell = cell.next; _i = i + 1 | 0; - continue ; + continue; }; } function toArray(x) { - var v = new Array(x.length); + let v = new Array(x.length); fillAux(0, v, x.first); return v; } function fromArray(arr) { - var q = { + let q = { length: 0, first: undefined, last: undefined }; - for(var i = 0 ,i_finish = arr.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = arr.length; i < i_finish; ++i){ add(q, arr[i]); } return q; } export { - make , - clear , - isEmpty , - fromArray , - add , - peek , - peekUndefined , - peekExn , - pop , - popUndefined , - popExn , - copy , - size , - mapU , - map , - forEachU , - forEach , - reduceU , - reduce , - transfer , - toArray , + make, + clear, + isEmpty, + fromArray, + add, + peek, + peekUndefined, + peekExn, + pop, + popUndefined, + popExn, + copy, + size, + mapU, + map, + forEachU, + forEach, + reduceU, + reduce, + transfer, + toArray, } /* No side effect */ diff --git a/lib/es6/belt_Option.js b/lib/es6/belt_Option.js index 77eafc60ba..906493c689 100644 --- a/lib/es6/belt_Option.js +++ b/lib/es6/belt_Option.js @@ -30,10 +30,10 @@ function getExn(x) { return Caml_option.valFromOption(x); } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { @@ -129,24 +129,24 @@ function cmp(a, b, f) { } export { - keepU , - keep , - forEachU , - forEach , - getExn , - mapWithDefaultU , - mapWithDefault , - mapU , - map , - flatMapU , - flatMap , - getWithDefault , - orElse , - isSome , - isNone , - eqU , - eq , - cmpU , - cmp , + keepU, + keep, + forEachU, + forEach, + getExn, + mapWithDefaultU, + mapWithDefault, + mapU, + map, + flatMapU, + flatMap, + getWithDefault, + orElse, + isSome, + isNone, + eqU, + eq, + cmpU, + cmp, } /* No side effect */ diff --git a/lib/es6/belt_Result.js b/lib/es6/belt_Result.js index 907f7c26ce..cbc8be85dd 100644 --- a/lib/es6/belt_Result.js +++ b/lib/es6/belt_Result.js @@ -7,10 +7,10 @@ function getExn(x) { return x._0; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { @@ -28,14 +28,14 @@ function mapWithDefault(opt, $$default, f) { function mapU(opt, f) { if (opt.TAG === "Ok") { return { - TAG: "Ok", - _0: f(opt._0) - }; + TAG: "Ok", + _0: f(opt._0) + }; } else { return { - TAG: "Error", - _0: opt._0 - }; + TAG: "Error", + _0: opt._0 + }; } } @@ -48,9 +48,9 @@ function flatMapU(opt, f) { return f(opt._0); } else { return { - TAG: "Error", - _0: opt._0 - }; + TAG: "Error", + _0: opt._0 + }; } } @@ -119,19 +119,19 @@ function cmp(a, b, f) { } export { - getExn , - mapWithDefaultU , - mapWithDefault , - mapU , - map , - flatMapU , - flatMap , - getWithDefault , - isOk , - isError , - eqU , - eq , - cmpU , - cmp , + getExn, + mapWithDefaultU, + mapWithDefault, + mapU, + map, + flatMapU, + flatMap, + getWithDefault, + isOk, + isError, + eqU, + eq, + cmpU, + cmp, } /* No side effect */ diff --git a/lib/es6/belt_internalAVLset.js b/lib/es6/belt_internalAVLset.js index 7dc0735f75..809d4269a0 100644 --- a/lib/es6/belt_internalAVLset.js +++ b/lib/es6/belt_internalAVLset.js @@ -7,36 +7,36 @@ import * as Belt_SortArray from "./belt_SortArray.js"; function copy(n) { if (n !== undefined) { return { - v: n.v, - h: n.h, - l: copy(n.l), - r: copy(n.r) - }; + v: n.v, + h: n.h, + l: copy(n.l), + r: copy(n.r) + }; } else { return n; } } function create(l, v, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; return { - v: v, - h: ( - hl >= hr ? hl : hr - ) + 1 | 0, - l: l, - r: r - }; + v: v, + h: ( + hl >= hr ? hl : hr + ) + 1 | 0, + l: l, + r: r + }; } function singleton(x) { return { - v: x, - h: 1, - l: undefined, - r: undefined - }; + v: x, + h: 1, + l: undefined, + r: undefined + }; } function heightGe(l, r) { @@ -52,11 +52,11 @@ function heightGe(l, r) { } function bal(l, v, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (hr + 2 | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return create(ll, l.v, create(lr, v, r)); } else { @@ -65,16 +65,16 @@ function bal(l, v, r) { } if (hr <= (hl + 2 | 0)) { return { - v: v, - h: ( - hl >= hr ? hl : hr - ) + 1 | 0, - l: l, - r: r - }; - } - var rl = r.l; - var rr = r.r; + v: v, + h: ( + hl >= hr ? hl : hr + ) + 1 | 0, + l: l, + r: r + }; + } + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return create(create(l, v, rl), r.v, rr); } else { @@ -84,13 +84,13 @@ function bal(l, v, r) { function min0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return n.v; } _n = n$1; - continue ; + continue; }; } @@ -110,13 +110,13 @@ function minUndefined(n) { function max0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return n.v; } _n = n$1; - continue ; + continue; }; } @@ -135,7 +135,7 @@ function maxUndefined(n) { } function removeMinAuxWithRef(n, v) { - var ln = n.l; + let ln = n.l; if (ln !== undefined) { return bal(removeMinAuxWithRef(ln, v), n.v, n.r); } else { @@ -150,8 +150,8 @@ function isEmpty(n) { function stackAllLeft(_v, _s) { while(true) { - var s = _s; - var v = _v; + let s = _s; + let v = _v; if (v === undefined) { return s; } @@ -160,20 +160,20 @@ function stackAllLeft(_v, _s) { tl: s }; _v = v.l; - continue ; + continue; }; } function forEachU(_n, f) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } forEachU(n.l, f); f(n.v); _n = n.r; - continue ; + continue; }; } @@ -183,14 +183,14 @@ function forEach(n, f) { function reduceU(_s, _accu, f) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (s === undefined) { return accu; } _accu = f(reduceU(s.l, accu, f), s.v); _s = s.r; - continue ; + continue; }; } @@ -200,7 +200,7 @@ function reduce(s, accu, f) { function everyU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return true; } @@ -211,7 +211,7 @@ function everyU(_n, p) { return false; } _n = n.r; - continue ; + continue; }; } @@ -221,7 +221,7 @@ function every(n, p) { function someU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } @@ -232,7 +232,7 @@ function someU(_n, p) { return true; } _n = n.r; - continue ; + continue; }; } @@ -263,8 +263,8 @@ function joinShared(ln, v, rn) { if (rn === undefined) { return addMaxElement(ln, v); } - var lh = ln.h; - var rh = rn.h; + let lh = ln.h; + let rh = rn.h; if (lh > (rh + 2 | 0)) { return bal(ln.l, ln.v, joinShared(ln.r, v, rn)); } else if (rh > (lh + 2 | 0)) { @@ -281,38 +281,38 @@ function concatShared(t1, t2) { if (t2 === undefined) { return t1; } - var v = { + let v = { contents: t2.v }; - var t2r = removeMinAuxWithRef(t2, v); + let t2r = removeMinAuxWithRef(t2, v); return joinShared(t1, v.contents, t2r); } function partitionSharedU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; - } - var value = n.v; - var match = partitionSharedU(n.l, p); - var lf = match[1]; - var lt = match[0]; - var pv = p(value); - var match$1 = partitionSharedU(n.r, p); - var rf = match$1[1]; - var rt = match$1[0]; + undefined, + undefined + ]; + } + let value = n.v; + let match = partitionSharedU(n.l, p); + let lf = match[1]; + let lt = match[0]; + let pv = p(value); + let match$1 = partitionSharedU(n.r, p); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - joinShared(lt, value, rt), - concatShared(lf, rf) - ]; + joinShared(lt, value, rt), + concatShared(lf, rf) + ]; } else { return [ - concatShared(lt, rt), - joinShared(lf, value, rf) - ]; + concatShared(lt, rt), + joinShared(lf, value, rf) + ]; } } @@ -321,10 +321,10 @@ function partitionShared(n, p) { } function lengthNode(n) { - var l = n.l; - var r = n.r; - var sizeL = l !== undefined ? lengthNode(l) : 0; - var sizeR = r !== undefined ? lengthNode(r) : 0; + let l = n.l; + let r = n.r; + let sizeL = l !== undefined ? lengthNode(l) : 0; + let sizeR = r !== undefined ? lengthNode(r) : 0; return (1 + sizeL | 0) + sizeR | 0; } @@ -338,8 +338,8 @@ function size(n) { function toListAux(_n, _accu) { while(true) { - var accu = _accu; - var n = _n; + let accu = _accu; + let n = _n; if (n === undefined) { return accu; } @@ -348,7 +348,7 @@ function toListAux(_n, _accu) { tl: toListAux(n.r, accu) }; _n = n.l; - continue ; + continue; }; } @@ -358,95 +358,95 @@ function toList(s) { function checkInvariantInternal(_v) { while(true) { - var v = _v; + let v = _v; if (v === undefined) { - return ; + return; } - var l = v.l; - var r = v.r; - var diff = ( + let l = v.l; + let r = v.r; + let diff = ( l !== undefined ? l.h : 0 ) - ( r !== undefined ? r.h : 0 ) | 0; if (!(diff <= 2 && diff >= -2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLset.res", - 319, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLset.res", + 319, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; - continue ; + continue; }; } function fillArray(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArray(l, i, arr) : i; + let i = _i; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArray(l, i, arr) : i; arr[next] = v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArrayWithPartition(_n, cursor, arr, p) { while(true) { - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; if (l !== undefined) { fillArrayWithPartition(l, cursor, arr, p); } if (p(v)) { - var c = cursor.forward; + let c = cursor.forward; arr[c] = v; cursor.forward = c + 1 | 0; } else { - var c$1 = cursor.backward; + let c$1 = cursor.backward; arr[c$1] = v; cursor.backward = c$1 - 1 | 0; } if (r === undefined) { - return ; + return; } _n = r; - continue ; + continue; }; } function fillArrayWithFilter(_n, _i, arr, p) { while(true) { - var i = _i; - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayWithFilter(l, i, arr, p) : i; - var rnext = p(v) ? (arr[next] = v, next + 1 | 0) : next; + let i = _i; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayWithFilter(l, i, arr, p) : i; + let rnext = p(v) ? (arr[next] = v, next + 1 | 0) : next; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } @@ -454,8 +454,8 @@ function toArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArray(n, 0, v); return v; } @@ -463,33 +463,33 @@ function toArray(n) { function fromSortedArrayRevAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : return singleton(arr[off]); case 2 : - var x0 = arr[off]; - var x1 = arr[off - 1 | 0]; + let x0 = arr[off]; + let x1 = arr[off - 1 | 0]; return { - v: x1, - h: 2, - l: singleton(x0), - r: undefined - }; + v: x1, + h: 2, + l: singleton(x0), + r: undefined + }; case 3 : - var x0$1 = arr[off]; - var x1$1 = arr[off - 1 | 0]; - var x2 = arr[off - 2 | 0]; + let x0$1 = arr[off]; + let x1$1 = arr[off - 1 | 0]; + let x2 = arr[off - 2 | 0]; return { - v: x1$1, - h: 2, - l: singleton(x0$1), - r: singleton(x2) - }; + v: x1$1, + h: 2, + l: singleton(x0$1), + r: singleton(x2) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayRevAux(arr, off, nl); - var mid = arr[off - nl | 0]; - var right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayRevAux(arr, off, nl); + let mid = arr[off - nl | 0]; + let right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); return create(left, mid, right); } } @@ -497,33 +497,33 @@ function fromSortedArrayRevAux(arr, off, len) { function fromSortedArrayAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : return singleton(arr[off]); case 2 : - var x0 = arr[off]; - var x1 = arr[off + 1 | 0]; + let x0 = arr[off]; + let x1 = arr[off + 1 | 0]; return { - v: x1, - h: 2, - l: singleton(x0), - r: undefined - }; + v: x1, + h: 2, + l: singleton(x0), + r: undefined + }; case 3 : - var x0$1 = arr[off]; - var x1$1 = arr[off + 1 | 0]; - var x2 = arr[off + 2 | 0]; + let x0$1 = arr[off]; + let x1$1 = arr[off + 1 | 0]; + let x2 = arr[off + 2 | 0]; return { - v: x1$1, - h: 2, - l: singleton(x0$1), - r: singleton(x2) - }; + v: x1$1, + h: 2, + l: singleton(x0$1), + r: singleton(x2) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayAux(arr, off, nl); - var mid = arr[off + nl | 0]; - var right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayAux(arr, off, nl); + let mid = arr[off + nl | 0]; + let right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); return create(left, mid, right); } } @@ -534,14 +534,14 @@ function fromSortedArrayUnsafe(arr) { function keepSharedU(n, p) { if (n === undefined) { - return ; - } - var v = n.v; - var l = n.l; - var r = n.r; - var newL = keepSharedU(l, p); - var pv = p(v); - var newR = keepSharedU(r, p); + return; + } + let v = n.v; + let l = n.l; + let r = n.r; + let newL = keepSharedU(l, p); + let pv = p(v); + let newR = keepSharedU(r, p); if (pv) { if (l === newL && r === newR) { return n; @@ -559,11 +559,11 @@ function keepShared(n, p) { function keepCopyU(n, p) { if (n === undefined) { - return ; + return; } - var size = lengthNode(n); - var v = new Array(size); - var last = fillArrayWithFilter(n, 0, v, p); + let size = lengthNode(n); + let v = new Array(size); + let last = fillArrayWithFilter(n, 0, v, p); return fromSortedArrayAux(v, 0, last); } @@ -574,23 +574,23 @@ function keepCopy(n, p) { function partitionCopyU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; - } - var size = lengthNode(n); - var v = new Array(size); - var backward = size - 1 | 0; - var cursor = { + undefined, + undefined + ]; + } + let size = lengthNode(n); + let v = new Array(size); + let backward = size - 1 | 0; + let cursor = { forward: 0, backward: backward }; fillArrayWithPartition(n, cursor, v, p); - var forwardLen = cursor.forward; + let forwardLen = cursor.forward; return [ - fromSortedArrayAux(v, 0, forwardLen), - fromSortedArrayRevAux(v, backward, size - forwardLen | 0) - ]; + fromSortedArrayAux(v, 0, forwardLen), + fromSortedArrayRevAux(v, backward, size - forwardLen | 0) + ]; } function partitionCopy(n, p) { @@ -599,44 +599,44 @@ function partitionCopy(n, p) { function has(_t, x, cmp) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; - var c = cmp(x, v); + let v = t.v; + let c = cmp(x, v); if (c === 0) { return true; } _t = c < 0 ? t.l : t.r; - continue ; + continue; }; } function cmp(s1, s2, cmp$1) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = cmp$1(h1.v, h2.v); + let h2 = e2.hd; + let h1 = e1.hd; + let c = cmp$1(h1.v, h2.v); if (c !== 0) { return c; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else if (len1 < len2) { return -1; @@ -651,110 +651,110 @@ function eq(s1, s2, c) { function subset(_s1, _s2, cmp) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var c = cmp(v1, v2); + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let c = cmp(v1, v2); if (c === 0) { if (!subset(l1, l2, cmp)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset(create(l1, v1, undefined), l2, cmp)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(create(undefined, v1, r1), r2, cmp)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return Caml_option.some(v); } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function rotateWithLeftChild(k2) { - var k1 = k2.l; + let k1 = k2.l; k2.l = k1.r; k1.r = k2; - var n = k2.l; - var hlk2 = n !== undefined ? n.h : 0; - var n$1 = k2.r; - var hrk2 = n$1 !== undefined ? n$1.h : 0; + let n = k2.l; + let hlk2 = n !== undefined ? n.h : 0; + let n$1 = k2.r; + let hrk2 = n$1 !== undefined ? n$1.h : 0; k2.h = ( hlk2 > hrk2 ? hlk2 : hrk2 ) + 1 | 0; - var n$2 = k1.l; - var hlk1 = n$2 !== undefined ? n$2.h : 0; - var hk2 = k2.h; + let n$2 = k1.l; + let hlk1 = n$2 !== undefined ? n$2.h : 0; + let hk2 = k2.h; k1.h = ( hlk1 > hk2 ? hlk1 : hk2 ) + 1 | 0; @@ -762,19 +762,19 @@ function rotateWithLeftChild(k2) { } function rotateWithRightChild(k1) { - var k2 = k1.r; + let k2 = k1.r; k1.r = k2.l; k2.l = k1; - var n = k1.l; - var hlk1 = n !== undefined ? n.h : 0; - var n$1 = k1.r; - var hrk1 = n$1 !== undefined ? n$1.h : 0; + let n = k1.l; + let hlk1 = n !== undefined ? n.h : 0; + let n$1 = k1.r; + let hrk1 = n$1 !== undefined ? n$1.h : 0; k1.h = ( hlk1 > hrk1 ? hlk1 : hrk1 ) + 1 | 0; - var n$2 = k2.r; - var hrk2 = n$2 !== undefined ? n$2.h : 0; - var hk1 = k1.h; + let n$2 = k2.r; + let hrk2 = n$2 !== undefined ? n$2.h : 0; + let hk1 = k1.h; k2.h = ( hrk2 > hk1 ? hrk2 : hk1 ) + 1 | 0; @@ -782,24 +782,24 @@ function rotateWithRightChild(k1) { } function doubleWithLeftChild(k3) { - var k3l = k3.l; - var v = rotateWithRightChild(k3l); + let k3l = k3.l; + let v = rotateWithRightChild(k3l); k3.l = v; return rotateWithLeftChild(k3); } function doubleWithRightChild(k2) { - var k2r = k2.r; - var v = rotateWithLeftChild(k2r); + let k2r = k2.r; + let v = rotateWithLeftChild(k2r); k2.r = v; return rotateWithRightChild(k2); } function heightUpdateMutate(t) { - var n = t.l; - var hlt = n !== undefined ? n.h : 0; - var n$1 = t.r; - var hrt = n$1 !== undefined ? n$1.h : 0; + let n = t.l; + let hlt = n !== undefined ? n.h : 0; + let n$1 = t.r; + let hrt = n$1 !== undefined ? n$1.h : 0; t.h = ( hlt > hrt ? hlt : hrt ) + 1 | 0; @@ -807,13 +807,13 @@ function heightUpdateMutate(t) { } function balMutate(nt) { - var l = nt.l; - var r = nt.r; - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let l = nt.l; + let r = nt.r; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (2 + hr | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return heightUpdateMutate(rotateWithLeftChild(nt)); } else { @@ -821,8 +821,8 @@ function balMutate(nt) { } } if (hr > (2 + hl | 0)) { - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return heightUpdateMutate(rotateWithRightChild(nt)); } else { @@ -839,15 +839,15 @@ function addMutate(cmp, t, x) { if (t === undefined) { return singleton(x); } - var k = t.v; - var c = cmp(x, k); + let k = t.v; + let c = cmp(x, k); if (c === 0) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (c < 0) { - var ll = addMutate(cmp, l, x); + let ll = addMutate(cmp, l, x); t.l = ll; } else { t.r = addMutate(cmp, r, x); @@ -856,29 +856,29 @@ function addMutate(cmp, t, x) { } function fromArray(xs, cmp) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (x, y) { - return cmp(x, y) < 0; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (x, y) { + return cmp(x, y) < 0; + })); + let result; if (next >= 0) { result = fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(cmp, result, xs[i]); } return result; } function removeMinAuxWithRootMutate(nt, n) { - var ln = n.l; - var rn = n.r; + let ln = n.l; + let rn = n.r; if (ln !== undefined) { n.l = removeMinAuxWithRootMutate(nt, ln); return balMutate(n); @@ -889,54 +889,54 @@ function removeMinAuxWithRootMutate(nt, n) { } export { - copy , - create , - bal , - singleton , - minimum , - minUndefined , - maximum , - maxUndefined , - removeMinAuxWithRef , - isEmpty , - stackAllLeft , - forEachU , - forEach , - reduceU , - reduce , - everyU , - every , - someU , - some , - joinShared , - concatShared , - keepSharedU , - keepShared , - keepCopyU , - keepCopy , - partitionSharedU , - partitionShared , - partitionCopyU , - partitionCopy , - lengthNode , - size , - toList , - checkInvariantInternal , - fillArray , - toArray , - fromSortedArrayAux , - fromSortedArrayRevAux , - fromSortedArrayUnsafe , - has , - cmp , - eq , - subset , - get , - getUndefined , - getExn , - fromArray , - addMutate , - balMutate , - removeMinAuxWithRootMutate , + copy, + create, + bal, + singleton, + minimum, + minUndefined, + maximum, + maxUndefined, + removeMinAuxWithRef, + isEmpty, + stackAllLeft, + forEachU, + forEach, + reduceU, + reduce, + everyU, + every, + someU, + some, + joinShared, + concatShared, + keepSharedU, + keepShared, + keepCopyU, + keepCopy, + partitionSharedU, + partitionShared, + partitionCopyU, + partitionCopy, + lengthNode, + size, + toList, + checkInvariantInternal, + fillArray, + toArray, + fromSortedArrayAux, + fromSortedArrayRevAux, + fromSortedArrayUnsafe, + has, + cmp, + eq, + subset, + get, + getUndefined, + getExn, + fromArray, + addMutate, + balMutate, + removeMinAuxWithRootMutate, } /* No side effect */ diff --git a/lib/es6/belt_internalAVLtree.js b/lib/es6/belt_internalAVLtree.js index 6d8a3c0f01..b9820a6952 100644 --- a/lib/es6/belt_internalAVLtree.js +++ b/lib/es6/belt_internalAVLtree.js @@ -15,37 +15,37 @@ function treeHeight(n) { function copy(n) { if (n !== undefined) { return { - k: n.k, - v: n.v, - h: n.h, - l: copy(n.l), - r: copy(n.r) - }; + k: n.k, + v: n.v, + h: n.h, + l: copy(n.l), + r: copy(n.r) + }; } else { return n; } } function create(l, x, d, r) { - var hl = treeHeight(l); - var hr = treeHeight(r); + let hl = treeHeight(l); + let hr = treeHeight(r); return { - k: x, - v: d, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, - l: l, - r: r - }; + k: x, + v: d, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, + l: l, + r: r + }; } function singleton(x, d) { return { - k: x, - v: d, - h: 1, - l: undefined, - r: undefined - }; + k: x, + v: d, + h: 1, + l: undefined, + r: undefined + }; } function heightGe(l, r) { @@ -65,21 +65,21 @@ function updateValue(n, newValue) { return n; } else { return { - k: n.k, - v: newValue, - h: n.h, - l: n.l, - r: n.r - }; + k: n.k, + v: newValue, + h: n.h, + l: n.l, + r: n.r + }; } } function bal(l, x, d, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (hr + 2 | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (treeHeight(ll) >= treeHeight(lr)) { return create(ll, l.k, l.v, create(lr, x, d, r)); } else { @@ -88,15 +88,15 @@ function bal(l, x, d, r) { } if (hr <= (hl + 2 | 0)) { return { - k: x, - v: d, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, - l: l, - r: r - }; + k: x, + v: d, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, + l: l, + r: r + }; } - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (treeHeight(rr) >= treeHeight(rl)) { return create(create(l, x, d, rl), r.k, r.v, rr); } else { @@ -106,13 +106,13 @@ function bal(l, x, d, r) { function minKey0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return n.k; } _n = n$1; - continue ; + continue; }; } @@ -132,13 +132,13 @@ function minKeyUndefined(n) { function maxKey0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return n.k; } _n = n$1; - continue ; + continue; }; } @@ -158,16 +158,16 @@ function maxKeyUndefined(n) { function minKV0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return [ - n.k, - n.v - ]; + n.k, + n.v + ]; } _n = n$1; - continue ; + continue; }; } @@ -187,16 +187,16 @@ function minUndefined(n) { function maxKV0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return [ - n.k, - n.v - ]; + n.k, + n.v + ]; } _n = n$1; - continue ; + continue; }; } @@ -215,7 +215,7 @@ function maxUndefined(n) { } function removeMinAuxWithRef(n, kr, vr) { - var ln = n.l; + let ln = n.l; if (ln !== undefined) { return bal(removeMinAuxWithRef(ln, kr, vr), n.k, n.v, n.r); } else { @@ -231,8 +231,8 @@ function isEmpty(x) { function stackAllLeft(_v, _s) { while(true) { - var s = _s; - var v = _v; + let s = _s; + let v = _v; if (v === undefined) { return s; } @@ -241,28 +241,28 @@ function stackAllLeft(_v, _s) { tl: s }; _v = v.l; - continue ; + continue; }; } function findFirstByU(n, p) { if (n === undefined) { - return ; + return; } - var left = findFirstByU(n.l, p); + let left = findFirstByU(n.l, p); if (left !== undefined) { return left; } - var v = n.k; - var d = n.v; - var pvd = p(v, d); + let v = n.k; + let d = n.v; + let pvd = p(v, d); if (pvd) { return [ - v, - d - ]; + v, + d + ]; } - var right = findFirstByU(n.r, p); + let right = findFirstByU(n.r, p); if (right !== undefined) { return right; } @@ -275,14 +275,14 @@ function findFirstBy(n, p) { function forEachU(_n, f) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } forEachU(n.l, f); f(n.k, n.v); _n = n.r; - continue ; + continue; }; } @@ -292,18 +292,18 @@ function forEach(n, f) { function mapU(n, f) { if (n === undefined) { - return ; + return; } - var newLeft = mapU(n.l, f); - var newD = f(n.v); - var newRight = mapU(n.r, f); + let newLeft = mapU(n.l, f); + let newD = f(n.v); + let newRight = mapU(n.r, f); return { - k: n.k, - v: newD, - h: n.h, - l: newLeft, - r: newRight - }; + k: n.k, + v: newD, + h: n.h, + l: newLeft, + r: newRight + }; } function map(n, f) { @@ -312,19 +312,19 @@ function map(n, f) { function mapWithKeyU(n, f) { if (n === undefined) { - return ; + return; } - var key = n.k; - var newLeft = mapWithKeyU(n.l, f); - var newD = f(key, n.v); - var newRight = mapWithKeyU(n.r, f); + let key = n.k; + let newLeft = mapWithKeyU(n.l, f); + let newD = f(key, n.v); + let newRight = mapWithKeyU(n.r, f); return { - k: key, - v: newD, - h: n.h, - l: newLeft, - r: newRight - }; + k: key, + v: newD, + h: n.h, + l: newLeft, + r: newRight + }; } function mapWithKey(n, f) { @@ -333,18 +333,18 @@ function mapWithKey(n, f) { function reduceU(_m, _accu, f) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (m === undefined) { return accu; } - var v = m.k; - var d = m.v; - var l = m.l; - var r = m.r; + let v = m.k; + let d = m.v; + let l = m.l; + let r = m.r; _accu = f(reduceU(l, accu, f), v, d); _m = r; - continue ; + continue; }; } @@ -354,7 +354,7 @@ function reduce(m, accu, f) { function everyU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return true; } @@ -365,7 +365,7 @@ function everyU(_n, p) { return false; } _n = n.r; - continue ; + continue; }; } @@ -375,7 +375,7 @@ function every(n, p) { function someU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } @@ -386,7 +386,7 @@ function someU(_n, p) { return true; } _n = n.r; - continue ; + continue; }; } @@ -417,16 +417,16 @@ function join(ln, v, d, rn) { if (rn === undefined) { return addMaxElement(ln, v, d); } - var lv = ln.k; - var ld = ln.v; - var lh = ln.h; - var ll = ln.l; - var lr = ln.r; - var rv = rn.k; - var rd = rn.v; - var rh = rn.h; - var rl = rn.l; - var rr = rn.r; + let lv = ln.k; + let ld = ln.v; + let lh = ln.h; + let ll = ln.l; + let lr = ln.r; + let rv = rn.k; + let rd = rn.v; + let rh = rn.h; + let rl = rn.l; + let rr = rn.r; if (lh > (rh + 2 | 0)) { return bal(ll, lv, ld, join(lr, v, d, rn)); } else if (rh > (lh + 2 | 0)) { @@ -443,13 +443,13 @@ function concat(t1, t2) { if (t2 === undefined) { return t1; } - var kr = { + let kr = { contents: t2.k }; - var vr = { + let vr = { contents: t2.v }; - var t2r = removeMinAuxWithRef(t2, kr, vr); + let t2r = removeMinAuxWithRef(t2, kr, vr); return join(t1, kr.contents, vr.contents, t2r); } @@ -463,13 +463,13 @@ function concatOrJoin(t1, v, d, t2) { function keepSharedU(n, p) { if (n === undefined) { - return ; + return; } - var v = n.k; - var d = n.v; - var newLeft = keepSharedU(n.l, p); - var pvd = p(v, d); - var newRight = keepSharedU(n.r, p); + let v = n.k; + let d = n.v; + let newLeft = keepSharedU(n.l, p); + let pvd = p(v, d); + let newRight = keepSharedU(n.r, p); if (pvd) { return join(newLeft, v, d, newRight); } else { @@ -483,13 +483,13 @@ function keepShared(n, p) { function keepMapU(n, p) { if (n === undefined) { - return ; + return; } - var v = n.k; - var d = n.v; - var newLeft = keepMapU(n.l, p); - var pvd = p(v, d); - var newRight = keepMapU(n.r, p); + let v = n.k; + let d = n.v; + let newLeft = keepMapU(n.l, p); + let pvd = p(v, d); + let newRight = keepMapU(n.r, p); if (pvd !== undefined) { return join(newLeft, v, Caml_option.valFromOption(pvd), newRight); } else { @@ -504,29 +504,29 @@ function keepMap(n, p) { function partitionSharedU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } - var key = n.k; - var value = n.v; - var match = partitionSharedU(n.l, p); - var lf = match[1]; - var lt = match[0]; - var pvd = p(key, value); - var match$1 = partitionSharedU(n.r, p); - var rf = match$1[1]; - var rt = match$1[0]; + let key = n.k; + let value = n.v; + let match = partitionSharedU(n.l, p); + let lf = match[1]; + let lt = match[0]; + let pvd = p(key, value); + let match$1 = partitionSharedU(n.r, p); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, key, value, rt), - concat(lf, rf) - ]; + join(lt, key, value, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, key, value, rf) - ]; + concat(lt, rt), + join(lf, key, value, rf) + ]; } } @@ -535,10 +535,10 @@ function partitionShared(n, p) { } function lengthNode(n) { - var l = n.l; - var r = n.r; - var sizeL = l !== undefined ? lengthNode(l) : 0; - var sizeR = r !== undefined ? lengthNode(r) : 0; + let l = n.l; + let r = n.r; + let sizeL = l !== undefined ? lengthNode(l) : 0; + let sizeR = r !== undefined ? lengthNode(r) : 0; return (1 + sizeL | 0) + sizeR | 0; } @@ -552,15 +552,15 @@ function size(n) { function toListAux(_n, _accu) { while(true) { - var accu = _accu; - var n = _n; + let accu = _accu; + let n = _n; if (n === undefined) { return accu; } - var k = n.k; - var v = n.v; - var l = n.l; - var r = n.r; + let k = n.k; + let v = n.v; + let l = n.l; + let r = n.r; _accu = { hd: [ k, @@ -569,7 +569,7 @@ function toListAux(_n, _accu) { tl: toListAux(r, accu) }; _n = l; - continue ; + continue; }; } @@ -579,87 +579,87 @@ function toList(s) { function checkInvariantInternal(_v) { while(true) { - var v = _v; + let v = _v; if (v === undefined) { - return ; + return; } - var l = v.l; - var r = v.r; - var diff = treeHeight(l) - treeHeight(r) | 0; + let l = v.l; + let r = v.r; + let diff = treeHeight(l) - treeHeight(r) | 0; if (!(diff <= 2 && diff >= -2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLtree.res", - 457, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLtree.res", + 457, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; - continue ; + continue; }; } function fillArrayKey(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var v = n.k; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayKey(l, i, arr) : i; + let i = _i; + let n = _n; + let v = n.k; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayKey(l, i, arr) : i; arr[next] = v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArrayValue(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayValue(l, i, arr) : i; + let i = _i; + let n = _n; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayValue(l, i, arr) : i; arr[next] = n.v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArray(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var l = n.l; - var v = n.k; - var r = n.r; - var next = l !== undefined ? fillArray(l, i, arr) : i; + let i = _i; + let n = _n; + let l = n.l; + let v = n.k; + let r = n.r; + let next = l !== undefined ? fillArray(l, i, arr) : i; arr[next] = [ v, n.v ]; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } @@ -667,8 +667,8 @@ function toArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArray(n, 0, v); return v; } @@ -677,8 +677,8 @@ function keysToArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArrayKey(n, 0, v); return v; } @@ -687,8 +687,8 @@ function valuesToArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArrayValue(n, 0, v); return v; } @@ -696,41 +696,41 @@ function valuesToArray(n) { function fromSortedArrayRevAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : - var match = arr[off]; + let match = arr[off]; return singleton(match[0], match[1]); case 2 : - var match_0 = arr[off]; - var match_1 = arr[off - 1 | 0]; - var match$1 = match_1; - var match$2 = match_0; + let match_0 = arr[off]; + let match_1 = arr[off - 1 | 0]; + let match$1 = match_1; + let match$2 = match_0; return { - k: match$1[0], - v: match$1[1], - h: 2, - l: singleton(match$2[0], match$2[1]), - r: undefined - }; + k: match$1[0], + v: match$1[1], + h: 2, + l: singleton(match$2[0], match$2[1]), + r: undefined + }; case 3 : - var match_0$1 = arr[off]; - var match_1$1 = arr[off - 1 | 0]; - var match_2 = arr[off - 2 | 0]; - var match$3 = match_2; - var match$4 = match_1$1; - var match$5 = match_0$1; + let match_0$1 = arr[off]; + let match_1$1 = arr[off - 1 | 0]; + let match_2 = arr[off - 2 | 0]; + let match$3 = match_2; + let match$4 = match_1$1; + let match$5 = match_0$1; return { - k: match$4[0], - v: match$4[1], - h: 2, - l: singleton(match$5[0], match$5[1]), - r: singleton(match$3[0], match$3[1]) - }; + k: match$4[0], + v: match$4[1], + h: 2, + l: singleton(match$5[0], match$5[1]), + r: singleton(match$3[0], match$3[1]) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayRevAux(arr, off, nl); - var match$6 = arr[off - nl | 0]; - var right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayRevAux(arr, off, nl); + let match$6 = arr[off - nl | 0]; + let right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); return create(left, match$6[0], match$6[1], right); } } @@ -738,41 +738,41 @@ function fromSortedArrayRevAux(arr, off, len) { function fromSortedArrayAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : - var match = arr[off]; + let match = arr[off]; return singleton(match[0], match[1]); case 2 : - var match_0 = arr[off]; - var match_1 = arr[off + 1 | 0]; - var match$1 = match_1; - var match$2 = match_0; + let match_0 = arr[off]; + let match_1 = arr[off + 1 | 0]; + let match$1 = match_1; + let match$2 = match_0; return { - k: match$1[0], - v: match$1[1], - h: 2, - l: singleton(match$2[0], match$2[1]), - r: undefined - }; + k: match$1[0], + v: match$1[1], + h: 2, + l: singleton(match$2[0], match$2[1]), + r: undefined + }; case 3 : - var match_0$1 = arr[off]; - var match_1$1 = arr[off + 1 | 0]; - var match_2 = arr[off + 2 | 0]; - var match$3 = match_2; - var match$4 = match_1$1; - var match$5 = match_0$1; + let match_0$1 = arr[off]; + let match_1$1 = arr[off + 1 | 0]; + let match_2 = arr[off + 2 | 0]; + let match$3 = match_2; + let match$4 = match_1$1; + let match$5 = match_0$1; return { - k: match$4[0], - v: match$4[1], - h: 2, - l: singleton(match$5[0], match$5[1]), - r: singleton(match$3[0], match$3[1]) - }; + k: match$4[0], + v: match$4[1], + h: 2, + l: singleton(match$5[0], match$5[1]), + r: singleton(match$3[0], match$3[1]) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayAux(arr, off, nl); - var match$6 = arr[off + nl | 0]; - var right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayAux(arr, off, nl); + let match$6 = arr[off + nl | 0]; + let right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); return create(left, match$6[0], match$6[1], right); } } @@ -782,33 +782,33 @@ function fromSortedArrayUnsafe(arr) { } function cmpU(s1, s2, kcmp, vcmp) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = kcmp(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = kcmp(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else if (len1 < len2) { return -1; @@ -822,28 +822,28 @@ function cmp(s1, s2, kcmp, vcmp) { } function eqU(s1, s2, kcmp, veq) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(kcmp(h1.k, h2.k) === 0 && veq(h1.v, h2.v))) { return false; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else { return false; @@ -856,99 +856,99 @@ function eq(s1, s2, kcmp, veq) { function get(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return Caml_option.some(n.v); } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function has(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return true; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function rotateWithLeftChild(k2) { - var k1 = k2.l; + let k1 = k2.l; k2.l = k1.r; k1.r = k2; - var hlk2 = treeHeight(k2.l); - var hrk2 = treeHeight(k2.r); + let hlk2 = treeHeight(k2.l); + let hrk2 = treeHeight(k2.r); k2.h = ( hlk2 > hrk2 ? hlk2 : hrk2 ) + 1 | 0; - var hlk1 = treeHeight(k1.l); - var hk2 = k2.h; + let hlk1 = treeHeight(k1.l); + let hk2 = k2.h; k1.h = ( hlk1 > hk2 ? hlk1 : hk2 ) + 1 | 0; @@ -956,16 +956,16 @@ function rotateWithLeftChild(k2) { } function rotateWithRightChild(k1) { - var k2 = k1.r; + let k2 = k1.r; k1.r = k2.l; k2.l = k1; - var hlk1 = treeHeight(k1.l); - var hrk1 = treeHeight(k1.r); + let hlk1 = treeHeight(k1.l); + let hrk1 = treeHeight(k1.r); k1.h = ( hlk1 > hrk1 ? hlk1 : hrk1 ) + 1 | 0; - var hrk2 = treeHeight(k2.r); - var hk1 = k1.h; + let hrk2 = treeHeight(k2.r); + let hk1 = k1.h; k2.h = ( hrk2 > hk1 ? hrk2 : hk1 ) + 1 | 0; @@ -973,22 +973,22 @@ function rotateWithRightChild(k1) { } function doubleWithLeftChild(k3) { - var x = k3.l; - var v = rotateWithRightChild(x); + let x = k3.l; + let v = rotateWithRightChild(x); k3.l = v; return rotateWithLeftChild(k3); } function doubleWithRightChild(k2) { - var x = k2.r; - var v = rotateWithLeftChild(x); + let x = k2.r; + let v = rotateWithLeftChild(x); k2.r = v; return rotateWithRightChild(k2); } function heightUpdateMutate(t) { - var hlt = treeHeight(t.l); - var hrt = treeHeight(t.r); + let hlt = treeHeight(t.l); + let hrt = treeHeight(t.r); t.h = ( hlt > hrt ? hlt : hrt ) + 1 | 0; @@ -996,13 +996,13 @@ function heightUpdateMutate(t) { } function balMutate(nt) { - var l = nt.l; - var r = nt.r; - var hl = treeHeight(l); - var hr = treeHeight(r); + let l = nt.l; + let r = nt.r; + let hl = treeHeight(l); + let hr = treeHeight(r); if (hl > (2 + hr | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return heightUpdateMutate(rotateWithLeftChild(nt)); } else { @@ -1010,8 +1010,8 @@ function balMutate(nt) { } } if (hr > (2 + hl | 0)) { - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return heightUpdateMutate(rotateWithRightChild(nt)); } else { @@ -1028,16 +1028,16 @@ function updateMutate(t, x, data, cmp) { if (t === undefined) { return singleton(x, data); } - var k = t.k; - var c = cmp(x, k); + let k = t.k; + let c = cmp(x, k); if (c === 0) { t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (c < 0) { - var ll = updateMutate(l, x, data, cmp); + let ll = updateMutate(l, x, data, cmp); t.l = ll; } else { t.r = updateMutate(r, x, data, cmp); @@ -1046,30 +1046,30 @@ function updateMutate(t, x, data, cmp) { } function fromArray(xs, cmp) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return cmp(param[0], param$1[0]) < 0; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return cmp(param[0], param$1[0]) < 0; + })); + let result; if (next >= 0) { result = fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = updateMutate(result, match[0], match[1], cmp); } return result; } function removeMinAuxWithRootMutate(nt, n) { - var rn = n.r; - var ln = n.l; + let rn = n.r; + let ln = n.l; if (ln !== undefined) { n.l = removeMinAuxWithRootMutate(nt, ln); return balMutate(n); @@ -1081,68 +1081,68 @@ function removeMinAuxWithRootMutate(nt, n) { } export { - copy , - create , - bal , - singleton , - updateValue , - minKey , - minKeyUndefined , - maxKey , - maxKeyUndefined , - minimum , - minUndefined , - maximum , - maxUndefined , - removeMinAuxWithRef , - isEmpty , - stackAllLeft , - findFirstByU , - findFirstBy , - forEachU , - forEach , - mapU , - map , - mapWithKeyU , - mapWithKey , - reduceU , - reduce , - everyU , - every , - someU , - some , - join , - concat , - concatOrJoin , - keepSharedU , - keepShared , - keepMapU , - keepMap , - partitionSharedU , - partitionShared , - lengthNode , - size , - toList , - checkInvariantInternal , - fillArray , - toArray , - keysToArray , - valuesToArray , - fromSortedArrayAux , - fromSortedArrayRevAux , - fromSortedArrayUnsafe , - cmpU , - cmp , - eqU , - eq , - get , - getUndefined , - getWithDefault , - getExn , - has , - fromArray , - updateMutate , - balMutate , - removeMinAuxWithRootMutate , + copy, + create, + bal, + singleton, + updateValue, + minKey, + minKeyUndefined, + maxKey, + maxKeyUndefined, + minimum, + minUndefined, + maximum, + maxUndefined, + removeMinAuxWithRef, + isEmpty, + stackAllLeft, + findFirstByU, + findFirstBy, + forEachU, + forEach, + mapU, + map, + mapWithKeyU, + mapWithKey, + reduceU, + reduce, + everyU, + every, + someU, + some, + join, + concat, + concatOrJoin, + keepSharedU, + keepShared, + keepMapU, + keepMap, + partitionSharedU, + partitionShared, + lengthNode, + size, + toList, + checkInvariantInternal, + fillArray, + toArray, + keysToArray, + valuesToArray, + fromSortedArrayAux, + fromSortedArrayRevAux, + fromSortedArrayUnsafe, + cmpU, + cmp, + eqU, + eq, + get, + getUndefined, + getWithDefault, + getExn, + has, + fromArray, + updateMutate, + balMutate, + removeMinAuxWithRootMutate, } /* No side effect */ diff --git a/lib/es6/belt_internalMapInt.js b/lib/es6/belt_internalMapInt.js index 30bf6faeb4..fb14cb3c03 100644 --- a/lib/es6/belt_internalMapInt.js +++ b/lib/es6/belt_internalMapInt.js @@ -10,11 +10,11 @@ function add(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { return Belt_internalAVLtree.updateValue(t, data); } - var v = t.v; + let v = t.v; if (x < k) { return Belt_internalAVLtree.bal(add(t.l, x, data), k, v, t.r); } else { @@ -24,80 +24,80 @@ function add(t, x, data) { function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return Caml_option.some(n.v); } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function has(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; + let v = n.k; if (x === v) { return true; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } @@ -105,9 +105,9 @@ function remove(n, x) { if (n === undefined) { return n; } - var v = n.k; - var l = n.l; - var r = n.r; + let v = n.k; + let l = n.l; + let r = n.r; if (x !== v) { if (x < v) { return Belt_internalAVLtree.bal(remove(l, x), v, n.v, r); @@ -121,56 +121,56 @@ function remove(n, x) { if (r === undefined) { return l; } - var kr = { + let kr = { contents: r.k }; - var vr = { + let vr = { contents: r.v }; - var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); + let r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); return Belt_internalAVLtree.bal(l, kr.contents, vr.contents, r$1); } function splitAux(x, n) { - var v = n.k; - var d = n.v; - var l = n.l; - var r = n.r; + let v = n.k; + let d = n.v; + let l = n.l; + let r = n.r; if (x === v) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (x < v) { if (l === undefined) { return [ - undefined, - undefined, - n - ]; + undefined, + undefined, + n + ]; } - var match = splitAux(x, l); + let match = splitAux(x, l); return [ - match[0], - match[1], - Belt_internalAVLtree.join(match[2], v, d, r) - ]; + match[0], + match[1], + Belt_internalAVLtree.join(match[2], v, d, r) + ]; } if (r === undefined) { return [ - n, - undefined, - undefined - ]; + n, + undefined, + undefined + ]; } - var match$1 = splitAux(x, r); + let match$1 = splitAux(x, r); return [ - Belt_internalAVLtree.join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + Belt_internalAVLtree.join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function split(x, n) { @@ -178,10 +178,10 @@ function split(x, n) { return splitAux(x, n); } else { return [ - undefined, - undefined, - undefined - ]; + undefined, + undefined, + undefined + ]; } } @@ -190,22 +190,22 @@ function mergeU(s1, s2, f) { if (s1.h >= ( s2 !== undefined ? s2.h : 0 )) { - var v1 = s1.k; - var d1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var match = split(v1, s2); + let v1 = s1.k; + let d1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let match = split(v1, s2); return Belt_internalAVLtree.concatOrJoin(mergeU(l1, match[0], f), v1, f(v1, Caml_option.some(d1), match[1]), mergeU(r1, match[2], f)); } } else if (s2 === undefined) { - return ; + return; } - var v2 = s2.k; - var d2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var match$1 = split(v2, s1); + let v2 = s2.k; + let d2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let match$1 = split(v2, s1); return Belt_internalAVLtree.concatOrJoin(mergeU(match$1[0], l2, f), v2, f(v2, match$1[1], Caml_option.some(d2)), mergeU(match$1[2], r2, f)); } @@ -215,33 +215,33 @@ function merge(s1, s2, f) { function compareAux(_e1, _e2, vcmp) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = Caml.int_compare(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = Caml.int_compare(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmpU(s1, s2, cmp) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), cmp); } else if (len1 < len2) { @@ -257,28 +257,28 @@ function cmp(s1, s2, f) { function eqAux(_e1, _e2, eq) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(h1.k === h2.k && eq(h1.v, h2.v))) { return false; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function eqU(s1, s2, eq) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return eqAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), eq); } else { @@ -294,16 +294,16 @@ function addMutate(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { t.k = x; t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { - var ll = addMutate(l, x, data); + let ll = addMutate(l, x, data); t.l = ll; } else { t.r = addMutate(r, x, data); @@ -312,55 +312,55 @@ function addMutate(t, x, data) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return param[0] < param$1[0]; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return param[0] < param$1[0]; + })); + let result; if (next >= 0) { result = Belt_internalAVLtree.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLtree.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = addMutate(result, match[0], match[1]); } return result; } -var N; +let N; -var A; +let A; -var S; +let S; export { - N , - A , - S , - add , - get , - getUndefined , - getExn , - getWithDefault , - has , - remove , - splitAux , - split , - mergeU , - merge , - compareAux , - cmpU , - cmp , - eqAux , - eqU , - eq , - addMutate , - fromArray , + N, + A, + S, + add, + get, + getUndefined, + getExn, + getWithDefault, + has, + remove, + splitAux, + split, + mergeU, + merge, + compareAux, + cmpU, + cmp, + eqAux, + eqU, + eq, + addMutate, + fromArray, } /* No side effect */ diff --git a/lib/es6/belt_internalMapString.js b/lib/es6/belt_internalMapString.js index 956473e5e3..a32c628f21 100644 --- a/lib/es6/belt_internalMapString.js +++ b/lib/es6/belt_internalMapString.js @@ -10,11 +10,11 @@ function add(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { return Belt_internalAVLtree.updateValue(t, data); } - var v = t.v; + let v = t.v; if (x < k) { return Belt_internalAVLtree.bal(add(t.l, x, data), k, v, t.r); } else { @@ -24,80 +24,80 @@ function add(t, x, data) { function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return Caml_option.some(n.v); } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function has(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; + let v = n.k; if (x === v) { return true; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } @@ -105,9 +105,9 @@ function remove(n, x) { if (n === undefined) { return n; } - var v = n.k; - var l = n.l; - var r = n.r; + let v = n.k; + let l = n.l; + let r = n.r; if (x !== v) { if (x < v) { return Belt_internalAVLtree.bal(remove(l, x), v, n.v, r); @@ -121,56 +121,56 @@ function remove(n, x) { if (r === undefined) { return l; } - var kr = { + let kr = { contents: r.k }; - var vr = { + let vr = { contents: r.v }; - var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); + let r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); return Belt_internalAVLtree.bal(l, kr.contents, vr.contents, r$1); } function splitAux(x, n) { - var v = n.k; - var d = n.v; - var l = n.l; - var r = n.r; + let v = n.k; + let d = n.v; + let l = n.l; + let r = n.r; if (x === v) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (x < v) { if (l === undefined) { return [ - undefined, - undefined, - n - ]; + undefined, + undefined, + n + ]; } - var match = splitAux(x, l); + let match = splitAux(x, l); return [ - match[0], - match[1], - Belt_internalAVLtree.join(match[2], v, d, r) - ]; + match[0], + match[1], + Belt_internalAVLtree.join(match[2], v, d, r) + ]; } if (r === undefined) { return [ - n, - undefined, - undefined - ]; + n, + undefined, + undefined + ]; } - var match$1 = splitAux(x, r); + let match$1 = splitAux(x, r); return [ - Belt_internalAVLtree.join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + Belt_internalAVLtree.join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function split(x, n) { @@ -178,10 +178,10 @@ function split(x, n) { return splitAux(x, n); } else { return [ - undefined, - undefined, - undefined - ]; + undefined, + undefined, + undefined + ]; } } @@ -190,22 +190,22 @@ function mergeU(s1, s2, f) { if (s1.h >= ( s2 !== undefined ? s2.h : 0 )) { - var v1 = s1.k; - var d1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var match = split(v1, s2); + let v1 = s1.k; + let d1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let match = split(v1, s2); return Belt_internalAVLtree.concatOrJoin(mergeU(l1, match[0], f), v1, f(v1, Caml_option.some(d1), match[1]), mergeU(r1, match[2], f)); } } else if (s2 === undefined) { - return ; + return; } - var v2 = s2.k; - var d2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var match$1 = split(v2, s1); + let v2 = s2.k; + let d2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let match$1 = split(v2, s1); return Belt_internalAVLtree.concatOrJoin(mergeU(match$1[0], l2, f), v2, f(v2, match$1[1], Caml_option.some(d2)), mergeU(match$1[2], r2, f)); } @@ -215,33 +215,33 @@ function merge(s1, s2, f) { function compareAux(_e1, _e2, vcmp) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = Caml.string_compare(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = Caml.string_compare(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmpU(s1, s2, cmp) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), cmp); } else if (len1 < len2) { @@ -257,28 +257,28 @@ function cmp(s1, s2, f) { function eqAux(_e1, _e2, eq) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(h1.k === h2.k && eq(h1.v, h2.v))) { return false; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function eqU(s1, s2, eq) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return eqAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), eq); } else { @@ -294,16 +294,16 @@ function addMutate(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { t.k = x; t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { - var ll = addMutate(l, x, data); + let ll = addMutate(l, x, data); t.l = ll; } else { t.r = addMutate(r, x, data); @@ -312,55 +312,55 @@ function addMutate(t, x, data) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return param[0] < param$1[0]; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return param[0] < param$1[0]; + })); + let result; if (next >= 0) { result = Belt_internalAVLtree.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLtree.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = addMutate(result, match[0], match[1]); } return result; } -var N; +let N; -var A; +let A; -var S; +let S; export { - N , - A , - S , - add , - get , - getUndefined , - getExn , - getWithDefault , - has , - remove , - splitAux , - split , - mergeU , - merge , - compareAux , - cmpU , - cmp , - eqAux , - eqU , - eq , - addMutate , - fromArray , + N, + A, + S, + add, + get, + getUndefined, + getExn, + getWithDefault, + has, + remove, + splitAux, + split, + mergeU, + merge, + compareAux, + cmpU, + cmp, + eqAux, + eqU, + eq, + addMutate, + fromArray, } /* No side effect */ diff --git a/lib/es6/belt_internalSetInt.js b/lib/es6/belt_internalSetInt.js index 2747483bd5..94952bb5c6 100644 --- a/lib/es6/belt_internalSetInt.js +++ b/lib/es6/belt_internalSetInt.js @@ -5,33 +5,33 @@ import * as Belt_internalAVLset from "./belt_internalAVLset.js"; function has(_t, x) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; + let v = t.v; if (x === v) { return true; } _t = x < v ? t.l : t.r; - continue ; + continue; }; } function compareAux(_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var k1 = h1.v; - var k2 = h2.v; + let h2 = e2.hd; + let h1 = e1.hd; + let k1 = h1.v; + let k2 = h2.v; if (k1 !== k2) { if (k1 < k2) { return -1; @@ -41,13 +41,13 @@ function compareAux(_e1, _e2) { } _e2 = Belt_internalAVLset.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLset.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmp(s1, s2) { - var len1 = Belt_internalAVLset.size(s1); - var len2 = Belt_internalAVLset.size(s2); + let len1 = Belt_internalAVLset.size(s1); + let len2 = Belt_internalAVLset.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLset.stackAllLeft(s1, /* [] */0), Belt_internalAVLset.stackAllLeft(s2, /* [] */0)); } else if (len1 < len2) { @@ -63,89 +63,89 @@ function eq(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; if (v1 === v2) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (v1 < v2) { if (!subset(Belt_internalAVLset.create(l1, v1, undefined), l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(Belt_internalAVLset.create(undefined, v1, r1), r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -153,12 +153,12 @@ function addMutate(t, x) { if (t === undefined) { return Belt_internalAVLset.singleton(x); } - var k = t.v; + let k = t.v; if (x === k) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { t.l = addMutate(l, x); } else { @@ -168,43 +168,43 @@ function addMutate(t, x) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArrayInt.strictlySortedLength(xs); - var result; + let next = Belt_SortArrayInt.strictlySortedLength(xs); + let result; if (next >= 0) { result = Belt_internalAVLset.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLset.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(result, xs[i]); } return result; } -var S; +let S; -var N; +let N; -var A; +let A; export { - S , - N , - A , - has , - compareAux , - cmp , - eq , - subset , - get , - getUndefined , - getExn , - addMutate , - fromArray , + S, + N, + A, + has, + compareAux, + cmp, + eq, + subset, + get, + getUndefined, + getExn, + addMutate, + fromArray, } /* No side effect */ diff --git a/lib/es6/belt_internalSetString.js b/lib/es6/belt_internalSetString.js index 04a2218fd2..120bbcf0bd 100644 --- a/lib/es6/belt_internalSetString.js +++ b/lib/es6/belt_internalSetString.js @@ -5,33 +5,33 @@ import * as Belt_SortArrayString from "./belt_SortArrayString.js"; function has(_t, x) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; + let v = t.v; if (x === v) { return true; } _t = x < v ? t.l : t.r; - continue ; + continue; }; } function compareAux(_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var k1 = h1.v; - var k2 = h2.v; + let h2 = e2.hd; + let h1 = e1.hd; + let k1 = h1.v; + let k2 = h2.v; if (k1 !== k2) { if (k1 < k2) { return -1; @@ -41,13 +41,13 @@ function compareAux(_e1, _e2) { } _e2 = Belt_internalAVLset.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLset.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmp(s1, s2) { - var len1 = Belt_internalAVLset.size(s1); - var len2 = Belt_internalAVLset.size(s2); + let len1 = Belt_internalAVLset.size(s1); + let len2 = Belt_internalAVLset.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLset.stackAllLeft(s1, /* [] */0), Belt_internalAVLset.stackAllLeft(s2, /* [] */0)); } else if (len1 < len2) { @@ -63,89 +63,89 @@ function eq(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; if (v1 === v2) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (v1 < v2) { if (!subset(Belt_internalAVLset.create(l1, v1, undefined), l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(Belt_internalAVLset.create(undefined, v1, r1), r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -153,12 +153,12 @@ function addMutate(t, x) { if (t === undefined) { return Belt_internalAVLset.singleton(x); } - var k = t.v; + let k = t.v; if (x === k) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { t.l = addMutate(l, x); } else { @@ -168,43 +168,43 @@ function addMutate(t, x) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArrayString.strictlySortedLength(xs); - var result; + let next = Belt_SortArrayString.strictlySortedLength(xs); + let result; if (next >= 0) { result = Belt_internalAVLset.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLset.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(result, xs[i]); } return result; } -var S; +let S; -var N; +let N; -var A; +let A; export { - S , - N , - A , - has , - compareAux , - cmp , - eq , - subset , - get , - getUndefined , - getExn , - addMutate , - fromArray , + S, + N, + A, + has, + compareAux, + cmp, + eq, + subset, + get, + getUndefined, + getExn, + addMutate, + fromArray, } /* No side effect */ diff --git a/lib/es6/buffer.js b/lib/es6/buffer.js index 6018bb6e53..034ec0ea08 100644 --- a/lib/es6/buffer.js +++ b/lib/es6/buffer.js @@ -7,14 +7,14 @@ import * as Caml_bytes from "./caml_bytes.js"; import * as Caml_string from "./caml_string.js"; function create(n) { - var n$1 = n < 1 ? 1 : n; - var s = Caml_bytes.create(n$1); + let n$1 = n < 1 ? 1 : n; + let s = Caml_bytes.create(n$1); return { - buffer: s, - position: 0, - length: n$1, - initial_buffer: s - }; + buffer: s, + position: 0, + length: n$1, + initial_buffer: s + }; } function contents(b) { @@ -28,11 +28,11 @@ function to_bytes(b) { function sub(b, ofs, len) { if (ofs < 0 || len < 0 || ofs > (b.position - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.sub" + } + }); } return Bytes.sub_string(b.buffer, ofs, len); } @@ -40,11 +40,11 @@ function sub(b, ofs, len) { function blit(src, srcoff, dst, dstoff, len) { if (len < 0 || srcoff < 0 || srcoff > (src.position - len | 0) || dstoff < 0 || dstoff > (dst.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.blit" + } + }); } Bytes.blit(src.buffer, srcoff, dst, dstoff, len); } @@ -52,11 +52,11 @@ function blit(src, srcoff, dst, dstoff, len) { function nth(b, ofs) { if (ofs < 0 || ofs >= b.position) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.nth" + } + }); } return b.buffer[ofs]; } @@ -76,19 +76,19 @@ function reset(b) { } function resize(b, more) { - var len = b.length; - var new_len = len; + let len = b.length; + let new_len = len; while((b.position + more | 0) > new_len) { new_len = (new_len << 1); }; - var new_buffer = Caml_bytes.create(new_len); + let new_buffer = Caml_bytes.create(new_len); Bytes.blit(b.buffer, 0, new_buffer, 0, b.position); b.buffer = new_buffer; b.length = new_len; } function add_char(b, c) { - var pos = b.position; + let pos = b.position; if (pos >= b.length) { resize(b, 1); } @@ -97,34 +97,34 @@ function add_char(b, c) { } function add_utf_8_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 98, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 98, + 18 + ] + } + }); } if (u$1 <= 127) { return add_char(b, u$1); } if (u$1 <= 2047) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = 192 | (u$1 >>> 6); b.buffer[pos + 1 | 0] = 128 | u$1 & 63; b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 65535) { - var pos$1 = b.position; + let pos$1 = b.position; if ((pos$1 + 3 | 0) > b.length) { resize(b, 3); } @@ -132,10 +132,10 @@ function add_utf_8_uchar(b, u) { b.buffer[pos$1 + 1 | 0] = 128 | (u$1 >>> 6) & 63; b.buffer[pos$1 + 2 | 0] = 128 | u$1 & 63; b.position = pos$1 + 3 | 0; - return ; + return; } if (u$1 <= 1114111) { - var pos$2 = b.position; + let pos$2 = b.position; if ((pos$2 + 4 | 0) > b.length) { resize(b, 4); } @@ -144,49 +144,49 @@ function add_utf_8_uchar(b, u) { b.buffer[pos$2 + 2 | 0] = 128 | (u$1 >>> 6) & 63; b.buffer[pos$2 + 3 | 0] = 128 | u$1 & 63; b.position = pos$2 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 127, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 127, + 9 + ] + } + }); } function add_utf_16be_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 132, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 132, + 18 + ] + } + }); } if (u$1 <= 65535) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = (u$1 >>> 8); b.buffer[pos + 1 | 0] = u$1 & 255; b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 1114111) { - var u$p = u$1 - 65536 | 0; - var hi = 55296 | (u$p >>> 10); - var lo = 56320 | u$p & 1023; - var pos$1 = b.position; + let u$p = u$1 - 65536 | 0; + let hi = 55296 | (u$p >>> 10); + let lo = 56320 | u$p & 1023; + let pos$1 = b.position; if ((pos$1 + 4 | 0) > b.length) { resize(b, 4); } @@ -195,49 +195,49 @@ function add_utf_16be_uchar(b, u) { b.buffer[pos$1 + 2 | 0] = (lo >>> 8); b.buffer[pos$1 + 3 | 0] = lo & 255; b.position = pos$1 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 154, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 154, + 9 + ] + } + }); } function add_utf_16le_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 159, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 159, + 18 + ] + } + }); } if (u$1 <= 65535) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = u$1 & 255; b.buffer[pos + 1 | 0] = (u$1 >>> 8); b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 1114111) { - var u$p = u$1 - 65536 | 0; - var hi = 55296 | (u$p >>> 10); - var lo = 56320 | u$p & 1023; - var pos$1 = b.position; + let u$p = u$1 - 65536 | 0; + let hi = 55296 | (u$p >>> 10); + let lo = 56320 | u$p & 1023; + let pos$1 = b.position; if ((pos$1 + 4 | 0) > b.length) { resize(b, 4); } @@ -246,30 +246,30 @@ function add_utf_16le_uchar(b, u) { b.buffer[pos$1 + 2 | 0] = lo & 255; b.buffer[pos$1 + 3 | 0] = (lo >>> 8); b.position = pos$1 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 181, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 181, + 9 + ] + } + }); } function add_substring(b, s, offset, len) { if (offset < 0 || len < 0 || offset > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.add_substring/add_subbytes" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.add_substring/add_subbytes" + } + }); } - var new_position = b.position + len | 0; + let new_position = b.position + len | 0; if (new_position > b.length) { resize(b, len); } @@ -282,8 +282,8 @@ function add_subbytes(b, s, offset, len) { } function add_string(b, s) { - var len = s.length; - var new_position = b.position + len | 0; + let len = s.length; + let new_position = b.position + len | 0; if (new_position > b.length) { resize(b, len); } @@ -307,35 +307,35 @@ function closing(param) { return /* '}' */125; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 216, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 216, + 9 + ] + } + }); } function advance_to_closing(opening, closing, k, s, start) { - var _k = k; - var _i = start; - var lim = s.length; + let _k = k; + let _i = start; + let lim = s.length; while(true) { - var i = _i; - var k$1 = _k; + let i = _i; + let k$1 = _k; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (Caml_string.get(s, i) === opening) { _i = i + 1 | 0; _k = k$1 + 1 | 0; - continue ; + continue; } if (Caml_string.get(s, i) === closing) { if (k$1 === 0) { @@ -343,22 +343,22 @@ function advance_to_closing(opening, closing, k, s, start) { } _i = i + 1 | 0; _k = k$1 - 1 | 0; - continue ; + continue; } _i = i + 1 | 0; - continue ; + continue; }; } function advance_to_non_alpha(s, start) { - var _i = start; - var lim = s.length; + let _i = start; + let lim = s.length; while(true) { - var i = _i; + let i = _i; if (i >= lim) { return lim; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 91) { if (match >= 97) { if (match >= 123) { @@ -378,114 +378,114 @@ function advance_to_non_alpha(s, start) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function find_ident(s, start, lim) { if (start >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml_string.get(s, start); + let c = Caml_string.get(s, start); if (c !== 40 && c !== 123) { - var stop = advance_to_non_alpha(s, start + 1 | 0); + let stop = advance_to_non_alpha(s, start + 1 | 0); return [ - $$String.sub(s, start, stop - start | 0), - stop - ]; + $$String.sub(s, start, stop - start | 0), + stop + ]; } - var new_start = start + 1 | 0; - var stop$1 = advance_to_closing(c, closing(c), 0, s, new_start); + let new_start = start + 1 | 0; + let stop$1 = advance_to_closing(c, closing(c), 0, s, new_start); return [ - $$String.sub(s, new_start, (stop$1 - start | 0) - 1 | 0), - stop$1 + 1 | 0 - ]; + $$String.sub(s, new_start, (stop$1 - start | 0) - 1 | 0), + stop$1 + 1 | 0 + ]; } function add_substitute(b, f, s) { - var lim = s.length; - var _previous = /* ' ' */32; - var _i = 0; + let lim = s.length; + let _previous = /* ' ' */32; + let _i = 0; while(true) { - var i = _i; - var previous = _previous; + let i = _i; + let previous = _previous; if (i >= lim) { if (previous === /* '\\' */92) { return add_char(b, previous); } else { - return ; + return; } } - var current = Caml_string.get(s, i); + let current = Caml_string.get(s, i); if (current !== 36) { if (previous === /* '\\' */92) { add_char(b, /* '\\' */92); add_char(b, current); _i = i + 1 | 0; _previous = /* ' ' */32; - continue ; + continue; } if (current !== 92) { add_char(b, current); _i = i + 1 | 0; _previous = current; - continue ; + continue; } _i = i + 1 | 0; _previous = current; - continue ; + continue; } if (previous === /* '\\' */92) { add_char(b, current); _i = i + 1 | 0; _previous = /* ' ' */32; - continue ; + continue; } - var j = i + 1 | 0; - var match = find_ident(s, j, lim); + let j = i + 1 | 0; + let match = find_ident(s, j, lim); add_string(b, Curry._1(f, match[0])); _i = match[1]; _previous = /* ' ' */32; - continue ; + continue; }; } function truncate(b, len) { if (len < 0 || len > b.position) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.truncate" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.truncate" + } + }); } b.position = len; } export { - create , - contents , - to_bytes , - sub , - blit , - nth , - length , - clear , - reset , - add_char , - add_utf_8_uchar , - add_utf_16le_uchar , - add_utf_16be_uchar , - add_string , - add_bytes , - add_substring , - add_subbytes , - add_substitute , - add_buffer , - truncate , + create, + contents, + to_bytes, + sub, + blit, + nth, + length, + clear, + reset, + add_char, + add_utf_8_uchar, + add_utf_16le_uchar, + add_utf_16be_uchar, + add_string, + add_bytes, + add_substring, + add_subbytes, + add_substitute, + add_buffer, + truncate, } /* No side effect */ diff --git a/lib/es6/bytes.js b/lib/es6/bytes.js index d69dfd9ef6..c47cca3ffb 100644 --- a/lib/es6/bytes.js +++ b/lib/es6/bytes.js @@ -8,89 +8,89 @@ import * as Caml_js_exceptions from "./caml_js_exceptions.js"; function unsafe_fill(s, i, l, c) { if (l <= 0) { - return ; + return; } - for(var k = i ,k_finish = l + i | 0; k < k_finish; ++k){ + for(let k = i ,k_finish = l + i | 0; k < k_finish; ++k){ s[k] = c; } } function unsafe_blit(s1, i1, s2, i2, len) { if (len <= 0) { - return ; + return; } if (s1 === s2) { if (i1 < i2) { - var range_a = (s1.length - i2 | 0) - 1 | 0; - var range_b = len - 1 | 0; - var range = range_a > range_b ? range_b : range_a; - for(var j = range; j >= 0; --j){ + let range_a = (s1.length - i2 | 0) - 1 | 0; + let range_b = len - 1 | 0; + let range = range_a > range_b ? range_b : range_a; + for(let j = range; j >= 0; --j){ s1[i2 + j | 0] = s1[i1 + j | 0]; } - return ; + return; } if (i1 <= i2) { - return ; + return; } - var range_a$1 = (s1.length - i1 | 0) - 1 | 0; - var range_b$1 = len - 1 | 0; - var range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; - for(var k = 0; k <= range$1; ++k){ + let range_a$1 = (s1.length - i1 | 0) - 1 | 0; + let range_b$1 = len - 1 | 0; + let range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; + for(let k = 0; k <= range$1; ++k){ s1[i2 + k | 0] = s1[i1 + k | 0]; } - return ; + return; } - var off1 = s1.length - i1 | 0; + let off1 = s1.length - i1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[i2 + i | 0] = s1[i1 + i | 0]; } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[i2 + i$1 | 0] = s1[i1 + i$1 | 0]; } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[i2 + i$2 | 0] = /* '\000' */0; } } function make(n, c) { - var s = Caml_bytes.create(n); + let s = Caml_bytes.create(n); unsafe_fill(s, 0, n, c); return s; } function init(n, f) { - var s = Caml_bytes.create(n); - for(var i = 0; i < n; ++i){ + let s = Caml_bytes.create(n); + for(let i = 0; i < n; ++i){ s[i] = Curry._1(f, i); } return s; } -var empty = []; +let empty = []; function copy(s) { - var len = s.length; - var r = Caml_bytes.create(len); + let len = s.length; + let r = Caml_bytes.create(len); unsafe_blit(s, 0, r, 0, len); return r; } function to_string(a) { - var i = 0; - var len = a.length; - var s = ""; - var s_len = len; + let i = 0; + let len = a.length; + let s = ""; + let s_len = len; if (i === 0 && len <= 4096 && len === a.length) { return String.fromCharCode.apply(null, a); } - var offset = 0; + let offset = 0; while(s_len > 0) { - var next = s_len < 1024 ? s_len : 1024; - var tmp_bytes = new Array(next); - for(var k = 0; k < next; ++k){ + let next = s_len < 1024 ? s_len : 1024; + let tmp_bytes = new Array(next); + for(let k = 0; k < next; ++k){ tmp_bytes[k] = a[k + offset | 0]; } s = s + String.fromCharCode.apply(null, tmp_bytes); @@ -101,9 +101,9 @@ function to_string(a) { } function of_string(s) { - var len = s.length; - var res = new Array(len); - for(var i = 0; i < len; ++i){ + let len = s.length; + let res = new Array(len); + for(let i = 0; i < len; ++i){ res[i] = s.codePointAt(i); } return res; @@ -112,13 +112,13 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } - var r = Caml_bytes.create(len); + let r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); return r; } @@ -128,10 +128,10 @@ function sub_string(b, ofs, len) { } function $plus$plus(a, b) { - var c = a + b | 0; - var match = a < 0; - var match$1 = b < 0; - var match$2 = c < 0; + let c = a + b | 0; + let match = a < 0; + let match$1 = b < 0; + let match$2 = c < 0; if (match) { if (!match$1) { return c; @@ -140,39 +140,39 @@ function $plus$plus(a, b) { return c; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } function extend(s, left, right) { - var len = $plus$plus($plus$plus(s.length, left), right); - var r = Caml_bytes.create(len); - var match = left < 0 ? [ + let len = $plus$plus($plus$plus(s.length, left), right); + let r = Caml_bytes.create(len); + let match = left < 0 ? [ -left | 0, 0 ] : [ 0, left ]; - var dstoff = match[1]; - var srcoff = match[0]; - var cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); + let dstoff = match[1]; + let srcoff = match[0]; + let cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); if (cpylen > 0) { unsafe_blit(s, srcoff, r, dstoff, cpylen); } @@ -182,11 +182,11 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } @@ -194,11 +194,11 @@ function fill(s, ofs, len, c) { function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } @@ -206,38 +206,38 @@ function blit(s1, ofs1, s2, ofs2, len) { function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { - return ; + return; } - var off1 = s1.length - ofs1 | 0; + let off1 = s1.length - ofs1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[ofs2 + i | 0] = s1.codePointAt(ofs1 + i | 0); } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[ofs2 + i$1 | 0] = s1.codePointAt(ofs1 + i$1 | 0); } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[ofs2 + i$2 | 0] = /* '\000' */0; } } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } @@ -247,28 +247,28 @@ function ensure_ge(x, y) { return x; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { while(true) { - var param = _param; - var acc = _acc; + let param = _param; + let acc = _acc; if (!param) { return acc; } - var tl = param.tl; - var hd = param.hd; + let tl = param.tl; + let hd = param.hd; if (!tl) { return hd.length + acc | 0; } _param = tl; _acc = ensure_ge((hd.length + seplen | 0) + acc | 0, acc); - continue ; + continue; }; } @@ -276,24 +276,24 @@ function concat(sep, param) { if (!param) { return empty; } - var seplen = sep.length; - var dst = Caml_bytes.create(sum_lengths(0, seplen, param)); - var _pos = 0; - var _param = param; + let seplen = sep.length; + let dst = Caml_bytes.create(sum_lengths(0, seplen, param)); + let _pos = 0; + let _param = param; while(true) { - var param$1 = _param; - var pos = _pos; + let param$1 = _param; + let pos = _pos; if (!param$1) { return dst; } - var tl = param$1.tl; - var hd = param$1.hd; + let tl = param$1.tl; + let hd = param$1.hd; if (tl) { unsafe_blit(hd, 0, dst, pos, hd.length); unsafe_blit(sep, 0, dst, pos + hd.length | 0, seplen); _param = tl; _pos = (pos + hd.length | 0) + seplen | 0; - continue ; + continue; } unsafe_blit(hd, 0, dst, pos, hd.length); return dst; @@ -301,9 +301,9 @@ function concat(sep, param) { } function cat(s1, s2) { - var l1 = s1.length; - var l2 = s2.length; - var r = Caml_bytes.create(l1 + l2 | 0); + let l1 = s1.length; + let l2 = s2.length; + let r = Caml_bytes.create(l1 + l2 | 0); unsafe_blit(s1, 0, r, 0, l1); unsafe_blit(s2, 0, r, l1, l2); return r; @@ -318,12 +318,12 @@ function is_space(param) { } function trim(s) { - var len = s.length; - var i = 0; + let len = s.length; + let i = 0; while(i < len && is_space(s[i])) { i = i + 1 | 0; }; - var j = len - 1 | 0; + let j = len - 1 | 0; while(j >= i && is_space(s[j])) { j = j - 1 | 0; }; @@ -335,9 +335,9 @@ function trim(s) { } function escaped(s) { - var n = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var match = s[i]; + let n = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let match = s[i]; n = n + ( match >= 32 ? ( match > 92 || match < 34 ? ( @@ -357,11 +357,11 @@ function escaped(s) { if (n === s.length) { return copy(s); } - var s$p = Caml_bytes.create(n); + let s$p = Caml_bytes.create(n); n = 0; - for(var i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ - var c = s[i$1]; - var exit = 0; + for(let i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ + let c = s[i$1]; + let exit = 0; if (c >= 35) { if (c !== 92) { if (c >= 127) { @@ -440,24 +440,24 @@ function escaped(s) { } function map(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._1(f, s[i]); } return r; } function mapi(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._2(f, i, s[i]); } return r; @@ -475,7 +475,7 @@ function apply1(f, s) { if (s.length === 0) { return s; } - var r = copy(s); + let r = copy(s); r[0] = Curry._1(f, s[0]); return r; } @@ -490,19 +490,19 @@ function uncapitalize_ascii(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -512,15 +512,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -529,46 +529,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -579,26 +579,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -609,37 +609,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -650,74 +650,74 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var compare = Caml_bytes.bytes_compare; +let compare = Caml_bytes.bytes_compare; -var equal = Caml_bytes.bytes_equal; +let equal = Caml_bytes.bytes_equal; -var unsafe_to_string = to_string; +let unsafe_to_string = to_string; -var unsafe_of_string = of_string; +let unsafe_of_string = of_string; export { - make , - init , - empty , - copy , - of_string , - to_string , - sub , - sub_string , - extend , - fill , - blit , - blit_string , - concat , - cat , - iter , - iteri , - map , - mapi , - trim , - escaped , - index , - index_opt , - rindex , - rindex_opt , - index_from , - index_from_opt , - rindex_from , - rindex_from_opt , - contains , - contains_from , - rcontains_from , - uppercase_ascii , - lowercase_ascii , - capitalize_ascii , - uncapitalize_ascii , - compare , - equal , - unsafe_to_string , - unsafe_of_string , + make, + init, + empty, + copy, + of_string, + to_string, + sub, + sub_string, + extend, + fill, + blit, + blit_string, + concat, + cat, + iter, + iteri, + map, + mapi, + trim, + escaped, + index, + index_opt, + rindex, + rindex_opt, + index_from, + index_from_opt, + rindex_from, + rindex_from_opt, + contains, + contains_from, + rcontains_from, + uppercase_ascii, + lowercase_ascii, + capitalize_ascii, + uncapitalize_ascii, + compare, + equal, + unsafe_to_string, + unsafe_of_string, } /* No side effect */ diff --git a/lib/es6/bytesLabels.js b/lib/es6/bytesLabels.js index d69dfd9ef6..c47cca3ffb 100644 --- a/lib/es6/bytesLabels.js +++ b/lib/es6/bytesLabels.js @@ -8,89 +8,89 @@ import * as Caml_js_exceptions from "./caml_js_exceptions.js"; function unsafe_fill(s, i, l, c) { if (l <= 0) { - return ; + return; } - for(var k = i ,k_finish = l + i | 0; k < k_finish; ++k){ + for(let k = i ,k_finish = l + i | 0; k < k_finish; ++k){ s[k] = c; } } function unsafe_blit(s1, i1, s2, i2, len) { if (len <= 0) { - return ; + return; } if (s1 === s2) { if (i1 < i2) { - var range_a = (s1.length - i2 | 0) - 1 | 0; - var range_b = len - 1 | 0; - var range = range_a > range_b ? range_b : range_a; - for(var j = range; j >= 0; --j){ + let range_a = (s1.length - i2 | 0) - 1 | 0; + let range_b = len - 1 | 0; + let range = range_a > range_b ? range_b : range_a; + for(let j = range; j >= 0; --j){ s1[i2 + j | 0] = s1[i1 + j | 0]; } - return ; + return; } if (i1 <= i2) { - return ; + return; } - var range_a$1 = (s1.length - i1 | 0) - 1 | 0; - var range_b$1 = len - 1 | 0; - var range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; - for(var k = 0; k <= range$1; ++k){ + let range_a$1 = (s1.length - i1 | 0) - 1 | 0; + let range_b$1 = len - 1 | 0; + let range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; + for(let k = 0; k <= range$1; ++k){ s1[i2 + k | 0] = s1[i1 + k | 0]; } - return ; + return; } - var off1 = s1.length - i1 | 0; + let off1 = s1.length - i1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[i2 + i | 0] = s1[i1 + i | 0]; } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[i2 + i$1 | 0] = s1[i1 + i$1 | 0]; } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[i2 + i$2 | 0] = /* '\000' */0; } } function make(n, c) { - var s = Caml_bytes.create(n); + let s = Caml_bytes.create(n); unsafe_fill(s, 0, n, c); return s; } function init(n, f) { - var s = Caml_bytes.create(n); - for(var i = 0; i < n; ++i){ + let s = Caml_bytes.create(n); + for(let i = 0; i < n; ++i){ s[i] = Curry._1(f, i); } return s; } -var empty = []; +let empty = []; function copy(s) { - var len = s.length; - var r = Caml_bytes.create(len); + let len = s.length; + let r = Caml_bytes.create(len); unsafe_blit(s, 0, r, 0, len); return r; } function to_string(a) { - var i = 0; - var len = a.length; - var s = ""; - var s_len = len; + let i = 0; + let len = a.length; + let s = ""; + let s_len = len; if (i === 0 && len <= 4096 && len === a.length) { return String.fromCharCode.apply(null, a); } - var offset = 0; + let offset = 0; while(s_len > 0) { - var next = s_len < 1024 ? s_len : 1024; - var tmp_bytes = new Array(next); - for(var k = 0; k < next; ++k){ + let next = s_len < 1024 ? s_len : 1024; + let tmp_bytes = new Array(next); + for(let k = 0; k < next; ++k){ tmp_bytes[k] = a[k + offset | 0]; } s = s + String.fromCharCode.apply(null, tmp_bytes); @@ -101,9 +101,9 @@ function to_string(a) { } function of_string(s) { - var len = s.length; - var res = new Array(len); - for(var i = 0; i < len; ++i){ + let len = s.length; + let res = new Array(len); + for(let i = 0; i < len; ++i){ res[i] = s.codePointAt(i); } return res; @@ -112,13 +112,13 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } - var r = Caml_bytes.create(len); + let r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); return r; } @@ -128,10 +128,10 @@ function sub_string(b, ofs, len) { } function $plus$plus(a, b) { - var c = a + b | 0; - var match = a < 0; - var match$1 = b < 0; - var match$2 = c < 0; + let c = a + b | 0; + let match = a < 0; + let match$1 = b < 0; + let match$2 = c < 0; if (match) { if (!match$1) { return c; @@ -140,39 +140,39 @@ function $plus$plus(a, b) { return c; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } function extend(s, left, right) { - var len = $plus$plus($plus$plus(s.length, left), right); - var r = Caml_bytes.create(len); - var match = left < 0 ? [ + let len = $plus$plus($plus$plus(s.length, left), right); + let r = Caml_bytes.create(len); + let match = left < 0 ? [ -left | 0, 0 ] : [ 0, left ]; - var dstoff = match[1]; - var srcoff = match[0]; - var cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); + let dstoff = match[1]; + let srcoff = match[0]; + let cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); if (cpylen > 0) { unsafe_blit(s, srcoff, r, dstoff, cpylen); } @@ -182,11 +182,11 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } @@ -194,11 +194,11 @@ function fill(s, ofs, len, c) { function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } @@ -206,38 +206,38 @@ function blit(s1, ofs1, s2, ofs2, len) { function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { - return ; + return; } - var off1 = s1.length - ofs1 | 0; + let off1 = s1.length - ofs1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[ofs2 + i | 0] = s1.codePointAt(ofs1 + i | 0); } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[ofs2 + i$1 | 0] = s1.codePointAt(ofs1 + i$1 | 0); } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[ofs2 + i$2 | 0] = /* '\000' */0; } } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } @@ -247,28 +247,28 @@ function ensure_ge(x, y) { return x; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { while(true) { - var param = _param; - var acc = _acc; + let param = _param; + let acc = _acc; if (!param) { return acc; } - var tl = param.tl; - var hd = param.hd; + let tl = param.tl; + let hd = param.hd; if (!tl) { return hd.length + acc | 0; } _param = tl; _acc = ensure_ge((hd.length + seplen | 0) + acc | 0, acc); - continue ; + continue; }; } @@ -276,24 +276,24 @@ function concat(sep, param) { if (!param) { return empty; } - var seplen = sep.length; - var dst = Caml_bytes.create(sum_lengths(0, seplen, param)); - var _pos = 0; - var _param = param; + let seplen = sep.length; + let dst = Caml_bytes.create(sum_lengths(0, seplen, param)); + let _pos = 0; + let _param = param; while(true) { - var param$1 = _param; - var pos = _pos; + let param$1 = _param; + let pos = _pos; if (!param$1) { return dst; } - var tl = param$1.tl; - var hd = param$1.hd; + let tl = param$1.tl; + let hd = param$1.hd; if (tl) { unsafe_blit(hd, 0, dst, pos, hd.length); unsafe_blit(sep, 0, dst, pos + hd.length | 0, seplen); _param = tl; _pos = (pos + hd.length | 0) + seplen | 0; - continue ; + continue; } unsafe_blit(hd, 0, dst, pos, hd.length); return dst; @@ -301,9 +301,9 @@ function concat(sep, param) { } function cat(s1, s2) { - var l1 = s1.length; - var l2 = s2.length; - var r = Caml_bytes.create(l1 + l2 | 0); + let l1 = s1.length; + let l2 = s2.length; + let r = Caml_bytes.create(l1 + l2 | 0); unsafe_blit(s1, 0, r, 0, l1); unsafe_blit(s2, 0, r, l1, l2); return r; @@ -318,12 +318,12 @@ function is_space(param) { } function trim(s) { - var len = s.length; - var i = 0; + let len = s.length; + let i = 0; while(i < len && is_space(s[i])) { i = i + 1 | 0; }; - var j = len - 1 | 0; + let j = len - 1 | 0; while(j >= i && is_space(s[j])) { j = j - 1 | 0; }; @@ -335,9 +335,9 @@ function trim(s) { } function escaped(s) { - var n = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var match = s[i]; + let n = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let match = s[i]; n = n + ( match >= 32 ? ( match > 92 || match < 34 ? ( @@ -357,11 +357,11 @@ function escaped(s) { if (n === s.length) { return copy(s); } - var s$p = Caml_bytes.create(n); + let s$p = Caml_bytes.create(n); n = 0; - for(var i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ - var c = s[i$1]; - var exit = 0; + for(let i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ + let c = s[i$1]; + let exit = 0; if (c >= 35) { if (c !== 92) { if (c >= 127) { @@ -440,24 +440,24 @@ function escaped(s) { } function map(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._1(f, s[i]); } return r; } function mapi(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._2(f, i, s[i]); } return r; @@ -475,7 +475,7 @@ function apply1(f, s) { if (s.length === 0) { return s; } - var r = copy(s); + let r = copy(s); r[0] = Curry._1(f, s[0]); return r; } @@ -490,19 +490,19 @@ function uncapitalize_ascii(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -512,15 +512,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -529,46 +529,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -579,26 +579,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -609,37 +609,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -650,74 +650,74 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var compare = Caml_bytes.bytes_compare; +let compare = Caml_bytes.bytes_compare; -var equal = Caml_bytes.bytes_equal; +let equal = Caml_bytes.bytes_equal; -var unsafe_to_string = to_string; +let unsafe_to_string = to_string; -var unsafe_of_string = of_string; +let unsafe_of_string = of_string; export { - make , - init , - empty , - copy , - of_string , - to_string , - sub , - sub_string , - extend , - fill , - blit , - blit_string , - concat , - cat , - iter , - iteri , - map , - mapi , - trim , - escaped , - index , - index_opt , - rindex , - rindex_opt , - index_from , - index_from_opt , - rindex_from , - rindex_from_opt , - contains , - contains_from , - rcontains_from , - uppercase_ascii , - lowercase_ascii , - capitalize_ascii , - uncapitalize_ascii , - compare , - equal , - unsafe_to_string , - unsafe_of_string , + make, + init, + empty, + copy, + of_string, + to_string, + sub, + sub_string, + extend, + fill, + blit, + blit_string, + concat, + cat, + iter, + iteri, + map, + mapi, + trim, + escaped, + index, + index_opt, + rindex, + rindex_opt, + index_from, + index_from_opt, + rindex_from, + rindex_from_opt, + contains, + contains_from, + rcontains_from, + uppercase_ascii, + lowercase_ascii, + capitalize_ascii, + uncapitalize_ascii, + compare, + equal, + unsafe_to_string, + unsafe_of_string, } /* No side effect */ diff --git a/lib/es6/caml_array.js b/lib/es6/caml_array.js index f72d0f6212..80fad5d5c2 100644 --- a/lib/es6/caml_array.js +++ b/lib/es6/caml_array.js @@ -2,9 +2,9 @@ function sub(x, offset, len) { - var result = new Array(len); - var j = 0; - var i = offset; + let result = new Array(len); + let j = 0; + let i = offset; while(j < len) { result[j] = x[i]; j = j + 1 | 0; @@ -15,28 +15,28 @@ function sub(x, offset, len) { function len(_acc, _l) { while(true) { - var l = _l; - var acc = _acc; + let l = _l; + let acc = _acc; if (!l) { return acc; } _l = l.tl; _acc = l.hd.length + acc | 0; - continue ; + continue; }; } function fill(arr, _i, _l) { while(true) { - var l = _l; - var i = _i; + let l = _l; + let i = _i; if (!l) { - return ; + return; } - var x = l.hd; - var l$1 = x.length; - var k = i; - var j = 0; + let x = l.hd; + let l$1 = x.length; + let k = i; + let j = 0; while(j < l$1) { arr[k] = x[j]; k = k + 1 | 0; @@ -44,13 +44,13 @@ function fill(arr, _i, _l) { }; _l = l.tl; _i = k; - continue ; + continue; }; } function concat(l) { - var v = len(0, l); - var result = new Array(v); + let v = len(0, l); + let result = new Array(v); fill(result, 0, l); return result; } @@ -58,11 +58,11 @@ function concat(l) { function set(xs, index, newval) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } xs[index] = newval; } @@ -70,26 +70,26 @@ function set(xs, index, newval) { function get(xs, index) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return xs[index]; } function make(len, init) { - var b = new Array(len); - for(var i = 0; i < len; ++i){ + let b = new Array(len); + for(let i = 0; i < len; ++i){ b[i] = init; } return b; } function make_float(len) { - var b = new Array(len); - for(var i = 0; i < len; ++i){ + let b = new Array(len); + for(let i = 0; i < len; ++i){ b[i] = 0; } return b; @@ -97,12 +97,12 @@ function make_float(len) { function blit(a1, i1, a2, i2, len) { if (i2 <= i1) { - for(var j = 0; j < len; ++j){ + for(let j = 0; j < len; ++j){ a2[j + i2 | 0] = a1[j + i1 | 0]; } - return ; + return; } - for(var j$1 = len - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = len - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + i2 | 0] = a1[j$1 + i1 | 0]; } } @@ -112,13 +112,13 @@ function dup(prim) { } export { - dup , - sub , - concat , - make , - make_float , - blit , - get , - set , + dup, + sub, + concat, + make, + make_float, + blit, + get, + set, } /* No side effect */ diff --git a/lib/es6/caml_bigint.js b/lib/es6/caml_bigint.js index 098bf20b67..82eb6a5c15 100644 --- a/lib/es6/caml_bigint.js +++ b/lib/es6/caml_bigint.js @@ -3,20 +3,22 @@ function div(x, y) { if (y === 0n) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y; } function mod_(x, y) { if (y === 0n) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } diff --git a/lib/es6/caml_bytes.js b/lib/es6/caml_bytes.js index 9d167e3835..423dc9b0e8 100644 --- a/lib/es6/caml_bytes.js +++ b/lib/es6/caml_bytes.js @@ -4,11 +4,11 @@ function set(s, i, ch) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } s[i] = ch; } @@ -16,11 +16,11 @@ function set(s, i, ch) { function get(s, i) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s[i]; } @@ -28,14 +28,14 @@ function get(s, i) { function create(len) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.create" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.create" + } + }); } - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = /* '\000' */0; } return result; @@ -43,12 +43,12 @@ function create(len) { function bytes_compare_aux(s1, s2, _off, len, def) { while(true) { - var off = _off; + let off = _off; if (off >= len) { return def; } - var a = s1[off]; - var b = s2[off]; + let a = s1[off]; + let b = s2[off]; if (a > b) { return 1; } @@ -56,13 +56,13 @@ function bytes_compare_aux(s1, s2, _off, len, def) { return -1; } _off = off + 1 | 0; - continue ; + continue; }; } function bytes_compare(s1, s2) { - var len1 = s1.length; - var len2 = s2.length; + let len1 = s1.length; + let len2 = s2.length; if (len1 === len2) { return bytes_compare_aux(s1, s2, 0, len1, 0); } else if (len1 < len2) { @@ -73,22 +73,22 @@ function bytes_compare(s1, s2) { } function bytes_equal(s1, s2) { - var len1 = s1.length; - var len2 = s2.length; + let len1 = s1.length; + let len2 = s2.length; if (len1 === len2) { - var _off = 0; + let _off = 0; while(true) { - var off = _off; + let off = _off; if (off === len1) { return true; } - var a = s1[off]; - var b = s2[off]; + let a = s1[off]; + let b = s2[off]; if (a !== b) { return false; } _off = off + 1 | 0; - continue ; + continue; }; } else { return false; @@ -112,14 +112,14 @@ function bytes_lessequal(s1, s2) { } export { - create , - get , - set , - bytes_compare , - bytes_greaterthan , - bytes_greaterequal , - bytes_lessthan , - bytes_lessequal , - bytes_equal , + create, + get, + set, + bytes_compare, + bytes_greaterthan, + bytes_greaterequal, + bytes_lessthan, + bytes_lessequal, + bytes_equal, } /* No side effect */ diff --git a/lib/es6/caml_format.js b/lib/es6/caml_format.js index 36672007de..e645606202 100644 --- a/lib/es6/caml_format.js +++ b/lib/es6/caml_format.js @@ -38,10 +38,10 @@ function int_of_string_base(param) { } function parse_sign_and_base(s) { - var sign = 1; - var base = "Dec"; - var i = 0; - var match = s.codePointAt(i); + let sign = 1; + let base = "Dec"; + let i = 0; + let match = s.codePointAt(i); switch (match) { case 43 : i = i + 1 | 0; @@ -54,7 +54,7 @@ function parse_sign_and_base(s) { } if (s.codePointAt(i) === /* '0' */48) { - var match$1 = s.codePointAt(i + 1 | 0); + let match$1 = s.codePointAt(i + 1 | 0); if (match$1 >= 89) { if (match$1 >= 111) { if (match$1 < 121) { @@ -119,83 +119,83 @@ function parse_sign_and_base(s) { } } return [ - i, - sign, - base - ]; + i, + sign, + base + ]; } function int_of_string(s) { - var match = parse_sign_and_base(s); - var i = match[0]; - var base = int_of_string_base(match[2]); - var threshold = 4294967295; - var len = s.length; - var c = i < len ? s.codePointAt(i) : /* '\000' */0; - var d = parse_digit(c); + let match = parse_sign_and_base(s); + let i = match[0]; + let base = int_of_string_base(match[2]); + let threshold = 4294967295; + let len = s.length; + let c = i < len ? s.codePointAt(i) : /* '\000' */0; + let d = parse_digit(c); if (d < 0 || d >= base) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } - var aux = function (_acc, _k) { + let aux = function (_acc, _k) { while(true) { - var k = _k; - var acc = _acc; + let k = _k; + let acc = _acc; if (k === len) { return acc; } - var a = s.codePointAt(k); + let a = s.codePointAt(k); if (a === /* '_' */95) { _k = k + 1 | 0; - continue ; + continue; } - var v = parse_digit(a); + let v = parse_digit(a); if (v < 0 || v >= base) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } - var acc$1 = base * acc + v; + let acc$1 = base * acc + v; if (acc$1 > threshold) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } _k = k + 1 | 0; _acc = acc$1; - continue ; + continue; }; }; - var res = match[1] * aux(d, i + 1 | 0); - var or_res = res | 0; + let res = match[1] * aux(d, i + 1 | 0); + let or_res = res | 0; if (base === 10 && res !== or_res) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } return or_res; } function int64_of_string(s) { - var match = parse_sign_and_base(s); - var hbase = match[2]; - var i = match[0]; - var base = Caml_int64.of_int32(int_of_string_base(hbase)); - var sign = Caml_int64.of_int32(match[1]); - var threshold; + let match = parse_sign_and_base(s); + let hbase = match[2]; + let i = match[0]; + let base = Caml_int64.of_int32(int_of_string_base(hbase)); + let sign = Caml_int64.of_int32(match[1]); + let threshold; switch (hbase) { case "Oct" : threshold = [ @@ -220,56 +220,56 @@ function int64_of_string(s) { break; } - var len = s.length; - var c = i < len ? s.codePointAt(i) : /* '\000' */0; - var d = Caml_int64.of_int32(parse_digit(c)); + let len = s.length; + let c = i < len ? s.codePointAt(i) : /* '\000' */0; + let d = Caml_int64.of_int32(parse_digit(c)); if (Caml.i64_lt(d, Caml_int64.zero) || Caml.i64_ge(d, base)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } - var aux = function (_acc, _k) { + let aux = function (_acc, _k) { while(true) { - var k = _k; - var acc = _acc; + let k = _k; + let acc = _acc; if (k === len) { return acc; } - var a = s.codePointAt(k); + let a = s.codePointAt(k); if (a === /* '_' */95) { _k = k + 1 | 0; - continue ; + continue; } - var v = Caml_int64.of_int32(parse_digit(a)); + let v = Caml_int64.of_int32(parse_digit(a)); if (Caml.i64_lt(v, Caml_int64.zero) || Caml.i64_ge(v, base) || Caml.i64_gt(acc, threshold)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } - var acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); + let acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); _k = k + 1 | 0; _acc = acc$1; - continue ; + continue; }; }; - var res = Caml_int64.mul(sign, aux(d, i + 1 | 0)); - var or_res = Caml_int64.or_(res, Caml_int64.zero); + let res = Caml_int64.mul(sign, aux(d, i + 1 | 0)); + let or_res = Caml_int64.or_(res, Caml_int64.zero); if (Caml.i64_eq(base, [ - 0, - 10 - ]) && Caml.i64_neq(res, or_res)) { + 0, + 10 + ]) && Caml.i64_neq(res, or_res)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } return or_res; } @@ -295,16 +295,16 @@ function lowercase(c) { } function parse_format(fmt) { - var len = fmt.length; + let len = fmt.length; if (len > 31) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "format_int: format too long" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "format_int: format too long" + } + }); } - var f = { + let f = { justify: "+", signstyle: "-", filter: " ", @@ -317,14 +317,14 @@ function parse_format(fmt) { prec: -1, conv: "f" }; - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= len) { return f; } - var c = fmt.codePointAt(i); - var exit = 0; + let c = fmt.codePointAt(i); + let exit = 0; if (c >= 69) { if (c >= 88) { if (c >= 121) { @@ -335,7 +335,7 @@ function parse_format(fmt) { f.base = "Hex"; f.uppercase = true; _i = i + 1 | 0; - continue ; + continue; case 101 : case 102 : case 103 : @@ -348,11 +348,11 @@ function parse_format(fmt) { case 111 : f.base = "Oct"; _i = i + 1 | 0; - continue ; + continue; case 117 : f.base = "Dec"; _i = i + 1 | 0; - continue ; + continue; case 89 : case 90 : case 91 : @@ -382,7 +382,7 @@ function parse_format(fmt) { case 120 : f.base = "Hex"; _i = i + 1 | 0; - continue ; + continue; } } @@ -393,14 +393,14 @@ function parse_format(fmt) { f.uppercase = true; f.conv = String.fromCharCode(lowercase(c)); _i = i + 1 | 0; - continue ; + continue; } } else { switch (c) { case 35 : f.alternate = true; _i = i + 1 | 0; - continue ; + continue; case 32 : case 43 : exit = 2; @@ -408,25 +408,23 @@ function parse_format(fmt) { case 45 : f.justify = "-"; _i = i + 1 | 0; - continue ; + continue; case 46 : f.prec = 0; - var j = i + 1 | 0; - while((function(j){ - return function () { - var w = fmt.codePointAt(j) - /* '0' */48 | 0; - return w >= 0 && w <= 9; - } - }(j))()) { + let j = i + 1 | 0; + while((function () { + let w = fmt.codePointAt(j) - /* '0' */48 | 0; + return w >= 0 && w <= 9; + })()) { f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - /* '0' */48 | 0; j = j + 1 | 0; }; _i = j; - continue ; + continue; case 48 : f.filter = "0"; _i = i + 1 | 0; - continue ; + continue; case 49 : case 50 : case 51 : @@ -445,51 +443,49 @@ function parse_format(fmt) { switch (exit) { case 1 : _i = i + 1 | 0; - continue ; + continue; case 2 : f.signstyle = String.fromCharCode(c); _i = i + 1 | 0; - continue ; + continue; case 3 : f.width = 0; - var j$1 = i; - while((function(j$1){ - return function () { - var w = fmt.codePointAt(j$1) - /* '0' */48 | 0; - return w >= 0 && w <= 9; - } - }(j$1))()) { + let j$1 = i; + while((function () { + let w = fmt.codePointAt(j$1) - /* '0' */48 | 0; + return w >= 0 && w <= 9; + })()) { f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - /* '0' */48 | 0; j$1 = j$1 + 1 | 0; }; _i = j$1; - continue ; + continue; case 4 : f.signedconv = true; f.base = "Dec"; _i = i + 1 | 0; - continue ; + continue; case 5 : f.signedconv = true; f.conv = String.fromCharCode(c); _i = i + 1 | 0; - continue ; + continue; } }; } function finish_formatting(config, rawbuffer) { - var justify = config.justify; - var signstyle = config.signstyle; - var filter = config.filter; - var alternate = config.alternate; - var base = config.base; - var signedconv = config.signedconv; - var width = config.width; - var uppercase = config.uppercase; - var sign = config.sign; - var len = rawbuffer.length; + let justify = config.justify; + let signstyle = config.signstyle; + let filter = config.filter; + let alternate = config.alternate; + let base = config.base; + let signedconv = config.signedconv; + let width = config.width; + let uppercase = config.uppercase; + let sign = config.sign; + let len = rawbuffer.length; if (signedconv && (sign < 0 || signstyle !== "-")) { len = len + 1 | 0; } @@ -501,9 +497,9 @@ function finish_formatting(config, rawbuffer) { } } - var buffer = ""; + let buffer = ""; if (justify === "+" && filter === " ") { - for(var _for = len; _for < width; ++_for){ + for(let _for = len; _for < width; ++_for){ buffer = buffer + filter; } } @@ -522,13 +518,13 @@ function finish_formatting(config, rawbuffer) { buffer = buffer + "0x"; } if (justify === "+" && filter === "0") { - for(var _for$1 = len; _for$1 < width; ++_for$1){ + for(let _for$1 = len; _for$1 < width; ++_for$1){ buffer = buffer + filter; } } buffer = uppercase ? buffer + rawbuffer.toUpperCase() : buffer + rawbuffer; if (justify === "-") { - for(var _for$2 = len; _for$2 < width; ++_for$2){ + for(let _for$2 = len; _for$2 < width; ++_for$2){ buffer = buffer + " "; } } @@ -539,14 +535,14 @@ function format_int(fmt, i) { if (fmt === "%d") { return String(i); } - var f = parse_format(fmt); - var i$1 = i < 0 ? ( + let f = parse_format(fmt); + let i$1 = i < 0 ? ( f.signedconv ? (f.sign = -1, (-i >>> 0)) : (i >>> 0) ) : i; - var s = i$1.toString(int_of_base(f.base)); + let s = i$1.toString(int_of_base(f.base)); if (f.prec >= 0) { f.filter = " "; - var n = f.prec - s.length | 0; + let n = f.prec - s.length | 0; if (n > 0) { s = "0".repeat(n) + s; } @@ -559,52 +555,52 @@ function dec_of_pos_int64(x) { if (!Caml.i64_lt(x, Caml_int64.zero)) { return Caml_int64.to_string(x); } - var wbase = [ + let wbase = [ 0, 10 ]; - var y = Caml_int64.discard_sign(x); - var match = Caml_int64.div_mod(y, wbase); - var match$1 = Caml_int64.div_mod(Caml_int64.add([ - 0, - 8 - ], match[1]), wbase); - var quotient = Caml_int64.add(Caml_int64.add([ - 214748364, - 3435973836 - ], match[0]), match$1[0]); + let y = Caml_int64.discard_sign(x); + let match = Caml_int64.div_mod(y, wbase); + let match$1 = Caml_int64.div_mod(Caml_int64.add([ + 0, + 8 + ], match[1]), wbase); + let quotient = Caml_int64.add(Caml_int64.add([ + 214748364, + 3435973836 + ], match[0]), match$1[0]); return Caml_int64.to_string(quotient) + "0123456789"[Caml_int64.to_int32(match$1[1])]; } function oct_of_int64(x) { - var s = ""; - var wbase = [ + let s = ""; + let wbase = [ 0, 8 ]; - var cvtbl = "01234567"; + let cvtbl = "01234567"; if (Caml.i64_lt(x, Caml_int64.zero)) { - var y = Caml_int64.discard_sign(x); - var match = Caml_int64.div_mod(y, wbase); - var quotient = Caml_int64.add([ - 268435456, - 0 - ], match[0]); - var modulus = match[1]; + let y = Caml_int64.discard_sign(x); + let match = Caml_int64.div_mod(y, wbase); + let quotient = Caml_int64.add([ + 268435456, + 0 + ], match[0]); + let modulus = match[1]; s = cvtbl[Caml_int64.to_int32(modulus)] + s; while(Caml.i64_neq(quotient, Caml_int64.zero)) { - var match$1 = Caml_int64.div_mod(quotient, wbase); + let match$1 = Caml_int64.div_mod(quotient, wbase); quotient = match$1[0]; modulus = match$1[1]; s = cvtbl[Caml_int64.to_int32(modulus)] + s; }; } else { - var match$2 = Caml_int64.div_mod(x, wbase); - var quotient$1 = match$2[0]; - var modulus$1 = match$2[1]; + let match$2 = Caml_int64.div_mod(x, wbase); + let quotient$1 = match$2[0]; + let modulus$1 = match$2[1]; s = cvtbl[Caml_int64.to_int32(modulus$1)] + s; while(Caml.i64_neq(quotient$1, Caml_int64.zero)) { - var match$3 = Caml_int64.div_mod(quotient$1, wbase); + let match$3 = Caml_int64.div_mod(quotient$1, wbase); quotient$1 = match$3[0]; modulus$1 = match$3[1]; s = cvtbl[Caml_int64.to_int32(modulus$1)] + s; @@ -617,10 +613,10 @@ function int64_format(fmt, x) { if (fmt === "%d") { return Caml_int64.to_string(x); } - var f = parse_format(fmt); - var x$1 = f.signedconv && Caml.i64_lt(x, Caml_int64.zero) ? (f.sign = -1, Caml_int64.neg(x)) : x; - var match = f.base; - var s; + let f = parse_format(fmt); + let x$1 = f.signedconv && Caml.i64_lt(x, Caml_int64.zero) ? (f.sign = -1, Caml_int64.neg(x)) : x; + let match = f.base; + let s; switch (match) { case "Oct" : s = oct_of_int64(x$1); @@ -633,10 +629,10 @@ function int64_format(fmt, x) { break; } - var fill_s; + let fill_s; if (f.prec >= 0) { f.filter = " "; - var n = f.prec - s.length | 0; + let n = f.prec - s.length | 0; fill_s = n > 0 ? "0".repeat(n) + s : s; } else { fill_s = s; @@ -645,19 +641,19 @@ function int64_format(fmt, x) { } function format_float(fmt, x) { - var f = parse_format(fmt); - var prec = f.prec < 0 ? 6 : f.prec; - var x$1 = x < 0 ? (f.sign = -1, - x) : x; - var s = ""; + let f = parse_format(fmt); + let prec = f.prec < 0 ? 6 : f.prec; + let x$1 = x < 0 ? (f.sign = -1, - x) : x; + let s = ""; if (isNaN(x$1)) { s = "nan"; f.filter = " "; } else if (isFinite(x$1)) { - var match = f.conv; + let match = f.conv; switch (match) { case "e" : s = x$1.toExponential(prec); - var i = s.length; + let i = s.length; if (s.codePointAt(i - 3 | 0) === /* 'e' */101) { s = s.slice(0, i - 1 | 0) + ("0" + s.slice(i - 1 | 0)); } @@ -666,12 +662,12 @@ function format_float(fmt, x) { s = x$1.toFixed(prec); break; case "g" : - var prec$1 = prec !== 0 ? prec : 1; + let prec$1 = prec !== 0 ? prec : 1; s = x$1.toExponential(prec$1 - 1 | 0); - var j = s.indexOf("e"); - var exp = Number(s.slice(j + 1 | 0)) | 0; + let j = s.indexOf("e"); + let exp = Number(s.slice(j + 1 | 0)) | 0; if (exp < -4 || x$1 >= 1e21 || x$1.toFixed().length > prec$1) { - var i$1 = j - 1 | 0; + let i$1 = j - 1 | 0; while(s.codePointAt(i$1) === /* '0' */48) { i$1 = i$1 - 1 | 0; }; @@ -679,26 +675,26 @@ function format_float(fmt, x) { i$1 = i$1 - 1 | 0; } s = s.slice(0, i$1 + 1 | 0) + s.slice(j); - var i$2 = s.length; + let i$2 = s.length; if (s.codePointAt(i$2 - 3 | 0) === /* 'e' */101) { s = s.slice(0, i$2 - 1 | 0) + ("0" + s.slice(i$2 - 1 | 0)); } } else { - var p = prec$1; + let p = prec$1; if (exp < 0) { p = p - (exp + 1 | 0) | 0; s = x$1.toFixed(p); } else { while((function () { - s = x$1.toFixed(p); - return s.length > (prec$1 + 1 | 0); - })()) { + s = x$1.toFixed(p); + return s.length > (prec$1 + 1 | 0); + })()) { p = p - 1 | 0; }; } if (p !== 0) { - var k = s.length - 1 | 0; + let k = s.length - 1 | 0; while(s.codePointAt(k) === /* '0' */48) { k = k - 1 | 0; }; @@ -720,7 +716,7 @@ function format_float(fmt, x) { return finish_formatting(f, s); } -var hexstring_of_float = (function(x,prec,style){ +let hexstring_of_float = (function(x,prec,style){ if (!isFinite(x)) { if (isNaN(x)) return "nan"; return x > 0 ? "infinity":"-infinity"; @@ -766,7 +762,7 @@ var hexstring_of_float = (function(x,prec,style){ return (sign_str + '0x' + x_str + 'p' + exp_sign + exp.toString(10)); }); -var float_of_string = (function(s,exn){ +let float_of_string = (function(s,exn){ var res = +s; if ((s.length > 0) && (res === res)) @@ -794,18 +790,18 @@ var float_of_string = (function(s,exn){ function float_of_string$1(s) { return float_of_string(s, { - RE_EXN_ID: "Failure", - _1: "float_of_string" - }); + RE_EXN_ID: "Failure", + _1: "float_of_string" + }); } export { - format_float , - hexstring_of_float , - format_int , + format_float, + hexstring_of_float, + format_int, float_of_string$1 as float_of_string, - int64_format , - int_of_string , - int64_of_string , + int64_format, + int_of_string, + int64_of_string, } /* No side effect */ diff --git a/lib/es6/caml_int32.js b/lib/es6/caml_int32.js index 99db89b3e6..d1e7064277 100644 --- a/lib/es6/caml_int32.js +++ b/lib/es6/caml_int32.js @@ -4,10 +4,10 @@ function div(x, y) { if (y === 0) { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y | 0; } @@ -15,16 +15,16 @@ function div(x, y) { function mod_(x, y) { if (y === 0) { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } export { - div , - mod_ , + div, + mod_, } /* No side effect */ diff --git a/lib/es6/caml_int64.js b/lib/es6/caml_int64.js index 37594877d9..be9d57507b 100644 --- a/lib/es6/caml_int64.js +++ b/lib/es6/caml_int64.js @@ -4,32 +4,32 @@ import * as Caml from "./caml.js"; function mk(lo, hi) { return [ - hi, - (lo >>> 0) - ]; + hi, + (lo >>> 0) + ]; } -var min_int = [ +let min_int = [ -2147483648, 0 ]; -var max_int = [ +let max_int = [ 2147483647, 4294967295 ]; -var one = [ +let one = [ 0, 1 ]; -var zero = [ +let zero = [ 0, 0 ]; -var neg_one = [ +let neg_one = [ -1, 4294967295 ]; @@ -43,35 +43,35 @@ function non_neg_signed(x) { } function succ(param) { - var x_lo = param[1]; - var x_hi = param[0]; - var lo = x_lo + 1 | 0; + let x_lo = param[1]; + let x_hi = param[0]; + let lo = x_lo + 1 | 0; return [ - x_hi + ( - lo === 0 ? 1 : 0 - ) | 0, - (lo >>> 0) - ]; + x_hi + ( + lo === 0 ? 1 : 0 + ) | 0, + (lo >>> 0) + ]; } function neg(param) { - var other_lo = (param[1] ^ -1) + 1 | 0; + let other_lo = (param[1] ^ -1) + 1 | 0; return [ - (param[0] ^ -1) + ( - other_lo === 0 ? 1 : 0 - ) | 0, - (other_lo >>> 0) - ]; + (param[0] ^ -1) + ( + other_lo === 0 ? 1 : 0 + ) | 0, + (other_lo >>> 0) + ]; } function add_aux(param, y_lo, y_hi) { - var x_lo = param[1]; - var lo = x_lo + y_lo | 0; - var overflow = neg_signed(x_lo) && (neg_signed(y_lo) || non_neg_signed(lo)) || neg_signed(y_lo) && non_neg_signed(lo) ? 1 : 0; + let x_lo = param[1]; + let lo = x_lo + y_lo | 0; + let overflow = neg_signed(x_lo) && (neg_signed(y_lo) || non_neg_signed(lo)) || neg_signed(y_lo) && non_neg_signed(lo) ? 1 : 0; return [ - param[0] + y_hi + overflow | 0, - (lo >>> 0) - ]; + param[0] + y_hi + overflow | 0, + (lo >>> 0) + ]; } function add(self, param) { @@ -111,8 +111,8 @@ function equal_nullable(x, y) { } function sub_aux(x, lo, hi) { - var y_lo = ((lo ^ -1) + 1 >>> 0); - var y_hi = (hi ^ -1) + ( + let y_lo = ((lo ^ -1) + 1 >>> 0); + let y_hi = (hi ^ -1) + ( y_lo === 0 ? 1 : 0 ) | 0; return add_aux(x, y_lo, y_hi); @@ -126,17 +126,17 @@ function lsl_(x, numBits) { if (numBits === 0) { return x; } - var lo = x[1]; + let lo = x[1]; if (numBits >= 32) { return [ - (lo << (numBits - 32 | 0)), - 0 - ]; + (lo << (numBits - 32 | 0)), + 0 + ]; } else { return [ - (lo >>> (32 - numBits | 0)) | (x[0] << numBits), - ((lo << numBits) >>> 0) - ]; + (lo >>> (32 - numBits | 0)) | (x[0] << numBits), + ((lo << numBits) >>> 0) + ]; } } @@ -144,23 +144,23 @@ function lsr_(x, numBits) { if (numBits === 0) { return x; } - var hi = x[0]; - var offset = numBits - 32 | 0; + let hi = x[0]; + let offset = numBits - 32 | 0; if (offset === 0) { return [ - 0, - (hi >>> 0) - ]; + 0, + (hi >>> 0) + ]; } else if (offset > 0) { return [ - 0, - (hi >>> offset) - ]; + 0, + (hi >>> offset) + ]; } else { return [ - (hi >>> numBits), - (((hi << (-offset | 0)) | (x[1] >>> numBits)) >>> 0) - ]; + (hi >>> numBits), + (((hi << (-offset | 0)) | (x[1] >>> numBits)) >>> 0) + ]; } } @@ -168,17 +168,17 @@ function asr_(x, numBits) { if (numBits === 0) { return x; } - var hi = x[0]; + let hi = x[0]; if (numBits < 32) { return [ - (hi >> numBits), - (((hi << (32 - numBits | 0)) | (x[1] >>> numBits)) >>> 0) - ]; + (hi >> numBits), + (((hi << (32 - numBits | 0)) | (x[1] >>> numBits)) >>> 0) + ]; } else { return [ - hi >= 0 ? 0 : -1, - ((hi >> (numBits - 32 | 0)) >>> 0) - ]; + hi >= 0 ? 0 : -1, + ((hi >> (numBits - 32 | 0)) >>> 0) + ]; } } @@ -192,13 +192,13 @@ function is_zero(x) { function mul(_this, _other) { while(true) { - var other = _other; - var $$this = _this; - var lo; - var this_hi = $$this[0]; - var exit = 0; - var exit$1 = 0; - var exit$2 = 0; + let other = _other; + let $$this = _this; + let lo; + let this_hi = $$this[0]; + let exit = 0; + let exit$1 = 0; + let exit$2 = 0; if (this_hi !== 0) { exit$2 = 4; } else { @@ -225,39 +225,39 @@ function mul(_this, _other) { } } if (exit === 2) { - var other_hi = other[0]; - var lo$1 = $$this[1]; - var exit$3 = 0; + let other_hi = other[0]; + let lo$1 = $$this[1]; + let exit$3 = 0; if (other_hi !== -2147483648 || other[1] !== 0) { exit$3 = 3; } else { lo = lo$1; } if (exit$3 === 3) { - var other_lo = other[1]; + let other_lo = other[1]; if (this_hi < 0) { if (other_hi >= 0) { return neg(mul(neg($$this), other)); } _other = neg(other); _this = neg($$this); - continue ; + continue; } if (other_hi < 0) { return neg(mul($$this, neg(other))); } - var a48 = (this_hi >>> 16); - var a32 = this_hi & 65535; - var a16 = (lo$1 >>> 16); - var a00 = lo$1 & 65535; - var b48 = (other_hi >>> 16); - var b32 = other_hi & 65535; - var b16 = (other_lo >>> 16); - var b00 = other_lo & 65535; - var c48 = 0; - var c32 = 0; - var c16 = 0; - var c00 = a00 * b00; + let a48 = (this_hi >>> 16); + let a32 = this_hi & 65535; + let a16 = (lo$1 >>> 16); + let a00 = lo$1 & 65535; + let b48 = (other_hi >>> 16); + let b32 = other_hi & 65535; + let b16 = (other_lo >>> 16); + let b00 = other_lo & 65535; + let c48 = 0; + let c32 = 0; + let c16 = 0; + let c00 = a00 * b00; c16 = (c00 >>> 16) + a16 * b00; c32 = (c16 >>> 16); c16 = (c16 & 65535) + a00 * b16; @@ -270,9 +270,9 @@ function mul(_this, _other) { c32 = c32 & 65535; c48 = c48 + (a48 * b00 + a32 * b16 + a16 * b32 + a00 * b48) & 65535; return [ - c32 | (c48 << 16), - ((c00 & 65535 | ((c16 & 65535) << 16)) >>> 0) - ]; + c32 | (c48 << 16), + ((c00 & 65535 | ((c16 & 65535) << 16)) >>> 0) + ]; } } @@ -286,23 +286,23 @@ function mul(_this, _other) { function xor(param, param$1) { return [ - param[0] ^ param$1[0], - ((param[1] ^ param$1[1]) >>> 0) - ]; + param[0] ^ param$1[0], + ((param[1] ^ param$1[1]) >>> 0) + ]; } function or_(param, param$1) { return [ - param[0] | param$1[0], - ((param[1] | param$1[1]) >>> 0) - ]; + param[0] | param$1[0], + ((param[1] | param$1[1]) >>> 0) + ]; } function and_(param, param$1) { return [ - param[0] & param$1[0], - ((param[1] & param$1[1]) >>> 0) - ]; + param[0] & param$1[0], + ((param[1] & param$1[1]) >>> 0) + ]; } function to_float(param) { @@ -322,17 +322,17 @@ function of_float(x) { if (x < 0) { return neg(of_float(- x)); } - var hi = x / 4294967296 | 0; - var lo = x % 4294967296 | 0; + let hi = x / 4294967296 | 0; + let lo = x % 4294967296 | 0; return [ - hi, - (lo >>> 0) - ]; + hi, + (lo >>> 0) + ]; } function isSafeInteger(param) { - var hi = param[0]; - var top11Bits = (hi >> 21); + let hi = param[0]; + let top11Bits = (hi >> 21); if (top11Bits === 0) { return true; } else if (top11Bits === -1) { @@ -353,41 +353,41 @@ function to_string(self) { return "-" + to_string(neg(self)); } } - var approx_div1 = of_float(Math.floor(to_float(self) / 10)); - var lo = approx_div1[1]; - var hi = approx_div1[0]; - var match = sub_aux(sub_aux(self, (lo << 3), (lo >>> 29) | (hi << 3)), (lo << 1), (lo >>> 31) | (hi << 1)); - var rem_lo = match[1]; - var rem_hi = match[0]; + let approx_div1 = of_float(Math.floor(to_float(self) / 10)); + let lo = approx_div1[1]; + let hi = approx_div1[0]; + let match = sub_aux(sub_aux(self, (lo << 3), (lo >>> 29) | (hi << 3)), (lo << 1), (lo >>> 31) | (hi << 1)); + let rem_lo = match[1]; + let rem_hi = match[0]; if (rem_lo === 0 && rem_hi === 0) { return to_string(approx_div1) + "0"; } if (rem_hi < 0) { - var rem_lo$1 = ((rem_lo ^ -1) + 1 >>> 0); - var delta = Math.ceil(rem_lo$1 / 10); - var remainder = 10 * delta - rem_lo$1; + let rem_lo$1 = ((rem_lo ^ -1) + 1 >>> 0); + let delta = Math.ceil(rem_lo$1 / 10); + let remainder = 10 * delta - rem_lo$1; return to_string(sub_aux(approx_div1, delta | 0, 0)) + String(remainder | 0); } - var delta$1 = Math.floor(rem_lo / 10); - var remainder$1 = rem_lo - 10 * delta$1; + let delta$1 = Math.floor(rem_lo / 10); + let remainder$1 = rem_lo - 10 * delta$1; return to_string(add_aux(approx_div1, delta$1 | 0, 0)) + String(remainder$1 | 0); } function div(_self, _other) { while(true) { - var other = _other; - var self = _self; - var self_hi = self[0]; - var exit = 0; - var exit$1 = 0; + let other = _other; + let self = _self; + let self_hi = self[0]; + let exit = 0; + let exit$1 = 0; if (other[0] !== 0 || other[1] !== 0) { exit$1 = 2; } else { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } if (exit$1 === 2) { if (self_hi !== -2147483648) { @@ -408,9 +408,9 @@ function div(_self, _other) { if (Caml.i64_eq(other, min_int)) { return one; } - var half_this = asr_(self, 1); - var approx = lsl_(div(half_this, other), 1); - var exit$2 = 0; + let half_this = asr_(self, 1); + let approx = lsl_(div(half_this, other), 1); + let exit$2 = 0; if (approx[0] !== 0) { exit$2 = 3; } else { @@ -424,15 +424,15 @@ function div(_self, _other) { exit$2 = 3; } if (exit$2 === 3) { - var rem = sub(self, mul(other, approx)); + let rem = sub(self, mul(other, approx)); return add(approx, div(rem, other)); } } } if (exit === 1) { - var other_hi = other[0]; - var exit$3 = 0; + let other_hi = other[0]; + let exit$3 = 0; if (other_hi !== -2147483648) { exit$3 = 2; } else { @@ -448,20 +448,20 @@ function div(_self, _other) { } _other = neg(other); _self = neg(self); - continue ; + continue; } if (other_hi < 0) { return neg(div(self, neg(other))); } - var res = zero; - var rem$1 = self; + let res = zero; + let rem$1 = self; while(Caml.i64_ge(rem$1, other)) { - var b = Math.floor(to_float(rem$1) / to_float(other)); - var approx$1 = 1 > b ? 1 : b; - var log2 = Math.ceil(Math.log(approx$1) / Math.LN2); - var delta = log2 <= 48 ? 1 : Math.pow(2, log2 - 48); - var approxRes = of_float(approx$1); - var approxRem = mul(approxRes, other); + let b = Math.floor(to_float(rem$1) / to_float(other)); + let approx$1 = 1 > b ? 1 : b; + let log2 = Math.ceil(Math.log(approx$1) / Math.LN2); + let delta = log2 <= 48 ? 1 : Math.pow(2, log2 - 48); + let approxRes = of_float(approx$1); + let approxRem = mul(approxRes, other); while(approxRem[0] < 0 || Caml.i64_gt(approxRem, rem$1)) { approx$1 = approx$1 - delta; approxRes = of_float(approx$1); @@ -486,24 +486,24 @@ function mod_(self, other) { } function div_mod(self, other) { - var quotient = div(self, other); + let quotient = div(self, other); return [ - quotient, - sub(self, mul(quotient, other)) - ]; + quotient, + sub(self, mul(quotient, other)) + ]; } function compare(self, other) { - var y = other[0]; - var x = self[0]; - var v = x < y ? -1 : ( + let y = other[0]; + let x = self[0]; + let v = x < y ? -1 : ( x === y ? 0 : 1 ); if (v !== 0) { return v; } - var y$1 = other[1]; - var x$1 = self[1]; + let y$1 = other[1]; + let x$1 = self[1]; if (x$1 < y$1) { return -1; } else if (x$1 === y$1) { @@ -515,9 +515,9 @@ function compare(self, other) { function of_int32(lo) { return [ - lo < 0 ? -1 : 0, - (lo >>> 0) - ]; + lo < 0 ? -1 : 0, + (lo >>> 0) + ]; } function to_int32(x) { @@ -525,9 +525,9 @@ function to_int32(x) { } function to_hex(x) { - var x_lo = x[1]; - var x_hi = x[0]; - var aux = function (v) { + let x_lo = x[1]; + let x_hi = x[0]; + let aux = function (v) { return (v >>> 0).toString(16); }; if (x_hi === 0 && x_lo === 0) { @@ -539,8 +539,8 @@ function to_hex(x) { if (x_hi === 0) { return aux(x_lo); } - var lo = aux(x_lo); - var pad = 8 - lo.length | 0; + let lo = aux(x_lo); + let pad = 8 - lo.length | 0; if (pad <= 0) { return aux(x_hi) + lo; } else { @@ -550,9 +550,9 @@ function to_hex(x) { function discard_sign(x) { return [ - 2147483647 & x[0], - x[1] - ]; + 2147483647 & x[0], + x[1] + ]; } function float_of_bits(x) { @@ -560,48 +560,48 @@ function float_of_bits(x) { } function bits_of_float(x) { - var match = (function(x){return new Int32Array(new Float64Array([x]).buffer)})(x); + let match = (function(x){return new Int32Array(new Float64Array([x]).buffer)})(x); return [ - match[1], - (match[0] >>> 0) - ]; + match[1], + (match[0] >>> 0) + ]; } export { - mk , - succ , - min_int , - max_int , - one , - zero , - neg_one , - of_int32 , - to_int32 , - add , - neg , - sub , - lsl_ , - lsr_ , - asr_ , - is_zero , - mul , - xor , - or_ , - and_ , - equal , - equal_null , - equal_undefined , - equal_nullable , - to_float , - of_float , - div , - mod_ , - compare , - float_of_bits , - bits_of_float , - div_mod , - to_hex , - discard_sign , - to_string , + mk, + succ, + min_int, + max_int, + one, + zero, + neg_one, + of_int32, + to_int32, + add, + neg, + sub, + lsl_, + lsr_, + asr_, + is_zero, + mul, + xor, + or_, + and_, + equal, + equal_null, + equal_undefined, + equal_nullable, + to_float, + of_float, + div, + mod_, + compare, + float_of_bits, + bits_of_float, + div_mod, + to_hex, + discard_sign, + to_string, } /* No side effect */ diff --git a/lib/es6/caml_module.js b/lib/es6/caml_module.js index 76e7517fa8..29fd105708 100644 --- a/lib/es6/caml_module.js +++ b/lib/es6/caml_module.js @@ -3,21 +3,21 @@ import * as Caml_obj from "./caml_obj.js"; function init_mod(loc, shape) { - var undef_module = function (param) { + let undef_module = function (param) { throw new Error("Undefined_recursive_module", { - cause: { - RE_EXN_ID: "Undefined_recursive_module", - _1: loc - } - }); + cause: { + RE_EXN_ID: "Undefined_recursive_module", + _1: loc + } + }); }; - var loop = function (shape, struct_, idx) { + let loop = function (shape, struct_, idx) { if (typeof shape !== "object") { switch (shape) { case "Function" : case "Lazy" : struct_[idx] = undef_module; - return ; + return; case "Class" : struct_[idx] = [ undef_module, @@ -25,38 +25,38 @@ function init_mod(loc, shape) { undef_module, 0 ]; - return ; + return; } } else { if (shape.TAG === "Module") { - var comps = shape._0; - var v = {}; + let comps = shape._0; + let v = {}; struct_[idx] = v; - var len = comps.length; - for(var i = 0; i < len; ++i){ - var match = comps[i]; + let len = comps.length; + for(let i = 0; i < len; ++i){ + let match = comps[i]; loop(match[0], v, match[1]); } - return ; + return; } struct_[idx] = shape._0; - return ; + return; } }; - var res = {}; - var dummy_name = "dummy"; + let res = {}; + let dummy_name = "dummy"; loop(shape, res, dummy_name); return res[dummy_name]; } function update_mod(shape, o, n) { - var aux = function (shape, o, n, parent, i) { + let aux = function (shape, o, n, parent, i) { if (typeof shape !== "object") { switch (shape) { case "Function" : parent[i] = n; - return ; + return; case "Lazy" : case "Class" : return Caml_obj.update_dummy(o, n); @@ -64,52 +64,52 @@ function update_mod(shape, o, n) { } } else { if (shape.TAG !== "Module") { - return ; + return; } - var comps = shape._0; - for(var i$1 = 0 ,i_finish = comps.length; i$1 < i_finish; ++i$1){ - var match = comps[i$1]; - var name = match[1]; + let comps = shape._0; + for(let i$1 = 0 ,i_finish = comps.length; i$1 < i_finish; ++i$1){ + let match = comps[i$1]; + let name = match[1]; aux(match[0], o[name], n[name], o, name); } - return ; + return; } }; if (typeof shape !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } if (shape.TAG === "Module") { - var comps = shape._0; - for(var i = 0 ,i_finish = comps.length; i < i_finish; ++i){ - var match = comps[i]; - var name = match[1]; + let comps = shape._0; + for(let i = 0 ,i_finish = comps.length; i < i_finish; ++i){ + let match = comps[i]; + let name = match[1]; aux(match[0], o[name], n[name], o, name); } - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } export { - init_mod , - update_mod , + init_mod, + update_mod, } /* No side effect */ diff --git a/lib/es6/caml_obj.js b/lib/es6/caml_obj.js index d6aa1ec9ce..a06bdb193f 100644 --- a/lib/es6/caml_obj.js +++ b/lib/es6/caml_obj.js @@ -2,10 +2,10 @@ import * as Caml from "./caml.js"; -var for_in = (function(o,foo){ +let for_in = (function(o,foo){ for (var x in o) { foo(x) }}); -var obj_dup = (function(x){ +let obj_dup = (function(x){ if(Array.isArray(x)){ var len = x.length var v = new Array(len) @@ -20,7 +20,7 @@ var obj_dup = (function(x){ return Object.assign({},x) }); -var update_dummy = (function(x,y){ +let update_dummy = (function(x,y){ var k if(Array.isArray(y)){ for(k = 0; k < y.length ; ++k){ @@ -40,8 +40,8 @@ function compare(a, b) { if (a === b) { return 0; } - var a_type = typeof a; - var b_type = typeof b; + let a_type = typeof a; + let b_type = typeof b; switch (a_type) { case "bigint" : if (b_type === "bigint") { @@ -56,11 +56,11 @@ function compare(a, b) { case "function" : if (b_type === "function") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "compare: functional value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "compare: functional value" + } + }); } break; case "number" : @@ -132,18 +132,18 @@ function compare(a, b) { return -1; } } - var tag_a = a.TAG; - var tag_b = b.TAG; + let tag_a = a.TAG; + let tag_b = b.TAG; if (tag_a === 248) { return Caml.int_compare(a[1], b[1]); } if (tag_a === 251) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { if (tag_a < tag_b) { @@ -152,22 +152,22 @@ function compare(a, b) { return 1; } } - var len_a = a.length | 0; - var len_b = b.length | 0; + let len_a = a.length | 0; + let len_b = b.length | 0; if (len_a === len_b) { if (Array.isArray(a)) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len_a) { return 0; } - var res = compare(a[i], b[i]); + let res = compare(a[i], b[i]); if (res !== 0) { return res; } _i = i + 1 | 0; - continue ; + continue; }; } else if ((a instanceof Date && b instanceof Date)) { return (a - b); @@ -175,78 +175,78 @@ function compare(a, b) { return aux_obj_compare(a, b); } } else if (len_a < len_b) { - var _i$1 = 0; + let _i$1 = 0; while(true) { - var i$1 = _i$1; + let i$1 = _i$1; if (i$1 === len_a) { return -1; } - var res$1 = compare(a[i$1], b[i$1]); + let res$1 = compare(a[i$1], b[i$1]); if (res$1 !== 0) { return res$1; } _i$1 = i$1 + 1 | 0; - continue ; + continue; }; } else { - var _i$2 = 0; + let _i$2 = 0; while(true) { - var i$2 = _i$2; + let i$2 = _i$2; if (i$2 === len_b) { return 1; } - var res$2 = compare(a[i$2], b[i$2]); + let res$2 = compare(a[i$2], b[i$2]); if (res$2 !== 0) { return res$2; } _i$2 = i$2 + 1 | 0; - continue ; + continue; }; } } } function aux_obj_compare(a, b) { - var min_key_lhs = { + let min_key_lhs = { contents: undefined }; - var min_key_rhs = { + let min_key_rhs = { contents: undefined }; - var do_key = function (param, key) { - var min_key = param[2]; - var b = param[1]; + let do_key = function (param, key) { + let min_key = param[2]; + let b = param[1]; if (!(!Object.prototype.hasOwnProperty.call(b, key) || compare(param[0][key], b[key]) > 0)) { - return ; + return; } - var mk = min_key.contents; + let mk = min_key.contents; if (mk !== undefined && key >= mk) { - return ; + return; } else { min_key.contents = key; - return ; + return; } }; - var partial_arg = [ + let partial_arg = [ a, b, min_key_rhs ]; - var do_key_a = function (param) { + let do_key_a = function (param) { return do_key(partial_arg, param); }; - var partial_arg$1 = [ + let partial_arg$1 = [ b, a, min_key_lhs ]; - var do_key_b = function (param) { + let do_key_b = function (param) { return do_key(partial_arg$1, param); }; for_in(a, do_key_a); for_in(b, do_key_b); - var match = min_key_lhs.contents; - var match$1 = min_key_rhs.contents; + let match = min_key_lhs.contents; + let match$1 = min_key_rhs.contents; if (match !== undefined) { if (match$1 !== undefined) { return Caml.string_compare(match, match$1); @@ -264,45 +264,45 @@ function equal(a, b) { if (a === b) { return true; } - var a_type = typeof a; + let a_type = typeof a; if (a_type === "string" || a_type === "number" || a_type === "bigint" || a_type === "boolean" || a_type === "undefined" || a === null) { return false; } - var b_type = typeof b; + let b_type = typeof b; if (a_type === "function" || b_type === "function") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: functional value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: functional value" + } + }); } if (b_type === "number" || b_type === "bigint" || b_type === "undefined" || b === null) { return false; } - var tag_a = a.TAG; - var tag_b = b.TAG; + let tag_a = a.TAG; + let tag_b = b.TAG; if (tag_a === 248) { return a[1] === b[1]; } if (tag_a === 251) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { return false; } - var len_a = a.length | 0; - var len_b = b.length | 0; + let len_a = a.length | 0; + let len_b = b.length | 0; if (len_a === len_b) { if (Array.isArray(a)) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len_a) { return true; } @@ -310,25 +310,25 @@ function equal(a, b) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } else if ((a instanceof Date && b instanceof Date)) { return !(a > b || a < b); } else { - var result = { + let result = { contents: true }; - var do_key_a = function (key) { + let do_key_a = function (key) { if (!Object.prototype.hasOwnProperty.call(b, key)) { result.contents = false; - return ; + return; } }; - var do_key_b = function (key) { + let do_key_b = function (key) { if (!Object.prototype.hasOwnProperty.call(a, key) || !equal(b[key], a[key])) { result.contents = false; - return ; + return; } }; @@ -424,19 +424,19 @@ function max(x, y) { } export { - obj_dup , - update_dummy , - compare , - equal , - equal_null , - equal_undefined , - equal_nullable , - notequal , - greaterequal , - greaterthan , - lessthan , - lessequal , - min , - max , + obj_dup, + update_dummy, + compare, + equal, + equal_null, + equal_undefined, + equal_nullable, + notequal, + greaterequal, + greaterthan, + lessthan, + lessequal, + min, + max, } /* No side effect */ diff --git a/lib/es6/caml_string.js b/lib/es6/caml_string.js index 7c8ced30da..4ed21b8024 100644 --- a/lib/es6/caml_string.js +++ b/lib/es6/caml_string.js @@ -4,11 +4,11 @@ function get(s, i) { if (i >= s.length || i < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s.codePointAt(i); } @@ -18,7 +18,7 @@ function make(n, ch) { } export { - get , - make , + get, + make, } /* No side effect */ diff --git a/lib/es6/caml_sys.js b/lib/es6/caml_sys.js index 35041b2011..3cc823d755 100644 --- a/lib/es6/caml_sys.js +++ b/lib/es6/caml_sys.js @@ -4,23 +4,23 @@ function sys_getenv(s) { if (typeof process === "undefined" || process.env === undefined) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var x = process.env[s]; + let x = process.env[s]; if (x !== undefined) { return x; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var os_type = (function(_){ +let os_type = (function(_){ if(typeof process !== 'undefined' && process.platform === 'win32'){ return "Win32" } @@ -37,7 +37,7 @@ function sys_time(param) { } } -var sys_getcwd = (function(param){ +let sys_getcwd = (function(param){ if (typeof process === "undefined" || process.cwd === undefined){ return "/" } @@ -47,21 +47,21 @@ var sys_getcwd = (function(param){ function sys_get_argv(param) { if (typeof process === "undefined") { return [ - "", - [""] - ]; + "", + [""] + ]; } - var argv = process.argv; + let argv = process.argv; if (argv == null) { return [ - "", - [""] - ]; + "", + [""] + ]; } else { return [ - argv[0], - argv - ]; + argv[0], + argv + ]; } } @@ -74,30 +74,30 @@ function sys_exit(exit_code) { function sys_is_directory(_s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "sys_is_directory not implemented" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "sys_is_directory not implemented" + } + }); } function sys_file_exists(_s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "sys_file_exists not implemented" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "sys_file_exists not implemented" + } + }); } export { - sys_getenv , - sys_time , - os_type , - sys_getcwd , - sys_get_argv , - sys_exit , - sys_is_directory , - sys_file_exists , + sys_getenv, + sys_time, + os_type, + sys_getcwd, + sys_get_argv, + sys_exit, + sys_is_directory, + sys_file_exists, } /* No side effect */ diff --git a/lib/es6/camlinternalLazy.js b/lib/es6/camlinternalLazy.js index 303a51db60..cf6061cc29 100644 --- a/lib/es6/camlinternalLazy.js +++ b/lib/es6/camlinternalLazy.js @@ -6,10 +6,10 @@ function is_val(l) { return l.LAZY_DONE; } -var Undefined = /* @__PURE__ */Caml_exceptions.create("CamlinternalLazy.Undefined"); +let Undefined = /* @__PURE__ */Caml_exceptions.create("CamlinternalLazy.Undefined"); function forward_with_closure(blk, closure) { - var result = closure(); + let result = closure(); blk.VAL = result; blk.LAZY_DONE = true; return result; @@ -17,30 +17,30 @@ function forward_with_closure(blk, closure) { function raise_undefined() { throw new Error(Undefined, { - cause: { - RE_EXN_ID: Undefined - } - }); + cause: { + RE_EXN_ID: Undefined + } + }); } function force(lzv) { if (lzv.LAZY_DONE) { return lzv.VAL; } else { - var closure = lzv.VAL; + let closure = lzv.VAL; lzv.VAL = raise_undefined; try { return forward_with_closure(lzv, closure); } catch (e){ lzv.VAL = (function () { - throw new Error(e.RE_EXN_ID, { - cause: e - }); - }); + throw new Error(e.RE_EXN_ID, { + cause: e + }); + }); throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } } } @@ -49,7 +49,7 @@ function force_val(lzv) { if (lzv.LAZY_DONE) { return lzv.VAL; } else { - var closure = lzv.VAL; + let closure = lzv.VAL; lzv.VAL = raise_undefined; return forward_with_closure(lzv, closure); } @@ -57,24 +57,24 @@ function force_val(lzv) { function from_fun(closure) { return { - LAZY_DONE: false, - VAL: closure - }; + LAZY_DONE: false, + VAL: closure + }; } function from_val(value) { return { - LAZY_DONE: true, - VAL: value - }; + LAZY_DONE: true, + VAL: value + }; } export { - Undefined , - force , - force_val , - is_val , - from_fun , - from_val , + Undefined, + force, + force_val, + is_val, + from_fun, + from_val, } /* No side effect */ diff --git a/lib/es6/char.js b/lib/es6/char.js index 4d11e15283..3e41fcddf6 100644 --- a/lib/es6/char.js +++ b/lib/es6/char.js @@ -5,17 +5,17 @@ import * as Bytes from "./bytes.js"; function chr(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Char.chr" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Char.chr" + } + }); } return n; } function escaped(param) { - var exit = 0; + let exit = 0; if (param >= 40) { if (param === 92) { return "\\\\"; @@ -55,7 +55,7 @@ function escaped(param) { } switch (exit) { case 1 : - var s = [ + let s = [ 0, 0, 0, @@ -67,7 +67,7 @@ function escaped(param) { s[3] = 48 + param % 10 | 0; return Bytes.to_string(s); case 2 : - var s$1 = [0]; + let s$1 = [0]; s$1[0] = param; return Bytes.to_string(s$1); @@ -115,13 +115,13 @@ function equal(c1, c2) { } export { - chr , - escaped , - lowercase , - uppercase , - lowercase_ascii , - uppercase_ascii , - compare , - equal , + chr, + escaped, + lowercase, + uppercase, + lowercase_ascii, + uppercase_ascii, + compare, + equal, } /* No side effect */ diff --git a/lib/es6/digest.js b/lib/es6/digest.js index b34d80a6a9..61ae4600ec 100644 --- a/lib/es6/digest.js +++ b/lib/es6/digest.js @@ -18,11 +18,11 @@ function bytes(b) { function substring(str, ofs, len) { if (ofs < 0 || len < 0 || ofs > (str.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.substring" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.substring" + } + }); } return Caml_md5.md5_string(str, ofs, len); } @@ -33,22 +33,22 @@ function subbytes(b, ofs, len) { function char_hex(n) { return n + ( - n < 10 ? /* '0' */48 : 87 - ) | 0; + n < 10 ? /* '0' */48 : 87 + ) | 0; } function to_hex(d) { if (d.length !== 16) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.to_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.to_hex" + } + }); } - var result = Caml_bytes.create(32); - for(var i = 0; i <= 15; ++i){ - var x = Caml_string.get(d, i); + let result = Caml_bytes.create(32); + for(let i = 0; i <= 15; ++i){ + let x = Caml_string.get(d, i); result[(i << 1)] = char_hex((x >>> 4)); result[(i << 1) + 1 | 0] = char_hex(x & 15); } @@ -58,67 +58,67 @@ function to_hex(d) { function from_hex(s) { if (s.length !== 32) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } - var digit = function (c) { + let digit = function (c) { if (c >= 65) { if (c >= 97) { if (c >= 103) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'a' */97 | 0) + 10 | 0; } if (c >= 71) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'A' */65 | 0) + 10 | 0; } if (c > 57 || c < 48) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return c - /* '0' */48 | 0; }; - var $$byte = function (i) { + let $$byte = function (i) { return (digit(Caml_string.get(s, i)) << 4) + digit(Caml_string.get(s, i + 1 | 0)) | 0; }; - var result = Caml_bytes.create(16); - for(var i = 0; i <= 15; ++i){ + let result = Caml_bytes.create(16); + for(let i = 0; i <= 15; ++i){ Caml_bytes.set(result, i, Char.chr($$byte((i << 1)))); } return Bytes.unsafe_to_string(result); } -var compare = $$String.compare; +let compare = $$String.compare; -var equal = $$String.equal; +let equal = $$String.equal; export { - compare , - equal , - string , - bytes , - substring , - subbytes , - to_hex , - from_hex , + compare, + equal, + string, + bytes, + substring, + subbytes, + to_hex, + from_hex, } /* No side effect */ diff --git a/lib/es6/filename.js b/lib/es6/filename.js index b89d353fc5..ed11551906 100644 --- a/lib/es6/filename.js +++ b/lib/es6/filename.js @@ -13,17 +13,17 @@ function generic_basename(is_dir_sep, current_dir_name, name) { if (name === "") { return current_dir_name; } else { - var _n = name.length - 1 | 0; + let _n = name.length - 1 | 0; while(true) { - var n = _n; + let n = _n; if (n < 0) { return $$String.sub(name, 0, 1); } if (!Curry._2(is_dir_sep, name, n)) { - var _n$1 = n; - var p = n + 1 | 0; + let _n$1 = n; + let p = n + 1 | 0; while(true) { - var n$1 = _n$1; + let n$1 = _n$1; if (n$1 < 0) { return $$String.sub(name, 0, p); } @@ -31,11 +31,11 @@ function generic_basename(is_dir_sep, current_dir_name, name) { return $$String.sub(name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0); } _n$1 = n$1 - 1 | 0; - continue ; + continue; }; } _n = n - 1 | 0; - continue ; + continue; }; } } @@ -44,23 +44,23 @@ function generic_dirname(is_dir_sep, current_dir_name, name) { if (name === "") { return current_dir_name; } else { - var _n = name.length - 1 | 0; + let _n = name.length - 1 | 0; while(true) { - var n = _n; + let n = _n; if (n < 0) { return $$String.sub(name, 0, 1); } if (!Curry._2(is_dir_sep, name, n)) { - var _n$1 = n; + let _n$1 = n; while(true) { - var n$1 = _n$1; + let n$1 = _n$1; if (n$1 < 0) { return current_dir_name; } if (Curry._2(is_dir_sep, name, n$1)) { - var _n$2 = n$1; + let _n$2 = n$1; while(true) { - var n$2 = _n$2; + let n$2 = _n$2; if (n$2 < 0) { return $$String.sub(name, 0, 1); } @@ -68,20 +68,20 @@ function generic_dirname(is_dir_sep, current_dir_name, name) { return $$String.sub(name, 0, n$2 + 1 | 0); } _n$2 = n$2 - 1 | 0; - continue ; + continue; }; } _n$1 = n$1 - 1 | 0; - continue ; + continue; }; } _n = n - 1 | 0; - continue ; + continue; }; } } -var current_dir_name = "."; +let current_dir_name = "."; function is_dir_sep(s, i) { return Caml_string.get(s, i) === /* '/' */47; @@ -115,28 +115,28 @@ function check_suffix(name, suff) { } } -var temp_dir_name; +let temp_dir_name; try { temp_dir_name = Caml_sys.sys_getenv("TMPDIR"); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { temp_dir_name = "/tmp"; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function quote(param) { - var quotequote = "'\\''"; - var l = param.length; - var b = $$Buffer.create(l + 20 | 0); + let quotequote = "'\\''"; + let l = param.length; + let b = $$Buffer.create(l + 20 | 0); $$Buffer.add_char(b, /* '\'' */39); - for(var i = 0; i < l; ++i){ + for(let i = 0; i < l; ++i){ if (Caml_string.get(param, i) === /* '\'' */39) { $$Buffer.add_string(b, quotequote); } else { @@ -155,10 +155,10 @@ function dirname(param) { return generic_dirname(is_dir_sep, current_dir_name, param); } -var current_dir_name$1 = "."; +let current_dir_name$1 = "."; function is_dir_sep$1(s, i) { - var c = Caml_string.get(s, i); + let c = Caml_string.get(s, i); if (c === /* '/' */47 || c === /* '\\' */92) { return true; } else { @@ -194,37 +194,37 @@ function check_suffix$1(name, suff) { if (name.length < suff.length) { return false; } - var s = $$String.sub(name, name.length - suff.length | 0, suff.length); + let s = $$String.sub(name, name.length - suff.length | 0, suff.length); return Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(s))) === Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(suff))); } -var temp_dir_name$1; +let temp_dir_name$1; try { temp_dir_name$1 = Caml_sys.sys_getenv("TEMP"); } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { temp_dir_name$1 = "."; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } function quote$1(s) { - var l = s.length; - var b = $$Buffer.create(l + 20 | 0); + let l = s.length; + let b = $$Buffer.create(l + 20 | 0); $$Buffer.add_char(b, /* '"' */34); - var loop = function (_i) { + let loop = function (_i) { while(true) { - var i = _i; + let i = _i; if (i === l) { return $$Buffer.add_char(b, /* '"' */34); } - var c = Caml_string.get(s, i); + let c = Caml_string.get(s, i); if (c === 34) { return loop_bs(0, i); } @@ -233,18 +233,18 @@ function quote$1(s) { } $$Buffer.add_char(b, c); _i = i + 1 | 0; - continue ; + continue; }; }; - var loop_bs = function (_n, _i) { + let loop_bs = function (_n, _i) { while(true) { - var i = _i; - var n = _n; + let i = _i; + let n = _n; if (i === l) { $$Buffer.add_char(b, /* '"' */34); return add_bs(n); } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match !== 34) { if (match !== 92) { add_bs(n); @@ -252,15 +252,15 @@ function quote$1(s) { } _i = i + 1 | 0; _n = n + 1 | 0; - continue ; + continue; } add_bs((n << 1) + 1 | 0); $$Buffer.add_char(b, /* '"' */34); return loop(i + 1 | 0); }; }; - var add_bs = function (n) { - for(var _j = 1; _j <= n; ++_j){ + let add_bs = function (n) { + for(let _j = 1; _j <= n; ++_j){ $$Buffer.add_char(b, /* '\\' */92); } }; @@ -269,7 +269,7 @@ function quote$1(s) { } function has_drive(s) { - var is_letter = function (param) { + let is_letter = function (param) { if (param >= 91) { return !(param > 122 || param < 97); } else { @@ -286,29 +286,29 @@ function has_drive(s) { function drive_and_path(s) { if (has_drive(s)) { return [ - $$String.sub(s, 0, 2), - $$String.sub(s, 2, s.length - 2 | 0) - ]; + $$String.sub(s, 0, 2), + $$String.sub(s, 2, s.length - 2 | 0) + ]; } else { return [ - "", - s - ]; + "", + s + ]; } } function dirname$1(s) { - var match = drive_and_path(s); - var dir = generic_dirname(is_dir_sep$1, current_dir_name$1, match[1]); + let match = drive_and_path(s); + let dir = generic_dirname(is_dir_sep$1, current_dir_name$1, match[1]); return match[0] + dir; } function basename$1(s) { - var match = drive_and_path(s); + let match = drive_and_path(s); return generic_basename(is_dir_sep$1, current_dir_name$1, match[1]); } -var current_dir_name$2 = "."; +let current_dir_name$2 = "."; function basename$2(param) { return generic_basename(is_dir_sep$1, current_dir_name$2, param); @@ -318,7 +318,7 @@ function dirname$2(param) { return generic_dirname(is_dir_sep$1, current_dir_name$2, param); } -var match; +let match; switch (Sys.os_type) { case "Cygwin" : @@ -367,14 +367,14 @@ switch (Sys.os_type) { ]; } -var temp_dir_name$2 = match[7]; +let temp_dir_name$2 = match[7]; -var is_dir_sep$2 = match[3]; +let is_dir_sep$2 = match[3]; -var dir_sep = match[2]; +let dir_sep = match[2]; function concat(dirname, filename) { - var l = dirname.length; + let l = dirname.length; if (l === 0 || Curry._2(is_dir_sep$2, dirname, l - 1 | 0)) { return dirname + filename; } else { @@ -383,29 +383,29 @@ function concat(dirname, filename) { } function chop_suffix(name, suff) { - var n = name.length - suff.length | 0; + let n = name.length - suff.length | 0; if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_suffix" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_suffix" + } + }); } return $$String.sub(name, 0, n); } function extension_len(name) { - var _i = name.length - 1 | 0; + let _i = name.length - 1 | 0; while(true) { - var i = _i; + let i = _i; if (i < 0 || Curry._2(is_dir_sep$2, name, i)) { return 0; } if (Caml_string.get(name, i) === /* '.' */46) { - var _i$1 = i - 1 | 0; + let _i$1 = i - 1 | 0; while(true) { - var i$1 = _i$1; + let i$1 = _i$1; if (i$1 < 0 || Curry._2(is_dir_sep$2, name, i$1)) { return 0; } @@ -413,16 +413,16 @@ function extension_len(name) { return name.length - i | 0; } _i$1 = i$1 - 1 | 0; - continue ; + continue; }; } _i = i - 1 | 0; - continue ; + continue; }; } function extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { return ""; } else { @@ -431,20 +431,20 @@ function extension(name) { } function chop_extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_extension" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_extension" + } + }); } return $$String.sub(name, 0, name.length - l | 0); } function remove_extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { return name; } else { @@ -452,7 +452,7 @@ function remove_extension(name) { } } -var current_temp_dir_name = { +let current_temp_dir_name = { contents: temp_dir_name$2 }; @@ -464,38 +464,38 @@ function get_temp_dir_name(param) { return current_temp_dir_name.contents; } -var current_dir_name$3 = match[0]; +let current_dir_name$3 = match[0]; -var parent_dir_name = match[1]; +let parent_dir_name = match[1]; -var is_relative$2 = match[4]; +let is_relative$2 = match[4]; -var is_implicit$2 = match[5]; +let is_implicit$2 = match[5]; -var check_suffix$2 = match[6]; +let check_suffix$2 = match[6]; -var basename$3 = match[9]; +let basename$3 = match[9]; -var dirname$3 = match[10]; +let dirname$3 = match[10]; -var quote$2 = match[8]; +let quote$2 = match[8]; export { current_dir_name$3 as current_dir_name, - parent_dir_name , - dir_sep , - concat , + parent_dir_name, + dir_sep, + concat, is_relative$2 as is_relative, is_implicit$2 as is_implicit, check_suffix$2 as check_suffix, - chop_suffix , - extension , - remove_extension , - chop_extension , + chop_suffix, + extension, + remove_extension, + chop_extension, basename$3 as basename, dirname$3 as dirname, - get_temp_dir_name , - set_temp_dir_name , + get_temp_dir_name, + set_temp_dir_name, temp_dir_name$2 as temp_dir_name, quote$2 as quote, } diff --git a/lib/es6/genlex.js b/lib/es6/genlex.js index 3eb8c4f279..9d45e7fdd2 100644 --- a/lib/es6/genlex.js +++ b/lib/es6/genlex.js @@ -10,13 +10,13 @@ import * as Caml_format from "./caml_format.js"; import * as Caml_string from "./caml_string.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var initial_buffer = Caml_bytes.create(32); +let initial_buffer = Caml_bytes.create(32); -var buffer = { +let buffer = { contents: initial_buffer }; -var bufpos = { +let bufpos = { contents: 0 }; @@ -27,7 +27,7 @@ function reset_buffer(param) { function store(c) { if (bufpos.contents >= buffer.contents.length) { - var newbuffer = Caml_bytes.create((bufpos.contents << 1)); + let newbuffer = Caml_bytes.create((bufpos.contents << 1)); Bytes.blit(buffer.contents, 0, newbuffer, 0, bufpos.contents); buffer.contents = newbuffer; } @@ -36,63 +36,63 @@ function store(c) { } function get_string(param) { - var s = Bytes.sub_string(buffer.contents, 0, bufpos.contents); + let s = Bytes.sub_string(buffer.contents, 0, bufpos.contents); buffer.contents = initial_buffer; return s; } function make_lexer(keywords) { - var kwd_table = Hashtbl.create(undefined, 17); + let kwd_table = Hashtbl.create(undefined, 17); List.iter((function (s) { - Hashtbl.add(kwd_table, s, { - TAG: "Kwd", - _0: s - }); - }), keywords); - var ident_or_keyword = function (id) { + Hashtbl.add(kwd_table, s, { + TAG: "Kwd", + _0: s + }); + }), keywords); + let ident_or_keyword = function (id) { try { return Hashtbl.find(kwd_table, id); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return { - TAG: "Ident", - _0: id - }; + TAG: "Ident", + _0: id + }; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; - var keyword_or_error = function (c) { - var s = Caml_string.make(1, c); + let keyword_or_error = function (c) { + let s = Caml_string.make(1, c); try { return Hashtbl.find(kwd_table, s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "Illegal character " + s - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "Illegal character " + s + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; - var next_token = function (strm__) { + let next_token = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { - return ; + return; } - var exit = 0; + let exit = 0; if (c < 124) { if (c > 122 || c < 65) { if (c >= 123) { @@ -106,59 +106,59 @@ function make_lexer(keywords) { case 26 : case 32 : Stream.junk(strm__); - continue ; + continue; case 34 : Stream.junk(strm__); reset_buffer(); return { - TAG: "String", - _0: string(strm__) - }; + TAG: "String", + _0: string(strm__) + }; case 39 : Stream.junk(strm__); - var c$1; + let c$1; try { c$1 = $$char(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } - var match = Stream.peek(strm__); + let match = Stream.peek(strm__); if (match !== undefined) { if (match !== 39) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); - } - Stream.junk(strm__); - return { - TAG: "Char", - _0: c$1 - }; - } - throw new Error(Stream.$$Error, { cause: { RE_EXN_ID: Stream.$$Error, _1: "" } }); + } + Stream.junk(strm__); + return { + TAG: "Char", + _0: c$1 + }; + } + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); case 40 : Stream.junk(strm__); - var match$1 = Stream.peek(strm__); + let match$1 = Stream.peek(strm__); if (match$1 === 42) { Stream.junk(strm__); comment(strm__); @@ -168,7 +168,7 @@ function make_lexer(keywords) { } case 45 : Stream.junk(strm__); - var c$2 = Stream.peek(strm__); + let c$2 = Stream.peek(strm__); if (c$2 !== undefined && !(c$2 > 57 || c$2 < 48)) { Stream.junk(strm__); reset_buffer(); @@ -275,7 +275,7 @@ function make_lexer(keywords) { reset_buffer(); store(c); while(true) { - var c$3 = Stream.peek(strm__); + let c$3 = Stream.peek(strm__); if (c$3 === undefined) { return ident_or_keyword(get_string()); } @@ -299,7 +299,7 @@ function make_lexer(keywords) { } Stream.junk(strm__); store(c$3); - continue ; + continue; }; case 3 : Stream.junk(strm__); @@ -315,9 +315,9 @@ function make_lexer(keywords) { } }; }; - var ident2 = function (strm__) { + let ident2 = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { return ident_or_keyword(get_string()); } @@ -380,12 +380,12 @@ function make_lexer(keywords) { } Stream.junk(strm__); store(c); - continue ; + continue; }; }; - var number = function (strm__) { + let number = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c !== undefined) { if (c >= 58) { if (!(c !== 69 && c !== 101)) { @@ -398,20 +398,20 @@ function make_lexer(keywords) { if (c >= 48) { Stream.junk(strm__); store(c); - continue ; + continue; } } else { Stream.junk(strm__); store(/* '.' */46); while(true) { - var c$1 = Stream.peek(strm__); + let c$1 = Stream.peek(strm__); if (c$1 !== undefined) { if (c$1 > 101 || c$1 < 69) { if (!(c$1 > 57 || c$1 < 48)) { Stream.junk(strm__); store(c$1); - continue ; + continue; } } else if (c$1 > 100 || c$1 < 70) { @@ -422,20 +422,20 @@ function make_lexer(keywords) { } return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; }; } } return { - TAG: "Int", - _0: Caml_format.int_of_string(get_string()) - }; + TAG: "Int", + _0: Caml_format.int_of_string(get_string()) + }; }; }; - var exponent_part = function (strm__) { - var c = Stream.peek(strm__); + let exponent_part = function (strm__) { + let c = Stream.peek(strm__); if (c !== undefined && !(c !== 43 && c !== 45)) { Stream.junk(strm__); store(c); @@ -444,70 +444,70 @@ function make_lexer(keywords) { return end_exponent_part(strm__); } }; - var end_exponent_part = function (strm__) { + let end_exponent_part = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; } if (c > 57 || c < 48) { return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; } Stream.junk(strm__); store(c); - continue ; + continue; }; }; - var string = function (strm__) { + let string = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c !== undefined) { if (c !== 34) { if (c !== 92) { Stream.junk(strm__); store(c); - continue ; + continue; } Stream.junk(strm__); - var c$1; + let c$1; try { c$1 = $$escape(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } store(c$1); - continue ; + continue; } Stream.junk(strm__); return get_string(); } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; }; - var $$char = function (strm__) { - var c = Stream.peek(strm__); + let $$char = function (strm__) { + let c = Stream.peek(strm__); if (c !== undefined) { if (c !== 92) { Stream.junk(strm__); @@ -518,29 +518,29 @@ function make_lexer(keywords) { return $$escape(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; - var $$escape = function (strm__) { - var c1 = Stream.peek(strm__); + let $$escape = function (strm__) { + let c1 = Stream.peek(strm__); if (c1 !== undefined) { if (c1 >= 58) { switch (c1) { @@ -560,63 +560,63 @@ function make_lexer(keywords) { } else { if (c1 >= 48) { Stream.junk(strm__); - var c2 = Stream.peek(strm__); + let c2 = Stream.peek(strm__); if (c2 !== undefined) { if (c2 > 57 || c2 < 48) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); - var c3 = Stream.peek(strm__); + let c3 = Stream.peek(strm__); if (c3 !== undefined) { if (c3 > 57 || c3 < 48) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); - } - Stream.junk(strm__); - return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); - } - throw new Error(Stream.$$Error, { cause: { RE_EXN_ID: Stream.$$Error, _1: "" } }); + } + Stream.junk(strm__); + return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); + } + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return c1; } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; - var comment = function (strm__) { + let comment = function (strm__) { while(true) { - var match = Stream.peek(strm__); + let match = Stream.peek(strm__); if (match !== undefined) { switch (match) { case 40 : Stream.junk(strm__); - var match$1 = Stream.peek(strm__); + let match$1 = Stream.peek(strm__); if (match$1 !== undefined) { if (match$1 !== 42) { Stream.junk(strm__); @@ -628,14 +628,14 @@ function make_lexer(keywords) { } } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 42 : Stream.junk(strm__); while(true) { - var match$2 = Stream.peek(strm__); + let match$2 = Stream.peek(strm__); if (match$2 !== undefined) { if (match$2 !== 41) { if (match$2 !== 42) { @@ -643,38 +643,38 @@ function make_lexer(keywords) { return comment(strm__); } Stream.junk(strm__); - continue ; + continue; } Stream.junk(strm__); - return ; + return; } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; default: Stream.junk(strm__); - continue ; + continue; } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; }; return function (input) { return Stream.from(function (_count) { - return next_token(input); - }); + return next_token(input); + }); }; } export { - make_lexer , + make_lexer, } /* No side effect */ diff --git a/lib/es6/hashtbl.js b/lib/es6/hashtbl.js index b7ca104caf..2c8e299fc1 100644 --- a/lib/es6/hashtbl.js +++ b/lib/es6/hashtbl.js @@ -27,7 +27,7 @@ function flip_ongoing_traversal(h) { h.initial_size = -h.initial_size | 0; } -var randomized = { +let randomized = { contents: false }; @@ -39,13 +39,13 @@ function is_randomized(param) { return randomized.contents; } -var prng = CamlinternalLazy.from_fun(function () { - return Random.State.make_self_init(); - }); +let prng = CamlinternalLazy.from_fun(function () { + return Random.State.make_self_init(); +}); function power_2_above(_x, n) { while(true) { - var x = _x; + let x = _x; if (x >= n) { return x; } @@ -53,38 +53,38 @@ function power_2_above(_x, n) { return x; } _x = (x << 1); - continue ; + continue; }; } function create(randomOpt, initial_size) { - var random = randomOpt !== undefined ? randomOpt : randomized.contents; - var s = power_2_above(16, initial_size); - var seed = random ? Random.State.bits(CamlinternalLazy.force(prng)) : 0; + let random = randomOpt !== undefined ? randomOpt : randomized.contents; + let s = power_2_above(16, initial_size); + let seed = random ? Random.State.bits(CamlinternalLazy.force(prng)) : 0; return { - size: 0, - data: Caml_array.make(s, "Empty"), - seed: seed, - initial_size: s - }; + size: 0, + data: Caml_array.make(s, "Empty"), + seed: seed, + initial_size: s + }; } function clear(h) { h.size = 0; - var len = h.data.length; - for(var i = 0; i < len; ++i){ + let len = h.data.length; + for(let i = 0; i < len; ++i){ Caml_array.set(h.data, i, "Empty"); } } function reset(h) { - var len = h.data.length; + let len = h.data.length; if (len === Pervasives.abs(h.initial_size)) { return clear(h); } else { h.size = 0; h.data = Caml_array.make(Pervasives.abs(h.initial_size), "Empty"); - return ; + return; } } @@ -92,20 +92,20 @@ function copy_bucketlist(param) { if (typeof param !== "object") { return "Empty"; } - var key = param.key; - var data = param.data; - var next = param.next; - var loop = function (_prec, _param) { + let key = param.key; + let data = param.data; + let next = param.next; + let loop = function (_prec, _param) { while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; - var r = { + let key = param.key; + let data = param.data; + let next = param.next; + let r = { TAG: "Cons", key: key, data: data, @@ -113,23 +113,23 @@ function copy_bucketlist(param) { }; if (typeof prec !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "hashtbl.res", - 110, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "hashtbl.res", + 110, + 19 + ] + } + }); } prec.next = r; _param = next; _prec = r; - continue ; + continue; }; }; - var r = { + let r = { TAG: "Cons", key: key, data: data, @@ -141,11 +141,11 @@ function copy_bucketlist(param) { function copy(h) { return { - size: h.size, - data: $$Array.map(copy_bucketlist, h.data), - seed: h.seed, - initial_size: h.initial_size - }; + size: h.size, + data: $$Array.map(copy_bucketlist, h.data), + seed: h.seed, + initial_size: h.initial_size + }; } function length(h) { @@ -153,33 +153,33 @@ function length(h) { } function resize(indexfun, h) { - var odata = h.data; - var osize = odata.length; - var nsize = (osize << 1); + let odata = h.data; + let osize = odata.length; + let nsize = (osize << 1); if (nsize < osize) { - return ; + return; } - var ndata = Caml_array.make(nsize, "Empty"); - var ndata_tail = Caml_array.make(nsize, "Empty"); - var inplace = h.initial_size >= 0; + let ndata = Caml_array.make(nsize, "Empty"); + let ndata_tail = Caml_array.make(nsize, "Empty"); + let inplace = h.initial_size >= 0; h.data = ndata; - var insert_bucket = function (_param) { + let insert_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; - var cell = inplace ? param : ({ - TAG: "Cons", - key: key, - data: data, - next: "Empty" - }); - var nidx = Curry._2(indexfun, h, key); - var tail = Caml_array.get(ndata_tail, nidx); + let key = param.key; + let data = param.data; + let next = param.next; + let cell = inplace ? param : ({ + TAG: "Cons", + key: key, + data: data, + next: "Empty" + }); + let nidx = Curry._2(indexfun, h, key); + let tail = Caml_array.get(ndata_tail, nidx); if (typeof tail !== "object") { Caml_array.set(ndata, nidx, cell); } else { @@ -187,17 +187,17 @@ function resize(indexfun, h) { } Caml_array.set(ndata_tail, nidx, cell); _param = next; - continue ; + continue; }; }; - for(var i = 0; i < osize; ++i){ + for(let i = 0; i < osize; ++i){ insert_bucket(Caml_array.get(odata, i)); } if (!inplace) { - return ; + return; } - for(var i$1 = 0; i$1 < nsize; ++i$1){ - var tail = Caml_array.get(ndata_tail, i$1); + for(let i$1 = 0; i$1 < nsize; ++i$1){ + let tail = Caml_array.get(ndata_tail, i$1); if (typeof tail === "object") { tail.next = "Empty"; } @@ -210,8 +210,8 @@ function key_index(h, key) { } function add(h, key, data) { - var i = key_index(h, key); - var bucket = { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -226,160 +226,160 @@ function add(h, key, data) { } function remove(h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; } function find(h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Caml_obj.equal(key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Caml_obj.equal(key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Caml_obj.equal(key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(key, k)) { return data; } _param = next; - continue ; + continue; }; } } function find_opt(h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Caml_obj.equal(key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Caml_obj.equal(key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Caml_obj.equal(key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } } function find_all(h, key) { - var find_in_bucket = function (_param) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(k, key)) { return { - hd: data, - tl: find_in_bucket(next) - }; + hd: data, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); @@ -387,118 +387,118 @@ function find_all(h, key) { function replace_bucket(key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; } function replace(h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } } function mem(h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { return true; } _param = next; - continue ; + continue; }; } function iter(f, h) { - var do_bucket = function (_param) { + let do_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; + let key = param.key; + let data = param.data; + let next = param.next; Curry._2(f, key, data); _param = next; - continue ; + continue; }; }; - var old_trav = h.initial_size < 0; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - var d = h.data; - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + let d = h.data; + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ do_bucket(Caml_array.get(d, i)); } if (!old_trav) { return flip_ongoing_traversal(h); } else { - return ; + return; } } catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function filter_map_inplace_bucket(f, h, i, _prec, _param) { while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { if (typeof prec !== "object") { return Caml_array.set(h.data, i, "Empty"); } else { prec.next = "Empty"; - return ; + return; } } - var key = param.key; - var data = param.data; - var next = param.next; - var data$1 = Curry._2(f, key, data); + let key = param.key; + let data = param.data; + let next = param.next; + let data$1 = Curry._2(f, key, data); if (data$1 !== undefined) { if (typeof prec !== "object") { Caml_array.set(h.data, i, param); @@ -508,63 +508,63 @@ function filter_map_inplace_bucket(f, h, i, _prec, _param) { param.data = Caml_option.valFromOption(data$1); _param = next; _prec = param; - continue ; + continue; } h.size = h.size - 1 | 0; _param = next; - continue ; + continue; }; } function filter_map_inplace(f, h) { - var d = h.data; - var old_trav = h.initial_size < 0; + let d = h.data; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ filter_map_inplace_bucket(f, h, i, "Empty", Caml_array.get(h.data, i)); } - return ; + return; } catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function fold(f, h, init) { - var do_bucket = function (_b, _accu) { + let do_bucket = function (_b, _accu) { while(true) { - var accu = _accu; - var b = _b; + let accu = _accu; + let b = _b; if (typeof b !== "object") { return accu; } - var key = b.key; - var data = b.data; - var next = b.next; + let key = b.key; + let data = b.data; + let next = b.next; _accu = Curry._3(f, key, data, accu); _b = next; - continue ; + continue; }; }; - var old_trav = h.initial_size < 0; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - var d = h.data; - var accu = init; - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + let d = h.data; + let accu = init; + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ accu = do_bucket(Caml_array.get(d, i), accu); } if (!old_trav) { @@ -575,54 +575,54 @@ function fold(f, h, init) { catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function bucket_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } - var next = param.next; + let next = param.next; _param = next; _accu = accu + 1 | 0; - continue ; + continue; }; } function stats(h) { - var mbl = $$Array.fold_left((function (m, b) { - return Caml.int_max(m, bucket_length(0, b)); - }), 0, h.data); - var histo = Caml_array.make(mbl + 1 | 0, 0); + let mbl = $$Array.fold_left((function (m, b) { + return Caml.int_max(m, bucket_length(0, b)); + }), 0, h.data); + let histo = Caml_array.make(mbl + 1 | 0, 0); $$Array.iter((function (b) { - var l = bucket_length(0, b); - Caml_array.set(histo, l, Caml_array.get(histo, l) + 1 | 0); - }), h.data); + let l = bucket_length(0, b); + Caml_array.set(histo, l, Caml_array.get(histo, l) + 1 | 0); + }), h.data); return { - num_bindings: h.size, - num_buckets: h.data.length, - max_bucket_length: mbl, - bucket_histogram: histo - }; + num_bindings: h.size, + num_buckets: h.data.length, + max_bucket_length: mbl, + bucket_histogram: histo + }; } function MakeSeeded(H) { - var key_index = function (h, key) { + let key_index = function (h, key) { return Curry._2(H.hash, h.seed, key) & (h.data.length - 1 | 0); }; - var add = function (h, key, data) { - var i = key_index(h, key); - var bucket = { + let add = function (h, key, data) { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -635,242 +635,242 @@ function MakeSeeded(H) { } }; - var remove = function (h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let remove = function (h, key) { + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; }; - var find = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(H.equal, key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(H.equal, key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(H.equal, key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(H.equal, key, k)) { return data; } _param = next; - continue ; + continue; }; } }; - var find_opt = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find_opt = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(H.equal, key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(H.equal, key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(H.equal, key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(H.equal, key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } }; - var find_all = function (h, key) { - var find_in_bucket = function (_param) { + let find_all = function (h, key) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var d = param.data; - var next = param.next; + let k = param.key; + let d = param.data; + let next = param.next; if (Curry._2(H.equal, k, key)) { return { - hd: d, - tl: find_in_bucket(next) - }; + hd: d, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); }; - var replace_bucket = function (key, data, _param) { + let replace_bucket = function (key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; }; - var replace = function (h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let replace = function (h, key, data) { + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } }; - var mem = function (h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let mem = function (h, key) { + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { return true; } _param = next; - continue ; + continue; }; }; return { - create: create, - clear: clear, - reset: reset, - copy: copy, - add: add, - remove: remove, - find: find, - find_opt: find_opt, - find_all: find_all, - replace: replace, - mem: mem, - iter: iter, - filter_map_inplace: filter_map_inplace, - fold: fold, - length: length, - stats: stats - }; + create: create, + clear: clear, + reset: reset, + copy: copy, + add: add, + remove: remove, + find: find, + find_opt: find_opt, + find_all: find_all, + replace: replace, + mem: mem, + iter: iter, + filter_map_inplace: filter_map_inplace, + fold: fold, + length: length, + stats: stats + }; } function Make(H) { - var equal = H.equal; - var key_index = function (h, key) { + let equal = H.equal; + let key_index = function (h, key) { return Curry._1(H.hash, key) & (h.data.length - 1 | 0); }; - var add = function (h, key, data) { - var i = key_index(h, key); - var bucket = { + let add = function (h, key, data) { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -883,263 +883,263 @@ function Make(H) { } }; - var remove = function (h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let remove = function (h, key) { + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; }; - var find = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(equal, key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(equal, key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(equal, key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(equal, key, k)) { return data; } _param = next; - continue ; + continue; }; } }; - var find_opt = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find_opt = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(equal, key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(equal, key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(equal, key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(equal, key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } }; - var find_all = function (h, key) { - var find_in_bucket = function (_param) { + let find_all = function (h, key) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var d = param.data; - var next = param.next; + let k = param.key; + let d = param.data; + let next = param.next; if (Curry._2(equal, k, key)) { return { - hd: d, - tl: find_in_bucket(next) - }; + hd: d, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); }; - var replace_bucket = function (key, data, _param) { + let replace_bucket = function (key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; }; - var replace = function (h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let replace = function (h, key, data) { + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } }; - var mem = function (h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let mem = function (h, key) { + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { return true; } _param = next; - continue ; + continue; }; }; - var create$1 = function (sz) { + let create$1 = function (sz) { return create(false, sz); }; return { - create: create$1, - clear: clear, - reset: reset, - copy: copy, - add: add, - remove: remove, - find: find, - find_opt: find_opt, - find_all: find_all, - replace: replace, - mem: mem, - iter: iter, - filter_map_inplace: filter_map_inplace, - fold: fold, - length: length, - stats: stats - }; + create: create$1, + clear: clear, + reset: reset, + copy: copy, + add: add, + remove: remove, + find: find, + find_opt: find_opt, + find_all: find_all, + replace: replace, + mem: mem, + iter: iter, + filter_map_inplace: filter_map_inplace, + fold: fold, + length: length, + stats: stats + }; } -var seeded_hash_param = Caml_hash.hash; +let seeded_hash_param = Caml_hash.hash; export { - create , - clear , - reset , - copy , - add , - find , - find_opt , - find_all , - mem , - remove , - replace , - iter , - filter_map_inplace , - fold , - length , - randomize , - is_randomized , - stats , - Make , - MakeSeeded , - hash , - seeded_hash , - hash_param , - seeded_hash_param , + create, + clear, + reset, + copy, + add, + find, + find_opt, + find_all, + mem, + remove, + replace, + iter, + filter_map_inplace, + fold, + length, + randomize, + is_randomized, + stats, + Make, + MakeSeeded, + hash, + seeded_hash, + hash_param, + seeded_hash_param, } /* No side effect */ diff --git a/lib/es6/int32.js b/lib/es6/int32.js index f656fff9a5..6c511f43e4 100644 --- a/lib/es6/int32.js +++ b/lib/es6/int32.js @@ -38,8 +38,8 @@ function of_string_opt(s) { return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/lib/es6/int64.js b/lib/es6/int64.js index 3feeda060d..c437037663 100644 --- a/lib/es6/int64.js +++ b/lib/es6/int64.js @@ -31,8 +31,8 @@ function of_string_opt(s) { return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/lib/es6/js_exn.js b/lib/es6/js_exn.js index 39053776de..6df4f31f32 100644 --- a/lib/es6/js_exn.js +++ b/lib/es6/js_exn.js @@ -3,44 +3,44 @@ function raiseError(str) { throw new Error(new Error(str).RE_EXN_ID, { - cause: new Error(str) - }); + cause: new Error(str) + }); } function raiseEvalError(str) { throw new Error(new EvalError(str).RE_EXN_ID, { - cause: new EvalError(str) - }); + cause: new EvalError(str) + }); } function raiseRangeError(str) { throw new Error(new RangeError(str).RE_EXN_ID, { - cause: new RangeError(str) - }); + cause: new RangeError(str) + }); } function raiseReferenceError(str) { throw new Error(new ReferenceError(str).RE_EXN_ID, { - cause: new ReferenceError(str) - }); + cause: new ReferenceError(str) + }); } function raiseSyntaxError(str) { throw new Error(new SyntaxError(str).RE_EXN_ID, { - cause: new SyntaxError(str) - }); + cause: new SyntaxError(str) + }); } function raiseTypeError(str) { throw new Error(new TypeError(str).RE_EXN_ID, { - cause: new TypeError(str) - }); + cause: new TypeError(str) + }); } function raiseUriError(str) { throw new Error(new URIError(str).RE_EXN_ID, { - cause: new URIError(str) - }); + cause: new URIError(str) + }); } let $$Error$1 = "JsError"; diff --git a/lib/es6/js_mapperRt.js b/lib/es6/js_mapperRt.js index 5080fade26..2b0cace99c 100644 --- a/lib/es6/js_mapperRt.js +++ b/lib/es6/js_mapperRt.js @@ -4,53 +4,53 @@ function raiseWhenNotFound(x) { if (x == null) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } return x; } function fromInt(len, xs, $$enum) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { - return ; + return; } - var k = xs[i]; + let k = xs[i]; if (k === $$enum) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function fromIntAssert(len, xs, $$enum) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = xs[i]; + let k = xs[i]; if (k === $$enum) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } export { - raiseWhenNotFound , - fromInt , - fromIntAssert , + raiseWhenNotFound, + fromInt, + fromIntAssert, } /* No side effect */ diff --git a/lib/es6/js_null.js b/lib/es6/js_null.js index 1eb56a5d44..c6706e56a8 100644 --- a/lib/es6/js_null.js +++ b/lib/es6/js_null.js @@ -11,8 +11,8 @@ function getExn(f) { return f; } throw new Error(new Error("Js.Null.getExn").RE_EXN_ID, { - cause: new Error("Js.Null.getExn") - }); + cause: new Error("Js.Null.getExn") + }); } function bind(x, f) { diff --git a/lib/es6/js_option.js b/lib/es6/js_option.js index 8713e26915..73e0a2f8ad 100644 --- a/lib/es6/js_option.js +++ b/lib/es6/js_option.js @@ -27,8 +27,8 @@ function getExn(x) { return Caml_option.valFromOption(x); } throw new Error(new Error("getExn").RE_EXN_ID, { - cause: new Error("getExn") - }); + cause: new Error("getExn") + }); } function equal(eq, a, b) { diff --git a/lib/es6/js_undefined.js b/lib/es6/js_undefined.js index b73d2b4b92..68411f013f 100644 --- a/lib/es6/js_undefined.js +++ b/lib/es6/js_undefined.js @@ -15,8 +15,8 @@ function getExn(f) { return f; } throw new Error(new Error("Js.Undefined.getExn").RE_EXN_ID, { - cause: new Error("Js.Undefined.getExn") - }); + cause: new Error("Js.Undefined.getExn") + }); } function bind(x, f) { diff --git a/lib/es6/lexing.js b/lib/es6/lexing.js index fb7191f891..82c8373a02 100644 --- a/lib/es6/lexing.js +++ b/lib/es6/lexing.js @@ -7,10 +7,10 @@ import * as Caml_bytes from "./caml_bytes.js"; import * as Caml_lexer from "./caml_lexer.js"; function engine(tbl, state, buf) { - var result = Caml_lexer.lex_engine(tbl, state, buf); + let result = Caml_lexer.lex_engine(tbl, state, buf); if (result >= 0) { buf.lex_start_p = buf.lex_curr_p; - var init = buf.lex_curr_p; + let init = buf.lex_curr_p; buf.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -22,10 +22,10 @@ function engine(tbl, state, buf) { } function new_engine(tbl, state, buf) { - var result = Caml_lexer.new_lex_engine(tbl, state, buf); + let result = Caml_lexer.new_lex_engine(tbl, state, buf); if (result >= 0) { buf.lex_start_p = buf.lex_curr_p; - var init = buf.lex_curr_p; + let init = buf.lex_curr_p; buf.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -36,7 +36,7 @@ function new_engine(tbl, state, buf) { return result; } -var zero_pos = { +let zero_pos = { pos_fname: "", pos_lnum: 1, pos_bol: 0, @@ -44,94 +44,94 @@ var zero_pos = { }; function from_function(f) { - var partial_arg = Caml_bytes.create(512); + let partial_arg = Caml_bytes.create(512); return { - refill_buff: (function (param) { - var read = Curry._2(f, partial_arg, partial_arg.length); - var n = read > 0 ? read : (param.lex_eof_reached = true, 0); - if ((param.lex_buffer_len + n | 0) > param.lex_buffer.length) { - if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) <= param.lex_buffer.length) { - Bytes.blit(param.lex_buffer, param.lex_start_pos, param.lex_buffer, 0, param.lex_buffer_len - param.lex_start_pos | 0); - } else { - var newlen = (param.lex_buffer.length << 1); - if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Lexing.lex_refill: cannot grow buffer" - } - }); + refill_buff: (function (param) { + let read = Curry._2(f, partial_arg, partial_arg.length); + let n = read > 0 ? read : (param.lex_eof_reached = true, 0); + if ((param.lex_buffer_len + n | 0) > param.lex_buffer.length) { + if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) <= param.lex_buffer.length) { + Bytes.blit(param.lex_buffer, param.lex_start_pos, param.lex_buffer, 0, param.lex_buffer_len - param.lex_start_pos | 0); + } else { + let newlen = (param.lex_buffer.length << 1); + if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Lexing.lex_refill: cannot grow buffer" } - var newbuf = Caml_bytes.create(newlen); - Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); - param.lex_buffer = newbuf; - } - var s = param.lex_start_pos; - param.lex_abs_pos = param.lex_abs_pos + s | 0; - param.lex_curr_pos = param.lex_curr_pos - s | 0; - param.lex_start_pos = 0; - param.lex_last_pos = param.lex_last_pos - s | 0; - param.lex_buffer_len = param.lex_buffer_len - s | 0; - var t = param.lex_mem; - for(var i = 0 ,i_finish = t.length; i < i_finish; ++i){ - var v = Caml_array.get(t, i); - if (v >= 0) { - Caml_array.set(t, i, v - s | 0); - } - - } - } - Bytes.blit(partial_arg, 0, param.lex_buffer, param.lex_buffer_len, n); - param.lex_buffer_len = param.lex_buffer_len + n | 0; - }), - lex_buffer: Caml_bytes.create(1024), - lex_buffer_len: 0, - lex_abs_pos: 0, - lex_start_pos: 0, - lex_curr_pos: 0, - lex_last_pos: 0, - lex_last_action: 0, - lex_eof_reached: false, - lex_mem: [], - lex_start_p: zero_pos, - lex_curr_p: zero_pos - }; + }); + } + let newbuf = Caml_bytes.create(newlen); + Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); + param.lex_buffer = newbuf; + } + let s = param.lex_start_pos; + param.lex_abs_pos = param.lex_abs_pos + s | 0; + param.lex_curr_pos = param.lex_curr_pos - s | 0; + param.lex_start_pos = 0; + param.lex_last_pos = param.lex_last_pos - s | 0; + param.lex_buffer_len = param.lex_buffer_len - s | 0; + let t = param.lex_mem; + for(let i = 0 ,i_finish = t.length; i < i_finish; ++i){ + let v = Caml_array.get(t, i); + if (v >= 0) { + Caml_array.set(t, i, v - s | 0); + } + + } + } + Bytes.blit(partial_arg, 0, param.lex_buffer, param.lex_buffer_len, n); + param.lex_buffer_len = param.lex_buffer_len + n | 0; + }), + lex_buffer: Caml_bytes.create(1024), + lex_buffer_len: 0, + lex_abs_pos: 0, + lex_start_pos: 0, + lex_curr_pos: 0, + lex_last_pos: 0, + lex_last_action: 0, + lex_eof_reached: false, + lex_mem: [], + lex_start_p: zero_pos, + lex_curr_p: zero_pos + }; } function from_string(s) { return { - refill_buff: (function (lexbuf) { - lexbuf.lex_eof_reached = true; - }), - lex_buffer: Bytes.of_string(s), - lex_buffer_len: s.length, - lex_abs_pos: 0, - lex_start_pos: 0, - lex_curr_pos: 0, - lex_last_pos: 0, - lex_last_action: 0, - lex_eof_reached: true, - lex_mem: [], - lex_start_p: zero_pos, - lex_curr_p: zero_pos - }; + refill_buff: (function (lexbuf) { + lexbuf.lex_eof_reached = true; + }), + lex_buffer: Bytes.of_string(s), + lex_buffer_len: s.length, + lex_abs_pos: 0, + lex_start_pos: 0, + lex_curr_pos: 0, + lex_last_pos: 0, + lex_last_action: 0, + lex_eof_reached: true, + lex_mem: [], + lex_start_p: zero_pos, + lex_curr_p: zero_pos + }; } function lexeme(lexbuf) { - var len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos | 0; + let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos | 0; return Bytes.sub_string(lexbuf.lex_buffer, lexbuf.lex_start_pos, len); } function sub_lexeme(lexbuf, i1, i2) { - var len = i2 - i1 | 0; + let len = i2 - i1 | 0; return Bytes.sub_string(lexbuf.lex_buffer, i1, len); } function sub_lexeme_opt(lexbuf, i1, i2) { if (i1 < 0) { - return ; + return; } - var len = i2 - i1 | 0; + let len = i2 - i1 | 0; return Bytes.sub_string(lexbuf.lex_buffer, i1, len); } @@ -167,7 +167,7 @@ function lexeme_end_p(lexbuf) { } function new_line(lexbuf) { - var lcp = lexbuf.lex_curr_p; + let lcp = lexbuf.lex_curr_p; lexbuf.lex_curr_p = { pos_fname: lcp.pos_fname, pos_lnum: lcp.pos_lnum + 1 | 0, @@ -179,7 +179,7 @@ function new_line(lexbuf) { function flush_input(lb) { lb.lex_curr_pos = 0; lb.lex_abs_pos = 0; - var init = lb.lex_curr_p; + let init = lb.lex_curr_p; lb.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -189,7 +189,7 @@ function flush_input(lb) { lb.lex_buffer_len = 0; } -var dummy_pos = { +let dummy_pos = { pos_fname: "", pos_lnum: 0, pos_bol: 0, @@ -197,22 +197,22 @@ var dummy_pos = { }; export { - dummy_pos , - from_string , - from_function , - lexeme , - lexeme_char , - lexeme_start , - lexeme_end , - lexeme_start_p , - lexeme_end_p , - new_line , - flush_input , - sub_lexeme , - sub_lexeme_opt , - sub_lexeme_char , - sub_lexeme_char_opt , - engine , - new_engine , + dummy_pos, + from_string, + from_function, + lexeme, + lexeme_char, + lexeme_start, + lexeme_end, + lexeme_start_p, + lexeme_end_p, + new_line, + flush_input, + sub_lexeme, + sub_lexeme_opt, + sub_lexeme_char, + sub_lexeme_char_opt, + engine, + new_engine, } /* No side effect */ diff --git a/lib/es6/list.js b/lib/es6/list.js index d02674e773..e8c16c72b0 100644 --- a/lib/es6/list.js +++ b/lib/es6/list.js @@ -6,25 +6,25 @@ import * as Pervasives from "./pervasives.js"; import * as Caml_option from "./caml_option.js"; function length(l) { - var _len = 0; - var _param = l; + let _len = 0; + let _param = l; while(true) { - var param = _param; - var len = _len; + let param = _param; + let len = _len; if (!param) { return len; } _param = param.tl; _len = len + 1 | 0; - continue ; + continue; }; } function cons(a, l) { return { - hd: a, - tl: l - }; + hd: a, + tl: l + }; } function hd(param) { @@ -32,11 +32,11 @@ function hd(param) { return param.hd; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "hd" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { @@ -44,74 +44,74 @@ function tl(param) { return param.tl; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "tl" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (l$1) { if (n$1 === 0) { return l$1.hd; } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "nth" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (!l$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(l$1.hd); } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; }; } function rev_append(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -120,7 +120,7 @@ function rev_append(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -130,8 +130,8 @@ function rev(l) { function init_tailrec_aux(_acc, _i, n, f) { while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i >= n) { return acc; } @@ -140,7 +140,7 @@ function init_tailrec_aux(_acc, _i, n, f) { hd: Curry._1(f, i), tl: acc }; - continue ; + continue; }; } @@ -148,21 +148,21 @@ function init_aux(i, n, f) { if (i >= n) { return /* [] */0; } - var r = Curry._1(f, i); + let r = Curry._1(f, i); return { - hd: r, - tl: init_aux(i + 1 | 0, n, f) - }; + hd: r, + tl: init_aux(i + 1 | 0, n, f) + }; } function init(len, f) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -183,22 +183,22 @@ function map(f, param) { if (!param) { return /* [] */0; } - var r = Curry._1(f, param.hd); + let r = Curry._1(f, param.hd); return { - hd: r, - tl: map(f, param.tl) - }; + hd: r, + tl: map(f, param.tl) + }; } function mapi(i, f, param) { if (!param) { return /* [] */0; } - var r = Curry._2(f, i, param.hd); + let r = Curry._2(f, i, param.hd); return { - hd: r, - tl: mapi(i + 1 | 0, f, param.tl) - }; + hd: r, + tl: mapi(i + 1 | 0, f, param.tl) + }; } function mapi$1(f, l) { @@ -206,11 +206,11 @@ function mapi$1(f, l) { } function rev_map(f, l) { - var _accu = /* [] */0; - var _param = l; + let _accu = /* [] */0; + let _param = l; while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } @@ -219,48 +219,48 @@ function rev_map(f, l) { hd: Curry._1(f, param.hd), tl: accu }; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } Curry._1(f, param.hd); _param = param.tl; - continue ; + continue; }; } function iteri(f, l) { - var _i = 0; - var _param = l; + let _i = 0; + let _param = l; while(true) { - var param = _param; - var i = _i; + let param = _param; + let i = _i; if (!param) { - return ; + return; } Curry._2(f, i, param.hd); _param = param.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, _accu, _l) { while(true) { - var l = _l; - var accu = _accu; + let l = _l; + let accu = _accu; if (!l) { return accu; } _l = l.tl; _accu = Curry._2(f, accu, l.hd); - continue ; + continue; }; } @@ -275,38 +275,38 @@ function fold_right(f, l, accu) { function map2(f, l1, l2) { if (l1) { if (l2) { - var r = Curry._2(f, l1.hd, l2.hd); + let r = Curry._2(f, l1.hd, l2.hd); return { - hd: r, - tl: map2(f, l1.tl, l2.tl) - }; + hd: r, + tl: map2(f, l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { - var _accu = /* [] */0; - var _l1 = l1; - var _l2 = l2; + let _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; while(true) { - var l2$1 = _l2; - var l1$1 = _l1; - var accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; + let accu = _accu; if (l1$1) { if (l2$1) { _l2 = l2$1.tl; @@ -315,22 +315,22 @@ function rev_map2(f, l1, l2) { hd: Curry._2(f, l1$1.hd, l2$1.hd), tl: accu }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -338,60 +338,60 @@ function rev_map2(f, l1, l2) { function iter2(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { Curry._2(f, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { - return ; + return; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } function fold_left2(f, _accu, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; - var accu = _accu; + let l2 = _l2; + let l1 = _l1; + let accu = _accu; if (l1) { if (l2) { _l2 = l2.tl; _l1 = l1.tl; _accu = Curry._3(f, accu, l1.hd, l2.hd); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -403,26 +403,26 @@ function fold_right2(f, l1, l2, accu) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return true; } @@ -430,13 +430,13 @@ function for_all(p, _param) { return false; } _param = param.tl; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -444,14 +444,14 @@ function exists(p, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function for_all2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (!Curry._2(p, l1.hd, l2.hd)) { @@ -459,31 +459,31 @@ function for_all2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } function exists2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (Curry._2(p, l1.hd, l2.hd)) { @@ -491,30 +491,30 @@ function exists2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -522,13 +522,13 @@ function mem(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function memq(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -536,81 +536,81 @@ function memq(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assoc_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (match[0] === x) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assq_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (match[0] === x) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function mem_assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -618,13 +618,13 @@ function mem_assoc(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function mem_assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -632,7 +632,7 @@ function mem_assq(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } @@ -640,15 +640,15 @@ function remove_assoc(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (Caml_obj.equal(pair[0], x)) { return l; } else { return { - hd: pair, - tl: remove_assoc(x, l) - }; + hd: pair, + tl: remove_assoc(x, l) + }; } } @@ -656,159 +656,159 @@ function remove_assq(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (pair[0] === x) { return l; } else { return { - hd: pair, - tl: remove_assq(x, l) - }; + hd: pair, + tl: remove_assq(x, l) + }; } } function find(p, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return x; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function find_opt(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return Caml_option.some(x); } _param = param.tl; - continue ; + continue; }; } function find_all(p) { return function (param) { - var _accu = /* [] */0; - var _param = param; + let _accu = /* [] */0; + let _param = param; while(true) { - var param$1 = _param; - var accu = _accu; + let param$1 = _param; + let accu = _accu; if (!param$1) { return rev_append(accu, /* [] */0); } - var l = param$1.tl; - var x = param$1.hd; + let l = param$1.tl; + let x = param$1.hd; if (Curry._1(p, x)) { _param = l; _accu = { hd: x, tl: accu }; - continue ; + continue; } _param = l; - continue ; + continue; }; }; } function partition(p, l) { - var _yes = /* [] */0; - var _no = /* [] */0; - var _param = l; + let _yes = /* [] */0; + let _no = /* [] */0; + let _param = l; while(true) { - var param = _param; - var no = _no; - var yes = _yes; + let param = _param; + let no = _no; + let yes = _yes; if (!param) { return [ - rev_append(yes, /* [] */0), - rev_append(no, /* [] */0) - ]; + rev_append(yes, /* [] */0), + rev_append(no, /* [] */0) + ]; } - var l$1 = param.tl; - var x = param.hd; + let l$1 = param.tl; + let x = param.hd; if (Curry._1(p, x)) { _param = l$1; _yes = { hd: x, tl: yes }; - continue ; + continue; } _param = l$1; _no = { hd: x, tl: no }; - continue ; + continue; }; } function split(param) { if (!param) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = param.hd; - var match$1 = split(param.tl); + let match = param.hd; + let match$1 = split(param.tl); return [ - { - hd: match[0], - tl: match$1[0] - }, - { - hd: match[1], - tl: match$1[1] - } - ]; + { + hd: match[0], + tl: match$1[0] + }, + { + hd: match[1], + tl: match$1[1] + } + ]; } function combine(l1, l2) { if (l1) { if (l2) { return { - hd: [ - l1.hd, - l2.hd - ], - tl: combine(l1.tl, l2.tl) - }; + hd: [ + l1.hd, + l2.hd + ], + tl: combine(l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -818,125 +818,125 @@ function merge(cmp, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { return { - hd: h1, - tl: merge(cmp, l1.tl, l2) - }; + hd: h1, + tl: merge(cmp, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(cmp, l1, l2.tl) - }; + hd: h2, + tl: merge(cmp, l1, l2.tl) + }; } } function chop(_k, _l) { while(true) { - var l = _l; - var k = _k; + let l = _l; + let k = _k; if (k === 0) { return l; } if (l) { _l = l.tl; _k = k - 1 | 0; - continue ; + continue; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "list.res", - 420, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "list.res", + 420, + 11 + ] + } + }); }; } function stable_sort(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) <= 0) { if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -945,144 +945,144 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) <= 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) > 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) > 0) { if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1091,67 +1091,67 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1160,151 +1160,151 @@ function stable_sort(cmp, l) { } function sort_uniq(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c < 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 < 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 < 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 < 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1313,59 +1313,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 < 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1373,7 +1373,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 > 0) { _accu = { @@ -1381,161 +1381,161 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c > 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1544,59 +1544,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1604,7 +1604,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 < 0) { _accu = { @@ -1612,17 +1612,17 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1632,8 +1632,8 @@ function sort_uniq(cmp, l) { function compare_lengths(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1646,14 +1646,14 @@ function compare_lengths(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function compare_length_with(_l, _n) { while(true) { - var n = _n; - var l = _l; + let n = _n; + let l = _l; if (!l) { if (n === 0) { return 0; @@ -1668,72 +1668,72 @@ function compare_length_with(_l, _n) { } _n = n - 1 | 0; _l = l.tl; - continue ; + continue; }; } -var append = Pervasives.$at; +let append = Pervasives.$at; -var concat = flatten; +let concat = flatten; -var filter = find_all; +let filter = find_all; -var sort = stable_sort; +let sort = stable_sort; -var fast_sort = stable_sort; +let fast_sort = stable_sort; export { - length , - compare_lengths , - compare_length_with , - cons , - hd , - tl , - nth , - nth_opt , - rev , - init , - append , - rev_append , - concat , - flatten , - iter , - iteri , - map , + length, + compare_lengths, + compare_length_with, + cons, + hd, + tl, + nth, + nth_opt, + rev, + init, + append, + rev_append, + concat, + flatten, + iter, + iteri, + map, mapi$1 as mapi, - rev_map , - fold_left , - fold_right , - iter2 , - map2 , - rev_map2 , - fold_left2 , - fold_right2 , - for_all , - exists , - for_all2 , - exists2 , - mem , - memq , - find , - find_opt , - filter , - find_all , - partition , - assoc , - assoc_opt , - assq , - assq_opt , - mem_assoc , - mem_assq , - remove_assoc , - remove_assq , - split , - combine , - sort , - stable_sort , - fast_sort , - sort_uniq , - merge , + rev_map, + fold_left, + fold_right, + iter2, + map2, + rev_map2, + fold_left2, + fold_right2, + for_all, + exists, + for_all2, + exists2, + mem, + memq, + find, + find_opt, + filter, + find_all, + partition, + assoc, + assoc_opt, + assq, + assq_opt, + mem_assoc, + mem_assq, + remove_assoc, + remove_assq, + split, + combine, + sort, + stable_sort, + fast_sort, + sort_uniq, + merge, } /* No side effect */ diff --git a/lib/es6/listLabels.js b/lib/es6/listLabels.js index 8a5800bbf7..fb1469aafb 100644 --- a/lib/es6/listLabels.js +++ b/lib/es6/listLabels.js @@ -6,25 +6,25 @@ import * as Pervasives from "./pervasives.js"; import * as Caml_option from "./caml_option.js"; function length(l) { - var _len = 0; - var _param = l; + let _len = 0; + let _param = l; while(true) { - var param = _param; - var len = _len; + let param = _param; + let len = _len; if (!param) { return len; } _param = param.tl; _len = len + 1 | 0; - continue ; + continue; }; } function cons(a, l) { return { - hd: a, - tl: l - }; + hd: a, + tl: l + }; } function hd(param) { @@ -32,11 +32,11 @@ function hd(param) { return param.hd; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "hd" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { @@ -44,74 +44,74 @@ function tl(param) { return param.tl; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "tl" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (l$1) { if (n$1 === 0) { return l$1.hd; } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "nth" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (!l$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(l$1.hd); } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; }; } function rev_append(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -120,7 +120,7 @@ function rev_append(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -130,8 +130,8 @@ function rev(l) { function init_tailrec_aux(_acc, _i, n, f) { while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i >= n) { return acc; } @@ -140,7 +140,7 @@ function init_tailrec_aux(_acc, _i, n, f) { hd: Curry._1(f, i), tl: acc }; - continue ; + continue; }; } @@ -148,21 +148,21 @@ function init_aux(i, n, f) { if (i >= n) { return /* [] */0; } - var r = Curry._1(f, i); + let r = Curry._1(f, i); return { - hd: r, - tl: init_aux(i + 1 | 0, n, f) - }; + hd: r, + tl: init_aux(i + 1 | 0, n, f) + }; } function init(len, f) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -183,22 +183,22 @@ function map(f, param) { if (!param) { return /* [] */0; } - var r = Curry._1(f, param.hd); + let r = Curry._1(f, param.hd); return { - hd: r, - tl: map(f, param.tl) - }; + hd: r, + tl: map(f, param.tl) + }; } function mapi(i, f, param) { if (!param) { return /* [] */0; } - var r = Curry._2(f, i, param.hd); + let r = Curry._2(f, i, param.hd); return { - hd: r, - tl: mapi(i + 1 | 0, f, param.tl) - }; + hd: r, + tl: mapi(i + 1 | 0, f, param.tl) + }; } function mapi$1(f, l) { @@ -206,11 +206,11 @@ function mapi$1(f, l) { } function rev_map(f, l) { - var _accu = /* [] */0; - var _param = l; + let _accu = /* [] */0; + let _param = l; while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } @@ -219,48 +219,48 @@ function rev_map(f, l) { hd: Curry._1(f, param.hd), tl: accu }; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } Curry._1(f, param.hd); _param = param.tl; - continue ; + continue; }; } function iteri(f, l) { - var _i = 0; - var _param = l; + let _i = 0; + let _param = l; while(true) { - var param = _param; - var i = _i; + let param = _param; + let i = _i; if (!param) { - return ; + return; } Curry._2(f, i, param.hd); _param = param.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, _accu, _l) { while(true) { - var l = _l; - var accu = _accu; + let l = _l; + let accu = _accu; if (!l) { return accu; } _l = l.tl; _accu = Curry._2(f, accu, l.hd); - continue ; + continue; }; } @@ -275,38 +275,38 @@ function fold_right(f, l, accu) { function map2(f, l1, l2) { if (l1) { if (l2) { - var r = Curry._2(f, l1.hd, l2.hd); + let r = Curry._2(f, l1.hd, l2.hd); return { - hd: r, - tl: map2(f, l1.tl, l2.tl) - }; + hd: r, + tl: map2(f, l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { - var _accu = /* [] */0; - var _l1 = l1; - var _l2 = l2; + let _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; while(true) { - var l2$1 = _l2; - var l1$1 = _l1; - var accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; + let accu = _accu; if (l1$1) { if (l2$1) { _l2 = l2$1.tl; @@ -315,22 +315,22 @@ function rev_map2(f, l1, l2) { hd: Curry._2(f, l1$1.hd, l2$1.hd), tl: accu }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -338,60 +338,60 @@ function rev_map2(f, l1, l2) { function iter2(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { Curry._2(f, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { - return ; + return; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } function fold_left2(f, _accu, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; - var accu = _accu; + let l2 = _l2; + let l1 = _l1; + let accu = _accu; if (l1) { if (l2) { _l2 = l2.tl; _l1 = l1.tl; _accu = Curry._3(f, accu, l1.hd, l2.hd); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -403,26 +403,26 @@ function fold_right2(f, l1, l2, accu) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return true; } @@ -430,13 +430,13 @@ function for_all(p, _param) { return false; } _param = param.tl; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -444,14 +444,14 @@ function exists(p, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function for_all2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (!Curry._2(p, l1.hd, l2.hd)) { @@ -459,31 +459,31 @@ function for_all2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } function exists2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (Curry._2(p, l1.hd, l2.hd)) { @@ -491,30 +491,30 @@ function exists2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } function mem(x, _set) { while(true) { - var set = _set; + let set = _set; if (!set) { return false; } @@ -522,13 +522,13 @@ function mem(x, _set) { return true; } _set = set.tl; - continue ; + continue; }; } function memq(x, _set) { while(true) { - var set = _set; + let set = _set; if (!set) { return false; } @@ -536,81 +536,81 @@ function memq(x, _set) { return true; } _set = set.tl; - continue ; + continue; }; } function assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assoc_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (match[0] === x) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assq_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (match[0] === x) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function mem_assoc(x, _map) { while(true) { - var map = _map; + let map = _map; if (!map) { return false; } @@ -618,13 +618,13 @@ function mem_assoc(x, _map) { return true; } _map = map.tl; - continue ; + continue; }; } function mem_assq(x, _map) { while(true) { - var map = _map; + let map = _map; if (!map) { return false; } @@ -632,7 +632,7 @@ function mem_assq(x, _map) { return true; } _map = map.tl; - continue ; + continue; }; } @@ -640,15 +640,15 @@ function remove_assoc(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (Caml_obj.equal(pair[0], x)) { return l; } else { return { - hd: pair, - tl: remove_assoc(x, l) - }; + hd: pair, + tl: remove_assoc(x, l) + }; } } @@ -656,159 +656,159 @@ function remove_assq(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (pair[0] === x) { return l; } else { return { - hd: pair, - tl: remove_assq(x, l) - }; + hd: pair, + tl: remove_assq(x, l) + }; } } function find(p, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return x; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function find_opt(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return Caml_option.some(x); } _param = param.tl; - continue ; + continue; }; } function find_all(p) { return function (param) { - var _accu = /* [] */0; - var _param = param; + let _accu = /* [] */0; + let _param = param; while(true) { - var param$1 = _param; - var accu = _accu; + let param$1 = _param; + let accu = _accu; if (!param$1) { return rev_append(accu, /* [] */0); } - var l = param$1.tl; - var x = param$1.hd; + let l = param$1.tl; + let x = param$1.hd; if (Curry._1(p, x)) { _param = l; _accu = { hd: x, tl: accu }; - continue ; + continue; } _param = l; - continue ; + continue; }; }; } function partition(p, l) { - var _yes = /* [] */0; - var _no = /* [] */0; - var _param = l; + let _yes = /* [] */0; + let _no = /* [] */0; + let _param = l; while(true) { - var param = _param; - var no = _no; - var yes = _yes; + let param = _param; + let no = _no; + let yes = _yes; if (!param) { return [ - rev_append(yes, /* [] */0), - rev_append(no, /* [] */0) - ]; + rev_append(yes, /* [] */0), + rev_append(no, /* [] */0) + ]; } - var l$1 = param.tl; - var x = param.hd; + let l$1 = param.tl; + let x = param.hd; if (Curry._1(p, x)) { _param = l$1; _yes = { hd: x, tl: yes }; - continue ; + continue; } _param = l$1; _no = { hd: x, tl: no }; - continue ; + continue; }; } function split(param) { if (!param) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = param.hd; - var match$1 = split(param.tl); + let match = param.hd; + let match$1 = split(param.tl); return [ - { - hd: match[0], - tl: match$1[0] - }, - { - hd: match[1], - tl: match$1[1] - } - ]; + { + hd: match[0], + tl: match$1[0] + }, + { + hd: match[1], + tl: match$1[1] + } + ]; } function combine(l1, l2) { if (l1) { if (l2) { return { - hd: [ - l1.hd, - l2.hd - ], - tl: combine(l1.tl, l2.tl) - }; + hd: [ + l1.hd, + l2.hd + ], + tl: combine(l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -818,125 +818,125 @@ function merge(cmp, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { return { - hd: h1, - tl: merge(cmp, l1.tl, l2) - }; + hd: h1, + tl: merge(cmp, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(cmp, l1, l2.tl) - }; + hd: h2, + tl: merge(cmp, l1, l2.tl) + }; } } function chop(_k, _l) { while(true) { - var l = _l; - var k = _k; + let l = _l; + let k = _k; if (k === 0) { return l; } if (l) { _l = l.tl; _k = k - 1 | 0; - continue ; + continue; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "listLabels.res", - 420, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "listLabels.res", + 420, + 11 + ] + } + }); }; } function stable_sort(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) <= 0) { if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -945,144 +945,144 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) <= 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) > 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) > 0) { if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1091,67 +1091,67 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1160,151 +1160,151 @@ function stable_sort(cmp, l) { } function sort_uniq(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c < 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 < 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 < 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 < 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1313,59 +1313,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 < 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1373,7 +1373,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 > 0) { _accu = { @@ -1381,161 +1381,161 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c > 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1544,59 +1544,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1604,7 +1604,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 < 0) { _accu = { @@ -1612,17 +1612,17 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1632,8 +1632,8 @@ function sort_uniq(cmp, l) { function compare_lengths(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1646,14 +1646,14 @@ function compare_lengths(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function compare_length_with(_l, _n) { while(true) { - var n = _n; - var l = _l; + let n = _n; + let l = _l; if (!l) { if (n === 0) { return 0; @@ -1668,72 +1668,72 @@ function compare_length_with(_l, _n) { } _n = n - 1 | 0; _l = l.tl; - continue ; + continue; }; } -var append = Pervasives.$at; +let append = Pervasives.$at; -var concat = flatten; +let concat = flatten; -var filter = find_all; +let filter = find_all; -var sort = stable_sort; +let sort = stable_sort; -var fast_sort = stable_sort; +let fast_sort = stable_sort; export { - length , - hd , - compare_lengths , - compare_length_with , - cons , - tl , - nth , - nth_opt , - rev , - init , - append , - rev_append , - concat , - flatten , - iter , - iteri , - map , + length, + hd, + compare_lengths, + compare_length_with, + cons, + tl, + nth, + nth_opt, + rev, + init, + append, + rev_append, + concat, + flatten, + iter, + iteri, + map, mapi$1 as mapi, - rev_map , - fold_left , - fold_right , - iter2 , - map2 , - rev_map2 , - fold_left2 , - fold_right2 , - for_all , - exists , - for_all2 , - exists2 , - mem , - memq , - find , - find_opt , - filter , - find_all , - partition , - assoc , - assoc_opt , - assq , - assq_opt , - mem_assoc , - mem_assq , - remove_assoc , - remove_assq , - split , - combine , - sort , - stable_sort , - fast_sort , - sort_uniq , - merge , + rev_map, + fold_left, + fold_right, + iter2, + map2, + rev_map2, + fold_left2, + fold_right2, + for_all, + exists, + for_all2, + exists2, + mem, + memq, + find, + find_opt, + filter, + find_all, + partition, + assoc, + assoc_opt, + assq, + assq_opt, + mem_assoc, + mem_assq, + remove_assoc, + remove_assq, + split, + combine, + sort, + stable_sort, + fast_sort, + sort_uniq, + merge, } /* No side effect */ diff --git a/lib/es6/map.js b/lib/es6/map.js index 47e7b3e6e7..0f78c18808 100644 --- a/lib/es6/map.js +++ b/lib/es6/map.js @@ -4,53 +4,53 @@ import * as Curry from "./curry.js"; import * as Caml_option from "./caml_option.js"; function Make(funarg) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -58,34 +58,34 @@ function Make(funarg) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -93,506 +93,506 @@ function Make(funarg) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var add = function (x, data, param) { + let add = function (x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var min_binding = function (_param) { + let min_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var min_binding_opt = function (_param) { + let min_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var max_binding = function (_param) { + let max_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var max_binding_opt = function (_param) { + let max_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var remove_min_binding = function (param) { + let remove_min_binding = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_binding(l), param.v, param.d, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var update = function (x, f, param) { + let update = function (x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var mapi = function (f, param) { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -603,12 +603,12 @@ function Make(funarg) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -619,32 +619,32 @@ function Make(funarg) { return true; } _param = param.r; - continue ; + continue; }; }; - var add_min_binding = function (k, x, param) { + let add_min_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); } }; - var add_max_binding = function (k, x, param) { + let add_max_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); } }; - var join = function (l, v, d, r) { + let join = function (l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -653,131 +653,131 @@ function Make(funarg) { return create(l, v, d, r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); }; - var concat_or_join = function (t1, v, d, t2) { + let concat_or_join = function (t1, v, d, t2) { if (d !== undefined) { return join(t1, v, Caml_option.valFromOption(d), t2); } else { return concat(t1, t2); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var merge$1 = function (f, s1, s2) { + let merge$1 = function (f, s1, s2) { if (typeof s1 !== "object") { if (typeof s2 !== "object") { return "Empty"; } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); }; - var union = function (f, s1, s2) { + let union = function (f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { return join(l$1, v2, d2, r$1); } }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -788,38 +788,38 @@ function Make(funarg) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } }; - var cons_enum = function (_m, _e) { + let cons_enum = function (_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -831,15 +831,15 @@ function Make(funarg) { _3: e }; _m = m.l; - continue ; + continue; }; }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -850,25 +850,25 @@ function Make(funarg) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(funarg.compare, e1._0, e2._0); + let c = Curry._2(funarg.compare, e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -887,20 +887,20 @@ function Make(funarg) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var bindings_aux = function (_accu, _param) { + let bindings_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -912,51 +912,51 @@ function Make(funarg) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; }; - var bindings = function (s) { + let bindings = function (s) { return bindings_aux(/* [] */0, s); }; return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - update: update, - singleton: singleton, - remove: remove, - merge: merge$1, - union: union, - compare: compare, - equal: equal, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - bindings: bindings, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - choose: min_binding, - choose_opt: min_binding_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - map: map, - mapi: mapi - }; + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + update: update, + singleton: singleton, + remove: remove, + merge: merge$1, + union: union, + compare: compare, + equal: equal, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + bindings: bindings, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + choose: min_binding, + choose_opt: min_binding_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + map: map, + mapi: mapi + }; } export { - Make , + Make, } /* No side effect */ diff --git a/lib/es6/mapLabels.js b/lib/es6/mapLabels.js index 8761d6276c..0706caa57b 100644 --- a/lib/es6/mapLabels.js +++ b/lib/es6/mapLabels.js @@ -4,53 +4,53 @@ import * as Curry from "./curry.js"; import * as Caml_option from "./caml_option.js"; function Make(Ord) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -58,34 +58,34 @@ function Make(Ord) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -93,506 +93,506 @@ function Make(Ord) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var add = function (x, data, param) { + let add = function (x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first_aux = function (_v0, _d0, f, _param) { + let find_first_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_aux(v, param.d, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_first_opt_aux = function (_v0, _d0, f, _param) { + let find_first_opt_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_opt_aux(v, param.d, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_last_aux = function (_v0, _d0, f, _param) { + let find_last_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_aux(v, param.d, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_last_opt_aux = function (_v0, _d0, f, _param) { + let find_last_opt_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_opt_aux(v, param.d, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var min_binding = function (_param) { + let min_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var min_binding_opt = function (_param) { + let min_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var max_binding = function (_param) { + let max_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var max_binding_opt = function (_param) { + let max_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var remove_min_binding = function (param) { + let remove_min_binding = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_binding(l), param.v, param.d, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var update = function (x, f, param) { + let update = function (x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var mapi = function (f, param) { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -603,12 +603,12 @@ function Make(Ord) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -619,32 +619,32 @@ function Make(Ord) { return true; } _param = param.r; - continue ; + continue; }; }; - var add_min_binding = function (k, x, param) { + let add_min_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); } }; - var add_max_binding = function (k, x, param) { + let add_max_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); } }; - var join = function (l, v, d, r) { + let join = function (l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -653,131 +653,131 @@ function Make(Ord) { return create(l, v, d, r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); }; - var concat_or_join = function (t1, v, d, t2) { + let concat_or_join = function (t1, v, d, t2) { if (d !== undefined) { return join(t1, v, Caml_option.valFromOption(d), t2); } else { return concat(t1, t2); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var merge$1 = function (f, s1, s2) { + let merge$1 = function (f, s1, s2) { if (typeof s1 !== "object") { if (typeof s2 !== "object") { return "Empty"; } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); }; - var union = function (f, s1, s2) { + let union = function (f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { return join(l$1, v2, d2, r$1); } }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -788,38 +788,38 @@ function Make(Ord) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } }; - var cons_enum = function (_m, _e) { + let cons_enum = function (_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -831,15 +831,15 @@ function Make(Ord) { _3: e }; _m = m.l; - continue ; + continue; }; }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -850,25 +850,25 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -887,20 +887,20 @@ function Make(Ord) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var bindings_aux = function (_accu, _param) { + let bindings_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -912,66 +912,66 @@ function Make(Ord) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; }; - var bindings = function (s) { + let bindings = function (s) { return bindings_aux(/* [] */0, s); }; return { - height: height, - create: create, - singleton: singleton, - bal: bal, - empty: "Empty", - is_empty: is_empty, - add: add, - find: find, - find_first_aux: find_first_aux, - find_first: find_first, - find_first_opt_aux: find_first_opt_aux, - find_first_opt: find_first_opt, - find_last_aux: find_last_aux, - find_last: find_last, - find_last_opt_aux: find_last_opt_aux, - find_last_opt: find_last_opt, - find_opt: find_opt, - mem: mem, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - remove_min_binding: remove_min_binding, - remove: remove, - update: update, - iter: iter, - map: map, - mapi: mapi, - fold: fold, - for_all: for_all, - exists: exists, - add_min_binding: add_min_binding, - add_max_binding: add_max_binding, - join: join, - concat: concat, - concat_or_join: concat_or_join, - split: split, - merge: merge$1, - union: union, - filter: filter, - partition: partition, - cons_enum: cons_enum, - compare: compare, - equal: equal, - cardinal: cardinal, - bindings_aux: bindings_aux, - bindings: bindings, - choose: min_binding, - choose_opt: min_binding_opt - }; + height: height, + create: create, + singleton: singleton, + bal: bal, + empty: "Empty", + is_empty: is_empty, + add: add, + find: find, + find_first_aux: find_first_aux, + find_first: find_first, + find_first_opt_aux: find_first_opt_aux, + find_first_opt: find_first_opt, + find_last_aux: find_last_aux, + find_last: find_last, + find_last_opt_aux: find_last_opt_aux, + find_last_opt: find_last_opt, + find_opt: find_opt, + mem: mem, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + remove_min_binding: remove_min_binding, + remove: remove, + update: update, + iter: iter, + map: map, + mapi: mapi, + fold: fold, + for_all: for_all, + exists: exists, + add_min_binding: add_min_binding, + add_max_binding: add_max_binding, + join: join, + concat: concat, + concat_or_join: concat_or_join, + split: split, + merge: merge$1, + union: union, + filter: filter, + partition: partition, + cons_enum: cons_enum, + compare: compare, + equal: equal, + cardinal: cardinal, + bindings_aux: bindings_aux, + bindings: bindings, + choose: min_binding, + choose_opt: min_binding_opt + }; } export { - Make , + Make, } /* No side effect */ diff --git a/lib/es6/moreLabels.js b/lib/es6/moreLabels.js index 143c02df79..2e3a589459 100644 --- a/lib/es6/moreLabels.js +++ b/lib/es6/moreLabels.js @@ -5,7 +5,7 @@ import * as Curry from "./curry.js"; import * as Caml_option from "./caml_option.js"; import * as HashtblLabels from "./hashtblLabels.js"; -var Hashtbl = { +let Hashtbl = { create: HashtblLabels.create, clear: HashtblLabels.clear, reset: HashtblLabels.reset, @@ -32,1950 +32,1950 @@ var Hashtbl = { seeded_hash_param: HashtblLabels.seeded_hash_param }; -var $$Map = { +let $$Map = { Make: (function (funarg) { - var height = function (param) { - if (typeof param !== "object") { - return 0; - } else { - return param.h; - } - }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); - return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { - return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - if (hl > (hr + 2 | 0)) { - if (typeof l !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; - if (height(ll) >= height(lr)) { - return create(ll, lv, ld, create(lr, x, d, r)); - } - if (typeof lr === "object") { - return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); - } + let height = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return param.h; + } + }; + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); + return { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { + return { + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + if (hl > (hr + 2 | 0)) { + if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - if (hr <= (hl + 2 | 0)) { - return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; + if (height(ll) >= height(lr)) { + return create(ll, lv, ld, create(lr, x, d, r)); } - if (typeof r !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; - if (height(rr) >= height(rl)) { - return create(create(l, x, d, rl), rv, rd, rr); - } - if (typeof rl === "object") { - return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); + if (typeof lr === "object") { + return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - }; - var is_empty = function (param) { - if (typeof param !== "object") { - return true; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + if (hr <= (hl + 2 | 0)) { + return { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + } + if (typeof r !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; + if (height(rr) >= height(rl)) { + return create(create(l, x, d, rl), rv, rd, rr); + } + if (typeof rl === "object") { + return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + }; + let is_empty = function (param) { + if (typeof param !== "object") { + return true; + } else { + return false; + } + }; + let add = function (x, data, param) { + if (typeof param !== "object") { + return { + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + if (d === data) { + return param; } else { - return false; - } - }; - var add = function (x, data, param) { - if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - if (d === data) { - return param; - } else { - return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; - } - } - if (c < 0) { - var ll = add(x, data, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } - var rr = add(x, data, r); - if (r === rr) { + } + if (c < 0) { + let ll = add(x, data, l); + if (l === ll) { return param; } else { - return bal(l, v, d, rr); - } - }; - var find = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return param.d; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var find_first_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; - }; - var find_first = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_aux(v, param.d, f, param.l); - } - _param = param.r; - continue ; - }; - }; - var find_first_opt_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; - }; - var find_first_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_opt_aux(v, param.d, f, param.l); - } - _param = param.r; - continue ; - }; - }; - var find_last_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_aux(v, param.d, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_last_opt_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_opt_aux(v, param.d, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_opt = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return Caml_option.some(param.d); - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var mem = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return true; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var min_binding = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var l = param.l; - if (typeof l !== "object") { - return [ - param.v, - param.d - ]; - } - _param = l; - continue ; - }; - }; - var min_binding_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var l = param.l; - if (typeof l !== "object") { - return [ - param.v, - param.d - ]; - } - _param = l; - continue ; - }; - }; - var max_binding = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var r = param.r; - if (typeof r !== "object") { - return [ - param.v, - param.d - ]; - } - _param = r; - continue ; - }; - }; - var max_binding_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var r = param.r; - if (typeof r !== "object") { - return [ - param.v, - param.d - ]; - } - _param = r; - continue ; - }; - }; - var remove_min_binding = function (param) { + return bal(ll, v, d, r); + } + } + let rr = add(x, data, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let find = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; - if (typeof l !== "object") { - return param.r; - } else { - return bal(remove_min_binding(l), param.v, param.d, param.r); + let c = Curry._2(funarg.compare, x, param.v); + if (c === 0) { + return param.d; } + _param = c < 0 ? param.l : param.r; + continue; }; - var merge = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; + }; + let find_first_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; + if (typeof param !== "object") { + return [ + v0, + d0 + ]; } - if (typeof t2 !== "object") { - return t1; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _d0 = param.d; + _v0 = v; + continue; } - var match = min_binding(t2); - return bal(t1, match[0], match[1], remove_min_binding(t2)); + _param = param.r; + continue; }; - var remove = function (x, param) { + }; + let find_first = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return merge(l, r); - } - if (c < 0) { - var ll = remove(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var rr = remove(x, r); - if (r === rr) { - return param; - } else { - return bal(l, v, d, rr); + let v = param.v; + if (Curry._1(f, v)) { + return find_first_aux(v, param.d, f, param.l); } + _param = param.r; + continue; }; - var update = function (x, f, param) { + }; + let find_first_opt_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { - var data = Curry._1(f, undefined); - if (data !== undefined) { - return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; - } else { - return "Empty"; - } - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); - if (data$1 === undefined) { - return merge(l, r); - } - var data$2 = Caml_option.valFromOption(data$1); - if (d === data$2) { - return param; - } else { - return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; - } - } - if (c < 0) { - var ll = update(x, f, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + return [ + v0, + d0 + ]; } - var rr = update(x, f, r); - if (r === rr) { - return param; - } else { - return bal(l, v, d, rr); + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _d0 = param.d; + _v0 = v; + continue; } + _param = param.r; + continue; }; - var iter = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - iter(f, param.l); - Curry._2(f, param.v, param.d); - _param = param.r; - continue ; - }; - }; - var map = function (f, param) { + }; + let find_first_opt = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); - return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; + let v = param.v; + if (Curry._1(f, v)) { + return find_first_opt_aux(v, param.d, f, param.l); + } + _param = param.r; + continue; }; - var mapi = function (f, param) { + }; + let find_last_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { - return "Empty"; + return [ + v0, + d0 + ]; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); - return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { - while(true) { - var accu = _accu; - var m = _m; - if (typeof m !== "object") { - return accu; - } - _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); - _m = m.r; - continue ; - }; - }; - var for_all = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return true; - } - if (!Curry._2(p, param.v, param.d)) { - return false; - } - if (!for_all(p, param.l)) { - return false; - } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; - }; - var exists = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - if (Curry._2(p, param.v, param.d)) { - return true; - } - if (exists(p, param.l)) { - return true; - } - _param = param.r; - continue ; - }; - }; - var add_min_binding = function (k, x, param) { - if (typeof param !== "object") { - return singleton(k, x); - } else { - return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); + _d0 = param.d; + _v0 = v; + continue; } + _param = param.l; + continue; }; - var add_max_binding = function (k, x, param) { + }; + let find_last = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return singleton(k, x); - } else { - return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); - } - }; - var join = function (l, v, d, r) { - if (typeof l !== "object") { - return add_min_binding(v, d, r); - } - var lh = l.h; - if (typeof r !== "object") { - return add_max_binding(v, d, l); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var rh = r.h; - if (lh > (rh + 2 | 0)) { - return bal(l.l, l.v, l.d, join(l.r, v, d, r)); - } else if (rh > (lh + 2 | 0)) { - return bal(join(l, v, d, r.l), r.v, r.d, r.r); - } else { - return create(l, v, d, r); + let v = param.v; + if (Curry._1(f, v)) { + return find_last_aux(v, param.d, f, param.r); } + _param = param.l; + continue; }; - var concat = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; + }; + let find_last_opt_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; + if (typeof param !== "object") { + return [ + v0, + d0 + ]; } - if (typeof t2 !== "object") { - return t1; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.r; + _d0 = param.d; + _v0 = v; + continue; } - var match = min_binding(t2); - return join(t1, match[0], match[1], remove_min_binding(t2)); + _param = param.l; + continue; }; - var concat_or_join = function (t1, v, d, t2) { - if (d !== undefined) { - return join(t1, v, Caml_option.valFromOption(d), t2); - } else { - return concat(t1, t2); + }; + let find_last_opt = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + if (Curry._1(f, v)) { + return find_last_opt_aux(v, param.d, f, param.r); } + _param = param.l; + continue; }; - var split = function (x, param) { + }; + let find_opt = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - undefined, - "Empty" - ]; + return; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { - return [ - l, - Caml_option.some(d), - r - ]; - } - if (c < 0) { - var match = split(x, l); - return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + return Caml_option.some(param.d); } - var match$1 = split(x, r); - return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + _param = c < 0 ? param.l : param.r; + continue; }; - var merge$1 = function (f, s1, s2) { - if (typeof s1 !== "object") { - if (typeof s2 !== "object") { - return "Empty"; - } - - } else { - var v1 = s1.v; - if (s1.h >= height(s2)) { - var match = split(v1, s2); - return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); - } - + }; + let mem = function (x, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return false; } - if (typeof s2 !== "object") { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); - return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); - }; - var union = function (f, s1, s2) { - if (typeof s1 !== "object") { - return s2; + let c = Curry._2(funarg.compare, x, param.v); + if (c === 0) { + return true; } - var d1 = s1.d; - var v1 = s1.v; - if (typeof s2 !== "object") { - return s1; - } - var d2 = s2.d; - var v2 = s2.v; - if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); - if (d2$1 !== undefined) { - return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); - } else { - return join(l, v1, d1, r); - } + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let min_binding = function (_param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); - if (d1$1 !== undefined) { - return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); - } else { - return join(l$1, v2, d2, r$1); + let l = param.l; + if (typeof l !== "object") { + return [ + param.v, + param.d + ]; } + _param = l; + continue; }; - var filter = function (p, param) { + }; + let min_binding_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); - if (pvd) { - if (l === l$p && r === r$p) { - return param; - } else { - return join(l$p, v, d, r$p); - } - } else { - return concat(l$p, r$p); + let l = param.l; + if (typeof l !== "object") { + return [ + param.v, + param.d + ]; } + _param = l; + continue; }; - var partition = function (p, param) { + }; + let max_binding = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - "Empty" - ]; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; - if (pvd) { - return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; - } else { + let r = param.r; + if (typeof r !== "object") { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + param.v, + param.d + ]; } + _param = r; + continue; }; - var cons_enum = function (_m, _e) { - while(true) { - var e = _e; - var m = _m; - if (typeof m !== "object") { - return e; - } - _e = { - TAG: "More", - _0: m.v, - _1: m.d, - _2: m.r, - _3: e - }; - _m = m.l; - continue ; - }; - }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return 0; - } else { - return -1; - } - } - if (typeof e2 !== "object") { - return 1; - } - var c = Curry._2(funarg.compare, e1._0, e2._0); - if (c !== 0) { - return c; - } - var c$1 = Curry._2(cmp, e1._1, e2._1); - if (c$1 !== 0) { - return c$1; - } - _e2 = cons_enum(e2._2, e2._3); - _e1 = cons_enum(e1._2, e1._3); - continue ; - }; - }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return true; - } else { - return false; - } - } - if (typeof e2 !== "object") { - return false; - } - if (Curry._2(funarg.compare, e1._0, e2._0) !== 0) { - return false; - } - if (!Curry._2(cmp, e1._1, e2._1)) { - return false; - } - _e2 = cons_enum(e2._2, e2._3); - _e1 = cons_enum(e1._2, e1._3); - continue ; - }; - }; - var cardinal = function (param) { + }; + let max_binding_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return 0; - } else { - return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + return; + } + let r = param.r; + if (typeof r !== "object") { + return [ + param.v, + param.d + ]; } + _param = r; + continue; }; - var bindings_aux = function (_accu, _param) { - while(true) { - var param = _param; - var accu = _accu; - if (typeof param !== "object") { - return accu; - } - _param = param.l; - _accu = { - hd: [ - param.v, - param.d - ], - tl: bindings_aux(accu, param.r) + }; + let remove_min_binding = function (param) { + if (typeof param !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); + } + let l = param.l; + if (typeof l !== "object") { + return param.r; + } else { + return bal(remove_min_binding(l), param.v, param.d, param.r); + } + }; + let merge = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } + if (typeof t2 !== "object") { + return t1; + } + let match = min_binding(t2); + return bal(t1, match[0], match[1], remove_min_binding(t2)); + }; + let remove = function (x, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return merge(l, r); + } + if (c < 0) { + let ll = remove(x, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, d, r); + } + } + let rr = remove(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let update = function (x, f, param) { + if (typeof param !== "object") { + let data = Curry._1(f, undefined); + if (data !== undefined) { + return { + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 }; - continue ; - }; - }; - var bindings = function (s) { - return bindings_aux(/* [] */0, s); - }; - return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - update: update, - singleton: singleton, - remove: remove, - merge: merge$1, - union: union, - compare: compare, - equal: equal, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - bindings: bindings, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - choose: min_binding, - choose_opt: min_binding_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - map: map, - mapi: mapi - }; - }) -}; - -var $$Set = { - Make: (function (funarg) { - var height = function (param) { - if (typeof param !== "object") { - return 0; } else { - return param.h; + return "Empty"; } - }; - var create = function (l, v, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - if (hl > (hr + 2 | 0)) { - if (typeof l !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var lr = l.r; - var lv = l.v; - var ll = l.l; - if (height(ll) >= height(lr)) { - return create(ll, lv, create(lr, v, r)); - } - if (typeof lr === "object") { - return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); - } - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + let data$1 = Curry._1(f, Caml_option.some(d)); + if (data$1 === undefined) { + return merge(l, r); } - if (hr <= (hl + 2 | 0)) { + let data$2 = Caml_option.valFromOption(data$1); + if (d === data$2) { + return param; + } else { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } - if (typeof r !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + } + if (c < 0) { + let ll = update(x, f, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, d, r); + } + } + let rr = update(x, f, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let iter = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + iter(f, param.l); + Curry._2(f, param.v, param.d); + _param = param.r; + continue; + }; + }; + let map = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); + return { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); + return { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { + while(true) { + let accu = _accu; + let m = _m; + if (typeof m !== "object") { + return accu; + } + _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); + _m = m.r; + continue; + }; + }; + let for_all = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return true; } - var rr = r.r; - var rv = r.v; - var rl = r.l; - if (height(rr) >= height(rl)) { - return create(create(l, v, rl), rv, rr); + if (!Curry._2(p, param.v, param.d)) { + return false; } - if (typeof rl === "object") { - return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); + if (!for_all(p, param.l)) { + return false; } - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + _param = param.r; + continue; }; - var add = function (x, param) { + }; + let exists = function (p, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return param; + return false; } - if (c < 0) { - var ll = add(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, r); - } + if (Curry._2(p, param.v, param.d)) { + return true; } - var rr = add(x, r); - if (r === rr) { - return param; - } else { - return bal(l, v, rr); + if (exists(p, param.l)) { + return true; } - }; - var singleton = function (x) { - return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - }; - var add_min_element = function (x, param) { - if (typeof param !== "object") { - return singleton(x); - } else { - return bal(add_min_element(x, param.l), param.v, param.r); + _param = param.r; + continue; + }; + }; + let add_min_binding = function (k, x, param) { + if (typeof param !== "object") { + return singleton(k, x); + } else { + return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); + } + }; + let add_max_binding = function (k, x, param) { + if (typeof param !== "object") { + return singleton(k, x); + } else { + return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); + } + }; + let join = function (l, v, d, r) { + if (typeof l !== "object") { + return add_min_binding(v, d, r); + } + let lh = l.h; + if (typeof r !== "object") { + return add_max_binding(v, d, l); + } + let rh = r.h; + if (lh > (rh + 2 | 0)) { + return bal(l.l, l.v, l.d, join(l.r, v, d, r)); + } else if (rh > (lh + 2 | 0)) { + return bal(join(l, v, d, r.l), r.v, r.d, r.r); + } else { + return create(l, v, d, r); + } + }; + let concat = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } + if (typeof t2 !== "object") { + return t1; + } + let match = min_binding(t2); + return join(t1, match[0], match[1], remove_min_binding(t2)); + }; + let concat_or_join = function (t1, v, d, t2) { + if (d !== undefined) { + return join(t1, v, Caml_option.valFromOption(d), t2); + } else { + return concat(t1, t2); + } + }; + let split = function (x, param) { + if (typeof param !== "object") { + return [ + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return [ + l, + Caml_option.some(d), + r + ]; + } + if (c < 0) { + let match = split(x, l); + return [ + match[0], + match[1], + join(match[2], v, d, r) + ]; + } + let match$1 = split(x, r); + return [ + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; + }; + let merge$1 = function (f, s1, s2) { + if (typeof s1 !== "object") { + if (typeof s2 !== "object") { + return "Empty"; } - }; - var add_max_element = function (x, param) { - if (typeof param !== "object") { - return singleton(x); + + } else { + let v1 = s1.v; + if (s1.h >= height(s2)) { + let match = split(v1, s2); + return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); + } + + } + if (typeof s2 !== "object") { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); + return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); + }; + let union = function (f, s1, s2) { + if (typeof s1 !== "object") { + return s2; + } + let d1 = s1.d; + let v1 = s1.v; + if (typeof s2 !== "object") { + return s1; + } + let d2 = s2.d; + let v2 = s2.v; + if (s1.h >= s2.h) { + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); + if (d2$1 !== undefined) { + return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); + } else { + return join(l, v1, d1, r); + } + } + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); + if (d1$1 !== undefined) { + return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); + } else { + return join(l$1, v2, d2, r$1); + } + }; + let filter = function (p, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); + if (pvd) { + if (l === l$p && r === r$p) { + return param; } else { - return bal(param.l, param.v, add_max_element(x, param.r)); + return join(l$p, v, d, r$p); + } + } else { + return concat(l$p, r$p); + } + }; + let partition = function (p, param) { + if (typeof param !== "object") { + return [ + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; + if (pvd) { + return [ + join(lt, v, d, rt), + concat(lf, rf) + ]; + } else { + return [ + concat(lt, rt), + join(lf, v, d, rf) + ]; + } + }; + let cons_enum = function (_m, _e) { + while(true) { + let e = _e; + let m = _m; + if (typeof m !== "object") { + return e; + } + _e = { + TAG: "More", + _0: m.v, + _1: m.d, + _2: m.r, + _3: e + }; + _m = m.l; + continue; + }; + }; + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return 0; + } else { + return -1; + } } - }; - var join = function (l, v, r) { - if (typeof l !== "object") { - return add_min_element(v, r); + if (typeof e2 !== "object") { + return 1; } - var lh = l.h; - if (typeof r !== "object") { - return add_max_element(v, l); + let c = Curry._2(funarg.compare, e1._0, e2._0); + if (c !== 0) { + return c; } - var rh = r.h; - if (lh > (rh + 2 | 0)) { - return bal(l.l, l.v, join(l.r, v, r)); - } else if (rh > (lh + 2 | 0)) { - return bal(join(l, v, r.l), r.v, r.r); - } else { - return create(l, v, r); + let c$1 = Curry._2(cmp, e1._1, e2._1); + if (c$1 !== 0) { + return c$1; } + _e2 = cons_enum(e2._2, e2._3); + _e1 = cons_enum(e1._2, e1._3); + continue; }; - var min_elt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var l = param.l; - if (typeof l !== "object") { - return param.v; - } - _param = l; - continue ; - }; - }; - var min_elt_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var l = param.l; - if (typeof l !== "object") { - return Caml_option.some(param.v); + }; + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return true; + } else { + return false; } - _param = l; - continue ; + } + if (typeof e2 !== "object") { + return false; + } + if (Curry._2(funarg.compare, e1._0, e2._0) !== 0) { + return false; + } + if (!Curry._2(cmp, e1._1, e2._1)) { + return false; + } + _e2 = cons_enum(e2._2, e2._3); + _e1 = cons_enum(e1._2, e1._3); + continue; + }; + }; + let cardinal = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + } + }; + let bindings_aux = function (_accu, _param) { + while(true) { + let param = _param; + let accu = _accu; + if (typeof param !== "object") { + return accu; + } + _param = param.l; + _accu = { + hd: [ + param.v, + param.d + ], + tl: bindings_aux(accu, param.r) }; - }; - var max_elt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var r = param.r; - if (typeof r !== "object") { - return param.v; - } - _param = r; - continue ; + continue; + }; + }; + let bindings = function (s) { + return bindings_aux(/* [] */0, s); + }; + return { + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + update: update, + singleton: singleton, + remove: remove, + merge: merge$1, + union: union, + compare: compare, + equal: equal, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + bindings: bindings, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + choose: min_binding, + choose_opt: min_binding_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + map: map, + mapi: mapi + }; + }) +}; + +let $$Set = { + Make: (function (funarg) { + let height = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return param.h; + } + }; + let create = function (l, v, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + return { + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + if (hl > (hr + 2 | 0)) { + if (typeof l !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let lr = l.r; + let lv = l.v; + let ll = l.l; + if (height(ll) >= height(lr)) { + return create(ll, lv, create(lr, v, r)); + } + if (typeof lr === "object") { + return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + if (hr <= (hl + 2 | 0)) { + return { + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 }; - }; - var max_elt_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var r = param.r; - if (typeof r !== "object") { - return Caml_option.some(param.v); - } - _param = r; - continue ; + } + if (typeof r !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let rr = r.r; + let rv = r.v; + let rl = r.l; + if (height(rr) >= height(rl)) { + return create(create(l, v, rl), rv, rr); + } + if (typeof rl === "object") { + return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + }; + let add = function (x, param) { + if (typeof param !== "object") { + return { + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 }; - }; - var remove_min_elt = function (param) { + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return param; + } + if (c < 0) { + let ll = add(x, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, r); + } + } + let rr = add(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, rr); + } + }; + let singleton = function (x) { + return { + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + }; + let add_min_element = function (x, param) { + if (typeof param !== "object") { + return singleton(x); + } else { + return bal(add_min_element(x, param.l), param.v, param.r); + } + }; + let add_max_element = function (x, param) { + if (typeof param !== "object") { + return singleton(x); + } else { + return bal(param.l, param.v, add_max_element(x, param.r)); + } + }; + let join = function (l, v, r) { + if (typeof l !== "object") { + return add_min_element(v, r); + } + let lh = l.h; + if (typeof r !== "object") { + return add_max_element(v, l); + } + let rh = r.h; + if (lh > (rh + 2 | 0)) { + return bal(l.l, l.v, join(l.r, v, r)); + } else if (rh > (lh + 2 | 0)) { + return bal(join(l, v, r.l), r.v, r.r); + } else { + return create(l, v, r); + } + }; + let min_elt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { - return param.r; - } else { - return bal(remove_min_elt(l), param.v, param.r); + return param.v; } + _param = l; + continue; }; - var merge = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; - } else if (typeof t2 !== "object") { - return t1; - } else { - return bal(t1, min_elt(t2), remove_min_elt(t2)); + }; + let min_elt_opt = function (_param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; } - }; - var concat = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; - } else if (typeof t2 !== "object") { - return t1; - } else { - return join(t1, min_elt(t2), remove_min_elt(t2)); + let l = param.l; + if (typeof l !== "object") { + return Caml_option.some(param.v); } + _param = l; + continue; }; - var split = function (x, param) { + }; + let max_elt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return [ - l, - true, - r - ]; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - if (c < 0) { - var match = split(x, l); - return [ - match[0], - match[1], - join(match[2], v, r) - ]; + let r = param.r; + if (typeof r !== "object") { + return param.v; } - var match$1 = split(x, r); - return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + _param = r; + continue; }; - var is_empty = function (param) { + }; + let max_elt_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return true; - } else { - return false; + return; } + let r = param.r; + if (typeof r !== "object") { + return Caml_option.some(param.v); + } + _param = r; + continue; }; - var mem = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return true; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var remove = function (x, param) { + }; + let remove_min_elt = function (param) { + if (typeof param !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); + } + let l = param.l; + if (typeof l !== "object") { + return param.r; + } else { + return bal(remove_min_elt(l), param.v, param.r); + } + }; + let merge = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } else if (typeof t2 !== "object") { + return t1; + } else { + return bal(t1, min_elt(t2), remove_min_elt(t2)); + } + }; + let concat = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } else if (typeof t2 !== "object") { + return t1; + } else { + return join(t1, min_elt(t2), remove_min_elt(t2)); + } + }; + let split = function (x, param) { + if (typeof param !== "object") { + return [ + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return [ + l, + true, + r + ]; + } + if (c < 0) { + let match = split(x, l); + return [ + match[0], + match[1], + join(match[2], v, r) + ]; + } + let match$1 = split(x, r); + return [ + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; + }; + let is_empty = function (param) { + if (typeof param !== "object") { + return true; + } else { + return false; + } + }; + let mem = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return false; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { - return merge(l, r); - } - if (c < 0) { - var ll = remove(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, r); - } + return true; } - var rr = remove(x, r); - if (r === rr) { + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let remove = function (x, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return merge(l, r); + } + if (c < 0) { + let ll = remove(x, l); + if (l === ll) { return param; } else { - return bal(l, v, rr); - } - }; - var union = function (s1, s2) { + return bal(ll, v, r); + } + } + let rr = remove(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, rr); + } + }; + let union = function (s1, s2) { + if (typeof s1 !== "object") { + return s2; + } + let h1 = s1.h; + let v1 = s1.v; + if (typeof s2 !== "object") { + return s1; + } + let h2 = s2.h; + let v2 = s2.v; + if (h1 >= h2) { + if (h2 === 1) { + return add(v2, s1); + } + let match = split(v1, s2); + return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); + } + if (h1 === 1) { + return add(v1, s2); + } + let match$1 = split(v2, s1); + return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); + }; + let inter = function (s1, s2) { + if (typeof s1 !== "object") { + return "Empty"; + } + if (typeof s2 !== "object") { + return "Empty"; + } + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; + if (match[1]) { + return join(inter(l1, l2), v1, inter(r1, match[2])); + } else { + return concat(inter(l1, l2), inter(r1, match[2])); + } + }; + let diff = function (s1, s2) { + if (typeof s1 !== "object") { + return "Empty"; + } + if (typeof s2 !== "object") { + return s1; + } + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; + if (match[1]) { + return concat(diff(l1, l2), diff(r1, match[2])); + } else { + return join(diff(l1, l2), v1, diff(r1, match[2])); + } + }; + let cons_enum = function (_s, _e) { + while(true) { + let e = _e; + let s = _s; + if (typeof s !== "object") { + return e; + } + _e = { + TAG: "More", + _0: s.v, + _1: s.r, + _2: e + }; + _s = s.l; + continue; + }; + }; + let compare_aux = function (_e1, _e2) { + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return 0; + } else { + return -1; + } + } + if (typeof e2 !== "object") { + return 1; + } + let c = Curry._2(funarg.compare, e1._0, e2._0); + if (c !== 0) { + return c; + } + _e2 = cons_enum(e2._1, e2._2); + _e1 = cons_enum(e1._1, e1._2); + continue; + }; + }; + let compare = function (s1, s2) { + return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); + }; + let equal = function (s1, s2) { + return compare(s1, s2) === 0; + }; + let subset = function (_s1, _s2) { + while(true) { + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { - return s2; + return true; } - var h1 = s1.h; - var v1 = s1.v; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { - return s1; + return false; + } + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(funarg.compare, v1, s2.v); + if (c === 0) { + if (!subset(l1, l2)) { + return false; + } + _s2 = r2; + _s1 = r1; + continue; } - var h2 = s2.h; - var v2 = s2.v; - if (h1 >= h2) { - if (h2 === 1) { - return add(v2, s1); + if (c < 0) { + if (!subset({ + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { + return false; } - var match = split(v1, s2); - return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); + _s1 = r1; + continue; } - if (h1 === 1) { - return add(v1, s2); + if (!subset({ + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { + return false; } - var match$1 = split(v2, s1); - return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); + _s1 = l1; + continue; }; - var inter = function (s1, s2) { - if (typeof s1 !== "object") { - return "Empty"; + }; + let iter = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + iter(f, param.l); + Curry._1(f, param.v); + _param = param.r; + continue; + }; + }; + let fold = function (f, _s, _accu) { + while(true) { + let accu = _accu; + let s = _s; + if (typeof s !== "object") { + return accu; + } + _accu = Curry._2(f, s.v, fold(f, s.l, accu)); + _s = s.r; + continue; + }; + }; + let for_all = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return true; } - if (typeof s2 !== "object") { - return "Empty"; + if (!Curry._1(p, param.v)) { + return false; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; - if (match[1]) { - return join(inter(l1, l2), v1, inter(r1, match[2])); - } else { - return concat(inter(l1, l2), inter(r1, match[2])); + if (!for_all(p, param.l)) { + return false; } + _param = param.r; + continue; }; - var diff = function (s1, s2) { - if (typeof s1 !== "object") { - return "Empty"; + }; + let exists = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return false; } - if (typeof s2 !== "object") { - return s1; - } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; - if (match[1]) { - return concat(diff(l1, l2), diff(r1, match[2])); + if (Curry._1(p, param.v)) { + return true; + } + if (exists(p, param.l)) { + return true; + } + _param = param.r; + continue; + }; + }; + let filter = function (p, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); + if (pv) { + if (l === l$p && r === r$p) { + return param; } else { - return join(diff(l1, l2), v1, diff(r1, match[2])); + return join(l$p, v, r$p); + } + } else { + return concat(l$p, r$p); + } + }; + let partition = function (p, param) { + if (typeof param !== "object") { + return [ + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; + if (pv) { + return [ + join(lt, v, rt), + concat(lf, rf) + ]; + } else { + return [ + concat(lt, rt), + join(lf, v, rf) + ]; + } + }; + let cardinal = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + } + }; + let elements_aux = function (_accu, _param) { + while(true) { + let param = _param; + let accu = _accu; + if (typeof param !== "object") { + return accu; } - }; - var cons_enum = function (_s, _e) { - while(true) { - var e = _e; - var s = _s; - if (typeof s !== "object") { - return e; - } - _e = { - TAG: "More", - _0: s.v, - _1: s.r, - _2: e - }; - _s = s.l; - continue ; - }; - }; - var compare_aux = function (_e1, _e2) { - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return 0; - } else { - return -1; - } - } - if (typeof e2 !== "object") { - return 1; - } - var c = Curry._2(funarg.compare, e1._0, e2._0); - if (c !== 0) { - return c; - } - _e2 = cons_enum(e2._1, e2._2); - _e1 = cons_enum(e1._1, e1._2); - continue ; - }; - }; - var compare = function (s1, s2) { - return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); - }; - var equal = function (s1, s2) { - return compare(s1, s2) === 0; - }; - var subset = function (_s1, _s2) { - while(true) { - var s2 = _s2; - var s1 = _s1; - if (typeof s1 !== "object") { - return true; - } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - if (typeof s2 !== "object") { - return false; - } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(funarg.compare, v1, s2.v); - if (c === 0) { - if (!subset(l1, l2)) { - return false; - } - _s2 = r2; - _s1 = r1; - continue ; - } - if (c < 0) { - if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { - return false; - } - _s1 = r1; - continue ; - } - if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { - return false; - } - _s1 = l1; - continue ; - }; - }; - var iter = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - iter(f, param.l); - Curry._1(f, param.v); - _param = param.r; - continue ; - }; - }; - var fold = function (f, _s, _accu) { - while(true) { - var accu = _accu; - var s = _s; - if (typeof s !== "object") { - return accu; - } - _accu = Curry._2(f, s.v, fold(f, s.l, accu)); - _s = s.r; - continue ; + _param = param.l; + _accu = { + hd: param.v, + tl: elements_aux(accu, param.r) }; - }; - var for_all = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return true; - } - if (!Curry._1(p, param.v)) { - return false; - } - if (!for_all(p, param.l)) { - return false; - } - _param = param.r; - continue ; - }; - }; - var exists = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - if (Curry._1(p, param.v)) { - return true; - } - if (exists(p, param.l)) { - return true; - } - _param = param.r; - continue ; - }; - }; - var filter = function (p, param) { + continue; + }; + }; + let elements = function (s) { + return elements_aux(/* [] */0, s); + }; + let find = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); - if (pv) { - if (l === l$p && r === r$p) { - return param; - } else { - return join(l$p, v, r$p); - } - } else { - return concat(l$p, r$p); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return v; } + _param = c < 0 ? param.l : param.r; + continue; }; - var partition = function (p, param) { + }; + let find_first_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; if (typeof param !== "object") { - return [ - "Empty", - "Empty" - ]; + return v0; } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; - if (pv) { - return [ - join(lt, v, rt), - concat(lf, rf) - ]; - } else { - return [ - concat(lt, rt), - join(lf, v, rf) - ]; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _v0 = v; + continue; } + _param = param.r; + continue; }; - var cardinal = function (param) { + }; + let find_first = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return 0; - } else { - return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); + } + let v = param.v; + if (Curry._1(f, v)) { + return find_first_aux(v, f, param.l); } + _param = param.r; + continue; }; - var elements_aux = function (_accu, _param) { - while(true) { - var param = _param; - var accu = _accu; - if (typeof param !== "object") { - return accu; - } + }; + let find_first_opt_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return Caml_option.some(v0); + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.l; - _accu = { - hd: param.v, - tl: elements_aux(accu, param.r) - }; - continue ; - }; - }; - var elements = function (s) { - return elements_aux(/* [] */0, s); - }; - var find = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return v; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; + _v0 = v; + continue; + } + _param = param.r; + continue; }; - var find_first_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return v0; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; + }; + let find_first_opt = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + if (Curry._1(f, v)) { + return find_first_opt_aux(v, f, param.l); + } + _param = param.r; + continue; }; - var find_first = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_aux(v, f, param.l); - } + }; + let find_last_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return v0; + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; + _v0 = v; + continue; + } + _param = param.l; + continue; }; - var find_first_opt_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return Caml_option.some(v0); - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; + }; + let find_last = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); + } + let v = param.v; + if (Curry._1(f, v)) { + return find_last_aux(v, f, param.r); + } + _param = param.l; + continue; }; - var find_first_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_opt_aux(v, f, param.l); - } + }; + let find_last_opt_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return Caml_option.some(v0); + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; - }; - var find_last_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return v0; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_aux(v, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_last_opt_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return Caml_option.some(v0); - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_opt_aux(v, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_opt = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return Caml_option.some(v); - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var try_join = function (l, v, r) { - if ((l === "Empty" || Curry._2(funarg.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(funarg.compare, v, min_elt(r)) < 0)) { - return join(l, v, r); - } else { - return union(l, add(v, r)); + _v0 = v; + continue; } + _param = param.l; + continue; }; - var map = function (f, param) { + }; + let find_last_opt = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); - if (l === l$p && v === v$p && r === r$p) { - return param; - } else { - return try_join(l$p, v$p, r$p); + let v = param.v; + if (Curry._1(f, v)) { + return find_last_opt_aux(v, f, param.r); } + _param = param.l; + continue; }; - var of_sorted_list = function (l) { - var sub = function (n, l) { - switch (n) { - case 0 : + }; + let find_opt = function (x, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return Caml_option.some(v); + } + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let try_join = function (l, v, r) { + if ((l === "Empty" || Curry._2(funarg.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(funarg.compare, v, min_elt(r)) < 0)) { + return join(l, v, r); + } else { + return union(l, add(v, r)); + } + }; + let map = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); + if (l === l$p && v === v$p && r === r$p) { + return param; + } else { + return try_join(l$p, v$p, r$p); + } + }; + let of_sorted_list = function (l) { + let sub = function (n, l) { + switch (n) { + case 0 : + return [ + "Empty", + l + ]; + case 1 : + if (l) { return [ - "Empty", - l - ]; - case 1 : - if (l) { + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; + } + break; + case 2 : + if (l) { + let match = l.tl; + if (match) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } - break; - case 2 : - if (l) { - var match = l.tl; - if (match) { + + } + break; + case 3 : + if (l) { + let match$1 = l.tl; + if (match$1) { + let match$2 = match$1.tl; + if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } - break; - case 3 : - if (l) { - var match$1 = l.tl; - if (match$1) { - var match$2 = match$1.tl; - if (match$2) { - return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; - } - - } - - } - break; - default: - - } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; - if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); - return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; - } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ] - } - }); - }; - return sub(List.length(l), l)[0]; - }; - var of_list = function (l) { - if (!l) { - return "Empty"; - } - var match = l.tl; - var x0 = l.hd; - if (!match) { - return singleton(x0); - } - var match$1 = match.tl; - var x1 = match.hd; - if (!match$1) { - return add(x1, singleton(x0)); - } - var match$2 = match$1.tl; - var x2 = match$1.hd; - if (!match$2) { - return add(x2, add(x1, singleton(x0))); - } - var match$3 = match$2.tl; - var x3 = match$2.hd; - if (match$3) { - if (match$3.tl) { - return of_sorted_list(List.sort_uniq(funarg.compare, l)); - } else { - return add(match$3.hd, add(x3, add(x2, add(x1, singleton(x0))))); - } + + } + break; + default: + + } + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; + if (l$1) { + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + return [ + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); + }; + return sub(List.length(l), l)[0]; + }; + let of_list = function (l) { + if (!l) { + return "Empty"; + } + let match = l.tl; + let x0 = l.hd; + if (!match) { + return singleton(x0); + } + let match$1 = match.tl; + let x1 = match.hd; + if (!match$1) { + return add(x1, singleton(x0)); + } + let match$2 = match$1.tl; + let x2 = match$1.hd; + if (!match$2) { + return add(x2, add(x1, singleton(x0))); + } + let match$3 = match$2.tl; + let x3 = match$2.hd; + if (match$3) { + if (match$3.tl) { + return of_sorted_list(List.sort_uniq(funarg.compare, l)); } else { - return add(x3, add(x2, add(x1, singleton(x0)))); - } - }; - return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - singleton: singleton, - remove: remove, - union: union, - inter: inter, - diff: diff, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - map: map, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements: elements, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - choose: min_elt, - choose_opt: min_elt_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - of_list: of_list - }; - }) + return add(match$3.hd, add(x3, add(x2, add(x1, singleton(x0))))); + } + } else { + return add(x3, add(x2, add(x1, singleton(x0)))); + } + }; + return { + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + singleton: singleton, + remove: remove, + union: union, + inter: inter, + diff: diff, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + map: map, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements: elements, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + choose: min_elt, + choose_opt: min_elt_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + of_list: of_list + }; + }) }; export { - Hashtbl , - $$Map , - $$Set , + Hashtbl, + $$Map, + $$Set, } /* No side effect */ diff --git a/lib/es6/parsing.js b/lib/es6/parsing.js index 2472d99ca7..3bf33e7dad 100644 --- a/lib/es6/parsing.js +++ b/lib/es6/parsing.js @@ -9,11 +9,11 @@ import * as Caml_parser from "./caml_parser.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var YYexit = /* @__PURE__ */Caml_exceptions.create("Parsing.YYexit"); +let YYexit = /* @__PURE__ */Caml_exceptions.create("Parsing.YYexit"); -var Parse_error = /* @__PURE__ */Caml_exceptions.create("Parsing.Parse_error"); +let Parse_error = /* @__PURE__ */Caml_exceptions.create("Parsing.Parse_error"); -var env = { +let env = { s_stack: Caml_array.make(100, 0), v_stack: Caml_array.make(100, undefined), symb_start_stack: Caml_array.make(100, Lexing.dummy_pos), @@ -33,12 +33,12 @@ var env = { }; function grow_stacks(param) { - var oldsize = env.stacksize; - var newsize = (oldsize << 1); - var new_s = Caml_array.make(newsize, 0); - var new_v = Caml_array.make(newsize, undefined); - var new_start = Caml_array.make(newsize, Lexing.dummy_pos); - var new_end = Caml_array.make(newsize, Lexing.dummy_pos); + let oldsize = env.stacksize; + let newsize = (oldsize << 1); + let new_s = Caml_array.make(newsize, 0); + let new_v = Caml_array.make(newsize, undefined); + let new_start = Caml_array.make(newsize, Lexing.dummy_pos); + let new_end = Caml_array.make(newsize, Lexing.dummy_pos); $$Array.blit(env.s_stack, 0, new_s, 0, oldsize); env.s_stack = new_s; $$Array.blit(env.v_stack, 0, new_v, 0, oldsize); @@ -55,56 +55,56 @@ function clear_parser(param) { env.lval = undefined; } -var current_lookahead_fun = { +let current_lookahead_fun = { contents: (function (param) { - return false; - }) + return false; + }) }; function yyparse(tables, start, lexer, lexbuf) { - var init_asp = env.asp; - var init_sp = env.sp; - var init_stackbase = env.stackbase; - var init_state = env.state; - var init_curr_char = env.curr_char; - var init_lval = env.lval; - var init_errflag = env.errflag; + let init_asp = env.asp; + let init_sp = env.sp; + let init_stackbase = env.stackbase; + let init_state = env.state; + let init_curr_char = env.curr_char; + let init_lval = env.lval; + let init_errflag = env.errflag; env.stackbase = env.sp + 1 | 0; env.curr_char = start; env.symb_end = lexbuf.lex_curr_p; try { - var _cmd = "Start"; - var _arg; + let _cmd = "Start"; + let _arg; while(true) { - var arg = _arg; - var cmd = _cmd; - var match = Caml_parser.parse_engine(tables, env, cmd, arg); + let arg = _arg; + let cmd = _cmd; + let match = Caml_parser.parse_engine(tables, env, cmd, arg); switch (match) { case "Read_token" : - var t = Curry._1(lexer, lexbuf); + let t = Curry._1(lexer, lexbuf); env.symb_start = lexbuf.lex_start_p; env.symb_end = lexbuf.lex_curr_p; _arg = t; _cmd = "Token_read"; - continue ; + continue; case "Raise_parse_error" : throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); case "Grow_stacks_1" : grow_stacks(); _arg = undefined; _cmd = "Stacks_grown_1"; - continue ; + continue; case "Grow_stacks_2" : grow_stacks(); _arg = undefined; _cmd = "Stacks_grown_2"; - continue ; + continue; case "Compute_semantic_action" : - var match$1; + let match$1; try { match$1 = [ "Semantic_action_computed", @@ -112,7 +112,7 @@ function yyparse(tables, start, lexer, lexbuf) { ]; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Parse_error) { match$1 = [ "Error_detected", @@ -120,25 +120,25 @@ function yyparse(tables, start, lexer, lexbuf) { ]; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } _arg = match$1[1]; _cmd = match$1[0]; - continue ; + continue; case "Call_error_function" : Curry._1(tables.error_function, "syntax error"); _arg = undefined; _cmd = "Error_detected"; - continue ; + continue; } }; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); - var curr_char = env.curr_char; + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let curr_char = env.curr_char; env.asp = init_asp; env.sp = init_sp; env.stackbase = init_stackbase; @@ -150,15 +150,15 @@ function yyparse(tables, start, lexer, lexbuf) { return exn$1._1; } current_lookahead_fun.contents = (function (tok) { - if (typeof tok !== "number") { - return Caml_array.get(tables.transl_block, tok.TAG) === curr_char; - } else { - return Caml_array.get(tables.transl_const, tok) === curr_char; - } - }); + if (typeof tok !== "number") { + return Caml_array.get(tables.transl_block, tok.TAG) === curr_char; + } else { + return Caml_array.get(tables.transl_const, tok) === curr_char; + } + }); throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } @@ -167,19 +167,19 @@ function peek_val(env, n) { } function symbol_start_pos(param) { - var _i = env.rule_len; + let _i = env.rule_len; while(true) { - var i = _i; + let i = _i; if (i <= 0) { return Caml_array.get(env.symb_end_stack, env.asp); } - var st = Caml_array.get(env.symb_start_stack, (env.asp - i | 0) + 1 | 0); - var en = Caml_array.get(env.symb_end_stack, (env.asp - i | 0) + 1 | 0); + let st = Caml_array.get(env.symb_start_stack, (env.asp - i | 0) + 1 | 0); + let en = Caml_array.get(env.symb_end_stack, (env.asp - i | 0) + 1 | 0); if (Caml_obj.notequal(st, en)) { return st; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -219,24 +219,24 @@ function parse_error(param) { } -var set_trace = Caml_parser.set_parser_trace; +let set_trace = Caml_parser.set_parser_trace; export { - symbol_start , - symbol_end , - rhs_start , - rhs_end , - symbol_start_pos , - symbol_end_pos , - rhs_start_pos , - rhs_end_pos , - clear_parser , - Parse_error , - set_trace , - YYexit , - yyparse , - peek_val , - is_current_lookahead , - parse_error , + symbol_start, + symbol_end, + rhs_start, + rhs_end, + symbol_start_pos, + symbol_end_pos, + rhs_start_pos, + rhs_end_pos, + clear_parser, + Parse_error, + set_trace, + YYexit, + yyparse, + peek_val, + is_current_lookahead, + parse_error, } /* No side effect */ diff --git a/lib/es6/pervasives.js b/lib/es6/pervasives.js index ab9b35f1fd..a64b28e66d 100644 --- a/lib/es6/pervasives.js +++ b/lib/es6/pervasives.js @@ -7,7 +7,7 @@ import * as Caml_string from "./caml_string.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var JsxModules = { +let JsxModules = { Jsx: undefined, JsxEvent: undefined, JsxDOM: undefined @@ -15,23 +15,23 @@ var JsxModules = { function failwith(s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } -var Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); +let Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); function abs(x) { if (x >= 0) { @@ -45,7 +45,7 @@ function lnot(x) { return x ^ -1; } -var min_int = -2147483648; +let min_int = -2147483648; function classify_float(x) { if (isFinite(x)) { @@ -66,11 +66,11 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -91,11 +91,11 @@ function bool_of_string(param) { return true; default: throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -106,7 +106,7 @@ function bool_of_string_opt(param) { case "true" : return true; default: - return ; + return; } } @@ -115,37 +115,37 @@ function int_of_string_opt(s) { return Caml_format.int_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function valid_float_lexem(s) { - var l = s.length; - var _i = 0; + let l = s.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= l) { return s + "."; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 48) { if (match >= 58) { return s; } _i = i + 1 | 0; - continue ; + continue; } if (match !== 45) { return s; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -158,22 +158,22 @@ function float_of_string_opt(s) { return Caml_format.float_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function $at(l1, l2) { if (l1) { return { - hd: l1.hd, - tl: $at(l1.tl, l2) - }; + hd: l1.hd, + tl: $at(l1.tl, l2) + }; } else { return l2; } @@ -199,18 +199,18 @@ function print_string(prim) { console.log(prim); } -var exit_function = { +let exit_function = { contents: (function (prim) { - - }) + + }) }; function at_exit(f) { - var g = exit_function.contents; + let g = exit_function.contents; exit_function.contents = (function (param) { - Curry._1(f, undefined); - Curry._1(g, undefined); - }); + Curry._1(f, undefined); + Curry._1(g, undefined); + }); } function exit(retcode) { @@ -218,60 +218,60 @@ function exit(retcode) { return Caml_sys.sys_exit(retcode); } -var Jsx; +let Jsx; -var JsxEvent; +let JsxEvent; -var JsxDOM; +let JsxDOM; -var JsxPPXReactSupport; +let JsxPPXReactSupport; -var max_int = 2147483647; +let max_int = 2147483647; -var infinity = Infinity; +let infinity = Infinity; -var neg_infinity = -Infinity; +let neg_infinity = -Infinity; -var max_float = 1.79769313486231571e+308; +let max_float = 1.79769313486231571e+308; -var min_float = 2.22507385850720138e-308; +let min_float = 2.22507385850720138e-308; -var epsilon_float = 2.22044604925031308e-16; +let epsilon_float = 2.22044604925031308e-16; export { - Jsx , - JsxEvent , - JsxDOM , - JsxPPXReactSupport , - JsxModules , - invalid_arg , - failwith , - Exit , - abs , - max_int , - min_int , - lnot , - infinity , - neg_infinity , - max_float , - min_float , - epsilon_float , - classify_float , - char_of_int , - string_of_bool , - bool_of_string , - bool_of_string_opt , - int_of_string_opt , - string_of_float , - float_of_string_opt , - $at , - print_string , - print_int , - print_float , - print_newline , - prerr_newline , - exit , - at_exit , - valid_float_lexem , + Jsx, + JsxEvent, + JsxDOM, + JsxPPXReactSupport, + JsxModules, + invalid_arg, + failwith, + Exit, + abs, + max_int, + min_int, + lnot, + infinity, + neg_infinity, + max_float, + min_float, + epsilon_float, + classify_float, + char_of_int, + string_of_bool, + bool_of_string, + bool_of_string_opt, + int_of_string_opt, + string_of_float, + float_of_string_opt, + $at, + print_string, + print_int, + print_float, + print_newline, + prerr_newline, + exit, + at_exit, + valid_float_lexem, } /* No side effect */ diff --git a/lib/es6/pervasivesU.js b/lib/es6/pervasivesU.js index 062fec26ae..fb53e9cbb0 100644 --- a/lib/es6/pervasivesU.js +++ b/lib/es6/pervasivesU.js @@ -6,7 +6,7 @@ import * as Caml_string from "./caml_string.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as Caml_js_exceptions from "./caml_js_exceptions.js"; -var JsxModules = { +let JsxModules = { Jsx: undefined, JsxEvent: undefined, JsxDOM: undefined @@ -14,23 +14,23 @@ var JsxModules = { function failwith(s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } -var Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); +let Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); function abs(x) { if (x >= 0) { @@ -44,7 +44,7 @@ function lnot(x) { return x ^ -1; } -var min_int = -2147483648; +let min_int = -2147483648; function classify_float(x) { if (isFinite(x)) { @@ -65,11 +65,11 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -90,11 +90,11 @@ function bool_of_string(param) { return true; default: throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -105,7 +105,7 @@ function bool_of_string_opt(param) { case "true" : return true; default: - return ; + return; } } @@ -114,37 +114,37 @@ function int_of_string_opt(s) { return Caml_format.int_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function valid_float_lexem(s) { - var l = s.length; - var _i = 0; + let l = s.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= l) { return s + "."; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 48) { if (match >= 58) { return s; } _i = i + 1 | 0; - continue ; + continue; } if (match !== 45) { return s; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -157,22 +157,22 @@ function float_of_string_opt(s) { return Caml_format.float_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function $at(l1, l2) { if (l1) { return { - hd: l1.hd, - tl: $at(l1.tl, l2) - }; + hd: l1.hd, + tl: $at(l1.tl, l2) + }; } else { return l2; } @@ -198,18 +198,18 @@ function print_string(prim) { console.log(prim); } -var exit_function = { +let exit_function = { contents: (function (prim) { - - }) + + }) }; function at_exit(f) { - var g = exit_function.contents; + let g = exit_function.contents; exit_function.contents = (function () { - f(); - g(); - }); + f(); + g(); + }); } function exit(retcode) { @@ -217,60 +217,60 @@ function exit(retcode) { return Caml_sys.sys_exit(retcode); } -var Jsx; +let Jsx; -var JsxEvent; +let JsxEvent; -var JsxDOM; +let JsxDOM; -var JsxPPXReactSupport; +let JsxPPXReactSupport; -var max_int = 2147483647; +let max_int = 2147483647; -var infinity = Infinity; +let infinity = Infinity; -var neg_infinity = -Infinity; +let neg_infinity = -Infinity; -var max_float = 1.79769313486231571e+308; +let max_float = 1.79769313486231571e+308; -var min_float = 2.22507385850720138e-308; +let min_float = 2.22507385850720138e-308; -var epsilon_float = 2.22044604925031308e-16; +let epsilon_float = 2.22044604925031308e-16; export { - Jsx , - JsxEvent , - JsxDOM , - JsxPPXReactSupport , - JsxModules , - invalid_arg , - failwith , - Exit , - abs , - max_int , - min_int , - lnot , - infinity , - neg_infinity , - max_float , - min_float , - epsilon_float , - classify_float , - char_of_int , - string_of_bool , - bool_of_string , - bool_of_string_opt , - int_of_string_opt , - string_of_float , - float_of_string_opt , - $at , - print_string , - print_int , - print_float , - print_newline , - prerr_newline , - exit , - at_exit , - valid_float_lexem , + Jsx, + JsxEvent, + JsxDOM, + JsxPPXReactSupport, + JsxModules, + invalid_arg, + failwith, + Exit, + abs, + max_int, + min_int, + lnot, + infinity, + neg_infinity, + max_float, + min_float, + epsilon_float, + classify_float, + char_of_int, + string_of_bool, + bool_of_string, + bool_of_string_opt, + int_of_string_opt, + string_of_float, + float_of_string_opt, + $at, + print_string, + print_int, + print_float, + print_newline, + prerr_newline, + exit, + at_exit, + valid_float_lexem, } /* No side effect */ diff --git a/lib/es6/queue.js b/lib/es6/queue.js index dc18ee5e10..fc70970728 100644 --- a/lib/es6/queue.js +++ b/lib/es6/queue.js @@ -3,14 +3,14 @@ import * as Curry from "./curry.js"; import * as Caml_exceptions from "./caml_exceptions.js"; -var Empty = /* @__PURE__ */Caml_exceptions.create("Queue.Empty"); +let Empty = /* @__PURE__ */Caml_exceptions.create("Queue.Empty"); function create(param) { return { - length: 0, - first: "Nil", - last: "Nil" - }; + length: 0, + first: "Nil", + last: "Nil" + }; } function clear(q) { @@ -20,17 +20,17 @@ function clear(q) { } function add(x, q) { - var cell = { + let cell = { TAG: "Cons", content: x, next: "Nil" }; - var last = q.last; + let last = q.last; if (typeof last !== "object") { q.length = 1; q.first = cell; q.last = cell; - return ; + return; } q.length = q.length + 1 | 0; last.next = cell; @@ -38,28 +38,28 @@ function add(x, q) { } function peek(q) { - var match = q.first; + let match = q.first; if (typeof match === "object") { return match.content; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function take(q) { - var match = q.first; + let match = q.first; if (typeof match !== "object") { throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } - var content = match.content; - var next = match.next; + let content = match.content; + let next = match.next; if (typeof next !== "object") { clear(q); return content; @@ -70,22 +70,22 @@ function take(q) { } function copy(q) { - var q_res = { + let q_res = { length: q.length, first: "Nil", last: "Nil" }; - var _prev = "Nil"; - var _cell = q.first; + let _prev = "Nil"; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (typeof cell !== "object") { q_res.last = prev; return q_res; } - var next = cell.next; - var res = { + let next = cell.next; + let res = { TAG: "Cons", content: cell.content, next: "Nil" @@ -97,7 +97,7 @@ function copy(q) { } _cell = next; _prev = res; - continue ; + continue; }; } @@ -110,41 +110,41 @@ function length(q) { } function iter(f, q) { - var _cell = q.first; + let _cell = q.first; while(true) { - var cell = _cell; + let cell = _cell; if (typeof cell !== "object") { - return ; + return; } - var next = cell.next; + let next = cell.next; Curry._1(f, cell.content); _cell = next; - continue ; + continue; }; } function fold(f, accu, q) { - var _accu = accu; - var _cell = q.first; + let _accu = accu; + let _cell = q.first; while(true) { - var cell = _cell; - var accu$1 = _accu; + let cell = _cell; + let accu$1 = _accu; if (typeof cell !== "object") { return accu$1; } - var next = cell.next; - var accu$2 = Curry._2(f, accu$1, cell.content); + let next = cell.next; + let accu$2 = Curry._2(f, accu$1, cell.content); _cell = next; _accu = accu$2; - continue ; + continue; }; } function transfer(q1, q2) { if (q1.length <= 0) { - return ; + return; } - var last = q2.last; + let last = q2.last; if (typeof last !== "object") { q2.length = q1.length; q2.first = q1.first; @@ -157,27 +157,27 @@ function transfer(q1, q2) { clear(q1); } -var push = add; +let push = add; -var pop = take; +let pop = take; -var top = peek; +let top = peek; export { - Empty , - create , - add , - push , - take , - pop , - peek , - top , - clear , - copy , - is_empty , - length , - iter , - fold , - transfer , + Empty, + create, + add, + push, + take, + pop, + peek, + top, + clear, + copy, + is_empty, + length, + iter, + fold, + transfer, } /* No side effect */ diff --git a/lib/es6/random.js b/lib/es6/random.js index 83bb5dd17f..dc0bd62a70 100644 --- a/lib/es6/random.js +++ b/lib/es6/random.js @@ -19,23 +19,23 @@ function assign(st1, st2) { } function full_init(s, seed) { - var combine = function (accu, x) { + let combine = function (accu, x) { return Digest.string(accu + String(x)); }; - var extract = function (d) { + let extract = function (d) { return ((Caml_string.get(d, 0) + (Caml_string.get(d, 1) << 8) | 0) + (Caml_string.get(d, 2) << 16) | 0) + (Caml_string.get(d, 3) << 24) | 0; }; - var seed$1 = seed.length === 0 ? [0] : seed; - var l = seed$1.length; - for(var i = 0; i <= 54; ++i){ + let seed$1 = seed.length === 0 ? [0] : seed; + let l = seed$1.length; + for(let i = 0; i <= 54; ++i){ Caml_array.set(s.st, i, i); } - var accu = "x"; - for(var i$1 = 0 ,i_finish = 54 + ( + let accu = "x"; + for(let i$1 = 0 ,i_finish = 54 + ( 55 > l ? 55 : l ) | 0; i$1 <= i_finish; ++i$1){ - var j = i$1 % 55; - var k = i$1 % l; + let j = i$1 % 55; + let k = i$1 % l; accu = combine(accu, Caml_array.get(seed$1, k)); Caml_array.set(s.st, j, (Caml_array.get(s.st, j) ^ extract(accu)) & 1073741823); } @@ -43,7 +43,7 @@ function full_init(s, seed) { } function make(seed) { - var result = { + let result = { st: Caml_array.make(55, 0), idx: 0 }; @@ -56,7 +56,7 @@ function make_self_init(param) { } function copy(s) { - var result = { + let result = { st: Caml_array.make(55, 0), idx: 0 }; @@ -66,9 +66,9 @@ function copy(s) { function bits(s) { s.idx = (s.idx + 1 | 0) % 55; - var curval = Caml_array.get(s.st, s.idx); - var newval = Caml_array.get(s.st, (s.idx + 24 | 0) % 55) + (curval ^ (curval >>> 25) & 31) | 0; - var newval30 = newval & 1073741823; + let curval = Caml_array.get(s.st, s.idx); + let newval = Caml_array.get(s.st, (s.idx + 24 | 0) % 55) + (curval ^ (curval >>> 25) & 31) | 0; + let newval30 = newval & 1073741823; Caml_array.set(s.st, s.idx, newval30); return newval30; } @@ -76,68 +76,68 @@ function bits(s) { function $$int(s, bound) { if (bound > 1073741823 || bound <= 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int" + } + }); } while(true) { - var r = bits(s); - var v = r % bound; + let r = bits(s); + let v = r % bound; if ((r - v | 0) <= ((1073741823 - bound | 0) + 1 | 0)) { return v; } - continue ; + continue; }; } function int32(s, bound) { if (bound <= 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int32" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int32" + } + }); } while(true) { - var b1 = bits(s); - var b2 = ((bits(s) & 1) << 30); - var r = b1 | b2; - var v = r % bound; + let b1 = bits(s); + let b2 = ((bits(s) & 1) << 30); + let r = b1 | b2; + let v = r % bound; if ((r - v | 0) <= ((Int32.max_int - bound | 0) + 1 | 0)) { return v; } - continue ; + continue; }; } function int64(s, bound) { if (Caml.i64_le(bound, Caml_int64.zero)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int64" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int64" + } + }); } while(true) { - var b1 = Caml_int64.of_int32(bits(s)); - var b2 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s)), 30); - var b3 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s) & 7), 60); - var r = Caml_int64.or_(b1, Caml_int64.or_(b2, b3)); - var v = Caml_int64.mod_(r, bound); + let b1 = Caml_int64.of_int32(bits(s)); + let b2 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s)), 30); + let b3 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s) & 7), 60); + let r = Caml_int64.or_(b1, Caml_int64.or_(b2, b3)); + let v = Caml_int64.mod_(r, bound); if (!Caml.i64_gt(Caml_int64.sub(r, v), Caml_int64.add(Caml_int64.sub(Int64.max_int, bound), Caml_int64.one))) { return v; } - continue ; + continue; }; } function rawfloat(s) { - var r1 = bits(s); - var r2 = bits(s); + let r1 = bits(s); + let r2 = bits(s); return (r1 / 1073741824.0 + r2) / 1073741824.0; } @@ -149,7 +149,7 @@ function bool(s) { return (bits(s) & 1) === 0; } -var $$default = { +let $$default = { st: [ 987910699, 495797812, @@ -254,7 +254,7 @@ function set_state(s) { assign($$default, s); } -var State = { +let State = { make: make, make_self_init: make_self_init, copy: copy, @@ -267,17 +267,17 @@ var State = { }; export { - init , + init, full_init$1 as full_init, - self_init , + self_init, bits$1 as bits, $$int$1 as $$int, int32$1 as int32, int64$1 as int64, $$float$1 as $$float, bool$1 as bool, - State , - get_state , - set_state , + State, + get_state, + set_state, } /* No side effect */ diff --git a/lib/es6/set.js b/lib/es6/set.js index 19ae662019..de5d2c054c 100644 --- a/lib/es6/set.js +++ b/lib/es6/set.js @@ -5,43 +5,43 @@ import * as Curry from "./curry.js"; import * as Caml_option from "./caml_option.js"; function Make(funarg) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, v, r) { - var hl; + let create = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -49,32 +49,32 @@ function Make(funarg) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var rr = r.r; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -82,76 +82,76 @@ function Make(funarg) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; - var add = function (x, param) { + let add = function (x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var singleton = function (x) { + let singleton = function (x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; }; - var add_min_element = function (x, param) { + let add_min_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(add_min_element(x, param.l), param.v, param.r); } }; - var add_max_element = function (x, param) { + let add_max_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(param.l, param.v, add_max_element(x, param.r)); } }; - var join = function (l, v, r) { + let join = function (l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -160,87 +160,87 @@ function Make(funarg) { return create(l, v, r); } }; - var min_elt = function (_param) { + let min_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; }; - var min_elt_opt = function (_param) { + let min_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; }; - var max_elt = function (_param) { + let max_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; }; - var max_elt_opt = function (_param) { + let max_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; }; - var remove_min_elt = function (param) { + let remove_min_elt = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_elt(l), param.v, param.r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -249,69 +249,69 @@ function Make(funarg) { return join(t1, min_elt(t2), remove_min_elt(t2)); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -322,84 +322,84 @@ function Make(funarg) { } } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var union = function (s1, s2) { + let union = function (s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); }; - var inter = function (s1, s2) { + let inter = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { return concat(inter(l1, l2), inter(r1, match[2])); } }; - var diff = function (s1, s2) { + let diff = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { return join(diff(l1, l2), v1, diff(r1, match[2])); } }; - var cons_enum = function (_s, _e) { + let cons_enum = function (_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -410,15 +410,15 @@ function Make(funarg) { _2: e }; _s = s.l; - continue ; + continue; }; }; - var compare = function (s1, s2) { - var _e1 = cons_enum(s1, "End"); - var _e2 = cons_enum(s2, "End"); + let compare = function (s1, s2) { + let _e1 = cons_enum(s1, "End"); + let _e2 = cons_enum(s2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -429,95 +429,95 @@ function Make(funarg) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(funarg.compare, e1._0, e2._0); + let c = Curry._2(funarg.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; }; - var equal = function (s1, s2) { + let equal = function (s1, s2) { return compare(s1, s2) === 0; }; - var subset = function (_s1, _s2) { + let subset = function (_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(funarg.compare, v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(funarg.compare, v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; }; - var fold = function (f, _s, _accu) { + let fold = function (f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -528,12 +528,12 @@ function Make(funarg) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -544,19 +544,19 @@ function Make(funarg) { return true; } _param = param.r; - continue ; + continue; }; }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -567,44 +567,44 @@ function Make(funarg) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var elements_aux = function (_accu, _param) { + let elements_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -613,184 +613,184 @@ function Make(funarg) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; }; - var elements = function (s) { + let elements = function (s) { return elements_aux(/* [] */0, s); }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else if ((l$p === "Empty" || Curry._2(funarg.compare, max_elt(l$p), v$p) < 0) && (r$p === "Empty" || Curry._2(funarg.compare, v$p, min_elt(r$p)) < 0)) { @@ -799,103 +799,103 @@ function Make(funarg) { return union(l$p, add(v$p, r$p)); } }; - var of_list = function (l) { + let of_list = function (l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { - var l$1 = List.sort_uniq(funarg.compare, l); - var sub = function (n, l) { + let l$1 = List.sort_uniq(funarg.compare, l); + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -905,26 +905,26 @@ function Make(funarg) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -935,45 +935,45 @@ function Make(funarg) { } }; return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - singleton: singleton, - remove: remove, - union: union, - inter: inter, - diff: diff, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - map: map, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements: elements, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - choose: min_elt, - choose_opt: min_elt_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - of_list: of_list - }; + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + singleton: singleton, + remove: remove, + union: union, + inter: inter, + diff: diff, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + map: map, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements: elements, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + choose: min_elt, + choose_opt: min_elt_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + of_list: of_list + }; } export { - Make , + Make, } /* No side effect */ diff --git a/lib/es6/setLabels.js b/lib/es6/setLabels.js index 355ee2e518..8900080d49 100644 --- a/lib/es6/setLabels.js +++ b/lib/es6/setLabels.js @@ -5,43 +5,43 @@ import * as Curry from "./curry.js"; import * as Caml_option from "./caml_option.js"; function Make(Ord) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, v, r) { - var hl; + let create = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var lr = l.r; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -49,32 +49,32 @@ function Make(Ord) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -82,76 +82,76 @@ function Make(Ord) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; - var add = function (x, param) { + let add = function (x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var singleton = function (x) { + let singleton = function (x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; }; - var add_min_element = function (x, param) { + let add_min_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(add_min_element(x, param.l), param.v, param.r); } }; - var add_max_element = function (x, param) { + let add_max_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(param.l, param.v, add_max_element(x, param.r)); } }; - var join = function (l, v, r) { + let join = function (l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -160,87 +160,87 @@ function Make(Ord) { return create(l, v, r); } }; - var min_elt = function (_param) { + let min_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; }; - var min_elt_opt = function (_param) { + let min_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; }; - var max_elt = function (_param) { + let max_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; }; - var max_elt_opt = function (_param) { + let max_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; }; - var remove_min_elt = function (param) { + let remove_min_elt = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_elt(l), param.v, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -249,7 +249,7 @@ function Make(Ord) { return bal(t1, min_elt(t2), remove_min_elt(t2)); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -258,151 +258,151 @@ function Make(Ord) { return join(t1, min_elt(t2), remove_min_elt(t2)); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var union = function (s1, s2) { + let union = function (s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); }; - var inter = function (s1, s2) { + let inter = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { return concat(inter(l1, l2), inter(r1, match[2])); } }; - var diff = function (s1, s2) { + let diff = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { return join(diff(l1, l2), v1, diff(r1, match[2])); } }; - var cons_enum = function (_s, _e) { + let cons_enum = function (_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -413,13 +413,13 @@ function Make(Ord) { _2: e }; _s = s.l; - continue ; + continue; }; }; - var compare_aux = function (_e1, _e2) { + let compare_aux = function (_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -430,98 +430,98 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; }; - var compare = function (s1, s2) { + let compare = function (s1, s2) { return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); }; - var equal = function (s1, s2) { + let equal = function (s1, s2) { return compare(s1, s2) === 0; }; - var subset = function (_s1, _s2) { + let subset = function (_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(Ord.compare, v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(Ord.compare, v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; }; - var fold = function (f, _s, _accu) { + let fold = function (f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -532,12 +532,12 @@ function Make(Ord) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -548,19 +548,19 @@ function Make(Ord) { return true; } _param = param.r; - continue ; + continue; }; }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -571,44 +571,44 @@ function Make(Ord) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var elements_aux = function (_accu, _param) { + let elements_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -617,275 +617,275 @@ function Make(Ord) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; }; - var elements = function (s) { + let elements = function (s) { return elements_aux(/* [] */0, s); }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Curry._2(Ord.compare, x, v); + let v = param.v; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first_aux = function (_v0, f, _param) { + let find_first_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return v0; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_aux(v, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_first_opt_aux = function (_v0, f, _param) { + let find_first_opt_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return Caml_option.some(v0); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_opt_aux(v, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_last_aux = function (_v0, f, _param) { + let find_last_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return v0; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_aux(v, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_last_opt_aux = function (_v0, f, _param) { + let find_last_opt_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return Caml_option.some(v0); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_opt_aux(v, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Curry._2(Ord.compare, x, v); + let v = param.v; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var try_join = function (l, v, r) { + let try_join = function (l, v, r) { if ((l === "Empty" || Curry._2(Ord.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(Ord.compare, v, min_elt(r)) < 0)) { return join(l, v, r); } else { return union(l, add(v, r)); } }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else { return try_join(l$p, v$p, r$p); } }; - var of_sorted_list = function (l) { - var sub = function (n, l) { + let of_sorted_list = function (l) { + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -895,50 +895,50 @@ function Make(Ord) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; - var of_list = function (l) { + let of_list = function (l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { return of_sorted_list(List.sort_uniq(Ord.compare, l)); @@ -950,63 +950,63 @@ function Make(Ord) { } }; return { - height: height, - create: create, - bal: bal, - add: add, - singleton: singleton, - add_min_element: add_min_element, - add_max_element: add_max_element, - join: join, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - remove_min_elt: remove_min_elt, - merge: merge, - concat: concat, - split: split, - empty: "Empty", - is_empty: is_empty, - mem: mem, - remove: remove, - union: union, - inter: inter, - diff: diff, - cons_enum: cons_enum, - compare_aux: compare_aux, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements_aux: elements_aux, - elements: elements, - choose: min_elt, - choose_opt: min_elt_opt, - find: find, - find_first_aux: find_first_aux, - find_first: find_first, - find_first_opt_aux: find_first_opt_aux, - find_first_opt: find_first_opt, - find_last_aux: find_last_aux, - find_last: find_last, - find_last_opt_aux: find_last_opt_aux, - find_last_opt: find_last_opt, - find_opt: find_opt, - try_join: try_join, - map: map, - of_sorted_list: of_sorted_list, - of_list: of_list - }; + height: height, + create: create, + bal: bal, + add: add, + singleton: singleton, + add_min_element: add_min_element, + add_max_element: add_max_element, + join: join, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + remove_min_elt: remove_min_elt, + merge: merge, + concat: concat, + split: split, + empty: "Empty", + is_empty: is_empty, + mem: mem, + remove: remove, + union: union, + inter: inter, + diff: diff, + cons_enum: cons_enum, + compare_aux: compare_aux, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements_aux: elements_aux, + elements: elements, + choose: min_elt, + choose_opt: min_elt_opt, + find: find, + find_first_aux: find_first_aux, + find_first: find_first, + find_first_opt_aux: find_first_opt_aux, + find_first_opt: find_first_opt, + find_last_aux: find_last_aux, + find_last: find_last, + find_last_opt_aux: find_last_opt_aux, + find_last_opt: find_last_opt, + find_opt: find_opt, + try_join: try_join, + map: map, + of_sorted_list: of_sorted_list, + of_list: of_list + }; } export { - Make , + Make, } /* No side effect */ diff --git a/lib/es6/sort.js b/lib/es6/sort.js index 949669ec63..00b5fec14a 100644 --- a/lib/es6/sort.js +++ b/lib/es6/sort.js @@ -9,72 +9,72 @@ function merge(order, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(order, h1, h2)) { return { - hd: h1, - tl: merge(order, l1.tl, l2) - }; + hd: h1, + tl: merge(order, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(order, l1, l2.tl) - }; + hd: h2, + tl: merge(order, l1, l2.tl) + }; } } function list(order, l) { - var initlist = function (param) { + let initlist = function (param) { if (!param) { return /* [] */0; } - var match = param.tl; - var e = param.hd; + let match = param.tl; + let e = param.hd; if (!match) { return { - hd: { - hd: e, - tl: /* [] */0 - }, - tl: /* [] */0 - }; + hd: { + hd: e, + tl: /* [] */0 + }, + tl: /* [] */0 + }; } - var e2 = match.hd; + let e2 = match.hd; return { - hd: Curry._2(order, e, e2) ? ({ - hd: e, - tl: { - hd: e2, - tl: /* [] */0 - } - }) : ({ - hd: e2, - tl: { - hd: e, - tl: /* [] */0 - } - }), - tl: initlist(match.tl) - }; + hd: Curry._2(order, e, e2) ? ({ + hd: e, + tl: { + hd: e2, + tl: /* [] */0 + } + }) : ({ + hd: e2, + tl: { + hd: e, + tl: /* [] */0 + } + }), + tl: initlist(match.tl) + }; }; - var merge2 = function (param) { + let merge2 = function (param) { if (!param) { return param; } - var match = param.tl; + let match = param.tl; if (match) { return { - hd: merge(order, param.hd, match.hd), - tl: merge2(match.tl) - }; + hd: merge(order, param.hd, match.hd), + tl: merge2(match.tl) + }; } else { return param; } }; - var _param = initlist(l); + let _param = initlist(l); while(true) { - var param = _param; + let param = _param; if (!param) { return /* [] */0; } @@ -82,25 +82,25 @@ function list(order, l) { return param.hd; } _param = merge2(param); - continue ; + continue; }; } function swap(arr, i, j) { - var tmp = arr[i]; + let tmp = arr[i]; arr[i] = arr[j]; arr[j] = tmp; } function array(cmp, arr) { - var qsort = function (_lo, _hi) { + let qsort = function (_lo, _hi) { while(true) { - var hi = _hi; - var lo = _lo; + let hi = _hi; + let lo = _lo; if ((hi - lo | 0) < 6) { - return ; + return; } - var mid = ((lo + hi | 0) >>> 1); + let mid = ((lo + hi | 0) >>> 1); if (Curry._2(cmp, arr[mid], arr[lo])) { swap(arr, mid, lo); } @@ -111,16 +111,16 @@ function array(cmp, arr) { } } - var pivot = arr[mid]; - var i = lo + 1 | 0; - var j = hi - 1 | 0; + let pivot = arr[mid]; + let i = lo + 1 | 0; + let j = hi - 1 | 0; if (!Curry._2(cmp, pivot, arr[hi]) || !Curry._2(cmp, arr[lo], pivot)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Sort.array" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Sort.array" + } + }); } while(i < j) { while(!Curry._2(cmp, pivot, arr[i])) { @@ -138,19 +138,19 @@ function array(cmp, arr) { if ((j - lo | 0) <= (hi - i | 0)) { qsort(lo, j); _lo = i; - continue ; + continue; } qsort(i, hi); _hi = j; - continue ; + continue; }; }; qsort(0, arr.length - 1 | 0); - for(var i = 1 ,i_finish = arr.length; i < i_finish; ++i){ - var val_i = arr[i]; + for(let i = 1 ,i_finish = arr.length; i < i_finish; ++i){ + let val_i = arr[i]; if (!Curry._2(cmp, arr[i - 1 | 0], val_i)) { arr[i] = arr[i - 1 | 0]; - var j = i - 1 | 0; + let j = i - 1 | 0; while(j >= 1 && !Curry._2(cmp, arr[j - 1 | 0], val_i)) { arr[j] = arr[j - 1 | 0]; j = j - 1 | 0; @@ -162,8 +162,8 @@ function array(cmp, arr) { } export { - list , - array , - merge , + list, + array, + merge, } /* No side effect */ diff --git a/lib/es6/stack.js b/lib/es6/stack.js index 8d726cbaeb..3074c57087 100644 --- a/lib/es6/stack.js +++ b/lib/es6/stack.js @@ -3,13 +3,13 @@ import * as List from "./list.js"; import * as Caml_exceptions from "./caml_exceptions.js"; -var Empty = /* @__PURE__ */Caml_exceptions.create("Stack.Empty"); +let Empty = /* @__PURE__ */Caml_exceptions.create("Stack.Empty"); function create(param) { return { - c: /* [] */0, - len: 0 - }; + c: /* [] */0, + len: 0 + }; } function clear(s) { @@ -19,9 +19,9 @@ function clear(s) { function copy(s) { return { - c: s.c, - len: s.len - }; + c: s.c, + len: s.len + }; } function push(x, s) { @@ -33,29 +33,29 @@ function push(x, s) { } function pop(s) { - var match = s.c; + let match = s.c; if (match) { s.c = match.tl; s.len = s.len - 1 | 0; return match.hd; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function top(s) { - var match = s.c; + let match = s.c; if (match) { return match.hd; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function is_empty(s) { @@ -75,16 +75,16 @@ function fold(f, acc, s) { } export { - Empty , - create , - push , - pop , - top , - clear , - copy , - is_empty , - length , - iter , - fold , + Empty, + create, + push, + pop, + top, + clear, + copy, + is_empty, + length, + iter, + fold, } /* No side effect */ diff --git a/lib/es6/stream.js b/lib/es6/stream.js index c29a027291..f56923cd8f 100644 --- a/lib/es6/stream.js +++ b/lib/es6/stream.js @@ -8,9 +8,9 @@ import * as Caml_string from "./caml_string.js"; import * as Caml_exceptions from "./caml_exceptions.js"; import * as CamlinternalLazy from "./camlinternalLazy.js"; -var Failure = /* @__PURE__ */Caml_exceptions.create("Stream.Failure"); +let Failure = /* @__PURE__ */Caml_exceptions.create("Stream.Failure"); -var $$Error = /* @__PURE__ */Caml_exceptions.create("Stream.Error"); +let $$Error = /* @__PURE__ */Caml_exceptions.create("Stream.Error"); function count(param) { if (param !== undefined) { @@ -30,7 +30,7 @@ function data(param) { function get_data(count, _d) { while(true) { - var d = _d; + let d = _d; if (typeof d !== "object") { return d; } @@ -38,59 +38,59 @@ function get_data(count, _d) { case "Scons" : return d; case "Sapp" : - var d2 = d._1; - var match = get_data(count, d._0); + let d2 = d._1; + let match = get_data(count, d._0); if (typeof match !== "object") { _d = d2; - continue ; + continue; } if (match.TAG === "Scons") { return { - TAG: "Scons", - _0: match._0, - _1: { - TAG: "Sapp", - _0: match._1, - _1: d2 - } - }; + TAG: "Scons", + _0: match._0, + _1: { + TAG: "Sapp", + _0: match._1, + _1: d2 + } + }; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 53, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 53, + 13 + ] + } + }); case "Slazy" : _d = CamlinternalLazy.force(d._0); - continue ; + continue; case "Sgen" : - var g = d._0; - var match$1 = g.curr; + let g = d._0; + let match$1 = g.curr; if (match$1 !== undefined) { - var a = Caml_option.valFromOption(match$1); + let a = Caml_option.valFromOption(match$1); if (a !== undefined) { g.curr = undefined; return { - TAG: "Scons", - _0: Caml_option.valFromOption(a), - _1: d - }; + TAG: "Scons", + _0: Caml_option.valFromOption(a), + _1: d + }; } else { return "Sempty"; } } - var a$1 = Curry._1(g.func, count); + let a$1 = Curry._1(g.func, count); if (a$1 !== undefined) { return { - TAG: "Scons", - _0: Caml_option.valFromOption(a$1), - _1: d - }; + TAG: "Scons", + _0: Caml_option.valFromOption(a$1), + _1: d + }; } else { g.curr = Caml_option.some(undefined); return "Sempty"; @@ -102,42 +102,42 @@ function get_data(count, _d) { function peek_data(s) { while(true) { - var f = s.data; + let f = s.data; if (typeof f !== "object") { - return ; + return; } switch (f.TAG) { case "Scons" : return Caml_option.some(f._0); case "Sapp" : - var d = get_data(s.count, s.data); + let d = get_data(s.count, s.data); if (typeof d !== "object") { - return ; + return; } if (d.TAG === "Scons") { s.data = d; return Caml_option.some(d._0); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 83, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 83, + 13 + ] + } + }); case "Slazy" : s.data = CamlinternalLazy.force(f._0); - continue ; + continue; case "Sgen" : - var g = f._0; - var a = g.curr; + let g = f._0; + let a = g.curr; if (a !== undefined) { return Caml_option.valFromOption(a); } - var x = Curry._1(g.func, s.count); + let x = Curry._1(g.func, s.count); g.curr = Caml_option.some(x); return x; @@ -154,31 +154,31 @@ function peek(param) { function junk_data(s) { while(true) { - var g = s.data; + let g = s.data; if (typeof g === "object") { switch (g.TAG) { case "Scons" : s.count = s.count + 1 | 0; s.data = g._1; - return ; + return; case "Sgen" : - var g$1 = g._0; - var match = g$1.curr; + let g$1 = g._0; + let match = g$1.curr; if (match !== undefined) { s.count = s.count + 1 | 0; g$1.curr = undefined; - return ; + return; } break; default: } } - var match$1 = peek_data(s); + let match$1 = peek_data(s); if (match$1 === undefined) { - return ; + return; } - continue ; + continue; }; } @@ -192,39 +192,39 @@ function junk(param) { function nget_data(n, s) { if (n <= 0) { return [ - /* [] */0, - s.data, - 0 - ]; + /* [] */0, + s.data, + 0 + ]; } - var a = peek_data(s); + let a = peek_data(s); if (a === undefined) { return [ - /* [] */0, - s.data, - 0 - ]; + /* [] */0, + s.data, + 0 + ]; } - var a$1 = Caml_option.valFromOption(a); + let a$1 = Caml_option.valFromOption(a); junk_data(s); - var match = nget_data(n - 1 | 0, s); + let match = nget_data(n - 1 | 0, s); return [ - { - hd: a$1, - tl: match[0] - }, - { - TAG: "Scons", - _0: a$1, - _1: match[1] - }, - match[2] + 1 | 0 - ]; + { + hd: a$1, + tl: match[0] + }, + { + TAG: "Scons", + _0: a$1, + _1: match[1] + }, + match[2] + 1 | 0 + ]; } function npeek(n, param) { if (param !== undefined) { - var match = nget_data(n, param); + let match = nget_data(n, param); param.count = param.count - match[2] | 0; param.data = match[1]; return match[0]; @@ -234,195 +234,195 @@ function npeek(n, param) { } function next(s) { - var a = peek(s); + let a = peek(s); if (a !== undefined) { junk(s); return Caml_option.valFromOption(a); } throw new Error(Failure, { - cause: { - RE_EXN_ID: Failure - } - }); + cause: { + RE_EXN_ID: Failure + } + }); } function empty(s) { - var match = peek(s); + let match = peek(s); if (match === undefined) { - return ; + return; } throw new Error(Failure, { - cause: { - RE_EXN_ID: Failure - } - }); + cause: { + RE_EXN_ID: Failure + } + }); } function iter(f, strm) { - var _param; + let _param; while(true) { - var a = peek(strm); + let a = peek(strm); if (a === undefined) { - return ; + return; } junk(strm); Curry._1(f, Caml_option.valFromOption(a)); _param = undefined; - continue ; + continue; }; } function from(f) { return { - count: 0, - data: { - TAG: "Sgen", - _0: { - curr: undefined, - func: f - } - } - }; + count: 0, + data: { + TAG: "Sgen", + _0: { + curr: undefined, + func: f + } + } + }; } function of_list(l) { return { - count: 0, - data: List.fold_right((function (x, l) { - return { - TAG: "Scons", - _0: x, - _1: l - }; - }), l, "Sempty") - }; + count: 0, + data: List.fold_right((function (x, l) { + return { + TAG: "Scons", + _0: x, + _1: l + }; + }), l, "Sempty") + }; } function of_string(s) { - var count = { + let count = { contents: 0 }; return from(function (param) { - var c = count.contents; - if (c < s.length) { - count.contents = count.contents + 1 | 0; - return Caml_string.get(s, c); - } - - }); + let c = count.contents; + if (c < s.length) { + count.contents = count.contents + 1 | 0; + return Caml_string.get(s, c); + } + + }); } function of_bytes(s) { - var count = { + let count = { contents: 0 }; return from(function (param) { - var c = count.contents; - if (c < s.length) { - count.contents = count.contents + 1 | 0; - return Caml_bytes.get(s, c); - } - - }); + let c = count.contents; + if (c < s.length) { + count.contents = count.contents + 1 | 0; + return Caml_bytes.get(s, c); + } + + }); } function iapp(i, s) { return { - count: 0, - data: { - TAG: "Sapp", - _0: data(i), - _1: data(s) - } - }; + count: 0, + data: { + TAG: "Sapp", + _0: data(i), + _1: data(s) + } + }; } function icons(i, s) { return { - count: 0, - data: { - TAG: "Scons", - _0: i, - _1: data(s) - } - }; + count: 0, + data: { + TAG: "Scons", + _0: i, + _1: data(s) + } + }; } function ising(i) { return { - count: 0, - data: { - TAG: "Scons", - _0: i, - _1: "Sempty" - } - }; + count: 0, + data: { + TAG: "Scons", + _0: i, + _1: "Sempty" + } + }; } function lapp(f, s) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Sapp", - _0: data(Curry._1(f, undefined)), - _1: data(s) - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Sapp", + _0: data(Curry._1(f, undefined)), + _1: data(s) }; + }) + } + }; } function lcons(f, s) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Scons", - _0: Curry._1(f, undefined), - _1: data(s) - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Scons", + _0: Curry._1(f, undefined), + _1: data(s) }; + }) + } + }; } function lsing(f) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Scons", - _0: Curry._1(f, undefined), - _1: "Sempty" - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Scons", + _0: Curry._1(f, undefined), + _1: "Sempty" }; + }) + } + }; } function slazy(f) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return data(Curry._1(f, undefined)); - }) - } - }; + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return data(Curry._1(f, undefined)); + }) + } + }; } function dump_data(f, param) { if (typeof param !== "object") { console.log("Sempty"); - return ; + return; } switch (param.TAG) { case "Scons" : @@ -431,27 +431,27 @@ function dump_data(f, param) { console.log(", "); dump_data(f, param._1); console.log(")"); - return ; + return; case "Sapp" : console.log("Sapp ("); dump_data(f, param._0); console.log(", "); dump_data(f, param._1); console.log(")"); - return ; + return; case "Slazy" : console.log("Slazy"); - return ; + return; case "Sgen" : console.log("Sgen"); - return ; + return; } } function dump(f, s) { console.log("{count = "); - var i = count(s); + let i = count(s); console.log(String(i)); console.log("; data = "); dump_data(f, data(s)); @@ -459,30 +459,30 @@ function dump(f, s) { console.log(""); } -var sempty; +let sempty; export { - Failure , - $$Error , - from , - of_list , - of_string , - of_bytes , - iter , - next , - empty , - peek , - junk , - count , - npeek , - iapp , - icons , - ising , - lapp , - lcons , - lsing , - sempty , - slazy , - dump , + Failure, + $$Error, + from, + of_list, + of_string, + of_bytes, + iter, + next, + empty, + peek, + junk, + count, + npeek, + iapp, + icons, + ising, + lapp, + lcons, + lsing, + sempty, + slazy, + dump, } /* No side effect */ diff --git a/lib/es6/string.js b/lib/es6/string.js index aa11dd953c..9ac0eb8bab 100644 --- a/lib/es6/string.js +++ b/lib/es6/string.js @@ -20,13 +20,13 @@ function concat(sep, xs) { } function iter(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._1(f, s.codePointAt(i)); } } function iteri(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._2(f, i, s.codePointAt(i)); } } @@ -56,13 +56,13 @@ function trim(s) { } function escaped(s) { - var needs_escape = function (_i) { + let needs_escape = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= s.length) { return false; } - var match = s.codePointAt(i); + let match = s.codePointAt(i); if (match < 32) { return true; } @@ -71,13 +71,13 @@ function escaped(s) { return true; } _i = i + 1 | 0; - continue ; + continue; } if (match > 91 || match < 35) { return true; } _i = i + 1 | 0; - continue ; + continue; }; }; if (needs_escape(0)) { @@ -89,19 +89,19 @@ function escaped(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -111,15 +111,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -128,46 +128,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -178,26 +178,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -208,37 +208,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -249,24 +249,24 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -286,16 +286,16 @@ function uncapitalize_ascii(s) { return Bytes.unsafe_to_string(Bytes.uncapitalize_ascii(Bytes.unsafe_of_string(s))); } -var compare = Caml.string_compare; +let compare = Caml.string_compare; function equal(a, b) { return a === b; } function split_on_char(sep, s) { - var r = /* [] */0; - var j = s.length; - for(var i = s.length - 1 | 0; i >= 0; --i){ + let r = /* [] */0; + let j = s.length; + for(let i = s.length - 1 | 0; i >= 0; --i){ if (s.codePointAt(i) === sep) { r = { hd: sub(s, i + 1 | 0, (j - i | 0) - 1 | 0), @@ -306,44 +306,44 @@ function split_on_char(sep, s) { } return { - hd: sub(s, 0, j), - tl: r - }; + hd: sub(s, 0, j), + tl: r + }; } -var make = Caml_string.make; +let make = Caml_string.make; -var blit = Bytes.blit_string; +let blit = Bytes.blit_string; export { - make , - init , - sub , - blit , - concat , - iter , - iteri , - map , - mapi , - trim , - escaped , - index , - index_opt , - rindex , - rindex_opt , - index_from , - index_from_opt , - rindex_from , - rindex_from_opt , - contains , - contains_from , - rcontains_from , - uppercase_ascii , - lowercase_ascii , - capitalize_ascii , - uncapitalize_ascii , - compare , - equal , - split_on_char , + make, + init, + sub, + blit, + concat, + iter, + iteri, + map, + mapi, + trim, + escaped, + index, + index_opt, + rindex, + rindex_opt, + index_from, + index_from_opt, + rindex_from, + rindex_from_opt, + contains, + contains_from, + rcontains_from, + uppercase_ascii, + lowercase_ascii, + capitalize_ascii, + uncapitalize_ascii, + compare, + equal, + split_on_char, } /* No side effect */ diff --git a/lib/es6/stringLabels.js b/lib/es6/stringLabels.js index 57cfde02ea..9df2847bb4 100644 --- a/lib/es6/stringLabels.js +++ b/lib/es6/stringLabels.js @@ -15,20 +15,20 @@ function sub(s, ofs, len) { return Bytes.unsafe_to_string(Bytes.sub(Bytes.unsafe_of_string(s), ofs, len)); } -var blit = Bytes.blit_string; +let blit = Bytes.blit_string; function concat(sep, xs) { return $$Array.of_list(xs).join(sep); } function iter(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._1(f, s.codePointAt(i)); } } function iteri(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._2(f, i, s.codePointAt(i)); } } @@ -58,13 +58,13 @@ function trim(s) { } function escaped(s) { - var needs_escape = function (_i) { + let needs_escape = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= s.length) { return false; } - var match = s.codePointAt(i); + let match = s.codePointAt(i); if (match < 32) { return true; } @@ -73,13 +73,13 @@ function escaped(s) { return true; } _i = i + 1 | 0; - continue ; + continue; } if (match > 91 || match < 35) { return true; } _i = i + 1 | 0; - continue ; + continue; }; }; if (needs_escape(0)) { @@ -91,19 +91,19 @@ function escaped(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -113,15 +113,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -130,46 +130,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -180,26 +180,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -210,37 +210,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -251,24 +251,24 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -288,16 +288,16 @@ function uncapitalize_ascii(s) { return Bytes.unsafe_to_string(Bytes.uncapitalize_ascii(Bytes.unsafe_of_string(s))); } -var compare = Caml.string_compare; +let compare = Caml.string_compare; function equal(a, b) { return a === b; } function split_on_char(sep, s) { - var r = /* [] */0; - var j = s.length; - for(var i = s.length - 1 | 0; i >= 0; --i){ + let r = /* [] */0; + let j = s.length; + for(let i = s.length - 1 | 0; i >= 0; --i){ if (s.codePointAt(i) === sep) { r = { hd: sub(s, i + 1 | 0, (j - i | 0) - 1 | 0), @@ -308,42 +308,42 @@ function split_on_char(sep, s) { } return { - hd: sub(s, 0, j), - tl: r - }; + hd: sub(s, 0, j), + tl: r + }; } -var make = Caml_string.make; +let make = Caml_string.make; export { - make , - init , - sub , - blit , - concat , - iter , - iteri , - map , - mapi , - trim , - escaped , - index , - index_opt , - rindex , - rindex_opt , - index_from , - index_from_opt , - rindex_from , - rindex_from_opt , - contains , - contains_from , - rcontains_from , - uppercase_ascii , - lowercase_ascii , - capitalize_ascii , - uncapitalize_ascii , - compare , - equal , - split_on_char , + make, + init, + sub, + blit, + concat, + iter, + iteri, + map, + mapi, + trim, + escaped, + index, + index_opt, + rindex, + rindex_opt, + index_from, + index_from_opt, + rindex_from, + rindex_from_opt, + contains, + contains_from, + rcontains_from, + uppercase_ascii, + lowercase_ascii, + capitalize_ascii, + uncapitalize_ascii, + compare, + equal, + split_on_char, } /* No side effect */ diff --git a/lib/es6/uchar.js b/lib/es6/uchar.js index 7ae786d3c4..f98c218a31 100644 --- a/lib/es6/uchar.js +++ b/lib/es6/uchar.js @@ -17,11 +17,11 @@ function succ(u) { } if (u === 1114111) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "U+10FFFF has no successor" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+10FFFF has no successor" + } + }); } return u + 1 | 0; } @@ -32,11 +32,11 @@ function pred(u) { } if (u === 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "U+0000 has no predecessor" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+0000 has no predecessor" + } + }); } return u - 1 | 0; } @@ -55,13 +55,13 @@ function of_int(i) { if (is_valid(i)) { return i; } - var s = err_not_sv(i); + let s = err_not_sv(i); throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function is_char(u) { @@ -76,13 +76,13 @@ function to_char(u) { if (u <= 255) { return u; } - var s = err_not_latin1(u); + let s = err_not_latin1(u); throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function unsafe_to_char(prim) { @@ -93,19 +93,19 @@ function equal(prim0, prim1) { return prim0 === prim1; } -var compare = Caml.int_compare; +let compare = Caml.int_compare; function hash(prim) { return prim; } -var min = 0; +let min = 0; -var max = 1114111; +let max = 1114111; -var bom = 65279; +let bom = 65279; -var rep = 65533; +let rep = 65533; function unsafe_of_int(prim) { return prim; @@ -116,22 +116,22 @@ function to_int(prim) { } export { - min , - max , - bom , - rep , - succ , - pred , - is_valid , - of_int , - unsafe_of_int , - to_int , - is_char , - of_char , - to_char , - unsafe_to_char , - equal , - compare , - hash , + min, + max, + bom, + rep, + succ, + pred, + is_valid, + of_int, + unsafe_of_int, + to_int, + is_char, + of_char, + to_char, + unsafe_to_char, + equal, + compare, + hash, } /* No side effect */ diff --git a/lib/js/arg.js b/lib/js/arg.js index 7710ed0166..28a73acb7f 100644 --- a/lib/js/arg.js +++ b/lib/js/arg.js @@ -1,59 +1,59 @@ 'use strict'; -var Sys = require("./sys.js"); -var Caml = require("./caml.js"); -var List = require("./list.js"); -var $$Array = require("./array.js"); -var Curry = require("./curry.js"); -var $$Buffer = require("./buffer.js"); -var $$String = require("./string.js"); -var Caml_obj = require("./caml_obj.js"); -var Caml_array = require("./caml_array.js"); -var Pervasives = require("./pervasives.js"); -var Caml_format = require("./caml_format.js"); -var Caml_string = require("./caml_string.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Sys = require("./sys.js"); +let Caml = require("./caml.js"); +let List = require("./list.js"); +let $$Array = require("./array.js"); +let Curry = require("./curry.js"); +let $$Buffer = require("./buffer.js"); +let $$String = require("./string.js"); +let Caml_obj = require("./caml_obj.js"); +let Caml_array = require("./caml_array.js"); +let Pervasives = require("./pervasives.js"); +let Caml_format = require("./caml_format.js"); +let Caml_string = require("./caml_string.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var Bad = /* @__PURE__ */Caml_exceptions.create("Arg.Bad"); +let Bad = /* @__PURE__ */Caml_exceptions.create("Arg.Bad"); -var Help = /* @__PURE__ */Caml_exceptions.create("Arg.Help"); +let Help = /* @__PURE__ */Caml_exceptions.create("Arg.Help"); -var Stop = /* @__PURE__ */Caml_exceptions.create("Arg.Stop"); +let Stop = /* @__PURE__ */Caml_exceptions.create("Arg.Stop"); function assoc3(x, _l) { while(true) { - var l = _l; + let l = _l; if (l) { - var match = l.hd; + let match = l.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _l = l.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function split(s) { - var i = $$String.index(s, /* '=' */61); - var len = s.length; + let i = $$String.index(s, /* '=' */61); + let len = s.length; return [ - $$String.sub(s, 0, i), - $$String.sub(s, i + 1 | 0, len - (i + 1 | 0) | 0) - ]; + $$String.sub(s, 0, i), + $$String.sub(s, i + 1 | 0, len - (i + 1 | 0) | 0) + ]; } function make_symlist(prefix, sep, suffix, l) { if (l) { return List.fold_left((function (x, y) { - return x + (sep + y); - }), prefix + l.hd, l.tl) + suffix; + return x + (sep + y); + }), prefix + l.hd, l.tl) + suffix; } else { return ""; } @@ -61,24 +61,24 @@ function make_symlist(prefix, sep, suffix, l) { function help_action(param) { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: "-help" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: "-help" + } + } + }); } function add_help(speclist) { - var add1; + let add1; try { assoc3("-help", speclist); add1 = /* [] */0; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { add1 = { hd: [ @@ -93,17 +93,17 @@ function add_help(speclist) { }; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } - var add2; + let add2; try { assoc3("--help", speclist); add2 = /* [] */0; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { add2 = { hd: [ @@ -118,8 +118,8 @@ function add_help(speclist) { }; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } return Pervasives.$at(speclist, Pervasives.$at(add1, add2)); @@ -128,22 +128,22 @@ function add_help(speclist) { function usage_b(buf, speclist, errmsg) { $$Buffer.add_string(buf, errmsg + "\n"); List.iter((function (param) { - var doc = param[2]; - if (doc.length === 0) { - return ; - } - var spec = param[1]; - var key = param[0]; - if (spec.TAG !== "Symbol") { - return $$Buffer.add_string(buf, " " + key + " " + doc + "\n"); - } - var sym = make_symlist("{", "|", "}", spec._0); - return $$Buffer.add_string(buf, " " + key + " " + sym + doc + "\n"); - }), add_help(speclist)); + let doc = param[2]; + if (doc.length === 0) { + return; + } + let spec = param[1]; + let key = param[0]; + if (spec.TAG !== "Symbol") { + return $$Buffer.add_string(buf, " " + key + " " + doc + "\n"); + } + let sym = make_symlist("{", "|", "}", spec._0); + return $$Buffer.add_string(buf, " " + key + " " + sym + doc + "\n"); + }), add_help(speclist)); } function usage_string(speclist, errmsg) { - var b = $$Buffer.create(200); + let b = $$Buffer.create(200); usage_b(b, speclist, errmsg); return $$Buffer.contents(b); } @@ -152,7 +152,7 @@ function usage(speclist, errmsg) { console.log(usage_string(speclist, errmsg)); } -var current = { +let current = { contents: 0 }; @@ -161,13 +161,13 @@ function bool_of_string_opt(x) { return Pervasives.bool_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Invalid_argument") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -176,13 +176,13 @@ function int_of_string_opt(x) { return Caml_format.int_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -191,24 +191,24 @@ function float_of_string_opt(x) { return Caml_format.float_of_string(x); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist, anonfun, errmsg) { - var initpos = current.contents; - var convert_error = function (error) { - var b = $$Buffer.create(200); - var progname = initpos < argv.contents.length ? Caml_array.get(argv.contents, initpos) : "(?)"; + let initpos = current.contents; + let convert_error = function (error) { + let b = $$Buffer.create(200); + let progname = initpos < argv.contents.length ? Caml_array.get(argv.contents, initpos) : "(?)"; switch (error.TAG) { case "Unknown" : - var s = error._0; + let s = error._0; switch (s) { case "--help" : case "-help" : @@ -230,29 +230,29 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist } usage_b(b, speclist.contents, errmsg); if (Caml_obj.equal(error, { - TAG: "Unknown", - _0: "-help" - }) || Caml_obj.equal(error, { - TAG: "Unknown", - _0: "--help" - })) { + TAG: "Unknown", + _0: "-help" + }) || Caml_obj.equal(error, { + TAG: "Unknown", + _0: "--help" + })) { return { - RE_EXN_ID: Help, - _1: $$Buffer.contents(b) - }; + RE_EXN_ID: Help, + _1: $$Buffer.contents(b) + }; } else { return { - RE_EXN_ID: Bad, - _1: $$Buffer.contents(b) - }; + RE_EXN_ID: Bad, + _1: $$Buffer.contents(b) + }; } }; current.contents = current.contents + 1 | 0; while(current.contents < argv.contents.length) { try { - var s = Caml_array.get(argv.contents, current.contents); + let s = Caml_array.get(argv.contents, current.contents); if (s.length >= 1 && Caml_string.get(s, 0) === /* '-' */45) { - var match; + let match; try { match = [ assoc3(s, speclist.contents), @@ -260,59 +260,56 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist ]; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { try { - var match$1 = split(s); + let match$1 = split(s); match = [ assoc3(match$1[0], speclist.contents), match$1[1] ]; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Unknown", - _0: s - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Unknown", + _0: s + } + } + }); } throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } - var follow = match[1]; - var no_arg = (function(s,follow){ - return function no_arg(param) { + let follow = match[1]; + let no_arg = function (param) { if (follow === undefined) { - return ; + return; } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: follow, - _2: "no argument" - } - } - }); - } - }(s,follow)); - var get_arg = (function(s,follow){ - return function get_arg(param) { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: follow, + _2: "no argument" + } + } + }); + }; + let get_arg = function (param) { if (follow !== undefined) { return follow; } @@ -320,223 +317,218 @@ function parse_and_expand_argv_dynamic_aux(allow_expand, current, argv, speclist return Caml_array.get(argv.contents, current.contents + 1 | 0); } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Missing", - _0: s - } - } - }); - } - }(s,follow)); - var consume_arg = (function(follow){ - return function consume_arg(param) { + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Missing", + _0: s + } + } + }); + }; + let consume_arg = function (param) { if (follow !== undefined) { - return ; + return; } else { current.contents = current.contents + 1 | 0; - return ; + return; } - } - }(follow)); - var treat_action = (function(s){ - return function treat_action(f) { + }; + let treat_action = function (f) { switch (f.TAG) { case "Unit" : return Curry._1(f._0, undefined); case "Bool" : - var arg = get_arg(); - var s$1 = bool_of_string_opt(arg); + let arg = get_arg(); + let s$1 = bool_of_string_opt(arg); if (s$1 !== undefined) { Curry._1(f._0, s$1); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg, - _2: "a boolean" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg, + _2: "a boolean" + } + } + }); } return consume_arg(); case "Set" : no_arg(); f._0.contents = true; - return ; + return; case "Clear" : no_arg(); f._0.contents = false; - return ; + return; case "String" : - var arg$1 = get_arg(); + let arg$1 = get_arg(); Curry._1(f._0, arg$1); return consume_arg(); case "Set_string" : f._0.contents = get_arg(); return consume_arg(); case "Int" : - var arg$2 = get_arg(); - var x = int_of_string_opt(arg$2); + let arg$2 = get_arg(); + let x = int_of_string_opt(arg$2); if (x !== undefined) { Curry._1(f._0, x); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$2, - _2: "an integer" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$2, + _2: "an integer" + } + } + }); } return consume_arg(); case "Set_int" : - var arg$3 = get_arg(); - var x$1 = int_of_string_opt(arg$3); + let arg$3 = get_arg(); + let x$1 = int_of_string_opt(arg$3); if (x$1 !== undefined) { f._0.contents = x$1; } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$3, - _2: "an integer" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$3, + _2: "an integer" + } + } + }); } return consume_arg(); case "Float" : - var arg$4 = get_arg(); - var x$2 = float_of_string_opt(arg$4); + let arg$4 = get_arg(); + let x$2 = float_of_string_opt(arg$4); if (x$2 !== undefined) { Curry._1(f._0, x$2); } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$4, - _2: "a float" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$4, + _2: "a float" + } + } + }); } return consume_arg(); case "Set_float" : - var arg$5 = get_arg(); - var x$3 = float_of_string_opt(arg$5); + let arg$5 = get_arg(); + let x$3 = float_of_string_opt(arg$5); if (x$3 !== undefined) { f._0.contents = x$3; } else { throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$5, - _2: "a float" - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$5, + _2: "a float" + } + } + }); } return consume_arg(); case "Tuple" : return List.iter(treat_action, f._0); case "Symbol" : - var symb = f._0; - var arg$6 = get_arg(); + let symb = f._0; + let arg$6 = get_arg(); if (List.mem(arg$6, symb)) { Curry._1(f._1, arg$6); return consume_arg(); } throw new Error(Stop, { - cause: { - RE_EXN_ID: Stop, - _1: { - TAG: "Wrong", - _0: s, - _1: arg$6, - _2: "one of: " + make_symlist("", " ", "", symb) - } - } - }); + cause: { + RE_EXN_ID: Stop, + _1: { + TAG: "Wrong", + _0: s, + _1: arg$6, + _2: "one of: " + make_symlist("", " ", "", symb) + } + } + }); case "Rest" : - var f$1 = f._0; + let f$1 = f._0; while(current.contents < (argv.contents.length - 1 | 0)) { Curry._1(f$1, Caml_array.get(argv.contents, current.contents + 1 | 0)); consume_arg(); }; - return ; + return; case "Expand" : if (!allow_expand) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic" + } + }); } - var arg$7 = get_arg(); - var newarg = Curry._1(f._0, arg$7); + let arg$7 = get_arg(); + let newarg = Curry._1(f._0, arg$7); consume_arg(); - var before = $$Array.sub(argv.contents, 0, current.contents + 1 | 0); - var after = $$Array.sub(argv.contents, current.contents + 1 | 0, (argv.contents.length - current.contents | 0) - 1 | 0); + let before = $$Array.sub(argv.contents, 0, current.contents + 1 | 0); + let after = $$Array.sub(argv.contents, current.contents + 1 | 0, (argv.contents.length - current.contents | 0) - 1 | 0); argv.contents = Caml_array.concat({ - hd: before, - tl: { - hd: newarg, - tl: { - hd: after, - tl: /* [] */0 - } - } - }); - return ; + hd: before, + tl: { + hd: newarg, + tl: { + hd: after, + tl: /* [] */0 + } + } + }); + return; } - } - }(s)); + }; treat_action(match[0]); } else { Curry._1(anonfun, s); } } catch (raw_m){ - var m = Caml_js_exceptions.internalToOCamlException(raw_m); + let m = Caml_js_exceptions.internalToOCamlException(raw_m); if (m.RE_EXN_ID === Bad) { throw new Error(convert_error({ - TAG: "Message", - _0: m._1 - }).RE_EXN_ID, { - cause: convert_error({ - TAG: "Message", - _0: m._1 - }) - }); + TAG: "Message", + _0: m._1 + }).RE_EXN_ID, { + cause: convert_error({ + TAG: "Message", + _0: m._1 + }) + }); } if (m.RE_EXN_ID === Stop) { throw new Error(convert_error(m._1).RE_EXN_ID, { - cause: convert_error(m._1) - }); + cause: convert_error(m._1) + }); } throw new Error(m.RE_EXN_ID, { - cause: m - }); + cause: m + }); } current.contents = current.contents + 1 | 0; }; @@ -547,17 +539,17 @@ function parse_and_expand_argv_dynamic(current, argv, speclist, anonfun, errmsg) } function parse_argv_dynamic(currentOpt, argv, speclist, anonfun, errmsg) { - var current$1 = currentOpt !== undefined ? currentOpt : current; + let current$1 = currentOpt !== undefined ? currentOpt : current; parse_and_expand_argv_dynamic_aux(false, current$1, { - contents: argv - }, speclist, anonfun, errmsg); + contents: argv + }, speclist, anonfun, errmsg); } function parse_argv(currentOpt, argv, speclist, anonfun, errmsg) { - var current$1 = currentOpt !== undefined ? currentOpt : current; + let current$1 = currentOpt !== undefined ? currentOpt : current; parse_argv_dynamic(current$1, argv, { - contents: speclist - }, anonfun, errmsg); + contents: speclist + }, anonfun, errmsg); } function parse(l, f, msg) { @@ -565,7 +557,7 @@ function parse(l, f, msg) { return parse_argv(undefined, Sys.argv, l, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -575,8 +567,8 @@ function parse(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } @@ -585,7 +577,7 @@ function parse_dynamic(l, f, msg) { return parse_argv_dynamic(undefined, Sys.argv, l, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -595,26 +587,26 @@ function parse_dynamic(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } function parse_expand(l, f, msg) { try { - var argv = { + let argv = { contents: Sys.argv }; - var spec = { + let spec = { contents: l }; - var current$1 = { + let current$1 = { contents: current.contents }; return parse_and_expand_argv_dynamic(current$1, argv, spec, f, msg); } catch (raw_msg){ - var msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); + let msg$1 = Caml_js_exceptions.internalToOCamlException(raw_msg); if (msg$1.RE_EXN_ID === Bad) { console.log(msg$1._1); return Pervasives.exit(2); @@ -624,16 +616,16 @@ function parse_expand(l, f, msg) { return Pervasives.exit(0); } throw new Error(msg$1.RE_EXN_ID, { - cause: msg$1 - }); + cause: msg$1 + }); } } function second_word(s) { - var len = s.length; - var loop = function (_n) { + let len = s.length; + let loop = function (_n) { while(true) { - var n = _n; + let n = _n; if (n >= len) { return len; } @@ -641,30 +633,30 @@ function second_word(s) { return n; } _n = n + 1 | 0; - continue ; + continue; }; }; - var n; + let n; try { n = $$String.index(s, /* '\t' */9); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { - var exit = 0; - var n$1; + let exit = 0; + let n$1; try { n$1 = $$String.index(s, /* ' ' */32); exit = 2; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { return len; } throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } if (exit === 2) { return loop(n$1 + 1 | 0); @@ -672,15 +664,15 @@ function second_word(s) { } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } return loop(n + 1 | 0); } function max_arg_len(cur, param) { - var kwd = param[0]; + let kwd = param[0]; if (param[1].TAG === "Symbol") { return Caml.int_max(cur, kwd.length); } else { @@ -689,60 +681,60 @@ function max_arg_len(cur, param) { } function replace_leading_tab(s) { - var seen = { + let seen = { contents: false }; return $$String.map((function (c) { - if (c !== 9 || seen.contents) { - return c; - } else { - seen.contents = true; - return /* ' ' */32; - } - }), s); + if (c !== 9 || seen.contents) { + return c; + } else { + seen.contents = true; + return /* ' ' */32; + } + }), s); } function align(limitOpt, speclist) { - var limit = limitOpt !== undefined ? limitOpt : Pervasives.max_int; - var completed = add_help(speclist); - var len = List.fold_left(max_arg_len, 0, completed); - var len$1 = len < limit ? len : limit; + let limit = limitOpt !== undefined ? limitOpt : Pervasives.max_int; + let completed = add_help(speclist); + let len = List.fold_left(max_arg_len, 0, completed); + let len$1 = len < limit ? len : limit; return List.map((function (param) { - var spec = param[1]; - var kwd = param[0]; - if (param[2] === "") { - return param; - } - if (spec.TAG === "Symbol") { - var msg = param[2]; - var cutcol = second_word(msg); - var spaces = " ".repeat(Caml.int_max(0, len$1 - cutcol | 0) + 3 | 0); - return [ - kwd, - spec, - "\n" + (spaces + replace_leading_tab(msg)) - ]; - } - var msg$1 = param[2]; - var cutcol$1 = second_word(msg$1); - var kwd_len = kwd.length; - var diff = (len$1 - kwd_len | 0) - cutcol$1 | 0; - if (diff <= 0) { - return [ - kwd, - spec, - replace_leading_tab(msg$1) - ]; - } - var spaces$1 = " ".repeat(diff); - var prefix = $$String.sub(replace_leading_tab(msg$1), 0, cutcol$1); - var suffix = $$String.sub(msg$1, cutcol$1, msg$1.length - cutcol$1 | 0); - return [ - kwd, - spec, - prefix + (spaces$1 + suffix) - ]; - }), completed); + let spec = param[1]; + let kwd = param[0]; + if (param[2] === "") { + return param; + } + if (spec.TAG === "Symbol") { + let msg = param[2]; + let cutcol = second_word(msg); + let spaces = " ".repeat(Caml.int_max(0, len$1 - cutcol | 0) + 3 | 0); + return [ + kwd, + spec, + "\n" + (spaces + replace_leading_tab(msg)) + ]; + } + let msg$1 = param[2]; + let cutcol$1 = second_word(msg$1); + let kwd_len = kwd.length; + let diff = (len$1 - kwd_len | 0) - cutcol$1 | 0; + if (diff <= 0) { + return [ + kwd, + spec, + replace_leading_tab(msg$1) + ]; + } + let spaces$1 = " ".repeat(diff); + let prefix = $$String.sub(replace_leading_tab(msg$1), 0, cutcol$1); + let suffix = $$String.sub(msg$1, cutcol$1, msg$1.length - cutcol$1 | 0); + return [ + kwd, + spec, + prefix + (spaces$1 + suffix) + ]; + }), completed); } exports.parse = parse; diff --git a/lib/js/array.js b/lib/js/array.js index 0295332444..7fc81c11d0 100644 --- a/lib/js/array.js +++ b/lib/js/array.js @@ -1,14 +1,14 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_obj = require("./caml_obj.js"); -var Caml_array = require("./caml_array.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Curry = require("./curry.js"); +let Caml_obj = require("./caml_obj.js"); +let Caml_array = require("./caml_array.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var make_float = Caml_array.make_float; +let make_float = Caml_array.make_float; -var Floatarray = {}; +let Floatarray = {}; function init(l, f) { if (l === 0) { @@ -16,29 +16,29 @@ function init(l, f) { } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, Curry._1(f, 0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, Curry._1(f, 0)); + for(let i = 1; i < l; ++i){ res[i] = Curry._1(f, i); } return res; } function make_matrix(sx, sy, init) { - var res = Caml_array.make(sx, []); - for(var x = 0; x < sx; ++x){ + let res = Caml_array.make(sx, []); + for(let x = 0; x < sx; ++x){ res[x] = Caml_array.make(sy, init); } return res; } function copy(a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } else { @@ -47,7 +47,7 @@ function copy(a) { } function append(a1, a2) { - var l1 = a1.length; + let l1 = a1.length; if (l1 === 0) { return copy(a2); } else if (a2.length === 0) { @@ -60,11 +60,11 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } @@ -72,13 +72,13 @@ function sub(a, ofs, len) { function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } - for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; } } @@ -86,17 +86,17 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } @@ -104,74 +104,74 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); } } function map(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._1(f, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._1(f, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._1(f, a[i]); } return r; } function map2(f, a, b) { - var la = a.length; - var lb = b.length; + let la = a.length; + let lb = b.length; if (la !== lb) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; } - var r = Caml_array.make(la, Curry._2(f, a[0], b[0])); - for(var i = 1; i < la; ++i){ + let r = Caml_array.make(la, Curry._2(f, a[0], b[0])); + for(let i = 1; i < la; ++i){ r[i] = Curry._2(f, a[i], b[i]); } return r; } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } function mapi(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._2(f, 0, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._2(f, 0, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._2(f, i, a[i]); } return r; } function to_list(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -180,20 +180,20 @@ function to_list(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function list_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } _param = param.tl; _accu = accu + 1 | 0; - continue ; + continue; }; } @@ -201,43 +201,43 @@ function of_list(param) { if (!param) { return []; } - var a = Caml_array.make(list_length(0, param), param.hd); - var _i = 1; - var _param = param.tl; + let a = Caml_array.make(list_length(0, param), param.hd); + let _i = 1; + let _param = param.tl; while(true) { - var param$1 = _param; - var i = _i; + let param$1 = _param; + let i = _i; if (!param$1) { return a; } a[i] = param$1.hd; _param = param$1.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, x, a) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = Curry._2(f, r, a[i]); } return r; } function fold_right(f, a, x) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = Curry._2(f, a[i], r); } return r; } function exists(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -245,15 +245,15 @@ function exists(p, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function for_all(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return true; } @@ -261,15 +261,15 @@ function for_all(p, a) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } function mem(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -277,15 +277,15 @@ function mem(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function memq(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -293,16 +293,16 @@ function memq(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } -var Bottom = /* @__PURE__ */Caml_exceptions.create("Array.Bottom"); +let Bottom = /* @__PURE__ */Caml_exceptions.create("Array.Bottom"); function sort(cmp, a) { - var maxson = function (l, i) { - var i31 = ((i + i | 0) + i | 0) + 1 | 0; - var x = i31; + let maxson = function (l, i) { + let i31 = ((i + i | 0) + i | 0) + 1 | 0; + let x = i31; if ((i31 + 2 | 0) < l) { if (Curry._2(cmp, Caml_array.get(a, i31), Caml_array.get(a, i31 + 1 | 0)) < 0) { x = i31 + 1 | 0; @@ -319,72 +319,72 @@ function sort(cmp, a) { return i31; } throw new Error(Bottom, { - cause: { - RE_EXN_ID: Bottom, - _1: i - } - }); + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; - var trickle = function (l, i, e) { + let trickle = function (l, i, e) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); if (Curry._2(cmp, Caml_array.get(a, j), e) <= 0) { return Caml_array.set(a, i$1, e); } Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var bubble = function (l, i) { + let bubble = function (l, i) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var trickleup = function (_i, e) { + let trickleup = function (_i, e) { while(true) { - var i = _i; - var father = (i - 1 | 0) / 3 | 0; + let i = _i; + let father = (i - 1 | 0) / 3 | 0; if (i === father) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "array.res", - 321, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "array.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); @@ -394,67 +394,67 @@ function sort(cmp, a) { return Caml_array.set(a, 0, e); } _i = father; - continue ; + continue; }; }; - var l = a.length; - for(var i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ + let l = a.length; + for(let i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ trickle(l, i, Caml_array.get(a, i)); } - for(var i$1 = l - 1 | 0; i$1 >= 2; --i$1){ - var e = Caml_array.get(a, i$1); + for(let i$1 = l - 1 | 0; i$1 >= 2; --i$1){ + let e = Caml_array.get(a, i$1); Caml_array.set(a, i$1, Caml_array.get(a, 0)); trickleup(bubble(i$1, 0), e); } if (l <= 1) { - return ; + return; } - var e$1 = Caml_array.get(a, 1); + let e$1 = Caml_array.get(a, 1); Caml_array.set(a, 1, Caml_array.get(a, 0)); Caml_array.set(a, 0, e$1); } function stable_sort(cmp, a) { - var merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { - var src1r = src1ofs + src1len | 0; - var src2r = src2ofs + src2len | 0; - var _i1 = src1ofs; - var _s1 = Caml_array.get(a, src1ofs); - var _i2 = src2ofs; - var _s2 = Caml_array.get(src2, src2ofs); - var _d = dstofs; + let merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { + let src1r = src1ofs + src1len | 0; + let src2r = src2ofs + src2len | 0; + let _i1 = src1ofs; + let _s1 = Caml_array.get(a, src1ofs); + let _i2 = src2ofs; + let _s2 = Caml_array.get(src2, src2ofs); + let _d = dstofs; while(true) { - var d = _d; - var s2 = _s2; - var i2 = _i2; - var s1 = _s1; - var i1 = _i1; + let d = _d; + let s2 = _s2; + let i2 = _i2; + let s1 = _s1; + let i1 = _i1; if (Curry._2(cmp, s1, s2) <= 0) { Caml_array.set(dst, d, s1); - var i1$1 = i1 + 1 | 0; + let i1$1 = i1 + 1 | 0; if (i1$1 >= src1r) { return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0); } _d = d + 1 | 0; _s1 = Caml_array.get(a, i1$1); _i1 = i1$1; - continue ; + continue; } Caml_array.set(dst, d, s2); - var i2$1 = i2 + 1 | 0; + let i2$1 = i2 + 1 | 0; if (i2$1 >= src2r) { return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0); } _d = d + 1 | 0; _s2 = Caml_array.get(src2, i2$1); _i2 = i2$1; - continue ; + continue; }; }; - var isortto = function (srcofs, dst, dstofs, len) { - for(var i = 0; i < len; ++i){ - var e = Caml_array.get(a, srcofs + i | 0); - var j = (dstofs + i | 0) - 1 | 0; + let isortto = function (srcofs, dst, dstofs, len) { + for(let i = 0; i < len; ++i){ + let e = Caml_array.get(a, srcofs + i | 0); + let j = (dstofs + i | 0) - 1 | 0; while(j >= dstofs && Curry._2(cmp, Caml_array.get(dst, j), e) > 0) { Caml_array.set(dst, j + 1 | 0, Caml_array.get(dst, j)); j = j - 1 | 0; @@ -462,33 +462,33 @@ function stable_sort(cmp, a) { Caml_array.set(dst, j + 1 | 0, e); } }; - var sortto = function (srcofs, dst, dstofs, len) { + let sortto = function (srcofs, dst, dstofs, len) { if (len <= 5) { return isortto(srcofs, dst, dstofs, len); } - var l1 = len / 2 | 0; - var l2 = len - l1 | 0; + let l1 = len / 2 | 0; + let l2 = len - l1 | 0; sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2); sortto(srcofs, a, srcofs + l2 | 0, l1); merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs); }; - var l = a.length; + let l = a.length; if (l <= 5) { return isortto(0, a, 0, l); } - var l1 = l / 2 | 0; - var l2 = l - l1 | 0; - var t = Caml_array.make(l2, Caml_array.get(a, 0)); + let l1 = l / 2 | 0; + let l2 = l - l1 | 0; + let t = Caml_array.make(l2, Caml_array.get(a, 0)); sortto(l1, t, 0, l2); sortto(0, a, l2, l1); merge(l2, l1, t, 0, l2, a, 0); } -var create_matrix = make_matrix; +let create_matrix = make_matrix; -var concat = Caml_array.concat; +let concat = Caml_array.concat; -var fast_sort = stable_sort; +let fast_sort = stable_sort; exports.make_float = make_float; exports.init = init; diff --git a/lib/js/arrayLabels.js b/lib/js/arrayLabels.js index 9dc49b9844..b1dd65cc0f 100644 --- a/lib/js/arrayLabels.js +++ b/lib/js/arrayLabels.js @@ -1,14 +1,14 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_obj = require("./caml_obj.js"); -var Caml_array = require("./caml_array.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Curry = require("./curry.js"); +let Caml_obj = require("./caml_obj.js"); +let Caml_array = require("./caml_array.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var make_float = Caml_array.make_float; +let make_float = Caml_array.make_float; -var Floatarray = {}; +let Floatarray = {}; function init(l, f) { if (l === 0) { @@ -16,29 +16,29 @@ function init(l, f) { } if (l < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.init" + } + }); } - var res = Caml_array.make(l, Curry._1(f, 0)); - for(var i = 1; i < l; ++i){ + let res = Caml_array.make(l, Curry._1(f, 0)); + for(let i = 1; i < l; ++i){ res[i] = Curry._1(f, i); } return res; } function make_matrix(sx, sy, init) { - var res = Caml_array.make(sx, []); - for(var x = 0; x < sx; ++x){ + let res = Caml_array.make(sx, []); + for(let x = 0; x < sx; ++x){ res[x] = Caml_array.make(sy, init); } return res; } function copy(a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } else { @@ -47,7 +47,7 @@ function copy(a) { } function append(a1, a2) { - var l1 = a1.length; + let l1 = a1.length; if (l1 === 0) { return copy(a2); } else if (a2.length === 0) { @@ -60,11 +60,11 @@ function append(a1, a2) { function sub(a, ofs, len) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.sub" + } + }); } return Caml_array.sub(a, ofs, len); } @@ -72,13 +72,13 @@ function sub(a, ofs, len) { function fill(a, ofs, len, v) { if (ofs < 0 || len < 0 || ofs > (a.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.fill" + } + }); } - for(var i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + len | 0; i < i_finish; ++i){ a[i] = v; } } @@ -86,17 +86,17 @@ function fill(a, ofs, len, v) { function blit(a1, ofs1, a2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (a1.length - len | 0) || ofs2 < 0 || ofs2 > (a2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.blit" + } + }); } Caml_array.blit(a1, ofs1, a2, ofs2, len); } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } @@ -104,74 +104,74 @@ function iter(f, a) { function iter2(f, a, b) { if (a.length !== b.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.iter2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.iter2: arrays must have the same length" + } + }); } - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, a[i], b[i]); } } function map(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._1(f, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._1(f, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._1(f, a[i]); } return r; } function map2(f, a, b) { - var la = a.length; - var lb = b.length; + let la = a.length; + let lb = b.length; if (la !== lb) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Array.map2: arrays must have the same length" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Array.map2: arrays must have the same length" + } + }); } if (la === 0) { return []; } - var r = Caml_array.make(la, Curry._2(f, a[0], b[0])); - for(var i = 1; i < la; ++i){ + let r = Caml_array.make(la, Curry._2(f, a[0], b[0])); + for(let i = 1; i < la; ++i){ r[i] = Curry._2(f, a[i], b[i]); } return r; } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } function mapi(f, a) { - var l = a.length; + let l = a.length; if (l === 0) { return []; } - var r = Caml_array.make(l, Curry._2(f, 0, a[0])); - for(var i = 1; i < l; ++i){ + let r = Caml_array.make(l, Curry._2(f, 0, a[0])); + for(let i = 1; i < l; ++i){ r[i] = Curry._2(f, i, a[i]); } return r; } function to_list(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -180,20 +180,20 @@ function to_list(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function list_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } _param = param.tl; _accu = accu + 1 | 0; - continue ; + continue; }; } @@ -201,43 +201,43 @@ function of_list(param) { if (!param) { return []; } - var a = Caml_array.make(list_length(0, param), param.hd); - var _i = 1; - var _param = param.tl; + let a = Caml_array.make(list_length(0, param), param.hd); + let _i = 1; + let _param = param.tl; while(true) { - var param$1 = _param; - var i = _i; + let param$1 = _param; + let i = _i; if (!param$1) { return a; } a[i] = param$1.hd; _param = param$1.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, x, a) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = Curry._2(f, r, a[i]); } return r; } function fold_right(f, a, x) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = Curry._2(f, a[i], r); } return r; } function exists(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -245,15 +245,15 @@ function exists(p, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function for_all(p, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return true; } @@ -261,15 +261,15 @@ function for_all(p, a) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } function mem(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -277,15 +277,15 @@ function mem(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } function memq(x, a) { - var n = a.length; - var _i = 0; + let n = a.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === n) { return false; } @@ -293,16 +293,16 @@ function memq(x, a) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } -var Bottom = /* @__PURE__ */Caml_exceptions.create("ArrayLabels.Bottom"); +let Bottom = /* @__PURE__ */Caml_exceptions.create("ArrayLabels.Bottom"); function sort(cmp, a) { - var maxson = function (l, i) { - var i31 = ((i + i | 0) + i | 0) + 1 | 0; - var x = i31; + let maxson = function (l, i) { + let i31 = ((i + i | 0) + i | 0) + 1 | 0; + let x = i31; if ((i31 + 2 | 0) < l) { if (Curry._2(cmp, Caml_array.get(a, i31), Caml_array.get(a, i31 + 1 | 0)) < 0) { x = i31 + 1 | 0; @@ -319,72 +319,72 @@ function sort(cmp, a) { return i31; } throw new Error(Bottom, { - cause: { - RE_EXN_ID: Bottom, - _1: i - } - }); + cause: { + RE_EXN_ID: Bottom, + _1: i + } + }); }; - var trickle = function (l, i, e) { + let trickle = function (l, i, e) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); if (Curry._2(cmp, Caml_array.get(a, j), e) <= 0) { return Caml_array.set(a, i$1, e); } Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return Caml_array.set(a, i$2._1, e); } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var bubble = function (l, i) { + let bubble = function (l, i) { try { - var _i = i; + let _i = i; while(true) { - var i$1 = _i; - var j = maxson(l, i$1); + let i$1 = _i; + let j = maxson(l, i$1); Caml_array.set(a, i$1, Caml_array.get(a, j)); _i = j; - continue ; + continue; }; } catch (raw_i){ - var i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); + let i$2 = Caml_js_exceptions.internalToOCamlException(raw_i); if (i$2.RE_EXN_ID === Bottom) { return i$2._1; } throw new Error(i$2.RE_EXN_ID, { - cause: i$2 - }); + cause: i$2 + }); } }; - var trickleup = function (_i, e) { + let trickleup = function (_i, e) { while(true) { - var i = _i; - var father = (i - 1 | 0) / 3 | 0; + let i = _i; + let father = (i - 1 | 0) / 3 | 0; if (i === father) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "arrayLabels.res", - 321, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "arrayLabels.res", + 321, + 4 + ] + } + }); } if (Curry._2(cmp, Caml_array.get(a, father), e) >= 0) { return Caml_array.set(a, i, e); @@ -394,67 +394,67 @@ function sort(cmp, a) { return Caml_array.set(a, 0, e); } _i = father; - continue ; + continue; }; }; - var l = a.length; - for(var i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ + let l = a.length; + for(let i = ((l + 1 | 0) / 3 | 0) - 1 | 0; i >= 0; --i){ trickle(l, i, Caml_array.get(a, i)); } - for(var i$1 = l - 1 | 0; i$1 >= 2; --i$1){ - var e = Caml_array.get(a, i$1); + for(let i$1 = l - 1 | 0; i$1 >= 2; --i$1){ + let e = Caml_array.get(a, i$1); Caml_array.set(a, i$1, Caml_array.get(a, 0)); trickleup(bubble(i$1, 0), e); } if (l <= 1) { - return ; + return; } - var e$1 = Caml_array.get(a, 1); + let e$1 = Caml_array.get(a, 1); Caml_array.set(a, 1, Caml_array.get(a, 0)); Caml_array.set(a, 0, e$1); } function stable_sort(cmp, a) { - var merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { - var src1r = src1ofs + src1len | 0; - var src2r = src2ofs + src2len | 0; - var _i1 = src1ofs; - var _s1 = Caml_array.get(a, src1ofs); - var _i2 = src2ofs; - var _s2 = Caml_array.get(src2, src2ofs); - var _d = dstofs; + let merge = function (src1ofs, src1len, src2, src2ofs, src2len, dst, dstofs) { + let src1r = src1ofs + src1len | 0; + let src2r = src2ofs + src2len | 0; + let _i1 = src1ofs; + let _s1 = Caml_array.get(a, src1ofs); + let _i2 = src2ofs; + let _s2 = Caml_array.get(src2, src2ofs); + let _d = dstofs; while(true) { - var d = _d; - var s2 = _s2; - var i2 = _i2; - var s1 = _s1; - var i1 = _i1; + let d = _d; + let s2 = _s2; + let i2 = _i2; + let s1 = _s1; + let i1 = _i1; if (Curry._2(cmp, s1, s2) <= 0) { Caml_array.set(dst, d, s1); - var i1$1 = i1 + 1 | 0; + let i1$1 = i1 + 1 | 0; if (i1$1 >= src1r) { return blit(src2, i2, dst, d + 1 | 0, src2r - i2 | 0); } _d = d + 1 | 0; _s1 = Caml_array.get(a, i1$1); _i1 = i1$1; - continue ; + continue; } Caml_array.set(dst, d, s2); - var i2$1 = i2 + 1 | 0; + let i2$1 = i2 + 1 | 0; if (i2$1 >= src2r) { return blit(a, i1, dst, d + 1 | 0, src1r - i1 | 0); } _d = d + 1 | 0; _s2 = Caml_array.get(src2, i2$1); _i2 = i2$1; - continue ; + continue; }; }; - var isortto = function (srcofs, dst, dstofs, len) { - for(var i = 0; i < len; ++i){ - var e = Caml_array.get(a, srcofs + i | 0); - var j = (dstofs + i | 0) - 1 | 0; + let isortto = function (srcofs, dst, dstofs, len) { + for(let i = 0; i < len; ++i){ + let e = Caml_array.get(a, srcofs + i | 0); + let j = (dstofs + i | 0) - 1 | 0; while(j >= dstofs && Curry._2(cmp, Caml_array.get(dst, j), e) > 0) { Caml_array.set(dst, j + 1 | 0, Caml_array.get(dst, j)); j = j - 1 | 0; @@ -462,33 +462,33 @@ function stable_sort(cmp, a) { Caml_array.set(dst, j + 1 | 0, e); } }; - var sortto = function (srcofs, dst, dstofs, len) { + let sortto = function (srcofs, dst, dstofs, len) { if (len <= 5) { return isortto(srcofs, dst, dstofs, len); } - var l1 = len / 2 | 0; - var l2 = len - l1 | 0; + let l1 = len / 2 | 0; + let l2 = len - l1 | 0; sortto(srcofs + l1 | 0, dst, dstofs + l1 | 0, l2); sortto(srcofs, a, srcofs + l2 | 0, l1); merge(srcofs + l2 | 0, l1, dst, dstofs + l1 | 0, l2, dst, dstofs); }; - var l = a.length; + let l = a.length; if (l <= 5) { return isortto(0, a, 0, l); } - var l1 = l / 2 | 0; - var l2 = l - l1 | 0; - var t = Caml_array.make(l2, Caml_array.get(a, 0)); + let l1 = l / 2 | 0; + let l2 = l - l1 | 0; + let t = Caml_array.make(l2, Caml_array.get(a, 0)); sortto(l1, t, 0, l2); sortto(0, a, l2, l1); merge(l2, l1, t, 0, l2, a, 0); } -var create_matrix = make_matrix; +let create_matrix = make_matrix; -var concat = Caml_array.concat; +let concat = Caml_array.concat; -var fast_sort = stable_sort; +let fast_sort = stable_sort; exports.init = init; exports.make_matrix = make_matrix; diff --git a/lib/js/belt_Array.js b/lib/js/belt_Array.js index 2d7a546798..2484641da4 100644 --- a/lib/js/belt_Array.js +++ b/lib/js/belt_Array.js @@ -1,9 +1,9 @@ 'use strict'; -var Caml = require("./caml.js"); -var Curry = require("./curry.js"); -var Js_math = require("./js_math.js"); -var Caml_option = require("./caml_option.js"); +let Caml = require("./caml.js"); +let Curry = require("./curry.js"); +let Js_math = require("./js_math.js"); +let Caml_option = require("./caml_option.js"); function get(arr, i) { if (i >= 0 && i < arr.length) { @@ -15,15 +15,15 @@ function get(arr, i) { function getExn(arr, i) { if (!(i >= 0 && i < arr.length)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 36, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 36, + 2 + ] + } + }); } return arr[i]; } @@ -40,50 +40,50 @@ function set(arr, i, v) { function setExn(arr, i, v) { if (!(i >= 0 && i < arr.length)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_Array.res", - 49, - 2 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_Array.res", + 49, + 2 + ] + } + }); } arr[i] = v; } function swapUnsafe(xs, i, j) { - var tmp = xs[i]; + let tmp = xs[i]; xs[i] = xs[j]; xs[j] = tmp; } function shuffleInPlace(xs) { - var len = xs.length; - for(var i = 0; i < len; ++i){ + let len = xs.length; + for(let i = 0; i < len; ++i){ swapUnsafe(xs, i, Js_math.random_int(i, len)); } } function shuffle(xs) { - var result = xs.slice(0); + let result = xs.slice(0); shuffleInPlace(result); return result; } function reverseInPlace(xs) { - var len = xs.length; - var ofs = 0; - for(var i = 0 ,i_finish = len / 2 | 0; i < i_finish; ++i){ + let len = xs.length; + let ofs = 0; + for(let i = 0 ,i_finish = len / 2 | 0; i < i_finish; ++i){ swapUnsafe(xs, ofs + i | 0, ((ofs + len | 0) - i | 0) - 1 | 0); } } function reverse(xs) { - var len = xs.length; - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let len = xs.length; + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = xs[(len - 1 | 0) - i | 0]; } return result; @@ -93,8 +93,8 @@ function make(l, f) { if (l <= 0) { return []; } - var res = new Array(l); - for(var i = 0; i < l; ++i){ + let res = new Array(l); + for(let i = 0; i < l; ++i){ res[i] = f; } return res; @@ -104,8 +104,8 @@ function makeByU(l, f) { if (l <= 0) { return []; } - var res = new Array(l); - for(var i = 0; i < l; ++i){ + let res = new Array(l); + for(let i = 0; i < l; ++i){ res[i] = f(i); } return res; @@ -116,7 +116,7 @@ function makeBy(l, f) { } function makeByAndShuffleU(l, f) { - var u = makeByU(l, f); + let u = makeByU(l, f); shuffleInPlace(u); return u; } @@ -126,26 +126,26 @@ function makeByAndShuffle(l, f) { } function range(start, finish) { - var cut = finish - start | 0; + let cut = finish - start | 0; if (cut < 0) { return []; } - var arr = new Array(cut + 1 | 0); - for(var i = 0; i <= cut; ++i){ + let arr = new Array(cut + 1 | 0); + for(let i = 0; i <= cut; ++i){ arr[i] = start + i | 0; } return arr; } function rangeBy(start, finish, step) { - var cut = finish - start | 0; + let cut = finish - start | 0; if (cut < 0 || step <= 0) { return []; } - var nb = (cut / step | 0) + 1 | 0; - var arr = new Array(nb); - var cur = start; - for(var i = 0; i < nb; ++i){ + let nb = (cut / step | 0) + 1 | 0; + let arr = new Array(nb); + let cur = start; + for(let i = 0; i < nb; ++i){ arr[i] = cur; cur = cur + step | 0; } @@ -153,11 +153,11 @@ function rangeBy(start, finish, step) { } function zip(xs, ys) { - var lenx = xs.length; - var leny = ys.length; - var len = lenx < leny ? lenx : leny; - var s = new Array(len); - for(var i = 0; i < len; ++i){ + let lenx = xs.length; + let leny = ys.length; + let len = lenx < leny ? lenx : leny; + let s = new Array(len); + for(let i = 0; i < len; ++i){ s[i] = [ xs[i], ys[i] @@ -167,11 +167,11 @@ function zip(xs, ys) { } function zipByU(xs, ys, f) { - var lenx = xs.length; - var leny = ys.length; - var len = lenx < leny ? lenx : leny; - var s = new Array(len); - for(var i = 0; i < len; ++i){ + let lenx = xs.length; + let leny = ys.length; + let len = lenx < leny ? lenx : leny; + let s = new Array(len); + for(let i = 0; i < len; ++i){ s[i] = f(xs[i], ys[i]); } return s; @@ -182,29 +182,29 @@ function zipBy(xs, ys, f) { } function concat(a1, a2) { - var l1 = a1.length; - var l2 = a2.length; - var a1a2 = new Array(l1 + l2 | 0); - for(var i = 0; i < l1; ++i){ + let l1 = a1.length; + let l2 = a2.length; + let a1a2 = new Array(l1 + l2 | 0); + for(let i = 0; i < l1; ++i){ a1a2[i] = a1[i]; } - for(var i$1 = 0; i$1 < l2; ++i$1){ + for(let i$1 = 0; i$1 < l2; ++i$1){ a1a2[l1 + i$1 | 0] = a2[i$1]; } return a1a2; } function concatMany(arrs) { - var lenArrs = arrs.length; - var totalLen = 0; - for(var i = 0; i < lenArrs; ++i){ + let lenArrs = arrs.length; + let totalLen = 0; + for(let i = 0; i < lenArrs; ++i){ totalLen = totalLen + arrs[i].length | 0; } - var result = new Array(totalLen); + let result = new Array(totalLen); totalLen = 0; - for(var j = 0; j < lenArrs; ++j){ - var cur = arrs[j]; - for(var k = 0 ,k_finish = cur.length; k < k_finish; ++k){ + for(let j = 0; j < lenArrs; ++j){ + let cur = arrs[j]; + for(let k = 0 ,k_finish = cur.length; k < k_finish; ++k){ result[totalLen] = cur[k]; totalLen = totalLen + 1 | 0; } @@ -216,26 +216,26 @@ function slice(a, offset, len) { if (len <= 0) { return []; } - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var hasLen = lena - ofs | 0; - var copyLength = hasLen < len ? hasLen : len; + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let hasLen = lena - ofs | 0; + let copyLength = hasLen < len ? hasLen : len; if (copyLength <= 0) { return []; } - var result = new Array(copyLength); - for(var i = 0; i < copyLength; ++i){ + let result = new Array(copyLength); + for(let i = 0; i < copyLength; ++i){ result[i] = a[ofs + i | 0]; } return result; } function sliceToEnd(a, offset) { - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var len = lena > ofs ? lena - ofs | 0 : 0; - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let len = lena > ofs ? lena - ofs | 0 : 0; + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = a[ofs + i | 0]; } return result; @@ -243,51 +243,51 @@ function sliceToEnd(a, offset) { function fill(a, offset, len, v) { if (len <= 0) { - return ; + return; } - var lena = a.length; - var ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; - var hasLen = lena - ofs | 0; - var fillLength = hasLen < len ? hasLen : len; + let lena = a.length; + let ofs = offset < 0 ? Caml.int_max(lena + offset | 0, 0) : offset; + let hasLen = lena - ofs | 0; + let fillLength = hasLen < len ? hasLen : len; if (fillLength <= 0) { - return ; + return; } - for(var i = ofs ,i_finish = ofs + fillLength | 0; i < i_finish; ++i){ + for(let i = ofs ,i_finish = ofs + fillLength | 0; i < i_finish; ++i){ a[i] = v; } } function blitUnsafe(a1, srcofs1, a2, srcofs2, blitLength) { if (srcofs2 <= srcofs1) { - for(var j = 0; j < blitLength; ++j){ + for(let j = 0; j < blitLength; ++j){ a2[j + srcofs2 | 0] = a1[j + srcofs1 | 0]; } - return ; + return; } - for(var j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + srcofs2 | 0] = a1[j$1 + srcofs1 | 0]; } } function blit(a1, ofs1, a2, ofs2, len) { - var lena1 = a1.length; - var lena2 = a2.length; - var srcofs1 = ofs1 < 0 ? Caml.int_max(lena1 + ofs1 | 0, 0) : ofs1; - var srcofs2 = ofs2 < 0 ? Caml.int_max(lena2 + ofs2 | 0, 0) : ofs2; - var blitLength = Caml.int_min(len, Caml.int_min(lena1 - srcofs1 | 0, lena2 - srcofs2 | 0)); + let lena1 = a1.length; + let lena2 = a2.length; + let srcofs1 = ofs1 < 0 ? Caml.int_max(lena1 + ofs1 | 0, 0) : ofs1; + let srcofs2 = ofs2 < 0 ? Caml.int_max(lena2 + ofs2 | 0, 0) : ofs2; + let blitLength = Caml.int_min(len, Caml.int_min(lena1 - srcofs1 | 0, lena2 - srcofs2 | 0)); if (srcofs2 <= srcofs1) { - for(var j = 0; j < blitLength; ++j){ + for(let j = 0; j < blitLength; ++j){ a2[j + srcofs2 | 0] = a1[j + srcofs1 | 0]; } - return ; + return; } - for(var j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = blitLength - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + srcofs2 | 0] = a1[j$1 + srcofs1 | 0]; } } function forEachU(a, f) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ f(a[i]); } } @@ -297,9 +297,9 @@ function forEach(a, f) { } function mapU(a, f) { - var l = a.length; - var r = new Array(l); - for(var i = 0; i < l; ++i){ + let l = a.length; + let r = new Array(l); + for(let i = 0; i < l; ++i){ r[i] = f(a[i]); } return r; @@ -318,11 +318,11 @@ function flatMap(a, f) { } function getByU(a, p) { - var l = a.length; - var i = 0; - var r; + let l = a.length; + let i = 0; + let r; while(r === undefined && i < l) { - var v = a[i]; + let v = a[i]; if (p(v)) { r = Caml_option.some(v); } @@ -336,11 +336,11 @@ function getBy(a, p) { } function getIndexByU(a, p) { - var l = a.length; - var i = 0; - var r; + let l = a.length; + let i = 0; + let r; while(r === undefined && i < l) { - var v = a[i]; + let v = a[i]; if (p(v)) { r = i; } @@ -354,11 +354,11 @@ function getIndexBy(a, p) { } function keepU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; if (f(v)) { r[j] = v; j = j + 1 | 0; @@ -374,11 +374,11 @@ function keep(a, f) { } function keepWithIndexU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; if (f(v, i)) { r[j] = v; j = j + 1 | 0; @@ -394,12 +394,12 @@ function keepWithIndex(a, f) { } function keepMapU(a, f) { - var l = a.length; - var r = new Array(l); - var j = 0; - for(var i = 0; i < l; ++i){ - var v = a[i]; - var v$1 = f(v); + let l = a.length; + let r = new Array(l); + let j = 0; + for(let i = 0; i < l; ++i){ + let v = a[i]; + let v$1 = f(v); if (v$1 !== undefined) { r[j] = Caml_option.valFromOption(v$1); j = j + 1 | 0; @@ -415,7 +415,7 @@ function keepMap(a, f) { } function forEachWithIndexU(a, f) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ f(i, a[i]); } } @@ -425,9 +425,9 @@ function forEachWithIndex(a, f) { } function mapWithIndexU(a, f) { - var l = a.length; - var r = new Array(l); - for(var i = 0; i < l; ++i){ + let l = a.length; + let r = new Array(l); + for(let i = 0; i < l; ++i){ r[i] = f(i, a[i]); } return r; @@ -438,8 +438,8 @@ function mapWithIndex(a, f) { } function reduceU(a, x, f) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f(r, a[i]); } return r; @@ -450,8 +450,8 @@ function reduce(a, x, f) { } function reduceReverseU(a, x, f) { - var r = x; - for(var i = a.length - 1 | 0; i >= 0; --i){ + let r = x; + for(let i = a.length - 1 | 0; i >= 0; --i){ r = f(r, a[i]); } return r; @@ -462,9 +462,9 @@ function reduceReverse(a, x, f) { } function reduceReverse2U(a, b, x, f) { - var r = x; - var len = Caml.int_min(a.length, b.length); - for(var i = len - 1 | 0; i >= 0; --i){ + let r = x; + let len = Caml.int_min(a.length, b.length); + for(let i = len - 1 | 0; i >= 0; --i){ r = f(r, a[i], b[i]); } return r; @@ -475,8 +475,8 @@ function reduceReverse2(a, b, x, f) { } function reduceWithIndexU(a, x, f) { - var r = x; - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + let r = x; + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ r = f(r, a[i], i); } return r; @@ -487,10 +487,10 @@ function reduceWithIndex(a, x, f) { } function everyU(arr, b) { - var len = arr.length; - var _i = 0; + let len = arr.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { return true; } @@ -498,7 +498,7 @@ function everyU(arr, b) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -507,10 +507,10 @@ function every(arr, f) { } function someU(arr, b) { - var len = arr.length; - var _i = 0; + let len = arr.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { return false; } @@ -518,7 +518,7 @@ function someU(arr, b) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -528,7 +528,7 @@ function some(arr, f) { function everyAux2(arr1, arr2, _i, b, len) { while(true) { - var i = _i; + let i = _i; if (i === len) { return true; } @@ -536,7 +536,7 @@ function everyAux2(arr1, arr2, _i, b, len) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -549,10 +549,10 @@ function every2(a, b, p) { } function some2U(a, b, p) { - var _i = 0; - var len = Caml.int_min(a.length, b.length); + let _i = 0; + let len = Caml.int_min(a.length, b.length); while(true) { - var i = _i; + let i = _i; if (i === len) { return false; } @@ -560,7 +560,7 @@ function some2U(a, b, p) { return true; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -569,8 +569,8 @@ function some2(a, b, p) { } function eqU(a, b, p) { - var lena = a.length; - var lenb = b.length; + let lena = a.length; + let lenb = b.length; if (lena === lenb) { return everyAux2(a, b, 0, p, lena); } else { @@ -583,25 +583,25 @@ function eq(a, b, p) { } function cmpU(a, b, p) { - var lena = a.length; - var lenb = b.length; + let lena = a.length; + let lenb = b.length; if (lena > lenb) { return 1; } else if (lena < lenb) { return -1; } else { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === lena) { return 0; } - var c = p(a[i], b[i]); + let c = p(a[i], b[i]); if (c !== 0) { return c; } _i = i + 1 | 0; - continue ; + continue; }; } } @@ -611,13 +611,13 @@ function cmp(a, b, p) { } function partitionU(a, f) { - var l = a.length; - var i = 0; - var j = 0; - var a1 = new Array(l); - var a2 = new Array(l); - for(var ii = 0; ii < l; ++ii){ - var v = a[ii]; + let l = a.length; + let i = 0; + let j = 0; + let a1 = new Array(l); + let a2 = new Array(l); + for(let ii = 0; ii < l; ++ii){ + let v = a[ii]; if (f(v)) { a1[i] = v; i = i + 1 | 0; @@ -629,9 +629,9 @@ function partitionU(a, f) { a1.length = i; a2.length = j; return [ - a1, - a2 - ]; + a1, + a2 + ]; } function partition(a, f) { @@ -639,37 +639,37 @@ function partition(a, f) { } function unzip(a) { - var l = a.length; - var a1 = new Array(l); - var a2 = new Array(l); - for(var i = 0; i < l; ++i){ - var match = a[i]; + let l = a.length; + let a1 = new Array(l); + let a2 = new Array(l); + for(let i = 0; i < l; ++i){ + let match = a[i]; a1[i] = match[0]; a2[i] = match[1]; } return [ - a1, - a2 - ]; + a1, + a2 + ]; } function joinWithU(a, sep, toString) { - var l = a.length; + let l = a.length; if (l === 0) { return ""; } - var lastIndex = l - 1 | 0; - var _i = 0; - var _res = ""; + let lastIndex = l - 1 | 0; + let _i = 0; + let _res = ""; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i === lastIndex) { return res + toString(a[i]); } _res = res + (toString(a[i]) + sep); _i = i + 1 | 0; - continue ; + continue; }; } @@ -678,8 +678,8 @@ function joinWith(a, sep, toString) { } function initU(n, f) { - var v = new Array(n); - for(var i = 0; i < n; ++i){ + let v = new Array(n); + for(let i = 0; i < n; ++i){ v[i] = f(i); } return v; diff --git a/lib/js/belt_List.js b/lib/js/belt_List.js index 24f21f3231..f7dfff3494 100644 --- a/lib/js/belt_List.js +++ b/lib/js/belt_List.js @@ -1,9 +1,9 @@ 'use strict'; -var Curry = require("./curry.js"); -var Belt_Array = require("./belt_Array.js"); -var Caml_option = require("./caml_option.js"); -var Belt_SortArray = require("./belt_SortArray.js"); +let Curry = require("./curry.js"); +let Belt_Array = require("./belt_Array.js"); +let Caml_option = require("./caml_option.js"); +let Belt_SortArray = require("./belt_SortArray.js"); function head(x) { if (x) { @@ -17,10 +17,10 @@ function headExn(x) { return x.hd; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function tail(x) { @@ -35,37 +35,37 @@ function tailExn(x) { return x.tl; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function add(xs, x) { return { - hd: x, - tl: xs - }; + hd: x, + tl: xs + }; } function get(x, n) { if (n < 0) { - return ; + return; } else { - var _x = x; - var _n = n; + let _x = x; + let _n = n; while(true) { - var n$1 = _n; - var x$1 = _x; + let n$1 = _n; + let x$1 = _x; if (!x$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(x$1.hd); } _n = n$1 - 1 | 0; _x = x$1.tl; - continue ; + continue; }; } } @@ -73,43 +73,43 @@ function get(x, n) { function getExn(x, n) { if (n < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var _x = x; - var _n = n; + let _x = x; + let _n = n; while(true) { - var n$1 = _n; - var x$1 = _x; + let n$1 = _n; + let x$1 = _x; if (x$1) { if (n$1 === 0) { return x$1.hd; } _n = n$1 - 1 | 0; _x = x$1.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function partitionAux(p, _cell, _precX, _precY) { while(true) { - var precY = _precY; - var precX = _precX; - var cell = _cell; + let precY = _precY; + let precX = _precX; + let cell = _cell; if (!cell) { - return ; + return; } - var t = cell.tl; - var h = cell.hd; - var next = { + let t = cell.tl; + let h = cell.hd; + let next = { hd: h, tl: /* [] */0 }; @@ -117,29 +117,29 @@ function partitionAux(p, _cell, _precX, _precY) { precX.tl = next; _precX = next; _cell = t; - continue ; + continue; } precY.tl = next; _precY = next; _cell = t; - continue ; + continue; }; } function splitAux(_cell, _precX, _precY) { while(true) { - var precY = _precY; - var precX = _precX; - var cell = _cell; + let precY = _precY; + let precX = _precX; + let cell = _cell; if (!cell) { - return ; + return; } - var match = cell.hd; - var nextA = { + let match = cell.hd; + let nextA = { hd: match[0], tl: /* [] */0 }; - var nextB = { + let nextB = { hd: match[1], tl: /* [] */0 }; @@ -148,64 +148,64 @@ function splitAux(_cell, _precX, _precY) { _precY = nextB; _precX = nextA; _cell = cell.tl; - continue ; + continue; }; } function copyAuxCont(_cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return prec; } - var next = { + let next = { hd: cellX.hd, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWitFilter(f, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h)) { - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; } _cellX = t; - continue ; + continue; }; } function copyAuxWithFilterIndex(f, _cellX, _prec, _i) { while(true) { - var i = _i; - var prec = _prec; - var cellX = _cellX; + let i = _i; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h, i)) { - var next = { + let next = { hd: h, tl: /* [] */0 }; @@ -213,71 +213,71 @@ function copyAuxWithFilterIndex(f, _cellX, _prec, _i) { _i = i + 1 | 0; _prec = next; _cellX = t; - continue ; + continue; } _i = i + 1 | 0; _cellX = t; - continue ; + continue; }; } function copyAuxWitFilterMap(f, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var t = cellX.tl; - var h = f(cellX.hd); + let t = cellX.tl; + let h = f(cellX.hd); if (h !== undefined) { - var next = { + let next = { hd: Caml_option.valFromOption(h), tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; } _cellX = t; - continue ; + continue; }; } function removeAssocAuxWithMap(_cellX, x, _prec, f) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return false; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (f(h[0], x)) { prec.tl = t; return true; } - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; }; } function setAssocAuxWithMap(_cellX, x, k, _prec, eq) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { return false; } - var t = cellX.tl; - var h = cellX.hd; + let t = cellX.tl; + let h = cellX.hd; if (eq(h[0], x)) { prec.tl = { hd: [ @@ -288,47 +288,47 @@ function setAssocAuxWithMap(_cellX, x, k, _prec, eq) { }; return true; } - var next = { + let next = { hd: h, tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = t; - continue ; + continue; }; } function copyAuxWithMap(_cellX, _prec, f) { while(true) { - var prec = _prec; - var cellX = _cellX; + let prec = _prec; + let cellX = _cellX; if (!cellX) { - return ; + return; } - var next = { + let next = { hd: f(cellX.hd), tl: /* [] */0 }; prec.tl = next; _prec = next; _cellX = cellX.tl; - continue ; + continue; }; } function zipAux(_cellX, _cellY, _prec) { while(true) { - var prec = _prec; - var cellY = _cellY; - var cellX = _cellX; + let prec = _prec; + let cellY = _cellY; + let cellX = _cellX; if (!cellX) { - return ; + return; } if (!cellY) { - return ; + return; } - var next = { + let next = { hd: [ cellX.hd, cellY.hd @@ -339,22 +339,22 @@ function zipAux(_cellX, _cellY, _prec) { _prec = next; _cellY = cellY.tl; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWithMap2(f, _cellX, _cellY, _prec) { while(true) { - var prec = _prec; - var cellY = _cellY; - var cellX = _cellX; + let prec = _prec; + let cellY = _cellY; + let cellX = _cellX; if (!cellX) { - return ; + return; } if (!cellY) { - return ; + return; } - var next = { + let next = { hd: f(cellX.hd, cellY.hd), tl: /* [] */0 }; @@ -362,19 +362,19 @@ function copyAuxWithMap2(f, _cellX, _cellY, _prec) { _prec = next; _cellY = cellY.tl; _cellX = cellX.tl; - continue ; + continue; }; } function copyAuxWithMapI(f, _i, _cellX, _prec) { while(true) { - var prec = _prec; - var cellX = _cellX; - var i = _i; + let prec = _prec; + let cellX = _cellX; + let i = _i; if (!cellX) { - return ; + return; } - var next = { + let next = { hd: f(i, cellX.hd), tl: /* [] */0 }; @@ -382,22 +382,22 @@ function copyAuxWithMapI(f, _i, _cellX, _prec) { _prec = next; _cellX = cellX.tl; _i = i + 1 | 0; - continue ; + continue; }; } function takeAux(_n, _cell, _prec) { while(true) { - var prec = _prec; - var cell = _cell; - var n = _n; + let prec = _prec; + let cell = _cell; + let n = _n; if (n === 0) { return true; } if (!cell) { return false; } - var cell$1 = { + let cell$1 = { hd: cell.hd, tl: /* [] */0 }; @@ -405,22 +405,22 @@ function takeAux(_n, _cell, _prec) { _prec = cell$1; _cell = cell.tl; _n = n - 1 | 0; - continue ; + continue; }; } function splitAtAux(_n, _cell, _prec) { while(true) { - var prec = _prec; - var cell = _cell; - var n = _n; + let prec = _prec; + let cell = _cell; + let n = _n; if (n === 0) { return cell; } if (!cell) { - return ; + return; } - var cell$1 = { + let cell$1 = { hd: cell.hd, tl: /* [] */0 }; @@ -428,25 +428,25 @@ function splitAtAux(_n, _cell, _prec) { _prec = cell$1; _cell = cell.tl; _n = n - 1 | 0; - continue ; + continue; }; } function take(lst, n) { if (n < 0) { - return ; + return; } if (n === 0) { return /* [] */0; } if (!lst) { - return ; + return; } - var cell = { + let cell = { hd: lst.hd, tl: /* [] */0 }; - var has = takeAux(n - 1 | 0, lst.tl, cell); + let has = takeAux(n - 1 | 0, lst.tl, cell); if (has) { return cell; } @@ -455,49 +455,49 @@ function take(lst, n) { function drop(lst, n) { if (n < 0) { - return ; + return; } else { - var _l = lst; - var _n = n; + let _l = lst; + let _n = n; while(true) { - var n$1 = _n; - var l = _l; + let n$1 = _n; + let l = _l; if (n$1 === 0) { return l; } if (!l) { - return ; + return; } _n = n$1 - 1 | 0; _l = l.tl; - continue ; + continue; }; } } function splitAt(lst, n) { if (n < 0) { - return ; + return; } if (n === 0) { return [ - /* [] */0, - lst - ]; + /* [] */0, + lst + ]; } if (!lst) { - return ; + return; } - var cell = { + let cell = { hd: lst.hd, tl: /* [] */0 }; - var rest = splitAtAux(n - 1 | 0, lst.tl, cell); + let rest = splitAtAux(n - 1 | 0, lst.tl, cell); if (rest !== undefined) { return [ - cell, - rest - ]; + cell, + rest + ]; } } @@ -506,7 +506,7 @@ function concat(xs, ys) { if (!xs) { return ys; } - var cell = { + let cell = { hd: xs.hd, tl: /* [] */0 }; @@ -518,7 +518,7 @@ function mapU(xs, f) { if (!xs) { return /* [] */0; } - var cell = { + let cell = { hd: f(xs.hd), tl: /* [] */0 }; @@ -537,7 +537,7 @@ function zipByU(l1, l2, f) { if (!l2) { return /* [] */0; } - var cell = { + let cell = { hd: f(l1.hd, l2.hd), tl: /* [] */0 }; @@ -553,7 +553,7 @@ function mapWithIndexU(xs, f) { if (!xs) { return /* [] */0; } - var cell = { + let cell = { hd: f(0, xs.hd), tl: /* [] */0 }; @@ -569,14 +569,14 @@ function makeByU(n, f) { if (n <= 0) { return /* [] */0; } - var headX = { + let headX = { hd: f(0), tl: /* [] */0 }; - var cur = headX; - var i = 1; + let cur = headX; + let i = 1; while(i < n) { - var v = { + let v = { hd: f(i), tl: /* [] */0 }; @@ -595,14 +595,14 @@ function make(n, v) { if (n <= 0) { return /* [] */0; } - var headX = { + let headX = { hd: v, tl: /* [] */0 }; - var cur = headX; - var i = 1; + let cur = headX; + let i = 1; while(i < n) { - var v$1 = { + let v$1 = { hd: v, tl: /* [] */0 }; @@ -614,40 +614,40 @@ function make(n, v) { } function length(xs) { - var _x = xs; - var _acc = 0; + let _x = xs; + let _acc = 0; while(true) { - var acc = _acc; - var x = _x; + let acc = _acc; + let x = _x; if (!x) { return acc; } _acc = acc + 1 | 0; _x = x.tl; - continue ; + continue; }; } function fillAux(arr, _i, _x) { while(true) { - var x = _x; - var i = _i; + let x = _x; + let i = _i; if (!x) { - return ; + return; } arr[i] = x.hd; _x = x.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fromArray(a) { - var _i = a.length - 1 | 0; - var _res = /* [] */0; + let _i = a.length - 1 | 0; + let _res = /* [] */0; while(true) { - var res = _res; - var i = _i; + let res = _res; + let i = _i; if (i < 0) { return res; } @@ -656,27 +656,27 @@ function fromArray(a) { tl: res }; _i = i - 1 | 0; - continue ; + continue; }; } function toArray(x) { - var len = length(x); - var arr = new Array(len); + let len = length(x); + let arr = new Array(len); fillAux(arr, 0, x); return arr; } function shuffle(xs) { - var v = toArray(xs); + let v = toArray(xs); Belt_Array.shuffleInPlace(v); return fromArray(v); } function reverseConcat(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -685,7 +685,7 @@ function reverseConcat(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -695,27 +695,27 @@ function reverse(l) { function flattenAux(_prec, _xs) { while(true) { - var xs = _xs; - var prec = _prec; + let xs = _xs; + let prec = _prec; if (xs) { _xs = xs.tl; _prec = copyAuxCont(xs.hd, prec); - continue ; + continue; } prec.tl = /* [] */0; - return ; + return; }; } function flatten(_xs) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var match = xs.hd; + let match = xs.hd; if (match) { - var cell = { + let cell = { hd: match.hd, tl: /* [] */0 }; @@ -723,32 +723,32 @@ function flatten(_xs) { return cell; } _xs = xs.tl; - continue ; + continue; }; } function concatMany(xs) { - var len = xs.length; + let len = xs.length; if (len === 1) { return xs[0]; } if (len === 0) { return /* [] */0; } - var len$1 = xs.length; - var v = xs[len$1 - 1 | 0]; - for(var i = len$1 - 2 | 0; i >= 0; --i){ + let len$1 = xs.length; + let v = xs[len$1 - 1 | 0]; + for(let i = len$1 - 2 | 0; i >= 0; --i){ v = concat(xs[i], v); } return v; } function mapReverseU(l, f) { - var _accu = /* [] */0; - var _xs = l; + let _accu = /* [] */0; + let _xs = l; while(true) { - var xs = _xs; - var accu = _accu; + let xs = _xs; + let accu = _accu; if (!xs) { return accu; } @@ -757,7 +757,7 @@ function mapReverseU(l, f) { hd: f(xs.hd), tl: accu }; - continue ; + continue; }; } @@ -767,13 +767,13 @@ function mapReverse(l, f) { function forEachU(_xs, f) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } f(xs.hd); _xs = xs.tl; - continue ; + continue; }; } @@ -782,18 +782,18 @@ function forEach(xs, f) { } function forEachWithIndexU(l, f) { - var _xs = l; - var _i = 0; + let _xs = l; + let _i = 0; while(true) { - var i = _i; - var xs = _xs; + let i = _i; + let xs = _xs; if (!xs) { - return ; + return; } f(i, xs.hd); _i = i + 1 | 0; _xs = xs.tl; - continue ; + continue; }; } @@ -803,14 +803,14 @@ function forEachWithIndex(l, f) { function reduceU(_l, _accu, f) { while(true) { - var accu = _accu; - var l = _l; + let accu = _accu; + let l = _l; if (!l) { return accu; } _accu = f(accu, l.hd); _l = l.tl; - continue ; + continue; }; } @@ -827,7 +827,7 @@ function reduceReverseUnsafeU(l, accu, f) { } function reduceReverseU(l, acc, f) { - var len = length(l); + let len = length(l); if (len < 1000) { return reduceReverseUnsafeU(l, acc, f); } else { @@ -840,20 +840,20 @@ function reduceReverse(l, accu, f) { } function reduceWithIndexU(l, acc, f) { - var _l = l; - var _acc = acc; - var _i = 0; + let _l = l; + let _acc = acc; + let _i = 0; while(true) { - var i = _i; - var acc$1 = _acc; - var l$1 = _l; + let i = _i; + let acc$1 = _acc; + let l$1 = _l; if (!l$1) { return acc$1; } _i = i + 1 | 0; _acc = f(acc$1, l$1.hd, i); _l = l$1.tl; - continue ; + continue; }; } @@ -862,13 +862,13 @@ function reduceWithIndex(l, acc, f) { } function mapReverse2U(l1, l2, f) { - var _l1 = l1; - var _l2 = l2; - var _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1$1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; if (!l1$1) { return accu; } @@ -881,7 +881,7 @@ function mapReverse2U(l1, l2, f) { }; _l2 = l2$1.tl; _l1 = l1$1.tl; - continue ; + continue; }; } @@ -891,18 +891,18 @@ function mapReverse2(l1, l2, f) { function forEach2U(_l1, _l2, f) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { - return ; + return; } if (!l2) { - return ; + return; } f(l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -912,9 +912,9 @@ function forEach2(l1, l2, f) { function reduce2U(_l1, _l2, _accu, f) { while(true) { - var accu = _accu; - var l2 = _l2; - var l1 = _l1; + let accu = _accu; + let l2 = _l2; + let l1 = _l1; if (!l1) { return accu; } @@ -924,7 +924,7 @@ function reduce2U(_l1, _l2, _accu, f) { _accu = f(accu, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -941,7 +941,7 @@ function reduceReverse2UnsafeU(l1, l2, accu, f) { } function reduceReverse2U(l1, l2, acc, f) { - var len = length(l1); + let len = length(l1); if (len < 1000) { return reduceReverse2UnsafeU(l1, l2, acc, f); } else { @@ -955,7 +955,7 @@ function reduceReverse2(l1, l2, acc, f) { function everyU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return true; } @@ -963,7 +963,7 @@ function everyU(_xs, p) { return false; } _xs = xs.tl; - continue ; + continue; }; } @@ -973,7 +973,7 @@ function every(xs, p) { function someU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -981,7 +981,7 @@ function someU(_xs, p) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -991,8 +991,8 @@ function some(xs, p) { function every2U(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return true; } @@ -1004,7 +1004,7 @@ function every2U(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1014,8 +1014,8 @@ function every2(l1, l2, p) { function cmpByLength(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1028,14 +1028,14 @@ function cmpByLength(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function cmpU(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1046,13 +1046,13 @@ function cmpU(_l1, _l2, p) { if (!l2) { return 1; } - var c = p(l1.hd, l2.hd); + let c = p(l1.hd, l2.hd); if (c !== 0) { return c; } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1062,8 +1062,8 @@ function cmp(l1, l2, f) { function eqU(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return false; @@ -1079,7 +1079,7 @@ function eqU(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1089,8 +1089,8 @@ function eq(l1, l2, f) { function some2U(_l1, _l2, p) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return false; } @@ -1102,7 +1102,7 @@ function some2U(_l1, _l2, p) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } @@ -1112,7 +1112,7 @@ function some2(l1, l2, p) { function hasU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -1120,7 +1120,7 @@ function hasU(_xs, x, eq) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -1130,16 +1130,16 @@ function has(xs, x, eq) { function getAssocU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } - var match = xs.hd; + let match = xs.hd; if (eq(match[0], x)) { return Caml_option.some(match[1]); } _xs = xs.tl; - continue ; + continue; }; } @@ -1149,7 +1149,7 @@ function getAssoc(xs, x, eq) { function hasAssocU(_xs, x, eq) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return false; } @@ -1157,7 +1157,7 @@ function hasAssocU(_xs, x, eq) { return true; } _xs = xs.tl; - continue ; + continue; }; } @@ -1169,16 +1169,16 @@ function removeAssocU(xs, x, eq) { if (!xs) { return /* [] */0; } - var l = xs.tl; - var pair = xs.hd; + let l = xs.tl; + let pair = xs.hd; if (eq(pair[0], x)) { return l; } - var cell = { + let cell = { hd: pair, tl: /* [] */0 }; - var removed = removeAssocAuxWithMap(l, x, cell, eq); + let removed = removeAssocAuxWithMap(l, x, cell, eq); if (removed) { return cell; } else { @@ -1193,39 +1193,39 @@ function removeAssoc(xs, x, eq) { function setAssocU(xs, x, k, eq) { if (!xs) { return { - hd: [ - x, - k - ], - tl: /* [] */0 - }; + hd: [ + x, + k + ], + tl: /* [] */0 + }; } - var l = xs.tl; - var pair = xs.hd; + let l = xs.tl; + let pair = xs.hd; if (eq(pair[0], x)) { return { - hd: [ - x, - k - ], - tl: l - }; + hd: [ + x, + k + ], + tl: l + }; } - var cell = { + let cell = { hd: pair, tl: /* [] */0 }; - var replaced = setAssocAuxWithMap(l, x, k, cell, eq); + let replaced = setAssocAuxWithMap(l, x, k, cell, eq); if (replaced) { return cell; } else { return { - hd: [ - x, - k - ], - tl: xs - }; + hd: [ + x, + k + ], + tl: xs + }; } } @@ -1234,7 +1234,7 @@ function setAssoc(xs, x, k, eq) { } function sortU(xs, cmp) { - var arr = toArray(xs); + let arr = toArray(xs); Belt_SortArray.stableSortInPlaceByU(arr, cmp); return fromArray(arr); } @@ -1245,16 +1245,16 @@ function sort(xs, cmp) { function getByU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { - return ; + return; } - var x = xs.hd; + let x = xs.hd; if (p(x)) { return Caml_option.some(x); } _xs = xs.tl; - continue ; + continue; }; } @@ -1264,14 +1264,14 @@ function getBy(xs, p) { function keepU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var t = xs.tl; - var h = xs.hd; + let t = xs.tl; + let h = xs.hd; if (p(h)) { - var cell = { + let cell = { hd: h, tl: /* [] */0 }; @@ -1279,7 +1279,7 @@ function keepU(_xs, p) { return cell; } _xs = t; - continue ; + continue; }; } @@ -1288,18 +1288,18 @@ function keep(xs, p) { } function keepWithIndexU(xs, p) { - var _xs = xs; - var _i = 0; + let _xs = xs; + let _i = 0; while(true) { - var i = _i; - var xs$1 = _xs; + let i = _i; + let xs$1 = _xs; if (!xs$1) { return /* [] */0; } - var t = xs$1.tl; - var h = xs$1.hd; + let t = xs$1.tl; + let h = xs$1.hd; if (p(h, i)) { - var cell = { + let cell = { hd: h, tl: /* [] */0 }; @@ -1308,7 +1308,7 @@ function keepWithIndexU(xs, p) { } _i = i + 1 | 0; _xs = t; - continue ; + continue; }; } @@ -1318,14 +1318,14 @@ function keepWithIndex(xs, p) { function keepMapU(_xs, p) { while(true) { - var xs = _xs; + let xs = _xs; if (!xs) { return /* [] */0; } - var t = xs.tl; - var h = p(xs.hd); + let t = xs.tl; + let h = p(xs.hd); if (h !== undefined) { - var cell = { + let cell = { hd: Caml_option.valFromOption(h), tl: /* [] */0 }; @@ -1333,7 +1333,7 @@ function keepMapU(_xs, p) { return cell; } _xs = t; - continue ; + continue; }; } @@ -1344,31 +1344,31 @@ function keepMap(xs, p) { function partitionU(l, p) { if (!l) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var h = l.hd; - var nextX = { + let h = l.hd; + let nextX = { hd: h, tl: /* [] */0 }; - var nextY = { + let nextY = { hd: h, tl: /* [] */0 }; - var b = p(h); + let b = p(h); partitionAux(p, l.tl, nextX, nextY); if (b) { return [ - nextX, - nextY.tl - ]; + nextX, + nextY.tl + ]; } else { return [ - nextX.tl, - nextY - ]; + nextX.tl, + nextY + ]; } } @@ -1379,24 +1379,24 @@ function partition(l, p) { function unzip(xs) { if (!xs) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = xs.hd; - var cellX = { + let match = xs.hd; + let cellX = { hd: match[0], tl: /* [] */0 }; - var cellY = { + let cellY = { hd: match[1], tl: /* [] */0 }; splitAux(xs.tl, cellX, cellY); return [ - cellX, - cellY - ]; + cellX, + cellY + ]; } function zip(l1, l2) { @@ -1406,7 +1406,7 @@ function zip(l1, l2) { if (!l2) { return /* [] */0; } - var cell = { + let cell = { hd: [ l1.hd, l2.hd @@ -1417,11 +1417,11 @@ function zip(l1, l2) { return cell; } -var size = length; +let size = length; -var filter = keep; +let filter = keep; -var filterWithIndex = keepWithIndex; +let filterWithIndex = keepWithIndex; exports.length = length; exports.size = size; diff --git a/lib/js/belt_MutableQueue.js b/lib/js/belt_MutableQueue.js index 20d256d8b5..8765924aa2 100644 --- a/lib/js/belt_MutableQueue.js +++ b/lib/js/belt_MutableQueue.js @@ -1,14 +1,14 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function make(param) { return { - length: 0, - first: undefined, - last: undefined - }; + length: 0, + first: undefined, + last: undefined + }; } function clear(q) { @@ -18,11 +18,11 @@ function clear(q) { } function add(q, x) { - var cell = { + let cell = { content: x, next: undefined }; - var last = q.last; + let last = q.last; if (last !== undefined) { q.length = q.length + 1 | 0; last.next = cell; @@ -35,7 +35,7 @@ function add(q, x) { } function peek(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return Caml_option.some(v.content); } @@ -43,7 +43,7 @@ function peek(q) { } function peekUndefined(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return v.content; } @@ -51,23 +51,23 @@ function peekUndefined(q) { } function peekExn(q) { - var v = q.first; + let v = q.first; if (v !== undefined) { return v.content; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function pop(q) { - var x = q.first; + let x = q.first; if (x === undefined) { - return ; + return; } - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return Caml_option.some(x.content); @@ -79,9 +79,9 @@ function pop(q) { } function popExn(q) { - var x = q.first; + let x = q.first; if (x !== undefined) { - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return x.content; @@ -92,18 +92,18 @@ function popExn(q) { } } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function popUndefined(q) { - var x = q.first; + let x = q.first; if (x === undefined) { - return ; + return; } - var next = x.next; + let next = x.next; if (next === undefined) { clear(q); return x.content; @@ -115,19 +115,19 @@ function popUndefined(q) { } function copy(q) { - var qRes = { + let qRes = { length: q.length, first: undefined, last: undefined }; - var _prev; - var _cell = q.first; + let _prev; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (cell !== undefined) { - var content = cell.content; - var res = { + let content = cell.content; + let res = { content: content, next: undefined }; @@ -138,7 +138,7 @@ function copy(q) { } _cell = cell.next; _prev = res; - continue ; + continue; } qRes.last = prev; return qRes; @@ -146,19 +146,19 @@ function copy(q) { } function mapU(q, f) { - var qRes = { + let qRes = { length: q.length, first: undefined, last: undefined }; - var _prev; - var _cell = q.first; + let _prev; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (cell !== undefined) { - var content = f(cell.content); - var res = { + let content = f(cell.content); + let res = { content: content, next: undefined }; @@ -169,7 +169,7 @@ function mapU(q, f) { } _cell = cell.next; _prev = res; - continue ; + continue; } qRes.last = prev; return qRes; @@ -189,15 +189,15 @@ function size(q) { } function forEachU(q, f) { - var _cell = q.first; + let _cell = q.first; while(true) { - var cell = _cell; + let cell = _cell; if (cell === undefined) { - return ; + return; } f(cell.content); _cell = cell.next; - continue ; + continue; }; } @@ -206,18 +206,18 @@ function forEach(q, f) { } function reduceU(q, accu, f) { - var _accu = accu; - var _cell = q.first; + let _accu = accu; + let _cell = q.first; while(true) { - var cell = _cell; - var accu$1 = _accu; + let cell = _cell; + let accu$1 = _accu; if (cell === undefined) { return accu$1; } - var accu$2 = f(accu$1, cell.content); + let accu$2 = f(accu$1, cell.content); _cell = cell.next; _accu = accu$2; - continue ; + continue; }; } @@ -227,9 +227,9 @@ function reduce(q, accu, f) { function transfer(q1, q2) { if (q1.length <= 0) { - return ; + return; } - var l = q2.last; + let l = q2.last; if (l !== undefined) { q2.length = q2.length + q1.length | 0; l.next = q1.first; @@ -245,31 +245,31 @@ function transfer(q1, q2) { function fillAux(_i, arr, _cell) { while(true) { - var cell = _cell; - var i = _i; + let cell = _cell; + let i = _i; if (cell === undefined) { - return ; + return; } arr[i] = cell.content; _cell = cell.next; _i = i + 1 | 0; - continue ; + continue; }; } function toArray(x) { - var v = new Array(x.length); + let v = new Array(x.length); fillAux(0, v, x.first); return v; } function fromArray(arr) { - var q = { + let q = { length: 0, first: undefined, last: undefined }; - for(var i = 0 ,i_finish = arr.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = arr.length; i < i_finish; ++i){ add(q, arr[i]); } return q; diff --git a/lib/js/belt_Option.js b/lib/js/belt_Option.js index 2c4514bb3e..35bc09a45c 100644 --- a/lib/js/belt_Option.js +++ b/lib/js/belt_Option.js @@ -1,7 +1,7 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function keepU(opt, p) { if (opt !== undefined && p(Caml_option.valFromOption(opt))) { @@ -30,10 +30,10 @@ function getExn(x) { return Caml_option.valFromOption(x); } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { diff --git a/lib/js/belt_Result.js b/lib/js/belt_Result.js index a4f7a75b6d..b2c8866775 100644 --- a/lib/js/belt_Result.js +++ b/lib/js/belt_Result.js @@ -1,16 +1,16 @@ 'use strict'; -var Curry = require("./curry.js"); +let Curry = require("./curry.js"); function getExn(x) { if (x.TAG === "Ok") { return x._0; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } function mapWithDefaultU(opt, $$default, f) { @@ -28,14 +28,14 @@ function mapWithDefault(opt, $$default, f) { function mapU(opt, f) { if (opt.TAG === "Ok") { return { - TAG: "Ok", - _0: f(opt._0) - }; + TAG: "Ok", + _0: f(opt._0) + }; } else { return { - TAG: "Error", - _0: opt._0 - }; + TAG: "Error", + _0: opt._0 + }; } } @@ -48,9 +48,9 @@ function flatMapU(opt, f) { return f(opt._0); } else { return { - TAG: "Error", - _0: opt._0 - }; + TAG: "Error", + _0: opt._0 + }; } } diff --git a/lib/js/belt_internalAVLset.js b/lib/js/belt_internalAVLset.js index 20b3232346..3ae7223b02 100644 --- a/lib/js/belt_internalAVLset.js +++ b/lib/js/belt_internalAVLset.js @@ -1,42 +1,42 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); -var Belt_SortArray = require("./belt_SortArray.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); +let Belt_SortArray = require("./belt_SortArray.js"); function copy(n) { if (n !== undefined) { return { - v: n.v, - h: n.h, - l: copy(n.l), - r: copy(n.r) - }; + v: n.v, + h: n.h, + l: copy(n.l), + r: copy(n.r) + }; } else { return n; } } function create(l, v, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; return { - v: v, - h: ( - hl >= hr ? hl : hr - ) + 1 | 0, - l: l, - r: r - }; + v: v, + h: ( + hl >= hr ? hl : hr + ) + 1 | 0, + l: l, + r: r + }; } function singleton(x) { return { - v: x, - h: 1, - l: undefined, - r: undefined - }; + v: x, + h: 1, + l: undefined, + r: undefined + }; } function heightGe(l, r) { @@ -52,11 +52,11 @@ function heightGe(l, r) { } function bal(l, v, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (hr + 2 | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return create(ll, l.v, create(lr, v, r)); } else { @@ -65,16 +65,16 @@ function bal(l, v, r) { } if (hr <= (hl + 2 | 0)) { return { - v: v, - h: ( - hl >= hr ? hl : hr - ) + 1 | 0, - l: l, - r: r - }; - } - var rl = r.l; - var rr = r.r; + v: v, + h: ( + hl >= hr ? hl : hr + ) + 1 | 0, + l: l, + r: r + }; + } + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return create(create(l, v, rl), r.v, rr); } else { @@ -84,13 +84,13 @@ function bal(l, v, r) { function min0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return n.v; } _n = n$1; - continue ; + continue; }; } @@ -110,13 +110,13 @@ function minUndefined(n) { function max0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return n.v; } _n = n$1; - continue ; + continue; }; } @@ -135,7 +135,7 @@ function maxUndefined(n) { } function removeMinAuxWithRef(n, v) { - var ln = n.l; + let ln = n.l; if (ln !== undefined) { return bal(removeMinAuxWithRef(ln, v), n.v, n.r); } else { @@ -150,8 +150,8 @@ function isEmpty(n) { function stackAllLeft(_v, _s) { while(true) { - var s = _s; - var v = _v; + let s = _s; + let v = _v; if (v === undefined) { return s; } @@ -160,20 +160,20 @@ function stackAllLeft(_v, _s) { tl: s }; _v = v.l; - continue ; + continue; }; } function forEachU(_n, f) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } forEachU(n.l, f); f(n.v); _n = n.r; - continue ; + continue; }; } @@ -183,14 +183,14 @@ function forEach(n, f) { function reduceU(_s, _accu, f) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (s === undefined) { return accu; } _accu = f(reduceU(s.l, accu, f), s.v); _s = s.r; - continue ; + continue; }; } @@ -200,7 +200,7 @@ function reduce(s, accu, f) { function everyU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return true; } @@ -211,7 +211,7 @@ function everyU(_n, p) { return false; } _n = n.r; - continue ; + continue; }; } @@ -221,7 +221,7 @@ function every(n, p) { function someU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } @@ -232,7 +232,7 @@ function someU(_n, p) { return true; } _n = n.r; - continue ; + continue; }; } @@ -263,8 +263,8 @@ function joinShared(ln, v, rn) { if (rn === undefined) { return addMaxElement(ln, v); } - var lh = ln.h; - var rh = rn.h; + let lh = ln.h; + let rh = rn.h; if (lh > (rh + 2 | 0)) { return bal(ln.l, ln.v, joinShared(ln.r, v, rn)); } else if (rh > (lh + 2 | 0)) { @@ -281,38 +281,38 @@ function concatShared(t1, t2) { if (t2 === undefined) { return t1; } - var v = { + let v = { contents: t2.v }; - var t2r = removeMinAuxWithRef(t2, v); + let t2r = removeMinAuxWithRef(t2, v); return joinShared(t1, v.contents, t2r); } function partitionSharedU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; - } - var value = n.v; - var match = partitionSharedU(n.l, p); - var lf = match[1]; - var lt = match[0]; - var pv = p(value); - var match$1 = partitionSharedU(n.r, p); - var rf = match$1[1]; - var rt = match$1[0]; + undefined, + undefined + ]; + } + let value = n.v; + let match = partitionSharedU(n.l, p); + let lf = match[1]; + let lt = match[0]; + let pv = p(value); + let match$1 = partitionSharedU(n.r, p); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - joinShared(lt, value, rt), - concatShared(lf, rf) - ]; + joinShared(lt, value, rt), + concatShared(lf, rf) + ]; } else { return [ - concatShared(lt, rt), - joinShared(lf, value, rf) - ]; + concatShared(lt, rt), + joinShared(lf, value, rf) + ]; } } @@ -321,10 +321,10 @@ function partitionShared(n, p) { } function lengthNode(n) { - var l = n.l; - var r = n.r; - var sizeL = l !== undefined ? lengthNode(l) : 0; - var sizeR = r !== undefined ? lengthNode(r) : 0; + let l = n.l; + let r = n.r; + let sizeL = l !== undefined ? lengthNode(l) : 0; + let sizeR = r !== undefined ? lengthNode(r) : 0; return (1 + sizeL | 0) + sizeR | 0; } @@ -338,8 +338,8 @@ function size(n) { function toListAux(_n, _accu) { while(true) { - var accu = _accu; - var n = _n; + let accu = _accu; + let n = _n; if (n === undefined) { return accu; } @@ -348,7 +348,7 @@ function toListAux(_n, _accu) { tl: toListAux(n.r, accu) }; _n = n.l; - continue ; + continue; }; } @@ -358,95 +358,95 @@ function toList(s) { function checkInvariantInternal(_v) { while(true) { - var v = _v; + let v = _v; if (v === undefined) { - return ; + return; } - var l = v.l; - var r = v.r; - var diff = ( + let l = v.l; + let r = v.r; + let diff = ( l !== undefined ? l.h : 0 ) - ( r !== undefined ? r.h : 0 ) | 0; if (!(diff <= 2 && diff >= -2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLset.res", - 319, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLset.res", + 319, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; - continue ; + continue; }; } function fillArray(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArray(l, i, arr) : i; + let i = _i; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArray(l, i, arr) : i; arr[next] = v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArrayWithPartition(_n, cursor, arr, p) { while(true) { - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; if (l !== undefined) { fillArrayWithPartition(l, cursor, arr, p); } if (p(v)) { - var c = cursor.forward; + let c = cursor.forward; arr[c] = v; cursor.forward = c + 1 | 0; } else { - var c$1 = cursor.backward; + let c$1 = cursor.backward; arr[c$1] = v; cursor.backward = c$1 - 1 | 0; } if (r === undefined) { - return ; + return; } _n = r; - continue ; + continue; }; } function fillArrayWithFilter(_n, _i, arr, p) { while(true) { - var i = _i; - var n = _n; - var v = n.v; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayWithFilter(l, i, arr, p) : i; - var rnext = p(v) ? (arr[next] = v, next + 1 | 0) : next; + let i = _i; + let n = _n; + let v = n.v; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayWithFilter(l, i, arr, p) : i; + let rnext = p(v) ? (arr[next] = v, next + 1 | 0) : next; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } @@ -454,8 +454,8 @@ function toArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArray(n, 0, v); return v; } @@ -463,33 +463,33 @@ function toArray(n) { function fromSortedArrayRevAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : return singleton(arr[off]); case 2 : - var x0 = arr[off]; - var x1 = arr[off - 1 | 0]; + let x0 = arr[off]; + let x1 = arr[off - 1 | 0]; return { - v: x1, - h: 2, - l: singleton(x0), - r: undefined - }; + v: x1, + h: 2, + l: singleton(x0), + r: undefined + }; case 3 : - var x0$1 = arr[off]; - var x1$1 = arr[off - 1 | 0]; - var x2 = arr[off - 2 | 0]; + let x0$1 = arr[off]; + let x1$1 = arr[off - 1 | 0]; + let x2 = arr[off - 2 | 0]; return { - v: x1$1, - h: 2, - l: singleton(x0$1), - r: singleton(x2) - }; + v: x1$1, + h: 2, + l: singleton(x0$1), + r: singleton(x2) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayRevAux(arr, off, nl); - var mid = arr[off - nl | 0]; - var right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayRevAux(arr, off, nl); + let mid = arr[off - nl | 0]; + let right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); return create(left, mid, right); } } @@ -497,33 +497,33 @@ function fromSortedArrayRevAux(arr, off, len) { function fromSortedArrayAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : return singleton(arr[off]); case 2 : - var x0 = arr[off]; - var x1 = arr[off + 1 | 0]; + let x0 = arr[off]; + let x1 = arr[off + 1 | 0]; return { - v: x1, - h: 2, - l: singleton(x0), - r: undefined - }; + v: x1, + h: 2, + l: singleton(x0), + r: undefined + }; case 3 : - var x0$1 = arr[off]; - var x1$1 = arr[off + 1 | 0]; - var x2 = arr[off + 2 | 0]; + let x0$1 = arr[off]; + let x1$1 = arr[off + 1 | 0]; + let x2 = arr[off + 2 | 0]; return { - v: x1$1, - h: 2, - l: singleton(x0$1), - r: singleton(x2) - }; + v: x1$1, + h: 2, + l: singleton(x0$1), + r: singleton(x2) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayAux(arr, off, nl); - var mid = arr[off + nl | 0]; - var right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayAux(arr, off, nl); + let mid = arr[off + nl | 0]; + let right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); return create(left, mid, right); } } @@ -534,14 +534,14 @@ function fromSortedArrayUnsafe(arr) { function keepSharedU(n, p) { if (n === undefined) { - return ; - } - var v = n.v; - var l = n.l; - var r = n.r; - var newL = keepSharedU(l, p); - var pv = p(v); - var newR = keepSharedU(r, p); + return; + } + let v = n.v; + let l = n.l; + let r = n.r; + let newL = keepSharedU(l, p); + let pv = p(v); + let newR = keepSharedU(r, p); if (pv) { if (l === newL && r === newR) { return n; @@ -559,11 +559,11 @@ function keepShared(n, p) { function keepCopyU(n, p) { if (n === undefined) { - return ; + return; } - var size = lengthNode(n); - var v = new Array(size); - var last = fillArrayWithFilter(n, 0, v, p); + let size = lengthNode(n); + let v = new Array(size); + let last = fillArrayWithFilter(n, 0, v, p); return fromSortedArrayAux(v, 0, last); } @@ -574,23 +574,23 @@ function keepCopy(n, p) { function partitionCopyU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; - } - var size = lengthNode(n); - var v = new Array(size); - var backward = size - 1 | 0; - var cursor = { + undefined, + undefined + ]; + } + let size = lengthNode(n); + let v = new Array(size); + let backward = size - 1 | 0; + let cursor = { forward: 0, backward: backward }; fillArrayWithPartition(n, cursor, v, p); - var forwardLen = cursor.forward; + let forwardLen = cursor.forward; return [ - fromSortedArrayAux(v, 0, forwardLen), - fromSortedArrayRevAux(v, backward, size - forwardLen | 0) - ]; + fromSortedArrayAux(v, 0, forwardLen), + fromSortedArrayRevAux(v, backward, size - forwardLen | 0) + ]; } function partitionCopy(n, p) { @@ -599,44 +599,44 @@ function partitionCopy(n, p) { function has(_t, x, cmp) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; - var c = cmp(x, v); + let v = t.v; + let c = cmp(x, v); if (c === 0) { return true; } _t = c < 0 ? t.l : t.r; - continue ; + continue; }; } function cmp(s1, s2, cmp$1) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = cmp$1(h1.v, h2.v); + let h2 = e2.hd; + let h1 = e1.hd; + let c = cmp$1(h1.v, h2.v); if (c !== 0) { return c; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else if (len1 < len2) { return -1; @@ -651,110 +651,110 @@ function eq(s1, s2, c) { function subset(_s1, _s2, cmp) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var c = cmp(v1, v2); + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let c = cmp(v1, v2); if (c === 0) { if (!subset(l1, l2, cmp)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset(create(l1, v1, undefined), l2, cmp)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(create(undefined, v1, r1), r2, cmp)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return Caml_option.some(v); } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; - var c = cmp(x, v); + let v = n.v; + let c = cmp(x, v); if (c === 0) { return v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function rotateWithLeftChild(k2) { - var k1 = k2.l; + let k1 = k2.l; k2.l = k1.r; k1.r = k2; - var n = k2.l; - var hlk2 = n !== undefined ? n.h : 0; - var n$1 = k2.r; - var hrk2 = n$1 !== undefined ? n$1.h : 0; + let n = k2.l; + let hlk2 = n !== undefined ? n.h : 0; + let n$1 = k2.r; + let hrk2 = n$1 !== undefined ? n$1.h : 0; k2.h = ( hlk2 > hrk2 ? hlk2 : hrk2 ) + 1 | 0; - var n$2 = k1.l; - var hlk1 = n$2 !== undefined ? n$2.h : 0; - var hk2 = k2.h; + let n$2 = k1.l; + let hlk1 = n$2 !== undefined ? n$2.h : 0; + let hk2 = k2.h; k1.h = ( hlk1 > hk2 ? hlk1 : hk2 ) + 1 | 0; @@ -762,19 +762,19 @@ function rotateWithLeftChild(k2) { } function rotateWithRightChild(k1) { - var k2 = k1.r; + let k2 = k1.r; k1.r = k2.l; k2.l = k1; - var n = k1.l; - var hlk1 = n !== undefined ? n.h : 0; - var n$1 = k1.r; - var hrk1 = n$1 !== undefined ? n$1.h : 0; + let n = k1.l; + let hlk1 = n !== undefined ? n.h : 0; + let n$1 = k1.r; + let hrk1 = n$1 !== undefined ? n$1.h : 0; k1.h = ( hlk1 > hrk1 ? hlk1 : hrk1 ) + 1 | 0; - var n$2 = k2.r; - var hrk2 = n$2 !== undefined ? n$2.h : 0; - var hk1 = k1.h; + let n$2 = k2.r; + let hrk2 = n$2 !== undefined ? n$2.h : 0; + let hk1 = k1.h; k2.h = ( hrk2 > hk1 ? hrk2 : hk1 ) + 1 | 0; @@ -782,24 +782,24 @@ function rotateWithRightChild(k1) { } function doubleWithLeftChild(k3) { - var k3l = k3.l; - var v = rotateWithRightChild(k3l); + let k3l = k3.l; + let v = rotateWithRightChild(k3l); k3.l = v; return rotateWithLeftChild(k3); } function doubleWithRightChild(k2) { - var k2r = k2.r; - var v = rotateWithLeftChild(k2r); + let k2r = k2.r; + let v = rotateWithLeftChild(k2r); k2.r = v; return rotateWithRightChild(k2); } function heightUpdateMutate(t) { - var n = t.l; - var hlt = n !== undefined ? n.h : 0; - var n$1 = t.r; - var hrt = n$1 !== undefined ? n$1.h : 0; + let n = t.l; + let hlt = n !== undefined ? n.h : 0; + let n$1 = t.r; + let hrt = n$1 !== undefined ? n$1.h : 0; t.h = ( hlt > hrt ? hlt : hrt ) + 1 | 0; @@ -807,13 +807,13 @@ function heightUpdateMutate(t) { } function balMutate(nt) { - var l = nt.l; - var r = nt.r; - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let l = nt.l; + let r = nt.r; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (2 + hr | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return heightUpdateMutate(rotateWithLeftChild(nt)); } else { @@ -821,8 +821,8 @@ function balMutate(nt) { } } if (hr > (2 + hl | 0)) { - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return heightUpdateMutate(rotateWithRightChild(nt)); } else { @@ -839,15 +839,15 @@ function addMutate(cmp, t, x) { if (t === undefined) { return singleton(x); } - var k = t.v; - var c = cmp(x, k); + let k = t.v; + let c = cmp(x, k); if (c === 0) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (c < 0) { - var ll = addMutate(cmp, l, x); + let ll = addMutate(cmp, l, x); t.l = ll; } else { t.r = addMutate(cmp, r, x); @@ -856,29 +856,29 @@ function addMutate(cmp, t, x) { } function fromArray(xs, cmp) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (x, y) { - return cmp(x, y) < 0; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (x, y) { + return cmp(x, y) < 0; + })); + let result; if (next >= 0) { result = fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(cmp, result, xs[i]); } return result; } function removeMinAuxWithRootMutate(nt, n) { - var ln = n.l; - var rn = n.r; + let ln = n.l; + let rn = n.r; if (ln !== undefined) { n.l = removeMinAuxWithRootMutate(nt, ln); return balMutate(n); diff --git a/lib/js/belt_internalAVLtree.js b/lib/js/belt_internalAVLtree.js index 50d69c9c88..bf5e70f13c 100644 --- a/lib/js/belt_internalAVLtree.js +++ b/lib/js/belt_internalAVLtree.js @@ -1,8 +1,8 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); -var Belt_SortArray = require("./belt_SortArray.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); +let Belt_SortArray = require("./belt_SortArray.js"); function treeHeight(n) { if (n !== undefined) { @@ -15,37 +15,37 @@ function treeHeight(n) { function copy(n) { if (n !== undefined) { return { - k: n.k, - v: n.v, - h: n.h, - l: copy(n.l), - r: copy(n.r) - }; + k: n.k, + v: n.v, + h: n.h, + l: copy(n.l), + r: copy(n.r) + }; } else { return n; } } function create(l, x, d, r) { - var hl = treeHeight(l); - var hr = treeHeight(r); + let hl = treeHeight(l); + let hr = treeHeight(r); return { - k: x, - v: d, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, - l: l, - r: r - }; + k: x, + v: d, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, + l: l, + r: r + }; } function singleton(x, d) { return { - k: x, - v: d, - h: 1, - l: undefined, - r: undefined - }; + k: x, + v: d, + h: 1, + l: undefined, + r: undefined + }; } function heightGe(l, r) { @@ -65,21 +65,21 @@ function updateValue(n, newValue) { return n; } else { return { - k: n.k, - v: newValue, - h: n.h, - l: n.l, - r: n.r - }; + k: n.k, + v: newValue, + h: n.h, + l: n.l, + r: n.r + }; } } function bal(l, x, d, r) { - var hl = l !== undefined ? l.h : 0; - var hr = r !== undefined ? r.h : 0; + let hl = l !== undefined ? l.h : 0; + let hr = r !== undefined ? r.h : 0; if (hl > (hr + 2 | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (treeHeight(ll) >= treeHeight(lr)) { return create(ll, l.k, l.v, create(lr, x, d, r)); } else { @@ -88,15 +88,15 @@ function bal(l, x, d, r) { } if (hr <= (hl + 2 | 0)) { return { - k: x, - v: d, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, - l: l, - r: r - }; + k: x, + v: d, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0, + l: l, + r: r + }; } - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (treeHeight(rr) >= treeHeight(rl)) { return create(create(l, x, d, rl), r.k, r.v, rr); } else { @@ -106,13 +106,13 @@ function bal(l, x, d, r) { function minKey0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return n.k; } _n = n$1; - continue ; + continue; }; } @@ -132,13 +132,13 @@ function minKeyUndefined(n) { function maxKey0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return n.k; } _n = n$1; - continue ; + continue; }; } @@ -158,16 +158,16 @@ function maxKeyUndefined(n) { function minKV0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.l; + let n = _n; + let n$1 = n.l; if (n$1 === undefined) { return [ - n.k, - n.v - ]; + n.k, + n.v + ]; } _n = n$1; - continue ; + continue; }; } @@ -187,16 +187,16 @@ function minUndefined(n) { function maxKV0Aux(_n) { while(true) { - var n = _n; - var n$1 = n.r; + let n = _n; + let n$1 = n.r; if (n$1 === undefined) { return [ - n.k, - n.v - ]; + n.k, + n.v + ]; } _n = n$1; - continue ; + continue; }; } @@ -215,7 +215,7 @@ function maxUndefined(n) { } function removeMinAuxWithRef(n, kr, vr) { - var ln = n.l; + let ln = n.l; if (ln !== undefined) { return bal(removeMinAuxWithRef(ln, kr, vr), n.k, n.v, n.r); } else { @@ -231,8 +231,8 @@ function isEmpty(x) { function stackAllLeft(_v, _s) { while(true) { - var s = _s; - var v = _v; + let s = _s; + let v = _v; if (v === undefined) { return s; } @@ -241,28 +241,28 @@ function stackAllLeft(_v, _s) { tl: s }; _v = v.l; - continue ; + continue; }; } function findFirstByU(n, p) { if (n === undefined) { - return ; + return; } - var left = findFirstByU(n.l, p); + let left = findFirstByU(n.l, p); if (left !== undefined) { return left; } - var v = n.k; - var d = n.v; - var pvd = p(v, d); + let v = n.k; + let d = n.v; + let pvd = p(v, d); if (pvd) { return [ - v, - d - ]; + v, + d + ]; } - var right = findFirstByU(n.r, p); + let right = findFirstByU(n.r, p); if (right !== undefined) { return right; } @@ -275,14 +275,14 @@ function findFirstBy(n, p) { function forEachU(_n, f) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } forEachU(n.l, f); f(n.k, n.v); _n = n.r; - continue ; + continue; }; } @@ -292,18 +292,18 @@ function forEach(n, f) { function mapU(n, f) { if (n === undefined) { - return ; + return; } - var newLeft = mapU(n.l, f); - var newD = f(n.v); - var newRight = mapU(n.r, f); + let newLeft = mapU(n.l, f); + let newD = f(n.v); + let newRight = mapU(n.r, f); return { - k: n.k, - v: newD, - h: n.h, - l: newLeft, - r: newRight - }; + k: n.k, + v: newD, + h: n.h, + l: newLeft, + r: newRight + }; } function map(n, f) { @@ -312,19 +312,19 @@ function map(n, f) { function mapWithKeyU(n, f) { if (n === undefined) { - return ; + return; } - var key = n.k; - var newLeft = mapWithKeyU(n.l, f); - var newD = f(key, n.v); - var newRight = mapWithKeyU(n.r, f); + let key = n.k; + let newLeft = mapWithKeyU(n.l, f); + let newD = f(key, n.v); + let newRight = mapWithKeyU(n.r, f); return { - k: key, - v: newD, - h: n.h, - l: newLeft, - r: newRight - }; + k: key, + v: newD, + h: n.h, + l: newLeft, + r: newRight + }; } function mapWithKey(n, f) { @@ -333,18 +333,18 @@ function mapWithKey(n, f) { function reduceU(_m, _accu, f) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (m === undefined) { return accu; } - var v = m.k; - var d = m.v; - var l = m.l; - var r = m.r; + let v = m.k; + let d = m.v; + let l = m.l; + let r = m.r; _accu = f(reduceU(l, accu, f), v, d); _m = r; - continue ; + continue; }; } @@ -354,7 +354,7 @@ function reduce(m, accu, f) { function everyU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return true; } @@ -365,7 +365,7 @@ function everyU(_n, p) { return false; } _n = n.r; - continue ; + continue; }; } @@ -375,7 +375,7 @@ function every(n, p) { function someU(_n, p) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } @@ -386,7 +386,7 @@ function someU(_n, p) { return true; } _n = n.r; - continue ; + continue; }; } @@ -417,16 +417,16 @@ function join(ln, v, d, rn) { if (rn === undefined) { return addMaxElement(ln, v, d); } - var lv = ln.k; - var ld = ln.v; - var lh = ln.h; - var ll = ln.l; - var lr = ln.r; - var rv = rn.k; - var rd = rn.v; - var rh = rn.h; - var rl = rn.l; - var rr = rn.r; + let lv = ln.k; + let ld = ln.v; + let lh = ln.h; + let ll = ln.l; + let lr = ln.r; + let rv = rn.k; + let rd = rn.v; + let rh = rn.h; + let rl = rn.l; + let rr = rn.r; if (lh > (rh + 2 | 0)) { return bal(ll, lv, ld, join(lr, v, d, rn)); } else if (rh > (lh + 2 | 0)) { @@ -443,13 +443,13 @@ function concat(t1, t2) { if (t2 === undefined) { return t1; } - var kr = { + let kr = { contents: t2.k }; - var vr = { + let vr = { contents: t2.v }; - var t2r = removeMinAuxWithRef(t2, kr, vr); + let t2r = removeMinAuxWithRef(t2, kr, vr); return join(t1, kr.contents, vr.contents, t2r); } @@ -463,13 +463,13 @@ function concatOrJoin(t1, v, d, t2) { function keepSharedU(n, p) { if (n === undefined) { - return ; + return; } - var v = n.k; - var d = n.v; - var newLeft = keepSharedU(n.l, p); - var pvd = p(v, d); - var newRight = keepSharedU(n.r, p); + let v = n.k; + let d = n.v; + let newLeft = keepSharedU(n.l, p); + let pvd = p(v, d); + let newRight = keepSharedU(n.r, p); if (pvd) { return join(newLeft, v, d, newRight); } else { @@ -483,13 +483,13 @@ function keepShared(n, p) { function keepMapU(n, p) { if (n === undefined) { - return ; + return; } - var v = n.k; - var d = n.v; - var newLeft = keepMapU(n.l, p); - var pvd = p(v, d); - var newRight = keepMapU(n.r, p); + let v = n.k; + let d = n.v; + let newLeft = keepMapU(n.l, p); + let pvd = p(v, d); + let newRight = keepMapU(n.r, p); if (pvd !== undefined) { return join(newLeft, v, Caml_option.valFromOption(pvd), newRight); } else { @@ -504,29 +504,29 @@ function keepMap(n, p) { function partitionSharedU(n, p) { if (n === undefined) { return [ - undefined, - undefined - ]; + undefined, + undefined + ]; } - var key = n.k; - var value = n.v; - var match = partitionSharedU(n.l, p); - var lf = match[1]; - var lt = match[0]; - var pvd = p(key, value); - var match$1 = partitionSharedU(n.r, p); - var rf = match$1[1]; - var rt = match$1[0]; + let key = n.k; + let value = n.v; + let match = partitionSharedU(n.l, p); + let lf = match[1]; + let lt = match[0]; + let pvd = p(key, value); + let match$1 = partitionSharedU(n.r, p); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, key, value, rt), - concat(lf, rf) - ]; + join(lt, key, value, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, key, value, rf) - ]; + concat(lt, rt), + join(lf, key, value, rf) + ]; } } @@ -535,10 +535,10 @@ function partitionShared(n, p) { } function lengthNode(n) { - var l = n.l; - var r = n.r; - var sizeL = l !== undefined ? lengthNode(l) : 0; - var sizeR = r !== undefined ? lengthNode(r) : 0; + let l = n.l; + let r = n.r; + let sizeL = l !== undefined ? lengthNode(l) : 0; + let sizeR = r !== undefined ? lengthNode(r) : 0; return (1 + sizeL | 0) + sizeR | 0; } @@ -552,15 +552,15 @@ function size(n) { function toListAux(_n, _accu) { while(true) { - var accu = _accu; - var n = _n; + let accu = _accu; + let n = _n; if (n === undefined) { return accu; } - var k = n.k; - var v = n.v; - var l = n.l; - var r = n.r; + let k = n.k; + let v = n.v; + let l = n.l; + let r = n.r; _accu = { hd: [ k, @@ -569,7 +569,7 @@ function toListAux(_n, _accu) { tl: toListAux(r, accu) }; _n = l; - continue ; + continue; }; } @@ -579,87 +579,87 @@ function toList(s) { function checkInvariantInternal(_v) { while(true) { - var v = _v; + let v = _v; if (v === undefined) { - return ; + return; } - var l = v.l; - var r = v.r; - var diff = treeHeight(l) - treeHeight(r) | 0; + let l = v.l; + let r = v.r; + let diff = treeHeight(l) - treeHeight(r) | 0; if (!(diff <= 2 && diff >= -2)) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "belt_internalAVLtree.res", - 457, - 4 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "belt_internalAVLtree.res", + 457, + 4 + ] + } + }); } checkInvariantInternal(l); _v = r; - continue ; + continue; }; } function fillArrayKey(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var v = n.k; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayKey(l, i, arr) : i; + let i = _i; + let n = _n; + let v = n.k; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayKey(l, i, arr) : i; arr[next] = v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArrayValue(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var l = n.l; - var r = n.r; - var next = l !== undefined ? fillArrayValue(l, i, arr) : i; + let i = _i; + let n = _n; + let l = n.l; + let r = n.r; + let next = l !== undefined ? fillArrayValue(l, i, arr) : i; arr[next] = n.v; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } function fillArray(_n, _i, arr) { while(true) { - var i = _i; - var n = _n; - var l = n.l; - var v = n.k; - var r = n.r; - var next = l !== undefined ? fillArray(l, i, arr) : i; + let i = _i; + let n = _n; + let l = n.l; + let v = n.k; + let r = n.r; + let next = l !== undefined ? fillArray(l, i, arr) : i; arr[next] = [ v, n.v ]; - var rnext = next + 1 | 0; + let rnext = next + 1 | 0; if (r === undefined) { return rnext; } _i = rnext; _n = r; - continue ; + continue; }; } @@ -667,8 +667,8 @@ function toArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArray(n, 0, v); return v; } @@ -677,8 +677,8 @@ function keysToArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArrayKey(n, 0, v); return v; } @@ -687,8 +687,8 @@ function valuesToArray(n) { if (n === undefined) { return []; } - var size = lengthNode(n); - var v = new Array(size); + let size = lengthNode(n); + let v = new Array(size); fillArrayValue(n, 0, v); return v; } @@ -696,41 +696,41 @@ function valuesToArray(n) { function fromSortedArrayRevAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : - var match = arr[off]; + let match = arr[off]; return singleton(match[0], match[1]); case 2 : - var match_0 = arr[off]; - var match_1 = arr[off - 1 | 0]; - var match$1 = match_1; - var match$2 = match_0; + let match_0 = arr[off]; + let match_1 = arr[off - 1 | 0]; + let match$1 = match_1; + let match$2 = match_0; return { - k: match$1[0], - v: match$1[1], - h: 2, - l: singleton(match$2[0], match$2[1]), - r: undefined - }; + k: match$1[0], + v: match$1[1], + h: 2, + l: singleton(match$2[0], match$2[1]), + r: undefined + }; case 3 : - var match_0$1 = arr[off]; - var match_1$1 = arr[off - 1 | 0]; - var match_2 = arr[off - 2 | 0]; - var match$3 = match_2; - var match$4 = match_1$1; - var match$5 = match_0$1; + let match_0$1 = arr[off]; + let match_1$1 = arr[off - 1 | 0]; + let match_2 = arr[off - 2 | 0]; + let match$3 = match_2; + let match$4 = match_1$1; + let match$5 = match_0$1; return { - k: match$4[0], - v: match$4[1], - h: 2, - l: singleton(match$5[0], match$5[1]), - r: singleton(match$3[0], match$3[1]) - }; + k: match$4[0], + v: match$4[1], + h: 2, + l: singleton(match$5[0], match$5[1]), + r: singleton(match$3[0], match$3[1]) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayRevAux(arr, off, nl); - var match$6 = arr[off - nl | 0]; - var right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayRevAux(arr, off, nl); + let match$6 = arr[off - nl | 0]; + let right = fromSortedArrayRevAux(arr, (off - nl | 0) - 1 | 0, (len - nl | 0) - 1 | 0); return create(left, match$6[0], match$6[1], right); } } @@ -738,41 +738,41 @@ function fromSortedArrayRevAux(arr, off, len) { function fromSortedArrayAux(arr, off, len) { switch (len) { case 0 : - return ; + return; case 1 : - var match = arr[off]; + let match = arr[off]; return singleton(match[0], match[1]); case 2 : - var match_0 = arr[off]; - var match_1 = arr[off + 1 | 0]; - var match$1 = match_1; - var match$2 = match_0; + let match_0 = arr[off]; + let match_1 = arr[off + 1 | 0]; + let match$1 = match_1; + let match$2 = match_0; return { - k: match$1[0], - v: match$1[1], - h: 2, - l: singleton(match$2[0], match$2[1]), - r: undefined - }; + k: match$1[0], + v: match$1[1], + h: 2, + l: singleton(match$2[0], match$2[1]), + r: undefined + }; case 3 : - var match_0$1 = arr[off]; - var match_1$1 = arr[off + 1 | 0]; - var match_2 = arr[off + 2 | 0]; - var match$3 = match_2; - var match$4 = match_1$1; - var match$5 = match_0$1; + let match_0$1 = arr[off]; + let match_1$1 = arr[off + 1 | 0]; + let match_2 = arr[off + 2 | 0]; + let match$3 = match_2; + let match$4 = match_1$1; + let match$5 = match_0$1; return { - k: match$4[0], - v: match$4[1], - h: 2, - l: singleton(match$5[0], match$5[1]), - r: singleton(match$3[0], match$3[1]) - }; + k: match$4[0], + v: match$4[1], + h: 2, + l: singleton(match$5[0], match$5[1]), + r: singleton(match$3[0], match$3[1]) + }; default: - var nl = len / 2 | 0; - var left = fromSortedArrayAux(arr, off, nl); - var match$6 = arr[off + nl | 0]; - var right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); + let nl = len / 2 | 0; + let left = fromSortedArrayAux(arr, off, nl); + let match$6 = arr[off + nl | 0]; + let right = fromSortedArrayAux(arr, (off + nl | 0) + 1 | 0, (len - nl | 0) - 1 | 0); return create(left, match$6[0], match$6[1], right); } } @@ -782,33 +782,33 @@ function fromSortedArrayUnsafe(arr) { } function cmpU(s1, s2, kcmp, vcmp) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = kcmp(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = kcmp(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else if (len1 < len2) { return -1; @@ -822,28 +822,28 @@ function cmp(s1, s2, kcmp, vcmp) { } function eqU(s1, s2, kcmp, veq) { - var len1 = size(s1); - var len2 = size(s2); + let len1 = size(s1); + let len2 = size(s2); if (len1 === len2) { - var _e1 = stackAllLeft(s1, /* [] */0); - var _e2 = stackAllLeft(s2, /* [] */0); + let _e1 = stackAllLeft(s1, /* [] */0); + let _e2 = stackAllLeft(s2, /* [] */0); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(kcmp(h1.k, h2.k) === 0 && veq(h1.v, h2.v))) { return false; } _e2 = stackAllLeft(h2.r, e2.tl); _e1 = stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } else { return false; @@ -856,99 +856,99 @@ function eq(s1, s2, kcmp, veq) { function get(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return Caml_option.some(n.v); } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return n.v; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function has(_n, x, cmp) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; - var c = cmp(x, v); + let v = n.k; + let c = cmp(x, v); if (c === 0) { return true; } _n = c < 0 ? n.l : n.r; - continue ; + continue; }; } function rotateWithLeftChild(k2) { - var k1 = k2.l; + let k1 = k2.l; k2.l = k1.r; k1.r = k2; - var hlk2 = treeHeight(k2.l); - var hrk2 = treeHeight(k2.r); + let hlk2 = treeHeight(k2.l); + let hrk2 = treeHeight(k2.r); k2.h = ( hlk2 > hrk2 ? hlk2 : hrk2 ) + 1 | 0; - var hlk1 = treeHeight(k1.l); - var hk2 = k2.h; + let hlk1 = treeHeight(k1.l); + let hk2 = k2.h; k1.h = ( hlk1 > hk2 ? hlk1 : hk2 ) + 1 | 0; @@ -956,16 +956,16 @@ function rotateWithLeftChild(k2) { } function rotateWithRightChild(k1) { - var k2 = k1.r; + let k2 = k1.r; k1.r = k2.l; k2.l = k1; - var hlk1 = treeHeight(k1.l); - var hrk1 = treeHeight(k1.r); + let hlk1 = treeHeight(k1.l); + let hrk1 = treeHeight(k1.r); k1.h = ( hlk1 > hrk1 ? hlk1 : hrk1 ) + 1 | 0; - var hrk2 = treeHeight(k2.r); - var hk1 = k1.h; + let hrk2 = treeHeight(k2.r); + let hk1 = k1.h; k2.h = ( hrk2 > hk1 ? hrk2 : hk1 ) + 1 | 0; @@ -973,22 +973,22 @@ function rotateWithRightChild(k1) { } function doubleWithLeftChild(k3) { - var x = k3.l; - var v = rotateWithRightChild(x); + let x = k3.l; + let v = rotateWithRightChild(x); k3.l = v; return rotateWithLeftChild(k3); } function doubleWithRightChild(k2) { - var x = k2.r; - var v = rotateWithLeftChild(x); + let x = k2.r; + let v = rotateWithLeftChild(x); k2.r = v; return rotateWithRightChild(k2); } function heightUpdateMutate(t) { - var hlt = treeHeight(t.l); - var hrt = treeHeight(t.r); + let hlt = treeHeight(t.l); + let hrt = treeHeight(t.r); t.h = ( hlt > hrt ? hlt : hrt ) + 1 | 0; @@ -996,13 +996,13 @@ function heightUpdateMutate(t) { } function balMutate(nt) { - var l = nt.l; - var r = nt.r; - var hl = treeHeight(l); - var hr = treeHeight(r); + let l = nt.l; + let r = nt.r; + let hl = treeHeight(l); + let hr = treeHeight(r); if (hl > (2 + hr | 0)) { - var ll = l.l; - var lr = l.r; + let ll = l.l; + let lr = l.r; if (heightGe(ll, lr)) { return heightUpdateMutate(rotateWithLeftChild(nt)); } else { @@ -1010,8 +1010,8 @@ function balMutate(nt) { } } if (hr > (2 + hl | 0)) { - var rl = r.l; - var rr = r.r; + let rl = r.l; + let rr = r.r; if (heightGe(rr, rl)) { return heightUpdateMutate(rotateWithRightChild(nt)); } else { @@ -1028,16 +1028,16 @@ function updateMutate(t, x, data, cmp) { if (t === undefined) { return singleton(x, data); } - var k = t.k; - var c = cmp(x, k); + let k = t.k; + let c = cmp(x, k); if (c === 0) { t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (c < 0) { - var ll = updateMutate(l, x, data, cmp); + let ll = updateMutate(l, x, data, cmp); t.l = ll; } else { t.r = updateMutate(r, x, data, cmp); @@ -1046,30 +1046,30 @@ function updateMutate(t, x, data, cmp) { } function fromArray(xs, cmp) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return cmp(param[0], param$1[0]) < 0; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return cmp(param[0], param$1[0]) < 0; + })); + let result; if (next >= 0) { result = fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = updateMutate(result, match[0], match[1], cmp); } return result; } function removeMinAuxWithRootMutate(nt, n) { - var rn = n.r; - var ln = n.l; + let rn = n.r; + let ln = n.l; if (ln !== undefined) { n.l = removeMinAuxWithRootMutate(nt, ln); return balMutate(n); diff --git a/lib/js/belt_internalMapInt.js b/lib/js/belt_internalMapInt.js index 3e32ec8754..7287487df7 100644 --- a/lib/js/belt_internalMapInt.js +++ b/lib/js/belt_internalMapInt.js @@ -1,20 +1,20 @@ 'use strict'; -var Caml = require("./caml.js"); -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); -var Belt_SortArray = require("./belt_SortArray.js"); -var Belt_internalAVLtree = require("./belt_internalAVLtree.js"); +let Caml = require("./caml.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); +let Belt_SortArray = require("./belt_SortArray.js"); +let Belt_internalAVLtree = require("./belt_internalAVLtree.js"); function add(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { return Belt_internalAVLtree.updateValue(t, data); } - var v = t.v; + let v = t.v; if (x < k) { return Belt_internalAVLtree.bal(add(t.l, x, data), k, v, t.r); } else { @@ -24,80 +24,80 @@ function add(t, x, data) { function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return Caml_option.some(n.v); } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function has(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; + let v = n.k; if (x === v) { return true; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } @@ -105,9 +105,9 @@ function remove(n, x) { if (n === undefined) { return n; } - var v = n.k; - var l = n.l; - var r = n.r; + let v = n.k; + let l = n.l; + let r = n.r; if (x !== v) { if (x < v) { return Belt_internalAVLtree.bal(remove(l, x), v, n.v, r); @@ -121,56 +121,56 @@ function remove(n, x) { if (r === undefined) { return l; } - var kr = { + let kr = { contents: r.k }; - var vr = { + let vr = { contents: r.v }; - var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); + let r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); return Belt_internalAVLtree.bal(l, kr.contents, vr.contents, r$1); } function splitAux(x, n) { - var v = n.k; - var d = n.v; - var l = n.l; - var r = n.r; + let v = n.k; + let d = n.v; + let l = n.l; + let r = n.r; if (x === v) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (x < v) { if (l === undefined) { return [ - undefined, - undefined, - n - ]; + undefined, + undefined, + n + ]; } - var match = splitAux(x, l); + let match = splitAux(x, l); return [ - match[0], - match[1], - Belt_internalAVLtree.join(match[2], v, d, r) - ]; + match[0], + match[1], + Belt_internalAVLtree.join(match[2], v, d, r) + ]; } if (r === undefined) { return [ - n, - undefined, - undefined - ]; + n, + undefined, + undefined + ]; } - var match$1 = splitAux(x, r); + let match$1 = splitAux(x, r); return [ - Belt_internalAVLtree.join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + Belt_internalAVLtree.join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function split(x, n) { @@ -178,10 +178,10 @@ function split(x, n) { return splitAux(x, n); } else { return [ - undefined, - undefined, - undefined - ]; + undefined, + undefined, + undefined + ]; } } @@ -190,22 +190,22 @@ function mergeU(s1, s2, f) { if (s1.h >= ( s2 !== undefined ? s2.h : 0 )) { - var v1 = s1.k; - var d1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var match = split(v1, s2); + let v1 = s1.k; + let d1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let match = split(v1, s2); return Belt_internalAVLtree.concatOrJoin(mergeU(l1, match[0], f), v1, f(v1, Caml_option.some(d1), match[1]), mergeU(r1, match[2], f)); } } else if (s2 === undefined) { - return ; + return; } - var v2 = s2.k; - var d2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var match$1 = split(v2, s1); + let v2 = s2.k; + let d2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let match$1 = split(v2, s1); return Belt_internalAVLtree.concatOrJoin(mergeU(match$1[0], l2, f), v2, f(v2, match$1[1], Caml_option.some(d2)), mergeU(match$1[2], r2, f)); } @@ -215,33 +215,33 @@ function merge(s1, s2, f) { function compareAux(_e1, _e2, vcmp) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = Caml.int_compare(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = Caml.int_compare(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmpU(s1, s2, cmp) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), cmp); } else if (len1 < len2) { @@ -257,28 +257,28 @@ function cmp(s1, s2, f) { function eqAux(_e1, _e2, eq) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(h1.k === h2.k && eq(h1.v, h2.v))) { return false; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function eqU(s1, s2, eq) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return eqAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), eq); } else { @@ -294,16 +294,16 @@ function addMutate(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { t.k = x; t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { - var ll = addMutate(l, x, data); + let ll = addMutate(l, x, data); t.l = ll; } else { t.r = addMutate(r, x, data); @@ -312,32 +312,32 @@ function addMutate(t, x, data) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return param[0] < param$1[0]; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return param[0] < param$1[0]; + })); + let result; if (next >= 0) { result = Belt_internalAVLtree.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLtree.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = addMutate(result, match[0], match[1]); } return result; } -var N; +let N; -var A; +let A; -var S; +let S; exports.N = N; exports.A = A; diff --git a/lib/js/belt_internalMapString.js b/lib/js/belt_internalMapString.js index b11b3da230..47e80346e4 100644 --- a/lib/js/belt_internalMapString.js +++ b/lib/js/belt_internalMapString.js @@ -1,20 +1,20 @@ 'use strict'; -var Caml = require("./caml.js"); -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); -var Belt_SortArray = require("./belt_SortArray.js"); -var Belt_internalAVLtree = require("./belt_internalAVLtree.js"); +let Caml = require("./caml.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); +let Belt_SortArray = require("./belt_SortArray.js"); +let Belt_internalAVLtree = require("./belt_internalAVLtree.js"); function add(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { return Belt_internalAVLtree.updateValue(t, data); } - var v = t.v; + let v = t.v; if (x < k) { return Belt_internalAVLtree.bal(add(t.l, x, data), k, v, t.r); } else { @@ -24,80 +24,80 @@ function add(t, x, data) { function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return Caml_option.some(n.v); } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function getWithDefault(_n, x, def) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return def; } - var v = n.k; + let v = n.k; if (x === v) { return n.v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function has(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { return false; } - var v = n.k; + let v = n.k; if (x === v) { return true; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } @@ -105,9 +105,9 @@ function remove(n, x) { if (n === undefined) { return n; } - var v = n.k; - var l = n.l; - var r = n.r; + let v = n.k; + let l = n.l; + let r = n.r; if (x !== v) { if (x < v) { return Belt_internalAVLtree.bal(remove(l, x), v, n.v, r); @@ -121,56 +121,56 @@ function remove(n, x) { if (r === undefined) { return l; } - var kr = { + let kr = { contents: r.k }; - var vr = { + let vr = { contents: r.v }; - var r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); + let r$1 = Belt_internalAVLtree.removeMinAuxWithRef(r, kr, vr); return Belt_internalAVLtree.bal(l, kr.contents, vr.contents, r$1); } function splitAux(x, n) { - var v = n.k; - var d = n.v; - var l = n.l; - var r = n.r; + let v = n.k; + let d = n.v; + let l = n.l; + let r = n.r; if (x === v) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (x < v) { if (l === undefined) { return [ - undefined, - undefined, - n - ]; + undefined, + undefined, + n + ]; } - var match = splitAux(x, l); + let match = splitAux(x, l); return [ - match[0], - match[1], - Belt_internalAVLtree.join(match[2], v, d, r) - ]; + match[0], + match[1], + Belt_internalAVLtree.join(match[2], v, d, r) + ]; } if (r === undefined) { return [ - n, - undefined, - undefined - ]; + n, + undefined, + undefined + ]; } - var match$1 = splitAux(x, r); + let match$1 = splitAux(x, r); return [ - Belt_internalAVLtree.join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + Belt_internalAVLtree.join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; } function split(x, n) { @@ -178,10 +178,10 @@ function split(x, n) { return splitAux(x, n); } else { return [ - undefined, - undefined, - undefined - ]; + undefined, + undefined, + undefined + ]; } } @@ -190,22 +190,22 @@ function mergeU(s1, s2, f) { if (s1.h >= ( s2 !== undefined ? s2.h : 0 )) { - var v1 = s1.k; - var d1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var match = split(v1, s2); + let v1 = s1.k; + let d1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let match = split(v1, s2); return Belt_internalAVLtree.concatOrJoin(mergeU(l1, match[0], f), v1, f(v1, Caml_option.some(d1), match[1]), mergeU(r1, match[2], f)); } } else if (s2 === undefined) { - return ; + return; } - var v2 = s2.k; - var d2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; - var match$1 = split(v2, s1); + let v2 = s2.k; + let d2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; + let match$1 = split(v2, s1); return Belt_internalAVLtree.concatOrJoin(mergeU(match$1[0], l2, f), v2, f(v2, match$1[1], Caml_option.some(d2)), mergeU(match$1[2], r2, f)); } @@ -215,33 +215,33 @@ function merge(s1, s2, f) { function compareAux(_e1, _e2, vcmp) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var c = Caml.string_compare(h1.k, h2.k); + let h2 = e2.hd; + let h1 = e1.hd; + let c = Caml.string_compare(h1.k, h2.k); if (c !== 0) { return c; } - var cx = vcmp(h1.v, h2.v); + let cx = vcmp(h1.v, h2.v); if (cx !== 0) { return cx; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmpU(s1, s2, cmp) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), cmp); } else if (len1 < len2) { @@ -257,28 +257,28 @@ function cmp(s1, s2, f) { function eqAux(_e1, _e2, eq) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return true; } if (!e2) { return true; } - var h2 = e2.hd; - var h1 = e1.hd; + let h2 = e2.hd; + let h1 = e1.hd; if (!(h1.k === h2.k && eq(h1.v, h2.v))) { return false; } _e2 = Belt_internalAVLtree.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLtree.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function eqU(s1, s2, eq) { - var len1 = Belt_internalAVLtree.size(s1); - var len2 = Belt_internalAVLtree.size(s2); + let len1 = Belt_internalAVLtree.size(s1); + let len2 = Belt_internalAVLtree.size(s2); if (len1 === len2) { return eqAux(Belt_internalAVLtree.stackAllLeft(s1, /* [] */0), Belt_internalAVLtree.stackAllLeft(s2, /* [] */0), eq); } else { @@ -294,16 +294,16 @@ function addMutate(t, x, data) { if (t === undefined) { return Belt_internalAVLtree.singleton(x, data); } - var k = t.k; + let k = t.k; if (x === k) { t.k = x; t.v = data; return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { - var ll = addMutate(l, x, data); + let ll = addMutate(l, x, data); t.l = ll; } else { t.r = addMutate(r, x, data); @@ -312,32 +312,32 @@ function addMutate(t, x, data) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { - return param[0] < param$1[0]; - })); - var result; + let next = Belt_SortArray.strictlySortedLengthU(xs, (function (param, param$1) { + return param[0] < param$1[0]; + })); + let result; if (next >= 0) { result = Belt_internalAVLtree.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLtree.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ - var match = xs[i]; + for(let i = next; i < len; ++i){ + let match = xs[i]; result = addMutate(result, match[0], match[1]); } return result; } -var N; +let N; -var A; +let A; -var S; +let S; exports.N = N; exports.A = A; diff --git a/lib/js/belt_internalSetInt.js b/lib/js/belt_internalSetInt.js index c748c30f23..d69005a2ac 100644 --- a/lib/js/belt_internalSetInt.js +++ b/lib/js/belt_internalSetInt.js @@ -1,37 +1,37 @@ 'use strict'; -var Belt_SortArrayInt = require("./belt_SortArrayInt.js"); -var Belt_internalAVLset = require("./belt_internalAVLset.js"); +let Belt_SortArrayInt = require("./belt_SortArrayInt.js"); +let Belt_internalAVLset = require("./belt_internalAVLset.js"); function has(_t, x) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; + let v = t.v; if (x === v) { return true; } _t = x < v ? t.l : t.r; - continue ; + continue; }; } function compareAux(_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var k1 = h1.v; - var k2 = h2.v; + let h2 = e2.hd; + let h1 = e1.hd; + let k1 = h1.v; + let k2 = h2.v; if (k1 !== k2) { if (k1 < k2) { return -1; @@ -41,13 +41,13 @@ function compareAux(_e1, _e2) { } _e2 = Belt_internalAVLset.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLset.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmp(s1, s2) { - var len1 = Belt_internalAVLset.size(s1); - var len2 = Belt_internalAVLset.size(s2); + let len1 = Belt_internalAVLset.size(s1); + let len2 = Belt_internalAVLset.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLset.stackAllLeft(s1, /* [] */0), Belt_internalAVLset.stackAllLeft(s2, /* [] */0)); } else if (len1 < len2) { @@ -63,89 +63,89 @@ function eq(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; if (v1 === v2) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (v1 < v2) { if (!subset(Belt_internalAVLset.create(l1, v1, undefined), l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(Belt_internalAVLset.create(undefined, v1, r1), r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -153,12 +153,12 @@ function addMutate(t, x) { if (t === undefined) { return Belt_internalAVLset.singleton(x); } - var k = t.v; + let k = t.v; if (x === k) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { t.l = addMutate(l, x); } else { @@ -168,29 +168,29 @@ function addMutate(t, x) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArrayInt.strictlySortedLength(xs); - var result; + let next = Belt_SortArrayInt.strictlySortedLength(xs); + let result; if (next >= 0) { result = Belt_internalAVLset.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLset.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(result, xs[i]); } return result; } -var S; +let S; -var N; +let N; -var A; +let A; exports.S = S; exports.N = N; diff --git a/lib/js/belt_internalSetString.js b/lib/js/belt_internalSetString.js index 53b5370c76..f2736e5427 100644 --- a/lib/js/belt_internalSetString.js +++ b/lib/js/belt_internalSetString.js @@ -1,37 +1,37 @@ 'use strict'; -var Belt_internalAVLset = require("./belt_internalAVLset.js"); -var Belt_SortArrayString = require("./belt_SortArrayString.js"); +let Belt_internalAVLset = require("./belt_internalAVLset.js"); +let Belt_SortArrayString = require("./belt_SortArrayString.js"); function has(_t, x) { while(true) { - var t = _t; + let t = _t; if (t === undefined) { return false; } - var v = t.v; + let v = t.v; if (x === v) { return true; } _t = x < v ? t.l : t.r; - continue ; + continue; }; } function compareAux(_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (!e1) { return 0; } if (!e2) { return 0; } - var h2 = e2.hd; - var h1 = e1.hd; - var k1 = h1.v; - var k2 = h2.v; + let h2 = e2.hd; + let h1 = e1.hd; + let k1 = h1.v; + let k2 = h2.v; if (k1 !== k2) { if (k1 < k2) { return -1; @@ -41,13 +41,13 @@ function compareAux(_e1, _e2) { } _e2 = Belt_internalAVLset.stackAllLeft(h2.r, e2.tl); _e1 = Belt_internalAVLset.stackAllLeft(h1.r, e1.tl); - continue ; + continue; }; } function cmp(s1, s2) { - var len1 = Belt_internalAVLset.size(s1); - var len2 = Belt_internalAVLset.size(s2); + let len1 = Belt_internalAVLset.size(s1); + let len2 = Belt_internalAVLset.size(s2); if (len1 === len2) { return compareAux(Belt_internalAVLset.stackAllLeft(s1, /* [] */0), Belt_internalAVLset.stackAllLeft(s2, /* [] */0)); } else if (len1 < len2) { @@ -63,89 +63,89 @@ function eq(s1, s2) { function subset(_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (s1 === undefined) { return true; } if (s2 === undefined) { return false; } - var v1 = s1.v; - var l1 = s1.l; - var r1 = s1.r; - var v2 = s2.v; - var l2 = s2.l; - var r2 = s2.r; + let v1 = s1.v; + let l1 = s1.l; + let r1 = s1.r; + let v2 = s2.v; + let l2 = s2.l; + let r2 = s2.r; if (v1 === v2) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (v1 < v2) { if (!subset(Belt_internalAVLset.create(l1, v1, undefined), l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset(Belt_internalAVLset.create(undefined, v1, r1), r2)) { return false; } _s1 = l1; - continue ; + continue; }; } function get(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getUndefined(_n, x) { while(true) { - var n = _n; + let n = _n; if (n === undefined) { - return ; + return; } - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; }; } function getExn(_n, x) { while(true) { - var n = _n; + let n = _n; if (n !== undefined) { - var v = n.v; + let v = n.v; if (x === v) { return v; } _n = x < v ? n.l : n.r; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } @@ -153,12 +153,12 @@ function addMutate(t, x) { if (t === undefined) { return Belt_internalAVLset.singleton(x); } - var k = t.v; + let k = t.v; if (x === k) { return t; } - var l = t.l; - var r = t.r; + let l = t.l; + let r = t.r; if (x < k) { t.l = addMutate(l, x); } else { @@ -168,29 +168,29 @@ function addMutate(t, x) { } function fromArray(xs) { - var len = xs.length; + let len = xs.length; if (len === 0) { - return ; + return; } - var next = Belt_SortArrayString.strictlySortedLength(xs); - var result; + let next = Belt_SortArrayString.strictlySortedLength(xs); + let result; if (next >= 0) { result = Belt_internalAVLset.fromSortedArrayAux(xs, 0, next); } else { next = -next | 0; result = Belt_internalAVLset.fromSortedArrayRevAux(xs, next - 1 | 0, next); } - for(var i = next; i < len; ++i){ + for(let i = next; i < len; ++i){ result = addMutate(result, xs[i]); } return result; } -var S; +let S; -var N; +let N; -var A; +let A; exports.S = S; exports.N = N; diff --git a/lib/js/buffer.js b/lib/js/buffer.js index c28a5180c5..c1142a0832 100644 --- a/lib/js/buffer.js +++ b/lib/js/buffer.js @@ -1,20 +1,20 @@ 'use strict'; -var Bytes = require("./bytes.js"); -var Curry = require("./curry.js"); -var $$String = require("./string.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_string = require("./caml_string.js"); +let Bytes = require("./bytes.js"); +let Curry = require("./curry.js"); +let $$String = require("./string.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_string = require("./caml_string.js"); function create(n) { - var n$1 = n < 1 ? 1 : n; - var s = Caml_bytes.create(n$1); + let n$1 = n < 1 ? 1 : n; + let s = Caml_bytes.create(n$1); return { - buffer: s, - position: 0, - length: n$1, - initial_buffer: s - }; + buffer: s, + position: 0, + length: n$1, + initial_buffer: s + }; } function contents(b) { @@ -28,11 +28,11 @@ function to_bytes(b) { function sub(b, ofs, len) { if (ofs < 0 || len < 0 || ofs > (b.position - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.sub" + } + }); } return Bytes.sub_string(b.buffer, ofs, len); } @@ -40,11 +40,11 @@ function sub(b, ofs, len) { function blit(src, srcoff, dst, dstoff, len) { if (len < 0 || srcoff < 0 || srcoff > (src.position - len | 0) || dstoff < 0 || dstoff > (dst.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.blit" + } + }); } Bytes.blit(src.buffer, srcoff, dst, dstoff, len); } @@ -52,11 +52,11 @@ function blit(src, srcoff, dst, dstoff, len) { function nth(b, ofs) { if (ofs < 0 || ofs >= b.position) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.nth" + } + }); } return b.buffer[ofs]; } @@ -76,19 +76,19 @@ function reset(b) { } function resize(b, more) { - var len = b.length; - var new_len = len; + let len = b.length; + let new_len = len; while((b.position + more | 0) > new_len) { new_len = (new_len << 1); }; - var new_buffer = Caml_bytes.create(new_len); + let new_buffer = Caml_bytes.create(new_len); Bytes.blit(b.buffer, 0, new_buffer, 0, b.position); b.buffer = new_buffer; b.length = new_len; } function add_char(b, c) { - var pos = b.position; + let pos = b.position; if (pos >= b.length) { resize(b, 1); } @@ -97,34 +97,34 @@ function add_char(b, c) { } function add_utf_8_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 98, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 98, + 18 + ] + } + }); } if (u$1 <= 127) { return add_char(b, u$1); } if (u$1 <= 2047) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = 192 | (u$1 >>> 6); b.buffer[pos + 1 | 0] = 128 | u$1 & 63; b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 65535) { - var pos$1 = b.position; + let pos$1 = b.position; if ((pos$1 + 3 | 0) > b.length) { resize(b, 3); } @@ -132,10 +132,10 @@ function add_utf_8_uchar(b, u) { b.buffer[pos$1 + 1 | 0] = 128 | (u$1 >>> 6) & 63; b.buffer[pos$1 + 2 | 0] = 128 | u$1 & 63; b.position = pos$1 + 3 | 0; - return ; + return; } if (u$1 <= 1114111) { - var pos$2 = b.position; + let pos$2 = b.position; if ((pos$2 + 4 | 0) > b.length) { resize(b, 4); } @@ -144,49 +144,49 @@ function add_utf_8_uchar(b, u) { b.buffer[pos$2 + 2 | 0] = 128 | (u$1 >>> 6) & 63; b.buffer[pos$2 + 3 | 0] = 128 | u$1 & 63; b.position = pos$2 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 127, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 127, + 9 + ] + } + }); } function add_utf_16be_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 132, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 132, + 18 + ] + } + }); } if (u$1 <= 65535) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = (u$1 >>> 8); b.buffer[pos + 1 | 0] = u$1 & 255; b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 1114111) { - var u$p = u$1 - 65536 | 0; - var hi = 55296 | (u$p >>> 10); - var lo = 56320 | u$p & 1023; - var pos$1 = b.position; + let u$p = u$1 - 65536 | 0; + let hi = 55296 | (u$p >>> 10); + let lo = 56320 | u$p & 1023; + let pos$1 = b.position; if ((pos$1 + 4 | 0) > b.length) { resize(b, 4); } @@ -195,49 +195,49 @@ function add_utf_16be_uchar(b, u) { b.buffer[pos$1 + 2 | 0] = (lo >>> 8); b.buffer[pos$1 + 3 | 0] = lo & 255; b.position = pos$1 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 154, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 154, + 9 + ] + } + }); } function add_utf_16le_uchar(b, u) { - var u$1 = u; + let u$1 = u; if (u$1 < 0) { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 159, - 18 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 159, + 18 + ] + } + }); } if (u$1 <= 65535) { - var pos = b.position; + let pos = b.position; if ((pos + 2 | 0) > b.length) { resize(b, 2); } b.buffer[pos] = u$1 & 255; b.buffer[pos + 1 | 0] = (u$1 >>> 8); b.position = pos + 2 | 0; - return ; + return; } if (u$1 <= 1114111) { - var u$p = u$1 - 65536 | 0; - var hi = 55296 | (u$p >>> 10); - var lo = 56320 | u$p & 1023; - var pos$1 = b.position; + let u$p = u$1 - 65536 | 0; + let hi = 55296 | (u$p >>> 10); + let lo = 56320 | u$p & 1023; + let pos$1 = b.position; if ((pos$1 + 4 | 0) > b.length) { resize(b, 4); } @@ -246,30 +246,30 @@ function add_utf_16le_uchar(b, u) { b.buffer[pos$1 + 2 | 0] = lo & 255; b.buffer[pos$1 + 3 | 0] = (lo >>> 8); b.position = pos$1 + 4 | 0; - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 181, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 181, + 9 + ] + } + }); } function add_substring(b, s, offset, len) { if (offset < 0 || len < 0 || offset > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.add_substring/add_subbytes" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.add_substring/add_subbytes" + } + }); } - var new_position = b.position + len | 0; + let new_position = b.position + len | 0; if (new_position > b.length) { resize(b, len); } @@ -282,8 +282,8 @@ function add_subbytes(b, s, offset, len) { } function add_string(b, s) { - var len = s.length; - var new_position = b.position + len | 0; + let len = s.length; + let new_position = b.position + len | 0; if (new_position > b.length) { resize(b, len); } @@ -307,35 +307,35 @@ function closing(param) { return /* '}' */125; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "buffer.res", - 216, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "buffer.res", + 216, + 9 + ] + } + }); } function advance_to_closing(opening, closing, k, s, start) { - var _k = k; - var _i = start; - var lim = s.length; + let _k = k; + let _i = start; + let lim = s.length; while(true) { - var i = _i; - var k$1 = _k; + let i = _i; + let k$1 = _k; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (Caml_string.get(s, i) === opening) { _i = i + 1 | 0; _k = k$1 + 1 | 0; - continue ; + continue; } if (Caml_string.get(s, i) === closing) { if (k$1 === 0) { @@ -343,22 +343,22 @@ function advance_to_closing(opening, closing, k, s, start) { } _i = i + 1 | 0; _k = k$1 - 1 | 0; - continue ; + continue; } _i = i + 1 | 0; - continue ; + continue; }; } function advance_to_non_alpha(s, start) { - var _i = start; - var lim = s.length; + let _i = start; + let lim = s.length; while(true) { - var i = _i; + let i = _i; if (i >= lim) { return lim; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 91) { if (match >= 97) { if (match >= 123) { @@ -378,90 +378,90 @@ function advance_to_non_alpha(s, start) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function find_ident(s, start, lim) { if (start >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Caml_string.get(s, start); + let c = Caml_string.get(s, start); if (c !== 40 && c !== 123) { - var stop = advance_to_non_alpha(s, start + 1 | 0); + let stop = advance_to_non_alpha(s, start + 1 | 0); return [ - $$String.sub(s, start, stop - start | 0), - stop - ]; + $$String.sub(s, start, stop - start | 0), + stop + ]; } - var new_start = start + 1 | 0; - var stop$1 = advance_to_closing(c, closing(c), 0, s, new_start); + let new_start = start + 1 | 0; + let stop$1 = advance_to_closing(c, closing(c), 0, s, new_start); return [ - $$String.sub(s, new_start, (stop$1 - start | 0) - 1 | 0), - stop$1 + 1 | 0 - ]; + $$String.sub(s, new_start, (stop$1 - start | 0) - 1 | 0), + stop$1 + 1 | 0 + ]; } function add_substitute(b, f, s) { - var lim = s.length; - var _previous = /* ' ' */32; - var _i = 0; + let lim = s.length; + let _previous = /* ' ' */32; + let _i = 0; while(true) { - var i = _i; - var previous = _previous; + let i = _i; + let previous = _previous; if (i >= lim) { if (previous === /* '\\' */92) { return add_char(b, previous); } else { - return ; + return; } } - var current = Caml_string.get(s, i); + let current = Caml_string.get(s, i); if (current !== 36) { if (previous === /* '\\' */92) { add_char(b, /* '\\' */92); add_char(b, current); _i = i + 1 | 0; _previous = /* ' ' */32; - continue ; + continue; } if (current !== 92) { add_char(b, current); _i = i + 1 | 0; _previous = current; - continue ; + continue; } _i = i + 1 | 0; _previous = current; - continue ; + continue; } if (previous === /* '\\' */92) { add_char(b, current); _i = i + 1 | 0; _previous = /* ' ' */32; - continue ; + continue; } - var j = i + 1 | 0; - var match = find_ident(s, j, lim); + let j = i + 1 | 0; + let match = find_ident(s, j, lim); add_string(b, Curry._1(f, match[0])); _i = match[1]; _previous = /* ' ' */32; - continue ; + continue; }; } function truncate(b, len) { if (len < 0 || len > b.position) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Buffer.truncate" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Buffer.truncate" + } + }); } b.position = len; } diff --git a/lib/js/bytes.js b/lib/js/bytes.js index 7638516d3e..0a846043cd 100644 --- a/lib/js/bytes.js +++ b/lib/js/bytes.js @@ -1,96 +1,96 @@ 'use strict'; -var Caml = require("./caml.js"); -var Char = require("./char.js"); -var Curry = require("./curry.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Caml = require("./caml.js"); +let Char = require("./char.js"); +let Curry = require("./curry.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); function unsafe_fill(s, i, l, c) { if (l <= 0) { - return ; + return; } - for(var k = i ,k_finish = l + i | 0; k < k_finish; ++k){ + for(let k = i ,k_finish = l + i | 0; k < k_finish; ++k){ s[k] = c; } } function unsafe_blit(s1, i1, s2, i2, len) { if (len <= 0) { - return ; + return; } if (s1 === s2) { if (i1 < i2) { - var range_a = (s1.length - i2 | 0) - 1 | 0; - var range_b = len - 1 | 0; - var range = range_a > range_b ? range_b : range_a; - for(var j = range; j >= 0; --j){ + let range_a = (s1.length - i2 | 0) - 1 | 0; + let range_b = len - 1 | 0; + let range = range_a > range_b ? range_b : range_a; + for(let j = range; j >= 0; --j){ s1[i2 + j | 0] = s1[i1 + j | 0]; } - return ; + return; } if (i1 <= i2) { - return ; + return; } - var range_a$1 = (s1.length - i1 | 0) - 1 | 0; - var range_b$1 = len - 1 | 0; - var range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; - for(var k = 0; k <= range$1; ++k){ + let range_a$1 = (s1.length - i1 | 0) - 1 | 0; + let range_b$1 = len - 1 | 0; + let range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; + for(let k = 0; k <= range$1; ++k){ s1[i2 + k | 0] = s1[i1 + k | 0]; } - return ; + return; } - var off1 = s1.length - i1 | 0; + let off1 = s1.length - i1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[i2 + i | 0] = s1[i1 + i | 0]; } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[i2 + i$1 | 0] = s1[i1 + i$1 | 0]; } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[i2 + i$2 | 0] = /* '\000' */0; } } function make(n, c) { - var s = Caml_bytes.create(n); + let s = Caml_bytes.create(n); unsafe_fill(s, 0, n, c); return s; } function init(n, f) { - var s = Caml_bytes.create(n); - for(var i = 0; i < n; ++i){ + let s = Caml_bytes.create(n); + for(let i = 0; i < n; ++i){ s[i] = Curry._1(f, i); } return s; } -var empty = []; +let empty = []; function copy(s) { - var len = s.length; - var r = Caml_bytes.create(len); + let len = s.length; + let r = Caml_bytes.create(len); unsafe_blit(s, 0, r, 0, len); return r; } function to_string(a) { - var i = 0; - var len = a.length; - var s = ""; - var s_len = len; + let i = 0; + let len = a.length; + let s = ""; + let s_len = len; if (i === 0 && len <= 4096 && len === a.length) { return String.fromCharCode.apply(null, a); } - var offset = 0; + let offset = 0; while(s_len > 0) { - var next = s_len < 1024 ? s_len : 1024; - var tmp_bytes = new Array(next); - for(var k = 0; k < next; ++k){ + let next = s_len < 1024 ? s_len : 1024; + let tmp_bytes = new Array(next); + for(let k = 0; k < next; ++k){ tmp_bytes[k] = a[k + offset | 0]; } s = s + String.fromCharCode.apply(null, tmp_bytes); @@ -101,9 +101,9 @@ function to_string(a) { } function of_string(s) { - var len = s.length; - var res = new Array(len); - for(var i = 0; i < len; ++i){ + let len = s.length; + let res = new Array(len); + for(let i = 0; i < len; ++i){ res[i] = s.codePointAt(i); } return res; @@ -112,13 +112,13 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } - var r = Caml_bytes.create(len); + let r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); return r; } @@ -128,10 +128,10 @@ function sub_string(b, ofs, len) { } function $plus$plus(a, b) { - var c = a + b | 0; - var match = a < 0; - var match$1 = b < 0; - var match$2 = c < 0; + let c = a + b | 0; + let match = a < 0; + let match$1 = b < 0; + let match$2 = c < 0; if (match) { if (!match$1) { return c; @@ -140,39 +140,39 @@ function $plus$plus(a, b) { return c; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } function extend(s, left, right) { - var len = $plus$plus($plus$plus(s.length, left), right); - var r = Caml_bytes.create(len); - var match = left < 0 ? [ + let len = $plus$plus($plus$plus(s.length, left), right); + let r = Caml_bytes.create(len); + let match = left < 0 ? [ -left | 0, 0 ] : [ 0, left ]; - var dstoff = match[1]; - var srcoff = match[0]; - var cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); + let dstoff = match[1]; + let srcoff = match[0]; + let cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); if (cpylen > 0) { unsafe_blit(s, srcoff, r, dstoff, cpylen); } @@ -182,11 +182,11 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } @@ -194,11 +194,11 @@ function fill(s, ofs, len, c) { function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } @@ -206,38 +206,38 @@ function blit(s1, ofs1, s2, ofs2, len) { function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { - return ; + return; } - var off1 = s1.length - ofs1 | 0; + let off1 = s1.length - ofs1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[ofs2 + i | 0] = s1.codePointAt(ofs1 + i | 0); } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[ofs2 + i$1 | 0] = s1.codePointAt(ofs1 + i$1 | 0); } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[ofs2 + i$2 | 0] = /* '\000' */0; } } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } @@ -247,28 +247,28 @@ function ensure_ge(x, y) { return x; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { while(true) { - var param = _param; - var acc = _acc; + let param = _param; + let acc = _acc; if (!param) { return acc; } - var tl = param.tl; - var hd = param.hd; + let tl = param.tl; + let hd = param.hd; if (!tl) { return hd.length + acc | 0; } _param = tl; _acc = ensure_ge((hd.length + seplen | 0) + acc | 0, acc); - continue ; + continue; }; } @@ -276,24 +276,24 @@ function concat(sep, param) { if (!param) { return empty; } - var seplen = sep.length; - var dst = Caml_bytes.create(sum_lengths(0, seplen, param)); - var _pos = 0; - var _param = param; + let seplen = sep.length; + let dst = Caml_bytes.create(sum_lengths(0, seplen, param)); + let _pos = 0; + let _param = param; while(true) { - var param$1 = _param; - var pos = _pos; + let param$1 = _param; + let pos = _pos; if (!param$1) { return dst; } - var tl = param$1.tl; - var hd = param$1.hd; + let tl = param$1.tl; + let hd = param$1.hd; if (tl) { unsafe_blit(hd, 0, dst, pos, hd.length); unsafe_blit(sep, 0, dst, pos + hd.length | 0, seplen); _param = tl; _pos = (pos + hd.length | 0) + seplen | 0; - continue ; + continue; } unsafe_blit(hd, 0, dst, pos, hd.length); return dst; @@ -301,9 +301,9 @@ function concat(sep, param) { } function cat(s1, s2) { - var l1 = s1.length; - var l2 = s2.length; - var r = Caml_bytes.create(l1 + l2 | 0); + let l1 = s1.length; + let l2 = s2.length; + let r = Caml_bytes.create(l1 + l2 | 0); unsafe_blit(s1, 0, r, 0, l1); unsafe_blit(s2, 0, r, l1, l2); return r; @@ -318,12 +318,12 @@ function is_space(param) { } function trim(s) { - var len = s.length; - var i = 0; + let len = s.length; + let i = 0; while(i < len && is_space(s[i])) { i = i + 1 | 0; }; - var j = len - 1 | 0; + let j = len - 1 | 0; while(j >= i && is_space(s[j])) { j = j - 1 | 0; }; @@ -335,9 +335,9 @@ function trim(s) { } function escaped(s) { - var n = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var match = s[i]; + let n = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let match = s[i]; n = n + ( match >= 32 ? ( match > 92 || match < 34 ? ( @@ -357,11 +357,11 @@ function escaped(s) { if (n === s.length) { return copy(s); } - var s$p = Caml_bytes.create(n); + let s$p = Caml_bytes.create(n); n = 0; - for(var i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ - var c = s[i$1]; - var exit = 0; + for(let i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ + let c = s[i$1]; + let exit = 0; if (c >= 35) { if (c !== 92) { if (c >= 127) { @@ -440,24 +440,24 @@ function escaped(s) { } function map(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._1(f, s[i]); } return r; } function mapi(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._2(f, i, s[i]); } return r; @@ -475,7 +475,7 @@ function apply1(f, s) { if (s.length === 0) { return s; } - var r = copy(s); + let r = copy(s); r[0] = Curry._1(f, s[0]); return r; } @@ -490,19 +490,19 @@ function uncapitalize_ascii(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -512,15 +512,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -529,46 +529,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -579,26 +579,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -609,37 +609,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -650,34 +650,34 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var compare = Caml_bytes.bytes_compare; +let compare = Caml_bytes.bytes_compare; -var equal = Caml_bytes.bytes_equal; +let equal = Caml_bytes.bytes_equal; -var unsafe_to_string = to_string; +let unsafe_to_string = to_string; -var unsafe_of_string = of_string; +let unsafe_of_string = of_string; exports.make = make; exports.init = init; diff --git a/lib/js/bytesLabels.js b/lib/js/bytesLabels.js index 7638516d3e..0a846043cd 100644 --- a/lib/js/bytesLabels.js +++ b/lib/js/bytesLabels.js @@ -1,96 +1,96 @@ 'use strict'; -var Caml = require("./caml.js"); -var Char = require("./char.js"); -var Curry = require("./curry.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Caml = require("./caml.js"); +let Char = require("./char.js"); +let Curry = require("./curry.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); function unsafe_fill(s, i, l, c) { if (l <= 0) { - return ; + return; } - for(var k = i ,k_finish = l + i | 0; k < k_finish; ++k){ + for(let k = i ,k_finish = l + i | 0; k < k_finish; ++k){ s[k] = c; } } function unsafe_blit(s1, i1, s2, i2, len) { if (len <= 0) { - return ; + return; } if (s1 === s2) { if (i1 < i2) { - var range_a = (s1.length - i2 | 0) - 1 | 0; - var range_b = len - 1 | 0; - var range = range_a > range_b ? range_b : range_a; - for(var j = range; j >= 0; --j){ + let range_a = (s1.length - i2 | 0) - 1 | 0; + let range_b = len - 1 | 0; + let range = range_a > range_b ? range_b : range_a; + for(let j = range; j >= 0; --j){ s1[i2 + j | 0] = s1[i1 + j | 0]; } - return ; + return; } if (i1 <= i2) { - return ; + return; } - var range_a$1 = (s1.length - i1 | 0) - 1 | 0; - var range_b$1 = len - 1 | 0; - var range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; - for(var k = 0; k <= range$1; ++k){ + let range_a$1 = (s1.length - i1 | 0) - 1 | 0; + let range_b$1 = len - 1 | 0; + let range$1 = range_a$1 > range_b$1 ? range_b$1 : range_a$1; + for(let k = 0; k <= range$1; ++k){ s1[i2 + k | 0] = s1[i1 + k | 0]; } - return ; + return; } - var off1 = s1.length - i1 | 0; + let off1 = s1.length - i1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[i2 + i | 0] = s1[i1 + i | 0]; } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[i2 + i$1 | 0] = s1[i1 + i$1 | 0]; } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[i2 + i$2 | 0] = /* '\000' */0; } } function make(n, c) { - var s = Caml_bytes.create(n); + let s = Caml_bytes.create(n); unsafe_fill(s, 0, n, c); return s; } function init(n, f) { - var s = Caml_bytes.create(n); - for(var i = 0; i < n; ++i){ + let s = Caml_bytes.create(n); + for(let i = 0; i < n; ++i){ s[i] = Curry._1(f, i); } return s; } -var empty = []; +let empty = []; function copy(s) { - var len = s.length; - var r = Caml_bytes.create(len); + let len = s.length; + let r = Caml_bytes.create(len); unsafe_blit(s, 0, r, 0, len); return r; } function to_string(a) { - var i = 0; - var len = a.length; - var s = ""; - var s_len = len; + let i = 0; + let len = a.length; + let s = ""; + let s_len = len; if (i === 0 && len <= 4096 && len === a.length) { return String.fromCharCode.apply(null, a); } - var offset = 0; + let offset = 0; while(s_len > 0) { - var next = s_len < 1024 ? s_len : 1024; - var tmp_bytes = new Array(next); - for(var k = 0; k < next; ++k){ + let next = s_len < 1024 ? s_len : 1024; + let tmp_bytes = new Array(next); + for(let k = 0; k < next; ++k){ tmp_bytes[k] = a[k + offset | 0]; } s = s + String.fromCharCode.apply(null, tmp_bytes); @@ -101,9 +101,9 @@ function to_string(a) { } function of_string(s) { - var len = s.length; - var res = new Array(len); - for(var i = 0; i < len; ++i){ + let len = s.length; + let res = new Array(len); + for(let i = 0; i < len; ++i){ res[i] = s.codePointAt(i); } return res; @@ -112,13 +112,13 @@ function of_string(s) { function sub(s, ofs, len) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.sub / Bytes.sub" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.sub / Bytes.sub" + } + }); } - var r = Caml_bytes.create(len); + let r = Caml_bytes.create(len); unsafe_blit(s, ofs, r, 0, len); return r; } @@ -128,10 +128,10 @@ function sub_string(b, ofs, len) { } function $plus$plus(a, b) { - var c = a + b | 0; - var match = a < 0; - var match$1 = b < 0; - var match$2 = c < 0; + let c = a + b | 0; + let match = a < 0; + let match$1 = b < 0; + let match$2 = c < 0; if (match) { if (!match$1) { return c; @@ -140,39 +140,39 @@ function $plus$plus(a, b) { return c; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } if (match$1) { return c; } if (match$2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.extend" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.extend" + } + }); } return c; } function extend(s, left, right) { - var len = $plus$plus($plus$plus(s.length, left), right); - var r = Caml_bytes.create(len); - var match = left < 0 ? [ + let len = $plus$plus($plus$plus(s.length, left), right); + let r = Caml_bytes.create(len); + let match = left < 0 ? [ -left | 0, 0 ] : [ 0, left ]; - var dstoff = match[1]; - var srcoff = match[0]; - var cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); + let dstoff = match[1]; + let srcoff = match[0]; + let cpylen = Caml.int_min(s.length - srcoff | 0, len - dstoff | 0); if (cpylen > 0) { unsafe_blit(s, srcoff, r, dstoff, cpylen); } @@ -182,11 +182,11 @@ function extend(s, left, right) { function fill(s, ofs, len, c) { if (ofs < 0 || len < 0 || ofs > (s.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.fill / Bytes.fill" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.fill / Bytes.fill" + } + }); } unsafe_fill(s, ofs, len, c); } @@ -194,11 +194,11 @@ function fill(s, ofs, len, c) { function blit(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.blit" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.blit" + } + }); } unsafe_blit(s1, ofs1, s2, ofs2, len); } @@ -206,38 +206,38 @@ function blit(s1, ofs1, s2, ofs2, len) { function blit_string(s1, ofs1, s2, ofs2, len) { if (len < 0 || ofs1 < 0 || ofs1 > (s1.length - len | 0) || ofs2 < 0 || ofs2 > (s2.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.blit / Bytes.blit_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.blit / Bytes.blit_string" + } + }); } if (len <= 0) { - return ; + return; } - var off1 = s1.length - ofs1 | 0; + let off1 = s1.length - ofs1 | 0; if (len <= off1) { - for(var i = 0; i < len; ++i){ + for(let i = 0; i < len; ++i){ s2[ofs2 + i | 0] = s1.codePointAt(ofs1 + i | 0); } - return ; + return; } - for(var i$1 = 0; i$1 < off1; ++i$1){ + for(let i$1 = 0; i$1 < off1; ++i$1){ s2[ofs2 + i$1 | 0] = s1.codePointAt(ofs1 + i$1 | 0); } - for(var i$2 = off1; i$2 < len; ++i$2){ + for(let i$2 = off1; i$2 < len; ++i$2){ s2[ofs2 + i$2 | 0] = /* '\000' */0; } } function iter(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._1(f, a[i]); } } function iteri(f, a) { - for(var i = 0 ,i_finish = a.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = a.length; i < i_finish; ++i){ Curry._2(f, i, a[i]); } } @@ -247,28 +247,28 @@ function ensure_ge(x, y) { return x; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Bytes.concat" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Bytes.concat" + } + }); } function sum_lengths(_acc, seplen, _param) { while(true) { - var param = _param; - var acc = _acc; + let param = _param; + let acc = _acc; if (!param) { return acc; } - var tl = param.tl; - var hd = param.hd; + let tl = param.tl; + let hd = param.hd; if (!tl) { return hd.length + acc | 0; } _param = tl; _acc = ensure_ge((hd.length + seplen | 0) + acc | 0, acc); - continue ; + continue; }; } @@ -276,24 +276,24 @@ function concat(sep, param) { if (!param) { return empty; } - var seplen = sep.length; - var dst = Caml_bytes.create(sum_lengths(0, seplen, param)); - var _pos = 0; - var _param = param; + let seplen = sep.length; + let dst = Caml_bytes.create(sum_lengths(0, seplen, param)); + let _pos = 0; + let _param = param; while(true) { - var param$1 = _param; - var pos = _pos; + let param$1 = _param; + let pos = _pos; if (!param$1) { return dst; } - var tl = param$1.tl; - var hd = param$1.hd; + let tl = param$1.tl; + let hd = param$1.hd; if (tl) { unsafe_blit(hd, 0, dst, pos, hd.length); unsafe_blit(sep, 0, dst, pos + hd.length | 0, seplen); _param = tl; _pos = (pos + hd.length | 0) + seplen | 0; - continue ; + continue; } unsafe_blit(hd, 0, dst, pos, hd.length); return dst; @@ -301,9 +301,9 @@ function concat(sep, param) { } function cat(s1, s2) { - var l1 = s1.length; - var l2 = s2.length; - var r = Caml_bytes.create(l1 + l2 | 0); + let l1 = s1.length; + let l2 = s2.length; + let r = Caml_bytes.create(l1 + l2 | 0); unsafe_blit(s1, 0, r, 0, l1); unsafe_blit(s2, 0, r, l1, l2); return r; @@ -318,12 +318,12 @@ function is_space(param) { } function trim(s) { - var len = s.length; - var i = 0; + let len = s.length; + let i = 0; while(i < len && is_space(s[i])) { i = i + 1 | 0; }; - var j = len - 1 | 0; + let j = len - 1 | 0; while(j >= i && is_space(s[j])) { j = j - 1 | 0; }; @@ -335,9 +335,9 @@ function trim(s) { } function escaped(s) { - var n = 0; - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ - var match = s[i]; + let n = 0; + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ + let match = s[i]; n = n + ( match >= 32 ? ( match > 92 || match < 34 ? ( @@ -357,11 +357,11 @@ function escaped(s) { if (n === s.length) { return copy(s); } - var s$p = Caml_bytes.create(n); + let s$p = Caml_bytes.create(n); n = 0; - for(var i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ - var c = s[i$1]; - var exit = 0; + for(let i$1 = 0 ,i_finish$1 = s.length; i$1 < i_finish$1; ++i$1){ + let c = s[i$1]; + let exit = 0; if (c >= 35) { if (c !== 92) { if (c >= 127) { @@ -440,24 +440,24 @@ function escaped(s) { } function map(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._1(f, s[i]); } return r; } function mapi(f, s) { - var l = s.length; + let l = s.length; if (l === 0) { return s; } - var r = Caml_bytes.create(l); - for(var i = 0; i < l; ++i){ + let r = Caml_bytes.create(l); + for(let i = 0; i < l; ++i){ r[i] = Curry._2(f, i, s[i]); } return r; @@ -475,7 +475,7 @@ function apply1(f, s) { if (s.length === 0) { return s; } - var r = copy(s); + let r = copy(s); r[0] = Curry._1(f, s[0]); return r; } @@ -490,19 +490,19 @@ function uncapitalize_ascii(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -512,15 +512,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s[i] === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -529,46 +529,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -579,26 +579,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s[i] === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -609,37 +609,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -650,34 +650,34 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } -var compare = Caml_bytes.bytes_compare; +let compare = Caml_bytes.bytes_compare; -var equal = Caml_bytes.bytes_equal; +let equal = Caml_bytes.bytes_equal; -var unsafe_to_string = to_string; +let unsafe_to_string = to_string; -var unsafe_of_string = of_string; +let unsafe_of_string = of_string; exports.make = make; exports.init = init; diff --git a/lib/js/caml_array.js b/lib/js/caml_array.js index 5041d9cf2a..b883e460b7 100644 --- a/lib/js/caml_array.js +++ b/lib/js/caml_array.js @@ -2,9 +2,9 @@ function sub(x, offset, len) { - var result = new Array(len); - var j = 0; - var i = offset; + let result = new Array(len); + let j = 0; + let i = offset; while(j < len) { result[j] = x[i]; j = j + 1 | 0; @@ -15,28 +15,28 @@ function sub(x, offset, len) { function len(_acc, _l) { while(true) { - var l = _l; - var acc = _acc; + let l = _l; + let acc = _acc; if (!l) { return acc; } _l = l.tl; _acc = l.hd.length + acc | 0; - continue ; + continue; }; } function fill(arr, _i, _l) { while(true) { - var l = _l; - var i = _i; + let l = _l; + let i = _i; if (!l) { - return ; + return; } - var x = l.hd; - var l$1 = x.length; - var k = i; - var j = 0; + let x = l.hd; + let l$1 = x.length; + let k = i; + let j = 0; while(j < l$1) { arr[k] = x[j]; k = k + 1 | 0; @@ -44,13 +44,13 @@ function fill(arr, _i, _l) { }; _l = l.tl; _i = k; - continue ; + continue; }; } function concat(l) { - var v = len(0, l); - var result = new Array(v); + let v = len(0, l); + let result = new Array(v); fill(result, 0, l); return result; } @@ -58,11 +58,11 @@ function concat(l) { function set(xs, index, newval) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } xs[index] = newval; } @@ -70,26 +70,26 @@ function set(xs, index, newval) { function get(xs, index) { if (index < 0 || index >= xs.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return xs[index]; } function make(len, init) { - var b = new Array(len); - for(var i = 0; i < len; ++i){ + let b = new Array(len); + for(let i = 0; i < len; ++i){ b[i] = init; } return b; } function make_float(len) { - var b = new Array(len); - for(var i = 0; i < len; ++i){ + let b = new Array(len); + for(let i = 0; i < len; ++i){ b[i] = 0; } return b; @@ -97,12 +97,12 @@ function make_float(len) { function blit(a1, i1, a2, i2, len) { if (i2 <= i1) { - for(var j = 0; j < len; ++j){ + for(let j = 0; j < len; ++j){ a2[j + i2 | 0] = a1[j + i1 | 0]; } - return ; + return; } - for(var j$1 = len - 1 | 0; j$1 >= 0; --j$1){ + for(let j$1 = len - 1 | 0; j$1 >= 0; --j$1){ a2[j$1 + i2 | 0] = a1[j$1 + i1 | 0]; } } diff --git a/lib/js/caml_bigint.js b/lib/js/caml_bigint.js index b6031d5ed0..9e185af4b8 100644 --- a/lib/js/caml_bigint.js +++ b/lib/js/caml_bigint.js @@ -3,20 +3,22 @@ function div(x, y) { if (y === 0n) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y; } function mod_(x, y) { if (y === 0n) { - throw { - RE_EXN_ID: "Division_by_zero", - Error: new Error() - }; + throw new Error("Division_by_zero", { + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } diff --git a/lib/js/caml_bytes.js b/lib/js/caml_bytes.js index 03acd489a3..2cf9ece0c7 100644 --- a/lib/js/caml_bytes.js +++ b/lib/js/caml_bytes.js @@ -4,11 +4,11 @@ function set(s, i, ch) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } s[i] = ch; } @@ -16,11 +16,11 @@ function set(s, i, ch) { function get(s, i) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s[i]; } @@ -28,14 +28,14 @@ function get(s, i) { function create(len) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.create" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.create" + } + }); } - var result = new Array(len); - for(var i = 0; i < len; ++i){ + let result = new Array(len); + for(let i = 0; i < len; ++i){ result[i] = /* '\000' */0; } return result; @@ -43,12 +43,12 @@ function create(len) { function bytes_compare_aux(s1, s2, _off, len, def) { while(true) { - var off = _off; + let off = _off; if (off >= len) { return def; } - var a = s1[off]; - var b = s2[off]; + let a = s1[off]; + let b = s2[off]; if (a > b) { return 1; } @@ -56,13 +56,13 @@ function bytes_compare_aux(s1, s2, _off, len, def) { return -1; } _off = off + 1 | 0; - continue ; + continue; }; } function bytes_compare(s1, s2) { - var len1 = s1.length; - var len2 = s2.length; + let len1 = s1.length; + let len2 = s2.length; if (len1 === len2) { return bytes_compare_aux(s1, s2, 0, len1, 0); } else if (len1 < len2) { @@ -73,22 +73,22 @@ function bytes_compare(s1, s2) { } function bytes_equal(s1, s2) { - var len1 = s1.length; - var len2 = s2.length; + let len1 = s1.length; + let len2 = s2.length; if (len1 === len2) { - var _off = 0; + let _off = 0; while(true) { - var off = _off; + let off = _off; if (off === len1) { return true; } - var a = s1[off]; - var b = s2[off]; + let a = s1[off]; + let b = s2[off]; if (a !== b) { return false; } _off = off + 1 | 0; - continue ; + continue; }; } else { return false; diff --git a/lib/js/caml_format.js b/lib/js/caml_format.js index 6cf0cb7533..860ae7ca0f 100644 --- a/lib/js/caml_format.js +++ b/lib/js/caml_format.js @@ -1,7 +1,7 @@ 'use strict'; -var Caml = require("./caml.js"); -var Caml_int64 = require("./caml_int64.js"); +let Caml = require("./caml.js"); +let Caml_int64 = require("./caml_int64.js"); function parse_digit(c) { if (c >= 65) { @@ -38,10 +38,10 @@ function int_of_string_base(param) { } function parse_sign_and_base(s) { - var sign = 1; - var base = "Dec"; - var i = 0; - var match = s.codePointAt(i); + let sign = 1; + let base = "Dec"; + let i = 0; + let match = s.codePointAt(i); switch (match) { case 43 : i = i + 1 | 0; @@ -54,7 +54,7 @@ function parse_sign_and_base(s) { } if (s.codePointAt(i) === /* '0' */48) { - var match$1 = s.codePointAt(i + 1 | 0); + let match$1 = s.codePointAt(i + 1 | 0); if (match$1 >= 89) { if (match$1 >= 111) { if (match$1 < 121) { @@ -119,83 +119,83 @@ function parse_sign_and_base(s) { } } return [ - i, - sign, - base - ]; + i, + sign, + base + ]; } function int_of_string(s) { - var match = parse_sign_and_base(s); - var i = match[0]; - var base = int_of_string_base(match[2]); - var threshold = 4294967295; - var len = s.length; - var c = i < len ? s.codePointAt(i) : /* '\000' */0; - var d = parse_digit(c); + let match = parse_sign_and_base(s); + let i = match[0]; + let base = int_of_string_base(match[2]); + let threshold = 4294967295; + let len = s.length; + let c = i < len ? s.codePointAt(i) : /* '\000' */0; + let d = parse_digit(c); if (d < 0 || d >= base) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } - var aux = function (_acc, _k) { + let aux = function (_acc, _k) { while(true) { - var k = _k; - var acc = _acc; + let k = _k; + let acc = _acc; if (k === len) { return acc; } - var a = s.codePointAt(k); + let a = s.codePointAt(k); if (a === /* '_' */95) { _k = k + 1 | 0; - continue ; + continue; } - var v = parse_digit(a); + let v = parse_digit(a); if (v < 0 || v >= base) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } - var acc$1 = base * acc + v; + let acc$1 = base * acc + v; if (acc$1 > threshold) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } _k = k + 1 | 0; _acc = acc$1; - continue ; + continue; }; }; - var res = match[1] * aux(d, i + 1 | 0); - var or_res = res | 0; + let res = match[1] * aux(d, i + 1 | 0); + let or_res = res | 0; if (base === 10 && res !== or_res) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int_of_string" + } + }); } return or_res; } function int64_of_string(s) { - var match = parse_sign_and_base(s); - var hbase = match[2]; - var i = match[0]; - var base = Caml_int64.of_int32(int_of_string_base(hbase)); - var sign = Caml_int64.of_int32(match[1]); - var threshold; + let match = parse_sign_and_base(s); + let hbase = match[2]; + let i = match[0]; + let base = Caml_int64.of_int32(int_of_string_base(hbase)); + let sign = Caml_int64.of_int32(match[1]); + let threshold; switch (hbase) { case "Oct" : threshold = [ @@ -220,56 +220,56 @@ function int64_of_string(s) { break; } - var len = s.length; - var c = i < len ? s.codePointAt(i) : /* '\000' */0; - var d = Caml_int64.of_int32(parse_digit(c)); + let len = s.length; + let c = i < len ? s.codePointAt(i) : /* '\000' */0; + let d = Caml_int64.of_int32(parse_digit(c)); if (Caml.i64_lt(d, Caml_int64.zero) || Caml.i64_ge(d, base)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } - var aux = function (_acc, _k) { + let aux = function (_acc, _k) { while(true) { - var k = _k; - var acc = _acc; + let k = _k; + let acc = _acc; if (k === len) { return acc; } - var a = s.codePointAt(k); + let a = s.codePointAt(k); if (a === /* '_' */95) { _k = k + 1 | 0; - continue ; + continue; } - var v = Caml_int64.of_int32(parse_digit(a)); + let v = Caml_int64.of_int32(parse_digit(a)); if (Caml.i64_lt(v, Caml_int64.zero) || Caml.i64_ge(v, base) || Caml.i64_gt(acc, threshold)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } - var acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); + let acc$1 = Caml_int64.add(Caml_int64.mul(base, acc), v); _k = k + 1 | 0; _acc = acc$1; - continue ; + continue; }; }; - var res = Caml_int64.mul(sign, aux(d, i + 1 | 0)); - var or_res = Caml_int64.or_(res, Caml_int64.zero); + let res = Caml_int64.mul(sign, aux(d, i + 1 | 0)); + let or_res = Caml_int64.or_(res, Caml_int64.zero); if (Caml.i64_eq(base, [ - 0, - 10 - ]) && Caml.i64_neq(res, or_res)) { + 0, + 10 + ]) && Caml.i64_neq(res, or_res)) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "int64_of_string" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "int64_of_string" + } + }); } return or_res; } @@ -295,16 +295,16 @@ function lowercase(c) { } function parse_format(fmt) { - var len = fmt.length; + let len = fmt.length; if (len > 31) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "format_int: format too long" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "format_int: format too long" + } + }); } - var f = { + let f = { justify: "+", signstyle: "-", filter: " ", @@ -317,14 +317,14 @@ function parse_format(fmt) { prec: -1, conv: "f" }; - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= len) { return f; } - var c = fmt.codePointAt(i); - var exit = 0; + let c = fmt.codePointAt(i); + let exit = 0; if (c >= 69) { if (c >= 88) { if (c >= 121) { @@ -335,7 +335,7 @@ function parse_format(fmt) { f.base = "Hex"; f.uppercase = true; _i = i + 1 | 0; - continue ; + continue; case 101 : case 102 : case 103 : @@ -348,11 +348,11 @@ function parse_format(fmt) { case 111 : f.base = "Oct"; _i = i + 1 | 0; - continue ; + continue; case 117 : f.base = "Dec"; _i = i + 1 | 0; - continue ; + continue; case 89 : case 90 : case 91 : @@ -382,7 +382,7 @@ function parse_format(fmt) { case 120 : f.base = "Hex"; _i = i + 1 | 0; - continue ; + continue; } } @@ -393,14 +393,14 @@ function parse_format(fmt) { f.uppercase = true; f.conv = String.fromCharCode(lowercase(c)); _i = i + 1 | 0; - continue ; + continue; } } else { switch (c) { case 35 : f.alternate = true; _i = i + 1 | 0; - continue ; + continue; case 32 : case 43 : exit = 2; @@ -408,25 +408,23 @@ function parse_format(fmt) { case 45 : f.justify = "-"; _i = i + 1 | 0; - continue ; + continue; case 46 : f.prec = 0; - var j = i + 1 | 0; - while((function(j){ - return function () { - var w = fmt.codePointAt(j) - /* '0' */48 | 0; - return w >= 0 && w <= 9; - } - }(j))()) { + let j = i + 1 | 0; + while((function () { + let w = fmt.codePointAt(j) - /* '0' */48 | 0; + return w >= 0 && w <= 9; + })()) { f.prec = (Math.imul(f.prec, 10) + fmt.codePointAt(j) | 0) - /* '0' */48 | 0; j = j + 1 | 0; }; _i = j; - continue ; + continue; case 48 : f.filter = "0"; _i = i + 1 | 0; - continue ; + continue; case 49 : case 50 : case 51 : @@ -445,51 +443,49 @@ function parse_format(fmt) { switch (exit) { case 1 : _i = i + 1 | 0; - continue ; + continue; case 2 : f.signstyle = String.fromCharCode(c); _i = i + 1 | 0; - continue ; + continue; case 3 : f.width = 0; - var j$1 = i; - while((function(j$1){ - return function () { - var w = fmt.codePointAt(j$1) - /* '0' */48 | 0; - return w >= 0 && w <= 9; - } - }(j$1))()) { + let j$1 = i; + while((function () { + let w = fmt.codePointAt(j$1) - /* '0' */48 | 0; + return w >= 0 && w <= 9; + })()) { f.width = (Math.imul(f.width, 10) + fmt.codePointAt(j$1) | 0) - /* '0' */48 | 0; j$1 = j$1 + 1 | 0; }; _i = j$1; - continue ; + continue; case 4 : f.signedconv = true; f.base = "Dec"; _i = i + 1 | 0; - continue ; + continue; case 5 : f.signedconv = true; f.conv = String.fromCharCode(c); _i = i + 1 | 0; - continue ; + continue; } }; } function finish_formatting(config, rawbuffer) { - var justify = config.justify; - var signstyle = config.signstyle; - var filter = config.filter; - var alternate = config.alternate; - var base = config.base; - var signedconv = config.signedconv; - var width = config.width; - var uppercase = config.uppercase; - var sign = config.sign; - var len = rawbuffer.length; + let justify = config.justify; + let signstyle = config.signstyle; + let filter = config.filter; + let alternate = config.alternate; + let base = config.base; + let signedconv = config.signedconv; + let width = config.width; + let uppercase = config.uppercase; + let sign = config.sign; + let len = rawbuffer.length; if (signedconv && (sign < 0 || signstyle !== "-")) { len = len + 1 | 0; } @@ -501,9 +497,9 @@ function finish_formatting(config, rawbuffer) { } } - var buffer = ""; + let buffer = ""; if (justify === "+" && filter === " ") { - for(var _for = len; _for < width; ++_for){ + for(let _for = len; _for < width; ++_for){ buffer = buffer + filter; } } @@ -522,13 +518,13 @@ function finish_formatting(config, rawbuffer) { buffer = buffer + "0x"; } if (justify === "+" && filter === "0") { - for(var _for$1 = len; _for$1 < width; ++_for$1){ + for(let _for$1 = len; _for$1 < width; ++_for$1){ buffer = buffer + filter; } } buffer = uppercase ? buffer + rawbuffer.toUpperCase() : buffer + rawbuffer; if (justify === "-") { - for(var _for$2 = len; _for$2 < width; ++_for$2){ + for(let _for$2 = len; _for$2 < width; ++_for$2){ buffer = buffer + " "; } } @@ -539,14 +535,14 @@ function format_int(fmt, i) { if (fmt === "%d") { return String(i); } - var f = parse_format(fmt); - var i$1 = i < 0 ? ( + let f = parse_format(fmt); + let i$1 = i < 0 ? ( f.signedconv ? (f.sign = -1, (-i >>> 0)) : (i >>> 0) ) : i; - var s = i$1.toString(int_of_base(f.base)); + let s = i$1.toString(int_of_base(f.base)); if (f.prec >= 0) { f.filter = " "; - var n = f.prec - s.length | 0; + let n = f.prec - s.length | 0; if (n > 0) { s = "0".repeat(n) + s; } @@ -559,52 +555,52 @@ function dec_of_pos_int64(x) { if (!Caml.i64_lt(x, Caml_int64.zero)) { return Caml_int64.to_string(x); } - var wbase = [ + let wbase = [ 0, 10 ]; - var y = Caml_int64.discard_sign(x); - var match = Caml_int64.div_mod(y, wbase); - var match$1 = Caml_int64.div_mod(Caml_int64.add([ - 0, - 8 - ], match[1]), wbase); - var quotient = Caml_int64.add(Caml_int64.add([ - 214748364, - 3435973836 - ], match[0]), match$1[0]); + let y = Caml_int64.discard_sign(x); + let match = Caml_int64.div_mod(y, wbase); + let match$1 = Caml_int64.div_mod(Caml_int64.add([ + 0, + 8 + ], match[1]), wbase); + let quotient = Caml_int64.add(Caml_int64.add([ + 214748364, + 3435973836 + ], match[0]), match$1[0]); return Caml_int64.to_string(quotient) + "0123456789"[Caml_int64.to_int32(match$1[1])]; } function oct_of_int64(x) { - var s = ""; - var wbase = [ + let s = ""; + let wbase = [ 0, 8 ]; - var cvtbl = "01234567"; + let cvtbl = "01234567"; if (Caml.i64_lt(x, Caml_int64.zero)) { - var y = Caml_int64.discard_sign(x); - var match = Caml_int64.div_mod(y, wbase); - var quotient = Caml_int64.add([ - 268435456, - 0 - ], match[0]); - var modulus = match[1]; + let y = Caml_int64.discard_sign(x); + let match = Caml_int64.div_mod(y, wbase); + let quotient = Caml_int64.add([ + 268435456, + 0 + ], match[0]); + let modulus = match[1]; s = cvtbl[Caml_int64.to_int32(modulus)] + s; while(Caml.i64_neq(quotient, Caml_int64.zero)) { - var match$1 = Caml_int64.div_mod(quotient, wbase); + let match$1 = Caml_int64.div_mod(quotient, wbase); quotient = match$1[0]; modulus = match$1[1]; s = cvtbl[Caml_int64.to_int32(modulus)] + s; }; } else { - var match$2 = Caml_int64.div_mod(x, wbase); - var quotient$1 = match$2[0]; - var modulus$1 = match$2[1]; + let match$2 = Caml_int64.div_mod(x, wbase); + let quotient$1 = match$2[0]; + let modulus$1 = match$2[1]; s = cvtbl[Caml_int64.to_int32(modulus$1)] + s; while(Caml.i64_neq(quotient$1, Caml_int64.zero)) { - var match$3 = Caml_int64.div_mod(quotient$1, wbase); + let match$3 = Caml_int64.div_mod(quotient$1, wbase); quotient$1 = match$3[0]; modulus$1 = match$3[1]; s = cvtbl[Caml_int64.to_int32(modulus$1)] + s; @@ -617,10 +613,10 @@ function int64_format(fmt, x) { if (fmt === "%d") { return Caml_int64.to_string(x); } - var f = parse_format(fmt); - var x$1 = f.signedconv && Caml.i64_lt(x, Caml_int64.zero) ? (f.sign = -1, Caml_int64.neg(x)) : x; - var match = f.base; - var s; + let f = parse_format(fmt); + let x$1 = f.signedconv && Caml.i64_lt(x, Caml_int64.zero) ? (f.sign = -1, Caml_int64.neg(x)) : x; + let match = f.base; + let s; switch (match) { case "Oct" : s = oct_of_int64(x$1); @@ -633,10 +629,10 @@ function int64_format(fmt, x) { break; } - var fill_s; + let fill_s; if (f.prec >= 0) { f.filter = " "; - var n = f.prec - s.length | 0; + let n = f.prec - s.length | 0; fill_s = n > 0 ? "0".repeat(n) + s : s; } else { fill_s = s; @@ -645,19 +641,19 @@ function int64_format(fmt, x) { } function format_float(fmt, x) { - var f = parse_format(fmt); - var prec = f.prec < 0 ? 6 : f.prec; - var x$1 = x < 0 ? (f.sign = -1, - x) : x; - var s = ""; + let f = parse_format(fmt); + let prec = f.prec < 0 ? 6 : f.prec; + let x$1 = x < 0 ? (f.sign = -1, - x) : x; + let s = ""; if (isNaN(x$1)) { s = "nan"; f.filter = " "; } else if (isFinite(x$1)) { - var match = f.conv; + let match = f.conv; switch (match) { case "e" : s = x$1.toExponential(prec); - var i = s.length; + let i = s.length; if (s.codePointAt(i - 3 | 0) === /* 'e' */101) { s = s.slice(0, i - 1 | 0) + ("0" + s.slice(i - 1 | 0)); } @@ -666,12 +662,12 @@ function format_float(fmt, x) { s = x$1.toFixed(prec); break; case "g" : - var prec$1 = prec !== 0 ? prec : 1; + let prec$1 = prec !== 0 ? prec : 1; s = x$1.toExponential(prec$1 - 1 | 0); - var j = s.indexOf("e"); - var exp = Number(s.slice(j + 1 | 0)) | 0; + let j = s.indexOf("e"); + let exp = Number(s.slice(j + 1 | 0)) | 0; if (exp < -4 || x$1 >= 1e21 || x$1.toFixed().length > prec$1) { - var i$1 = j - 1 | 0; + let i$1 = j - 1 | 0; while(s.codePointAt(i$1) === /* '0' */48) { i$1 = i$1 - 1 | 0; }; @@ -679,26 +675,26 @@ function format_float(fmt, x) { i$1 = i$1 - 1 | 0; } s = s.slice(0, i$1 + 1 | 0) + s.slice(j); - var i$2 = s.length; + let i$2 = s.length; if (s.codePointAt(i$2 - 3 | 0) === /* 'e' */101) { s = s.slice(0, i$2 - 1 | 0) + ("0" + s.slice(i$2 - 1 | 0)); } } else { - var p = prec$1; + let p = prec$1; if (exp < 0) { p = p - (exp + 1 | 0) | 0; s = x$1.toFixed(p); } else { while((function () { - s = x$1.toFixed(p); - return s.length > (prec$1 + 1 | 0); - })()) { + s = x$1.toFixed(p); + return s.length > (prec$1 + 1 | 0); + })()) { p = p - 1 | 0; }; } if (p !== 0) { - var k = s.length - 1 | 0; + let k = s.length - 1 | 0; while(s.codePointAt(k) === /* '0' */48) { k = k - 1 | 0; }; @@ -720,7 +716,7 @@ function format_float(fmt, x) { return finish_formatting(f, s); } -var hexstring_of_float = (function(x,prec,style){ +let hexstring_of_float = (function(x,prec,style){ if (!isFinite(x)) { if (isNaN(x)) return "nan"; return x > 0 ? "infinity":"-infinity"; @@ -766,7 +762,7 @@ var hexstring_of_float = (function(x,prec,style){ return (sign_str + '0x' + x_str + 'p' + exp_sign + exp.toString(10)); }); -var float_of_string = (function(s,exn){ +let float_of_string = (function(s,exn){ var res = +s; if ((s.length > 0) && (res === res)) @@ -794,9 +790,9 @@ var float_of_string = (function(s,exn){ function float_of_string$1(s) { return float_of_string(s, { - RE_EXN_ID: "Failure", - _1: "float_of_string" - }); + RE_EXN_ID: "Failure", + _1: "float_of_string" + }); } exports.format_float = format_float; diff --git a/lib/js/caml_int32.js b/lib/js/caml_int32.js index 7afbed7b24..4c5418e3e9 100644 --- a/lib/js/caml_int32.js +++ b/lib/js/caml_int32.js @@ -4,10 +4,10 @@ function div(x, y) { if (y === 0) { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x / y | 0; } @@ -15,10 +15,10 @@ function div(x, y) { function mod_(x, y) { if (y === 0) { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } return x % y; } diff --git a/lib/js/caml_int64.js b/lib/js/caml_int64.js index cd4c1c1003..cd9c2c79b5 100644 --- a/lib/js/caml_int64.js +++ b/lib/js/caml_int64.js @@ -1,35 +1,35 @@ 'use strict'; -var Caml = require("./caml.js"); +let Caml = require("./caml.js"); function mk(lo, hi) { return [ - hi, - (lo >>> 0) - ]; + hi, + (lo >>> 0) + ]; } -var min_int = [ +let min_int = [ -2147483648, 0 ]; -var max_int = [ +let max_int = [ 2147483647, 4294967295 ]; -var one = [ +let one = [ 0, 1 ]; -var zero = [ +let zero = [ 0, 0 ]; -var neg_one = [ +let neg_one = [ -1, 4294967295 ]; @@ -43,35 +43,35 @@ function non_neg_signed(x) { } function succ(param) { - var x_lo = param[1]; - var x_hi = param[0]; - var lo = x_lo + 1 | 0; + let x_lo = param[1]; + let x_hi = param[0]; + let lo = x_lo + 1 | 0; return [ - x_hi + ( - lo === 0 ? 1 : 0 - ) | 0, - (lo >>> 0) - ]; + x_hi + ( + lo === 0 ? 1 : 0 + ) | 0, + (lo >>> 0) + ]; } function neg(param) { - var other_lo = (param[1] ^ -1) + 1 | 0; + let other_lo = (param[1] ^ -1) + 1 | 0; return [ - (param[0] ^ -1) + ( - other_lo === 0 ? 1 : 0 - ) | 0, - (other_lo >>> 0) - ]; + (param[0] ^ -1) + ( + other_lo === 0 ? 1 : 0 + ) | 0, + (other_lo >>> 0) + ]; } function add_aux(param, y_lo, y_hi) { - var x_lo = param[1]; - var lo = x_lo + y_lo | 0; - var overflow = neg_signed(x_lo) && (neg_signed(y_lo) || non_neg_signed(lo)) || neg_signed(y_lo) && non_neg_signed(lo) ? 1 : 0; + let x_lo = param[1]; + let lo = x_lo + y_lo | 0; + let overflow = neg_signed(x_lo) && (neg_signed(y_lo) || non_neg_signed(lo)) || neg_signed(y_lo) && non_neg_signed(lo) ? 1 : 0; return [ - param[0] + y_hi + overflow | 0, - (lo >>> 0) - ]; + param[0] + y_hi + overflow | 0, + (lo >>> 0) + ]; } function add(self, param) { @@ -111,8 +111,8 @@ function equal_nullable(x, y) { } function sub_aux(x, lo, hi) { - var y_lo = ((lo ^ -1) + 1 >>> 0); - var y_hi = (hi ^ -1) + ( + let y_lo = ((lo ^ -1) + 1 >>> 0); + let y_hi = (hi ^ -1) + ( y_lo === 0 ? 1 : 0 ) | 0; return add_aux(x, y_lo, y_hi); @@ -126,17 +126,17 @@ function lsl_(x, numBits) { if (numBits === 0) { return x; } - var lo = x[1]; + let lo = x[1]; if (numBits >= 32) { return [ - (lo << (numBits - 32 | 0)), - 0 - ]; + (lo << (numBits - 32 | 0)), + 0 + ]; } else { return [ - (lo >>> (32 - numBits | 0)) | (x[0] << numBits), - ((lo << numBits) >>> 0) - ]; + (lo >>> (32 - numBits | 0)) | (x[0] << numBits), + ((lo << numBits) >>> 0) + ]; } } @@ -144,23 +144,23 @@ function lsr_(x, numBits) { if (numBits === 0) { return x; } - var hi = x[0]; - var offset = numBits - 32 | 0; + let hi = x[0]; + let offset = numBits - 32 | 0; if (offset === 0) { return [ - 0, - (hi >>> 0) - ]; + 0, + (hi >>> 0) + ]; } else if (offset > 0) { return [ - 0, - (hi >>> offset) - ]; + 0, + (hi >>> offset) + ]; } else { return [ - (hi >>> numBits), - (((hi << (-offset | 0)) | (x[1] >>> numBits)) >>> 0) - ]; + (hi >>> numBits), + (((hi << (-offset | 0)) | (x[1] >>> numBits)) >>> 0) + ]; } } @@ -168,17 +168,17 @@ function asr_(x, numBits) { if (numBits === 0) { return x; } - var hi = x[0]; + let hi = x[0]; if (numBits < 32) { return [ - (hi >> numBits), - (((hi << (32 - numBits | 0)) | (x[1] >>> numBits)) >>> 0) - ]; + (hi >> numBits), + (((hi << (32 - numBits | 0)) | (x[1] >>> numBits)) >>> 0) + ]; } else { return [ - hi >= 0 ? 0 : -1, - ((hi >> (numBits - 32 | 0)) >>> 0) - ]; + hi >= 0 ? 0 : -1, + ((hi >> (numBits - 32 | 0)) >>> 0) + ]; } } @@ -192,13 +192,13 @@ function is_zero(x) { function mul(_this, _other) { while(true) { - var other = _other; - var $$this = _this; - var lo; - var this_hi = $$this[0]; - var exit = 0; - var exit$1 = 0; - var exit$2 = 0; + let other = _other; + let $$this = _this; + let lo; + let this_hi = $$this[0]; + let exit = 0; + let exit$1 = 0; + let exit$2 = 0; if (this_hi !== 0) { exit$2 = 4; } else { @@ -225,39 +225,39 @@ function mul(_this, _other) { } } if (exit === 2) { - var other_hi = other[0]; - var lo$1 = $$this[1]; - var exit$3 = 0; + let other_hi = other[0]; + let lo$1 = $$this[1]; + let exit$3 = 0; if (other_hi !== -2147483648 || other[1] !== 0) { exit$3 = 3; } else { lo = lo$1; } if (exit$3 === 3) { - var other_lo = other[1]; + let other_lo = other[1]; if (this_hi < 0) { if (other_hi >= 0) { return neg(mul(neg($$this), other)); } _other = neg(other); _this = neg($$this); - continue ; + continue; } if (other_hi < 0) { return neg(mul($$this, neg(other))); } - var a48 = (this_hi >>> 16); - var a32 = this_hi & 65535; - var a16 = (lo$1 >>> 16); - var a00 = lo$1 & 65535; - var b48 = (other_hi >>> 16); - var b32 = other_hi & 65535; - var b16 = (other_lo >>> 16); - var b00 = other_lo & 65535; - var c48 = 0; - var c32 = 0; - var c16 = 0; - var c00 = a00 * b00; + let a48 = (this_hi >>> 16); + let a32 = this_hi & 65535; + let a16 = (lo$1 >>> 16); + let a00 = lo$1 & 65535; + let b48 = (other_hi >>> 16); + let b32 = other_hi & 65535; + let b16 = (other_lo >>> 16); + let b00 = other_lo & 65535; + let c48 = 0; + let c32 = 0; + let c16 = 0; + let c00 = a00 * b00; c16 = (c00 >>> 16) + a16 * b00; c32 = (c16 >>> 16); c16 = (c16 & 65535) + a00 * b16; @@ -270,9 +270,9 @@ function mul(_this, _other) { c32 = c32 & 65535; c48 = c48 + (a48 * b00 + a32 * b16 + a16 * b32 + a00 * b48) & 65535; return [ - c32 | (c48 << 16), - ((c00 & 65535 | ((c16 & 65535) << 16)) >>> 0) - ]; + c32 | (c48 << 16), + ((c00 & 65535 | ((c16 & 65535) << 16)) >>> 0) + ]; } } @@ -286,23 +286,23 @@ function mul(_this, _other) { function xor(param, param$1) { return [ - param[0] ^ param$1[0], - ((param[1] ^ param$1[1]) >>> 0) - ]; + param[0] ^ param$1[0], + ((param[1] ^ param$1[1]) >>> 0) + ]; } function or_(param, param$1) { return [ - param[0] | param$1[0], - ((param[1] | param$1[1]) >>> 0) - ]; + param[0] | param$1[0], + ((param[1] | param$1[1]) >>> 0) + ]; } function and_(param, param$1) { return [ - param[0] & param$1[0], - ((param[1] & param$1[1]) >>> 0) - ]; + param[0] & param$1[0], + ((param[1] & param$1[1]) >>> 0) + ]; } function to_float(param) { @@ -322,17 +322,17 @@ function of_float(x) { if (x < 0) { return neg(of_float(- x)); } - var hi = x / 4294967296 | 0; - var lo = x % 4294967296 | 0; + let hi = x / 4294967296 | 0; + let lo = x % 4294967296 | 0; return [ - hi, - (lo >>> 0) - ]; + hi, + (lo >>> 0) + ]; } function isSafeInteger(param) { - var hi = param[0]; - var top11Bits = (hi >> 21); + let hi = param[0]; + let top11Bits = (hi >> 21); if (top11Bits === 0) { return true; } else if (top11Bits === -1) { @@ -353,41 +353,41 @@ function to_string(self) { return "-" + to_string(neg(self)); } } - var approx_div1 = of_float(Math.floor(to_float(self) / 10)); - var lo = approx_div1[1]; - var hi = approx_div1[0]; - var match = sub_aux(sub_aux(self, (lo << 3), (lo >>> 29) | (hi << 3)), (lo << 1), (lo >>> 31) | (hi << 1)); - var rem_lo = match[1]; - var rem_hi = match[0]; + let approx_div1 = of_float(Math.floor(to_float(self) / 10)); + let lo = approx_div1[1]; + let hi = approx_div1[0]; + let match = sub_aux(sub_aux(self, (lo << 3), (lo >>> 29) | (hi << 3)), (lo << 1), (lo >>> 31) | (hi << 1)); + let rem_lo = match[1]; + let rem_hi = match[0]; if (rem_lo === 0 && rem_hi === 0) { return to_string(approx_div1) + "0"; } if (rem_hi < 0) { - var rem_lo$1 = ((rem_lo ^ -1) + 1 >>> 0); - var delta = Math.ceil(rem_lo$1 / 10); - var remainder = 10 * delta - rem_lo$1; + let rem_lo$1 = ((rem_lo ^ -1) + 1 >>> 0); + let delta = Math.ceil(rem_lo$1 / 10); + let remainder = 10 * delta - rem_lo$1; return to_string(sub_aux(approx_div1, delta | 0, 0)) + String(remainder | 0); } - var delta$1 = Math.floor(rem_lo / 10); - var remainder$1 = rem_lo - 10 * delta$1; + let delta$1 = Math.floor(rem_lo / 10); + let remainder$1 = rem_lo - 10 * delta$1; return to_string(add_aux(approx_div1, delta$1 | 0, 0)) + String(remainder$1 | 0); } function div(_self, _other) { while(true) { - var other = _other; - var self = _self; - var self_hi = self[0]; - var exit = 0; - var exit$1 = 0; + let other = _other; + let self = _self; + let self_hi = self[0]; + let exit = 0; + let exit$1 = 0; if (other[0] !== 0 || other[1] !== 0) { exit$1 = 2; } else { throw new Error("Division_by_zero", { - cause: { - RE_EXN_ID: "Division_by_zero" - } - }); + cause: { + RE_EXN_ID: "Division_by_zero" + } + }); } if (exit$1 === 2) { if (self_hi !== -2147483648) { @@ -408,9 +408,9 @@ function div(_self, _other) { if (Caml.i64_eq(other, min_int)) { return one; } - var half_this = asr_(self, 1); - var approx = lsl_(div(half_this, other), 1); - var exit$2 = 0; + let half_this = asr_(self, 1); + let approx = lsl_(div(half_this, other), 1); + let exit$2 = 0; if (approx[0] !== 0) { exit$2 = 3; } else { @@ -424,15 +424,15 @@ function div(_self, _other) { exit$2 = 3; } if (exit$2 === 3) { - var rem = sub(self, mul(other, approx)); + let rem = sub(self, mul(other, approx)); return add(approx, div(rem, other)); } } } if (exit === 1) { - var other_hi = other[0]; - var exit$3 = 0; + let other_hi = other[0]; + let exit$3 = 0; if (other_hi !== -2147483648) { exit$3 = 2; } else { @@ -448,20 +448,20 @@ function div(_self, _other) { } _other = neg(other); _self = neg(self); - continue ; + continue; } if (other_hi < 0) { return neg(div(self, neg(other))); } - var res = zero; - var rem$1 = self; + let res = zero; + let rem$1 = self; while(Caml.i64_ge(rem$1, other)) { - var b = Math.floor(to_float(rem$1) / to_float(other)); - var approx$1 = 1 > b ? 1 : b; - var log2 = Math.ceil(Math.log(approx$1) / Math.LN2); - var delta = log2 <= 48 ? 1 : Math.pow(2, log2 - 48); - var approxRes = of_float(approx$1); - var approxRem = mul(approxRes, other); + let b = Math.floor(to_float(rem$1) / to_float(other)); + let approx$1 = 1 > b ? 1 : b; + let log2 = Math.ceil(Math.log(approx$1) / Math.LN2); + let delta = log2 <= 48 ? 1 : Math.pow(2, log2 - 48); + let approxRes = of_float(approx$1); + let approxRem = mul(approxRes, other); while(approxRem[0] < 0 || Caml.i64_gt(approxRem, rem$1)) { approx$1 = approx$1 - delta; approxRes = of_float(approx$1); @@ -486,24 +486,24 @@ function mod_(self, other) { } function div_mod(self, other) { - var quotient = div(self, other); + let quotient = div(self, other); return [ - quotient, - sub(self, mul(quotient, other)) - ]; + quotient, + sub(self, mul(quotient, other)) + ]; } function compare(self, other) { - var y = other[0]; - var x = self[0]; - var v = x < y ? -1 : ( + let y = other[0]; + let x = self[0]; + let v = x < y ? -1 : ( x === y ? 0 : 1 ); if (v !== 0) { return v; } - var y$1 = other[1]; - var x$1 = self[1]; + let y$1 = other[1]; + let x$1 = self[1]; if (x$1 < y$1) { return -1; } else if (x$1 === y$1) { @@ -515,9 +515,9 @@ function compare(self, other) { function of_int32(lo) { return [ - lo < 0 ? -1 : 0, - (lo >>> 0) - ]; + lo < 0 ? -1 : 0, + (lo >>> 0) + ]; } function to_int32(x) { @@ -525,9 +525,9 @@ function to_int32(x) { } function to_hex(x) { - var x_lo = x[1]; - var x_hi = x[0]; - var aux = function (v) { + let x_lo = x[1]; + let x_hi = x[0]; + let aux = function (v) { return (v >>> 0).toString(16); }; if (x_hi === 0 && x_lo === 0) { @@ -539,8 +539,8 @@ function to_hex(x) { if (x_hi === 0) { return aux(x_lo); } - var lo = aux(x_lo); - var pad = 8 - lo.length | 0; + let lo = aux(x_lo); + let pad = 8 - lo.length | 0; if (pad <= 0) { return aux(x_hi) + lo; } else { @@ -550,9 +550,9 @@ function to_hex(x) { function discard_sign(x) { return [ - 2147483647 & x[0], - x[1] - ]; + 2147483647 & x[0], + x[1] + ]; } function float_of_bits(x) { @@ -560,11 +560,11 @@ function float_of_bits(x) { } function bits_of_float(x) { - var match = (function(x){return new Int32Array(new Float64Array([x]).buffer)})(x); + let match = (function(x){return new Int32Array(new Float64Array([x]).buffer)})(x); return [ - match[1], - (match[0] >>> 0) - ]; + match[1], + (match[0] >>> 0) + ]; } exports.mk = mk; diff --git a/lib/js/caml_module.js b/lib/js/caml_module.js index 89e5e7ffe5..cb34132725 100644 --- a/lib/js/caml_module.js +++ b/lib/js/caml_module.js @@ -1,23 +1,23 @@ 'use strict'; -var Caml_obj = require("./caml_obj.js"); +let Caml_obj = require("./caml_obj.js"); function init_mod(loc, shape) { - var undef_module = function (param) { + let undef_module = function (param) { throw new Error("Undefined_recursive_module", { - cause: { - RE_EXN_ID: "Undefined_recursive_module", - _1: loc - } - }); + cause: { + RE_EXN_ID: "Undefined_recursive_module", + _1: loc + } + }); }; - var loop = function (shape, struct_, idx) { + let loop = function (shape, struct_, idx) { if (typeof shape !== "object") { switch (shape) { case "Function" : case "Lazy" : struct_[idx] = undef_module; - return ; + return; case "Class" : struct_[idx] = [ undef_module, @@ -25,38 +25,38 @@ function init_mod(loc, shape) { undef_module, 0 ]; - return ; + return; } } else { if (shape.TAG === "Module") { - var comps = shape._0; - var v = {}; + let comps = shape._0; + let v = {}; struct_[idx] = v; - var len = comps.length; - for(var i = 0; i < len; ++i){ - var match = comps[i]; + let len = comps.length; + for(let i = 0; i < len; ++i){ + let match = comps[i]; loop(match[0], v, match[1]); } - return ; + return; } struct_[idx] = shape._0; - return ; + return; } }; - var res = {}; - var dummy_name = "dummy"; + let res = {}; + let dummy_name = "dummy"; loop(shape, res, dummy_name); return res[dummy_name]; } function update_mod(shape, o, n) { - var aux = function (shape, o, n, parent, i) { + let aux = function (shape, o, n, parent, i) { if (typeof shape !== "object") { switch (shape) { case "Function" : parent[i] = n; - return ; + return; case "Lazy" : case "Class" : return Caml_obj.update_dummy(o, n); @@ -64,48 +64,48 @@ function update_mod(shape, o, n) { } } else { if (shape.TAG !== "Module") { - return ; + return; } - var comps = shape._0; - for(var i$1 = 0 ,i_finish = comps.length; i$1 < i_finish; ++i$1){ - var match = comps[i$1]; - var name = match[1]; + let comps = shape._0; + for(let i$1 = 0 ,i_finish = comps.length; i$1 < i_finish; ++i$1){ + let match = comps[i$1]; + let name = match[1]; aux(match[0], o[name], n[name], o, name); } - return ; + return; } }; if (typeof shape !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } if (shape.TAG === "Module") { - var comps = shape._0; - for(var i = 0 ,i_finish = comps.length; i < i_finish; ++i){ - var match = comps[i]; - var name = match[1]; + let comps = shape._0; + for(let i = 0 ,i_finish = comps.length; i < i_finish; ++i){ + let match = comps[i]; + let name = match[1]; aux(match[0], o[name], n[name], o, name); } - return ; + return; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "caml_module.res", - 109, - 9 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "caml_module.res", + 109, + 9 + ] + } + }); } exports.init_mod = init_mod; diff --git a/lib/js/caml_obj.js b/lib/js/caml_obj.js index 2a9dbe0ee8..d56c1f6396 100644 --- a/lib/js/caml_obj.js +++ b/lib/js/caml_obj.js @@ -1,11 +1,11 @@ 'use strict'; -var Caml = require("./caml.js"); +let Caml = require("./caml.js"); -var for_in = (function(o,foo){ +let for_in = (function(o,foo){ for (var x in o) { foo(x) }}); -var obj_dup = (function(x){ +let obj_dup = (function(x){ if(Array.isArray(x)){ var len = x.length var v = new Array(len) @@ -20,7 +20,7 @@ var obj_dup = (function(x){ return Object.assign({},x) }); -var update_dummy = (function(x,y){ +let update_dummy = (function(x,y){ var k if(Array.isArray(y)){ for(k = 0; k < y.length ; ++k){ @@ -40,8 +40,8 @@ function compare(a, b) { if (a === b) { return 0; } - var a_type = typeof a; - var b_type = typeof b; + let a_type = typeof a; + let b_type = typeof b; switch (a_type) { case "bigint" : if (b_type === "bigint") { @@ -56,11 +56,11 @@ function compare(a, b) { case "function" : if (b_type === "function") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "compare: functional value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "compare: functional value" + } + }); } break; case "number" : @@ -132,18 +132,18 @@ function compare(a, b) { return -1; } } - var tag_a = a.TAG; - var tag_b = b.TAG; + let tag_a = a.TAG; + let tag_b = b.TAG; if (tag_a === 248) { return Caml.int_compare(a[1], b[1]); } if (tag_a === 251) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { if (tag_a < tag_b) { @@ -152,22 +152,22 @@ function compare(a, b) { return 1; } } - var len_a = a.length | 0; - var len_b = b.length | 0; + let len_a = a.length | 0; + let len_b = b.length | 0; if (len_a === len_b) { if (Array.isArray(a)) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len_a) { return 0; } - var res = compare(a[i], b[i]); + let res = compare(a[i], b[i]); if (res !== 0) { return res; } _i = i + 1 | 0; - continue ; + continue; }; } else if ((a instanceof Date && b instanceof Date)) { return (a - b); @@ -175,78 +175,78 @@ function compare(a, b) { return aux_obj_compare(a, b); } } else if (len_a < len_b) { - var _i$1 = 0; + let _i$1 = 0; while(true) { - var i$1 = _i$1; + let i$1 = _i$1; if (i$1 === len_a) { return -1; } - var res$1 = compare(a[i$1], b[i$1]); + let res$1 = compare(a[i$1], b[i$1]); if (res$1 !== 0) { return res$1; } _i$1 = i$1 + 1 | 0; - continue ; + continue; }; } else { - var _i$2 = 0; + let _i$2 = 0; while(true) { - var i$2 = _i$2; + let i$2 = _i$2; if (i$2 === len_b) { return 1; } - var res$2 = compare(a[i$2], b[i$2]); + let res$2 = compare(a[i$2], b[i$2]); if (res$2 !== 0) { return res$2; } _i$2 = i$2 + 1 | 0; - continue ; + continue; }; } } } function aux_obj_compare(a, b) { - var min_key_lhs = { + let min_key_lhs = { contents: undefined }; - var min_key_rhs = { + let min_key_rhs = { contents: undefined }; - var do_key = function (param, key) { - var min_key = param[2]; - var b = param[1]; + let do_key = function (param, key) { + let min_key = param[2]; + let b = param[1]; if (!(!Object.prototype.hasOwnProperty.call(b, key) || compare(param[0][key], b[key]) > 0)) { - return ; + return; } - var mk = min_key.contents; + let mk = min_key.contents; if (mk !== undefined && key >= mk) { - return ; + return; } else { min_key.contents = key; - return ; + return; } }; - var partial_arg = [ + let partial_arg = [ a, b, min_key_rhs ]; - var do_key_a = function (param) { + let do_key_a = function (param) { return do_key(partial_arg, param); }; - var partial_arg$1 = [ + let partial_arg$1 = [ b, a, min_key_lhs ]; - var do_key_b = function (param) { + let do_key_b = function (param) { return do_key(partial_arg$1, param); }; for_in(a, do_key_a); for_in(b, do_key_b); - var match = min_key_lhs.contents; - var match$1 = min_key_rhs.contents; + let match = min_key_lhs.contents; + let match$1 = min_key_rhs.contents; if (match !== undefined) { if (match$1 !== undefined) { return Caml.string_compare(match, match$1); @@ -264,45 +264,45 @@ function equal(a, b) { if (a === b) { return true; } - var a_type = typeof a; + let a_type = typeof a; if (a_type === "string" || a_type === "number" || a_type === "bigint" || a_type === "boolean" || a_type === "undefined" || a === null) { return false; } - var b_type = typeof b; + let b_type = typeof b; if (a_type === "function" || b_type === "function") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: functional value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: functional value" + } + }); } if (b_type === "number" || b_type === "bigint" || b_type === "undefined" || b === null) { return false; } - var tag_a = a.TAG; - var tag_b = b.TAG; + let tag_a = a.TAG; + let tag_b = b.TAG; if (tag_a === 248) { return a[1] === b[1]; } if (tag_a === 251) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "equal: abstract value" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "equal: abstract value" + } + }); } if (tag_a !== tag_b) { return false; } - var len_a = a.length | 0; - var len_b = b.length | 0; + let len_a = a.length | 0; + let len_b = b.length | 0; if (len_a === len_b) { if (Array.isArray(a)) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len_a) { return true; } @@ -310,25 +310,25 @@ function equal(a, b) { return false; } _i = i + 1 | 0; - continue ; + continue; }; } else if ((a instanceof Date && b instanceof Date)) { return !(a > b || a < b); } else { - var result = { + let result = { contents: true }; - var do_key_a = function (key) { + let do_key_a = function (key) { if (!Object.prototype.hasOwnProperty.call(b, key)) { result.contents = false; - return ; + return; } }; - var do_key_b = function (key) { + let do_key_b = function (key) { if (!Object.prototype.hasOwnProperty.call(a, key) || !equal(b[key], a[key])) { result.contents = false; - return ; + return; } }; diff --git a/lib/js/caml_string.js b/lib/js/caml_string.js index 70ae883486..13f3625959 100644 --- a/lib/js/caml_string.js +++ b/lib/js/caml_string.js @@ -4,11 +4,11 @@ function get(s, i) { if (i >= s.length || i < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "index out of bounds" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "index out of bounds" + } + }); } return s.codePointAt(i); } diff --git a/lib/js/caml_sys.js b/lib/js/caml_sys.js index 7b2b55466a..d1859c692c 100644 --- a/lib/js/caml_sys.js +++ b/lib/js/caml_sys.js @@ -4,23 +4,23 @@ function sys_getenv(s) { if (typeof process === "undefined" || process.env === undefined) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var x = process.env[s]; + let x = process.env[s]; if (x !== undefined) { return x; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } -var os_type = (function(_){ +let os_type = (function(_){ if(typeof process !== 'undefined' && process.platform === 'win32'){ return "Win32" } @@ -37,7 +37,7 @@ function sys_time(param) { } } -var sys_getcwd = (function(param){ +let sys_getcwd = (function(param){ if (typeof process === "undefined" || process.cwd === undefined){ return "/" } @@ -47,21 +47,21 @@ var sys_getcwd = (function(param){ function sys_get_argv(param) { if (typeof process === "undefined") { return [ - "", - [""] - ]; + "", + [""] + ]; } - var argv = process.argv; + let argv = process.argv; if (argv == null) { return [ - "", - [""] - ]; + "", + [""] + ]; } else { return [ - argv[0], - argv - ]; + argv[0], + argv + ]; } } @@ -74,20 +74,20 @@ function sys_exit(exit_code) { function sys_is_directory(_s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "sys_is_directory not implemented" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "sys_is_directory not implemented" + } + }); } function sys_file_exists(_s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "sys_file_exists not implemented" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "sys_file_exists not implemented" + } + }); } exports.sys_getenv = sys_getenv; diff --git a/lib/js/camlinternalLazy.js b/lib/js/camlinternalLazy.js index f31a2fa743..4125262ab5 100644 --- a/lib/js/camlinternalLazy.js +++ b/lib/js/camlinternalLazy.js @@ -1,15 +1,15 @@ 'use strict'; -var Caml_exceptions = require("./caml_exceptions.js"); +let Caml_exceptions = require("./caml_exceptions.js"); function is_val(l) { return l.LAZY_DONE; } -var Undefined = /* @__PURE__ */Caml_exceptions.create("CamlinternalLazy.Undefined"); +let Undefined = /* @__PURE__ */Caml_exceptions.create("CamlinternalLazy.Undefined"); function forward_with_closure(blk, closure) { - var result = closure(); + let result = closure(); blk.VAL = result; blk.LAZY_DONE = true; return result; @@ -17,30 +17,30 @@ function forward_with_closure(blk, closure) { function raise_undefined() { throw new Error(Undefined, { - cause: { - RE_EXN_ID: Undefined - } - }); + cause: { + RE_EXN_ID: Undefined + } + }); } function force(lzv) { if (lzv.LAZY_DONE) { return lzv.VAL; } else { - var closure = lzv.VAL; + let closure = lzv.VAL; lzv.VAL = raise_undefined; try { return forward_with_closure(lzv, closure); } catch (e){ lzv.VAL = (function () { - throw new Error(e.RE_EXN_ID, { - cause: e - }); - }); + throw new Error(e.RE_EXN_ID, { + cause: e + }); + }); throw new Error(e.RE_EXN_ID, { - cause: e - }); + cause: e + }); } } } @@ -49,7 +49,7 @@ function force_val(lzv) { if (lzv.LAZY_DONE) { return lzv.VAL; } else { - var closure = lzv.VAL; + let closure = lzv.VAL; lzv.VAL = raise_undefined; return forward_with_closure(lzv, closure); } @@ -57,16 +57,16 @@ function force_val(lzv) { function from_fun(closure) { return { - LAZY_DONE: false, - VAL: closure - }; + LAZY_DONE: false, + VAL: closure + }; } function from_val(value) { return { - LAZY_DONE: true, - VAL: value - }; + LAZY_DONE: true, + VAL: value + }; } exports.Undefined = Undefined; diff --git a/lib/js/char.js b/lib/js/char.js index 0cda6d8d2d..2ae5bbaca9 100644 --- a/lib/js/char.js +++ b/lib/js/char.js @@ -1,21 +1,21 @@ 'use strict'; -var Bytes = require("./bytes.js"); +let Bytes = require("./bytes.js"); function chr(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Char.chr" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Char.chr" + } + }); } return n; } function escaped(param) { - var exit = 0; + let exit = 0; if (param >= 40) { if (param === 92) { return "\\\\"; @@ -55,7 +55,7 @@ function escaped(param) { } switch (exit) { case 1 : - var s = [ + let s = [ 0, 0, 0, @@ -67,7 +67,7 @@ function escaped(param) { s[3] = 48 + param % 10 | 0; return Bytes.to_string(s); case 2 : - var s$1 = [0]; + let s$1 = [0]; s$1[0] = param; return Bytes.to_string(s$1); diff --git a/lib/js/digest.js b/lib/js/digest.js index 91254e39f8..867fe591f8 100644 --- a/lib/js/digest.js +++ b/lib/js/digest.js @@ -1,11 +1,11 @@ 'use strict'; -var Char = require("./char.js"); -var Bytes = require("./bytes.js"); -var $$String = require("./string.js"); -var Caml_md5 = require("./caml_md5.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_string = require("./caml_string.js"); +let Char = require("./char.js"); +let Bytes = require("./bytes.js"); +let $$String = require("./string.js"); +let Caml_md5 = require("./caml_md5.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_string = require("./caml_string.js"); function string(str) { return Caml_md5.md5_string(str, 0, str.length); @@ -18,11 +18,11 @@ function bytes(b) { function substring(str, ofs, len) { if (ofs < 0 || len < 0 || ofs > (str.length - len | 0)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.substring" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.substring" + } + }); } return Caml_md5.md5_string(str, ofs, len); } @@ -33,22 +33,22 @@ function subbytes(b, ofs, len) { function char_hex(n) { return n + ( - n < 10 ? /* '0' */48 : 87 - ) | 0; + n < 10 ? /* '0' */48 : 87 + ) | 0; } function to_hex(d) { if (d.length !== 16) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.to_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.to_hex" + } + }); } - var result = Caml_bytes.create(32); - for(var i = 0; i <= 15; ++i){ - var x = Caml_string.get(d, i); + let result = Caml_bytes.create(32); + for(let i = 0; i <= 15; ++i){ + let x = Caml_string.get(d, i); result[(i << 1)] = char_hex((x >>> 4)); result[(i << 1) + 1 | 0] = char_hex(x & 15); } @@ -58,58 +58,58 @@ function to_hex(d) { function from_hex(s) { if (s.length !== 32) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } - var digit = function (c) { + let digit = function (c) { if (c >= 65) { if (c >= 97) { if (c >= 103) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'a' */97 | 0) + 10 | 0; } if (c >= 71) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return (c - /* 'A' */65 | 0) + 10 | 0; } if (c > 57 || c < 48) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Digest.from_hex" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Digest.from_hex" + } + }); } return c - /* '0' */48 | 0; }; - var $$byte = function (i) { + let $$byte = function (i) { return (digit(Caml_string.get(s, i)) << 4) + digit(Caml_string.get(s, i + 1 | 0)) | 0; }; - var result = Caml_bytes.create(16); - for(var i = 0; i <= 15; ++i){ + let result = Caml_bytes.create(16); + for(let i = 0; i <= 15; ++i){ Caml_bytes.set(result, i, Char.chr($$byte((i << 1)))); } return Bytes.unsafe_to_string(result); } -var compare = $$String.compare; +let compare = $$String.compare; -var equal = $$String.equal; +let equal = $$String.equal; exports.compare = compare; exports.equal = equal; diff --git a/lib/js/filename.js b/lib/js/filename.js index 3298b93520..59f88a3344 100644 --- a/lib/js/filename.js +++ b/lib/js/filename.js @@ -1,29 +1,29 @@ 'use strict'; -var Sys = require("./sys.js"); -var Bytes = require("./bytes.js"); -var Curry = require("./curry.js"); -var $$Buffer = require("./buffer.js"); -var $$String = require("./string.js"); -var Caml_sys = require("./caml_sys.js"); -var Caml_string = require("./caml_string.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Sys = require("./sys.js"); +let Bytes = require("./bytes.js"); +let Curry = require("./curry.js"); +let $$Buffer = require("./buffer.js"); +let $$String = require("./string.js"); +let Caml_sys = require("./caml_sys.js"); +let Caml_string = require("./caml_string.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); function generic_basename(is_dir_sep, current_dir_name, name) { if (name === "") { return current_dir_name; } else { - var _n = name.length - 1 | 0; + let _n = name.length - 1 | 0; while(true) { - var n = _n; + let n = _n; if (n < 0) { return $$String.sub(name, 0, 1); } if (!Curry._2(is_dir_sep, name, n)) { - var _n$1 = n; - var p = n + 1 | 0; + let _n$1 = n; + let p = n + 1 | 0; while(true) { - var n$1 = _n$1; + let n$1 = _n$1; if (n$1 < 0) { return $$String.sub(name, 0, p); } @@ -31,11 +31,11 @@ function generic_basename(is_dir_sep, current_dir_name, name) { return $$String.sub(name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0); } _n$1 = n$1 - 1 | 0; - continue ; + continue; }; } _n = n - 1 | 0; - continue ; + continue; }; } } @@ -44,23 +44,23 @@ function generic_dirname(is_dir_sep, current_dir_name, name) { if (name === "") { return current_dir_name; } else { - var _n = name.length - 1 | 0; + let _n = name.length - 1 | 0; while(true) { - var n = _n; + let n = _n; if (n < 0) { return $$String.sub(name, 0, 1); } if (!Curry._2(is_dir_sep, name, n)) { - var _n$1 = n; + let _n$1 = n; while(true) { - var n$1 = _n$1; + let n$1 = _n$1; if (n$1 < 0) { return current_dir_name; } if (Curry._2(is_dir_sep, name, n$1)) { - var _n$2 = n$1; + let _n$2 = n$1; while(true) { - var n$2 = _n$2; + let n$2 = _n$2; if (n$2 < 0) { return $$String.sub(name, 0, 1); } @@ -68,20 +68,20 @@ function generic_dirname(is_dir_sep, current_dir_name, name) { return $$String.sub(name, 0, n$2 + 1 | 0); } _n$2 = n$2 - 1 | 0; - continue ; + continue; }; } _n$1 = n$1 - 1 | 0; - continue ; + continue; }; } _n = n - 1 | 0; - continue ; + continue; }; } } -var current_dir_name = "."; +let current_dir_name = "."; function is_dir_sep(s, i) { return Caml_string.get(s, i) === /* '/' */47; @@ -115,28 +115,28 @@ function check_suffix(name, suff) { } } -var temp_dir_name; +let temp_dir_name; try { temp_dir_name = Caml_sys.sys_getenv("TMPDIR"); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { temp_dir_name = "/tmp"; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function quote(param) { - var quotequote = "'\\''"; - var l = param.length; - var b = $$Buffer.create(l + 20 | 0); + let quotequote = "'\\''"; + let l = param.length; + let b = $$Buffer.create(l + 20 | 0); $$Buffer.add_char(b, /* '\'' */39); - for(var i = 0; i < l; ++i){ + for(let i = 0; i < l; ++i){ if (Caml_string.get(param, i) === /* '\'' */39) { $$Buffer.add_string(b, quotequote); } else { @@ -155,10 +155,10 @@ function dirname(param) { return generic_dirname(is_dir_sep, current_dir_name, param); } -var current_dir_name$1 = "."; +let current_dir_name$1 = "."; function is_dir_sep$1(s, i) { - var c = Caml_string.get(s, i); + let c = Caml_string.get(s, i); if (c === /* '/' */47 || c === /* '\\' */92) { return true; } else { @@ -194,37 +194,37 @@ function check_suffix$1(name, suff) { if (name.length < suff.length) { return false; } - var s = $$String.sub(name, name.length - suff.length | 0, suff.length); + let s = $$String.sub(name, name.length - suff.length | 0, suff.length); return Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(s))) === Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(suff))); } -var temp_dir_name$1; +let temp_dir_name$1; try { temp_dir_name$1 = Caml_sys.sys_getenv("TEMP"); } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); if (exn$1.RE_EXN_ID === "Not_found") { temp_dir_name$1 = "."; } else { throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } function quote$1(s) { - var l = s.length; - var b = $$Buffer.create(l + 20 | 0); + let l = s.length; + let b = $$Buffer.create(l + 20 | 0); $$Buffer.add_char(b, /* '"' */34); - var loop = function (_i) { + let loop = function (_i) { while(true) { - var i = _i; + let i = _i; if (i === l) { return $$Buffer.add_char(b, /* '"' */34); } - var c = Caml_string.get(s, i); + let c = Caml_string.get(s, i); if (c === 34) { return loop_bs(0, i); } @@ -233,18 +233,18 @@ function quote$1(s) { } $$Buffer.add_char(b, c); _i = i + 1 | 0; - continue ; + continue; }; }; - var loop_bs = function (_n, _i) { + let loop_bs = function (_n, _i) { while(true) { - var i = _i; - var n = _n; + let i = _i; + let n = _n; if (i === l) { $$Buffer.add_char(b, /* '"' */34); return add_bs(n); } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match !== 34) { if (match !== 92) { add_bs(n); @@ -252,15 +252,15 @@ function quote$1(s) { } _i = i + 1 | 0; _n = n + 1 | 0; - continue ; + continue; } add_bs((n << 1) + 1 | 0); $$Buffer.add_char(b, /* '"' */34); return loop(i + 1 | 0); }; }; - var add_bs = function (n) { - for(var _j = 1; _j <= n; ++_j){ + let add_bs = function (n) { + for(let _j = 1; _j <= n; ++_j){ $$Buffer.add_char(b, /* '\\' */92); } }; @@ -269,7 +269,7 @@ function quote$1(s) { } function has_drive(s) { - var is_letter = function (param) { + let is_letter = function (param) { if (param >= 91) { return !(param > 122 || param < 97); } else { @@ -286,29 +286,29 @@ function has_drive(s) { function drive_and_path(s) { if (has_drive(s)) { return [ - $$String.sub(s, 0, 2), - $$String.sub(s, 2, s.length - 2 | 0) - ]; + $$String.sub(s, 0, 2), + $$String.sub(s, 2, s.length - 2 | 0) + ]; } else { return [ - "", - s - ]; + "", + s + ]; } } function dirname$1(s) { - var match = drive_and_path(s); - var dir = generic_dirname(is_dir_sep$1, current_dir_name$1, match[1]); + let match = drive_and_path(s); + let dir = generic_dirname(is_dir_sep$1, current_dir_name$1, match[1]); return match[0] + dir; } function basename$1(s) { - var match = drive_and_path(s); + let match = drive_and_path(s); return generic_basename(is_dir_sep$1, current_dir_name$1, match[1]); } -var current_dir_name$2 = "."; +let current_dir_name$2 = "."; function basename$2(param) { return generic_basename(is_dir_sep$1, current_dir_name$2, param); @@ -318,7 +318,7 @@ function dirname$2(param) { return generic_dirname(is_dir_sep$1, current_dir_name$2, param); } -var match; +let match; switch (Sys.os_type) { case "Cygwin" : @@ -367,14 +367,14 @@ switch (Sys.os_type) { ]; } -var temp_dir_name$2 = match[7]; +let temp_dir_name$2 = match[7]; -var is_dir_sep$2 = match[3]; +let is_dir_sep$2 = match[3]; -var dir_sep = match[2]; +let dir_sep = match[2]; function concat(dirname, filename) { - var l = dirname.length; + let l = dirname.length; if (l === 0 || Curry._2(is_dir_sep$2, dirname, l - 1 | 0)) { return dirname + filename; } else { @@ -383,29 +383,29 @@ function concat(dirname, filename) { } function chop_suffix(name, suff) { - var n = name.length - suff.length | 0; + let n = name.length - suff.length | 0; if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_suffix" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_suffix" + } + }); } return $$String.sub(name, 0, n); } function extension_len(name) { - var _i = name.length - 1 | 0; + let _i = name.length - 1 | 0; while(true) { - var i = _i; + let i = _i; if (i < 0 || Curry._2(is_dir_sep$2, name, i)) { return 0; } if (Caml_string.get(name, i) === /* '.' */46) { - var _i$1 = i - 1 | 0; + let _i$1 = i - 1 | 0; while(true) { - var i$1 = _i$1; + let i$1 = _i$1; if (i$1 < 0 || Curry._2(is_dir_sep$2, name, i$1)) { return 0; } @@ -413,16 +413,16 @@ function extension_len(name) { return name.length - i | 0; } _i$1 = i$1 - 1 | 0; - continue ; + continue; }; } _i = i - 1 | 0; - continue ; + continue; }; } function extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { return ""; } else { @@ -431,20 +431,20 @@ function extension(name) { } function chop_extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Filename.chop_extension" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Filename.chop_extension" + } + }); } return $$String.sub(name, 0, name.length - l | 0); } function remove_extension(name) { - var l = extension_len(name); + let l = extension_len(name); if (l === 0) { return name; } else { @@ -452,7 +452,7 @@ function remove_extension(name) { } } -var current_temp_dir_name = { +let current_temp_dir_name = { contents: temp_dir_name$2 }; @@ -464,21 +464,21 @@ function get_temp_dir_name(param) { return current_temp_dir_name.contents; } -var current_dir_name$3 = match[0]; +let current_dir_name$3 = match[0]; -var parent_dir_name = match[1]; +let parent_dir_name = match[1]; -var is_relative$2 = match[4]; +let is_relative$2 = match[4]; -var is_implicit$2 = match[5]; +let is_implicit$2 = match[5]; -var check_suffix$2 = match[6]; +let check_suffix$2 = match[6]; -var basename$3 = match[9]; +let basename$3 = match[9]; -var dirname$3 = match[10]; +let dirname$3 = match[10]; -var quote$2 = match[8]; +let quote$2 = match[8]; exports.current_dir_name = current_dir_name$3; exports.parent_dir_name = parent_dir_name; diff --git a/lib/js/genlex.js b/lib/js/genlex.js index 70d94fbec5..515a683d73 100644 --- a/lib/js/genlex.js +++ b/lib/js/genlex.js @@ -1,22 +1,22 @@ 'use strict'; -var Char = require("./char.js"); -var List = require("./list.js"); -var Bytes = require("./bytes.js"); -var Stream = require("./stream.js"); -var Hashtbl = require("./hashtbl.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_format = require("./caml_format.js"); -var Caml_string = require("./caml_string.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Char = require("./char.js"); +let List = require("./list.js"); +let Bytes = require("./bytes.js"); +let Stream = require("./stream.js"); +let Hashtbl = require("./hashtbl.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_format = require("./caml_format.js"); +let Caml_string = require("./caml_string.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var initial_buffer = Caml_bytes.create(32); +let initial_buffer = Caml_bytes.create(32); -var buffer = { +let buffer = { contents: initial_buffer }; -var bufpos = { +let bufpos = { contents: 0 }; @@ -27,7 +27,7 @@ function reset_buffer(param) { function store(c) { if (bufpos.contents >= buffer.contents.length) { - var newbuffer = Caml_bytes.create((bufpos.contents << 1)); + let newbuffer = Caml_bytes.create((bufpos.contents << 1)); Bytes.blit(buffer.contents, 0, newbuffer, 0, bufpos.contents); buffer.contents = newbuffer; } @@ -36,63 +36,63 @@ function store(c) { } function get_string(param) { - var s = Bytes.sub_string(buffer.contents, 0, bufpos.contents); + let s = Bytes.sub_string(buffer.contents, 0, bufpos.contents); buffer.contents = initial_buffer; return s; } function make_lexer(keywords) { - var kwd_table = Hashtbl.create(undefined, 17); + let kwd_table = Hashtbl.create(undefined, 17); List.iter((function (s) { - Hashtbl.add(kwd_table, s, { - TAG: "Kwd", - _0: s - }); - }), keywords); - var ident_or_keyword = function (id) { + Hashtbl.add(kwd_table, s, { + TAG: "Kwd", + _0: s + }); + }), keywords); + let ident_or_keyword = function (id) { try { return Hashtbl.find(kwd_table, id); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return { - TAG: "Ident", - _0: id - }; + TAG: "Ident", + _0: id + }; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; - var keyword_or_error = function (c) { - var s = Caml_string.make(1, c); + let keyword_or_error = function (c) { + let s = Caml_string.make(1, c); try { return Hashtbl.find(kwd_table, s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "Illegal character " + s - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "Illegal character " + s + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } }; - var next_token = function (strm__) { + let next_token = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { - return ; + return; } - var exit = 0; + let exit = 0; if (c < 124) { if (c > 122 || c < 65) { if (c >= 123) { @@ -106,59 +106,59 @@ function make_lexer(keywords) { case 26 : case 32 : Stream.junk(strm__); - continue ; + continue; case 34 : Stream.junk(strm__); reset_buffer(); return { - TAG: "String", - _0: string(strm__) - }; + TAG: "String", + _0: string(strm__) + }; case 39 : Stream.junk(strm__); - var c$1; + let c$1; try { c$1 = $$char(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } - var match = Stream.peek(strm__); + let match = Stream.peek(strm__); if (match !== undefined) { if (match !== 39) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); - } - Stream.junk(strm__); - return { - TAG: "Char", - _0: c$1 - }; - } - throw new Error(Stream.$$Error, { cause: { RE_EXN_ID: Stream.$$Error, _1: "" } }); + } + Stream.junk(strm__); + return { + TAG: "Char", + _0: c$1 + }; + } + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); case 40 : Stream.junk(strm__); - var match$1 = Stream.peek(strm__); + let match$1 = Stream.peek(strm__); if (match$1 === 42) { Stream.junk(strm__); comment(strm__); @@ -168,7 +168,7 @@ function make_lexer(keywords) { } case 45 : Stream.junk(strm__); - var c$2 = Stream.peek(strm__); + let c$2 = Stream.peek(strm__); if (c$2 !== undefined && !(c$2 > 57 || c$2 < 48)) { Stream.junk(strm__); reset_buffer(); @@ -275,7 +275,7 @@ function make_lexer(keywords) { reset_buffer(); store(c); while(true) { - var c$3 = Stream.peek(strm__); + let c$3 = Stream.peek(strm__); if (c$3 === undefined) { return ident_or_keyword(get_string()); } @@ -299,7 +299,7 @@ function make_lexer(keywords) { } Stream.junk(strm__); store(c$3); - continue ; + continue; }; case 3 : Stream.junk(strm__); @@ -315,9 +315,9 @@ function make_lexer(keywords) { } }; }; - var ident2 = function (strm__) { + let ident2 = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { return ident_or_keyword(get_string()); } @@ -380,12 +380,12 @@ function make_lexer(keywords) { } Stream.junk(strm__); store(c); - continue ; + continue; }; }; - var number = function (strm__) { + let number = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c !== undefined) { if (c >= 58) { if (!(c !== 69 && c !== 101)) { @@ -398,20 +398,20 @@ function make_lexer(keywords) { if (c >= 48) { Stream.junk(strm__); store(c); - continue ; + continue; } } else { Stream.junk(strm__); store(/* '.' */46); while(true) { - var c$1 = Stream.peek(strm__); + let c$1 = Stream.peek(strm__); if (c$1 !== undefined) { if (c$1 > 101 || c$1 < 69) { if (!(c$1 > 57 || c$1 < 48)) { Stream.junk(strm__); store(c$1); - continue ; + continue; } } else if (c$1 > 100 || c$1 < 70) { @@ -422,20 +422,20 @@ function make_lexer(keywords) { } return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; }; } } return { - TAG: "Int", - _0: Caml_format.int_of_string(get_string()) - }; + TAG: "Int", + _0: Caml_format.int_of_string(get_string()) + }; }; }; - var exponent_part = function (strm__) { - var c = Stream.peek(strm__); + let exponent_part = function (strm__) { + let c = Stream.peek(strm__); if (c !== undefined && !(c !== 43 && c !== 45)) { Stream.junk(strm__); store(c); @@ -444,70 +444,70 @@ function make_lexer(keywords) { return end_exponent_part(strm__); } }; - var end_exponent_part = function (strm__) { + let end_exponent_part = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c === undefined) { return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; } if (c > 57 || c < 48) { return { - TAG: "Float", - _0: Caml_format.float_of_string(get_string()) - }; + TAG: "Float", + _0: Caml_format.float_of_string(get_string()) + }; } Stream.junk(strm__); store(c); - continue ; + continue; }; }; - var string = function (strm__) { + let string = function (strm__) { while(true) { - var c = Stream.peek(strm__); + let c = Stream.peek(strm__); if (c !== undefined) { if (c !== 34) { if (c !== 92) { Stream.junk(strm__); store(c); - continue ; + continue; } Stream.junk(strm__); - var c$1; + let c$1; try { c$1 = $$escape(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } store(c$1); - continue ; + continue; } Stream.junk(strm__); return get_string(); } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; }; - var $$char = function (strm__) { - var c = Stream.peek(strm__); + let $$char = function (strm__) { + let c = Stream.peek(strm__); if (c !== undefined) { if (c !== 92) { Stream.junk(strm__); @@ -518,29 +518,29 @@ function make_lexer(keywords) { return $$escape(strm__); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Stream.Failure) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; - var $$escape = function (strm__) { - var c1 = Stream.peek(strm__); + let $$escape = function (strm__) { + let c1 = Stream.peek(strm__); if (c1 !== undefined) { if (c1 >= 58) { switch (c1) { @@ -560,63 +560,63 @@ function make_lexer(keywords) { } else { if (c1 >= 48) { Stream.junk(strm__); - var c2 = Stream.peek(strm__); + let c2 = Stream.peek(strm__); if (c2 !== undefined) { if (c2 > 57 || c2 < 48) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); - var c3 = Stream.peek(strm__); + let c3 = Stream.peek(strm__); if (c3 !== undefined) { if (c3 > 57 || c3 < 48) { throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); - } - Stream.junk(strm__); - return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); - } - throw new Error(Stream.$$Error, { cause: { RE_EXN_ID: Stream.$$Error, _1: "" } }); + } + Stream.junk(strm__); + return Char.chr((Math.imul(c1 - 48 | 0, 100) + Math.imul(c2 - 48 | 0, 10) | 0) + (c3 - 48 | 0) | 0); + } + throw new Error(Stream.$$Error, { + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } throw new Error(Stream.$$Error, { - cause: { - RE_EXN_ID: Stream.$$Error, - _1: "" - } - }); + cause: { + RE_EXN_ID: Stream.$$Error, + _1: "" + } + }); } Stream.junk(strm__); return c1; } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; - var comment = function (strm__) { + let comment = function (strm__) { while(true) { - var match = Stream.peek(strm__); + let match = Stream.peek(strm__); if (match !== undefined) { switch (match) { case 40 : Stream.junk(strm__); - var match$1 = Stream.peek(strm__); + let match$1 = Stream.peek(strm__); if (match$1 !== undefined) { if (match$1 !== 42) { Stream.junk(strm__); @@ -628,14 +628,14 @@ function make_lexer(keywords) { } } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); case 42 : Stream.junk(strm__); while(true) { - var match$2 = Stream.peek(strm__); + let match$2 = Stream.peek(strm__); if (match$2 !== undefined) { if (match$2 !== 41) { if (match$2 !== 42) { @@ -643,34 +643,34 @@ function make_lexer(keywords) { return comment(strm__); } Stream.junk(strm__); - continue ; + continue; } Stream.junk(strm__); - return ; + return; } throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); }; default: Stream.junk(strm__); - continue ; + continue; } } else { throw new Error(Stream.Failure, { - cause: { - RE_EXN_ID: Stream.Failure - } - }); + cause: { + RE_EXN_ID: Stream.Failure + } + }); } }; }; return function (input) { return Stream.from(function (_count) { - return next_token(input); - }); + return next_token(input); + }); }; } diff --git a/lib/js/hashtbl.js b/lib/js/hashtbl.js index 1620b26014..3699a1b4e7 100644 --- a/lib/js/hashtbl.js +++ b/lib/js/hashtbl.js @@ -1,15 +1,15 @@ 'use strict'; -var Caml = require("./caml.js"); -var $$Array = require("./array.js"); -var Curry = require("./curry.js"); -var Random = require("./random.js"); -var Caml_obj = require("./caml_obj.js"); -var Caml_hash = require("./caml_hash.js"); -var Caml_array = require("./caml_array.js"); -var Pervasives = require("./pervasives.js"); -var Caml_option = require("./caml_option.js"); -var CamlinternalLazy = require("./camlinternalLazy.js"); +let Caml = require("./caml.js"); +let $$Array = require("./array.js"); +let Curry = require("./curry.js"); +let Random = require("./random.js"); +let Caml_obj = require("./caml_obj.js"); +let Caml_hash = require("./caml_hash.js"); +let Caml_array = require("./caml_array.js"); +let Pervasives = require("./pervasives.js"); +let Caml_option = require("./caml_option.js"); +let CamlinternalLazy = require("./camlinternalLazy.js"); function hash(x) { return Caml_hash.hash(10, 100, 0, x); @@ -27,7 +27,7 @@ function flip_ongoing_traversal(h) { h.initial_size = -h.initial_size | 0; } -var randomized = { +let randomized = { contents: false }; @@ -39,13 +39,13 @@ function is_randomized(param) { return randomized.contents; } -var prng = CamlinternalLazy.from_fun(function () { - return Random.State.make_self_init(); - }); +let prng = CamlinternalLazy.from_fun(function () { + return Random.State.make_self_init(); +}); function power_2_above(_x, n) { while(true) { - var x = _x; + let x = _x; if (x >= n) { return x; } @@ -53,38 +53,38 @@ function power_2_above(_x, n) { return x; } _x = (x << 1); - continue ; + continue; }; } function create(randomOpt, initial_size) { - var random = randomOpt !== undefined ? randomOpt : randomized.contents; - var s = power_2_above(16, initial_size); - var seed = random ? Random.State.bits(CamlinternalLazy.force(prng)) : 0; + let random = randomOpt !== undefined ? randomOpt : randomized.contents; + let s = power_2_above(16, initial_size); + let seed = random ? Random.State.bits(CamlinternalLazy.force(prng)) : 0; return { - size: 0, - data: Caml_array.make(s, "Empty"), - seed: seed, - initial_size: s - }; + size: 0, + data: Caml_array.make(s, "Empty"), + seed: seed, + initial_size: s + }; } function clear(h) { h.size = 0; - var len = h.data.length; - for(var i = 0; i < len; ++i){ + let len = h.data.length; + for(let i = 0; i < len; ++i){ Caml_array.set(h.data, i, "Empty"); } } function reset(h) { - var len = h.data.length; + let len = h.data.length; if (len === Pervasives.abs(h.initial_size)) { return clear(h); } else { h.size = 0; h.data = Caml_array.make(Pervasives.abs(h.initial_size), "Empty"); - return ; + return; } } @@ -92,20 +92,20 @@ function copy_bucketlist(param) { if (typeof param !== "object") { return "Empty"; } - var key = param.key; - var data = param.data; - var next = param.next; - var loop = function (_prec, _param) { + let key = param.key; + let data = param.data; + let next = param.next; + let loop = function (_prec, _param) { while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; - var r = { + let key = param.key; + let data = param.data; + let next = param.next; + let r = { TAG: "Cons", key: key, data: data, @@ -113,23 +113,23 @@ function copy_bucketlist(param) { }; if (typeof prec !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "hashtbl.res", - 110, - 19 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "hashtbl.res", + 110, + 19 + ] + } + }); } prec.next = r; _param = next; _prec = r; - continue ; + continue; }; }; - var r = { + let r = { TAG: "Cons", key: key, data: data, @@ -141,11 +141,11 @@ function copy_bucketlist(param) { function copy(h) { return { - size: h.size, - data: $$Array.map(copy_bucketlist, h.data), - seed: h.seed, - initial_size: h.initial_size - }; + size: h.size, + data: $$Array.map(copy_bucketlist, h.data), + seed: h.seed, + initial_size: h.initial_size + }; } function length(h) { @@ -153,33 +153,33 @@ function length(h) { } function resize(indexfun, h) { - var odata = h.data; - var osize = odata.length; - var nsize = (osize << 1); + let odata = h.data; + let osize = odata.length; + let nsize = (osize << 1); if (nsize < osize) { - return ; + return; } - var ndata = Caml_array.make(nsize, "Empty"); - var ndata_tail = Caml_array.make(nsize, "Empty"); - var inplace = h.initial_size >= 0; + let ndata = Caml_array.make(nsize, "Empty"); + let ndata_tail = Caml_array.make(nsize, "Empty"); + let inplace = h.initial_size >= 0; h.data = ndata; - var insert_bucket = function (_param) { + let insert_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; - var cell = inplace ? param : ({ - TAG: "Cons", - key: key, - data: data, - next: "Empty" - }); - var nidx = Curry._2(indexfun, h, key); - var tail = Caml_array.get(ndata_tail, nidx); + let key = param.key; + let data = param.data; + let next = param.next; + let cell = inplace ? param : ({ + TAG: "Cons", + key: key, + data: data, + next: "Empty" + }); + let nidx = Curry._2(indexfun, h, key); + let tail = Caml_array.get(ndata_tail, nidx); if (typeof tail !== "object") { Caml_array.set(ndata, nidx, cell); } else { @@ -187,17 +187,17 @@ function resize(indexfun, h) { } Caml_array.set(ndata_tail, nidx, cell); _param = next; - continue ; + continue; }; }; - for(var i = 0; i < osize; ++i){ + for(let i = 0; i < osize; ++i){ insert_bucket(Caml_array.get(odata, i)); } if (!inplace) { - return ; + return; } - for(var i$1 = 0; i$1 < nsize; ++i$1){ - var tail = Caml_array.get(ndata_tail, i$1); + for(let i$1 = 0; i$1 < nsize; ++i$1){ + let tail = Caml_array.get(ndata_tail, i$1); if (typeof tail === "object") { tail.next = "Empty"; } @@ -210,8 +210,8 @@ function key_index(h, key) { } function add(h, key, data) { - var i = key_index(h, key); - var bucket = { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -226,160 +226,160 @@ function add(h, key, data) { } function remove(h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; } function find(h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Caml_obj.equal(key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Caml_obj.equal(key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Caml_obj.equal(key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(key, k)) { return data; } _param = next; - continue ; + continue; }; } } function find_opt(h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Caml_obj.equal(key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Caml_obj.equal(key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Caml_obj.equal(key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } } function find_all(h, key) { - var find_in_bucket = function (_param) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Caml_obj.equal(k, key)) { return { - hd: data, - tl: find_in_bucket(next) - }; + hd: data, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); @@ -387,118 +387,118 @@ function find_all(h, key) { function replace_bucket(key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; } function replace(h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } } function mem(h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Caml_obj.equal(k, key)) { return true; } _param = next; - continue ; + continue; }; } function iter(f, h) { - var do_bucket = function (_param) { + let do_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var key = param.key; - var data = param.data; - var next = param.next; + let key = param.key; + let data = param.data; + let next = param.next; Curry._2(f, key, data); _param = next; - continue ; + continue; }; }; - var old_trav = h.initial_size < 0; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - var d = h.data; - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + let d = h.data; + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ do_bucket(Caml_array.get(d, i)); } if (!old_trav) { return flip_ongoing_traversal(h); } else { - return ; + return; } } catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function filter_map_inplace_bucket(f, h, i, _prec, _param) { while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { if (typeof prec !== "object") { return Caml_array.set(h.data, i, "Empty"); } else { prec.next = "Empty"; - return ; + return; } } - var key = param.key; - var data = param.data; - var next = param.next; - var data$1 = Curry._2(f, key, data); + let key = param.key; + let data = param.data; + let next = param.next; + let data$1 = Curry._2(f, key, data); if (data$1 !== undefined) { if (typeof prec !== "object") { Caml_array.set(h.data, i, param); @@ -508,63 +508,63 @@ function filter_map_inplace_bucket(f, h, i, _prec, _param) { param.data = Caml_option.valFromOption(data$1); _param = next; _prec = param; - continue ; + continue; } h.size = h.size - 1 | 0; _param = next; - continue ; + continue; }; } function filter_map_inplace(f, h) { - var d = h.data; - var old_trav = h.initial_size < 0; + let d = h.data; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ filter_map_inplace_bucket(f, h, i, "Empty", Caml_array.get(h.data, i)); } - return ; + return; } catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function fold(f, h, init) { - var do_bucket = function (_b, _accu) { + let do_bucket = function (_b, _accu) { while(true) { - var accu = _accu; - var b = _b; + let accu = _accu; + let b = _b; if (typeof b !== "object") { return accu; } - var key = b.key; - var data = b.data; - var next = b.next; + let key = b.key; + let data = b.data; + let next = b.next; _accu = Curry._3(f, key, data, accu); _b = next; - continue ; + continue; }; }; - var old_trav = h.initial_size < 0; + let old_trav = h.initial_size < 0; if (!old_trav) { flip_ongoing_traversal(h); } try { - var d = h.data; - var accu = init; - for(var i = 0 ,i_finish = d.length; i < i_finish; ++i){ + let d = h.data; + let accu = init; + for(let i = 0 ,i_finish = d.length; i < i_finish; ++i){ accu = do_bucket(Caml_array.get(d, i), accu); } if (!old_trav) { @@ -575,54 +575,54 @@ function fold(f, h, init) { catch (exn){ if (old_trav) { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } flip_ongoing_traversal(h); throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function bucket_length(_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } - var next = param.next; + let next = param.next; _param = next; _accu = accu + 1 | 0; - continue ; + continue; }; } function stats(h) { - var mbl = $$Array.fold_left((function (m, b) { - return Caml.int_max(m, bucket_length(0, b)); - }), 0, h.data); - var histo = Caml_array.make(mbl + 1 | 0, 0); + let mbl = $$Array.fold_left((function (m, b) { + return Caml.int_max(m, bucket_length(0, b)); + }), 0, h.data); + let histo = Caml_array.make(mbl + 1 | 0, 0); $$Array.iter((function (b) { - var l = bucket_length(0, b); - Caml_array.set(histo, l, Caml_array.get(histo, l) + 1 | 0); - }), h.data); + let l = bucket_length(0, b); + Caml_array.set(histo, l, Caml_array.get(histo, l) + 1 | 0); + }), h.data); return { - num_bindings: h.size, - num_buckets: h.data.length, - max_bucket_length: mbl, - bucket_histogram: histo - }; + num_bindings: h.size, + num_buckets: h.data.length, + max_bucket_length: mbl, + bucket_histogram: histo + }; } function MakeSeeded(H) { - var key_index = function (h, key) { + let key_index = function (h, key) { return Curry._2(H.hash, h.seed, key) & (h.data.length - 1 | 0); }; - var add = function (h, key, data) { - var i = key_index(h, key); - var bucket = { + let add = function (h, key, data) { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -635,242 +635,242 @@ function MakeSeeded(H) { } }; - var remove = function (h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let remove = function (h, key) { + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; }; - var find = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(H.equal, key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(H.equal, key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(H.equal, key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(H.equal, key, k)) { return data; } _param = next; - continue ; + continue; }; } }; - var find_opt = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find_opt = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(H.equal, key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(H.equal, key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(H.equal, key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(H.equal, key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } }; - var find_all = function (h, key) { - var find_in_bucket = function (_param) { + let find_all = function (h, key) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var d = param.data; - var next = param.next; + let k = param.key; + let d = param.data; + let next = param.next; if (Curry._2(H.equal, k, key)) { return { - hd: d, - tl: find_in_bucket(next) - }; + hd: d, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); }; - var replace_bucket = function (key, data, _param) { + let replace_bucket = function (key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; }; - var replace = function (h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let replace = function (h, key, data) { + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } }; - var mem = function (h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let mem = function (h, key) { + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(H.equal, k, key)) { return true; } _param = next; - continue ; + continue; }; }; return { - create: create, - clear: clear, - reset: reset, - copy: copy, - add: add, - remove: remove, - find: find, - find_opt: find_opt, - find_all: find_all, - replace: replace, - mem: mem, - iter: iter, - filter_map_inplace: filter_map_inplace, - fold: fold, - length: length, - stats: stats - }; + create: create, + clear: clear, + reset: reset, + copy: copy, + add: add, + remove: remove, + find: find, + find_opt: find_opt, + find_all: find_all, + replace: replace, + mem: mem, + iter: iter, + filter_map_inplace: filter_map_inplace, + fold: fold, + length: length, + stats: stats + }; } function Make(H) { - var equal = H.equal; - var key_index = function (h, key) { + let equal = H.equal; + let key_index = function (h, key) { return Curry._1(H.hash, key) & (h.data.length - 1 | 0); }; - var add = function (h, key, data) { - var i = key_index(h, key); - var bucket = { + let add = function (h, key, data) { + let i = key_index(h, key); + let bucket = { TAG: "Cons", key: key, data: data, @@ -883,238 +883,238 @@ function Make(H) { } }; - var remove = function (h, key) { - var i = key_index(h, key); - var _prec = "Empty"; - var _param = Caml_array.get(h.data, i); + let remove = function (h, key) { + let i = key_index(h, key); + let _prec = "Empty"; + let _param = Caml_array.get(h.data, i); while(true) { - var param = _param; - var prec = _prec; + let param = _param; + let prec = _prec; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { h.size = h.size - 1 | 0; if (typeof prec !== "object") { return Caml_array.set(h.data, i, next); } else { prec.next = next; - return ; + return; } } _param = next; _prec = param; - continue ; + continue; }; }; - var find = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(equal, key, k1)) { return d1; } if (typeof next1 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(equal, key, k2)) { return d2; } if (typeof next2 !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(equal, key, k3)) { return d3; } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(equal, key, k)) { return data; } _param = next; - continue ; + continue; }; } }; - var find_opt = function (h, key) { - var match = Caml_array.get(h.data, key_index(h, key)); + let find_opt = function (h, key) { + let match = Caml_array.get(h.data, key_index(h, key)); if (typeof match !== "object") { - return ; + return; } - var k1 = match.key; - var d1 = match.data; - var next1 = match.next; + let k1 = match.key; + let d1 = match.data; + let next1 = match.next; if (Curry._2(equal, key, k1)) { return Caml_option.some(d1); } if (typeof next1 !== "object") { - return ; + return; } - var k2 = next1.key; - var d2 = next1.data; - var next2 = next1.next; + let k2 = next1.key; + let d2 = next1.data; + let next2 = next1.next; if (Curry._2(equal, key, k2)) { return Caml_option.some(d2); } if (typeof next2 !== "object") { - return ; + return; } - var k3 = next2.key; - var d3 = next2.data; - var next3 = next2.next; + let k3 = next2.key; + let d3 = next2.data; + let next3 = next2.next; if (Curry._2(equal, key, k3)) { return Caml_option.some(d3); } else { - var _param = next3; + let _param = next3; while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var k = param.key; - var data = param.data; - var next = param.next; + let k = param.key; + let data = param.data; + let next = param.next; if (Curry._2(equal, key, k)) { return Caml_option.some(data); } _param = next; - continue ; + continue; }; } }; - var find_all = function (h, key) { - var find_in_bucket = function (_param) { + let find_all = function (h, key) { + let find_in_bucket = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return /* [] */0; } - var k = param.key; - var d = param.data; - var next = param.next; + let k = param.key; + let d = param.data; + let next = param.next; if (Curry._2(equal, k, key)) { return { - hd: d, - tl: find_in_bucket(next) - }; + hd: d, + tl: find_in_bucket(next) + }; } _param = next; - continue ; + continue; }; }; return find_in_bucket(Caml_array.get(h.data, key_index(h, key))); }; - var replace_bucket = function (key, data, _param) { + let replace_bucket = function (key, data, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { param.key = key; param.data = data; return false; } _param = next; - continue ; + continue; }; }; - var replace = function (h, key, data) { - var i = key_index(h, key); - var l = Caml_array.get(h.data, i); + let replace = function (h, key, data) { + let i = key_index(h, key); + let l = Caml_array.get(h.data, i); if (replace_bucket(key, data, l)) { Caml_array.set(h.data, i, { - TAG: "Cons", - key: key, - data: data, - next: l - }); + TAG: "Cons", + key: key, + data: data, + next: l + }); h.size = h.size + 1 | 0; if (h.size > (h.data.length << 1)) { return resize(key_index, h); } else { - return ; + return; } } }; - var mem = function (h, key) { - var _param = Caml_array.get(h.data, key_index(h, key)); + let mem = function (h, key) { + let _param = Caml_array.get(h.data, key_index(h, key)); while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var k = param.key; - var next = param.next; + let k = param.key; + let next = param.next; if (Curry._2(equal, k, key)) { return true; } _param = next; - continue ; + continue; }; }; - var create$1 = function (sz) { + let create$1 = function (sz) { return create(false, sz); }; return { - create: create$1, - clear: clear, - reset: reset, - copy: copy, - add: add, - remove: remove, - find: find, - find_opt: find_opt, - find_all: find_all, - replace: replace, - mem: mem, - iter: iter, - filter_map_inplace: filter_map_inplace, - fold: fold, - length: length, - stats: stats - }; + create: create$1, + clear: clear, + reset: reset, + copy: copy, + add: add, + remove: remove, + find: find, + find_opt: find_opt, + find_all: find_all, + replace: replace, + mem: mem, + iter: iter, + filter_map_inplace: filter_map_inplace, + fold: fold, + length: length, + stats: stats + }; } -var seeded_hash_param = Caml_hash.hash; +let seeded_hash_param = Caml_hash.hash; exports.create = create; exports.clear = clear; diff --git a/lib/js/int32.js b/lib/js/int32.js index 660bf4bcb9..ac4211520b 100644 --- a/lib/js/int32.js +++ b/lib/js/int32.js @@ -38,8 +38,8 @@ function of_string_opt(s) { return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/lib/js/int64.js b/lib/js/int64.js index f25eb6d74d..58018e5256 100644 --- a/lib/js/int64.js +++ b/lib/js/int64.js @@ -31,8 +31,8 @@ function of_string_opt(s) { return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } diff --git a/lib/js/js_exn.js b/lib/js/js_exn.js index 1bd346f73c..5229577c1f 100644 --- a/lib/js/js_exn.js +++ b/lib/js/js_exn.js @@ -3,44 +3,44 @@ function raiseError(str) { throw new Error(new Error(str).RE_EXN_ID, { - cause: new Error(str) - }); + cause: new Error(str) + }); } function raiseEvalError(str) { throw new Error(new EvalError(str).RE_EXN_ID, { - cause: new EvalError(str) - }); + cause: new EvalError(str) + }); } function raiseRangeError(str) { throw new Error(new RangeError(str).RE_EXN_ID, { - cause: new RangeError(str) - }); + cause: new RangeError(str) + }); } function raiseReferenceError(str) { throw new Error(new ReferenceError(str).RE_EXN_ID, { - cause: new ReferenceError(str) - }); + cause: new ReferenceError(str) + }); } function raiseSyntaxError(str) { throw new Error(new SyntaxError(str).RE_EXN_ID, { - cause: new SyntaxError(str) - }); + cause: new SyntaxError(str) + }); } function raiseTypeError(str) { throw new Error(new TypeError(str).RE_EXN_ID, { - cause: new TypeError(str) - }); + cause: new TypeError(str) + }); } function raiseUriError(str) { throw new Error(new URIError(str).RE_EXN_ID, { - cause: new URIError(str) - }); + cause: new URIError(str) + }); } let $$Error$1 = "JsError"; diff --git a/lib/js/js_mapperRt.js b/lib/js/js_mapperRt.js index 1a831fbb4e..5fce534d03 100644 --- a/lib/js/js_mapperRt.js +++ b/lib/js/js_mapperRt.js @@ -4,47 +4,47 @@ function raiseWhenNotFound(x) { if (x == null) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } return x; } function fromInt(len, xs, $$enum) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { - return ; + return; } - var k = xs[i]; + let k = xs[i]; if (k === $$enum) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } function fromIntAssert(len, xs, $$enum) { - var _i = 0; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i === len) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var k = xs[i]; + let k = xs[i]; if (k === $$enum) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } diff --git a/lib/js/js_null.js b/lib/js/js_null.js index 359c7e0766..73f42da3cf 100644 --- a/lib/js/js_null.js +++ b/lib/js/js_null.js @@ -11,8 +11,8 @@ function getExn(f) { return f; } throw new Error(new Error("Js.Null.getExn").RE_EXN_ID, { - cause: new Error("Js.Null.getExn") - }); + cause: new Error("Js.Null.getExn") + }); } function bind(x, f) { diff --git a/lib/js/js_option.js b/lib/js/js_option.js index 834afb9095..bdd59b6389 100644 --- a/lib/js/js_option.js +++ b/lib/js/js_option.js @@ -27,8 +27,8 @@ function getExn(x) { return Caml_option.valFromOption(x); } throw new Error(new Error("getExn").RE_EXN_ID, { - cause: new Error("getExn") - }); + cause: new Error("getExn") + }); } function equal(eq, a, b) { diff --git a/lib/js/js_undefined.js b/lib/js/js_undefined.js index cc1ef4c356..fcbfb19305 100644 --- a/lib/js/js_undefined.js +++ b/lib/js/js_undefined.js @@ -15,8 +15,8 @@ function getExn(f) { return f; } throw new Error(new Error("Js.Undefined.getExn").RE_EXN_ID, { - cause: new Error("Js.Undefined.getExn") - }); + cause: new Error("Js.Undefined.getExn") + }); } function bind(x, f) { diff --git a/lib/js/lexing.js b/lib/js/lexing.js index 05e01c52e4..3e82b84f62 100644 --- a/lib/js/lexing.js +++ b/lib/js/lexing.js @@ -1,16 +1,16 @@ 'use strict'; -var Bytes = require("./bytes.js"); -var Curry = require("./curry.js"); -var Caml_array = require("./caml_array.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_lexer = require("./caml_lexer.js"); +let Bytes = require("./bytes.js"); +let Curry = require("./curry.js"); +let Caml_array = require("./caml_array.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_lexer = require("./caml_lexer.js"); function engine(tbl, state, buf) { - var result = Caml_lexer.lex_engine(tbl, state, buf); + let result = Caml_lexer.lex_engine(tbl, state, buf); if (result >= 0) { buf.lex_start_p = buf.lex_curr_p; - var init = buf.lex_curr_p; + let init = buf.lex_curr_p; buf.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -22,10 +22,10 @@ function engine(tbl, state, buf) { } function new_engine(tbl, state, buf) { - var result = Caml_lexer.new_lex_engine(tbl, state, buf); + let result = Caml_lexer.new_lex_engine(tbl, state, buf); if (result >= 0) { buf.lex_start_p = buf.lex_curr_p; - var init = buf.lex_curr_p; + let init = buf.lex_curr_p; buf.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -36,7 +36,7 @@ function new_engine(tbl, state, buf) { return result; } -var zero_pos = { +let zero_pos = { pos_fname: "", pos_lnum: 1, pos_bol: 0, @@ -44,94 +44,94 @@ var zero_pos = { }; function from_function(f) { - var partial_arg = Caml_bytes.create(512); + let partial_arg = Caml_bytes.create(512); return { - refill_buff: (function (param) { - var read = Curry._2(f, partial_arg, partial_arg.length); - var n = read > 0 ? read : (param.lex_eof_reached = true, 0); - if ((param.lex_buffer_len + n | 0) > param.lex_buffer.length) { - if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) <= param.lex_buffer.length) { - Bytes.blit(param.lex_buffer, param.lex_start_pos, param.lex_buffer, 0, param.lex_buffer_len - param.lex_start_pos | 0); - } else { - var newlen = (param.lex_buffer.length << 1); - if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { - throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "Lexing.lex_refill: cannot grow buffer" - } - }); + refill_buff: (function (param) { + let read = Curry._2(f, partial_arg, partial_arg.length); + let n = read > 0 ? read : (param.lex_eof_reached = true, 0); + if ((param.lex_buffer_len + n | 0) > param.lex_buffer.length) { + if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) <= param.lex_buffer.length) { + Bytes.blit(param.lex_buffer, param.lex_start_pos, param.lex_buffer, 0, param.lex_buffer_len - param.lex_start_pos | 0); + } else { + let newlen = (param.lex_buffer.length << 1); + if (((param.lex_buffer_len - param.lex_start_pos | 0) + n | 0) > newlen) { + throw new Error("Failure", { + cause: { + RE_EXN_ID: "Failure", + _1: "Lexing.lex_refill: cannot grow buffer" } - var newbuf = Caml_bytes.create(newlen); - Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); - param.lex_buffer = newbuf; - } - var s = param.lex_start_pos; - param.lex_abs_pos = param.lex_abs_pos + s | 0; - param.lex_curr_pos = param.lex_curr_pos - s | 0; - param.lex_start_pos = 0; - param.lex_last_pos = param.lex_last_pos - s | 0; - param.lex_buffer_len = param.lex_buffer_len - s | 0; - var t = param.lex_mem; - for(var i = 0 ,i_finish = t.length; i < i_finish; ++i){ - var v = Caml_array.get(t, i); - if (v >= 0) { - Caml_array.set(t, i, v - s | 0); - } - - } - } - Bytes.blit(partial_arg, 0, param.lex_buffer, param.lex_buffer_len, n); - param.lex_buffer_len = param.lex_buffer_len + n | 0; - }), - lex_buffer: Caml_bytes.create(1024), - lex_buffer_len: 0, - lex_abs_pos: 0, - lex_start_pos: 0, - lex_curr_pos: 0, - lex_last_pos: 0, - lex_last_action: 0, - lex_eof_reached: false, - lex_mem: [], - lex_start_p: zero_pos, - lex_curr_p: zero_pos - }; + }); + } + let newbuf = Caml_bytes.create(newlen); + Bytes.blit(param.lex_buffer, param.lex_start_pos, newbuf, 0, param.lex_buffer_len - param.lex_start_pos | 0); + param.lex_buffer = newbuf; + } + let s = param.lex_start_pos; + param.lex_abs_pos = param.lex_abs_pos + s | 0; + param.lex_curr_pos = param.lex_curr_pos - s | 0; + param.lex_start_pos = 0; + param.lex_last_pos = param.lex_last_pos - s | 0; + param.lex_buffer_len = param.lex_buffer_len - s | 0; + let t = param.lex_mem; + for(let i = 0 ,i_finish = t.length; i < i_finish; ++i){ + let v = Caml_array.get(t, i); + if (v >= 0) { + Caml_array.set(t, i, v - s | 0); + } + + } + } + Bytes.blit(partial_arg, 0, param.lex_buffer, param.lex_buffer_len, n); + param.lex_buffer_len = param.lex_buffer_len + n | 0; + }), + lex_buffer: Caml_bytes.create(1024), + lex_buffer_len: 0, + lex_abs_pos: 0, + lex_start_pos: 0, + lex_curr_pos: 0, + lex_last_pos: 0, + lex_last_action: 0, + lex_eof_reached: false, + lex_mem: [], + lex_start_p: zero_pos, + lex_curr_p: zero_pos + }; } function from_string(s) { return { - refill_buff: (function (lexbuf) { - lexbuf.lex_eof_reached = true; - }), - lex_buffer: Bytes.of_string(s), - lex_buffer_len: s.length, - lex_abs_pos: 0, - lex_start_pos: 0, - lex_curr_pos: 0, - lex_last_pos: 0, - lex_last_action: 0, - lex_eof_reached: true, - lex_mem: [], - lex_start_p: zero_pos, - lex_curr_p: zero_pos - }; + refill_buff: (function (lexbuf) { + lexbuf.lex_eof_reached = true; + }), + lex_buffer: Bytes.of_string(s), + lex_buffer_len: s.length, + lex_abs_pos: 0, + lex_start_pos: 0, + lex_curr_pos: 0, + lex_last_pos: 0, + lex_last_action: 0, + lex_eof_reached: true, + lex_mem: [], + lex_start_p: zero_pos, + lex_curr_p: zero_pos + }; } function lexeme(lexbuf) { - var len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos | 0; + let len = lexbuf.lex_curr_pos - lexbuf.lex_start_pos | 0; return Bytes.sub_string(lexbuf.lex_buffer, lexbuf.lex_start_pos, len); } function sub_lexeme(lexbuf, i1, i2) { - var len = i2 - i1 | 0; + let len = i2 - i1 | 0; return Bytes.sub_string(lexbuf.lex_buffer, i1, len); } function sub_lexeme_opt(lexbuf, i1, i2) { if (i1 < 0) { - return ; + return; } - var len = i2 - i1 | 0; + let len = i2 - i1 | 0; return Bytes.sub_string(lexbuf.lex_buffer, i1, len); } @@ -167,7 +167,7 @@ function lexeme_end_p(lexbuf) { } function new_line(lexbuf) { - var lcp = lexbuf.lex_curr_p; + let lcp = lexbuf.lex_curr_p; lexbuf.lex_curr_p = { pos_fname: lcp.pos_fname, pos_lnum: lcp.pos_lnum + 1 | 0, @@ -179,7 +179,7 @@ function new_line(lexbuf) { function flush_input(lb) { lb.lex_curr_pos = 0; lb.lex_abs_pos = 0; - var init = lb.lex_curr_p; + let init = lb.lex_curr_p; lb.lex_curr_p = { pos_fname: init.pos_fname, pos_lnum: init.pos_lnum, @@ -189,7 +189,7 @@ function flush_input(lb) { lb.lex_buffer_len = 0; } -var dummy_pos = { +let dummy_pos = { pos_fname: "", pos_lnum: 0, pos_bol: 0, diff --git a/lib/js/list.js b/lib/js/list.js index b2d6ab3b99..0d293713ec 100644 --- a/lib/js/list.js +++ b/lib/js/list.js @@ -1,30 +1,30 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_obj = require("./caml_obj.js"); -var Pervasives = require("./pervasives.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_obj = require("./caml_obj.js"); +let Pervasives = require("./pervasives.js"); +let Caml_option = require("./caml_option.js"); function length(l) { - var _len = 0; - var _param = l; + let _len = 0; + let _param = l; while(true) { - var param = _param; - var len = _len; + let param = _param; + let len = _len; if (!param) { return len; } _param = param.tl; _len = len + 1 | 0; - continue ; + continue; }; } function cons(a, l) { return { - hd: a, - tl: l - }; + hd: a, + tl: l + }; } function hd(param) { @@ -32,11 +32,11 @@ function hd(param) { return param.hd; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "hd" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { @@ -44,74 +44,74 @@ function tl(param) { return param.tl; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "tl" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (l$1) { if (n$1 === 0) { return l$1.hd; } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "nth" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (!l$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(l$1.hd); } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; }; } function rev_append(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -120,7 +120,7 @@ function rev_append(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -130,8 +130,8 @@ function rev(l) { function init_tailrec_aux(_acc, _i, n, f) { while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i >= n) { return acc; } @@ -140,7 +140,7 @@ function init_tailrec_aux(_acc, _i, n, f) { hd: Curry._1(f, i), tl: acc }; - continue ; + continue; }; } @@ -148,21 +148,21 @@ function init_aux(i, n, f) { if (i >= n) { return /* [] */0; } - var r = Curry._1(f, i); + let r = Curry._1(f, i); return { - hd: r, - tl: init_aux(i + 1 | 0, n, f) - }; + hd: r, + tl: init_aux(i + 1 | 0, n, f) + }; } function init(len, f) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -183,22 +183,22 @@ function map(f, param) { if (!param) { return /* [] */0; } - var r = Curry._1(f, param.hd); + let r = Curry._1(f, param.hd); return { - hd: r, - tl: map(f, param.tl) - }; + hd: r, + tl: map(f, param.tl) + }; } function mapi(i, f, param) { if (!param) { return /* [] */0; } - var r = Curry._2(f, i, param.hd); + let r = Curry._2(f, i, param.hd); return { - hd: r, - tl: mapi(i + 1 | 0, f, param.tl) - }; + hd: r, + tl: mapi(i + 1 | 0, f, param.tl) + }; } function mapi$1(f, l) { @@ -206,11 +206,11 @@ function mapi$1(f, l) { } function rev_map(f, l) { - var _accu = /* [] */0; - var _param = l; + let _accu = /* [] */0; + let _param = l; while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } @@ -219,48 +219,48 @@ function rev_map(f, l) { hd: Curry._1(f, param.hd), tl: accu }; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } Curry._1(f, param.hd); _param = param.tl; - continue ; + continue; }; } function iteri(f, l) { - var _i = 0; - var _param = l; + let _i = 0; + let _param = l; while(true) { - var param = _param; - var i = _i; + let param = _param; + let i = _i; if (!param) { - return ; + return; } Curry._2(f, i, param.hd); _param = param.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, _accu, _l) { while(true) { - var l = _l; - var accu = _accu; + let l = _l; + let accu = _accu; if (!l) { return accu; } _l = l.tl; _accu = Curry._2(f, accu, l.hd); - continue ; + continue; }; } @@ -275,38 +275,38 @@ function fold_right(f, l, accu) { function map2(f, l1, l2) { if (l1) { if (l2) { - var r = Curry._2(f, l1.hd, l2.hd); + let r = Curry._2(f, l1.hd, l2.hd); return { - hd: r, - tl: map2(f, l1.tl, l2.tl) - }; + hd: r, + tl: map2(f, l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { - var _accu = /* [] */0; - var _l1 = l1; - var _l2 = l2; + let _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; while(true) { - var l2$1 = _l2; - var l1$1 = _l1; - var accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; + let accu = _accu; if (l1$1) { if (l2$1) { _l2 = l2$1.tl; @@ -315,22 +315,22 @@ function rev_map2(f, l1, l2) { hd: Curry._2(f, l1$1.hd, l2$1.hd), tl: accu }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -338,60 +338,60 @@ function rev_map2(f, l1, l2) { function iter2(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { Curry._2(f, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { - return ; + return; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } function fold_left2(f, _accu, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; - var accu = _accu; + let l2 = _l2; + let l1 = _l1; + let accu = _accu; if (l1) { if (l2) { _l2 = l2.tl; _l1 = l1.tl; _accu = Curry._3(f, accu, l1.hd, l2.hd); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -403,26 +403,26 @@ function fold_right2(f, l1, l2, accu) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return true; } @@ -430,13 +430,13 @@ function for_all(p, _param) { return false; } _param = param.tl; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -444,14 +444,14 @@ function exists(p, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function for_all2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (!Curry._2(p, l1.hd, l2.hd)) { @@ -459,31 +459,31 @@ function for_all2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } function exists2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (Curry._2(p, l1.hd, l2.hd)) { @@ -491,30 +491,30 @@ function exists2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } function mem(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -522,13 +522,13 @@ function mem(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function memq(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -536,81 +536,81 @@ function memq(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assoc_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (match[0] === x) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assq_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (match[0] === x) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function mem_assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -618,13 +618,13 @@ function mem_assoc(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function mem_assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -632,7 +632,7 @@ function mem_assq(x, _param) { return true; } _param = param.tl; - continue ; + continue; }; } @@ -640,15 +640,15 @@ function remove_assoc(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (Caml_obj.equal(pair[0], x)) { return l; } else { return { - hd: pair, - tl: remove_assoc(x, l) - }; + hd: pair, + tl: remove_assoc(x, l) + }; } } @@ -656,159 +656,159 @@ function remove_assq(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (pair[0] === x) { return l; } else { return { - hd: pair, - tl: remove_assq(x, l) - }; + hd: pair, + tl: remove_assq(x, l) + }; } } function find(p, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return x; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function find_opt(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return Caml_option.some(x); } _param = param.tl; - continue ; + continue; }; } function find_all(p) { return function (param) { - var _accu = /* [] */0; - var _param = param; + let _accu = /* [] */0; + let _param = param; while(true) { - var param$1 = _param; - var accu = _accu; + let param$1 = _param; + let accu = _accu; if (!param$1) { return rev_append(accu, /* [] */0); } - var l = param$1.tl; - var x = param$1.hd; + let l = param$1.tl; + let x = param$1.hd; if (Curry._1(p, x)) { _param = l; _accu = { hd: x, tl: accu }; - continue ; + continue; } _param = l; - continue ; + continue; }; }; } function partition(p, l) { - var _yes = /* [] */0; - var _no = /* [] */0; - var _param = l; + let _yes = /* [] */0; + let _no = /* [] */0; + let _param = l; while(true) { - var param = _param; - var no = _no; - var yes = _yes; + let param = _param; + let no = _no; + let yes = _yes; if (!param) { return [ - rev_append(yes, /* [] */0), - rev_append(no, /* [] */0) - ]; + rev_append(yes, /* [] */0), + rev_append(no, /* [] */0) + ]; } - var l$1 = param.tl; - var x = param.hd; + let l$1 = param.tl; + let x = param.hd; if (Curry._1(p, x)) { _param = l$1; _yes = { hd: x, tl: yes }; - continue ; + continue; } _param = l$1; _no = { hd: x, tl: no }; - continue ; + continue; }; } function split(param) { if (!param) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = param.hd; - var match$1 = split(param.tl); + let match = param.hd; + let match$1 = split(param.tl); return [ - { - hd: match[0], - tl: match$1[0] - }, - { - hd: match[1], - tl: match$1[1] - } - ]; + { + hd: match[0], + tl: match$1[0] + }, + { + hd: match[1], + tl: match$1[1] + } + ]; } function combine(l1, l2) { if (l1) { if (l2) { return { - hd: [ - l1.hd, - l2.hd - ], - tl: combine(l1.tl, l2.tl) - }; + hd: [ + l1.hd, + l2.hd + ], + tl: combine(l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -818,125 +818,125 @@ function merge(cmp, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { return { - hd: h1, - tl: merge(cmp, l1.tl, l2) - }; + hd: h1, + tl: merge(cmp, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(cmp, l1, l2.tl) - }; + hd: h2, + tl: merge(cmp, l1, l2.tl) + }; } } function chop(_k, _l) { while(true) { - var l = _l; - var k = _k; + let l = _l; + let k = _k; if (k === 0) { return l; } if (l) { _l = l.tl; _k = k - 1 | 0; - continue ; + continue; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "list.res", - 420, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "list.res", + 420, + 11 + ] + } + }); }; } function stable_sort(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) <= 0) { if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -945,144 +945,144 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) <= 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) > 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) > 0) { if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1091,67 +1091,67 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1160,151 +1160,151 @@ function stable_sort(cmp, l) { } function sort_uniq(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c < 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 < 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 < 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 < 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1313,59 +1313,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 < 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1373,7 +1373,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 > 0) { _accu = { @@ -1381,161 +1381,161 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c > 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1544,59 +1544,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1604,7 +1604,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 < 0) { _accu = { @@ -1612,17 +1612,17 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1632,8 +1632,8 @@ function sort_uniq(cmp, l) { function compare_lengths(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1646,14 +1646,14 @@ function compare_lengths(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function compare_length_with(_l, _n) { while(true) { - var n = _n; - var l = _l; + let n = _n; + let l = _l; if (!l) { if (n === 0) { return 0; @@ -1668,19 +1668,19 @@ function compare_length_with(_l, _n) { } _n = n - 1 | 0; _l = l.tl; - continue ; + continue; }; } -var append = Pervasives.$at; +let append = Pervasives.$at; -var concat = flatten; +let concat = flatten; -var filter = find_all; +let filter = find_all; -var sort = stable_sort; +let sort = stable_sort; -var fast_sort = stable_sort; +let fast_sort = stable_sort; exports.length = length; exports.compare_lengths = compare_lengths; diff --git a/lib/js/listLabels.js b/lib/js/listLabels.js index 045ab631fd..576fa5c778 100644 --- a/lib/js/listLabels.js +++ b/lib/js/listLabels.js @@ -1,30 +1,30 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_obj = require("./caml_obj.js"); -var Pervasives = require("./pervasives.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_obj = require("./caml_obj.js"); +let Pervasives = require("./pervasives.js"); +let Caml_option = require("./caml_option.js"); function length(l) { - var _len = 0; - var _param = l; + let _len = 0; + let _param = l; while(true) { - var param = _param; - var len = _len; + let param = _param; + let len = _len; if (!param) { return len; } _param = param.tl; _len = len + 1 | 0; - continue ; + continue; }; } function cons(a, l) { return { - hd: a, - tl: l - }; + hd: a, + tl: l + }; } function hd(param) { @@ -32,11 +32,11 @@ function hd(param) { return param.hd; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "hd" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "hd" + } + }); } function tl(param) { @@ -44,74 +44,74 @@ function tl(param) { return param.tl; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "tl" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "tl" + } + }); } function nth(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (l$1) { if (n$1 === 0) { return l$1.hd; } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; } throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: "nth" - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: "nth" + } + }); }; } function nth_opt(l, n) { if (n < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.nth" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.nth" + } + }); } - var _l = l; - var _n = n; + let _l = l; + let _n = n; while(true) { - var n$1 = _n; - var l$1 = _l; + let n$1 = _n; + let l$1 = _l; if (!l$1) { - return ; + return; } if (n$1 === 0) { return Caml_option.some(l$1.hd); } _n = n$1 - 1 | 0; _l = l$1.tl; - continue ; + continue; }; } function rev_append(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { return l2; } @@ -120,7 +120,7 @@ function rev_append(_l1, _l2) { tl: l2 }; _l1 = l1.tl; - continue ; + continue; }; } @@ -130,8 +130,8 @@ function rev(l) { function init_tailrec_aux(_acc, _i, n, f) { while(true) { - var i = _i; - var acc = _acc; + let i = _i; + let acc = _acc; if (i >= n) { return acc; } @@ -140,7 +140,7 @@ function init_tailrec_aux(_acc, _i, n, f) { hd: Curry._1(f, i), tl: acc }; - continue ; + continue; }; } @@ -148,21 +148,21 @@ function init_aux(i, n, f) { if (i >= n) { return /* [] */0; } - var r = Curry._1(f, i); + let r = Curry._1(f, i); return { - hd: r, - tl: init_aux(i + 1 | 0, n, f) - }; + hd: r, + tl: init_aux(i + 1 | 0, n, f) + }; } function init(len, f) { if (len < 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.init" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.init" + } + }); } if (len > 10000) { return rev_append(init_tailrec_aux(/* [] */0, 0, len, f), /* [] */0); @@ -183,22 +183,22 @@ function map(f, param) { if (!param) { return /* [] */0; } - var r = Curry._1(f, param.hd); + let r = Curry._1(f, param.hd); return { - hd: r, - tl: map(f, param.tl) - }; + hd: r, + tl: map(f, param.tl) + }; } function mapi(i, f, param) { if (!param) { return /* [] */0; } - var r = Curry._2(f, i, param.hd); + let r = Curry._2(f, i, param.hd); return { - hd: r, - tl: mapi(i + 1 | 0, f, param.tl) - }; + hd: r, + tl: mapi(i + 1 | 0, f, param.tl) + }; } function mapi$1(f, l) { @@ -206,11 +206,11 @@ function mapi$1(f, l) { } function rev_map(f, l) { - var _accu = /* [] */0; - var _param = l; + let _accu = /* [] */0; + let _param = l; while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (!param) { return accu; } @@ -219,48 +219,48 @@ function rev_map(f, l) { hd: Curry._1(f, param.hd), tl: accu }; - continue ; + continue; }; } function iter(f, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } Curry._1(f, param.hd); _param = param.tl; - continue ; + continue; }; } function iteri(f, l) { - var _i = 0; - var _param = l; + let _i = 0; + let _param = l; while(true) { - var param = _param; - var i = _i; + let param = _param; + let i = _i; if (!param) { - return ; + return; } Curry._2(f, i, param.hd); _param = param.tl; _i = i + 1 | 0; - continue ; + continue; }; } function fold_left(f, _accu, _l) { while(true) { - var l = _l; - var accu = _accu; + let l = _l; + let accu = _accu; if (!l) { return accu; } _l = l.tl; _accu = Curry._2(f, accu, l.hd); - continue ; + continue; }; } @@ -275,38 +275,38 @@ function fold_right(f, l, accu) { function map2(f, l1, l2) { if (l1) { if (l2) { - var r = Curry._2(f, l1.hd, l2.hd); + let r = Curry._2(f, l1.hd, l2.hd); return { - hd: r, - tl: map2(f, l1.tl, l2.tl) - }; + hd: r, + tl: map2(f, l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.map2" + } + }); } function rev_map2(f, l1, l2) { - var _accu = /* [] */0; - var _l1 = l1; - var _l2 = l2; + let _accu = /* [] */0; + let _l1 = l1; + let _l2 = l2; while(true) { - var l2$1 = _l2; - var l1$1 = _l1; - var accu = _accu; + let l2$1 = _l2; + let l1$1 = _l1; + let accu = _accu; if (l1$1) { if (l2$1) { _l2 = l2$1.tl; @@ -315,22 +315,22 @@ function rev_map2(f, l1, l2) { hd: Curry._2(f, l1$1.hd, l2$1.hd), tl: accu }; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } if (l2$1) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.rev_map2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.rev_map2" + } + }); } return accu; }; @@ -338,60 +338,60 @@ function rev_map2(f, l1, l2) { function iter2(f, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { Curry._2(f, l1.hd, l2.hd); _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); } if (!l2) { - return ; + return; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.iter2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.iter2" + } + }); }; } function fold_left2(f, _accu, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; - var accu = _accu; + let l2 = _l2; + let l1 = _l1; + let accu = _accu; if (l1) { if (l2) { _l2 = l2.tl; _l1 = l1.tl; _accu = Curry._3(f, accu, l1.hd, l2.hd); - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_left2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_left2" + } + }); } return accu; }; @@ -403,26 +403,26 @@ function fold_right2(f, l1, l2, accu) { return Curry._3(f, l1.hd, l2.hd, fold_right2(f, l1.tl, l2.tl, accu)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } if (l2) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.fold_right2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.fold_right2" + } + }); } return accu; } function for_all(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return true; } @@ -430,13 +430,13 @@ function for_all(p, _param) { return false; } _param = param.tl; - continue ; + continue; }; } function exists(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { return false; } @@ -444,14 +444,14 @@ function exists(p, _param) { return true; } _param = param.tl; - continue ; + continue; }; } function for_all2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (!Curry._2(p, l1.hd, l2.hd)) { @@ -459,31 +459,31 @@ function for_all2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); } if (!l2) { return true; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.for_all2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.for_all2" + } + }); }; } function exists2(p, _l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (l1) { if (l2) { if (Curry._2(p, l1.hd, l2.hd)) { @@ -491,30 +491,30 @@ function exists2(p, _l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); } if (!l2) { return false; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.exists2" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.exists2" + } + }); }; } function mem(x, _set) { while(true) { - var set = _set; + let set = _set; if (!set) { return false; } @@ -522,13 +522,13 @@ function mem(x, _set) { return true; } _set = set.tl; - continue ; + continue; }; } function memq(x, _set) { while(true) { - var set = _set; + let set = _set; if (!set) { return false; } @@ -536,81 +536,81 @@ function memq(x, _set) { return true; } _set = set.tl; - continue ; + continue; }; } function assoc(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assoc_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (Caml_obj.equal(match[0], x)) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function assq(x, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var match = param.hd; + let match = param.hd; if (match[0] === x) { return match[1]; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function assq_opt(x, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var match = param.hd; + let match = param.hd; if (match[0] === x) { return Caml_option.some(match[1]); } _param = param.tl; - continue ; + continue; }; } function mem_assoc(x, _map) { while(true) { - var map = _map; + let map = _map; if (!map) { return false; } @@ -618,13 +618,13 @@ function mem_assoc(x, _map) { return true; } _map = map.tl; - continue ; + continue; }; } function mem_assq(x, _map) { while(true) { - var map = _map; + let map = _map; if (!map) { return false; } @@ -632,7 +632,7 @@ function mem_assq(x, _map) { return true; } _map = map.tl; - continue ; + continue; }; } @@ -640,15 +640,15 @@ function remove_assoc(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (Caml_obj.equal(pair[0], x)) { return l; } else { return { - hd: pair, - tl: remove_assoc(x, l) - }; + hd: pair, + tl: remove_assoc(x, l) + }; } } @@ -656,159 +656,159 @@ function remove_assq(x, param) { if (!param) { return /* [] */0; } - var l = param.tl; - var pair = param.hd; + let l = param.tl; + let pair = param.hd; if (pair[0] === x) { return l; } else { return { - hd: pair, - tl: remove_assq(x, l) - }; + hd: pair, + tl: remove_assq(x, l) + }; } } function find(p, _param) { while(true) { - var param = _param; + let param = _param; if (param) { - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return x; } _param = param.tl; - continue ; + continue; } throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); }; } function find_opt(p, _param) { while(true) { - var param = _param; + let param = _param; if (!param) { - return ; + return; } - var x = param.hd; + let x = param.hd; if (Curry._1(p, x)) { return Caml_option.some(x); } _param = param.tl; - continue ; + continue; }; } function find_all(p) { return function (param) { - var _accu = /* [] */0; - var _param = param; + let _accu = /* [] */0; + let _param = param; while(true) { - var param$1 = _param; - var accu = _accu; + let param$1 = _param; + let accu = _accu; if (!param$1) { return rev_append(accu, /* [] */0); } - var l = param$1.tl; - var x = param$1.hd; + let l = param$1.tl; + let x = param$1.hd; if (Curry._1(p, x)) { _param = l; _accu = { hd: x, tl: accu }; - continue ; + continue; } _param = l; - continue ; + continue; }; }; } function partition(p, l) { - var _yes = /* [] */0; - var _no = /* [] */0; - var _param = l; + let _yes = /* [] */0; + let _no = /* [] */0; + let _param = l; while(true) { - var param = _param; - var no = _no; - var yes = _yes; + let param = _param; + let no = _no; + let yes = _yes; if (!param) { return [ - rev_append(yes, /* [] */0), - rev_append(no, /* [] */0) - ]; + rev_append(yes, /* [] */0), + rev_append(no, /* [] */0) + ]; } - var l$1 = param.tl; - var x = param.hd; + let l$1 = param.tl; + let x = param.hd; if (Curry._1(p, x)) { _param = l$1; _yes = { hd: x, tl: yes }; - continue ; + continue; } _param = l$1; _no = { hd: x, tl: no }; - continue ; + continue; }; } function split(param) { if (!param) { return [ - /* [] */0, - /* [] */0 - ]; + /* [] */0, + /* [] */0 + ]; } - var match = param.hd; - var match$1 = split(param.tl); + let match = param.hd; + let match$1 = split(param.tl); return [ - { - hd: match[0], - tl: match$1[0] - }, - { - hd: match[1], - tl: match$1[1] - } - ]; + { + hd: match[0], + tl: match$1[0] + }, + { + hd: match[1], + tl: match$1[1] + } + ]; } function combine(l1, l2) { if (l1) { if (l2) { return { - hd: [ - l1.hd, - l2.hd - ], - tl: combine(l1.tl, l2.tl) - }; + hd: [ + l1.hd, + l2.hd + ], + tl: combine(l1.tl, l2.tl) + }; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } if (!l2) { return /* [] */0; } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "List.combine" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "List.combine" + } + }); } function merge(cmp, l1, l2) { @@ -818,125 +818,125 @@ function merge(cmp, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { return { - hd: h1, - tl: merge(cmp, l1.tl, l2) - }; + hd: h1, + tl: merge(cmp, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(cmp, l1, l2.tl) - }; + hd: h2, + tl: merge(cmp, l1, l2.tl) + }; } } function chop(_k, _l) { while(true) { - var l = _l; - var k = _k; + let l = _l; + let k = _k; if (k === 0) { return l; } if (l) { _l = l.tl; _k = k - 1 | 0; - continue ; + continue; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "listLabels.res", - 420, - 11 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "listLabels.res", + 420, + 11 + ] + } + }); }; } function stable_sort(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) <= 0) { if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) <= 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) <= 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -945,144 +945,144 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) <= 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) > 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; if (Curry._2(cmp, x1, x2) > 0) { if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } else if (Curry._2(cmp, x1, x3) > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } else if (Curry._2(cmp, x2, x3) > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1091,67 +1091,67 @@ function stable_sort(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; + let x2$1 = match$2.hd; + let x1$1 = l.hd; if (Curry._2(cmp, x1$1, x2$1) > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var h2 = l2$1.hd; - var h1 = l1.hd; + let h2 = l2$1.hd; + let h1 = l1.hd; if (Curry._2(cmp, h1, h2) <= 0) { _accu = { hd: h1, tl: accu }; _l1 = l1.tl; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = l2$1.tl; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1160,151 +1160,151 @@ function stable_sort(cmp, l) { } function sort_uniq(cmp, l) { - var sort = function (n, l) { + let sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c < 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 < 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 < 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 < 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 < 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1313,59 +1313,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 < 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = rev_sort(n1, l); - var s2 = rev_sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = rev_sort(n1, l); + let s2 = rev_sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1373,7 +1373,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 > 0) { _accu = { @@ -1381,161 +1381,161 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var rev_sort = function (n, l) { + let rev_sort = function (n, l) { if (n !== 2) { if (n === 3 && l) { - var match = l.tl; + let match = l.tl; if (match) { - var match$1 = match.tl; + let match$1 = match.tl; if (match$1) { - var x3 = match$1.hd; - var x2 = match.hd; - var x1 = l.hd; - var c = Curry._2(cmp, x1, x2); + let x3 = match$1.hd; + let x2 = match.hd; + let x1 = l.hd; + let c = Curry._2(cmp, x1, x2); if (c === 0) { - var c$1 = Curry._2(cmp, x2, x3); + let c$1 = Curry._2(cmp, x2, x3); if (c$1 === 0) { return { - hd: x2, - tl: /* [] */0 - }; + hd: x2, + tl: /* [] */0 + }; } else if (c$1 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } } if (c > 0) { - var c$2 = Curry._2(cmp, x2, x3); + let c$2 = Curry._2(cmp, x2, x3); if (c$2 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } if (c$2 > 0) { return { - hd: x1, - tl: { - hd: x2, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x2, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$3 = Curry._2(cmp, x1, x3); + let c$3 = Curry._2(cmp, x1, x3); if (c$3 === 0) { return { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - }; + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + }; } else if (c$3 > 0) { return { - hd: x1, - tl: { - hd: x3, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x1, + tl: { + hd: x3, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x1, - tl: { - hd: x2, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x1, + tl: { + hd: x2, + tl: /* [] */0 + } + } + }; } } - var c$4 = Curry._2(cmp, x1, x3); + let c$4 = Curry._2(cmp, x1, x3); if (c$4 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } if (c$4 > 0) { return { - hd: x2, - tl: { - hd: x1, - tl: { - hd: x3, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x1, + tl: { + hd: x3, + tl: /* [] */0 + } + } + }; } - var c$5 = Curry._2(cmp, x2, x3); + let c$5 = Curry._2(cmp, x2, x3); if (c$5 === 0) { return { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - }; + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + }; } else if (c$5 > 0) { return { - hd: x2, - tl: { - hd: x3, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x2, + tl: { + hd: x3, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } else { return { - hd: x3, - tl: { - hd: x2, - tl: { - hd: x1, - tl: /* [] */0 - } - } - }; + hd: x3, + tl: { + hd: x2, + tl: { + hd: x1, + tl: /* [] */0 + } + } + }; } } @@ -1544,59 +1544,59 @@ function sort_uniq(cmp, l) { } } else if (l) { - var match$2 = l.tl; + let match$2 = l.tl; if (match$2) { - var x2$1 = match$2.hd; - var x1$1 = l.hd; - var c$6 = Curry._2(cmp, x1$1, x2$1); + let x2$1 = match$2.hd; + let x1$1 = l.hd; + let c$6 = Curry._2(cmp, x1$1, x2$1); if (c$6 === 0) { return { - hd: x1$1, - tl: /* [] */0 - }; + hd: x1$1, + tl: /* [] */0 + }; } else if (c$6 > 0) { return { - hd: x1$1, - tl: { - hd: x2$1, - tl: /* [] */0 - } - }; + hd: x1$1, + tl: { + hd: x2$1, + tl: /* [] */0 + } + }; } else { return { - hd: x2$1, - tl: { - hd: x1$1, - tl: /* [] */0 - } - }; + hd: x2$1, + tl: { + hd: x1$1, + tl: /* [] */0 + } + }; } } } - var n1 = (n >> 1); - var n2 = n - n1 | 0; - var l2 = chop(n1, l); - var s1 = sort(n1, l); - var s2 = sort(n2, l2); - var _l1 = s1; - var _l2 = s2; - var _accu = /* [] */0; + let n1 = (n >> 1); + let n2 = n - n1 | 0; + let l2 = chop(n1, l); + let s1 = sort(n1, l); + let s2 = sort(n2, l2); + let _l1 = s1; + let _l2 = s2; + let _accu = /* [] */0; while(true) { - var accu = _accu; - var l2$1 = _l2; - var l1 = _l1; + let accu = _accu; + let l2$1 = _l2; + let l1 = _l1; if (!l1) { return rev_append(l2$1, accu); } if (!l2$1) { return rev_append(l1, accu); } - var t2 = l2$1.tl; - var h2 = l2$1.hd; - var t1 = l1.tl; - var h1 = l1.hd; - var c$7 = Curry._2(cmp, h1, h2); + let t2 = l2$1.tl; + let h2 = l2$1.hd; + let t1 = l1.tl; + let h1 = l1.hd; + let c$7 = Curry._2(cmp, h1, h2); if (c$7 === 0) { _accu = { hd: h1, @@ -1604,7 +1604,7 @@ function sort_uniq(cmp, l) { }; _l2 = t2; _l1 = t1; - continue ; + continue; } if (c$7 < 0) { _accu = { @@ -1612,17 +1612,17 @@ function sort_uniq(cmp, l) { tl: accu }; _l1 = t1; - continue ; + continue; } _accu = { hd: h2, tl: accu }; _l2 = t2; - continue ; + continue; }; }; - var len = length(l); + let len = length(l); if (len < 2) { return l; } else { @@ -1632,8 +1632,8 @@ function sort_uniq(cmp, l) { function compare_lengths(_l1, _l2) { while(true) { - var l2 = _l2; - var l1 = _l1; + let l2 = _l2; + let l1 = _l1; if (!l1) { if (l2) { return -1; @@ -1646,14 +1646,14 @@ function compare_lengths(_l1, _l2) { } _l2 = l2.tl; _l1 = l1.tl; - continue ; + continue; }; } function compare_length_with(_l, _n) { while(true) { - var n = _n; - var l = _l; + let n = _n; + let l = _l; if (!l) { if (n === 0) { return 0; @@ -1668,19 +1668,19 @@ function compare_length_with(_l, _n) { } _n = n - 1 | 0; _l = l.tl; - continue ; + continue; }; } -var append = Pervasives.$at; +let append = Pervasives.$at; -var concat = flatten; +let concat = flatten; -var filter = find_all; +let filter = find_all; -var sort = stable_sort; +let sort = stable_sort; -var fast_sort = stable_sort; +let fast_sort = stable_sort; exports.length = length; exports.hd = hd; diff --git a/lib/js/map.js b/lib/js/map.js index 9621776e28..5e0b1e1da3 100644 --- a/lib/js/map.js +++ b/lib/js/map.js @@ -1,56 +1,56 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function Make(funarg) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -58,34 +58,34 @@ function Make(funarg) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -93,506 +93,506 @@ function Make(funarg) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var add = function (x, data, param) { + let add = function (x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.l; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _d0 = param.d; - var _param$1 = param.r; + let _v0 = v; + let _d0 = param.d; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var d0 = _d0; - var v0 = _v0; + let param$1 = _param$1; + let d0 = _d0; + let v0 = _v0; if (typeof param$1 !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _d0 = param$1.d; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var min_binding = function (_param) { + let min_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var min_binding_opt = function (_param) { + let min_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var max_binding = function (_param) { + let max_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var max_binding_opt = function (_param) { + let max_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var remove_min_binding = function (param) { + let remove_min_binding = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_binding(l), param.v, param.d, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var update = function (x, f, param) { + let update = function (x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var mapi = function (f, param) { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -603,12 +603,12 @@ function Make(funarg) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -619,32 +619,32 @@ function Make(funarg) { return true; } _param = param.r; - continue ; + continue; }; }; - var add_min_binding = function (k, x, param) { + let add_min_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); } }; - var add_max_binding = function (k, x, param) { + let add_max_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); } }; - var join = function (l, v, d, r) { + let join = function (l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -653,131 +653,131 @@ function Make(funarg) { return create(l, v, d, r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); }; - var concat_or_join = function (t1, v, d, t2) { + let concat_or_join = function (t1, v, d, t2) { if (d !== undefined) { return join(t1, v, Caml_option.valFromOption(d), t2); } else { return concat(t1, t2); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var merge$1 = function (f, s1, s2) { + let merge$1 = function (f, s1, s2) { if (typeof s1 !== "object") { if (typeof s2 !== "object") { return "Empty"; } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "map.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "map.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); }; - var union = function (f, s1, s2) { + let union = function (f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { return join(l$1, v2, d2, r$1); } }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -788,38 +788,38 @@ function Make(funarg) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } }; - var cons_enum = function (_m, _e) { + let cons_enum = function (_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -831,15 +831,15 @@ function Make(funarg) { _3: e }; _m = m.l; - continue ; + continue; }; }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -850,25 +850,25 @@ function Make(funarg) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(funarg.compare, e1._0, e2._0); + let c = Curry._2(funarg.compare, e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -887,20 +887,20 @@ function Make(funarg) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var bindings_aux = function (_accu, _param) { + let bindings_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -912,48 +912,48 @@ function Make(funarg) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; }; - var bindings = function (s) { + let bindings = function (s) { return bindings_aux(/* [] */0, s); }; return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - update: update, - singleton: singleton, - remove: remove, - merge: merge$1, - union: union, - compare: compare, - equal: equal, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - bindings: bindings, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - choose: min_binding, - choose_opt: min_binding_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - map: map, - mapi: mapi - }; + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + update: update, + singleton: singleton, + remove: remove, + merge: merge$1, + union: union, + compare: compare, + equal: equal, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + bindings: bindings, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + choose: min_binding, + choose_opt: min_binding_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + map: map, + mapi: mapi + }; } exports.Make = Make; diff --git a/lib/js/mapLabels.js b/lib/js/mapLabels.js index 6168a90051..8949bd1ae3 100644 --- a/lib/js/mapLabels.js +++ b/lib/js/mapLabels.js @@ -1,56 +1,56 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function Make(Ord) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, ld, create(lr, x, d, r)); } @@ -58,34 +58,34 @@ function Make(Ord) { return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, x, d, rl), rv, rd, rr); } @@ -93,506 +93,506 @@ function Make(Ord) { return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var add = function (x, data, param) { + let add = function (x, data, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { if (d === data) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = add(x, data, l); + let ll = add(x, data, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = add(x, data, r); + let rr = add(x, data, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return param.d; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first_aux = function (_v0, _d0, f, _param) { + let find_first_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_aux(v, param.d, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_first_opt_aux = function (_v0, _d0, f, _param) { + let find_first_opt_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_opt_aux(v, param.d, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_last_aux = function (_v0, _d0, f, _param) { + let find_last_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_aux(v, param.d, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_last_opt_aux = function (_v0, _d0, f, _param) { + let find_last_opt_aux = function (_v0, _d0, f, _param) { while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { return [ - v0, - d0 - ]; + v0, + d0 + ]; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _d0 = param.d; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_opt_aux(v, param.d, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return Caml_option.some(param.d); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var min_binding = function (_param) { + let min_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var min_binding_opt = function (_param) { + let min_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = l; - continue ; + continue; }; }; - var max_binding = function (_param) { + let max_binding = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var max_binding_opt = function (_param) { + let max_binding_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return [ - param.v, - param.d - ]; + param.v, + param.d + ]; } _param = r; - continue ; + continue; }; }; - var remove_min_binding = function (param) { + let remove_min_binding = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_binding(l), param.v, param.d, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return bal(t1, match[0], match[1], remove_min_binding(t2)); }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var update = function (x, f, param) { + let update = function (x, f, param) { if (typeof param !== "object") { - var data = Curry._1(f, undefined); + let data = Curry._1(f, undefined); if (data !== undefined) { return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 + }; } else { return "Empty"; } } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); + let data$1 = Curry._1(f, Caml_option.some(d)); if (data$1 === undefined) { return merge(l, r); } - var data$2 = Caml_option.valFromOption(data$1); + let data$2 = Caml_option.valFromOption(data$1); if (d === data$2) { return param; } else { return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } } if (c < 0) { - var ll = update(x, f, l); + let ll = update(x, f, l); if (l === ll) { return param; } else { return bal(ll, v, d, r); } } - var rr = update(x, f, r); + let rr = update(x, f, r); if (r === rr) { return param; } else { return bal(l, v, d, rr); } }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._2(f, param.v, param.d); _param = param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var mapi = function (f, param) { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { while(true) { - var accu = _accu; - var m = _m; + let accu = _accu; + let m = _m; if (typeof m !== "object") { return accu; } _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); _m = m.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -603,12 +603,12 @@ function Make(Ord) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -619,32 +619,32 @@ function Make(Ord) { return true; } _param = param.r; - continue ; + continue; }; }; - var add_min_binding = function (k, x, param) { + let add_min_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); } }; - var add_max_binding = function (k, x, param) { + let add_max_binding = function (k, x, param) { if (typeof param !== "object") { return singleton(k, x); } else { return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); } }; - var join = function (l, v, d, r) { + let join = function (l, v, d, r) { if (typeof l !== "object") { return add_min_binding(v, d, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_binding(v, d, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, l.d, join(l.r, v, d, r)); } else if (rh > (lh + 2 | 0)) { @@ -653,131 +653,131 @@ function Make(Ord) { return create(l, v, d, r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } if (typeof t2 !== "object") { return t1; } - var match = min_binding(t2); + let match = min_binding(t2); return join(t1, match[0], match[1], remove_min_binding(t2)); }; - var concat_or_join = function (t1, v, d, t2) { + let concat_or_join = function (t1, v, d, t2) { if (d !== undefined) { return join(t1, v, Caml_option.valFromOption(d), t2); } else { return concat(t1, t2); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - undefined, - "Empty" - ]; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - Caml_option.some(d), - r - ]; + l, + Caml_option.some(d), + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + match[0], + match[1], + join(match[2], v, d, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var merge$1 = function (f, s1, s2) { + let merge$1 = function (f, s1, s2) { if (typeof s1 !== "object") { if (typeof s2 !== "object") { return "Empty"; } } else { - var v1 = s1.v; + let v1 = s1.v; if (s1.h >= height(s2)) { - var match = split(v1, s2); + let match = split(v1, s2); return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); } } if (typeof s2 !== "object") { throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); }; - var union = function (f, s1, s2) { + let union = function (f, s1, s2) { if (typeof s1 !== "object") { return s2; } - var d1 = s1.d; - var v1 = s1.v; + let d1 = s1.d; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var d2 = s2.d; - var v2 = s2.v; + let d2 = s2.d; + let v2 = s2.v; if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); if (d2$1 !== undefined) { return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); } else { return join(l, v1, d1, r); } } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); if (d1$1 !== undefined) { return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); } else { return join(l$1, v2, d2, r$1); } }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); if (pvd) { if (l === l$p && r === r$p) { return param; @@ -788,38 +788,38 @@ function Make(Ord) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pvd) { return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; + join(lt, v, d, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + concat(lt, rt), + join(lf, v, d, rf) + ]; } }; - var cons_enum = function (_m, _e) { + let cons_enum = function (_m, _e) { while(true) { - var e = _e; - var m = _m; + let e = _e; + let m = _m; if (typeof m !== "object") { return e; } @@ -831,15 +831,15 @@ function Make(Ord) { _3: e }; _m = m.l; - continue ; + continue; }; }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -850,25 +850,25 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } - var c$1 = Curry._2(cmp, e1._1, e2._1); + let c$1 = Curry._2(cmp, e1._1, e2._1); if (c$1 !== 0) { return c$1; } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return true; @@ -887,20 +887,20 @@ function Make(Ord) { } _e2 = cons_enum(e2._2, e2._3); _e1 = cons_enum(e1._2, e1._3); - continue ; + continue; }; }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var bindings_aux = function (_accu, _param) { + let bindings_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -912,63 +912,63 @@ function Make(Ord) { ], tl: bindings_aux(accu, param.r) }; - continue ; + continue; }; }; - var bindings = function (s) { + let bindings = function (s) { return bindings_aux(/* [] */0, s); }; return { - height: height, - create: create, - singleton: singleton, - bal: bal, - empty: "Empty", - is_empty: is_empty, - add: add, - find: find, - find_first_aux: find_first_aux, - find_first: find_first, - find_first_opt_aux: find_first_opt_aux, - find_first_opt: find_first_opt, - find_last_aux: find_last_aux, - find_last: find_last, - find_last_opt_aux: find_last_opt_aux, - find_last_opt: find_last_opt, - find_opt: find_opt, - mem: mem, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - remove_min_binding: remove_min_binding, - remove: remove, - update: update, - iter: iter, - map: map, - mapi: mapi, - fold: fold, - for_all: for_all, - exists: exists, - add_min_binding: add_min_binding, - add_max_binding: add_max_binding, - join: join, - concat: concat, - concat_or_join: concat_or_join, - split: split, - merge: merge$1, - union: union, - filter: filter, - partition: partition, - cons_enum: cons_enum, - compare: compare, - equal: equal, - cardinal: cardinal, - bindings_aux: bindings_aux, - bindings: bindings, - choose: min_binding, - choose_opt: min_binding_opt - }; + height: height, + create: create, + singleton: singleton, + bal: bal, + empty: "Empty", + is_empty: is_empty, + add: add, + find: find, + find_first_aux: find_first_aux, + find_first: find_first, + find_first_opt_aux: find_first_opt_aux, + find_first_opt: find_first_opt, + find_last_aux: find_last_aux, + find_last: find_last, + find_last_opt_aux: find_last_opt_aux, + find_last_opt: find_last_opt, + find_opt: find_opt, + mem: mem, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + remove_min_binding: remove_min_binding, + remove: remove, + update: update, + iter: iter, + map: map, + mapi: mapi, + fold: fold, + for_all: for_all, + exists: exists, + add_min_binding: add_min_binding, + add_max_binding: add_max_binding, + join: join, + concat: concat, + concat_or_join: concat_or_join, + split: split, + merge: merge$1, + union: union, + filter: filter, + partition: partition, + cons_enum: cons_enum, + compare: compare, + equal: equal, + cardinal: cardinal, + bindings_aux: bindings_aux, + bindings: bindings, + choose: min_binding, + choose_opt: min_binding_opt + }; } exports.Make = Make; diff --git a/lib/js/moreLabels.js b/lib/js/moreLabels.js index 368fd931c2..2fb37caea2 100644 --- a/lib/js/moreLabels.js +++ b/lib/js/moreLabels.js @@ -1,11 +1,11 @@ 'use strict'; -var List = require("./list.js"); -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); -var HashtblLabels = require("./hashtblLabels.js"); +let List = require("./list.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); +let HashtblLabels = require("./hashtblLabels.js"); -var Hashtbl = { +let Hashtbl = { create: HashtblLabels.create, clear: HashtblLabels.clear, reset: HashtblLabels.reset, @@ -32,1945 +32,1945 @@ var Hashtbl = { seeded_hash_param: HashtblLabels.seeded_hash_param }; -var $$Map = { +let $$Map = { Make: (function (funarg) { - var height = function (param) { - if (typeof param !== "object") { - return 0; - } else { - return param.h; - } - }; - var create = function (l, x, d, r) { - var hl = height(l); - var hr = height(r); - return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var singleton = function (x, d) { - return { - TAG: "Node", - l: "Empty", - v: x, - d: d, - r: "Empty", - h: 1 - }; - }; - var bal = function (l, x, d, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - if (hl > (hr + 2 | 0)) { - if (typeof l !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var lr = l.r; - var ld = l.d; - var lv = l.v; - var ll = l.l; - if (height(ll) >= height(lr)) { - return create(ll, lv, ld, create(lr, x, d, r)); - } - if (typeof lr === "object") { - return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); - } + let height = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return param.h; + } + }; + let create = function (l, x, d, r) { + let hl = height(l); + let hr = height(r); + return { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let singleton = function (x, d) { + return { + TAG: "Node", + l: "Empty", + v: x, + d: d, + r: "Empty", + h: 1 + }; + }; + let bal = function (l, x, d, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + if (hl > (hr + 2 | 0)) { + if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); } - if (hr <= (hl + 2 | 0)) { - return { - TAG: "Node", - l: l, - v: x, - d: d, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + let lr = l.r; + let ld = l.d; + let lv = l.v; + let ll = l.l; + if (height(ll) >= height(lr)) { + return create(ll, lv, ld, create(lr, x, d, r)); } - if (typeof r !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - } - var rr = r.r; - var rd = r.d; - var rv = r.v; - var rl = r.l; - if (height(rr) >= height(rl)) { - return create(create(l, x, d, rl), rv, rd, rr); - } - if (typeof rl === "object") { - return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); + if (typeof lr === "object") { + return create(create(ll, lv, ld, lr.l), lr.v, lr.d, create(lr.r, x, d, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.bal" - } - }); - }; - var is_empty = function (param) { - if (typeof param !== "object") { - return true; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + if (hr <= (hl + 2 | 0)) { + return { + TAG: "Node", + l: l, + v: x, + d: d, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + } + if (typeof r !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + } + let rr = r.r; + let rd = r.d; + let rv = r.v; + let rl = r.l; + if (height(rr) >= height(rl)) { + return create(create(l, x, d, rl), rv, rd, rr); + } + if (typeof rl === "object") { + return create(create(l, x, d, rl.l), rl.v, rl.d, create(rl.r, rv, rd, rr)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.bal" + } + }); + }; + let is_empty = function (param) { + if (typeof param !== "object") { + return true; + } else { + return false; + } + }; + let add = function (x, data, param) { + if (typeof param !== "object") { + return { + TAG: "Node", + l: "Empty", + v: x, + d: data, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + if (d === data) { + return param; } else { - return false; - } - }; - var add = function (x, data, param) { - if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - d: data, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - if (d === data) { - return param; - } else { - return { - TAG: "Node", - l: l, - v: x, - d: data, - r: r, - h: param.h - }; - } - } - if (c < 0) { - var ll = add(x, data, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + TAG: "Node", + l: l, + v: x, + d: data, + r: r, + h: param.h + }; } - var rr = add(x, data, r); - if (r === rr) { + } + if (c < 0) { + let ll = add(x, data, l); + if (l === ll) { return param; } else { - return bal(l, v, d, rr); - } - }; - var find = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return param.d; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var find_first_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; - }; - var find_first = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_aux(v, param.d, f, param.l); - } - _param = param.r; - continue ; - }; - }; - var find_first_opt_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; - }; - var find_first_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_opt_aux(v, param.d, f, param.l); - } - _param = param.r; - continue ; - }; - }; - var find_last_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_aux(v, param.d, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_last_opt_aux = function (_v0, _d0, f, _param) { - while(true) { - var param = _param; - var d0 = _d0; - var v0 = _v0; - if (typeof param !== "object") { - return [ - v0, - d0 - ]; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _d0 = param.d; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_opt_aux(v, param.d, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_opt = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return Caml_option.some(param.d); - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var mem = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return true; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var min_binding = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var l = param.l; - if (typeof l !== "object") { - return [ - param.v, - param.d - ]; - } - _param = l; - continue ; - }; - }; - var min_binding_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var l = param.l; - if (typeof l !== "object") { - return [ - param.v, - param.d - ]; - } - _param = l; - continue ; - }; - }; - var max_binding = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var r = param.r; - if (typeof r !== "object") { - return [ - param.v, - param.d - ]; - } - _param = r; - continue ; - }; - }; - var max_binding_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var r = param.r; - if (typeof r !== "object") { - return [ - param.v, - param.d - ]; - } - _param = r; - continue ; - }; - }; - var remove_min_binding = function (param) { + return bal(ll, v, d, r); + } + } + let rr = add(x, data, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let find = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Map.remove_min_elt" - } - }); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; - if (typeof l !== "object") { - return param.r; - } else { - return bal(remove_min_binding(l), param.v, param.d, param.r); + let c = Curry._2(funarg.compare, x, param.v); + if (c === 0) { + return param.d; } + _param = c < 0 ? param.l : param.r; + continue; }; - var merge = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; + }; + let find_first_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; + if (typeof param !== "object") { + return [ + v0, + d0 + ]; } - if (typeof t2 !== "object") { - return t1; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _d0 = param.d; + _v0 = v; + continue; } - var match = min_binding(t2); - return bal(t1, match[0], match[1], remove_min_binding(t2)); + _param = param.r; + continue; }; - var remove = function (x, param) { + }; + let find_first = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return merge(l, r); - } - if (c < 0) { - var ll = remove(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var rr = remove(x, r); - if (r === rr) { - return param; - } else { - return bal(l, v, d, rr); + let v = param.v; + if (Curry._1(f, v)) { + return find_first_aux(v, param.d, f, param.l); } + _param = param.r; + continue; }; - var update = function (x, f, param) { + }; + let find_first_opt_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { - var data = Curry._1(f, undefined); - if (data !== undefined) { - return { - TAG: "Node", - l: "Empty", - v: x, - d: Caml_option.valFromOption(data), - r: "Empty", - h: 1 - }; - } else { - return "Empty"; - } - } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - var data$1 = Curry._1(f, Caml_option.some(d)); - if (data$1 === undefined) { - return merge(l, r); - } - var data$2 = Caml_option.valFromOption(data$1); - if (d === data$2) { - return param; - } else { - return { - TAG: "Node", - l: l, - v: x, - d: data$2, - r: r, - h: param.h - }; - } - } - if (c < 0) { - var ll = update(x, f, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, d, r); - } + return [ + v0, + d0 + ]; } - var rr = update(x, f, r); - if (r === rr) { - return param; - } else { - return bal(l, v, d, rr); + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _d0 = param.d; + _v0 = v; + continue; } + _param = param.r; + continue; }; - var iter = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - iter(f, param.l); - Curry._2(f, param.v, param.d); - _param = param.r; - continue ; - }; - }; - var map = function (f, param) { + }; + let find_first_opt = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var l$p = map(f, param.l); - var d$p = Curry._1(f, param.d); - var r$p = map(f, param.r); - return { - TAG: "Node", - l: l$p, - v: param.v, - d: d$p, - r: r$p, - h: param.h - }; + let v = param.v; + if (Curry._1(f, v)) { + return find_first_opt_aux(v, param.d, f, param.l); + } + _param = param.r; + continue; }; - var mapi = function (f, param) { + }; + let find_last_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; if (typeof param !== "object") { - return "Empty"; + return [ + v0, + d0 + ]; } - var v = param.v; - var l$p = mapi(f, param.l); - var d$p = Curry._2(f, v, param.d); - var r$p = mapi(f, param.r); - return { - TAG: "Node", - l: l$p, - v: v, - d: d$p, - r: r$p, - h: param.h - }; - }; - var fold = function (f, _m, _accu) { - while(true) { - var accu = _accu; - var m = _m; - if (typeof m !== "object") { - return accu; - } - _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); - _m = m.r; - continue ; - }; - }; - var for_all = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return true; - } - if (!Curry._2(p, param.v, param.d)) { - return false; - } - if (!for_all(p, param.l)) { - return false; - } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; - }; - var exists = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - if (Curry._2(p, param.v, param.d)) { - return true; - } - if (exists(p, param.l)) { - return true; - } - _param = param.r; - continue ; - }; - }; - var add_min_binding = function (k, x, param) { - if (typeof param !== "object") { - return singleton(k, x); - } else { - return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); + _d0 = param.d; + _v0 = v; + continue; } + _param = param.l; + continue; }; - var add_max_binding = function (k, x, param) { + }; + let find_last = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return singleton(k, x); - } else { - return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); - } - }; - var join = function (l, v, d, r) { - if (typeof l !== "object") { - return add_min_binding(v, d, r); - } - var lh = l.h; - if (typeof r !== "object") { - return add_max_binding(v, d, l); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var rh = r.h; - if (lh > (rh + 2 | 0)) { - return bal(l.l, l.v, l.d, join(l.r, v, d, r)); - } else if (rh > (lh + 2 | 0)) { - return bal(join(l, v, d, r.l), r.v, r.d, r.r); - } else { - return create(l, v, d, r); + let v = param.v; + if (Curry._1(f, v)) { + return find_last_aux(v, param.d, f, param.r); } + _param = param.l; + continue; }; - var concat = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; + }; + let find_last_opt_aux = function (_v0, _d0, f, _param) { + while(true) { + let param = _param; + let d0 = _d0; + let v0 = _v0; + if (typeof param !== "object") { + return [ + v0, + d0 + ]; } - if (typeof t2 !== "object") { - return t1; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.r; + _d0 = param.d; + _v0 = v; + continue; } - var match = min_binding(t2); - return join(t1, match[0], match[1], remove_min_binding(t2)); + _param = param.l; + continue; }; - var concat_or_join = function (t1, v, d, t2) { - if (d !== undefined) { - return join(t1, v, Caml_option.valFromOption(d), t2); - } else { - return concat(t1, t2); + }; + let find_last_opt = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + if (Curry._1(f, v)) { + return find_last_opt_aux(v, param.d, f, param.r); } + _param = param.l; + continue; }; - var split = function (x, param) { + }; + let find_opt = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - undefined, - "Empty" - ]; + return; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { - return [ - l, - Caml_option.some(d), - r - ]; - } - if (c < 0) { - var match = split(x, l); - return [ - match[0], - match[1], - join(match[2], v, d, r) - ]; + return Caml_option.some(param.d); } - var match$1 = split(x, r); - return [ - join(l, v, d, match$1[0]), - match$1[1], - match$1[2] - ]; + _param = c < 0 ? param.l : param.r; + continue; }; - var merge$1 = function (f, s1, s2) { - if (typeof s1 !== "object") { - if (typeof s2 !== "object") { - return "Empty"; - } - - } else { - var v1 = s1.v; - if (s1.h >= height(s2)) { - var match = split(v1, s2); - return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); - } - + }; + let mem = function (x, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return false; } - if (typeof s2 !== "object") { - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "mapLabels.res", - 552, - 11 - ] - } - }); - } - var v2 = s2.v; - var match$1 = split(v2, s1); - return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); - }; - var union = function (f, s1, s2) { - if (typeof s1 !== "object") { - return s2; + let c = Curry._2(funarg.compare, x, param.v); + if (c === 0) { + return true; } - var d1 = s1.d; - var v1 = s1.v; - if (typeof s2 !== "object") { - return s1; - } - var d2 = s2.d; - var v2 = s2.v; - if (s1.h >= s2.h) { - var match = split(v1, s2); - var d2$1 = match[1]; - var l = union(f, s1.l, match[0]); - var r = union(f, s1.r, match[2]); - if (d2$1 !== undefined) { - return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); - } else { - return join(l, v1, d1, r); - } + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let min_binding = function (_param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var match$1 = split(v2, s1); - var d1$1 = match$1[1]; - var l$1 = union(f, match$1[0], s2.l); - var r$1 = union(f, match$1[2], s2.r); - if (d1$1 !== undefined) { - return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); - } else { - return join(l$1, v2, d2, r$1); + let l = param.l; + if (typeof l !== "object") { + return [ + param.v, + param.d + ]; } + _param = l; + continue; }; - var filter = function (p, param) { + }; + let min_binding_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var r = param.r; - var d = param.d; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pvd = Curry._2(p, v, d); - var r$p = filter(p, r); - if (pvd) { - if (l === l$p && r === r$p) { - return param; - } else { - return join(l$p, v, d, r$p); - } - } else { - return concat(l$p, r$p); + let l = param.l; + if (typeof l !== "object") { + return [ + param.v, + param.d + ]; } + _param = l; + continue; }; - var partition = function (p, param) { + }; + let max_binding = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - "Empty" - ]; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var d = param.d; - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pvd = Curry._2(p, v, d); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; - if (pvd) { - return [ - join(lt, v, d, rt), - concat(lf, rf) - ]; - } else { + let r = param.r; + if (typeof r !== "object") { return [ - concat(lt, rt), - join(lf, v, d, rf) - ]; + param.v, + param.d + ]; } + _param = r; + continue; }; - var cons_enum = function (_m, _e) { - while(true) { - var e = _e; - var m = _m; - if (typeof m !== "object") { - return e; - } - _e = { - TAG: "More", - _0: m.v, - _1: m.d, - _2: m.r, - _3: e - }; - _m = m.l; - continue ; - }; - }; - var compare = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return 0; - } else { - return -1; - } - } - if (typeof e2 !== "object") { - return 1; - } - var c = Curry._2(funarg.compare, e1._0, e2._0); - if (c !== 0) { - return c; - } - var c$1 = Curry._2(cmp, e1._1, e2._1); - if (c$1 !== 0) { - return c$1; - } - _e2 = cons_enum(e2._2, e2._3); - _e1 = cons_enum(e1._2, e1._3); - continue ; - }; - }; - var equal = function (cmp, m1, m2) { - var _e1 = cons_enum(m1, "End"); - var _e2 = cons_enum(m2, "End"); - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return true; - } else { - return false; - } - } - if (typeof e2 !== "object") { - return false; - } - if (Curry._2(funarg.compare, e1._0, e2._0) !== 0) { - return false; - } - if (!Curry._2(cmp, e1._1, e2._1)) { - return false; - } - _e2 = cons_enum(e2._2, e2._3); - _e1 = cons_enum(e1._2, e1._3); - continue ; - }; - }; - var cardinal = function (param) { + }; + let max_binding_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return 0; - } else { - return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + return; + } + let r = param.r; + if (typeof r !== "object") { + return [ + param.v, + param.d + ]; } + _param = r; + continue; }; - var bindings_aux = function (_accu, _param) { - while(true) { - var param = _param; - var accu = _accu; - if (typeof param !== "object") { - return accu; - } - _param = param.l; - _accu = { - hd: [ - param.v, - param.d - ], - tl: bindings_aux(accu, param.r) + }; + let remove_min_binding = function (param) { + if (typeof param !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Map.remove_min_elt" + } + }); + } + let l = param.l; + if (typeof l !== "object") { + return param.r; + } else { + return bal(remove_min_binding(l), param.v, param.d, param.r); + } + }; + let merge = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } + if (typeof t2 !== "object") { + return t1; + } + let match = min_binding(t2); + return bal(t1, match[0], match[1], remove_min_binding(t2)); + }; + let remove = function (x, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return merge(l, r); + } + if (c < 0) { + let ll = remove(x, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, d, r); + } + } + let rr = remove(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let update = function (x, f, param) { + if (typeof param !== "object") { + let data = Curry._1(f, undefined); + if (data !== undefined) { + return { + TAG: "Node", + l: "Empty", + v: x, + d: Caml_option.valFromOption(data), + r: "Empty", + h: 1 }; - continue ; - }; - }; - var bindings = function (s) { - return bindings_aux(/* [] */0, s); - }; - return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - update: update, - singleton: singleton, - remove: remove, - merge: merge$1, - union: union, - compare: compare, - equal: equal, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - bindings: bindings, - min_binding: min_binding, - min_binding_opt: min_binding_opt, - max_binding: max_binding, - max_binding_opt: max_binding_opt, - choose: min_binding, - choose_opt: min_binding_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - map: map, - mapi: mapi - }; - }) -}; - -var $$Set = { - Make: (function (funarg) { - var height = function (param) { - if (typeof param !== "object") { - return 0; } else { - return param.h; + return "Empty"; } - }; - var create = function (l, v, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; - hl = typeof l !== "object" ? 0 : l.h; - var hr; - hr = typeof r !== "object" ? 0 : r.h; - if (hl > (hr + 2 | 0)) { - if (typeof l !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var lr = l.r; - var lv = l.v; - var ll = l.l; - if (height(ll) >= height(lr)) { - return create(ll, lv, create(lr, v, r)); - } - if (typeof lr === "object") { - return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); - } - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + let data$1 = Curry._1(f, Caml_option.some(d)); + if (data$1 === undefined) { + return merge(l, r); } - if (hr <= (hl + 2 | 0)) { + let data$2 = Caml_option.valFromOption(data$1); + if (d === data$2) { + return param; + } else { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: x, + d: data$2, + r: r, + h: param.h + }; } - if (typeof r !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + } + if (c < 0) { + let ll = update(x, f, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, d, r); + } + } + let rr = update(x, f, r); + if (r === rr) { + return param; + } else { + return bal(l, v, d, rr); + } + }; + let iter = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + iter(f, param.l); + Curry._2(f, param.v, param.d); + _param = param.r; + continue; + }; + }; + let map = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let l$p = map(f, param.l); + let d$p = Curry._1(f, param.d); + let r$p = map(f, param.r); + return { + TAG: "Node", + l: l$p, + v: param.v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let mapi = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let v = param.v; + let l$p = mapi(f, param.l); + let d$p = Curry._2(f, v, param.d); + let r$p = mapi(f, param.r); + return { + TAG: "Node", + l: l$p, + v: v, + d: d$p, + r: r$p, + h: param.h + }; + }; + let fold = function (f, _m, _accu) { + while(true) { + let accu = _accu; + let m = _m; + if (typeof m !== "object") { + return accu; + } + _accu = Curry._3(f, m.v, m.d, fold(f, m.l, accu)); + _m = m.r; + continue; + }; + }; + let for_all = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return true; } - var rr = r.r; - var rv = r.v; - var rl = r.l; - if (height(rr) >= height(rl)) { - return create(create(l, v, rl), rv, rr); + if (!Curry._2(p, param.v, param.d)) { + return false; } - if (typeof rl === "object") { - return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); + if (!for_all(p, param.l)) { + return false; } - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + _param = param.r; + continue; }; - var add = function (x, param) { + }; + let exists = function (p, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return param; + return false; } - if (c < 0) { - var ll = add(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, r); - } + if (Curry._2(p, param.v, param.d)) { + return true; } - var rr = add(x, r); - if (r === rr) { - return param; - } else { - return bal(l, v, rr); + if (exists(p, param.l)) { + return true; } - }; - var singleton = function (x) { - return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - }; - var add_min_element = function (x, param) { - if (typeof param !== "object") { - return singleton(x); - } else { - return bal(add_min_element(x, param.l), param.v, param.r); + _param = param.r; + continue; + }; + }; + let add_min_binding = function (k, x, param) { + if (typeof param !== "object") { + return singleton(k, x); + } else { + return bal(add_min_binding(k, x, param.l), param.v, param.d, param.r); + } + }; + let add_max_binding = function (k, x, param) { + if (typeof param !== "object") { + return singleton(k, x); + } else { + return bal(param.l, param.v, param.d, add_max_binding(k, x, param.r)); + } + }; + let join = function (l, v, d, r) { + if (typeof l !== "object") { + return add_min_binding(v, d, r); + } + let lh = l.h; + if (typeof r !== "object") { + return add_max_binding(v, d, l); + } + let rh = r.h; + if (lh > (rh + 2 | 0)) { + return bal(l.l, l.v, l.d, join(l.r, v, d, r)); + } else if (rh > (lh + 2 | 0)) { + return bal(join(l, v, d, r.l), r.v, r.d, r.r); + } else { + return create(l, v, d, r); + } + }; + let concat = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } + if (typeof t2 !== "object") { + return t1; + } + let match = min_binding(t2); + return join(t1, match[0], match[1], remove_min_binding(t2)); + }; + let concat_or_join = function (t1, v, d, t2) { + if (d !== undefined) { + return join(t1, v, Caml_option.valFromOption(d), t2); + } else { + return concat(t1, t2); + } + }; + let split = function (x, param) { + if (typeof param !== "object") { + return [ + "Empty", + undefined, + "Empty" + ]; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return [ + l, + Caml_option.some(d), + r + ]; + } + if (c < 0) { + let match = split(x, l); + return [ + match[0], + match[1], + join(match[2], v, d, r) + ]; + } + let match$1 = split(x, r); + return [ + join(l, v, d, match$1[0]), + match$1[1], + match$1[2] + ]; + }; + let merge$1 = function (f, s1, s2) { + if (typeof s1 !== "object") { + if (typeof s2 !== "object") { + return "Empty"; } - }; - var add_max_element = function (x, param) { - if (typeof param !== "object") { - return singleton(x); + + } else { + let v1 = s1.v; + if (s1.h >= height(s2)) { + let match = split(v1, s2); + return concat_or_join(merge$1(f, s1.l, match[0]), v1, Curry._3(f, v1, Caml_option.some(s1.d), match[1]), merge$1(f, s1.r, match[2])); + } + + } + if (typeof s2 !== "object") { + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "mapLabels.res", + 552, + 11 + ] + } + }); + } + let v2 = s2.v; + let match$1 = split(v2, s1); + return concat_or_join(merge$1(f, match$1[0], s2.l), v2, Curry._3(f, v2, match$1[1], Caml_option.some(s2.d)), merge$1(f, match$1[2], s2.r)); + }; + let union = function (f, s1, s2) { + if (typeof s1 !== "object") { + return s2; + } + let d1 = s1.d; + let v1 = s1.v; + if (typeof s2 !== "object") { + return s1; + } + let d2 = s2.d; + let v2 = s2.v; + if (s1.h >= s2.h) { + let match = split(v1, s2); + let d2$1 = match[1]; + let l = union(f, s1.l, match[0]); + let r = union(f, s1.r, match[2]); + if (d2$1 !== undefined) { + return concat_or_join(l, v1, Curry._3(f, v1, d1, Caml_option.valFromOption(d2$1)), r); + } else { + return join(l, v1, d1, r); + } + } + let match$1 = split(v2, s1); + let d1$1 = match$1[1]; + let l$1 = union(f, match$1[0], s2.l); + let r$1 = union(f, match$1[2], s2.r); + if (d1$1 !== undefined) { + return concat_or_join(l$1, v2, Curry._3(f, v2, Caml_option.valFromOption(d1$1), d2), r$1); + } else { + return join(l$1, v2, d2, r$1); + } + }; + let filter = function (p, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let d = param.d; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pvd = Curry._2(p, v, d); + let r$p = filter(p, r); + if (pvd) { + if (l === l$p && r === r$p) { + return param; } else { - return bal(param.l, param.v, add_max_element(x, param.r)); + return join(l$p, v, d, r$p); + } + } else { + return concat(l$p, r$p); + } + }; + let partition = function (p, param) { + if (typeof param !== "object") { + return [ + "Empty", + "Empty" + ]; + } + let d = param.d; + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pvd = Curry._2(p, v, d); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; + if (pvd) { + return [ + join(lt, v, d, rt), + concat(lf, rf) + ]; + } else { + return [ + concat(lt, rt), + join(lf, v, d, rf) + ]; + } + }; + let cons_enum = function (_m, _e) { + while(true) { + let e = _e; + let m = _m; + if (typeof m !== "object") { + return e; + } + _e = { + TAG: "More", + _0: m.v, + _1: m.d, + _2: m.r, + _3: e + }; + _m = m.l; + continue; + }; + }; + let compare = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return 0; + } else { + return -1; + } } - }; - var join = function (l, v, r) { - if (typeof l !== "object") { - return add_min_element(v, r); + if (typeof e2 !== "object") { + return 1; } - var lh = l.h; - if (typeof r !== "object") { - return add_max_element(v, l); + let c = Curry._2(funarg.compare, e1._0, e2._0); + if (c !== 0) { + return c; } - var rh = r.h; - if (lh > (rh + 2 | 0)) { - return bal(l.l, l.v, join(l.r, v, r)); - } else if (rh > (lh + 2 | 0)) { - return bal(join(l, v, r.l), r.v, r.r); - } else { - return create(l, v, r); + let c$1 = Curry._2(cmp, e1._1, e2._1); + if (c$1 !== 0) { + return c$1; } + _e2 = cons_enum(e2._2, e2._3); + _e1 = cons_enum(e1._2, e1._3); + continue; }; - var min_elt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var l = param.l; - if (typeof l !== "object") { - return param.v; - } - _param = l; - continue ; - }; - }; - var min_elt_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var l = param.l; - if (typeof l !== "object") { - return Caml_option.some(param.v); + }; + let equal = function (cmp, m1, m2) { + let _e1 = cons_enum(m1, "End"); + let _e2 = cons_enum(m2, "End"); + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return true; + } else { + return false; } - _param = l; - continue ; + } + if (typeof e2 !== "object") { + return false; + } + if (Curry._2(funarg.compare, e1._0, e2._0) !== 0) { + return false; + } + if (!Curry._2(cmp, e1._1, e2._1)) { + return false; + } + _e2 = cons_enum(e2._2, e2._3); + _e1 = cons_enum(e1._2, e1._3); + continue; + }; + }; + let cardinal = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + } + }; + let bindings_aux = function (_accu, _param) { + while(true) { + let param = _param; + let accu = _accu; + if (typeof param !== "object") { + return accu; + } + _param = param.l; + _accu = { + hd: [ + param.v, + param.d + ], + tl: bindings_aux(accu, param.r) }; - }; - var max_elt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var r = param.r; - if (typeof r !== "object") { - return param.v; - } - _param = r; - continue ; + continue; + }; + }; + let bindings = function (s) { + return bindings_aux(/* [] */0, s); + }; + return { + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + update: update, + singleton: singleton, + remove: remove, + merge: merge$1, + union: union, + compare: compare, + equal: equal, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + bindings: bindings, + min_binding: min_binding, + min_binding_opt: min_binding_opt, + max_binding: max_binding, + max_binding_opt: max_binding_opt, + choose: min_binding, + choose_opt: min_binding_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + map: map, + mapi: mapi + }; + }) +}; + +let $$Set = { + Make: (function (funarg) { + let height = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return param.h; + } + }; + let create = function (l, v, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + return { + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; + hl = typeof l !== "object" ? 0 : l.h; + let hr; + hr = typeof r !== "object" ? 0 : r.h; + if (hl > (hr + 2 | 0)) { + if (typeof l !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let lr = l.r; + let lv = l.v; + let ll = l.l; + if (height(ll) >= height(lr)) { + return create(ll, lv, create(lr, v, r)); + } + if (typeof lr === "object") { + return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + if (hr <= (hl + 2 | 0)) { + return { + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 }; - }; - var max_elt_opt = function (_param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var r = param.r; - if (typeof r !== "object") { - return Caml_option.some(param.v); - } - _param = r; - continue ; + } + if (typeof r !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let rr = r.r; + let rv = r.v; + let rl = r.l; + if (height(rr) >= height(rl)) { + return create(create(l, v, rl), rv, rr); + } + if (typeof rl === "object") { + return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); + } + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + }; + let add = function (x, param) { + if (typeof param !== "object") { + return { + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 }; - }; - var remove_min_elt = function (param) { + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return param; + } + if (c < 0) { + let ll = add(x, l); + if (l === ll) { + return param; + } else { + return bal(ll, v, r); + } + } + let rr = add(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, rr); + } + }; + let singleton = function (x) { + return { + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + }; + let add_min_element = function (x, param) { + if (typeof param !== "object") { + return singleton(x); + } else { + return bal(add_min_element(x, param.l), param.v, param.r); + } + }; + let add_max_element = function (x, param) { + if (typeof param !== "object") { + return singleton(x); + } else { + return bal(param.l, param.v, add_max_element(x, param.r)); + } + }; + let join = function (l, v, r) { + if (typeof l !== "object") { + return add_min_element(v, r); + } + let lh = l.h; + if (typeof r !== "object") { + return add_max_element(v, l); + } + let rh = r.h; + if (lh > (rh + 2 | 0)) { + return bal(l.l, l.v, join(l.r, v, r)); + } else if (rh > (lh + 2 | 0)) { + return bal(join(l, v, r.l), r.v, r.r); + } else { + return create(l, v, r); + } + }; + let min_elt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { - return param.r; - } else { - return bal(remove_min_elt(l), param.v, param.r); + return param.v; } + _param = l; + continue; }; - var merge = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; - } else if (typeof t2 !== "object") { - return t1; - } else { - return bal(t1, min_elt(t2), remove_min_elt(t2)); + }; + let min_elt_opt = function (_param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; } - }; - var concat = function (t1, t2) { - if (typeof t1 !== "object") { - return t2; - } else if (typeof t2 !== "object") { - return t1; - } else { - return join(t1, min_elt(t2), remove_min_elt(t2)); + let l = param.l; + if (typeof l !== "object") { + return Caml_option.some(param.v); } + _param = l; + continue; }; - var split = function (x, param) { + }; + let max_elt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return [ - l, - true, - r - ]; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - if (c < 0) { - var match = split(x, l); - return [ - match[0], - match[1], - join(match[2], v, r) - ]; + let r = param.r; + if (typeof r !== "object") { + return param.v; } - var match$1 = split(x, r); - return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + _param = r; + continue; }; - var is_empty = function (param) { + }; + let max_elt_opt = function (_param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return true; - } else { - return false; + return; } + let r = param.r; + if (typeof r !== "object") { + return Caml_option.some(param.v); + } + _param = r; + continue; }; - var mem = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - var c = Curry._2(funarg.compare, x, param.v); - if (c === 0) { - return true; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var remove = function (x, param) { + }; + let remove_min_elt = function (param) { + if (typeof param !== "object") { + throw new Error("Invalid_argument", { + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); + } + let l = param.l; + if (typeof l !== "object") { + return param.r; + } else { + return bal(remove_min_elt(l), param.v, param.r); + } + }; + let merge = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } else if (typeof t2 !== "object") { + return t1; + } else { + return bal(t1, min_elt(t2), remove_min_elt(t2)); + } + }; + let concat = function (t1, t2) { + if (typeof t1 !== "object") { + return t2; + } else if (typeof t2 !== "object") { + return t1; + } else { + return join(t1, min_elt(t2), remove_min_elt(t2)); + } + }; + let split = function (x, param) { + if (typeof param !== "object") { + return [ + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return [ + l, + true, + r + ]; + } + if (c < 0) { + let match = split(x, l); + return [ + match[0], + match[1], + join(match[2], v, r) + ]; + } + let match$1 = split(x, r); + return [ + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; + }; + let is_empty = function (param) { + if (typeof param !== "object") { + return true; + } else { + return false; + } + }; + let mem = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return false; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { - return merge(l, r); - } - if (c < 0) { - var ll = remove(x, l); - if (l === ll) { - return param; - } else { - return bal(ll, v, r); - } + return true; } - var rr = remove(x, r); - if (r === rr) { + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let remove = function (x, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return merge(l, r); + } + if (c < 0) { + let ll = remove(x, l); + if (l === ll) { return param; } else { - return bal(l, v, rr); - } - }; - var union = function (s1, s2) { + return bal(ll, v, r); + } + } + let rr = remove(x, r); + if (r === rr) { + return param; + } else { + return bal(l, v, rr); + } + }; + let union = function (s1, s2) { + if (typeof s1 !== "object") { + return s2; + } + let h1 = s1.h; + let v1 = s1.v; + if (typeof s2 !== "object") { + return s1; + } + let h2 = s2.h; + let v2 = s2.v; + if (h1 >= h2) { + if (h2 === 1) { + return add(v2, s1); + } + let match = split(v1, s2); + return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); + } + if (h1 === 1) { + return add(v1, s2); + } + let match$1 = split(v2, s1); + return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); + }; + let inter = function (s1, s2) { + if (typeof s1 !== "object") { + return "Empty"; + } + if (typeof s2 !== "object") { + return "Empty"; + } + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; + if (match[1]) { + return join(inter(l1, l2), v1, inter(r1, match[2])); + } else { + return concat(inter(l1, l2), inter(r1, match[2])); + } + }; + let diff = function (s1, s2) { + if (typeof s1 !== "object") { + return "Empty"; + } + if (typeof s2 !== "object") { + return s1; + } + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; + if (match[1]) { + return concat(diff(l1, l2), diff(r1, match[2])); + } else { + return join(diff(l1, l2), v1, diff(r1, match[2])); + } + }; + let cons_enum = function (_s, _e) { + while(true) { + let e = _e; + let s = _s; + if (typeof s !== "object") { + return e; + } + _e = { + TAG: "More", + _0: s.v, + _1: s.r, + _2: e + }; + _s = s.l; + continue; + }; + }; + let compare_aux = function (_e1, _e2) { + while(true) { + let e2 = _e2; + let e1 = _e1; + if (typeof e1 !== "object") { + if (typeof e2 !== "object") { + return 0; + } else { + return -1; + } + } + if (typeof e2 !== "object") { + return 1; + } + let c = Curry._2(funarg.compare, e1._0, e2._0); + if (c !== 0) { + return c; + } + _e2 = cons_enum(e2._1, e2._2); + _e1 = cons_enum(e1._1, e1._2); + continue; + }; + }; + let compare = function (s1, s2) { + return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); + }; + let equal = function (s1, s2) { + return compare(s1, s2) === 0; + }; + let subset = function (_s1, _s2) { + while(true) { + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { - return s2; + return true; } - var h1 = s1.h; - var v1 = s1.v; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { - return s1; + return false; + } + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(funarg.compare, v1, s2.v); + if (c === 0) { + if (!subset(l1, l2)) { + return false; + } + _s2 = r2; + _s1 = r1; + continue; } - var h2 = s2.h; - var v2 = s2.v; - if (h1 >= h2) { - if (h2 === 1) { - return add(v2, s1); + if (c < 0) { + if (!subset({ + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { + return false; } - var match = split(v1, s2); - return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); + _s1 = r1; + continue; } - if (h1 === 1) { - return add(v1, s2); + if (!subset({ + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { + return false; } - var match$1 = split(v2, s1); - return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); + _s1 = l1; + continue; }; - var inter = function (s1, s2) { - if (typeof s1 !== "object") { - return "Empty"; + }; + let iter = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + iter(f, param.l); + Curry._1(f, param.v); + _param = param.r; + continue; + }; + }; + let fold = function (f, _s, _accu) { + while(true) { + let accu = _accu; + let s = _s; + if (typeof s !== "object") { + return accu; + } + _accu = Curry._2(f, s.v, fold(f, s.l, accu)); + _s = s.r; + continue; + }; + }; + let for_all = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return true; } - if (typeof s2 !== "object") { - return "Empty"; + if (!Curry._1(p, param.v)) { + return false; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; - if (match[1]) { - return join(inter(l1, l2), v1, inter(r1, match[2])); - } else { - return concat(inter(l1, l2), inter(r1, match[2])); + if (!for_all(p, param.l)) { + return false; } + _param = param.r; + continue; }; - var diff = function (s1, s2) { - if (typeof s1 !== "object") { - return "Empty"; + }; + let exists = function (p, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return false; } - if (typeof s2 !== "object") { - return s1; - } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; - if (match[1]) { - return concat(diff(l1, l2), diff(r1, match[2])); + if (Curry._1(p, param.v)) { + return true; + } + if (exists(p, param.l)) { + return true; + } + _param = param.r; + continue; + }; + }; + let filter = function (p, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); + if (pv) { + if (l === l$p && r === r$p) { + return param; } else { - return join(diff(l1, l2), v1, diff(r1, match[2])); + return join(l$p, v, r$p); + } + } else { + return concat(l$p, r$p); + } + }; + let partition = function (p, param) { + if (typeof param !== "object") { + return [ + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; + if (pv) { + return [ + join(lt, v, rt), + concat(lf, rf) + ]; + } else { + return [ + concat(lt, rt), + join(lf, v, rf) + ]; + } + }; + let cardinal = function (param) { + if (typeof param !== "object") { + return 0; + } else { + return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + } + }; + let elements_aux = function (_accu, _param) { + while(true) { + let param = _param; + let accu = _accu; + if (typeof param !== "object") { + return accu; } - }; - var cons_enum = function (_s, _e) { - while(true) { - var e = _e; - var s = _s; - if (typeof s !== "object") { - return e; - } - _e = { - TAG: "More", - _0: s.v, - _1: s.r, - _2: e - }; - _s = s.l; - continue ; - }; - }; - var compare_aux = function (_e1, _e2) { - while(true) { - var e2 = _e2; - var e1 = _e1; - if (typeof e1 !== "object") { - if (typeof e2 !== "object") { - return 0; - } else { - return -1; - } - } - if (typeof e2 !== "object") { - return 1; - } - var c = Curry._2(funarg.compare, e1._0, e2._0); - if (c !== 0) { - return c; - } - _e2 = cons_enum(e2._1, e2._2); - _e1 = cons_enum(e1._1, e1._2); - continue ; - }; - }; - var compare = function (s1, s2) { - return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); - }; - var equal = function (s1, s2) { - return compare(s1, s2) === 0; - }; - var subset = function (_s1, _s2) { - while(true) { - var s2 = _s2; - var s1 = _s1; - if (typeof s1 !== "object") { - return true; - } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - if (typeof s2 !== "object") { - return false; - } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(funarg.compare, v1, s2.v); - if (c === 0) { - if (!subset(l1, l2)) { - return false; - } - _s2 = r2; - _s1 = r1; - continue ; - } - if (c < 0) { - if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { - return false; - } - _s1 = r1; - continue ; - } - if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { - return false; - } - _s1 = l1; - continue ; - }; - }; - var iter = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - iter(f, param.l); - Curry._1(f, param.v); - _param = param.r; - continue ; - }; - }; - var fold = function (f, _s, _accu) { - while(true) { - var accu = _accu; - var s = _s; - if (typeof s !== "object") { - return accu; - } - _accu = Curry._2(f, s.v, fold(f, s.l, accu)); - _s = s.r; - continue ; + _param = param.l; + _accu = { + hd: param.v, + tl: elements_aux(accu, param.r) }; - }; - var for_all = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return true; - } - if (!Curry._1(p, param.v)) { - return false; - } - if (!for_all(p, param.l)) { - return false; - } - _param = param.r; - continue ; - }; - }; - var exists = function (p, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return false; - } - if (Curry._1(p, param.v)) { - return true; - } - if (exists(p, param.l)) { - return true; - } - _param = param.r; - continue ; - }; - }; - var filter = function (p, param) { + continue; + }; + }; + let elements = function (s) { + return elements_aux(/* [] */0, s); + }; + let find = function (x, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); - if (pv) { - if (l === l$p && r === r$p) { - return param; - } else { - return join(l$p, v, r$p); - } - } else { - return concat(l$p, r$p); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return v; } + _param = c < 0 ? param.l : param.r; + continue; }; - var partition = function (p, param) { + }; + let find_first_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; if (typeof param !== "object") { - return [ - "Empty", - "Empty" - ]; + return v0; } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; - if (pv) { - return [ - join(lt, v, rt), - concat(lf, rf) - ]; - } else { - return [ - concat(lt, rt), - join(lf, v, rf) - ]; + let v = param.v; + if (Curry._1(f, v)) { + _param = param.l; + _v0 = v; + continue; } + _param = param.r; + continue; }; - var cardinal = function (param) { + }; + let find_first = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return 0; - } else { - return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); + } + let v = param.v; + if (Curry._1(f, v)) { + return find_first_aux(v, f, param.l); } + _param = param.r; + continue; }; - var elements_aux = function (_accu, _param) { - while(true) { - var param = _param; - var accu = _accu; - if (typeof param !== "object") { - return accu; - } + }; + let find_first_opt_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return Caml_option.some(v0); + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.l; - _accu = { - hd: param.v, - tl: elements_aux(accu, param.r) - }; - continue ; - }; - }; - var elements = function (s) { - return elements_aux(/* [] */0, s); - }; - var find = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return v; - } - _param = c < 0 ? param.l : param.r; - continue ; - }; + _v0 = v; + continue; + } + _param = param.r; + continue; }; - var find_first_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return v0; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; + }; + let find_first_opt = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + if (Curry._1(f, v)) { + return find_first_opt_aux(v, f, param.l); + } + _param = param.r; + continue; }; - var find_first = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_aux(v, f, param.l); - } + }; + let find_last_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return v0; + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; + _v0 = v; + continue; + } + _param = param.l; + continue; }; - var find_first_opt_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return Caml_option.some(v0); - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.l; - _v0 = v; - continue ; - } - _param = param.r; - continue ; - }; + }; + let find_last = function (f, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + throw new Error("Not_found", { + cause: { + RE_EXN_ID: "Not_found" + } + }); + } + let v = param.v; + if (Curry._1(f, v)) { + return find_last_aux(v, f, param.r); + } + _param = param.l; + continue; }; - var find_first_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_first_opt_aux(v, f, param.l); - } + }; + let find_last_opt_aux = function (_v0, f, _param) { + while(true) { + let param = _param; + let v0 = _v0; + if (typeof param !== "object") { + return Caml_option.some(v0); + } + let v = param.v; + if (Curry._1(f, v)) { _param = param.r; - continue ; - }; - }; - var find_last_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return v0; - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_aux(v, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_last_opt_aux = function (_v0, f, _param) { - while(true) { - var param = _param; - var v0 = _v0; - if (typeof param !== "object") { - return Caml_option.some(v0); - } - var v = param.v; - if (Curry._1(f, v)) { - _param = param.r; - _v0 = v; - continue ; - } - _param = param.l; - continue ; - }; - }; - var find_last_opt = function (f, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - if (Curry._1(f, v)) { - return find_last_opt_aux(v, f, param.r); - } - _param = param.l; - continue ; - }; - }; - var find_opt = function (x, _param) { - while(true) { - var param = _param; - if (typeof param !== "object") { - return ; - } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); - if (c === 0) { - return Caml_option.some(v); - } - _param = c < 0 ? param.l : param.r; - continue ; - }; - }; - var try_join = function (l, v, r) { - if ((l === "Empty" || Curry._2(funarg.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(funarg.compare, v, min_elt(r)) < 0)) { - return join(l, v, r); - } else { - return union(l, add(v, r)); + _v0 = v; + continue; } + _param = param.l; + continue; }; - var map = function (f, param) { + }; + let find_last_opt = function (f, _param) { + while(true) { + let param = _param; if (typeof param !== "object") { - return "Empty"; + return; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); - if (l === l$p && v === v$p && r === r$p) { - return param; - } else { - return try_join(l$p, v$p, r$p); + let v = param.v; + if (Curry._1(f, v)) { + return find_last_opt_aux(v, f, param.r); } + _param = param.l; + continue; }; - var of_sorted_list = function (l) { - var sub = function (n, l) { - switch (n) { - case 0 : + }; + let find_opt = function (x, _param) { + while(true) { + let param = _param; + if (typeof param !== "object") { + return; + } + let v = param.v; + let c = Curry._2(funarg.compare, x, v); + if (c === 0) { + return Caml_option.some(v); + } + _param = c < 0 ? param.l : param.r; + continue; + }; + }; + let try_join = function (l, v, r) { + if ((l === "Empty" || Curry._2(funarg.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(funarg.compare, v, min_elt(r)) < 0)) { + return join(l, v, r); + } else { + return union(l, add(v, r)); + } + }; + let map = function (f, param) { + if (typeof param !== "object") { + return "Empty"; + } + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); + if (l === l$p && v === v$p && r === r$p) { + return param; + } else { + return try_join(l$p, v$p, r$p); + } + }; + let of_sorted_list = function (l) { + let sub = function (n, l) { + switch (n) { + case 0 : + return [ + "Empty", + l + ]; + case 1 : + if (l) { return [ - "Empty", - l - ]; - case 1 : - if (l) { + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; + } + break; + case 2 : + if (l) { + let match = l.tl; + if (match) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } - break; - case 2 : - if (l) { - var match = l.tl; - if (match) { + + } + break; + case 3 : + if (l) { + let match$1 = l.tl; + if (match$1) { + let match$2 = match$1.tl; + if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } - break; - case 3 : - if (l) { - var match$1 = l.tl; - if (match$1) { - var match$2 = match$1.tl; - if (match$2) { - return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; - } - - } - - } - break; - default: - - } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; - if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); - return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; - } - throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ] - } - }); - }; - return sub(List.length(l), l)[0]; - }; - var of_list = function (l) { - if (!l) { - return "Empty"; - } - var match = l.tl; - var x0 = l.hd; - if (!match) { - return singleton(x0); - } - var match$1 = match.tl; - var x1 = match.hd; - if (!match$1) { - return add(x1, singleton(x0)); - } - var match$2 = match$1.tl; - var x2 = match$1.hd; - if (!match$2) { - return add(x2, add(x1, singleton(x0))); - } - var match$3 = match$2.tl; - var x3 = match$2.hd; - if (match$3) { - if (match$3.tl) { - return of_sorted_list(List.sort_uniq(funarg.compare, l)); - } else { - return add(match$3.hd, add(x3, add(x2, add(x1, singleton(x0))))); - } + + } + break; + default: + + } + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; + if (l$1) { + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + return [ + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; + } + throw new Error("Assert_failure", { + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); + }; + return sub(List.length(l), l)[0]; + }; + let of_list = function (l) { + if (!l) { + return "Empty"; + } + let match = l.tl; + let x0 = l.hd; + if (!match) { + return singleton(x0); + } + let match$1 = match.tl; + let x1 = match.hd; + if (!match$1) { + return add(x1, singleton(x0)); + } + let match$2 = match$1.tl; + let x2 = match$1.hd; + if (!match$2) { + return add(x2, add(x1, singleton(x0))); + } + let match$3 = match$2.tl; + let x3 = match$2.hd; + if (match$3) { + if (match$3.tl) { + return of_sorted_list(List.sort_uniq(funarg.compare, l)); } else { - return add(x3, add(x2, add(x1, singleton(x0)))); - } - }; - return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - singleton: singleton, - remove: remove, - union: union, - inter: inter, - diff: diff, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - map: map, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements: elements, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - choose: min_elt, - choose_opt: min_elt_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - of_list: of_list - }; - }) + return add(match$3.hd, add(x3, add(x2, add(x1, singleton(x0))))); + } + } else { + return add(x3, add(x2, add(x1, singleton(x0)))); + } + }; + return { + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + singleton: singleton, + remove: remove, + union: union, + inter: inter, + diff: diff, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + map: map, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements: elements, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + choose: min_elt, + choose_opt: min_elt_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + of_list: of_list + }; + }) }; exports.Hashtbl = Hashtbl; diff --git a/lib/js/parsing.js b/lib/js/parsing.js index a17630f3a8..49f2b0b20f 100644 --- a/lib/js/parsing.js +++ b/lib/js/parsing.js @@ -1,19 +1,19 @@ 'use strict'; -var $$Array = require("./array.js"); -var Curry = require("./curry.js"); -var Lexing = require("./lexing.js"); -var Caml_obj = require("./caml_obj.js"); -var Caml_array = require("./caml_array.js"); -var Caml_parser = require("./caml_parser.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let $$Array = require("./array.js"); +let Curry = require("./curry.js"); +let Lexing = require("./lexing.js"); +let Caml_obj = require("./caml_obj.js"); +let Caml_array = require("./caml_array.js"); +let Caml_parser = require("./caml_parser.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var YYexit = /* @__PURE__ */Caml_exceptions.create("Parsing.YYexit"); +let YYexit = /* @__PURE__ */Caml_exceptions.create("Parsing.YYexit"); -var Parse_error = /* @__PURE__ */Caml_exceptions.create("Parsing.Parse_error"); +let Parse_error = /* @__PURE__ */Caml_exceptions.create("Parsing.Parse_error"); -var env = { +let env = { s_stack: Caml_array.make(100, 0), v_stack: Caml_array.make(100, undefined), symb_start_stack: Caml_array.make(100, Lexing.dummy_pos), @@ -33,12 +33,12 @@ var env = { }; function grow_stacks(param) { - var oldsize = env.stacksize; - var newsize = (oldsize << 1); - var new_s = Caml_array.make(newsize, 0); - var new_v = Caml_array.make(newsize, undefined); - var new_start = Caml_array.make(newsize, Lexing.dummy_pos); - var new_end = Caml_array.make(newsize, Lexing.dummy_pos); + let oldsize = env.stacksize; + let newsize = (oldsize << 1); + let new_s = Caml_array.make(newsize, 0); + let new_v = Caml_array.make(newsize, undefined); + let new_start = Caml_array.make(newsize, Lexing.dummy_pos); + let new_end = Caml_array.make(newsize, Lexing.dummy_pos); $$Array.blit(env.s_stack, 0, new_s, 0, oldsize); env.s_stack = new_s; $$Array.blit(env.v_stack, 0, new_v, 0, oldsize); @@ -55,56 +55,56 @@ function clear_parser(param) { env.lval = undefined; } -var current_lookahead_fun = { +let current_lookahead_fun = { contents: (function (param) { - return false; - }) + return false; + }) }; function yyparse(tables, start, lexer, lexbuf) { - var init_asp = env.asp; - var init_sp = env.sp; - var init_stackbase = env.stackbase; - var init_state = env.state; - var init_curr_char = env.curr_char; - var init_lval = env.lval; - var init_errflag = env.errflag; + let init_asp = env.asp; + let init_sp = env.sp; + let init_stackbase = env.stackbase; + let init_state = env.state; + let init_curr_char = env.curr_char; + let init_lval = env.lval; + let init_errflag = env.errflag; env.stackbase = env.sp + 1 | 0; env.curr_char = start; env.symb_end = lexbuf.lex_curr_p; try { - var _cmd = "Start"; - var _arg; + let _cmd = "Start"; + let _arg; while(true) { - var arg = _arg; - var cmd = _cmd; - var match = Caml_parser.parse_engine(tables, env, cmd, arg); + let arg = _arg; + let cmd = _cmd; + let match = Caml_parser.parse_engine(tables, env, cmd, arg); switch (match) { case "Read_token" : - var t = Curry._1(lexer, lexbuf); + let t = Curry._1(lexer, lexbuf); env.symb_start = lexbuf.lex_start_p; env.symb_end = lexbuf.lex_curr_p; _arg = t; _cmd = "Token_read"; - continue ; + continue; case "Raise_parse_error" : throw new Error(Parse_error, { - cause: { - RE_EXN_ID: Parse_error - } - }); + cause: { + RE_EXN_ID: Parse_error + } + }); case "Grow_stacks_1" : grow_stacks(); _arg = undefined; _cmd = "Stacks_grown_1"; - continue ; + continue; case "Grow_stacks_2" : grow_stacks(); _arg = undefined; _cmd = "Stacks_grown_2"; - continue ; + continue; case "Compute_semantic_action" : - var match$1; + let match$1; try { match$1 = [ "Semantic_action_computed", @@ -112,7 +112,7 @@ function yyparse(tables, start, lexer, lexbuf) { ]; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === Parse_error) { match$1 = [ "Error_detected", @@ -120,25 +120,25 @@ function yyparse(tables, start, lexer, lexbuf) { ]; } else { throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } _arg = match$1[1]; _cmd = match$1[0]; - continue ; + continue; case "Call_error_function" : Curry._1(tables.error_function, "syntax error"); _arg = undefined; _cmd = "Error_detected"; - continue ; + continue; } }; } catch (raw_exn$1){ - var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); - var curr_char = env.curr_char; + let exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1); + let curr_char = env.curr_char; env.asp = init_asp; env.sp = init_sp; env.stackbase = init_stackbase; @@ -150,15 +150,15 @@ function yyparse(tables, start, lexer, lexbuf) { return exn$1._1; } current_lookahead_fun.contents = (function (tok) { - if (typeof tok !== "number") { - return Caml_array.get(tables.transl_block, tok.TAG) === curr_char; - } else { - return Caml_array.get(tables.transl_const, tok) === curr_char; - } - }); + if (typeof tok !== "number") { + return Caml_array.get(tables.transl_block, tok.TAG) === curr_char; + } else { + return Caml_array.get(tables.transl_const, tok) === curr_char; + } + }); throw new Error(exn$1.RE_EXN_ID, { - cause: exn$1 - }); + cause: exn$1 + }); } } @@ -167,19 +167,19 @@ function peek_val(env, n) { } function symbol_start_pos(param) { - var _i = env.rule_len; + let _i = env.rule_len; while(true) { - var i = _i; + let i = _i; if (i <= 0) { return Caml_array.get(env.symb_end_stack, env.asp); } - var st = Caml_array.get(env.symb_start_stack, (env.asp - i | 0) + 1 | 0); - var en = Caml_array.get(env.symb_end_stack, (env.asp - i | 0) + 1 | 0); + let st = Caml_array.get(env.symb_start_stack, (env.asp - i | 0) + 1 | 0); + let en = Caml_array.get(env.symb_end_stack, (env.asp - i | 0) + 1 | 0); if (Caml_obj.notequal(st, en)) { return st; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -219,7 +219,7 @@ function parse_error(param) { } -var set_trace = Caml_parser.set_parser_trace; +let set_trace = Caml_parser.set_parser_trace; exports.symbol_start = symbol_start; exports.symbol_end = symbol_end; diff --git a/lib/js/pervasives.js b/lib/js/pervasives.js index a51ff43634..b63eb38ca5 100644 --- a/lib/js/pervasives.js +++ b/lib/js/pervasives.js @@ -1,13 +1,13 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_sys = require("./caml_sys.js"); -var Caml_format = require("./caml_format.js"); -var Caml_string = require("./caml_string.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); - -var JsxModules = { +let Curry = require("./curry.js"); +let Caml_sys = require("./caml_sys.js"); +let Caml_format = require("./caml_format.js"); +let Caml_string = require("./caml_string.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); + +let JsxModules = { Jsx: undefined, JsxEvent: undefined, JsxDOM: undefined @@ -15,23 +15,23 @@ var JsxModules = { function failwith(s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } -var Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); +let Exit = /* @__PURE__ */Caml_exceptions.create("Pervasives.Exit"); function abs(x) { if (x >= 0) { @@ -45,7 +45,7 @@ function lnot(x) { return x ^ -1; } -var min_int = -2147483648; +let min_int = -2147483648; function classify_float(x) { if (isFinite(x)) { @@ -66,11 +66,11 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -91,11 +91,11 @@ function bool_of_string(param) { return true; default: throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -106,7 +106,7 @@ function bool_of_string_opt(param) { case "true" : return true; default: - return ; + return; } } @@ -115,37 +115,37 @@ function int_of_string_opt(s) { return Caml_format.int_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function valid_float_lexem(s) { - var l = s.length; - var _i = 0; + let l = s.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= l) { return s + "."; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 48) { if (match >= 58) { return s; } _i = i + 1 | 0; - continue ; + continue; } if (match !== 45) { return s; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -158,22 +158,22 @@ function float_of_string_opt(s) { return Caml_format.float_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function $at(l1, l2) { if (l1) { return { - hd: l1.hd, - tl: $at(l1.tl, l2) - }; + hd: l1.hd, + tl: $at(l1.tl, l2) + }; } else { return l2; } @@ -199,18 +199,18 @@ function print_string(prim) { console.log(prim); } -var exit_function = { +let exit_function = { contents: (function (prim) { - - }) + + }) }; function at_exit(f) { - var g = exit_function.contents; + let g = exit_function.contents; exit_function.contents = (function (param) { - Curry._1(f, undefined); - Curry._1(g, undefined); - }); + Curry._1(f, undefined); + Curry._1(g, undefined); + }); } function exit(retcode) { @@ -218,25 +218,25 @@ function exit(retcode) { return Caml_sys.sys_exit(retcode); } -var Jsx; +let Jsx; -var JsxEvent; +let JsxEvent; -var JsxDOM; +let JsxDOM; -var JsxPPXReactSupport; +let JsxPPXReactSupport; -var max_int = 2147483647; +let max_int = 2147483647; -var infinity = Infinity; +let infinity = Infinity; -var neg_infinity = -Infinity; +let neg_infinity = -Infinity; -var max_float = 1.79769313486231571e+308; +let max_float = 1.79769313486231571e+308; -var min_float = 2.22507385850720138e-308; +let min_float = 2.22507385850720138e-308; -var epsilon_float = 2.22044604925031308e-16; +let epsilon_float = 2.22044604925031308e-16; exports.Jsx = Jsx; exports.JsxEvent = JsxEvent; diff --git a/lib/js/pervasivesU.js b/lib/js/pervasivesU.js index 19e627ccce..0cf8db3ec2 100644 --- a/lib/js/pervasivesU.js +++ b/lib/js/pervasivesU.js @@ -1,12 +1,12 @@ 'use strict'; -var Caml_sys = require("./caml_sys.js"); -var Caml_format = require("./caml_format.js"); -var Caml_string = require("./caml_string.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Caml_sys = require("./caml_sys.js"); +let Caml_format = require("./caml_format.js"); +let Caml_string = require("./caml_string.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); -var JsxModules = { +let JsxModules = { Jsx: undefined, JsxEvent: undefined, JsxDOM: undefined @@ -14,23 +14,23 @@ var JsxModules = { function failwith(s) { throw new Error("Failure", { - cause: { - RE_EXN_ID: "Failure", - _1: s - } - }); + cause: { + RE_EXN_ID: "Failure", + _1: s + } + }); } function invalid_arg(s) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } -var Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); +let Exit = /* @__PURE__ */Caml_exceptions.create("PervasivesU.Exit"); function abs(x) { if (x >= 0) { @@ -44,7 +44,7 @@ function lnot(x) { return x ^ -1; } -var min_int = -2147483648; +let min_int = -2147483648; function classify_float(x) { if (isFinite(x)) { @@ -65,11 +65,11 @@ function classify_float(x) { function char_of_int(n) { if (n < 0 || n > 255) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "char_of_int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "char_of_int" + } + }); } return n; } @@ -90,11 +90,11 @@ function bool_of_string(param) { return true; default: throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "bool_of_string" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "bool_of_string" + } + }); } } @@ -105,7 +105,7 @@ function bool_of_string_opt(param) { case "true" : return true; default: - return ; + return; } } @@ -114,37 +114,37 @@ function int_of_string_opt(s) { return Caml_format.int_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function valid_float_lexem(s) { - var l = s.length; - var _i = 0; + let l = s.length; + let _i = 0; while(true) { - var i = _i; + let i = _i; if (i >= l) { return s + "."; } - var match = Caml_string.get(s, i); + let match = Caml_string.get(s, i); if (match >= 48) { if (match >= 58) { return s; } _i = i + 1 | 0; - continue ; + continue; } if (match !== 45) { return s; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -157,22 +157,22 @@ function float_of_string_opt(s) { return Caml_format.float_of_string(s); } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Failure") { - return ; + return; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } function $at(l1, l2) { if (l1) { return { - hd: l1.hd, - tl: $at(l1.tl, l2) - }; + hd: l1.hd, + tl: $at(l1.tl, l2) + }; } else { return l2; } @@ -198,18 +198,18 @@ function print_string(prim) { console.log(prim); } -var exit_function = { +let exit_function = { contents: (function (prim) { - - }) + + }) }; function at_exit(f) { - var g = exit_function.contents; + let g = exit_function.contents; exit_function.contents = (function () { - f(); - g(); - }); + f(); + g(); + }); } function exit(retcode) { @@ -217,25 +217,25 @@ function exit(retcode) { return Caml_sys.sys_exit(retcode); } -var Jsx; +let Jsx; -var JsxEvent; +let JsxEvent; -var JsxDOM; +let JsxDOM; -var JsxPPXReactSupport; +let JsxPPXReactSupport; -var max_int = 2147483647; +let max_int = 2147483647; -var infinity = Infinity; +let infinity = Infinity; -var neg_infinity = -Infinity; +let neg_infinity = -Infinity; -var max_float = 1.79769313486231571e+308; +let max_float = 1.79769313486231571e+308; -var min_float = 2.22507385850720138e-308; +let min_float = 2.22507385850720138e-308; -var epsilon_float = 2.22044604925031308e-16; +let epsilon_float = 2.22044604925031308e-16; exports.Jsx = Jsx; exports.JsxEvent = JsxEvent; diff --git a/lib/js/queue.js b/lib/js/queue.js index f93d01db91..dfc4acf8e5 100644 --- a/lib/js/queue.js +++ b/lib/js/queue.js @@ -1,16 +1,16 @@ 'use strict'; -var Curry = require("./curry.js"); -var Caml_exceptions = require("./caml_exceptions.js"); +let Curry = require("./curry.js"); +let Caml_exceptions = require("./caml_exceptions.js"); -var Empty = /* @__PURE__ */Caml_exceptions.create("Queue.Empty"); +let Empty = /* @__PURE__ */Caml_exceptions.create("Queue.Empty"); function create(param) { return { - length: 0, - first: "Nil", - last: "Nil" - }; + length: 0, + first: "Nil", + last: "Nil" + }; } function clear(q) { @@ -20,17 +20,17 @@ function clear(q) { } function add(x, q) { - var cell = { + let cell = { TAG: "Cons", content: x, next: "Nil" }; - var last = q.last; + let last = q.last; if (typeof last !== "object") { q.length = 1; q.first = cell; q.last = cell; - return ; + return; } q.length = q.length + 1 | 0; last.next = cell; @@ -38,28 +38,28 @@ function add(x, q) { } function peek(q) { - var match = q.first; + let match = q.first; if (typeof match === "object") { return match.content; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function take(q) { - var match = q.first; + let match = q.first; if (typeof match !== "object") { throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } - var content = match.content; - var next = match.next; + let content = match.content; + let next = match.next; if (typeof next !== "object") { clear(q); return content; @@ -70,22 +70,22 @@ function take(q) { } function copy(q) { - var q_res = { + let q_res = { length: q.length, first: "Nil", last: "Nil" }; - var _prev = "Nil"; - var _cell = q.first; + let _prev = "Nil"; + let _cell = q.first; while(true) { - var cell = _cell; - var prev = _prev; + let cell = _cell; + let prev = _prev; if (typeof cell !== "object") { q_res.last = prev; return q_res; } - var next = cell.next; - var res = { + let next = cell.next; + let res = { TAG: "Cons", content: cell.content, next: "Nil" @@ -97,7 +97,7 @@ function copy(q) { } _cell = next; _prev = res; - continue ; + continue; }; } @@ -110,41 +110,41 @@ function length(q) { } function iter(f, q) { - var _cell = q.first; + let _cell = q.first; while(true) { - var cell = _cell; + let cell = _cell; if (typeof cell !== "object") { - return ; + return; } - var next = cell.next; + let next = cell.next; Curry._1(f, cell.content); _cell = next; - continue ; + continue; }; } function fold(f, accu, q) { - var _accu = accu; - var _cell = q.first; + let _accu = accu; + let _cell = q.first; while(true) { - var cell = _cell; - var accu$1 = _accu; + let cell = _cell; + let accu$1 = _accu; if (typeof cell !== "object") { return accu$1; } - var next = cell.next; - var accu$2 = Curry._2(f, accu$1, cell.content); + let next = cell.next; + let accu$2 = Curry._2(f, accu$1, cell.content); _cell = next; _accu = accu$2; - continue ; + continue; }; } function transfer(q1, q2) { if (q1.length <= 0) { - return ; + return; } - var last = q2.last; + let last = q2.last; if (typeof last !== "object") { q2.length = q1.length; q2.first = q1.first; @@ -157,11 +157,11 @@ function transfer(q1, q2) { clear(q1); } -var push = add; +let push = add; -var pop = take; +let pop = take; -var top = peek; +let top = peek; exports.Empty = Empty; exports.create = create; diff --git a/lib/js/random.js b/lib/js/random.js index 1f8a9680a9..7fd1d5faa8 100644 --- a/lib/js/random.js +++ b/lib/js/random.js @@ -1,13 +1,13 @@ 'use strict'; -var Caml = require("./caml.js"); -var $$Array = require("./array.js"); -var Int32 = require("./int32.js"); -var Int64 = require("./int64.js"); -var Digest = require("./digest.js"); -var Caml_array = require("./caml_array.js"); -var Caml_int64 = require("./caml_int64.js"); -var Caml_string = require("./caml_string.js"); +let Caml = require("./caml.js"); +let $$Array = require("./array.js"); +let Int32 = require("./int32.js"); +let Int64 = require("./int64.js"); +let Digest = require("./digest.js"); +let Caml_array = require("./caml_array.js"); +let Caml_int64 = require("./caml_int64.js"); +let Caml_string = require("./caml_string.js"); function random_seed(param) { return [(Math.floor(Math.random()*0x7fffffff))]; @@ -19,23 +19,23 @@ function assign(st1, st2) { } function full_init(s, seed) { - var combine = function (accu, x) { + let combine = function (accu, x) { return Digest.string(accu + String(x)); }; - var extract = function (d) { + let extract = function (d) { return ((Caml_string.get(d, 0) + (Caml_string.get(d, 1) << 8) | 0) + (Caml_string.get(d, 2) << 16) | 0) + (Caml_string.get(d, 3) << 24) | 0; }; - var seed$1 = seed.length === 0 ? [0] : seed; - var l = seed$1.length; - for(var i = 0; i <= 54; ++i){ + let seed$1 = seed.length === 0 ? [0] : seed; + let l = seed$1.length; + for(let i = 0; i <= 54; ++i){ Caml_array.set(s.st, i, i); } - var accu = "x"; - for(var i$1 = 0 ,i_finish = 54 + ( + let accu = "x"; + for(let i$1 = 0 ,i_finish = 54 + ( 55 > l ? 55 : l ) | 0; i$1 <= i_finish; ++i$1){ - var j = i$1 % 55; - var k = i$1 % l; + let j = i$1 % 55; + let k = i$1 % l; accu = combine(accu, Caml_array.get(seed$1, k)); Caml_array.set(s.st, j, (Caml_array.get(s.st, j) ^ extract(accu)) & 1073741823); } @@ -43,7 +43,7 @@ function full_init(s, seed) { } function make(seed) { - var result = { + let result = { st: Caml_array.make(55, 0), idx: 0 }; @@ -56,7 +56,7 @@ function make_self_init(param) { } function copy(s) { - var result = { + let result = { st: Caml_array.make(55, 0), idx: 0 }; @@ -66,9 +66,9 @@ function copy(s) { function bits(s) { s.idx = (s.idx + 1 | 0) % 55; - var curval = Caml_array.get(s.st, s.idx); - var newval = Caml_array.get(s.st, (s.idx + 24 | 0) % 55) + (curval ^ (curval >>> 25) & 31) | 0; - var newval30 = newval & 1073741823; + let curval = Caml_array.get(s.st, s.idx); + let newval = Caml_array.get(s.st, (s.idx + 24 | 0) % 55) + (curval ^ (curval >>> 25) & 31) | 0; + let newval30 = newval & 1073741823; Caml_array.set(s.st, s.idx, newval30); return newval30; } @@ -76,68 +76,68 @@ function bits(s) { function $$int(s, bound) { if (bound > 1073741823 || bound <= 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int" + } + }); } while(true) { - var r = bits(s); - var v = r % bound; + let r = bits(s); + let v = r % bound; if ((r - v | 0) <= ((1073741823 - bound | 0) + 1 | 0)) { return v; } - continue ; + continue; }; } function int32(s, bound) { if (bound <= 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int32" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int32" + } + }); } while(true) { - var b1 = bits(s); - var b2 = ((bits(s) & 1) << 30); - var r = b1 | b2; - var v = r % bound; + let b1 = bits(s); + let b2 = ((bits(s) & 1) << 30); + let r = b1 | b2; + let v = r % bound; if ((r - v | 0) <= ((Int32.max_int - bound | 0) + 1 | 0)) { return v; } - continue ; + continue; }; } function int64(s, bound) { if (Caml.i64_le(bound, Caml_int64.zero)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Random.int64" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Random.int64" + } + }); } while(true) { - var b1 = Caml_int64.of_int32(bits(s)); - var b2 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s)), 30); - var b3 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s) & 7), 60); - var r = Caml_int64.or_(b1, Caml_int64.or_(b2, b3)); - var v = Caml_int64.mod_(r, bound); + let b1 = Caml_int64.of_int32(bits(s)); + let b2 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s)), 30); + let b3 = Caml_int64.lsl_(Caml_int64.of_int32(bits(s) & 7), 60); + let r = Caml_int64.or_(b1, Caml_int64.or_(b2, b3)); + let v = Caml_int64.mod_(r, bound); if (!Caml.i64_gt(Caml_int64.sub(r, v), Caml_int64.add(Caml_int64.sub(Int64.max_int, bound), Caml_int64.one))) { return v; } - continue ; + continue; }; } function rawfloat(s) { - var r1 = bits(s); - var r2 = bits(s); + let r1 = bits(s); + let r2 = bits(s); return (r1 / 1073741824.0 + r2) / 1073741824.0; } @@ -149,7 +149,7 @@ function bool(s) { return (bits(s) & 1) === 0; } -var $$default = { +let $$default = { st: [ 987910699, 495797812, @@ -254,7 +254,7 @@ function set_state(s) { assign($$default, s); } -var State = { +let State = { make: make, make_self_init: make_self_init, copy: copy, diff --git a/lib/js/set.js b/lib/js/set.js index 424cd83d38..c7d617b2e5 100644 --- a/lib/js/set.js +++ b/lib/js/set.js @@ -1,47 +1,47 @@ 'use strict'; -var List = require("./list.js"); -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let List = require("./list.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function Make(funarg) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, v, r) { - var hl; + let create = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var lr = l.r; - var lv = l.v; - var ll = l.l; + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -49,32 +49,32 @@ function Make(funarg) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var rr = r.r; - var rv = r.v; - var rl = r.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -82,76 +82,76 @@ function Make(funarg) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; - var add = function (x, param) { + let add = function (x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var singleton = function (x) { + let singleton = function (x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; }; - var add_min_element = function (x, param) { + let add_min_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(add_min_element(x, param.l), param.v, param.r); } }; - var add_max_element = function (x, param) { + let add_max_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(param.l, param.v, add_max_element(x, param.r)); } }; - var join = function (l, v, r) { + let join = function (l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -160,87 +160,87 @@ function Make(funarg) { return create(l, v, r); } }; - var min_elt = function (_param) { + let min_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; }; - var min_elt_opt = function (_param) { + let min_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; }; - var max_elt = function (_param) { + let max_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; }; - var max_elt_opt = function (_param) { + let max_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; }; - var remove_min_elt = function (param) { + let remove_min_elt = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_elt(l), param.v, param.r); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -249,69 +249,69 @@ function Make(funarg) { return join(t1, min_elt(t2), remove_min_elt(t2)); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(funarg.compare, x, param.v); + let c = Curry._2(funarg.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(funarg.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { if (typeof l !== "object") { return r; @@ -322,84 +322,84 @@ function Make(funarg) { } } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var union = function (s1, s2) { + let union = function (s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); }; - var inter = function (s1, s2) { + let inter = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { return concat(inter(l1, l2), inter(r1, match[2])); } }; - var diff = function (s1, s2) { + let diff = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { return join(diff(l1, l2), v1, diff(r1, match[2])); } }; - var cons_enum = function (_s, _e) { + let cons_enum = function (_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -410,15 +410,15 @@ function Make(funarg) { _2: e }; _s = s.l; - continue ; + continue; }; }; - var compare = function (s1, s2) { - var _e1 = cons_enum(s1, "End"); - var _e2 = cons_enum(s2, "End"); + let compare = function (s1, s2) { + let _e1 = cons_enum(s1, "End"); + let _e2 = cons_enum(s2, "End"); while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -429,95 +429,95 @@ function Make(funarg) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(funarg.compare, e1._0, e2._0); + let c = Curry._2(funarg.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; }; - var equal = function (s1, s2) { + let equal = function (s1, s2) { return compare(s1, s2) === 0; }; - var subset = function (_s1, _s2) { + let subset = function (_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(funarg.compare, v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(funarg.compare, v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; }; - var fold = function (f, _s, _accu) { + let fold = function (f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -528,12 +528,12 @@ function Make(funarg) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -544,19 +544,19 @@ function Make(funarg) { return true; } _param = param.r; - continue ; + continue; }; }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -567,44 +567,44 @@ function Make(funarg) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var elements_aux = function (_accu, _param) { + let elements_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -613,184 +613,184 @@ function Make(funarg) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; }; - var elements = function (s) { + let elements = function (s) { return elements_aux(/* [] */0, s); }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.l; + let _v0 = v; + let _param$1 = param.l; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.l; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.r; - continue ; + continue; }; } _param = param.r; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return v0; } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { - var _v0 = v; - var _param$1 = param.r; + let _v0 = v; + let _param$1 = param.r; while(true) { - var param$1 = _param$1; - var v0 = _v0; + let param$1 = _param$1; + let v0 = _v0; if (typeof param$1 !== "object") { return Caml_option.some(v0); } - var v$1 = param$1.v; + let v$1 = param$1.v; if (Curry._1(f, v$1)) { _param$1 = param$1.r; _v0 = v$1; - continue ; + continue; } _param$1 = param$1.l; - continue ; + continue; }; } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Curry._2(funarg.compare, x, v); + let v = param.v; + let c = Curry._2(funarg.compare, x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else if ((l$p === "Empty" || Curry._2(funarg.compare, max_elt(l$p), v$p) < 0) && (r$p === "Empty" || Curry._2(funarg.compare, v$p, min_elt(r$p)) < 0)) { @@ -799,103 +799,103 @@ function Make(funarg) { return union(l$p, add(v$p, r$p)); } }; - var of_list = function (l) { + let of_list = function (l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { - var l$1 = List.sort_uniq(funarg.compare, l); - var sub = function (n, l) { + let l$1 = List.sort_uniq(funarg.compare, l); + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -905,26 +905,26 @@ function Make(funarg) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "set.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "set.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l$1), l$1)[0]; } else { @@ -935,42 +935,42 @@ function Make(funarg) { } }; return { - empty: "Empty", - is_empty: is_empty, - mem: mem, - add: add, - singleton: singleton, - remove: remove, - union: union, - inter: inter, - diff: diff, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - map: map, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements: elements, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - choose: min_elt, - choose_opt: min_elt_opt, - split: split, - find: find, - find_opt: find_opt, - find_first: find_first, - find_first_opt: find_first_opt, - find_last: find_last, - find_last_opt: find_last_opt, - of_list: of_list - }; + empty: "Empty", + is_empty: is_empty, + mem: mem, + add: add, + singleton: singleton, + remove: remove, + union: union, + inter: inter, + diff: diff, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + map: map, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements: elements, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + choose: min_elt, + choose_opt: min_elt_opt, + split: split, + find: find, + find_opt: find_opt, + find_first: find_first, + find_first_opt: find_first_opt, + find_last: find_last, + find_last_opt: find_last_opt, + of_list: of_list + }; } exports.Make = Make; diff --git a/lib/js/setLabels.js b/lib/js/setLabels.js index 601d63d01e..aa0a8f097b 100644 --- a/lib/js/setLabels.js +++ b/lib/js/setLabels.js @@ -1,47 +1,47 @@ 'use strict'; -var List = require("./list.js"); -var Curry = require("./curry.js"); -var Caml_option = require("./caml_option.js"); +let List = require("./list.js"); +let Curry = require("./curry.js"); +let Caml_option = require("./caml_option.js"); function Make(Ord) { - var height = function (param) { + let height = function (param) { if (typeof param !== "object") { return 0; } else { return param.h; } }; - var create = function (l, v, r) { - var hl; + let create = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; - }; - var bal = function (l, v, r) { - var hl; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; + }; + let bal = function (l, v, r) { + let hl; hl = typeof l !== "object" ? 0 : l.h; - var hr; + let hr; hr = typeof r !== "object" ? 0 : r.h; if (hl > (hr + 2 | 0)) { if (typeof l !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); - } - var lr = l.r; - var lv = l.v; - var ll = l.l; + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); + } + let lr = l.r; + let lv = l.v; + let ll = l.l; if (height(ll) >= height(lr)) { return create(ll, lv, create(lr, v, r)); } @@ -49,32 +49,32 @@ function Make(Ord) { return create(create(ll, lv, lr.l), lr.v, create(lr.r, v, r)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } if (hr <= (hl + 2 | 0)) { return { - TAG: "Node", - l: l, - v: v, - r: r, - h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 - }; + TAG: "Node", + l: l, + v: v, + r: r, + h: hl >= hr ? hl + 1 | 0 : hr + 1 | 0 + }; } if (typeof r !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); } - var rr = r.r; - var rv = r.v; - var rl = r.l; + let rr = r.r; + let rv = r.v; + let rl = r.l; if (height(rr) >= height(rl)) { return create(create(l, v, rl), rv, rr); } @@ -82,76 +82,76 @@ function Make(Ord) { return create(create(l, v, rl.l), rl.v, create(rl.r, rv, rr)); } throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.bal" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.bal" + } + }); }; - var add = function (x, param) { + let add = function (x, param) { if (typeof param !== "object") { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return param; } if (c < 0) { - var ll = add(x, l); + let ll = add(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = add(x, r); + let rr = add(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var singleton = function (x) { + let singleton = function (x) { return { - TAG: "Node", - l: "Empty", - v: x, - r: "Empty", - h: 1 - }; + TAG: "Node", + l: "Empty", + v: x, + r: "Empty", + h: 1 + }; }; - var add_min_element = function (x, param) { + let add_min_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(add_min_element(x, param.l), param.v, param.r); } }; - var add_max_element = function (x, param) { + let add_max_element = function (x, param) { if (typeof param !== "object") { return singleton(x); } else { return bal(param.l, param.v, add_max_element(x, param.r)); } }; - var join = function (l, v, r) { + let join = function (l, v, r) { if (typeof l !== "object") { return add_min_element(v, r); } - var lh = l.h; + let lh = l.h; if (typeof r !== "object") { return add_max_element(v, l); } - var rh = r.h; + let rh = r.h; if (lh > (rh + 2 | 0)) { return bal(l.l, l.v, join(l.r, v, r)); } else if (rh > (lh + 2 | 0)) { @@ -160,87 +160,87 @@ function Make(Ord) { return create(l, v, r); } }; - var min_elt = function (_param) { + let min_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.v; } _param = l; - continue ; + continue; }; }; - var min_elt_opt = function (_param) { + let min_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return Caml_option.some(param.v); } _param = l; - continue ; + continue; }; }; - var max_elt = function (_param) { + let max_elt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return param.v; } _param = r; - continue ; + continue; }; }; - var max_elt_opt = function (_param) { + let max_elt_opt = function (_param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var r = param.r; + let r = param.r; if (typeof r !== "object") { return Caml_option.some(param.v); } _param = r; - continue ; + continue; }; }; - var remove_min_elt = function (param) { + let remove_min_elt = function (param) { if (typeof param !== "object") { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Set.remove_min_elt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Set.remove_min_elt" + } + }); } - var l = param.l; + let l = param.l; if (typeof l !== "object") { return param.r; } else { return bal(remove_min_elt(l), param.v, param.r); } }; - var merge = function (t1, t2) { + let merge = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -249,7 +249,7 @@ function Make(Ord) { return bal(t1, min_elt(t2), remove_min_elt(t2)); } }; - var concat = function (t1, t2) { + let concat = function (t1, t2) { if (typeof t1 !== "object") { return t2; } else if (typeof t2 !== "object") { @@ -258,151 +258,151 @@ function Make(Ord) { return join(t1, min_elt(t2), remove_min_elt(t2)); } }; - var split = function (x, param) { + let split = function (x, param) { if (typeof param !== "object") { return [ - "Empty", - false, - "Empty" - ]; - } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + "Empty", + false, + "Empty" + ]; + } + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return [ - l, - true, - r - ]; + l, + true, + r + ]; } if (c < 0) { - var match = split(x, l); + let match = split(x, l); return [ - match[0], - match[1], - join(match[2], v, r) - ]; + match[0], + match[1], + join(match[2], v, r) + ]; } - var match$1 = split(x, r); + let match$1 = split(x, r); return [ - join(l, v, match$1[0]), - match$1[1], - match$1[2] - ]; + join(l, v, match$1[0]), + match$1[1], + match$1[2] + ]; }; - var is_empty = function (param) { + let is_empty = function (param) { if (typeof param !== "object") { return true; } else { return false; } }; - var mem = function (x, _param) { + let mem = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } - var c = Curry._2(Ord.compare, x, param.v); + let c = Curry._2(Ord.compare, x, param.v); if (c === 0) { return true; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var remove = function (x, param) { + let remove = function (x, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var c = Curry._2(Ord.compare, x, v); + let r = param.r; + let v = param.v; + let l = param.l; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return merge(l, r); } if (c < 0) { - var ll = remove(x, l); + let ll = remove(x, l); if (l === ll) { return param; } else { return bal(ll, v, r); } } - var rr = remove(x, r); + let rr = remove(x, r); if (r === rr) { return param; } else { return bal(l, v, rr); } }; - var union = function (s1, s2) { + let union = function (s1, s2) { if (typeof s1 !== "object") { return s2; } - var h1 = s1.h; - var v1 = s1.v; + let h1 = s1.h; + let v1 = s1.v; if (typeof s2 !== "object") { return s1; } - var h2 = s2.h; - var v2 = s2.v; + let h2 = s2.h; + let v2 = s2.v; if (h1 >= h2) { if (h2 === 1) { return add(v2, s1); } - var match = split(v1, s2); + let match = split(v1, s2); return join(union(s1.l, match[0]), v1, union(s1.r, match[2])); } if (h1 === 1) { return add(v1, s2); } - var match$1 = split(v2, s1); + let match$1 = split(v2, s1); return join(union(match$1[0], s2.l), v2, union(match$1[2], s2.r)); }; - var inter = function (s1, s2) { + let inter = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return "Empty"; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return join(inter(l1, l2), v1, inter(r1, match[2])); } else { return concat(inter(l1, l2), inter(r1, match[2])); } }; - var diff = function (s1, s2) { + let diff = function (s1, s2) { if (typeof s1 !== "object") { return "Empty"; } if (typeof s2 !== "object") { return s1; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; - var match = split(v1, s2); - var l2 = match[0]; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; + let match = split(v1, s2); + let l2 = match[0]; if (match[1]) { return concat(diff(l1, l2), diff(r1, match[2])); } else { return join(diff(l1, l2), v1, diff(r1, match[2])); } }; - var cons_enum = function (_s, _e) { + let cons_enum = function (_s, _e) { while(true) { - var e = _e; - var s = _s; + let e = _e; + let s = _s; if (typeof s !== "object") { return e; } @@ -413,13 +413,13 @@ function Make(Ord) { _2: e }; _s = s.l; - continue ; + continue; }; }; - var compare_aux = function (_e1, _e2) { + let compare_aux = function (_e1, _e2) { while(true) { - var e2 = _e2; - var e1 = _e1; + let e2 = _e2; + let e1 = _e1; if (typeof e1 !== "object") { if (typeof e2 !== "object") { return 0; @@ -430,98 +430,98 @@ function Make(Ord) { if (typeof e2 !== "object") { return 1; } - var c = Curry._2(Ord.compare, e1._0, e2._0); + let c = Curry._2(Ord.compare, e1._0, e2._0); if (c !== 0) { return c; } _e2 = cons_enum(e2._1, e2._2); _e1 = cons_enum(e1._1, e1._2); - continue ; + continue; }; }; - var compare = function (s1, s2) { + let compare = function (s1, s2) { return compare_aux(cons_enum(s1, "End"), cons_enum(s2, "End")); }; - var equal = function (s1, s2) { + let equal = function (s1, s2) { return compare(s1, s2) === 0; }; - var subset = function (_s1, _s2) { + let subset = function (_s1, _s2) { while(true) { - var s2 = _s2; - var s1 = _s1; + let s2 = _s2; + let s1 = _s1; if (typeof s1 !== "object") { return true; } - var r1 = s1.r; - var v1 = s1.v; - var l1 = s1.l; + let r1 = s1.r; + let v1 = s1.v; + let l1 = s1.l; if (typeof s2 !== "object") { return false; } - var r2 = s2.r; - var l2 = s2.l; - var c = Curry._2(Ord.compare, v1, s2.v); + let r2 = s2.r; + let l2 = s2.l; + let c = Curry._2(Ord.compare, v1, s2.v); if (c === 0) { if (!subset(l1, l2)) { return false; } _s2 = r2; _s1 = r1; - continue ; + continue; } if (c < 0) { if (!subset({ - TAG: "Node", - l: l1, - v: v1, - r: "Empty", - h: 0 - }, l2)) { + TAG: "Node", + l: l1, + v: v1, + r: "Empty", + h: 0 + }, l2)) { return false; } _s1 = r1; - continue ; + continue; } if (!subset({ - TAG: "Node", - l: "Empty", - v: v1, - r: r1, - h: 0 - }, r2)) { + TAG: "Node", + l: "Empty", + v: v1, + r: r1, + h: 0 + }, r2)) { return false; } _s1 = l1; - continue ; + continue; }; }; - var iter = function (f, _param) { + let iter = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } iter(f, param.l); Curry._1(f, param.v); _param = param.r; - continue ; + continue; }; }; - var fold = function (f, _s, _accu) { + let fold = function (f, _s, _accu) { while(true) { - var accu = _accu; - var s = _s; + let accu = _accu; + let s = _s; if (typeof s !== "object") { return accu; } _accu = Curry._2(f, s.v, fold(f, s.l, accu)); _s = s.r; - continue ; + continue; }; }; - var for_all = function (p, _param) { + let for_all = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return true; } @@ -532,12 +532,12 @@ function Make(Ord) { return false; } _param = param.r; - continue ; + continue; }; }; - var exists = function (p, _param) { + let exists = function (p, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { return false; } @@ -548,19 +548,19 @@ function Make(Ord) { return true; } _param = param.r; - continue ; + continue; }; }; - var filter = function (p, param) { + let filter = function (p, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = filter(p, l); - var pv = Curry._1(p, v); - var r$p = filter(p, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = filter(p, l); + let pv = Curry._1(p, v); + let r$p = filter(p, r); if (pv) { if (l === l$p && r === r$p) { return param; @@ -571,44 +571,44 @@ function Make(Ord) { return concat(l$p, r$p); } }; - var partition = function (p, param) { + let partition = function (p, param) { if (typeof param !== "object") { return [ - "Empty", - "Empty" - ]; - } - var v = param.v; - var match = partition(p, param.l); - var lf = match[1]; - var lt = match[0]; - var pv = Curry._1(p, v); - var match$1 = partition(p, param.r); - var rf = match$1[1]; - var rt = match$1[0]; + "Empty", + "Empty" + ]; + } + let v = param.v; + let match = partition(p, param.l); + let lf = match[1]; + let lt = match[0]; + let pv = Curry._1(p, v); + let match$1 = partition(p, param.r); + let rf = match$1[1]; + let rt = match$1[0]; if (pv) { return [ - join(lt, v, rt), - concat(lf, rf) - ]; + join(lt, v, rt), + concat(lf, rf) + ]; } else { return [ - concat(lt, rt), - join(lf, v, rf) - ]; + concat(lt, rt), + join(lf, v, rf) + ]; } }; - var cardinal = function (param) { + let cardinal = function (param) { if (typeof param !== "object") { return 0; } else { return (cardinal(param.l) + 1 | 0) + cardinal(param.r) | 0; } }; - var elements_aux = function (_accu, _param) { + let elements_aux = function (_accu, _param) { while(true) { - var param = _param; - var accu = _accu; + let param = _param; + let accu = _accu; if (typeof param !== "object") { return accu; } @@ -617,275 +617,275 @@ function Make(Ord) { hd: param.v, tl: elements_aux(accu, param.r) }; - continue ; + continue; }; }; - var elements = function (s) { + let elements = function (s) { return elements_aux(/* [] */0, s); }; - var find = function (x, _param) { + let find = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; - var c = Curry._2(Ord.compare, x, v); + let v = param.v; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return v; } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var find_first_aux = function (_v0, f, _param) { + let find_first_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return v0; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first = function (f, _param) { + let find_first = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_aux(v, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_first_opt_aux = function (_v0, f, _param) { + let find_first_opt_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return Caml_option.some(v0); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.l; _v0 = v; - continue ; + continue; } _param = param.r; - continue ; + continue; }; }; - var find_first_opt = function (f, _param) { + let find_first_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_first_opt_aux(v, f, param.l); } _param = param.r; - continue ; + continue; }; }; - var find_last_aux = function (_v0, f, _param) { + let find_last_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return v0; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last = function (f, _param) { + let find_last = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_aux(v, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_last_opt_aux = function (_v0, f, _param) { + let find_last_opt_aux = function (_v0, f, _param) { while(true) { - var param = _param; - var v0 = _v0; + let param = _param; + let v0 = _v0; if (typeof param !== "object") { return Caml_option.some(v0); } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { _param = param.r; _v0 = v; - continue ; + continue; } _param = param.l; - continue ; + continue; }; }; - var find_last_opt = function (f, _param) { + let find_last_opt = function (f, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; + let v = param.v; if (Curry._1(f, v)) { return find_last_opt_aux(v, f, param.r); } _param = param.l; - continue ; + continue; }; }; - var find_opt = function (x, _param) { + let find_opt = function (x, _param) { while(true) { - var param = _param; + let param = _param; if (typeof param !== "object") { - return ; + return; } - var v = param.v; - var c = Curry._2(Ord.compare, x, v); + let v = param.v; + let c = Curry._2(Ord.compare, x, v); if (c === 0) { return Caml_option.some(v); } _param = c < 0 ? param.l : param.r; - continue ; + continue; }; }; - var try_join = function (l, v, r) { + let try_join = function (l, v, r) { if ((l === "Empty" || Curry._2(Ord.compare, max_elt(l), v) < 0) && (r === "Empty" || Curry._2(Ord.compare, v, min_elt(r)) < 0)) { return join(l, v, r); } else { return union(l, add(v, r)); } }; - var map = function (f, param) { + let map = function (f, param) { if (typeof param !== "object") { return "Empty"; } - var r = param.r; - var v = param.v; - var l = param.l; - var l$p = map(f, l); - var v$p = Curry._1(f, v); - var r$p = map(f, r); + let r = param.r; + let v = param.v; + let l = param.l; + let l$p = map(f, l); + let v$p = Curry._1(f, v); + let r$p = map(f, r); if (l === l$p && v === v$p && r === r$p) { return param; } else { return try_join(l$p, v$p, r$p); } }; - var of_sorted_list = function (l) { - var sub = function (n, l) { + let of_sorted_list = function (l) { + let sub = function (n, l) { switch (n) { case 0 : return [ - "Empty", - l - ]; + "Empty", + l + ]; case 1 : if (l) { return [ - { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - l.tl - ]; + { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + l.tl + ]; } break; case 2 : if (l) { - var match = l.tl; + let match = l.tl; if (match) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match.hd, - r: "Empty", - h: 2 - }, - match.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match.hd, + r: "Empty", + h: 2 + }, + match.tl + ]; } } break; case 3 : if (l) { - var match$1 = l.tl; + let match$1 = l.tl; if (match$1) { - var match$2 = match$1.tl; + let match$2 = match$1.tl; if (match$2) { return [ - { - TAG: "Node", - l: { - TAG: "Node", - l: "Empty", - v: l.hd, - r: "Empty", - h: 1 - }, - v: match$1.hd, - r: { - TAG: "Node", - l: "Empty", - v: match$2.hd, - r: "Empty", - h: 1 - }, - h: 2 - }, - match$2.tl - ]; + { + TAG: "Node", + l: { + TAG: "Node", + l: "Empty", + v: l.hd, + r: "Empty", + h: 1 + }, + v: match$1.hd, + r: { + TAG: "Node", + l: "Empty", + v: match$2.hd, + r: "Empty", + h: 1 + }, + h: 2 + }, + match$2.tl + ]; } } @@ -895,50 +895,50 @@ function Make(Ord) { default: } - var nl = n / 2 | 0; - var match$3 = sub(nl, l); - var l$1 = match$3[1]; + let nl = n / 2 | 0; + let match$3 = sub(nl, l); + let l$1 = match$3[1]; if (l$1) { - var match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); + let match$4 = sub((n - nl | 0) - 1 | 0, l$1.tl); return [ - create(match$3[0], l$1.hd, match$4[0]), - match$4[1] - ]; + create(match$3[0], l$1.hd, match$4[0]), + match$4[1] + ]; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "setLabels.res", - 691, - 20 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "setLabels.res", + 691, + 20 + ] + } + }); }; return sub(List.length(l), l)[0]; }; - var of_list = function (l) { + let of_list = function (l) { if (!l) { return "Empty"; } - var match = l.tl; - var x0 = l.hd; + let match = l.tl; + let x0 = l.hd; if (!match) { return singleton(x0); } - var match$1 = match.tl; - var x1 = match.hd; + let match$1 = match.tl; + let x1 = match.hd; if (!match$1) { return add(x1, singleton(x0)); } - var match$2 = match$1.tl; - var x2 = match$1.hd; + let match$2 = match$1.tl; + let x2 = match$1.hd; if (!match$2) { return add(x2, add(x1, singleton(x0))); } - var match$3 = match$2.tl; - var x3 = match$2.hd; + let match$3 = match$2.tl; + let x3 = match$2.hd; if (match$3) { if (match$3.tl) { return of_sorted_list(List.sort_uniq(Ord.compare, l)); @@ -950,60 +950,60 @@ function Make(Ord) { } }; return { - height: height, - create: create, - bal: bal, - add: add, - singleton: singleton, - add_min_element: add_min_element, - add_max_element: add_max_element, - join: join, - min_elt: min_elt, - min_elt_opt: min_elt_opt, - max_elt: max_elt, - max_elt_opt: max_elt_opt, - remove_min_elt: remove_min_elt, - merge: merge, - concat: concat, - split: split, - empty: "Empty", - is_empty: is_empty, - mem: mem, - remove: remove, - union: union, - inter: inter, - diff: diff, - cons_enum: cons_enum, - compare_aux: compare_aux, - compare: compare, - equal: equal, - subset: subset, - iter: iter, - fold: fold, - for_all: for_all, - exists: exists, - filter: filter, - partition: partition, - cardinal: cardinal, - elements_aux: elements_aux, - elements: elements, - choose: min_elt, - choose_opt: min_elt_opt, - find: find, - find_first_aux: find_first_aux, - find_first: find_first, - find_first_opt_aux: find_first_opt_aux, - find_first_opt: find_first_opt, - find_last_aux: find_last_aux, - find_last: find_last, - find_last_opt_aux: find_last_opt_aux, - find_last_opt: find_last_opt, - find_opt: find_opt, - try_join: try_join, - map: map, - of_sorted_list: of_sorted_list, - of_list: of_list - }; + height: height, + create: create, + bal: bal, + add: add, + singleton: singleton, + add_min_element: add_min_element, + add_max_element: add_max_element, + join: join, + min_elt: min_elt, + min_elt_opt: min_elt_opt, + max_elt: max_elt, + max_elt_opt: max_elt_opt, + remove_min_elt: remove_min_elt, + merge: merge, + concat: concat, + split: split, + empty: "Empty", + is_empty: is_empty, + mem: mem, + remove: remove, + union: union, + inter: inter, + diff: diff, + cons_enum: cons_enum, + compare_aux: compare_aux, + compare: compare, + equal: equal, + subset: subset, + iter: iter, + fold: fold, + for_all: for_all, + exists: exists, + filter: filter, + partition: partition, + cardinal: cardinal, + elements_aux: elements_aux, + elements: elements, + choose: min_elt, + choose_opt: min_elt_opt, + find: find, + find_first_aux: find_first_aux, + find_first: find_first, + find_first_opt_aux: find_first_opt_aux, + find_first_opt: find_first_opt, + find_last_aux: find_last_aux, + find_last: find_last, + find_last_opt_aux: find_last_opt_aux, + find_last_opt: find_last_opt, + find_opt: find_opt, + try_join: try_join, + map: map, + of_sorted_list: of_sorted_list, + of_list: of_list + }; } exports.Make = Make; diff --git a/lib/js/sort.js b/lib/js/sort.js index 095e04c7ac..fe40df1d29 100644 --- a/lib/js/sort.js +++ b/lib/js/sort.js @@ -1,6 +1,6 @@ 'use strict'; -var Curry = require("./curry.js"); +let Curry = require("./curry.js"); function merge(order, l1, l2) { if (!l1) { @@ -9,72 +9,72 @@ function merge(order, l1, l2) { if (!l2) { return l1; } - var h2 = l2.hd; - var h1 = l1.hd; + let h2 = l2.hd; + let h1 = l1.hd; if (Curry._2(order, h1, h2)) { return { - hd: h1, - tl: merge(order, l1.tl, l2) - }; + hd: h1, + tl: merge(order, l1.tl, l2) + }; } else { return { - hd: h2, - tl: merge(order, l1, l2.tl) - }; + hd: h2, + tl: merge(order, l1, l2.tl) + }; } } function list(order, l) { - var initlist = function (param) { + let initlist = function (param) { if (!param) { return /* [] */0; } - var match = param.tl; - var e = param.hd; + let match = param.tl; + let e = param.hd; if (!match) { return { - hd: { - hd: e, - tl: /* [] */0 - }, - tl: /* [] */0 - }; + hd: { + hd: e, + tl: /* [] */0 + }, + tl: /* [] */0 + }; } - var e2 = match.hd; + let e2 = match.hd; return { - hd: Curry._2(order, e, e2) ? ({ - hd: e, - tl: { - hd: e2, - tl: /* [] */0 - } - }) : ({ - hd: e2, - tl: { - hd: e, - tl: /* [] */0 - } - }), - tl: initlist(match.tl) - }; + hd: Curry._2(order, e, e2) ? ({ + hd: e, + tl: { + hd: e2, + tl: /* [] */0 + } + }) : ({ + hd: e2, + tl: { + hd: e, + tl: /* [] */0 + } + }), + tl: initlist(match.tl) + }; }; - var merge2 = function (param) { + let merge2 = function (param) { if (!param) { return param; } - var match = param.tl; + let match = param.tl; if (match) { return { - hd: merge(order, param.hd, match.hd), - tl: merge2(match.tl) - }; + hd: merge(order, param.hd, match.hd), + tl: merge2(match.tl) + }; } else { return param; } }; - var _param = initlist(l); + let _param = initlist(l); while(true) { - var param = _param; + let param = _param; if (!param) { return /* [] */0; } @@ -82,25 +82,25 @@ function list(order, l) { return param.hd; } _param = merge2(param); - continue ; + continue; }; } function swap(arr, i, j) { - var tmp = arr[i]; + let tmp = arr[i]; arr[i] = arr[j]; arr[j] = tmp; } function array(cmp, arr) { - var qsort = function (_lo, _hi) { + let qsort = function (_lo, _hi) { while(true) { - var hi = _hi; - var lo = _lo; + let hi = _hi; + let lo = _lo; if ((hi - lo | 0) < 6) { - return ; + return; } - var mid = ((lo + hi | 0) >>> 1); + let mid = ((lo + hi | 0) >>> 1); if (Curry._2(cmp, arr[mid], arr[lo])) { swap(arr, mid, lo); } @@ -111,16 +111,16 @@ function array(cmp, arr) { } } - var pivot = arr[mid]; - var i = lo + 1 | 0; - var j = hi - 1 | 0; + let pivot = arr[mid]; + let i = lo + 1 | 0; + let j = hi - 1 | 0; if (!Curry._2(cmp, pivot, arr[hi]) || !Curry._2(cmp, arr[lo], pivot)) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "Sort.array" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "Sort.array" + } + }); } while(i < j) { while(!Curry._2(cmp, pivot, arr[i])) { @@ -138,19 +138,19 @@ function array(cmp, arr) { if ((j - lo | 0) <= (hi - i | 0)) { qsort(lo, j); _lo = i; - continue ; + continue; } qsort(i, hi); _hi = j; - continue ; + continue; }; }; qsort(0, arr.length - 1 | 0); - for(var i = 1 ,i_finish = arr.length; i < i_finish; ++i){ - var val_i = arr[i]; + for(let i = 1 ,i_finish = arr.length; i < i_finish; ++i){ + let val_i = arr[i]; if (!Curry._2(cmp, arr[i - 1 | 0], val_i)) { arr[i] = arr[i - 1 | 0]; - var j = i - 1 | 0; + let j = i - 1 | 0; while(j >= 1 && !Curry._2(cmp, arr[j - 1 | 0], val_i)) { arr[j] = arr[j - 1 | 0]; j = j - 1 | 0; diff --git a/lib/js/stack.js b/lib/js/stack.js index 365a8e2860..efff0038d5 100644 --- a/lib/js/stack.js +++ b/lib/js/stack.js @@ -1,15 +1,15 @@ 'use strict'; -var List = require("./list.js"); -var Caml_exceptions = require("./caml_exceptions.js"); +let List = require("./list.js"); +let Caml_exceptions = require("./caml_exceptions.js"); -var Empty = /* @__PURE__ */Caml_exceptions.create("Stack.Empty"); +let Empty = /* @__PURE__ */Caml_exceptions.create("Stack.Empty"); function create(param) { return { - c: /* [] */0, - len: 0 - }; + c: /* [] */0, + len: 0 + }; } function clear(s) { @@ -19,9 +19,9 @@ function clear(s) { function copy(s) { return { - c: s.c, - len: s.len - }; + c: s.c, + len: s.len + }; } function push(x, s) { @@ -33,29 +33,29 @@ function push(x, s) { } function pop(s) { - var match = s.c; + let match = s.c; if (match) { s.c = match.tl; s.len = s.len - 1 | 0; return match.hd; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function top(s) { - var match = s.c; + let match = s.c; if (match) { return match.hd; } throw new Error(Empty, { - cause: { - RE_EXN_ID: Empty - } - }); + cause: { + RE_EXN_ID: Empty + } + }); } function is_empty(s) { diff --git a/lib/js/stream.js b/lib/js/stream.js index c08ee0c045..5c67f92987 100644 --- a/lib/js/stream.js +++ b/lib/js/stream.js @@ -1,16 +1,16 @@ 'use strict'; -var List = require("./list.js"); -var Curry = require("./curry.js"); -var Caml_bytes = require("./caml_bytes.js"); -var Caml_option = require("./caml_option.js"); -var Caml_string = require("./caml_string.js"); -var Caml_exceptions = require("./caml_exceptions.js"); -var CamlinternalLazy = require("./camlinternalLazy.js"); +let List = require("./list.js"); +let Curry = require("./curry.js"); +let Caml_bytes = require("./caml_bytes.js"); +let Caml_option = require("./caml_option.js"); +let Caml_string = require("./caml_string.js"); +let Caml_exceptions = require("./caml_exceptions.js"); +let CamlinternalLazy = require("./camlinternalLazy.js"); -var Failure = /* @__PURE__ */Caml_exceptions.create("Stream.Failure"); +let Failure = /* @__PURE__ */Caml_exceptions.create("Stream.Failure"); -var $$Error = /* @__PURE__ */Caml_exceptions.create("Stream.Error"); +let $$Error = /* @__PURE__ */Caml_exceptions.create("Stream.Error"); function count(param) { if (param !== undefined) { @@ -30,7 +30,7 @@ function data(param) { function get_data(count, _d) { while(true) { - var d = _d; + let d = _d; if (typeof d !== "object") { return d; } @@ -38,59 +38,59 @@ function get_data(count, _d) { case "Scons" : return d; case "Sapp" : - var d2 = d._1; - var match = get_data(count, d._0); + let d2 = d._1; + let match = get_data(count, d._0); if (typeof match !== "object") { _d = d2; - continue ; + continue; } if (match.TAG === "Scons") { return { - TAG: "Scons", - _0: match._0, - _1: { - TAG: "Sapp", - _0: match._1, - _1: d2 - } - }; + TAG: "Scons", + _0: match._0, + _1: { + TAG: "Sapp", + _0: match._1, + _1: d2 + } + }; } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 53, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 53, + 13 + ] + } + }); case "Slazy" : _d = CamlinternalLazy.force(d._0); - continue ; + continue; case "Sgen" : - var g = d._0; - var match$1 = g.curr; + let g = d._0; + let match$1 = g.curr; if (match$1 !== undefined) { - var a = Caml_option.valFromOption(match$1); + let a = Caml_option.valFromOption(match$1); if (a !== undefined) { g.curr = undefined; return { - TAG: "Scons", - _0: Caml_option.valFromOption(a), - _1: d - }; + TAG: "Scons", + _0: Caml_option.valFromOption(a), + _1: d + }; } else { return "Sempty"; } } - var a$1 = Curry._1(g.func, count); + let a$1 = Curry._1(g.func, count); if (a$1 !== undefined) { return { - TAG: "Scons", - _0: Caml_option.valFromOption(a$1), - _1: d - }; + TAG: "Scons", + _0: Caml_option.valFromOption(a$1), + _1: d + }; } else { g.curr = Caml_option.some(undefined); return "Sempty"; @@ -102,42 +102,42 @@ function get_data(count, _d) { function peek_data(s) { while(true) { - var f = s.data; + let f = s.data; if (typeof f !== "object") { - return ; + return; } switch (f.TAG) { case "Scons" : return Caml_option.some(f._0); case "Sapp" : - var d = get_data(s.count, s.data); + let d = get_data(s.count, s.data); if (typeof d !== "object") { - return ; + return; } if (d.TAG === "Scons") { s.data = d; return Caml_option.some(d._0); } throw new Error("Assert_failure", { - cause: { - RE_EXN_ID: "Assert_failure", - _1: [ - "stream.res", - 83, - 13 - ] - } - }); + cause: { + RE_EXN_ID: "Assert_failure", + _1: [ + "stream.res", + 83, + 13 + ] + } + }); case "Slazy" : s.data = CamlinternalLazy.force(f._0); - continue ; + continue; case "Sgen" : - var g = f._0; - var a = g.curr; + let g = f._0; + let a = g.curr; if (a !== undefined) { return Caml_option.valFromOption(a); } - var x = Curry._1(g.func, s.count); + let x = Curry._1(g.func, s.count); g.curr = Caml_option.some(x); return x; @@ -154,31 +154,31 @@ function peek(param) { function junk_data(s) { while(true) { - var g = s.data; + let g = s.data; if (typeof g === "object") { switch (g.TAG) { case "Scons" : s.count = s.count + 1 | 0; s.data = g._1; - return ; + return; case "Sgen" : - var g$1 = g._0; - var match = g$1.curr; + let g$1 = g._0; + let match = g$1.curr; if (match !== undefined) { s.count = s.count + 1 | 0; g$1.curr = undefined; - return ; + return; } break; default: } } - var match$1 = peek_data(s); + let match$1 = peek_data(s); if (match$1 === undefined) { - return ; + return; } - continue ; + continue; }; } @@ -192,39 +192,39 @@ function junk(param) { function nget_data(n, s) { if (n <= 0) { return [ - /* [] */0, - s.data, - 0 - ]; + /* [] */0, + s.data, + 0 + ]; } - var a = peek_data(s); + let a = peek_data(s); if (a === undefined) { return [ - /* [] */0, - s.data, - 0 - ]; + /* [] */0, + s.data, + 0 + ]; } - var a$1 = Caml_option.valFromOption(a); + let a$1 = Caml_option.valFromOption(a); junk_data(s); - var match = nget_data(n - 1 | 0, s); + let match = nget_data(n - 1 | 0, s); return [ - { - hd: a$1, - tl: match[0] - }, - { - TAG: "Scons", - _0: a$1, - _1: match[1] - }, - match[2] + 1 | 0 - ]; + { + hd: a$1, + tl: match[0] + }, + { + TAG: "Scons", + _0: a$1, + _1: match[1] + }, + match[2] + 1 | 0 + ]; } function npeek(n, param) { if (param !== undefined) { - var match = nget_data(n, param); + let match = nget_data(n, param); param.count = param.count - match[2] | 0; param.data = match[1]; return match[0]; @@ -234,195 +234,195 @@ function npeek(n, param) { } function next(s) { - var a = peek(s); + let a = peek(s); if (a !== undefined) { junk(s); return Caml_option.valFromOption(a); } throw new Error(Failure, { - cause: { - RE_EXN_ID: Failure - } - }); + cause: { + RE_EXN_ID: Failure + } + }); } function empty(s) { - var match = peek(s); + let match = peek(s); if (match === undefined) { - return ; + return; } throw new Error(Failure, { - cause: { - RE_EXN_ID: Failure - } - }); + cause: { + RE_EXN_ID: Failure + } + }); } function iter(f, strm) { - var _param; + let _param; while(true) { - var a = peek(strm); + let a = peek(strm); if (a === undefined) { - return ; + return; } junk(strm); Curry._1(f, Caml_option.valFromOption(a)); _param = undefined; - continue ; + continue; }; } function from(f) { return { - count: 0, - data: { - TAG: "Sgen", - _0: { - curr: undefined, - func: f - } - } - }; + count: 0, + data: { + TAG: "Sgen", + _0: { + curr: undefined, + func: f + } + } + }; } function of_list(l) { return { - count: 0, - data: List.fold_right((function (x, l) { - return { - TAG: "Scons", - _0: x, - _1: l - }; - }), l, "Sempty") - }; + count: 0, + data: List.fold_right((function (x, l) { + return { + TAG: "Scons", + _0: x, + _1: l + }; + }), l, "Sempty") + }; } function of_string(s) { - var count = { + let count = { contents: 0 }; return from(function (param) { - var c = count.contents; - if (c < s.length) { - count.contents = count.contents + 1 | 0; - return Caml_string.get(s, c); - } - - }); + let c = count.contents; + if (c < s.length) { + count.contents = count.contents + 1 | 0; + return Caml_string.get(s, c); + } + + }); } function of_bytes(s) { - var count = { + let count = { contents: 0 }; return from(function (param) { - var c = count.contents; - if (c < s.length) { - count.contents = count.contents + 1 | 0; - return Caml_bytes.get(s, c); - } - - }); + let c = count.contents; + if (c < s.length) { + count.contents = count.contents + 1 | 0; + return Caml_bytes.get(s, c); + } + + }); } function iapp(i, s) { return { - count: 0, - data: { - TAG: "Sapp", - _0: data(i), - _1: data(s) - } - }; + count: 0, + data: { + TAG: "Sapp", + _0: data(i), + _1: data(s) + } + }; } function icons(i, s) { return { - count: 0, - data: { - TAG: "Scons", - _0: i, - _1: data(s) - } - }; + count: 0, + data: { + TAG: "Scons", + _0: i, + _1: data(s) + } + }; } function ising(i) { return { - count: 0, - data: { - TAG: "Scons", - _0: i, - _1: "Sempty" - } - }; + count: 0, + data: { + TAG: "Scons", + _0: i, + _1: "Sempty" + } + }; } function lapp(f, s) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Sapp", - _0: data(Curry._1(f, undefined)), - _1: data(s) - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Sapp", + _0: data(Curry._1(f, undefined)), + _1: data(s) }; + }) + } + }; } function lcons(f, s) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Scons", - _0: Curry._1(f, undefined), - _1: data(s) - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Scons", + _0: Curry._1(f, undefined), + _1: data(s) }; + }) + } + }; } function lsing(f) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return { - TAG: "Scons", - _0: Curry._1(f, undefined), - _1: "Sempty" - }; - }) - } + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return { + TAG: "Scons", + _0: Curry._1(f, undefined), + _1: "Sempty" }; + }) + } + }; } function slazy(f) { return { - count: 0, - data: { - TAG: "Slazy", - _0: CamlinternalLazy.from_fun(function () { - return data(Curry._1(f, undefined)); - }) - } - }; + count: 0, + data: { + TAG: "Slazy", + _0: CamlinternalLazy.from_fun(function () { + return data(Curry._1(f, undefined)); + }) + } + }; } function dump_data(f, param) { if (typeof param !== "object") { console.log("Sempty"); - return ; + return; } switch (param.TAG) { case "Scons" : @@ -431,27 +431,27 @@ function dump_data(f, param) { console.log(", "); dump_data(f, param._1); console.log(")"); - return ; + return; case "Sapp" : console.log("Sapp ("); dump_data(f, param._0); console.log(", "); dump_data(f, param._1); console.log(")"); - return ; + return; case "Slazy" : console.log("Slazy"); - return ; + return; case "Sgen" : console.log("Sgen"); - return ; + return; } } function dump(f, s) { console.log("{count = "); - var i = count(s); + let i = count(s); console.log(String(i)); console.log("; data = "); dump_data(f, data(s)); @@ -459,7 +459,7 @@ function dump(f, s) { console.log(""); } -var sempty; +let sempty; exports.Failure = Failure; exports.$$Error = $$Error; diff --git a/lib/js/string.js b/lib/js/string.js index 10c9c02de1..aa7d5dc456 100644 --- a/lib/js/string.js +++ b/lib/js/string.js @@ -1,11 +1,11 @@ 'use strict'; -var Caml = require("./caml.js"); -var $$Array = require("./array.js"); -var Bytes = require("./bytes.js"); -var Curry = require("./curry.js"); -var Caml_string = require("./caml_string.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Caml = require("./caml.js"); +let $$Array = require("./array.js"); +let Bytes = require("./bytes.js"); +let Curry = require("./curry.js"); +let Caml_string = require("./caml_string.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); function init(n, f) { return Bytes.unsafe_to_string(Bytes.init(n, f)); @@ -20,13 +20,13 @@ function concat(sep, xs) { } function iter(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._1(f, s.codePointAt(i)); } } function iteri(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._2(f, i, s.codePointAt(i)); } } @@ -56,13 +56,13 @@ function trim(s) { } function escaped(s) { - var needs_escape = function (_i) { + let needs_escape = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= s.length) { return false; } - var match = s.codePointAt(i); + let match = s.codePointAt(i); if (match < 32) { return true; } @@ -71,13 +71,13 @@ function escaped(s) { return true; } _i = i + 1 | 0; - continue ; + continue; } if (match > 91 || match < 35) { return true; } _i = i + 1 | 0; - continue ; + continue; }; }; if (needs_escape(0)) { @@ -89,19 +89,19 @@ function escaped(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -111,15 +111,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -128,46 +128,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -178,26 +178,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -208,37 +208,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -249,24 +249,24 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -286,16 +286,16 @@ function uncapitalize_ascii(s) { return Bytes.unsafe_to_string(Bytes.uncapitalize_ascii(Bytes.unsafe_of_string(s))); } -var compare = Caml.string_compare; +let compare = Caml.string_compare; function equal(a, b) { return a === b; } function split_on_char(sep, s) { - var r = /* [] */0; - var j = s.length; - for(var i = s.length - 1 | 0; i >= 0; --i){ + let r = /* [] */0; + let j = s.length; + for(let i = s.length - 1 | 0; i >= 0; --i){ if (s.codePointAt(i) === sep) { r = { hd: sub(s, i + 1 | 0, (j - i | 0) - 1 | 0), @@ -306,14 +306,14 @@ function split_on_char(sep, s) { } return { - hd: sub(s, 0, j), - tl: r - }; + hd: sub(s, 0, j), + tl: r + }; } -var make = Caml_string.make; +let make = Caml_string.make; -var blit = Bytes.blit_string; +let blit = Bytes.blit_string; exports.make = make; exports.init = init; diff --git a/lib/js/stringLabels.js b/lib/js/stringLabels.js index ca9369f5a2..d1b13c3144 100644 --- a/lib/js/stringLabels.js +++ b/lib/js/stringLabels.js @@ -1,11 +1,11 @@ 'use strict'; -var Caml = require("./caml.js"); -var $$Array = require("./array.js"); -var Bytes = require("./bytes.js"); -var Curry = require("./curry.js"); -var Caml_string = require("./caml_string.js"); -var Caml_js_exceptions = require("./caml_js_exceptions.js"); +let Caml = require("./caml.js"); +let $$Array = require("./array.js"); +let Bytes = require("./bytes.js"); +let Curry = require("./curry.js"); +let Caml_string = require("./caml_string.js"); +let Caml_js_exceptions = require("./caml_js_exceptions.js"); function init(n, f) { return Bytes.unsafe_to_string(Bytes.init(n, f)); @@ -15,20 +15,20 @@ function sub(s, ofs, len) { return Bytes.unsafe_to_string(Bytes.sub(Bytes.unsafe_of_string(s), ofs, len)); } -var blit = Bytes.blit_string; +let blit = Bytes.blit_string; function concat(sep, xs) { return $$Array.of_list(xs).join(sep); } function iter(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._1(f, s.codePointAt(i)); } } function iteri(f, s) { - for(var i = 0 ,i_finish = s.length; i < i_finish; ++i){ + for(let i = 0 ,i_finish = s.length; i < i_finish; ++i){ Curry._2(f, i, s.codePointAt(i)); } } @@ -58,13 +58,13 @@ function trim(s) { } function escaped(s) { - var needs_escape = function (_i) { + let needs_escape = function (_i) { while(true) { - var i = _i; + let i = _i; if (i >= s.length) { return false; } - var match = s.codePointAt(i); + let match = s.codePointAt(i); if (match < 32) { return true; } @@ -73,13 +73,13 @@ function escaped(s) { return true; } _i = i + 1 | 0; - continue ; + continue; } if (match > 91 || match < 35) { return true; } _i = i + 1 | 0; - continue ; + continue; }; }; if (needs_escape(0)) { @@ -91,19 +91,19 @@ function escaped(s) { function index_rec(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -113,15 +113,15 @@ function index(s, c) { function index_rec_opt(s, lim, _i, c) { while(true) { - var i = _i; + let i = _i; if (i >= lim) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i + 1 | 0; - continue ; + continue; }; } @@ -130,46 +130,46 @@ function index_opt(s, c) { } function index_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from / Bytes.index_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from / Bytes.index_from" + } + }); } return index_rec(s, l, i, c); } function index_from_opt(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.index_from_opt / Bytes.index_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.index_from_opt / Bytes.index_from_opt" + } + }); } return index_rec_opt(s, l, i, c); } function rindex_rec(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { throw new Error("Not_found", { - cause: { - RE_EXN_ID: "Not_found" - } - }); + cause: { + RE_EXN_ID: "Not_found" + } + }); } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -180,26 +180,26 @@ function rindex(s, c) { function rindex_from(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from / Bytes.rindex_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from / Bytes.rindex_from" + } + }); } return rindex_rec(s, i, c); } function rindex_rec_opt(s, _i, c) { while(true) { - var i = _i; + let i = _i; if (i < 0) { - return ; + return; } if (s.codePointAt(i) === c) { return i; } _i = i - 1 | 0; - continue ; + continue; }; } @@ -210,37 +210,37 @@ function rindex_opt(s, c) { function rindex_from_opt(s, i, c) { if (i < -1 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rindex_from_opt / Bytes.rindex_from_opt" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rindex_from_opt / Bytes.rindex_from_opt" + } + }); } return rindex_rec_opt(s, i, c); } function contains_from(s, i, c) { - var l = s.length; + let l = s.length; if (i < 0 || i > l) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.contains_from / Bytes.contains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.contains_from / Bytes.contains_from" + } + }); } try { index_rec(s, l, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -251,24 +251,24 @@ function contains(s, c) { function rcontains_from(s, i, c) { if (i < 0 || i >= s.length) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "String.rcontains_from / Bytes.rcontains_from" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "String.rcontains_from / Bytes.rcontains_from" + } + }); } try { rindex_rec(s, i, c); return true; } catch (raw_exn){ - var exn = Caml_js_exceptions.internalToOCamlException(raw_exn); + let exn = Caml_js_exceptions.internalToOCamlException(raw_exn); if (exn.RE_EXN_ID === "Not_found") { return false; } throw new Error(exn.RE_EXN_ID, { - cause: exn - }); + cause: exn + }); } } @@ -288,16 +288,16 @@ function uncapitalize_ascii(s) { return Bytes.unsafe_to_string(Bytes.uncapitalize_ascii(Bytes.unsafe_of_string(s))); } -var compare = Caml.string_compare; +let compare = Caml.string_compare; function equal(a, b) { return a === b; } function split_on_char(sep, s) { - var r = /* [] */0; - var j = s.length; - for(var i = s.length - 1 | 0; i >= 0; --i){ + let r = /* [] */0; + let j = s.length; + for(let i = s.length - 1 | 0; i >= 0; --i){ if (s.codePointAt(i) === sep) { r = { hd: sub(s, i + 1 | 0, (j - i | 0) - 1 | 0), @@ -308,12 +308,12 @@ function split_on_char(sep, s) { } return { - hd: sub(s, 0, j), - tl: r - }; + hd: sub(s, 0, j), + tl: r + }; } -var make = Caml_string.make; +let make = Caml_string.make; exports.make = make; exports.init = init; diff --git a/lib/js/uchar.js b/lib/js/uchar.js index b07b75c62b..87523c8fb6 100644 --- a/lib/js/uchar.js +++ b/lib/js/uchar.js @@ -1,7 +1,7 @@ 'use strict'; -var Caml = require("./caml.js"); -var Caml_format = require("./caml_format.js"); +let Caml = require("./caml.js"); +let Caml_format = require("./caml_format.js"); function err_not_sv(i) { return Caml_format.format_int("%X", i) + " is not an Unicode scalar value"; @@ -17,11 +17,11 @@ function succ(u) { } if (u === 1114111) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "U+10FFFF has no successor" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+10FFFF has no successor" + } + }); } return u + 1 | 0; } @@ -32,11 +32,11 @@ function pred(u) { } if (u === 0) { throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: "U+0000 has no predecessor" - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: "U+0000 has no predecessor" + } + }); } return u - 1 | 0; } @@ -55,13 +55,13 @@ function of_int(i) { if (is_valid(i)) { return i; } - var s = err_not_sv(i); + let s = err_not_sv(i); throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function is_char(u) { @@ -76,13 +76,13 @@ function to_char(u) { if (u <= 255) { return u; } - var s = err_not_latin1(u); + let s = err_not_latin1(u); throw new Error("Invalid_argument", { - cause: { - RE_EXN_ID: "Invalid_argument", - _1: s - } - }); + cause: { + RE_EXN_ID: "Invalid_argument", + _1: s + } + }); } function unsafe_to_char(prim) { @@ -93,19 +93,19 @@ function equal(prim0, prim1) { return prim0 === prim1; } -var compare = Caml.int_compare; +let compare = Caml.int_compare; function hash(prim) { return prim; } -var min = 0; +let min = 0; -var max = 1114111; +let max = 1114111; -var bom = 65279; +let bom = 65279; -var rep = 65533; +let rep = 65533; function unsafe_of_int(prim) { return prim; From 15ea2538ffd8491aef2eec8e2527af5e9a6219b2 Mon Sep 17 00:00:00 2001 From: Pedro Castro Date: Thu, 30 May 2024 15:41:57 -0300 Subject: [PATCH 5/5] [skip ci]: update CHANGELOG.md --- CHANGELOG.md | 1 + 1 file changed, 1 insertion(+) diff --git a/CHANGELOG.md b/CHANGELOG.md index e0d2392669..e29bc166bc 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -16,6 +16,7 @@ - Allow `@directive` on functions for emitting function level directive code (`let serverAction = @directive("'use server'") (~name) => {...}`). https://github.com/rescript-lang/rescript-compiler/pull/6756 - Add `rewatch` to the npm package as an alternative build tool. https://github.com/rescript-lang/rescript-compiler/pull/6762 +- Throws an instance of JavaScript's `new Error()` and adds the extension payload for `cause` option. https://github.com/rescript-lang/rescript-compiler/pull/6611 #### :boom: Breaking Change