make unsafe function names consistent

Fixes rescript-lang/rescript-core#225

Author: tsnobip

CHANGELOG.md

@@ -34,6 +34,7 @@
 - Deprecate JSON.Classify.classify. https://github.com/rescript-lang/rescript/pull/7315
 - Hide stdlib modules in output. https://github.com/rescript-lang/rescript/pull/7305
 - Deprecate unsafe host-specific bindings from stdlib. https://github.com/rescript-lang/rescript/pull/7334
+- Make unsafe function names consistent in Stdlib.String. https://github.com/rescript-lang/rescript/pull/7337
 
 #### :bug: Bug fix
 

runtime/Stdlib_String.res

@@ -94,6 +94,41 @@ external unsafeReplaceRegExpBy3: (
   ) => string,
 ) => string = "replace"
 
+@send
+external replaceRegExpBy0Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+@send
+external replaceRegExpBy1Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~group1: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+@send
+external replaceRegExpBy2Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~group1: string, ~group2: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+@send
+external replaceRegExpBy3Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (
+    ~match: string,
+    ~group1: string,
+    ~group2: string,
+    ~group3: string,
+    ~offset: int,
+    ~input: string,
+  ) => string,
+) => string = "replace"
+
 @send external search: (string, Stdlib_RegExp.t) => int = "search"
 let searchOpt = (s, re) =>
   switch search(s, re) {

runtime/Stdlib_String.resi

@@ -595,6 +595,7 @@ let matchFn = (~match, ~offset as _, ~input as _) => String.toUpperCase(match)
 String.unsafeReplaceRegExpBy0(str, re, matchFn) == "bEAUtIfUl vOwEls"
 ```
 */
+@deprecated("Use `replaceRegExpBy0Unsafe` instead")
 @send
 external unsafeReplaceRegExpBy0: (
   string,
@@ -618,6 +619,7 @@ let matchFn = (~match as _, ~group1, ~offset as _, ~input as _) => {
 String.unsafeReplaceRegExpBy1(str, re, matchFn) == "Jony is 41"
 ```
 */
+@deprecated("Use `replaceRegExpBy1Unsafe` instead")
 @send
 external unsafeReplaceRegExpBy1: (
   string,
@@ -644,6 +646,7 @@ let matchFn = (~match as _, ~group1, ~group2, ~offset as _, ~input as _) => {
 String.unsafeReplaceRegExpBy2(str, re, matchFn) == "42"
 ```
 */
+@deprecated("Use `replaceRegExpBy2Unsafe` instead")
 @send
 external unsafeReplaceRegExpBy2: (
   string,
@@ -652,10 +655,11 @@ external unsafeReplaceRegExpBy2: (
 ) => string = "replace"
 
 /**
-`unsafeReplaceRegExpBy3(str, regexp, f)`. Like `unsafeReplaceRegExpBy1`, but `f`
+`unsafeReplaceRegExpBy3(str, regexp, f)`. Like `unsafeReplaceRegExpBy2`, but `f`
 has three group parameters.
 See [`String.replace`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/replace) on MDN.
 */
+@deprecated("Use `replaceRegExpBy3Unsafe` instead")
 @send
 external unsafeReplaceRegExpBy3: (
   string,
@@ -670,6 +674,98 @@ external unsafeReplaceRegExpBy3: (
   ) => string,
 ) => string = "replace"
 
+/**
+`replaceRegExpBy0Unsafe(str, regex, f)` returns a new `string` with some or all
+matches of a pattern with no capturing parentheses replaced by the value
+returned from the given function. The function receives as its parameters the
+matched string, the offset at which the match begins, and the whole string being
+matched.
+See [`String.replace`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/replace) on MDN.
+
+## Examples
+
+```rescript
+let str = "beautiful vowels"
+let re = %re("/[aeiou]/g")
+let matchFn = (~match, ~offset as _, ~input as _) => String.toUpperCase(match)
+String.replaceRegExpBy0Unsafe(str, re, matchFn) == "bEAUtIfUl vOwEls"
+```
+*/
+@send
+external replaceRegExpBy0Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+/**
+`replaceRegExpBy1Unsafe(str, regexp, f)`. Like `replaceRegExpBy0Unsafe`, but `f`
+has `group1` parameter.
+See [`String.replace`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/replace) on MDN.
+
+## Examples
+
+```rescript
+let str = "Jony is 40"
+let re = %re("/(Jony is )\d+/g")
+let matchFn = (~match as _, ~group1, ~offset as _, ~input as _) => {
+  group1 ++ "41"
+}
+String.replaceRegExpBy1Unsafe(str, re, matchFn) == "Jony is 41"
+```
+*/
+@send
+external replaceRegExpBy1Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~group1: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+/**
+`replaceRegExpBy2Unsafe(str, regexp, f)`. Like `replaceRegExpBy1Unsafe`, but `f`
+has two group parameters.
+See [`String.replace`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/replace) on MDN.
+
+## Examples
+
+```rescript
+let str = "7 times 6"
+let re = %re("/(\d+) times (\d+)/")
+let matchFn = (~match as _, ~group1, ~group2, ~offset as _, ~input as _) => {
+  switch (Int.fromString(group1), Int.fromString(group2)) {
+  | (Some(x), Some(y)) => Int.toString(x * y)
+  | _ => "???"
+  }
+}
+String.replaceRegExpBy2Unsafe(str, re, matchFn) == "42"
+```
+*/
+@send
+external replaceRegExpBy2Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (~match: string, ~group1: string, ~group2: string, ~offset: int, ~input: string) => string,
+) => string = "replace"
+
+/**
+`replaceRegExpBy3Unsafe(str, regexp, f)`. Like `replaceRegExpBy2Unsafe`, but `f`
+has three group parameters.
+See [`String.replace`](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/replace) on MDN.
+*/
+@send
+external replaceRegExpBy3Unsafe: (
+  string,
+  Stdlib_RegExp.t,
+  (
+    ~match: string,
+    ~group1: string,
+    ~group2: string,
+    ~group3: string,
+    ~offset: int,
+    ~input: string,
+  ) => string,
+) => string = "replace"
+
 /**
 `search(str, regexp)` returns the starting position of the first match of
 `regexp` in the given `str`, or -1 if there is no match.