Initial revision

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 25 insertions, 0 deletions

diff --git a/lib/util.mli b/lib/util.mli
new file mode 100644
index 0000000000..25b419be83
--- /dev/null
+++ b/lib/util.mli
@@ -0,0 +1,25 @@
+
+(* $Id$ *)
+
+open Pp
+
+(* Strings *)
+
+val explode : string -> string list
+val implode : string list -> string
+
+val parse_section_path : string -> string list * string * string
+
+(* Pretty-printing *)
+
+val pr_spc : unit -> std_ppcmds
+val pr_fnl : unit -> std_ppcmds
+val pr_int : int -> std_ppcmds
+val pr_str : string -> std_ppcmds
+val pr_coma : unit -> std_ppcmds
+
+val prlist : ('a -> 'b Stream.t) -> 'a list -> 'b Stream.t
+val prlist_with_sep :
+   (unit -> 'a Stream.t) -> ('b -> 'a Stream.t) -> 'b list -> 'a Stream.t
+val prvect_with_sep :
+   (unit -> 'a Stream.t) -> ('b -> 'a Stream.t) -> 'b array -> 'a Stream.t