author | wenzelm |
Sat, 18 Oct 2014 21:26:01 +0200 | |
changeset 58701 | cc83453fac15 |
parent 58699 | e46afcceb781 |
child 58748 | 8f92f17d8781 |
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 |
||
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
12 |
import java.awt.{Font, Color} |
53785 | 13 |
import java.awt.font.TextAttribute |
43491
7b7baa283434
hidden font: full height makes cursor more visible;
wenzelm
parents:
43489
diff
changeset
|
14 |
import java.awt.geom.AffineTransform |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
15 |
|
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
16 |
import org.gjt.sp.util.SyntaxUtilities |
44358
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
17 |
import org.gjt.sp.jedit.{jEdit, Mode} |
58701
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
18 |
import org.gjt.sp.jedit.syntax.{Token => JEditToken, TokenMarker, TokenHandler, DummyTokenHandler, |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
19 |
ParserRuleSet, ModeProvider, XModeHandler, SyntaxStyle} |
50183 | 20 |
import org.gjt.sp.jedit.textarea.{TextArea, Selection} |
58683 | 21 |
import org.gjt.sp.jedit.buffer.{JEditBuffer, LineManager} |
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
|
22 |
|
43414 | 23 |
import javax.swing.text.Segment |
24 |
||
25 |
||
26 |
object Token_Markup |
|
27 |
{ |
|
50183 | 28 |
/* editing support for control symbols */ |
29 |
||
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
30 |
val is_control_style = |
53021
d0fa3f446b9d
discontinued special treatment of \<^isub> and \<^isup> in rendering or editor front-end;
wenzelm
parents:
50663
diff
changeset
|
31 |
Set(Symbol.sub_decoded, Symbol.sup_decoded, Symbol.bold_decoded) |
50183 | 32 |
|
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
33 |
def update_control_style(control: String, text: String): String = |
50183 | 34 |
{ |
35 |
val result = new StringBuilder |
|
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
36 |
for (sym <- Symbol.iterator(text) if !is_control_style(sym)) { |
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
37 |
if (Symbol.is_controllable(sym)) result ++= control |
50183 | 38 |
result ++= sym |
39 |
} |
|
40 |
result.toString |
|
41 |
} |
|
42 |
||
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
43 |
def edit_control_style(text_area: TextArea, control: String) |
50183 | 44 |
{ |
57612
990ffb84489b
clarified module name: facilitate alternative GUI frameworks;
wenzelm
parents:
57126
diff
changeset
|
45 |
GUI_Thread.assert {} |
50183 | 46 |
|
47 |
val buffer = text_area.getBuffer |
|
48 |
||
50663
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
49 |
text_area.getSelection.foreach(sel => { |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
50 |
val before = JEdit_Lib.point_range(buffer, sel.getStart - 1) |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
51 |
JEdit_Lib.try_get_text(buffer, before) match { |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
52 |
case Some(s) if is_control_style(s) => |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
53 |
text_area.extendSelection(before.start, before.stop) |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
54 |
case _ => |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
55 |
} |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
56 |
}) |
f8d7d332fec0
more liberal edit_control_style: include preceeding control symbol to reduce potential for user surprise;
wenzelm
parents:
50210
diff
changeset
|
57 |
|
50183 | 58 |
text_area.getSelection.toList match { |
50210
747db833fbf7
no special treatment of control_reset, in accordance to other control styles;
wenzelm
parents:
50205
diff
changeset
|
59 |
case Nil => |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
60 |
text_area.setSelectedText(control) |
50183 | 61 |
case sels => |
50195
863b1dfc396c
prefer buffer_edit combinator over Java-style boilerplate;
wenzelm
parents:
50187
diff
changeset
|
62 |
JEdit_Lib.buffer_edit(buffer) { |
50183 | 63 |
sels.foreach(sel => |
64 |
text_area.setSelectedText(sel, |
|
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
65 |
update_control_style(control, text_area.getSelectedText(sel)))) |
50183 | 66 |
} |
67 |
} |
|
68 |
} |
|
69 |
||
70 |
||
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
71 |
/* extended syntax styles */ |
43414 | 72 |
|
43440 | 73 |
private val plain_range: Int = JEditToken.ID_COUNT |
43488 | 74 |
private val full_range = 6 * plain_range + 1 |
43414 | 75 |
private def check_range(i: Int) { require(0 <= i && i < plain_range) } |
76 |
||
77 |
def subscript(i: Byte): Byte = { check_range(i); (i + plain_range).toByte } |
|
78 |
def superscript(i: Byte): Byte = { check_range(i); (i + 2 * plain_range).toByte } |
|
43460 | 79 |
def bold(i: Byte): Byte = { check_range(i); (i + 3 * plain_range).toByte } |
43487 | 80 |
def user_font(idx: Int, i: Byte): Byte = { check_range(i); (i + (4 + idx) * plain_range).toByte } |
81 |
val hidden: Byte = (6 * plain_range).toByte |
|
82 |
||
83 |
private def font_style(style: SyntaxStyle, f: Font => Font): SyntaxStyle = |
|
84 |
new SyntaxStyle(style.getForegroundColor, style.getBackgroundColor, f(style.getFont)) |
|
43414 | 85 |
|
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
86 |
private def script_style(style: SyntaxStyle, i: Int): SyntaxStyle = |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
87 |
{ |
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
88 |
font_style(style, font0 => |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
89 |
{ |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
90 |
import scala.collection.JavaConversions._ |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
91 |
val font1 = font0.deriveFont(Map(TextAttribute.SUPERSCRIPT -> new java.lang.Integer(i))) |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
92 |
|
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
93 |
def shift(y: Float): Font = |
53785 | 94 |
GUI.transform_font(font1, AffineTransform.getTranslateInstance(0.0, y.toDouble)) |
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
95 |
|
53785 | 96 |
val m0 = GUI.font_metrics(font0) |
97 |
val m1 = GUI.font_metrics(font1) |
|
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
98 |
val a = m1.getAscent - m0.getAscent |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
99 |
val b = (m1.getDescent + m1.getLeading) - (m0.getDescent + m0.getLeading) |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
100 |
if (a > 0.0f) shift(a) |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
101 |
else if (b > 0.0f) shift(- b) |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
102 |
else font1 |
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
103 |
}) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
104 |
} |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
105 |
|
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
106 |
private def bold_style(style: SyntaxStyle): SyntaxStyle = |
57126
3a928dffc37f
more robust bold_style, e.g. relevant for accidental \<^bold> before keyword;
wenzelm
parents:
56662
diff
changeset
|
107 |
font_style(style, font => font.deriveFont(if (font.isBold) Font.PLAIN else Font.BOLD)) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
108 |
|
50196
94886ebf090f
retain hidden_color (i.e. transparent white) instead of replacing it by semantic text color, to make control symbols more hidden and avoid "dirty" lines with some fonts;
wenzelm
parents:
50195
diff
changeset
|
109 |
val hidden_color: Color = new Color(255, 255, 255, 0) |
44356
f6a2e5ce2ce5
avoid actual Color.white, which would be turned into Color.black by org.gjt.sp.jedit.print.BufferPrintable;
wenzelm
parents:
44355
diff
changeset
|
110 |
|
43661
39fdbd814c7f
quasi-static Isabelle_System -- reduced tendency towards "functorial style";
wenzelm
parents:
43553
diff
changeset
|
111 |
class Style_Extender extends SyntaxUtilities.StyleExtender |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
112 |
{ |
44355
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
113 |
val max_user_fonts = 2 |
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
114 |
if (Symbol.font_names.length > max_user_fonts) |
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
115 |
error("Too many user symbol fonts (max " + max_user_fonts + " permitted): " + |
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
116 |
Symbol.font_names.mkString(", ")) |
43487 | 117 |
|
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
118 |
override def extendStyles(styles: Array[SyntaxStyle]): Array[SyntaxStyle] = |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
119 |
{ |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
120 |
val new_styles = new Array[SyntaxStyle](full_range) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
121 |
for (i <- 0 until plain_range) { |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
122 |
val style = styles(i) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
123 |
new_styles(i) = style |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
124 |
new_styles(subscript(i.toByte)) = script_style(style, -1) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
125 |
new_styles(superscript(i.toByte)) = script_style(style, 1) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
126 |
new_styles(bold(i.toByte)) = bold_style(style) |
44355
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
127 |
for (idx <- 0 until max_user_fonts) |
9c38bdc6d755
default style for user fonts -- to prevent org.gjt.sp.jedit.print.BufferPrintable from choking on null;
wenzelm
parents:
44238
diff
changeset
|
128 |
new_styles(user_font(idx, i.toByte)) = style |
43695
5130dfe1b7be
simplified Symbol based on lazy Symbol.Interpretation -- reduced odd "functorial style";
wenzelm
parents:
43675
diff
changeset
|
129 |
for ((family, idx) <- Symbol.font_index) |
53785 | 130 |
new_styles(user_font(idx, i.toByte)) = font_style(style, GUI.imitate_font(family, _)) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
131 |
} |
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
132 |
new_styles(hidden) = |
44356
f6a2e5ce2ce5
avoid actual Color.white, which would be turned into Color.black by org.gjt.sp.jedit.print.BufferPrintable;
wenzelm
parents:
44355
diff
changeset
|
133 |
new SyntaxStyle(hidden_color, null, |
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
134 |
{ val font = styles(0).getFont |
53785 | 135 |
GUI.transform_font(new Font(font.getFamily, 0, 1), |
43502
736183a22fa4
more precise font transformations: shift sub/superscript, adjust size for user fonts;
wenzelm
parents:
43491
diff
changeset
|
136 |
AffineTransform.getScaleInstance(1.0, font.getSize.toDouble)) }) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
137 |
new_styles |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
138 |
} |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
139 |
} |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
140 |
|
43661
39fdbd814c7f
quasi-static Isabelle_System -- reduced tendency towards "functorial style";
wenzelm
parents:
43553
diff
changeset
|
141 |
def extended_styles(text: CharSequence): Map[Text.Offset, Byte => Byte] = |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
142 |
{ |
44238
36120feb70ed
some convenience actions/shortcuts for control symbols;
wenzelm
parents:
43695
diff
changeset
|
143 |
// FIXME Symbol.bsub_decoded etc. |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
144 |
def control_style(sym: String): Option[Byte => Byte] = |
53021
d0fa3f446b9d
discontinued special treatment of \<^isub> and \<^isup> in rendering or editor front-end;
wenzelm
parents:
50663
diff
changeset
|
145 |
if (sym == Symbol.sub_decoded) Some(subscript(_)) |
d0fa3f446b9d
discontinued special treatment of \<^isub> and \<^isup> in rendering or editor front-end;
wenzelm
parents:
50663
diff
changeset
|
146 |
else if (sym == Symbol.sup_decoded) Some(superscript(_)) |
44238
36120feb70ed
some convenience actions/shortcuts for control symbols;
wenzelm
parents:
43695
diff
changeset
|
147 |
else if (sym == Symbol.bold_decoded) Some(bold(_)) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
148 |
else None |
43455 | 149 |
|
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
150 |
var result = Map[Text.Offset, Byte => Byte]() |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
151 |
def mark(start: Text.Offset, stop: Text.Offset, style: Byte => Byte) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
152 |
{ |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
153 |
for (i <- start until stop) result += (i -> style) |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
154 |
} |
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
155 |
var offset = 0 |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
156 |
var control = "" |
43675
8252d51d70e2
simplified Symbol.iterator: produce strings, which are mostly preallocated;
wenzelm
parents:
43661
diff
changeset
|
157 |
for (sym <- Symbol.iterator(text)) { |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
158 |
if (control_style(sym).isDefined) control = sym |
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
159 |
else if (control != "") { |
43695
5130dfe1b7be
simplified Symbol based on lazy Symbol.Interpretation -- reduced odd "functorial style";
wenzelm
parents:
43675
diff
changeset
|
160 |
if (Symbol.is_controllable(sym) && sym != "\"" && !Symbol.fonts.isDefinedAt(sym)) { |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
161 |
mark(offset - control.length, offset, _ => hidden) |
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
162 |
mark(offset, offset + sym.length, control_style(control).get) |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
163 |
} |
50187
b5a09812abc4
special handling of control symbols in Symbols dockable;
wenzelm
parents:
50183
diff
changeset
|
164 |
control = "" |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
165 |
} |
43695
5130dfe1b7be
simplified Symbol based on lazy Symbol.Interpretation -- reduced odd "functorial style";
wenzelm
parents:
43675
diff
changeset
|
166 |
Symbol.lookup_font(sym) match { |
43488 | 167 |
case Some(idx) => mark(offset, offset + sym.length, user_font(idx, _)) |
43487 | 168 |
case _ => |
169 |
} |
|
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
170 |
offset += sym.length |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
171 |
} |
43482
ebb90ff55b79
added SyntaxUtilities.StyleExtender hook, with actual functionality in Isabelle/Scala;
wenzelm
parents:
43464
diff
changeset
|
172 |
result |
43443
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
173 |
} |
5d9693c2337e
basic support for extended syntax styles: sub/superscript;
wenzelm
parents:
43440
diff
changeset
|
174 |
|
43414 | 175 |
|
58529 | 176 |
/* line context */ |
43414 | 177 |
|
58699 | 178 |
private val context_rules = new ParserRuleSet("isabelle", "MAIN") |
179 |
||
180 |
class Line_Context( |
|
181 |
val context: Option[Scan.Line_Context], |
|
182 |
val structure: Outer_Syntax.Line_Structure) |
|
183 |
extends TokenMarker.LineContext(context_rules, null) |
|
43414 | 184 |
{ |
58699 | 185 |
override def hashCode: Int = (context, structure).hashCode |
43414 | 186 |
override def equals(that: Any): Boolean = |
187 |
that match { |
|
58699 | 188 |
case other: Line_Context => context == other.context && structure == other.structure |
43414 | 189 |
case _ => false |
190 |
} |
|
191 |
} |
|
192 |
||
58699 | 193 |
def buffer_line_context(buffer: JEditBuffer, line: Int): Option[Line_Context] = |
58683 | 194 |
Untyped.get(buffer, "lineMgr") match { |
195 |
case line_mgr: LineManager => |
|
58701
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
196 |
def context = |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
197 |
line_mgr.getLineContext(line) match { |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
198 |
case c: Line_Context => Some(c) |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
199 |
case _ => None |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
200 |
} |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
201 |
context orElse { |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
202 |
buffer.markTokens(line, DummyTokenHandler.INSTANCE) |
cc83453fac15
make double-sure that line context is present, e.g. relevant for last line after visible text;
wenzelm
parents:
58699
diff
changeset
|
203 |
context |
58683 | 204 |
} |
205 |
case _ => None |
|
206 |
} |
|
207 |
||
58699 | 208 |
def buffer_line_structure(buffer: JEditBuffer, line: Int): Outer_Syntax.Line_Structure = |
209 |
buffer_line_context(buffer, line) match { |
|
210 |
case Some(c) => c.structure |
|
211 |
case _ => Outer_Syntax.Line_Structure.init |
|
212 |
} |
|
213 |
||
58694 | 214 |
|
215 |
/* token marker */ |
|
58683 | 216 |
|
53277
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
217 |
class Marker(mode: String) extends TokenMarker |
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
|
218 |
{ |
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
|
219 |
override def markTokens(context: TokenMarker.LineContext, |
46210
553ec602d337
paranoia null check -- prevent spurious crash of jedit token markup;
wenzelm
parents:
46178
diff
changeset
|
220 |
handler: TokenHandler, raw_line: Segment): TokenMarker.LineContext = |
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
|
221 |
{ |
58697 | 222 |
val (opt_ctxt, structure) = |
44358
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
223 |
context match { |
58697 | 224 |
case c: Line_Context => (c.context, c.structure) |
225 |
case _ => (Some(Scan.Finished), Outer_Syntax.Line_Structure.init) |
|
44358
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
226 |
} |
46210
553ec602d337
paranoia null check -- prevent spurious crash of jedit token markup;
wenzelm
parents:
46178
diff
changeset
|
227 |
val line = if (raw_line == null) new Segment else raw_line |
553ec602d337
paranoia null check -- prevent spurious crash of jedit token markup;
wenzelm
parents:
46178
diff
changeset
|
228 |
|
43553 | 229 |
val context1 = |
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
230 |
{ |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
231 |
val (styled_tokens, context1) = |
58694 | 232 |
(opt_ctxt, Isabelle.mode_syntax(mode)) match { |
233 |
case (Some(ctxt), _) if mode == "isabelle-ml" || mode == "sml" => |
|
234 |
val (tokens, ctxt1) = ML_Lex.tokenize_line(mode == "sml", line, ctxt) |
|
58529 | 235 |
val styled_tokens = tokens.map(tok => (Rendering.ml_token_markup(tok), tok.source)) |
58697 | 236 |
(styled_tokens, new Line_Context(Some(ctxt1), structure)) |
58694 | 237 |
|
238 |
case (Some(ctxt), Some(syntax)) if syntax.has_tokens => |
|
58697 | 239 |
val (tokens, ctxt1, structure1) = syntax.scan_line(line, ctxt, structure) |
58694 | 240 |
val styled_tokens = |
241 |
tokens.map(tok => (Rendering.token_markup(syntax, tok), tok.source)) |
|
58697 | 242 |
(styled_tokens, new Line_Context(Some(ctxt1), structure1)) |
58694 | 243 |
|
244 |
case _ => |
|
245 |
val styled_token = (JEditToken.NULL, line.subSequence(0, line.count).toString) |
|
58697 | 246 |
(List(styled_token), new Line_Context(None, structure)) |
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
247 |
} |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
248 |
|
53278
c31532691e55
always use extended styles (despite de26cf3191a3);
wenzelm
parents:
53277
diff
changeset
|
249 |
val extended = extended_styles(line) |
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
250 |
|
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
251 |
var offset = 0 |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
252 |
for ((style, token) <- styled_tokens) { |
55500 | 253 |
val length = token.length |
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
254 |
val end_offset = offset + length |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
255 |
if ((offset until end_offset) exists |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
256 |
(i => extended.isDefinedAt(i) || line.charAt(i) == '\t')) { |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
257 |
for (i <- offset until end_offset) { |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
258 |
val style1 = |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
259 |
extended.get(i) match { |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
260 |
case None => style |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
261 |
case Some(ext) => ext(style) |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
262 |
} |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
263 |
handler.handleToken(line, style1, i, 1, context1) |
43553 | 264 |
} |
265 |
} |
|
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
266 |
else handler.handleToken(line, style, offset, length, context1) |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
267 |
offset += length |
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
|
268 |
} |
44702
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
269 |
handler.handleToken(line, JEditToken.END, line.count, 0, context1) |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
270 |
context1 |
eb00752507c7
improved handling of extended styles and hard tabs when prover is inactive;
wenzelm
parents:
44701
diff
changeset
|
271 |
} |
58694 | 272 |
|
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
|
273 |
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
|
274 |
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
|
275 |
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
|
276 |
} |
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
|
277 |
} |
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
|
278 |
|
43416
e730cdd97dcf
more precise imitatation of original TokenMarker: no locking, interned context etc.;
wenzelm
parents:
43414
diff
changeset
|
279 |
|
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
|
280 |
/* 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
|
281 |
|
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
|
282 |
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
|
283 |
{ |
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
|
284 |
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
|
285 |
|
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
|
286 |
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
|
287 |
{ |
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
|
288 |
super.loadMode(mode, xmh) |
53277
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
289 |
Isabelle.token_marker(mode.getName).foreach(mode.setTokenMarker _) |
43414 | 290 |
} |
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
|
291 |
} |
44358
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
292 |
|
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
293 |
def refresh_buffer(buffer: JEditBuffer) |
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
294 |
{ |
53277
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
295 |
Isabelle.token_marker(JEdit_Lib.buffer_mode(buffer)) match { |
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
296 |
case None => |
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
297 |
case Some(marker) => |
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
298 |
buffer.setTokenMarker(jEdit.getMode("text").getTokenMarker) |
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
299 |
buffer.setTokenMarker(marker) |
6aa348237973
more uniform configuration of editor modes and token markers;
wenzelm
parents:
53274
diff
changeset
|
300 |
} |
44358
2a2df4de1bbe
more robust initialization of token marker and line context wrt. session startup;
wenzelm
parents:
44356
diff
changeset
|
301 |
} |
43414 | 302 |
} |
303 |