From 222b8b52058da65a1dd276d191f6d54748a1485f Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 30 Jan 2002 13:46:59 +0000
Subject: ajout list_split3, pr_semicolon et pr_bar

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@2444 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/util.ml | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'lib/util.ml')

diff --git a/lib/util.ml b/lib/util.ml
index 0f5b3dbf5f..1bb69bf323 100644
--- a/lib/util.ml
+++ b/lib/util.ml
@@ -254,6 +254,11 @@ let list_splitby p =
   in 
   splitby_loop []
 
+let rec list_split3 = function
+  | [] -> ([], [], [])
+  | (x,y,z)::l ->
+      let (rx, ry, rz) = list_split3 l in (x::rx, y::ry, z::rz)
+
 let list_firstn n l =
   let rec aux acc = function
     | (0, l) -> List.rev acc
@@ -510,6 +515,8 @@ let pr_fnl = fnl
 let pr_int = int
 let pr_str = str
 let pr_coma () = str "," ++ spc ()
+let pr_semicolon () = str ";" ++ spc ()
+let pr_bar () = str "|" ++ spc ()
 
 let rec prlist elem l = match l with 
   | []   -> mt ()
-- 
cgit v1.2.3