[Fix #90] Missed a ton of "Value_printer" and some batteries_config

src/batArray.mli

@@ -238,7 +238,7 @@ val print : ?first:string -> ?last:string -> ?sep:string -> ('a BatIO.output ->
     Example: IO.to_string (Array.print Int.print) [|2;4;66|] = "[|2;4;66|]"
 *)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
 (** {6 Override modules}*)
 

src/batBool.mli

@@ -85,5 +85,5 @@
 
 (** {7 Printing}*)
 val print: 'a BatInnerIO.output -> t -> unit
-val t_printer : t BatValue_printer.t
+val t_printer : t BatValuePrinter.t
 

src/batChar.mli

@@ -108,7 +108,7 @@ val ( -- ): char -> char -> char BatEnum.t
 (** {7 Printing}*)
 
 val print: 'a BatInnerIO.output -> Char.t -> unit
-val t_printer : char BatValue_printer.t
+val t_printer : char BatValuePrinter.t
 
 
 (**/**)

src/batDeque.mli

@@ -141,8 +141,8 @@ val print : ?first:string -> ?last:string -> ?sep:string
   -> 'a BatInnerIO.output -> 'b dq -> unit
   (** Print the contents of the deque. O(n) *)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
   (** See {!BatValue_printer}. *)
 
-val dq_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val dq_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
   (** See {!BatValue_printer}. *)

src/batDynArray.mli

@@ -317,4 +317,4 @@ val unsafe_set : 'a t -> int -> 'a -> unit
 (** {7 Printing}*)
 
 val print :  ?first:string -> ?last:string -> ?sep:string -> ('a BatInnerIO.output -> 'b -> unit) -> 'a BatInnerIO.output -> 'b t -> unit
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t

src/batEnum.mli

@@ -661,7 +661,7 @@ end
 val print :  ?first:string -> ?last:string -> ?sep:string -> ('a BatInnerIO.output -> 'b -> unit) -> 'a BatInnerIO.output -> 'b t -> unit
 (** Print and consume the contents of an enumeration.*)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
 (** {6 Override modules}*)
 

src/batFloat.mli

@@ -214,7 +214,7 @@
 
     (** {7 Printing}*)
     val print: 'a BatInnerIO.output -> t -> unit
-    val t_printer : t BatValue_printer.t
+    val t_printer : t BatValuePrinter.t
 
 
 
@@ -419,5 +419,5 @@ module Safe_float :
 
     (** {7 Printing}*)
     val print: 'a BatInnerIO.output -> t -> unit
-    val t_printer : t BatValue_printer.t
+    val t_printer : t BatValuePrinter.t
 end

src/batHeap.ml

@@ -200,7 +200,7 @@ module type H = sig
   val print     :  ?first:string -> ?last:string -> ?sep:string
     -> ('a BatInnerIO.output -> elem -> unit)
     -> 'a BatInnerIO.output -> t -> unit
-  val t_printer : elem BatValue_printer.t -> t BatValue_printer.t
+  val t_printer : elem BatValuePrinter.t -> t BatValuePrinter.t
 end
 
 module Make (Ord : BatInterfaces.OrderedType) = struct

src/batHeap.mli

@@ -80,8 +80,8 @@ val print :  ?first:string -> ?last:string -> ?sep:string
   -> 'a BatInnerIO.output -> 'b t -> unit
   (** Print the contents of the heap in heap order. O(n log n) *)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
-  (** See {!BatValue_printer}. *)
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
+  (** See {!BatValuePrinter}. *)
 
 (** {6 Functorized version} *)
 
@@ -120,7 +120,7 @@ sig
     -> ('a BatInnerIO.output -> elem -> unit)
     -> 'a BatInnerIO.output -> t -> unit
     (** See {!BatHeap.print}. *)
-  val t_printer : elem BatValue_printer.t -> t BatValue_printer.t
+  val t_printer : elem BatValuePrinter.t -> t BatValuePrinter.t
     (** See {!BatHeap.t_printer}. *)
 end
 

src/batInt.mli

@@ -174,7 +174,7 @@
       (** prints as hex string *)
 (*    val bprint: 'a BatInnerIO.output -> t -> unit
       (** prints as binary string *) *)
-    val t_printer : t BatValue_printer.t
+    val t_printer : t BatValuePrinter.t
 
 
 

src/batInt32.mli

@@ -241,5 +241,5 @@
 
     (** {7 Printing}*)
     val print: 'a BatInnerIO.output -> t -> unit
-    val t_printer : t BatValue_printer.t
+    val t_printer : t BatValuePrinter.t
 

src/batInt64.mli

@@ -244,6 +244,6 @@ external format : string -> int64 -> string = "caml_int64_format"
 
     (** {7 Printing}*)
     val print: 'a BatInnerIO.output -> t -> unit
-    val t_printer : t BatValue_printer.t
+    val t_printer : t BatValuePrinter.t
 
 

src/batList.mli

@@ -412,7 +412,7 @@ For example [group cmp [f;c;b;e;d;a]] can give [[[a;b];[c];[d;e;f]]] if followin
 	val print : ?first:string -> ?last:string -> ?sep:string -> ('a BatInnerIO.output -> 'b -> unit) ->  'a BatInnerIO.output -> 'b list -> unit
 	  (**Print the contents of a list*)
 
-        val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+        val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
 	(** {6 Obsolete functions} *)
 

src/batNativeint.mli

@@ -228,7 +228,7 @@ val operations : t BatNumber.numeric
 (** {7 Printing}*)
 
 val print : 'a BatIO.output -> t -> unit
-val t_printer : t BatValue_printer.t
+val t_printer : t BatValuePrinter.t
 
 (**/**)
 

src/batOption.mli

@@ -111,9 +111,9 @@ end
 
 val print : ('a BatInnerIO.output -> 'b -> unit) -> 'a BatInnerIO.output -> 'b t -> unit
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
-val maybe_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val maybe_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
 (** Operations on options, with labels.*)
 module Labels : sig

src/batPervasives.mli

@@ -862,19 +862,19 @@ val printer_exn : (exn -> 'a, 'a) BatPrint.directive
 
 (** {7 Value printers} *)
 
-val bool_printer : bool BatValue_printer.t
-val int_printer : int BatValue_printer.t
-val char_printer : char BatValue_printer.t
-val int32_printer : int32 BatValue_printer.t
-val int64_printer : int64 BatValue_printer.t
-val nativeint_printer : nativeint BatValue_printer.t
-val float_printer : float BatValue_printer.t
-val string_printer : string BatValue_printer.t
-val list_printer : 'a BatValue_printer.t -> 'a list BatValue_printer.t
-val array_printer : 'a BatValue_printer.t -> 'a array BatValue_printer.t
-val option_printer : 'a BatValue_printer.t -> 'a option BatValue_printer.t
-val maybe_printer : 'a BatValue_printer.t -> 'a option BatValue_printer.t
-val exn_printer : exn BatValue_printer.t
+val bool_printer : bool BatValuePrinter.t
+val int_printer : int BatValuePrinter.t
+val char_printer : char BatValuePrinter.t
+val int32_printer : int32 BatValuePrinter.t
+val int64_printer : int64 BatValuePrinter.t
+val nativeint_printer : nativeint BatValuePrinter.t
+val float_printer : float BatValuePrinter.t
+val string_printer : string BatValuePrinter.t
+val list_printer : 'a BatValuePrinter.t -> 'a list BatValuePrinter.t
+val array_printer : 'a BatValuePrinter.t -> 'a array BatValuePrinter.t
+val option_printer : 'a BatValuePrinter.t -> 'a option BatValuePrinter.t
+val maybe_printer : 'a BatValuePrinter.t -> 'a option BatValuePrinter.t
+val exn_printer : exn BatValuePrinter.t
 
 (**/**)
 

src/batSeq.mli

@@ -240,7 +240,7 @@ val combine : 'a t -> 'b t -> ('a * 'b) t
 val print : ?first:string -> ?last:string -> ?sep:string -> ('a BatInnerIO.output -> 'b -> unit) ->  'a BatInnerIO.output -> 'b t -> unit
   (**Print the contents of a sequence*)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
 
 module Exceptionless : sig
   val hd : 'a t -> 'a option

src/batString.mli

@@ -520,9 +520,9 @@ val print_quoted: 'a BatInnerIO.output -> string -> unit
    character, but ['\'] then ['n']).
 *)
 
-val t_printer : t BatValue_printer.t
+val t_printer : t BatValuePrinter.t
 
-val unquoted_printer : t BatValue_printer.t
+val unquoted_printer : t BatValuePrinter.t
 
 (**/**)
 
@@ -794,7 +794,7 @@ val println: 'a BatInnerIO.output -> [> `Read] t -> unit
 
 val print_quoted: 'a BatInnerIO.output -> [> `Read] t -> unit
 
-val t_printer : [> `Read] t BatValue_printer.t
+val t_printer : [> `Read] t BatValuePrinter.t
 
 (**/**)
 

src/batUref.mli

@@ -53,8 +53,8 @@ val print : ('a BatInnerIO.output -> 'b -> unit)
   -> 'a BatInnerIO.output -> 'b uref -> unit
   (** Print the uref. *)
 
-val uref_printer : 'a BatValue_printer.t -> 'a uref BatValue_printer.t
-  (** See {!BatValue_printer}. *)
+val uref_printer : 'a BatValuePrinter.t -> 'a uref BatValuePrinter.t
+  (** See {!BatValuePrinter}. *)
 
-val t_printer : 'a BatValue_printer.t -> 'a t BatValue_printer.t
-  (** See {!BatValue_printer}. *)
+val t_printer : 'a BatValuePrinter.t -> 'a t BatValuePrinter.t
+  (** See {!BatValuePrinter}. *)

src/batteriesHelp.ml

@@ -113,7 +113,7 @@ let browse pages =
   try
     List.iter (fun page -> 
 		 debug "Showing %s\n" page.url;
-		 if Batteries_config.browse page.url <> 0 then failwith "Browser") pages
+		 if BatteriesConfig.browse page.url <> 0 then failwith "Browser") pages
   with Failure "Browser" -> 
     Printf.eprintf "Sorry, I had a problem communicating with your browser and I couldn't open the manual.\n%!"
 
@@ -169,7 +169,7 @@ let get_table =
   in fun kind ->
     try Hashtbl.find tables kind
     with Not_found ->
-      let root_dir   = Batteries_config.documentation_root           in
+      let root_dir   = BatteriesConfig.documentation_root           in
       let root_file  = Filename.concat root_dir "documentation.idex" in
 	try
 	  let suggestions = Hashtbl.create 256
@@ -361,7 +361,7 @@ let helpers =
 
 (**Launch the introductory help text.*)
 let help () =
-  BatFile.with_file_in (Batteries_config.documentation_root ^ "/toplevel.help")
+  BatFile.with_file_in (BatteriesConfig.documentation_root ^ "/toplevel.help")
     (fun file -> copy file stdout);
   flush stdout;;
 

src/batteriesThreads.ml

@@ -1,4 +1,4 @@
-include Batteries (* the meat of this module is in batteries_uni.mli *)
+include Batteries (* the meat of this module is in batteries.ml *)
 module Mutex = BatMutex;;
 module RMutex = BatRMutex;;