Casing namespace (#145)

Author: nojaf

package.json

@@ -16,5 +16,6 @@
     "/rewatch-linux-arm64",
     "/rewatch-macos",
     "/rewatch-windows.exe"
-  ]
+  ],
+  "packageManager": "[email protected]+sha512.a6b2f7906b721bba3d67d4aff083df04dad64c399707841b7acf00f6b133b7ac24255f2652fa22ae3534329dc6180534e98d17432037ff6fd140556e2bb3137e"
 }

src/config.rs

@@ -287,11 +287,32 @@ fn check_if_rescript11_or_higher(version: &str) -> Result<bool, String> {
 }
 
 fn namespace_from_package_name(package_name: &str) -> String {
-    package_name
-        .to_owned()
-        .replace('@', "")
-        .replace('/', "_")
-        .to_case(Case::Pascal)
+    let len = package_name.len();
+    let mut buf = String::with_capacity(len);
+    
+    fn aux(s: &str, capital: bool, buf: &mut String, off: usize) {
+        if off >= s.len() {
+            return;
+        }
+
+        let ch = s.as_bytes()[off] as char;
+        match ch {
+            'a'..='z' | 'A'..='Z' | '0'..='9' | '_' => {
+                let new_capital = false;
+                buf.push(if capital { ch.to_ascii_uppercase() } else { ch });
+                aux(s, new_capital, buf, off + 1);
+            }
+            '/' | '-' => {
+                aux(s, true, buf, off + 1);
+            }
+            _ => {
+                aux(s, capital, buf, off + 1);
+            }
+        }
+    }
+
+    aux(package_name, true, &mut buf, 0);
+    buf
 }
 
 impl Config {
@@ -312,7 +333,7 @@ impl Config {
                 namespace if namespace.is_case(Case::UpperFlat) => {
                     packages::Namespace::Namespace(namespace.to_string())
                 }
-                namespace => packages::Namespace::Namespace(namespace.to_string().to_case(Case::Pascal)),
+                namespace => packages::Namespace::Namespace(namespace_from_package_name(namespace)),
             },
             (Some(self::NamespaceConfig::String(str)), Some(entry)) => match str.as_str() {
                 "true" => packages::Namespace::NamespaceWithEntry {

testrepo/bsconfig.json

@@ -18,13 +18,16 @@
     "@testrepo/main",
     "@testrepo/dep01",
     "@testrepo/dep02",
-    "@testrepo/new-namespace"
+    "@testrepo/new-namespace",
+    "@testrepo/namespace-casing"
+
   ],
   "bs-dependencies": [
     "@testrepo/main",
     "@testrepo/dep01",
     "@testrepo/dep02",
-    "@testrepo/new-namespace"
+    "@testrepo/new-namespace",
+    "@testrepo/namespace-casing"
   ],
   "reason": {
     "react-jsx": 3

testrepo/package.json

@@ -6,7 +6,8 @@
       "packages/main",
       "packages/dep01",
       "packages/dep02",
-      "packages/new-namespace"
+      "packages/new-namespace",
+      "packages/namespace-casing"
     ]
   },
   "scripts": {

testrepo/packages/namespace-casing/bsconfig.json

@@ -0,0 +1,22 @@
+{
+    "name": "@testrepo/namespace-casing",
+    "namespace": "NamespaceCasingAPI",
+    "sources": [
+        {
+            "dir": "src",
+            "subdirs": true
+        }
+    ],
+    "package-specs": [
+        {
+            "module": "es6",
+            "in-source": true
+        }
+    ],
+    "suffix": ".mjs",
+    "bs-dependencies": [],
+    "bsc-flags": [],
+    "jsx": {
+        "version": 4
+    }
+}

testrepo/packages/namespace-casing/package.json

@@ -0,0 +1,12 @@
+{
+  "name": "@testrepo/namespace-casing",
+  "version": "0.0.1",
+  "keywords": [
+    "rescript"
+  ],
+  "author": "",
+  "license": "MIT",
+  "dependencies": {
+    "rescript": "*"
+  }
+}

testrepo/packages/namespace-casing/src/Consume.mjs

@@ -0,0 +1,10 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+import * as Produce$NamespaceCasingAPI from "./Produce.mjs";
+
+var x = Produce$NamespaceCasingAPI.meh(1);
+
+export {
+  x ,
+}
+/* x Not a pure module */

testrepo/packages/namespace-casing/src/Consume.res

@@ -0,0 +1 @@
+let x = Produce.meh(1)

testrepo/packages/namespace-casing/src/Produce.mjs

@@ -0,0 +1,11 @@
+// Generated by ReScript, PLEASE EDIT WITH CARE
+
+
+function meh(param) {
+  return true;
+}
+
+export {
+  meh ,
+}
+/* No side effect */

testrepo/packages/namespace-casing/src/Produce.res

@@ -0,0 +1,3 @@
+let meh = (_: int) => {
+  true
+}