Merge pull request #1908 from glennsl/re-setlastindex

Add Js.Re.setLastIndex

Author: bobzhang

jscomp/others/js_re.mli

@@ -131,6 +131,9 @@ done
 *)
 external lastIndex : t -> int = "" [@@bs.get]
 
+(** sets the index at which the next match will start its search from *)
+external setLastIndex : t -> int -> unit = "lastIndex" [@@bs.set]
+
 (** returns a bool indicating whether the [multiline] flag is set *)
 external multiline : t -> bool = "" [@@bs.get]
 

jscomp/test/js_re_test.js

@@ -128,45 +128,66 @@ var suites_001 = /* :: */[
                   ],
                   /* :: */[
                     /* tuple */[
-                      "t_multiline",
+                      "t_setLastIndex",
                       (function () {
+                          var re = (/na/g);
+                          var before = re.lastIndex;
+                          re.lastIndex = 42;
+                          var after = re.lastIndex;
                           return /* Eq */Block.__(0, [
-                                    /* false */0,
-                                    +(/./ig).multiline
+                                    /* tuple */[
+                                      0,
+                                      42
+                                    ],
+                                    /* tuple */[
+                                      before,
+                                      after
+                                    ]
                                   ]);
                         })
                     ],
                     /* :: */[
                       /* tuple */[
-                        "t_source",
+                        "t_multiline",
                         (function () {
                             return /* Eq */Block.__(0, [
-                                      "f.+o",
-                                      (/f.+o/ig).source
+                                      /* false */0,
+                                      +(/./ig).multiline
                                     ]);
                           })
                       ],
                       /* :: */[
                         /* tuple */[
-                          "t_sticky",
+                          "t_source",
                           (function () {
                               return /* Eq */Block.__(0, [
-                                        /* true */1,
-                                        +(/./yg).sticky
+                                        "f.+o",
+                                        (/f.+o/ig).source
                                       ]);
                             })
                         ],
                         /* :: */[
                           /* tuple */[
-                            "t_unicode",
+                            "t_sticky",
                             (function () {
                                 return /* Eq */Block.__(0, [
-                                          /* false */0,
-                                          +(/./yg).unicode
+                                          /* true */1,
+                                          +(/./yg).sticky
                                         ]);
                               })
                           ],
-                          /* [] */0
+                          /* :: */[
+                            /* tuple */[
+                              "t_unicode",
+                              (function () {
+                                  return /* Eq */Block.__(0, [
+                                            /* false */0,
+                                            +(/./yg).unicode
+                                          ]);
+                                })
+                            ],
+                            /* [] */0
+                          ]
                         ]
                       ]
                     ]

jscomp/test/js_re_test.ml

@@ -60,6 +60,15 @@ let suites = Mt.[
 
     Eq(4,  re |> Js.Re.lastIndex)
   );
+  "t_setLastIndex", (fun _ ->
+    let re = [%re "/na/g"] in
+
+    let before = Js.Re.lastIndex re in
+    let () = Js.Re.setLastIndex re 42 in
+    let after = Js.Re.lastIndex re in
+
+    Eq((0, 42),  (before, after))
+  );
   "t_multiline", (fun _ ->
     Eq(false, [%re "/./ig"] |> Js.Re.multiline)
   );