migrations for Js_re

Author: zth

packages/@rescript/runtime/Js_re.res

@@ -40,16 +40,31 @@ type result
 An `array` of the match and captures, the first is the full match and the
 remaining are the substring captures.
 */
+@deprecated({
+  reason: "Use `RegExp.Result.matches` instead.",
+  migrate: RegExp.Result.matches(),
+})
 external captures: result => array<Js_null_undefined.t<string>> = "%identity"
 
-@deprecated("Use Js.Re.captures instead")
+@deprecated({
+  reason: "Use `RegExp.Result.matches` instead.",
+  migrate: RegExp.Result.matches(),
+})
 external matches: result => array<string> = "%identity"
 
 /** 0-based index of the match in the input string. */
+@deprecated({
+  reason: "Use `RegExp.Result.index` instead.",
+  migrate: RegExp.Result.index(),
+})
 @get
 external index: result => int = "index"
 
 /** The original input string. */
+@deprecated({
+  reason: "Use `RegExp.Result.input` instead.",
+  migrate: RegExp.Result.input(),
+})
 @get
 external input: result => string = "input"
 
@@ -74,6 +89,10 @@ let firstReScriptFileExtension = (filename, content) => {
 firstReScriptFileExtension("School", "School.res School.resi Main.js School.bs.js")
 ```
 */
+@deprecated({
+  reason: "Use `RegExp.fromString` instead.",
+  migrate: RegExp.fromString(),
+})
 @new
 external fromString: string => t = "RegExp"
 
@@ -89,18 +108,34 @@ Valid flags:
 - **u** unicode (es2015)
 - **y** sticky (es2015)
 */
+@deprecated({
+  reason: "Use `RegExp.fromString` instead.",
+  migrate: RegExp.fromString(),
+})
 @new
 external fromStringWithFlags: (string, ~flags: string) => t = "RegExp"
 
 /** Returns the enabled flags as a string. */
+@deprecated({
+  reason: "Use `RegExp.flags` instead.",
+  migrate: RegExp.flags(),
+})
 @get
 external flags: t => string = "flags"
 
 /** Returns a `bool` indicating whether the global flag is set. */
+@deprecated({
+  reason: "Use `RegExp.global` instead.",
+  migrate: RegExp.global(),
+})
 @get
 external global: t => bool = "global"
 
 /** Returns a `bool` indicating whether the ignoreCase flag is set. */
+@deprecated({
+  reason: "Use `RegExp.ignoreCase` instead.",
+  migrate: RegExp.ignoreCase(),
+})
 @get
 external ignoreCase: t => bool = "ignoreCase"
 
@@ -132,26 +167,50 @@ See
 [`RegExp: lastIndex`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/RegExp/lastIndex)
 on MDN.
 */
+@deprecated({
+  reason: "Use `RegExp.lastIndex` instead.",
+  migrate: RegExp.lastIndex(),
+})
 @get
 external lastIndex: t => int = "lastIndex"
 
 /** Sets the index at which the next match will start its search from. */
+@deprecated({
+  reason: "Use `RegExp.setLastIndex` instead.",
+  migrate: RegExp.setLastIndex(),
+})
 @set
 external setLastIndex: (t, int) => unit = "lastIndex"
 
 /** Returns a `bool` indicating whether the multiline flag is set. */
+@deprecated({
+  reason: "Use `RegExp.multiline` instead.",
+  migrate: RegExp.multiline(),
+})
 @get
 external multiline: t => bool = "multiline"
 
 /** Returns the pattern as a `string`. */
+@deprecated({
+  reason: "Use `RegExp.source` instead.",
+  migrate: RegExp.source(),
+})
 @get
 external source: t => string = "source"
 
 /** Returns a `bool` indicating whether the sticky flag is set. */
+@deprecated({
+  reason: "Use `RegExp.sticky` instead.",
+  migrate: RegExp.sticky(),
+})
 @get
 external sticky: t => bool = "sticky"
 
 /** Returns a `bool` indicating whether the unicode flag is set. */
+@deprecated({
+  reason: "Use `RegExp.unicode` instead.",
+  migrate: RegExp.unicode(),
+})
 @get
 external unicode: t => bool = "unicode"
 
@@ -174,7 +233,12 @@ let result = Js.Re.exec_(re, "The Quick Brown Fox Jumps Over The Lazy Dog")
 See [`RegExp.prototype.exec()`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/RegExp/exec)
 on MDN.
 */
-@send @return(null_to_opt)
+@deprecated({
+  reason: "Use `RegExp.exec` instead.",
+  migrate: RegExp.exec(),
+})
+@send
+@return(null_to_opt)
 external exec_: (t, string) => option<result> = "exec"
 
 /**
@@ -196,5 +260,9 @@ Js.log(str->startsWith("hello")) /* prints "true" */
 See [`RegExp.prototype.test()`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/RegExp/test)
 on MDN.
 */
+@deprecated({
+  reason: "Use `RegExp.test` instead.",
+  migrate: RegExp.test(),
+})
 @send
 external test_: (t, string) => bool = "test"

tests/tools_tests/src/expected/StdlibMigrationNoCompile_Js_Re.res.expected

@@ -0,0 +1,11 @@
+let re2 = RegExp.fromString("foo", ~flags="gi")
+
+let capture_access = switch re2->RegExp.exec("Foo") {
+| None => 0
+| Some(r) =>
+  switch RegExp.Result.matches(r) {
+  | [Value(full), _] => String.length(full)
+  | _ => 0
+  }
+}
+

tests/tools_tests/src/expected/StdlibMigration_Js_Re.res.expected

@@ -0,0 +1,43 @@
+let re1 = RegExp.fromString("foo")
+let re2 = RegExp.fromString("foo", ~flags="gi")
+
+let flags1 = re2->RegExp.flags
+let flags2 = RegExp.flags(re2)
+
+let g1 = re2->RegExp.global
+let g2 = RegExp.global(re2)
+
+let ic1 = re2->RegExp.ignoreCase
+let ic2 = RegExp.ignoreCase(re2)
+
+let m1 = re2->RegExp.multiline
+let m2 = RegExp.multiline(re2)
+
+let u1 = re2->RegExp.unicode
+let u2 = RegExp.unicode(re2)
+
+let y1 = re2->RegExp.sticky
+let y2 = RegExp.sticky(re2)
+
+let src1 = re2->RegExp.source
+let src2 = RegExp.source(re2)
+
+let li1 = re2->RegExp.lastIndex
+let () = re2->RegExp.setLastIndex(0)
+
+let exec1 = re2->RegExp.exec("Foo bar")
+let exec2 = RegExp.exec(re2, "Foo bar")
+
+let test1 = re2->RegExp.test("Foo bar")
+let test2 = RegExp.test(re2, "Foo bar")
+
+let result_index = switch re2->RegExp.exec("Foo bar") {
+| None => 0
+| Some(r) => RegExp.Result.index(r)
+}
+
+let result_input = switch re2->RegExp.exec("Foo bar") {
+| None => ""
+| Some(r) => RegExp.Result.input(r)
+}
+

tests/tools_tests/src/migrate/StdlibMigrationNoCompile_Js_Re.res

@@ -0,0 +1,10 @@
+let re2 = Js.Re.fromStringWithFlags("foo", ~flags="gi")
+
+let capture_access = switch re2->Js.Re.exec_("Foo") {
+| None => 0
+| Some(r) =>
+  switch Js.Re.captures(r) {
+  | [Value(full), _] => String.length(full)
+  | _ => 0
+  }
+}

tests/tools_tests/src/migrate/StdlibMigration_Js_Re.res

@@ -0,0 +1,42 @@
+let re1 = Js.Re.fromString("foo")
+let re2 = Js.Re.fromStringWithFlags("foo", ~flags="gi")
+
+let flags1 = re2->Js.Re.flags
+let flags2 = Js.Re.flags(re2)
+
+let g1 = re2->Js.Re.global
+let g2 = Js.Re.global(re2)
+
+let ic1 = re2->Js.Re.ignoreCase
+let ic2 = Js.Re.ignoreCase(re2)
+
+let m1 = re2->Js.Re.multiline
+let m2 = Js.Re.multiline(re2)
+
+let u1 = re2->Js.Re.unicode
+let u2 = Js.Re.unicode(re2)
+
+let y1 = re2->Js.Re.sticky
+let y2 = Js.Re.sticky(re2)
+
+let src1 = re2->Js.Re.source
+let src2 = Js.Re.source(re2)
+
+let li1 = re2->Js.Re.lastIndex
+let () = re2->Js.Re.setLastIndex(0)
+
+let exec1 = re2->Js.Re.exec_("Foo bar")
+let exec2 = Js.Re.exec_(re2, "Foo bar")
+
+let test1 = re2->Js.Re.test_("Foo bar")
+let test2 = Js.Re.test_(re2, "Foo bar")
+
+let result_index = switch re2->Js.Re.exec_("Foo bar") {
+| None => 0
+| Some(r) => Js.Re.index(r)
+}
+
+let result_input = switch re2->Js.Re.exec_("Foo bar") {
+| None => ""
+| Some(r) => Js.Re.input(r)
+}

tests/tools_tests/src/migrate/migrated/Migrated_StdlibMigration_Js_Re.res

@@ -0,0 +1,44 @@
+// This file is autogenerated so it can be type checked.
+// It's the migrated version of src/migrate/StdlibMigration_Js_Re.res.
+let re1 = RegExp.fromString("foo")
+let re2 = RegExp.fromString("foo", ~flags="gi")
+
+let flags1 = re2->RegExp.flags
+let flags2 = RegExp.flags(re2)
+
+let g1 = re2->RegExp.global
+let g2 = RegExp.global(re2)
+
+let ic1 = re2->RegExp.ignoreCase
+let ic2 = RegExp.ignoreCase(re2)
+
+let m1 = re2->RegExp.multiline
+let m2 = RegExp.multiline(re2)
+
+let u1 = re2->RegExp.unicode
+let u2 = RegExp.unicode(re2)
+
+let y1 = re2->RegExp.sticky
+let y2 = RegExp.sticky(re2)
+
+let src1 = re2->RegExp.source
+let src2 = RegExp.source(re2)
+
+let li1 = re2->RegExp.lastIndex
+let () = re2->RegExp.setLastIndex(0)
+
+let exec1 = re2->RegExp.exec("Foo bar")
+let exec2 = RegExp.exec(re2, "Foo bar")
+
+let test1 = re2->RegExp.test("Foo bar")
+let test2 = RegExp.test(re2, "Foo bar")
+
+let result_index = switch re2->RegExp.exec("Foo bar") {
+| None => 0
+| Some(r) => RegExp.Result.index(r)
+}
+
+let result_input = switch re2->RegExp.exec("Foo bar") {
+| None => ""
+| Some(r) => RegExp.Result.input(r)
+}