From 000ece141dc22e35365ea81558e8b6b1e65bd54c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 17 Oct 2001 12:21:11 +0000
Subject: Nouvelle fonction

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2125 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml  | 4 ++++
 lib/util.mli | 1 +
 2 files changed, 5 insertions(+)

diff --git a/lib/util.ml b/lib/util.ml
index cf5b58b49e..7435504816 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -504,6 +504,10 @@ let rec prlist_with_sep sep elem l = match l with
   | h::t ->
       let e = elem h and s = sep() and r = prlist_with_sep sep elem t in
       [< e; s; r >]
+
+let pr_vertical_list pr = function
+  | [] -> [< 'sTR "none"; 'fNL >]
+  | l -> [< 'fNL; 'sTR "  "; hOV 0 (prlist_with_sep pr_fnl pr l); 'fNL >]
       
 let prvecti elem v =
   let n = Array.length v in
diff --git a/lib/util.mli b/lib/util.mli
index a57803c5e2..bbf5cf240f 100644
--- a/lib/util.mli
+++ b/lib/util.mli
@@ -172,6 +172,7 @@ 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
+val pr_vertical_list : ('b -> std_ppcmds) -> 'b list -> std_ppcmds
 
 (*s Size of an ocaml value (in words, bytes and kilobytes). *)
 
-- 
cgit v1.2.3