expose more for testing

Author: bobzhang

jscomp/bsb/bsb_db_encode.mli

@@ -22,5 +22,11 @@
  * along with this program; if not, write to the Free Software
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
+
+val encode : 
+  Bsb_db.t -> 
+  Ext_buffer.t -> 
+  unit 
+
 val write_build_cache : 
   dir:string -> Bsb_db.t -> string

jscomp/bsb_helper/bsb_db_decode.ml

@@ -45,7 +45,7 @@ type cursor = int ref
 
 
 (*TODO: special case when module_count is zero *)
-let rec decode_internal (x : string) : t =   
+let rec decode (x : string) : t =   
   let (offset : cursor)  = ref 0 in 
   let lib = decode_single x offset in 
   let dev = decode_single x offset in
@@ -93,7 +93,7 @@ and decode_modules (x : string) (offset : cursor) module_number : string array =
 let read_build_cache ~dir  : t =   
   let all_content = 
     Ext_io.load_file (Filename.concat dir bsbuild_cache) in   
-  decode_internal all_content 
+  decode all_content 
 
 
 

jscomp/bsb_helper/bsb_db_decode.mli

@@ -25,10 +25,20 @@
 
 
 
-type t
-
-type group 
-
+ type group = private 
+  | Dummy 
+  | Group of {
+      modules : string array ; 
+      dir_length : int;
+      dir_info_offset : int ; 
+      module_info_offset : int;
+    }
+
+type t = { 
+  lib : group ;
+  dev : group ; 
+  content : string (* string is whole content*)
+}
 
 val read_build_cache : 
   dir:string -> t
@@ -44,4 +54,7 @@ val find:
   t -> (* contains global info *)
   string -> (* module name *)
   bool -> (* more likely to be zero *)
-  module_info option 
+  module_info option 
+
+
+val decode : string -> t