59713
|
1 |
/* Title: Pure/PIDE/protocol_message.scala
|
|
2 |
Author: Makarius
|
|
3 |
|
|
4 |
Auxiliary operations on protocol messages.
|
|
5 |
*/
|
|
6 |
|
|
7 |
package isabelle
|
|
8 |
|
|
9 |
|
|
10 |
object Protocol_Message
|
|
11 |
{
|
71620
|
12 |
/* message markers */
|
|
13 |
|
|
14 |
object Marker
|
|
15 |
{
|
|
16 |
def apply(a: String): Marker =
|
|
17 |
new Marker { override def name: String = a }
|
|
18 |
}
|
|
19 |
|
|
20 |
abstract class Marker private
|
|
21 |
{
|
|
22 |
def name: String
|
|
23 |
val prefix: String = "\f" + name + " = "
|
|
24 |
|
|
25 |
def apply(text: String): String = prefix + Library.encode_lines(text)
|
|
26 |
def apply(props: Properties.T): String = apply(YXML.string_of_body(XML.Encode.properties(props)))
|
|
27 |
|
|
28 |
def test(line: String): Boolean = line.startsWith(prefix)
|
|
29 |
def test_yxml(line: String): Boolean = test(line) && YXML.detect(line)
|
|
30 |
|
|
31 |
def unapply(line: String): Option[String] =
|
|
32 |
Library.try_unprefix(prefix, line).map(Library.decode_lines)
|
|
33 |
|
|
34 |
override def toString: String = "Marker(" + quote(name) + ")"
|
|
35 |
}
|
|
36 |
|
|
37 |
|
59713
|
38 |
/* inlined reports */
|
|
39 |
|
|
40 |
private val report_elements =
|
|
41 |
Markup.Elements(Markup.REPORT, Markup.NO_REPORT)
|
|
42 |
|
|
43 |
def clean_reports(body: XML.Body): XML.Body =
|
|
44 |
body filter {
|
|
45 |
case XML.Wrapped_Elem(Markup(name, _), _, _) => !report_elements(name)
|
|
46 |
case XML.Elem(Markup(name, _), _) => !report_elements(name)
|
|
47 |
case _ => true
|
|
48 |
} map {
|
|
49 |
case XML.Wrapped_Elem(markup, body, ts) => XML.Wrapped_Elem(markup, body, clean_reports(ts))
|
|
50 |
case XML.Elem(markup, ts) => XML.Elem(markup, clean_reports(ts))
|
|
51 |
case t => t
|
|
52 |
}
|
|
53 |
|
|
54 |
def reports(props: Properties.T, body: XML.Body): List[XML.Elem] =
|
|
55 |
body flatMap {
|
|
56 |
case XML.Wrapped_Elem(Markup(Markup.REPORT, ps), body, ts) =>
|
|
57 |
List(XML.Wrapped_Elem(Markup(Markup.REPORT, props ::: ps), body, ts))
|
|
58 |
case XML.Elem(Markup(Markup.REPORT, ps), ts) =>
|
|
59 |
List(XML.Elem(Markup(Markup.REPORT, props ::: ps), ts))
|
|
60 |
case XML.Wrapped_Elem(_, _, ts) => reports(props, ts)
|
|
61 |
case XML.Elem(_, ts) => reports(props, ts)
|
|
62 |
case XML.Text(_) => Nil
|
|
63 |
}
|
|
64 |
|
|
65 |
|
|
66 |
/* reported positions */
|
|
67 |
|
|
68 |
private val position_elements =
|
|
69 |
Markup.Elements(Markup.BINDING, Markup.ENTITY, Markup.REPORT, Markup.POSITION)
|
|
70 |
|
|
71 |
def positions(
|
|
72 |
self_id: Document_ID.Generic => Boolean,
|
|
73 |
command_position: Position.T,
|
|
74 |
chunk_name: Symbol.Text_Chunk.Name,
|
|
75 |
chunk: Symbol.Text_Chunk,
|
|
76 |
message: XML.Elem): Set[Text.Range] =
|
|
77 |
{
|
|
78 |
def elem(props: Properties.T, set: Set[Text.Range]): Set[Text.Range] =
|
|
79 |
props match {
|
|
80 |
case Position.Identified(id, name) if self_id(id) && name == chunk_name =>
|
|
81 |
val opt_range =
|
|
82 |
Position.Range.unapply(props) orElse {
|
|
83 |
if (name == Symbol.Text_Chunk.Default)
|
|
84 |
Position.Range.unapply(command_position)
|
|
85 |
else None
|
|
86 |
}
|
|
87 |
opt_range match {
|
|
88 |
case Some(symbol_range) =>
|
|
89 |
chunk.incorporate(symbol_range) match {
|
|
90 |
case Some(range) => set + range
|
|
91 |
case _ => set
|
|
92 |
}
|
|
93 |
case None => set
|
|
94 |
}
|
|
95 |
case _ => set
|
|
96 |
}
|
|
97 |
def tree(set: Set[Text.Range], t: XML.Tree): Set[Text.Range] =
|
|
98 |
t match {
|
|
99 |
case XML.Wrapped_Elem(Markup(name, props), _, body) =>
|
|
100 |
body.foldLeft(if (position_elements(name)) elem(props, set) else set)(tree)
|
|
101 |
case XML.Elem(Markup(name, props), body) =>
|
|
102 |
body.foldLeft(if (position_elements(name)) elem(props, set) else set)(tree)
|
|
103 |
case XML.Text(_) => set
|
|
104 |
}
|
|
105 |
|
|
106 |
val set = tree(Set.empty, message)
|
|
107 |
if (set.isEmpty) elem(message.markup.properties, set)
|
|
108 |
else set
|
|
109 |
}
|
|
110 |
}
|