Add RegExp.setLastIndex (rescript-lang#219)

(cherry picked from commit 0cc3d8e)

Author: hackwaly

CHANGELOG.md

@@ -5,6 +5,7 @@
 - BREAKING: Fixes the type of `RegExp.Result.t` to be `array<option<string>>` instead of `array<string>`. https://github.com/rescript-association/rescript-core/pull/233.
 - BREAKING: Adds typed bindings to `Intl`, replacing the options type of `{..}` with records. https://github.com/rescript-association/rescript-core/pull/65
 - BREAKING: Align List api with other modules (`List.getBy` -> `List.find` etc.). https://github.com/rescript-association/rescript-core/pull/195
+- Add `RegExp.setLastIndex` function. https://github.com/rescript-association/rescript-core/pull/219
 - Add `Nullable.isNullable` function. https://github.com/rescript-association/rescript-core/pull/227
 - Remove some deps to Belt, Pervasives and Js. https://github.com/rescript-association/rescript-core/pull/226/commits
 - Fix: Expose Intl.Common. https://github.com/rescript-association/rescript-core/pull/197

src/Core__RegExp.res

@@ -15,6 +15,7 @@ module Result = {
 @return(nullable) @send external exec: (t, string) => option<Result.t> = "exec"
 
 @get external lastIndex: t => int = "lastIndex"
+@set external setLastIndex: (t, int) => unit = "lastIndex"
 @get external ignoreCase: t => bool = "ignoreCase"
 @get external global: t => bool = "global"
 @get external multiline: t => bool = "multiline"

src/Core__RegExp.resi

@@ -170,6 +170,26 @@ Console.log(regexp->RegExp.lastIndex) // Logs `4` to the console
 @get
 external lastIndex: t => int = "lastIndex"
 
+/**
+`setLastIndex(regexp, index)` set the index the next match will start from.
+
+See [`RegExp.lastIndex`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/RegExp/lastIndex) on MDN.
+
+## Examples
+```rescript
+// Match the first word in a sentence
+let regexp = RegExp.fromString("\\w+")
+let someStr = "Many words here."
+
+regexp->RegExp.setLastIndex(4)
+regexp->RegExp.exec(someStr)->ignore
+
+Console.log(regexp->RegExp.lastIndex) // Logs `10` to the console
+```
+*/
+@set
+external setLastIndex: (t, int) => unit = "lastIndex"
+
 /**
 `ignoreCase(regexp)` returns whether the ignore case (`i`) flag is set on this `RegExp`.