author | wenzelm |
Thu, 17 Dec 2009 20:09:19 +0100 | |
changeset 34099 | 2541de190d92 |
parent 32450 | 375db037f4d2 |
child 34118 | ee9f87e11400 |
permissions | -rw-r--r-- |
27930 | 1 |
/* Title: Pure/General/yxml.scala |
2 |
Author: Makarius |
|
3 |
||
4 |
Efficient text representation of XML trees. |
|
5 |
*/ |
|
6 |
||
7 |
package isabelle |
|
8 |
||
9 |
||
32450 | 10 |
object YXML |
11 |
{ |
|
27943
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
12 |
/* chunk markers */ |
27930 | 13 |
|
14 |
private val X = '\5' |
|
15 |
private val Y = '\6' |
|
27960 | 16 |
private val X_string = X.toString |
27945
d2dc5a1903e8
tuned parse performance: avoid splitting terminal Y chunk;
wenzelm
parents:
27944
diff
changeset
|
17 |
private val Y_string = Y.toString |
27930 | 18 |
|
19 |
||
27943
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
20 |
/* iterate over chunks (resembles space_explode in ML) */ |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
21 |
|
34099
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
22 |
private def chunks(sep: Char, source: CharSequence) = new Iterator[CharSequence] |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
23 |
{ |
27943
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
24 |
private val end = source.length |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
25 |
private var state = if (end == 0) None else get_chunk(-1) |
32450 | 26 |
private def get_chunk(i: Int) = |
27 |
{ |
|
27943
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
28 |
if (i < end) { |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
29 |
var j = i; do j += 1 while (j < end && source.charAt(j) != sep) |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
30 |
Some((source.subSequence(i + 1, j), j)) |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
31 |
} |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
32 |
else None |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
33 |
} |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
34 |
|
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
35 |
def hasNext() = state.isDefined |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
36 |
def next() = state match { |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
37 |
case Some((s, i)) => { state = get_chunk(i); s } |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
38 |
case None => throw new NoSuchElementException("next on empty iterator") |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
39 |
} |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
40 |
} |
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
41 |
|
f34ff5e7728f
replaced Pattern.split by chunks iterator (more efficient, resembles ML version more closely);
wenzelm
parents:
27930
diff
changeset
|
42 |
|
34099
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
43 |
/* decoding pseudo UTF-8 */ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
44 |
|
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
45 |
private class Decode_Chars(decode: String => String, |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
46 |
buffer: Array[Byte], start: Int, end: Int) extends CharSequence |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
47 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
48 |
def length: Int = end - start |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
49 |
def charAt(i: Int): Char = (buffer(start + i).asInstanceOf[Int] & 0xFF).asInstanceOf[Char] |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
50 |
def subSequence(i: Int, j: Int): CharSequence = |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
51 |
new Decode_Chars(decode, buffer, start + i, start + j) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
52 |
|
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
53 |
// toString with adhoc decoding: abuse of CharSequence interface |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
54 |
// see also http://en.wikipedia.org/wiki/UTF-8#Description |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
55 |
override def toString: String = |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
56 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
57 |
val buf = new java.lang.StringBuilder(length) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
58 |
var code = -1 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
59 |
var rest = 0 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
60 |
def flush() |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
61 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
62 |
if (code != -1) { |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
63 |
if (rest == 0) buf.appendCodePoint(code) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
64 |
else buf.append('\uFFFD') |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
65 |
code = -1 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
66 |
rest = 0 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
67 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
68 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
69 |
def init(x: Int, n: Int) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
70 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
71 |
flush() |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
72 |
code = x |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
73 |
rest = n |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
74 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
75 |
def push(x: Int) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
76 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
77 |
if (rest <= 0) init(x, -1) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
78 |
else { |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
79 |
code <<= 6 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
80 |
code += x |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
81 |
rest -= 1 |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
82 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
83 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
84 |
for (i <- 0 until length) { |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
85 |
val c = charAt(i) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
86 |
if (c < 128) { flush(); buf.append(c) } |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
87 |
else if ((c & 0xC0) == 0x80) push(c & 0x3F) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
88 |
else if ((c & 0xE0) == 0xC0) init(c & 0x1F, 1) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
89 |
else if ((c & 0xF0) == 0xE0) init(c & 0x0F, 2) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
90 |
else if ((c & 0xF8) == 0xF0) init(c & 0x07, 3) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
91 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
92 |
flush() |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
93 |
decode(buf.toString) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
94 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
95 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
96 |
|
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
97 |
def decode_chars(decode: String => String, |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
98 |
buffer: Array[Byte], start: Int, end: Int): CharSequence = |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
99 |
{ |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
100 |
require(0 <= start && start <= end && end <= buffer.length) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
101 |
new Decode_Chars(decode, buffer, start, end) |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
102 |
} |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
103 |
|
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
104 |
|
27930 | 105 |
/* parsing */ |
106 |
||
27993
6dd90ef9f927
simplified exceptions: use plain error function / RuntimeException;
wenzelm
parents:
27971
diff
changeset
|
107 |
private def err(msg: String) = error("Malformed YXML: " + msg) |
27930 | 108 |
private def err_attribute() = err("bad attribute") |
109 |
private def err_element() = err("bad element") |
|
110 |
private def err_unbalanced(name: String) = |
|
111 |
if (name == "") err("unbalanced element") |
|
112 |
else err("unbalanced element \"" + name + "\"") |
|
113 |
||
27944
2bf3f30558ed
parse_attrib: more efficient due to indexOf('=');
wenzelm
parents:
27943
diff
changeset
|
114 |
private def parse_attrib(source: CharSequence) = { |
2bf3f30558ed
parse_attrib: more efficient due to indexOf('=');
wenzelm
parents:
27943
diff
changeset
|
115 |
val s = source.toString |
2bf3f30558ed
parse_attrib: more efficient due to indexOf('=');
wenzelm
parents:
27943
diff
changeset
|
116 |
val i = s.indexOf('=') |
2bf3f30558ed
parse_attrib: more efficient due to indexOf('=');
wenzelm
parents:
27943
diff
changeset
|
117 |
if (i <= 0) err_attribute() |
29563 | 118 |
(s.substring(0, i).intern, s.substring(i + 1)) |
27944
2bf3f30558ed
parse_attrib: more efficient due to indexOf('=');
wenzelm
parents:
27943
diff
changeset
|
119 |
} |
27930 | 120 |
|
121 |
||
32450 | 122 |
def parse_body(source: CharSequence): List[XML.Tree] = |
123 |
{ |
|
27930 | 124 |
/* stack operations */ |
125 |
||
126 |
var stack: List[((String, XML.Attributes), List[XML.Tree])] = null |
|
127 |
||
29180 | 128 |
def add(x: XML.Tree) = (stack: @unchecked) match { |
27930 | 129 |
case ((elem, body) :: pending) => stack = (elem, x :: body) :: pending |
130 |
} |
|
131 |
||
132 |
def push(name: String, atts: XML.Attributes) = |
|
133 |
if (name == "") err_element() |
|
134 |
else stack = ((name, atts), Nil) :: stack |
|
135 |
||
29180 | 136 |
def pop() = (stack: @unchecked) match { |
27930 | 137 |
case ((("", _), _) :: _) => err_unbalanced("") |
138 |
case (((name, atts), body) :: pending) => |
|
139 |
stack = pending; add(XML.Elem(name, atts, body.reverse)) |
|
140 |
} |
|
141 |
||
142 |
||
143 |
/* parse chunks */ |
|
144 |
||
145 |
stack = List((("", Nil), Nil)) |
|
34099
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
146 |
for (chunk <- chunks(X, source) if chunk.length != 0) { |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
147 |
if (chunk.length == 1 && chunk.charAt(0) == Y) pop() |
27945
d2dc5a1903e8
tuned parse performance: avoid splitting terminal Y chunk;
wenzelm
parents:
27944
diff
changeset
|
148 |
else { |
d2dc5a1903e8
tuned parse performance: avoid splitting terminal Y chunk;
wenzelm
parents:
27944
diff
changeset
|
149 |
chunks(Y, chunk).toList match { |
34099
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
150 |
case ch :: name :: atts if ch.length == 0 => |
2541de190d92
added decode_chars, with raw character view on byte buffer and adhoc decoding via toString;
wenzelm
parents:
32450
diff
changeset
|
151 |
push(name.toString.intern, atts.map(parse_attrib)) |
27945
d2dc5a1903e8
tuned parse performance: avoid splitting terminal Y chunk;
wenzelm
parents:
27944
diff
changeset
|
152 |
case txts => for (txt <- txts) add(XML.Text(txt.toString)) |
d2dc5a1903e8
tuned parse performance: avoid splitting terminal Y chunk;
wenzelm
parents:
27944
diff
changeset
|
153 |
} |
27930 | 154 |
} |
155 |
} |
|
156 |
stack match { |
|
157 |
case List((("", _), result)) => result.reverse |
|
158 |
case ((name, _), _) :: _ => err_unbalanced(name) |
|
159 |
} |
|
160 |
} |
|
161 |
||
32450 | 162 |
def parse(source: CharSequence): XML.Tree = |
27930 | 163 |
parse_body(source) match { |
164 |
case List(result) => result |
|
165 |
case Nil => XML.Text("") |
|
166 |
case _ => err("multiple results") |
|
167 |
} |
|
27960 | 168 |
|
29521 | 169 |
|
170 |
/* failsafe parsing */ |
|
171 |
||
172 |
private def markup_failsafe(source: CharSequence) = |
|
173 |
XML.Elem (Markup.BAD, Nil, |
|
174 |
List(XML.Text(source.toString.replace(X_string, "\\<^X>").replace(Y_string, "\\<^Y>")))) |
|
175 |
||
32450 | 176 |
def parse_body_failsafe(source: CharSequence): List[XML.Tree] = |
177 |
{ |
|
29521 | 178 |
try { parse_body(source) } |
179 |
catch { case _: RuntimeException => List(markup_failsafe(source)) } |
|
180 |
} |
|
181 |
||
32450 | 182 |
def parse_failsafe(source: CharSequence): XML.Tree = |
183 |
{ |
|
27960 | 184 |
try { parse(source) } |
29521 | 185 |
catch { case _: RuntimeException => markup_failsafe(source) } |
27960 | 186 |
} |
27930 | 187 |
} |