Gentype support

src/bsconfig.rs

@@ -133,6 +133,10 @@ pub struct JsxSpecs {
     pub v3_dependencies: Option<Vec<String>>,
 }
 
+/// Empty struct - the gentype config is loaded by bsc
+#[derive(Deserialize, Debug, Clone)]
+pub struct GenTypeConfig {}
+
 /// # bsconfig.json representation
 /// This is tricky, there is a lot of ambiguity. This is probably incomplete.
 #[derive(Deserialize, Debug, Clone)]
@@ -157,6 +161,8 @@ pub struct Config {
     pub namespace: Option<NamespaceConfig>,
     pub jsx: Option<JsxSpecs>,
     pub uncurried: Option<bool>,
+    #[serde(rename = "gentypeconfig")]
+    pub gentype_config: Option<GenTypeConfig>,
     // this is a new feature of rewatch, and it's not part of the bsconfig.json spec
     #[serde(rename = "namespace-entry")]
     pub namespace_entry: Option<String>,
@@ -239,7 +245,17 @@ pub fn read(path: String) -> Config {
 }
 
 fn check_if_rescript11_or_higher(version: &str) -> bool {
-    version.split('.').next().unwrap().parse::<usize>().unwrap() >= 11
+    // Non stable rescript versions might contain non-numeric characters
+    let filter_non_number_chars = |s: &str| s.chars().filter(|c| c.is_numeric()).collect::<String>();
+
+    version
+        .split('.')
+        .next()
+        .map(filter_non_number_chars)
+        .unwrap()
+        .parse::<usize>()
+        .unwrap()
+        >= 11
 }
 
 fn namespace_from_package_name(package_name: &str) -> String {
@@ -366,6 +382,13 @@ impl Config {
         .or(self.suffix.to_owned())
         .unwrap_or(".js".to_string())
     }
+
+    pub fn get_gentype_arg(&self) -> Vec<String> {
+        match &self.gentype_config {
+            Some(_) => vec!["-bs-gentype".to_string()],
+            None => vec![],
+        }
+    }
 }
 
 #[cfg(test)]
@@ -389,4 +412,26 @@ mod tests {
         assert_eq!(config.get_suffix(), ".mjs");
         assert_eq!(config.get_module(), "es6");
     }
+
+    #[test]
+    fn test_detect_gentypeconfig() {
+        let json = r#"
+        {
+            "name": "my-monorepo",
+            "sources": [ { "dir": "src/", "subdirs": true } ],
+            "package-specs": [ { "module": "es6", "in-source": true } ],
+            "suffix": ".mjs",
+            "pinned-dependencies": [ "@teamwalnut/app" ],
+            "bs-dependencies": [ "@teamwalnut/app" ],
+            "gentypeconfig": {
+                "module": "esmodule",
+                "generatedFileExtension": ".gen.tsx"
+            }
+        }
+        "#;
+
+        let config = serde_json::from_str::<Config>(json).unwrap();
+        assert_eq!(config.gentype_config.is_some(), true);
+        assert_eq!(config.get_gentype_arg(), vec!["-bs-gentype".to_string()]);
+    }
 }

src/build/compile.rs

@@ -434,6 +434,7 @@ pub fn compiler_args(
     let jsx_module_args = root_config.get_jsx_module_args();
     let jsx_mode_args = root_config.get_jsx_mode_args();
     let uncurried_args = root_config.get_uncurried_args(version);
+    let gentype_arg = root_config.get_gentype_arg();
 
     let warning_args: Vec<String> = match config.warnings.to_owned() {
         None => vec![],
@@ -494,6 +495,7 @@ pub fn compiler_args(
         read_cmi_args,
         vec!["-I".to_string(), ".".to_string()],
         deps.concat(),
+        gentype_arg,
         jsx_args,
         jsx_module_args,
         jsx_mode_args,

src/build/packages.rs

@@ -864,6 +864,7 @@ mod test {
                 namespace: None,
                 jsx: None,
                 uncurried: None,
+                gentype_config: None,
                 namespace_entry: None,
                 allowed_dependents,
             },