optimize empty file

Author: bobzhang

jscomp/bin/bsb.ml

@@ -4491,9 +4491,18 @@ let get_list_string s =
       | _ -> None
     ) s   
 
-
+let bsc_group_1_includes = "bsc_group_1_includes"
+let bsc_group_2_includes = "bsc_group_2_includes"
+let bsc_group_3_includes = "bsc_group_3_includes"
+let bsc_group_4_includes = "bsc_group_4_includes"
 let string_of_bsb_dev_include i = 
-  "bsc_group_" ^ string_of_int i ^ "includes"
+  match i with 
+  | 1 -> bsc_group_1_includes 
+  | 2 -> bsc_group_2_includes
+  | 3 -> bsc_group_3_includes
+  | 4 -> bsc_group_4_includes
+  | _ -> 
+    "bsc_group_" ^ string_of_int i ^ "_includes"
 end
 module Bsb_dir : sig 
 #1 "bsb_dir.mli"

jscomp/bin/bsb_helper.ml

@@ -2356,12 +2356,15 @@ let handle_bin_depfile oprefix  (fn : string) index : unit =
                    v
                end
         )  ([],String.length dependent_file) set in
-    let deps = Ext_string.unsafe_concat_with_length len
-        space
-        (dependent_file :: files)
-    in 
-    let output = input_file ^ Literals.suffix_mlastd in
-    Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
+
+    let output = input_file ^ Literals.suffix_mlastd in        
+    if files = [] then 
+      close_out (open_out_bin output)
+    else 
+      let deps = Ext_string.unsafe_concat_with_length len
+          space
+          (dependent_file :: files) in 
+      Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
 
   | None -> 
     begin match Ext_string.ends_with_then_chop fn Literals.suffix_mliast with 
@@ -2391,11 +2394,13 @@ let handle_bin_depfile oprefix  (fn : string) index : unit =
                    end
 
             )   ([], String.length dependent_file) set in 
-        let deps = Ext_string.unsafe_concat_with_length len
-            space 
-            (dependent_file :: files)  in 
         let output = input_file ^ Literals.suffix_mliastd in
-        Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
+        if files = [] then close_out (open_out_bin output)            
+        else 
+          let deps = Ext_string.unsafe_concat_with_length len
+              space 
+              (dependent_file :: files)  in 
+          Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
       | None -> 
         raise (Arg.Bad ("don't know what to do with  " ^ fn))
     end

jscomp/bsb/bsb_build_util.ml

@@ -92,6 +92,15 @@ let get_list_string s =
       | _ -> None
     ) s   
 
-
+let bsc_group_1_includes = "bsc_group_1_includes"
+let bsc_group_2_includes = "bsc_group_2_includes"
+let bsc_group_3_includes = "bsc_group_3_includes"
+let bsc_group_4_includes = "bsc_group_4_includes"
 let string_of_bsb_dev_include i = 
-  "bsc_group_" ^ string_of_int i ^ "includes"
+  match i with 
+  | 1 -> bsc_group_1_includes 
+  | 2 -> bsc_group_2_includes
+  | 3 -> bsc_group_3_includes
+  | 4 -> bsc_group_4_includes
+  | _ -> 
+    "bsc_group_" ^ string_of_int i ^ "_includes"

jscomp/depends/depends_post_process.ml

@@ -87,12 +87,15 @@ let handle_bin_depfile oprefix  (fn : string) index : unit =
                    v
                end
         )  ([],String.length dependent_file) set in
-    let deps = Ext_string.unsafe_concat_with_length len
-        space
-        (dependent_file :: files)
-    in 
-    let output = input_file ^ Literals.suffix_mlastd in
-    Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
+
+    let output = input_file ^ Literals.suffix_mlastd in        
+    if files = [] then 
+      close_out (open_out_bin output)
+    else 
+      let deps = Ext_string.unsafe_concat_with_length len
+          space
+          (dependent_file :: files) in 
+      Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
 
   | None -> 
     begin match Ext_string.ends_with_then_chop fn Literals.suffix_mliast with 
@@ -122,11 +125,13 @@ let handle_bin_depfile oprefix  (fn : string) index : unit =
                    end
 
             )   ([], String.length dependent_file) set in 
-        let deps = Ext_string.unsafe_concat_with_length len
-            space 
-            (dependent_file :: files)  in 
         let output = input_file ^ Literals.suffix_mliastd in
-        Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
+        if files = [] then close_out (open_out_bin output)            
+        else 
+          let deps = Ext_string.unsafe_concat_with_length len
+              space 
+              (dependent_file :: files)  in 
+          Ext_pervasives.with_file_as_chan output  (fun v -> output_string v deps)
       | None -> 
         raise (Arg.Bad ("don't know what to do with  " ^ fn))
     end