From 678b17b52b0b59a5470d8272474e692b2fe023e3 Mon Sep 17 00:00:00 2001 From: Regis-Gianas Date: Tue, 4 Nov 2014 14:50:06 +0100 Subject: lib/Pp.tag: New. A combinator to introduce tags. printing/{Ppconstr, Ppvernac}: Use it. --- lib/pp.ml | 2 +- lib/pp.mli | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) (limited to 'lib') diff --git a/lib/pp.ml b/lib/pp.ml index b8935f54d..c47d63833 100644 --- a/lib/pp.ml +++ b/lib/pp.ml @@ -217,7 +217,7 @@ let tclose () = Glue.atom(Ppcmd_close_tbox) (* Opening and closed of tags *) let open_tag t = Glue.atom(Ppcmd_open_tag t) let close_tag () = Glue.atom(Ppcmd_close_tag) - +let tag t s = open_tag t ++ s ++ close_tag () let eval_ppcmds l = l (* In new syntax only double quote char is escaped by repeating it *) diff --git a/lib/pp.mli b/lib/pp.mli index eb847189a..f29f9b2f3 100644 --- a/lib/pp.mli +++ b/lib/pp.mli @@ -82,6 +82,7 @@ val tclose : unit -> std_ppcmds (** {6 Opening and closing of tags} *) +val tag : string -> std_ppcmds -> std_ppcmds val open_tag : string -> std_ppcmds val close_tag : unit -> std_ppcmds -- cgit v1.2.3