blob: c9e84e3eb4981e40f0fded8d9868bacdc508ba82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
(************************************************************************)
(** This module provides an entry point to "rich" pretty-printers that
produce pretty-printing as done by {!Printer} but with additional
annotations represented as a semi-structured document.
To understand what are these annotations and how they are represented
as standard XML attributes, please refer to {!Ppannotation}.
In addition to these annotations, each node of the semi-structured
document contains a [startpos] and an [endpos] attribute that
relate this node to the raw pretty-printing.
Please refer to {!Richpp} for more details. *)
(** A rich pretty-print is composed of: *)
type rich_pp =
(** - a generalized semi-structured document whose attributes are
annotations ; *)
Ppannotation.t Richpp.located Xml_datatype.gxml
(** - an XML document, representing annotations as usual textual
XML attributes. *)
* Xml_datatype.xml
(** [richpp_vernac phrase] produces a rich pretty-printing of [phrase]. *)
val richpp_vernac : Vernacexpr.vernac_expr -> rich_pp
(** [richpp_constr constr] produces a rich pretty-printing of [constr]. *)
val richpp_constr : Constrexpr.constr_expr -> rich_pp
|
