author | wenzelm |
Sun, 19 Jun 2011 14:11:06 +0200 | |
changeset 43455 | 4b4b93672f15 |
parent 43452 | 5cf548485529 |
child 43458 | b55a273ede18 |
permissions | -rw-r--r-- |
43414 | 1 |
/* Title: Tools/jEdit/src/token_markup.scala |
2 |
Author: Makarius |
|
3 |
||
4 |
Outer syntax token markup. |
|
5 |
*/ |
|
6 |
||
7 |
package isabelle.jedit |
|
8 |
||
9 |
||
10 |
import isabelle._ |
|
11 |
||
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
12 |
import org.gjt.sp.jedit.Mode |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
13 |
import org.gjt.sp.jedit.syntax.{Token => JEditToken, TokenMarker, TokenHandler, |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
14 |
ParserRuleSet, ModeProvider, XModeHandler} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
15 |
|
43414 | 16 |
import javax.swing.text.Segment |
17 |
||
18 |
||
19 |
object Token_Markup |
|
20 |
{ |
|
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
21 |
/* extended syntax styles */ |
43414 | 22 |
|
43440 | 23 |
private val plain_range: Int = JEditToken.ID_COUNT |
43414 | 24 |
private def check_range(i: Int) { require(0 <= i && i < plain_range) } |
25 |
||
26 |
def subscript(i: Byte): Byte = { check_range(i); (i + plain_range).toByte } |
|
27 |
def superscript(i: Byte): Byte = { check_range(i); (i + 2 * plain_range).toByte } |
|
28 |
val hidden: Byte = (3 * plain_range).toByte |
|
29 |
||
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
30 |
private def extended_styles(symbols: Symbol.Interpretation, text: CharSequence) |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
31 |
: Map[Text.Offset, Byte => Byte] = |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
32 |
{ |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
33 |
if (Isabelle.extended_styles) { |
43455 | 34 |
// FIXME \\<^bsub> \\<^esub> \\<^bsup> \\<^esup> |
35 |
// FIXME \\<^bold> \\<^loc> |
|
36 |
def ctrl_style(sym: String): Option[Byte => Byte] = |
|
37 |
if (symbols.is_subscript_decoded(sym)) Some(subscript(_)) |
|
38 |
else if (symbols.is_superscript_decoded(sym)) Some(superscript(_)) |
|
39 |
else None |
|
40 |
||
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
41 |
var result = Map[Text.Offset, Byte => Byte]() |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
42 |
def mark(start: Text.Offset, stop: Text.Offset, style: Byte => Byte) |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
43 |
{ |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
44 |
for (i <- start until stop) result += (i -> style) |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
45 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
46 |
var offset = 0 |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
47 |
var ctrl = "" |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
48 |
for (sym <- Symbol.iterator(text).map(_.toString)) { |
43455 | 49 |
if (ctrl_style(sym).isDefined) ctrl = sym |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
50 |
else if (ctrl != "") { |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
51 |
if (symbols.is_controllable(sym)) { |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
52 |
mark(offset - ctrl.length, offset, _ => hidden) |
43455 | 53 |
mark(offset, offset + sym.length, ctrl_style(ctrl).get) |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
54 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
55 |
ctrl = "" |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
56 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
57 |
offset += sym.length |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
58 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
59 |
result |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
60 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
61 |
else Map.empty |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
62 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
63 |
|
43414 | 64 |
|
65 |
/* token marker */ |
|
66 |
||
67 |
private val isabelle_rules = new ParserRuleSet("isabelle", "MAIN") |
|
68 |
||
43429 | 69 |
private class Line_Context(val context: Scan.Context) |
70 |
extends TokenMarker.LineContext(isabelle_rules, null) |
|
43414 | 71 |
{ |
72 |
override def hashCode: Int = context.hashCode |
|
73 |
override def equals(that: Any): Boolean = |
|
74 |
that match { |
|
75 |
case other: Line_Context => context == other.context |
|
76 |
case _ => false |
|
77 |
} |
|
78 |
} |
|
79 |
||
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
80 |
class Marker extends TokenMarker |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
81 |
{ |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
82 |
override def markTokens(context: TokenMarker.LineContext, |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
83 |
handler: TokenHandler, line: Segment): TokenMarker.LineContext = |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
84 |
{ |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
85 |
val symbols = Isabelle.system.symbols |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
86 |
val syntax = Isabelle.session.current_syntax() |
43414 | 87 |
|
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
88 |
val ctxt = |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
89 |
context match { |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
90 |
case c: Line_Context => c.context |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
91 |
case _ => Scan.Finished |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
92 |
} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
93 |
val (tokens, ctxt1) = syntax.scan_context(line, ctxt) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
94 |
val context1 = new Line_Context(ctxt1) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
95 |
|
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
96 |
val extended = extended_styles(symbols, line) |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
97 |
|
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
98 |
var offset = 0 |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
99 |
for (token <- tokens) { |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
100 |
val style = Isabelle_Markup.token_markup(syntax, token) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
101 |
val length = token.source.length |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
102 |
val end_offset = offset + length |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
103 |
if ((offset until end_offset) exists extended.isDefinedAt) { |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
104 |
for (i <- offset until end_offset) { |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
105 |
val style1 = |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
106 |
extended.get(i) match { |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
107 |
case None => style |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
108 |
case Some(ext) => ext(style) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
109 |
} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
110 |
handler.handleToken(line, style1, i, 1, context1) |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
111 |
} |
43414 | 112 |
} |
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
113 |
else handler.handleToken(line, style, offset, length, context1) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
114 |
offset += length |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
115 |
} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
116 |
handler.handleToken(line, JEditToken.END, line.count, 0, context1) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
117 |
|
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
118 |
val context2 = context1.intern |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
119 |
handler.setLineContext(context2) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
120 |
context2 |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
121 |
} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
122 |
} |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
123 |
|
43416
e730cdd97dcf
more precise imitatation of original TokenMarker: no locking, interned context etc.;
wenzelm
parents:
43414
diff
changeset
|
124 |
|
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
125 |
/* mode provider */ |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
126 |
|
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
127 |
class Mode_Provider(orig_provider: ModeProvider) extends ModeProvider |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
128 |
{ |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
129 |
for (mode <- orig_provider.getModes) addMode(mode) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
130 |
|
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
131 |
val isabelle_token_marker = new Token_Markup.Marker |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
132 |
|
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
133 |
override def loadMode(mode: Mode, xmh: XModeHandler) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
134 |
{ |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
135 |
super.loadMode(mode, xmh) |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
136 |
if (mode.getName == "isabelle") |
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
137 |
mode.setTokenMarker(isabelle_token_marker) |
43414 | 138 |
} |
43452
5cf548485529
avoid setTokenMarker fluctuation on buffer reload etc. via static isabelle_token_marker, which is installed by hijacking the jEdit ModeProvider;
wenzelm
parents:
43443
diff
changeset
|
139 |
} |
43414 | 140 |
} |
141 |