Merge pull request #1890 from BuckleScript/no_reduant_warning_when_input_is_via_generator

clean up, remove reduandent warnings about input invalid file

Author: bobzhang

jscomp/all.depend

@@ -802,8 +802,9 @@ bsb/bsb_ninja_file_groups.cmx : ext/string_set.cmx ext/string_map.cmx \
     bsb/bsb_dir_index.cmx bsb/bsb_config.cmx bsb/bsb_build_schemas.cmx \
     bsb/bsb_build_cache.cmx bsb/bsb_ninja_file_groups.cmi
 bsb/bsb_ninja_gen.cmx : ext/string_map.cmx ext/literals.cmx \
-    ext/ext_string.cmx ext/ext_list.cmx ext/ext_filename.cmx bsb/bsb_rule.cmx \
-    bsb/bsb_pkg_map_gen.cmx bsb/bsb_parse_sources.cmx bsb/bsb_ninja_util.cmx \
+    ext/ext_string.cmx ext/ext_package_name.cmx ext/ext_list.cmx \
+    ext/ext_filename.cmx bsb/bsb_rule.cmx bsb/bsb_pkg_map_gen.cmx \
+    bsb/bsb_parse_sources.cmx bsb/bsb_ninja_util.cmx \
     bsb/bsb_ninja_global_vars.cmx bsb/bsb_ninja_file_groups.cmx \
     bsb/bsb_dir_index.cmx bsb/bsb_config_types.cmx bsb/bsb_config.cmx \
     bsb/bsb_build_util.cmx bsb/bsb_build_schemas.cmx bsb/bsb_build_cache.cmx \
@@ -845,10 +846,10 @@ bsb/bsb_watcher_gen.cmx : ext/ext_list.cmx ext/ext_json_noloc.cmx \
     ext/ext_filename.cmx ext/ext_array.cmx bsb/bsb_parse_sources.cmx \
     bsb/bsb_config.cmx bsb/bsb_watcher_gen.cmi
 bsb/bsb_world.cmx : ext/string_hash_set.cmx ext/literals.cmx \
-    ext/ext_string.cmx ext/ext_package_name.cmx ext/ext_filename.cmx \
-    bsb/bsb_unix.cmx bsb/bsb_ninja_regen.cmx bsb/bsb_file.cmx \
-    bsb/bsb_config_types.cmx bsb/bsb_config_parse.cmx bsb/bsb_config.cmx \
-    bsb/bsb_build_util.cmx bsb/bsb_world.cmi
+    ext/ext_package_name.cmx ext/ext_filename.cmx bsb/bsb_unix.cmx \
+    bsb/bsb_ninja_regen.cmx bsb/bsb_file.cmx bsb/bsb_config_types.cmx \
+    bsb/bsb_config_parse.cmx bsb/bsb_config.cmx bsb/bsb_build_util.cmx \
+    bsb/bsb_world.cmi
 bsb/oCamlRes.cmx :
 bsb/bsb_bsdeps.cmi :
 bsb/bsb_build_cache.cmi : ext/string_map.cmi

jscomp/bin/all_ounit_tests.ml

@@ -1764,7 +1764,6 @@ val is_valid_source_name :
 *)
 val is_valid_npm_package_name : string -> bool 
 
-val module_name_of_package_name : string -> string
 
 
 val no_char : string -> char -> int -> int -> bool 
@@ -2157,31 +2156,6 @@ let is_valid_npm_package_name (s : string) =
          | _ -> false )
   | _ -> false 
 
-let module_name_of_package_name (s : string) : string = 
-  let len = String.length s in 
-  let buf = Buffer.create len in 
-  let add capital ch = 
-    Buffer.add_char buf 
-      (if capital then 
-        (Char.uppercase ch)
-      else ch) in    
-  let rec aux capital off len =     
-      if off >= len then ()
-      else 
-        let ch = String.unsafe_get s off in
-        match ch with 
-        | 'a' .. 'z' 
-        | 'A' .. 'Z' 
-        | '0' .. '9'
-          ->
-          add capital ch ; 
-          aux false (off + 1) len 
-        | '-' -> 
-          aux true (off + 1) len 
-        | _ -> aux capital (off+1) len
-         in 
-   aux true 0 len ;
-   Buffer.contents buf 
 
 type check_result = 
   | Good 
@@ -13653,6 +13627,9 @@ val remove_package_suffix: string -> string
   relevant issues: #1609, #913 
 *)
 val js_name_of_basename :  string -> string 
+
+val module_name_of_package_name : string -> string
+
 end = struct
 #1 "ext_package_name.ml"
 
@@ -13705,6 +13682,31 @@ let js_name_of_basename s =
   remove_package_suffix (String.uncapitalize s) ^ Literals.suffix_js
 
 
+let module_name_of_package_name (s : string) : string = 
+  let len = String.length s in 
+  let buf = Buffer.create len in 
+  let add capital ch = 
+    Buffer.add_char buf 
+      (if capital then 
+        (Char.uppercase ch)
+      else ch) in    
+  let rec aux capital off len =     
+      if off >= len then ()
+      else 
+        let ch = String.unsafe_get s off in
+        match ch with 
+        | 'a' .. 'z' 
+        | 'A' .. 'Z' 
+        | '0' .. '9'
+          ->
+          add capital ch ; 
+          aux false (off + 1) len 
+        | '-' -> 
+          aux true (off + 1) len 
+        | _ -> aux capital (off+1) len
+         in 
+   aux true 0 len ;
+   Buffer.contents buf 
 
 end
 module Ounit_data_random
@@ -14022,14 +14024,14 @@ let suites =
     end;
 
     __LOC__ >:: begin fun _ ->
-      Ext_string.module_name_of_package_name "bs-json"
+      Ext_package_name.module_name_of_package_name "bs-json"
       =~ "BsJson"
     end;
     __LOC__ >:: begin fun _ ->
-      Ext_string.module_name_of_package_name
+      Ext_package_name.module_name_of_package_name
         "reason-react"
       =~ "ReasonReact";
-      Ext_string.module_name_of_package_name
+      Ext_package_name.module_name_of_package_name
         "reason"
       =~ "Reason"
     end;