diff options
| author | herbelin | 2006-01-21 11:03:29 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-21 11:03:29 +0000 |
| commit | ea14cad5cee269b7108379dec28088c3aff1c08f (patch) | |
| tree | 981f2ec519de25bb8ed41a2cf81b7f053548c5c7 /lib | |
| parent | 44d42fe1cf68c042fdcacacfe1b9c6eb7e62773b (diff) | |
Déplacement de pr_arg et pr_opt de Ppconstr vers Util
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7907 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 476725a91a..df5be249d7 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -694,6 +694,8 @@ let pr_str = str let pr_coma () = str "," ++ spc () let pr_semicolon () = str ";" ++ spc () let pr_bar () = str "|" ++ spc () +let pr_arg pr x = spc () ++ pr x +let pr_opt pr = function None -> mt () | Some x -> pr_arg pr x let pr_ord n = let suff = match n mod 10 with 1 -> "st" | 2 -> "nd" | _ -> "th" in diff --git a/lib/util.mli b/lib/util.mli index 45e953a649..3993fc8519 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -223,6 +223,8 @@ val pr_coma : unit -> std_ppcmds val pr_semicolon : unit -> std_ppcmds val pr_bar : unit -> std_ppcmds val pr_ord : int -> std_ppcmds +val pr_arg : ('a -> std_ppcmds) -> 'a -> std_ppcmds +val pr_opt : ('a -> std_ppcmds) -> 'a option -> std_ppcmds val prlist : ('a -> std_ppcmds) -> 'a list -> std_ppcmds val prvecti : (int -> 'a -> std_ppcmds) -> 'a array -> std_ppcmds |