diff options
author | Regis-Gianas <yrg@pps.univ-paris-diderot.fr> | 2014-11-04 11:51:52 +0100 |
---|---|---|
committer | Regis-Gianas <yrg@pps.univ-paris-diderot.fr> | 2014-11-04 22:51:36 +0100 |
commit | 970725685ee7ecb03fa071e94695988f2b14bd90 (patch) | |
tree | dc66c8bdbd34f3362a5f92272749e5aba16da1eb /lib/pp.mli | |
parent | 31ce91dd0a7cf1d780bb7bc1ab4550e0270a4bcd (diff) |
lib/Pp.rewrite: New.
Allow strings of a pretty-print to be rewritten just before the
actual output.
Diffstat (limited to 'lib/pp.mli')
-rw-r--r-- | lib/pp.mli | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/pp.mli b/lib/pp.mli index dad4ed6ab..eb847189a 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -46,6 +46,9 @@ val eval_ppcmds : std_ppcmds -> std_ppcmds val is_empty : std_ppcmds -> bool (** Test emptyness. *) +val rewrite : (string -> string) -> std_ppcmds -> std_ppcmds +(** [rewrite f pps] applies [f] to all strings that appear in [pps]. *) + (** {6 Derived commands} *) val spc : unit -> std_ppcmds |