diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-01-30 13:46:59 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2002-01-30 13:46:59 +0000 |
| commit | 222b8b52058da65a1dd276d191f6d54748a1485f (patch) | |
| tree | fe3762a20909a7291b7cff2e222b90605785a546 /lib/util.mli | |
| parent | a02743ac6b64f87a497baba206082f6adbcb3219 (diff) | |
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
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index 2ed595ef1..6bdc54b4b 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -85,6 +85,7 @@ val list_try_find : ('a -> 'b) -> 'a list -> 'b val list_uniquize : 'a list -> 'a list val list_subset : 'a list -> 'a list -> bool val list_splitby : ('a -> bool) -> 'a list -> 'a list * 'a list +val list_split3 : ('a * 'b * 'c) list -> 'a list * 'b list * 'c list val list_firstn : int -> 'a list -> 'a list val list_last : 'a list -> 'a val list_lastn : int -> 'a list -> 'a list @@ -168,6 +169,8 @@ 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 pr_semicolon : unit -> std_ppcmds +val pr_bar : unit -> std_ppcmds val prlist : ('a -> std_ppcmds) -> 'a list -> std_ppcmds val prvecti : (int -> 'a -> std_ppcmds) -> 'a array -> std_ppcmds |