tweak: meaningful names

Author: bobzhang

jscomp/bsb/bsb_db_encode.ml

@@ -62,7 +62,7 @@ let make_encoding length buf =
   they are only used to control the order.
   Strictly speaking, [tmp_buf1] is not needed
 *)
-let encode_single (db : Bsb_db.t) (buf : Ext_buffer.t) =    
+let encode_single (db : Bsb_db.map) (buf : Ext_buffer.t) =    
   nl buf ; (* module name section *)
   let len = Map_string.cardinal db in 
   Ext_buffer.add_string_char buf (string_of_int len) '\n';

jscomp/bsb/bsb_db_util.ml

@@ -23,7 +23,7 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 type module_info = Bsb_db.module_info
-type t = Bsb_db.t
+type t = Bsb_db.map
 (* type case = Bsb_db.case *)
 
 

jscomp/bsb/bsb_db_util.mli

@@ -32,9 +32,9 @@ val conflict_module_info:
   'a 
 
 
-val merge : Bsb_db.t -> Bsb_db.t -> Bsb_db.t   
+val merge : Bsb_db.map -> Bsb_db.map -> Bsb_db.map   
 
-val sanity_check : Bsb_db.t -> unit
+val sanity_check : Bsb_db.map -> unit
 
 (** 
   Currently it is okay to have duplicated module, 
@@ -43,7 +43,7 @@ val sanity_check : Bsb_db.t -> unit
 
 val add_basename:
   dir:string -> 
-  Bsb_db.t ->  
+  Bsb_db.map ->  
   ?error_on_invalid_suffix:Ext_position.t-> 
   string -> 
-  Bsb_db.t
+  Bsb_db.map

jscomp/bsb/bsb_file_groups.ml

@@ -37,7 +37,7 @@ type build_generator =
 
 type  file_group = 
   { dir : string ;
-    sources : Bsb_db.t; 
+    sources : Bsb_db.map; 
     resources : string list ;
     public : public ;
     dev_index : bool  ;

jscomp/bsb/bsb_file_groups.mli

@@ -37,7 +37,7 @@ type build_generator =
 
 type  file_group = 
   { dir : string ;
-    sources : Bsb_db.t; 
+    sources : Bsb_db.map; 
     resources : string list ;
     public : public ;
     dev_index : bool ; (* false means not in dev mode *)

jscomp/bsb/bsb_parse_sources.ml

@@ -60,7 +60,7 @@ type cxt = {
 *)
 let collect_pub_modules 
     (xs : Ext_json_types.t array)
-    (cache : Bsb_db.t) : Set_string.t = 
+    (cache : Bsb_db.map) : Set_string.t = 
   let set = ref Set_string.empty in 
   for i = 0 to Array.length xs - 1 do 
     let v = Array.unsafe_get xs i in 
@@ -80,7 +80,7 @@ let collect_pub_modules
   done  ;
   !set
 
-let extract_pub (input : Ext_json_types.t Map_string.t) (cur_sources : Bsb_db.t) : Bsb_file_groups.public =   
+let extract_pub (input : Ext_json_types.t Map_string.t) (cur_sources : Bsb_db.map) : Bsb_file_groups.public =   
   match Map_string.find_opt input  Bsb_build_schemas.public with 
   | Some ((Str({str = s}) as x)) ->  
     if s = Bsb_build_schemas.export_all then Export_all  else 

jscomp/ext/bsb_db.ml

@@ -42,9 +42,9 @@ type module_info =
   }
 
 
-type t = module_info Map_string.t 
+type map = module_info Map_string.t 
 
-type ts = t array 
+type ts = map array 
 (** indexed by the group *)
 
 

jscomp/ext/bsb_db.mli

@@ -48,9 +48,9 @@ type module_info =
     name_sans_extension : string;
   }
 
-type t = module_info Map_string.t 
+type map = module_info Map_string.t 
 
-type ts = t array 
+type ts = map array 
 
 (** store  the meta data indexed by {!Bsb_dir_index}
   {[