change Ml_mli to Impl_intf

Author: bobzhang

jscomp/bsb/bsb_db_util.ml

@@ -50,7 +50,7 @@ let merge (acc : t) (sources : t) : t =
 
 let sanity_check (map : t) = 
   Map_string.iter map (fun m module_info -> 
-      if module_info.info = Mli then
+      if module_info.info = Intf then
         Bsb_exception.no_implementation m 
     )    
 
@@ -68,13 +68,13 @@ let check (x : module_info)
    || x.case <> case 
    || x.is_re <> is_re 
    || x_ml_info = module_info 
-   || x_ml_info = Ml_mli
+   || x_ml_info = Impl_intf
    then 
      Bsb_exception.invalid_spec 
        (Printf.sprintf 
           "implementation and interface have different path names or different cases %s vs %s"
           x.name_sans_extension name_sans_extension));
-  x.info <- Ml_mli;      
+  x.info <- Impl_intf;      
   x
 
 
@@ -86,7 +86,7 @@ let add_basename
     (map : t)  
     ?(error_on_invalid_suffix)
     basename : t =   
-  let info = ref Bsb_db.Ml in   
+  let info = ref Bsb_db.Impl in   
   let is_re = ref false in 
   let invalid_suffix = ref false in
   (match Ext_filename.get_extension_maybe basename with 
@@ -95,9 +95,9 @@ let add_basename
    | ".re" ->
      is_re := true
    | ".mli" -> 
-     info := Mli
+     info := Intf
    | ".rei" -> 
-     info := Mli;
+     info := Intf;
      is_re := true 
    | _ -> 
      invalid_suffix := true

jscomp/bsb/bsb_ninja_file_groups.ml

@@ -72,7 +72,7 @@ let emit_module_build
     namespace
     (module_info : Bsb_db.module_info)
   =    
-  let has_intf_file = module_info.info = Ml_mli in 
+  let has_intf_file = module_info.info = Impl_intf in 
   let is_re = module_info.is_re in 
   let filename_sans_extension = module_info.name_sans_extension in 
   let input_impl = 

jscomp/ext/bsb_db.ml

@@ -28,9 +28,9 @@ type case = bool
 
 
 type info = 
-  | Mli (* intemediate state *)
-  | Ml
-  | Ml_mli
+  | Intf (* intemediate state *)
+  | Impl
+  | Impl_intf
 
 type module_info = 
   {

jscomp/ext/bsb_db.mli

@@ -33,9 +33,9 @@
 type case = bool 
 
 type info = 
-  | Mli (* intemediate state *)
-  | Ml
-  | Ml_mli
+  | Intf (* intemediate state *)
+  | Impl
+  | Impl_intf
 
 
 

jscomp/ounit_tests/ounit_bsb_pkg_tests.ml

@@ -34,12 +34,12 @@ let s_test1 s a =
 
 let group0 = Map_string.of_list [
   "Liba", 
-  {Bsb_db.info = Ml_mli; dir= "a";is_re=false;case = false;
+  {Bsb_db.info = Impl_intf; dir= "a";is_re=false;case = false;
   name_sans_extension = "liba"}
 ]
 let group1 =  Map_string.of_list [
   "Ciba", 
-  {Bsb_db.info = Ml_mli; dir= "b";is_re=false;case = false;
+  {Bsb_db.info = Impl_intf; dir= "b";is_re=false;case = false;
   name_sans_extension = "liba"}
 ]