lib/RichPp: Rename into Richpp.

printing/RichPrinter: Rename into Richprinter.
printing/{ppvernac, ppconstr, pptactic}: Rename RichPp into Richpp.
printing/Richprinter: Cosmetics.

1 files changed, 26 insertions, 0 deletions

diff --git a/printing/richprinter.ml b/printing/richprinter.ml
new file mode 100644
index 0000000000..d27b7c3736
--- /dev/null
+++ b/printing/richprinter.ml
@@ -0,0 +1,26 @@
+open Richpp
+
+module Indexer = Indexer (struct type t = Ppannotation.t end)
+
+module RichppConstr = Ppconstr.Richpp (Indexer)
+module RichppVernac = Ppvernac.Richpp (Indexer)
+module RichppTactic = Pptactic.Richpp (Indexer)
+
+type rich_pp =
+    string
+    * Ppannotation.t Richpp.located Xml_datatype.gxml
+    * Xml_datatype.xml
+
+let make_richpp pr ast =
+  let raw_pp, rich_pp =
+    rich_pp Indexer.get_annotations (fun () -> pr ast)
+  in
+  let xml = Ppannotation.(
+    xml_of_rich_pp tag_of_annotation attributes_of_annotation rich_pp
+  )
+  in
+  (raw_pp, rich_pp, xml)
+
+let richpp_vernac = make_richpp RichppVernac.pr_vernac
+let richpp_constr = make_richpp RichppConstr.pr_constr_expr
+let richpp_tactic env = make_richpp (RichppTactic.pr_tactic env)