move cppo script

Author: cometkim

packages/@rescript/runtime/cppo/internal_map.res.cppo

@@ -71,7 +71,7 @@ let rec getUndefined = (n, x: key) =>
 
 let rec getExn = (n, x: key) =>
   switch n {
-  | None => raise(Not_found)
+  | None => throw(Not_found)
   | Some(n) =>
     let v = n.N.key
     if x == v {

packages/@rescript/runtime/cppo/internal_set.res.cppo

@@ -113,7 +113,7 @@ let rec getUndefined = (n: t, x: value) =>
 
 let rec getExn = (n: t, x: value) =>
   switch n {
-  | None => raise(Not_found)
+  | None => throw(Not_found)
   | Some(t) =>
     let v = t.value
     if x == v {

packages/@rescript/runtime/cppo/map.resi.cppo

@@ -36,9 +36,24 @@ let findFirstByU: (t<'v>, (key, 'v) => bool) => option<(key, 'v)>
 `findFirstBy(m, p)` uses funcion `f` to find the first key value pair
 to match predicate `p`.
 
+## Examples
+
 ```rescript
-let s0 = fromArray(~id=module(IntCmp), [(4, "4"), (1, "1"), (2, "2,"(3, ""))])
-findFirstBy(s0, (k, v) => k == 4) == option((4, "4"))
+#ifdef TYPE_STRING
+let mapString = Belt.Map.String.fromArray([("1", "one"), ("2", "two"), ("3", "three")])
+
+mapString->
+Belt.Map.String.findFirstBy((k, v) => k == "1" && v == "one")
+->assertEqual(Some("1", "one"))
+#elif defined TYPE_INT
+let mapInt = Belt.Map.Int.fromArray([(1, "one"), (2, "two"), (3, "three")])
+
+mapInt->
+Belt.Map.Int.findFirstBy((k, v) => k == 1 && v == "one")
+->assertEqual(Some(1, "one"))
+#else
+[%error "unknown type"]
+#endif
 ```
 */
 let findFirstBy: (t<'v>, (key, 'v) => bool) => option<(key, 'v)>

packages/@rescript/runtime/package.json

@@ -44,7 +44,8 @@
     "clean:rewatch": "rewatch clean",
     "build:rewatch": "rewatch build",
     "clean:bsb": "rescript clean",
-    "build:bsb": "rescript build"
+    "build:bsb": "rescript build",
+    "cppo": "node scripts/cppo.js"
   },
   "devDependencies": {
     "rescript": "workspace:^"

packages/@rescript/runtime/scripts/cppo.js

@@ -0,0 +1,48 @@
+// @ts-check
+
+import * as path from "node:path";
+import { execFileSync } from "node:child_process";
+
+const targets = [
+  ["Belt_HashSetString.res", "hashset.res.cppo", "TYPE_STRING"],
+  ["Belt_HashSetString.resi", "hashset.resi.cppo", "TYPE_STRING"],
+  ["Belt_HashSetInt.res", "hashset.res.cppo", "TYPE_INT"],
+  ["Belt_HashSetInt.resi", "hashset.resi.cppo", "TYPE_INT"],
+  ["Belt_HashMapString.res", "hashmap.res.cppo", "TYPE_STRING"],
+  ["Belt_HashMapString.resi", "hashmap.resi.cppo", "TYPE_STRING"],
+  ["Belt_HashMapInt.res", "hashmap.res.cppo", "TYPE_INT"],
+  ["Belt_HashMapInt.resi", "hashmap.resi.cppo", "TYPE_INT"],
+  ["Belt_MapString.res", "map.res.cppo", "TYPE_STRING"],
+  ["Belt_MapString.resi", "map.resi.cppo", "TYPE_STRING"],
+  ["Belt_MapInt.res", "map.res.cppo", "TYPE_INT"],
+  ["Belt_MapInt.resi", "map.resi.cppo", "TYPE_INT"],
+  ["Belt_SetString.res", "belt_Set.res.cppo", "TYPE_STRING"],
+  ["Belt_SetString.resi", "belt_Set.resi.cppo", "TYPE_STRING"],
+  ["Belt_SetInt.res", "belt_Set.res.cppo", "TYPE_INT"],
+  ["Belt_SetInt.resi", "belt_Set.resi.cppo", "TYPE_INT"],
+  ["Belt_MutableMapString.res", "mapm.res.cppo", "TYPE_STRING"],
+  ["Belt_MutableMapString.resi", "mapm.resi.cppo", "TYPE_STRING"],
+  ["Belt_MutableMapInt.res", "mapm.res.cppo", "TYPE_INT"],
+  ["Belt_MutableMapInt.resi", "mapm.resi.cppo", "TYPE_INT"],
+  ["Belt_MutableSetString.res", "setm.res.cppo", "TYPE_STRING"],
+  ["Belt_MutableSetString.resi", "setm.resi.cppo", "TYPE_STRING"],
+  ["Belt_MutableSetInt.res", "setm.res.cppo", "TYPE_INT"],
+  ["Belt_MutableSetInt.resi", "setm.resi.cppo", "TYPE_INT"],
+  ["Belt_SortArrayString.res", "sort.res.cppo", "TYPE_STRING"],
+  ["Belt_SortArrayString.resi", "sort.resi.cppo", "TYPE_STRING"],
+  ["Belt_SortArrayInt.res", "sort.res.cppo", "TYPE_INT"],
+  ["Belt_SortArrayInt.resi", "sort.resi.cppo", "TYPE_INT"],
+  ["Belt_internalMapString.res", "internal_map.res.cppo", "TYPE_STRING"],
+  ["Belt_internalMapInt.res", "internal_map.res.cppo", "TYPE_INT"],
+  ["Belt_internalSetString.res", "internal_set.res.cppo", "TYPE_STRING"],
+  ["Belt_internalSetInt.res", "internal_set.res.cppo", "TYPE_INT"],
+];
+
+const runtimePath = path.join(import.meta.dirname, "..");
+for (const [output, input, type] of targets) {
+  const inputPath = path.join(runtimePath, "cppo", input);
+  const outputPath = path.join(runtimePath, output);
+  execFileSync("cppo", ["-n", "-D", type, inputPath, "-o", outputPath], {
+    stdio: "inherit",
+  });
+}