author | wenzelm |
Thu, 07 Jul 2016 21:10:12 +0200 | |
changeset 63423 | ed65a6d9929b |
parent 63422 | 5cf8dd98a717 |
child 63424 | e4e15bbfb3e2 |
permissions | -rw-r--r-- |
63422 | 1 |
/* Title: Tools/jEdit/src/text_structure.scala |
58748 | 2 |
Author: Makarius |
3 |
||
63422 | 4 |
Text structure based on Isabelle/Isar outer syntax. |
58748 | 5 |
*/ |
6 |
||
7 |
package isabelle.jedit |
|
8 |
||
9 |
||
10 |
import isabelle._ |
|
11 |
||
63422 | 12 |
import org.gjt.sp.jedit.indent.{IndentRule, IndentAction} |
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
13 |
import org.gjt.sp.jedit.textarea.{TextArea, StructureMatcher, Selection} |
63422 | 14 |
import org.gjt.sp.jedit.buffer.JEditBuffer |
63423 | 15 |
import org.gjt.sp.jedit.Buffer |
58748 | 16 |
|
17 |
||
63422 | 18 |
object Text_Structure |
58748 | 19 |
{ |
63422 | 20 |
/* indentation */ |
21 |
||
22 |
object Indent_Rule extends IndentRule |
|
23 |
{ |
|
63423 | 24 |
def apply(buffer0: JEditBuffer, line: Int, prev_line: Int, prev_prev_line: Int, |
63422 | 25 |
actions: java.util.List[IndentAction]) |
26 |
{ |
|
63423 | 27 |
buffer0 match { |
28 |
case buffer: Buffer => |
|
29 |
Isabelle.buffer_syntax(buffer) match { |
|
30 |
case Some(syntax) => |
|
31 |
val limit = PIDE.options.value.int("jedit_structure_limit") max 0 |
|
63422 | 32 |
|
63423 | 33 |
val indent = 0 // FIXME |
34 |
||
35 |
actions.clear() |
|
36 |
actions.add(new IndentAction.AlignOffset(indent)) |
|
37 |
case _ => |
|
38 |
} |
|
39 |
case _ => |
|
40 |
} |
|
63422 | 41 |
} |
42 |
} |
|
43 |
||
44 |
||
45 |
/* structure matching */ |
|
46 |
||
47 |
object Matcher extends StructureMatcher |
|
58748 | 48 |
{ |
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
49 |
private def find_block( |
58752 | 50 |
open: Token => Boolean, |
51 |
close: Token => Boolean, |
|
52 |
reset: Token => Boolean, |
|
58762 | 53 |
restrict: Token => Boolean, |
58754 | 54 |
it: Iterator[Text.Info[Token]]): Option[(Text.Range, Text.Range)] = |
58752 | 55 |
{ |
58754 | 56 |
val range1 = it.next.range |
58762 | 57 |
it.takeWhile(info => !info.info.is_command || restrict(info.info)). |
58 |
scanLeft((range1, 1))( |
|
59 |
{ case ((r, d), Text.Info(range, tok)) => |
|
60 |
if (open(tok)) (range, d + 1) |
|
61 |
else if (close(tok)) (range, d - 1) |
|
62 |
else if (reset(tok)) (range, 0) |
|
63 |
else (r, d) } |
|
64 |
).collectFirst({ case (range2, 0) => (range1, range2) }) |
|
58752 | 65 |
} |
66 |
||
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
67 |
private def find_pair(text_area: TextArea): Option[(Text.Range, Text.Range)] = |
58748 | 68 |
{ |
69 |
val buffer = text_area.getBuffer |
|
70 |
val caret_line = text_area.getCaretLine |
|
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
71 |
val caret = text_area.getCaretPosition |
58748 | 72 |
|
59074 | 73 |
Isabelle.buffer_syntax(text_area.getBuffer) match { |
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
74 |
case Some(syntax) => |
58750 | 75 |
val limit = PIDE.options.value.int("jedit_structure_limit") max 0 |
76 |
||
58901 | 77 |
def is_command_kind(token: Token, pred: String => Boolean): Boolean = |
59122 | 78 |
token.is_command_kind(syntax.keywords, pred) |
58900 | 79 |
|
58750 | 80 |
def iterator(line: Int, lim: Int = limit): Iterator[Text.Info[Token]] = |
58756
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
81 |
Token_Markup.line_token_iterator(syntax, buffer, line, line + lim). |
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
82 |
filter(_.info.is_proper) |
58750 | 83 |
|
84 |
def rev_iterator(line: Int, lim: Int = limit): Iterator[Text.Info[Token]] = |
|
58756
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
85 |
Token_Markup.line_token_reverse_iterator(syntax, buffer, line, line - lim). |
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
86 |
filter(_.info.is_proper) |
58750 | 87 |
|
58752 | 88 |
def caret_iterator(): Iterator[Text.Info[Token]] = |
89 |
iterator(caret_line).dropWhile(info => !info.range.touches(caret)) |
|
90 |
||
91 |
def rev_caret_iterator(): Iterator[Text.Info[Token]] = |
|
92 |
rev_iterator(caret_line).dropWhile(info => !info.range.touches(caret)) |
|
93 |
||
58756
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
94 |
iterator(caret_line, 1).find(info => info.range.touches(caret)) |
eb5d0c58564d
ignore improper tokens to avoid ambiguity of Range.touches (assuming that relevant tokens are separated properly);
wenzelm
parents:
58755
diff
changeset
|
95 |
match { |
58901 | 96 |
case Some(Text.Info(range1, tok)) if is_command_kind(tok, Keyword.theory_goal) => |
58755 | 97 |
find_block( |
58901 | 98 |
is_command_kind(_, Keyword.proof_goal), |
99 |
is_command_kind(_, Keyword.qed), |
|
100 |
is_command_kind(_, Keyword.qed_global), |
|
58762 | 101 |
t => |
58901 | 102 |
is_command_kind(t, Keyword.diag) || |
103 |
is_command_kind(t, Keyword.proof), |
|
58755 | 104 |
caret_iterator()) |
105 |
||
58901 | 106 |
case Some(Text.Info(range1, tok)) if is_command_kind(tok, Keyword.proof_goal) => |
58755 | 107 |
find_block( |
58901 | 108 |
is_command_kind(_, Keyword.proof_goal), |
109 |
is_command_kind(_, Keyword.qed), |
|
58755 | 110 |
_ => false, |
58762 | 111 |
t => |
58901 | 112 |
is_command_kind(t, Keyword.diag) || |
113 |
is_command_kind(t, Keyword.proof), |
|
58755 | 114 |
caret_iterator()) |
115 |
||
58901 | 116 |
case Some(Text.Info(range1, tok)) if is_command_kind(tok, Keyword.qed_global) => |
117 |
rev_caret_iterator().find(info => is_command_kind(info.info, Keyword.theory)) |
|
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
118 |
match { |
58750 | 119 |
case Some(Text.Info(range2, tok)) |
58901 | 120 |
if is_command_kind(tok, Keyword.theory_goal) => Some((range1, range2)) |
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
121 |
case _ => None |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
122 |
} |
58752 | 123 |
|
58901 | 124 |
case Some(Text.Info(range1, tok)) if is_command_kind(tok, Keyword.qed) => |
58755 | 125 |
find_block( |
58901 | 126 |
is_command_kind(_, Keyword.qed), |
58755 | 127 |
t => |
58901 | 128 |
is_command_kind(t, Keyword.proof_goal) || |
129 |
is_command_kind(t, Keyword.theory_goal), |
|
58755 | 130 |
_ => false, |
58762 | 131 |
t => |
58901 | 132 |
is_command_kind(t, Keyword.diag) || |
133 |
is_command_kind(t, Keyword.proof) || |
|
134 |
is_command_kind(t, Keyword.theory_goal), |
|
58755 | 135 |
rev_caret_iterator()) |
136 |
||
58752 | 137 |
case Some(Text.Info(range1, tok)) if tok.is_begin => |
58762 | 138 |
find_block(_.is_begin, _.is_end, _ => false, _ => true, caret_iterator()) |
58752 | 139 |
|
140 |
case Some(Text.Info(range1, tok)) if tok.is_end => |
|
58762 | 141 |
find_block(_.is_end, _.is_begin, _ => false, _ => true, rev_caret_iterator()) |
58763 | 142 |
match { |
143 |
case Some((_, range2)) => |
|
58800
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
144 |
rev_caret_iterator(). |
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
145 |
dropWhile(info => info.range != range2). |
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
146 |
dropWhile(info => info.range == range2). |
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
147 |
find(info => info.info.is_command || info.info.is_begin) |
58763 | 148 |
match { |
58800
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
149 |
case Some(Text.Info(range3, tok)) => |
58901 | 150 |
if (is_command_kind(tok, Keyword.theory_block)) Some((range1, range3)) |
58800
bfed1c26caed
explicit keyword category for commands that may start a block;
wenzelm
parents:
58763
diff
changeset
|
151 |
else Some((range1, range2)) |
58763 | 152 |
case None => None |
153 |
} |
|
154 |
case None => None |
|
155 |
} |
|
58752 | 156 |
|
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
157 |
case _ => None |
58748 | 158 |
} |
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
159 |
case None => None |
58748 | 160 |
} |
161 |
} |
|
162 |
||
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
163 |
def getMatch(text_area: TextArea): StructureMatcher.Match = |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
164 |
find_pair(text_area) match { |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
165 |
case Some((_, range)) => |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
166 |
val line = text_area.getBuffer.getLineOfOffset(range.start) |
63422 | 167 |
new StructureMatcher.Match(Matcher, line, range.start, line, range.stop) |
58749
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
168 |
case None => null |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
169 |
} |
83b0f633190e
some structure matching, based on line token iterators;
wenzelm
parents:
58748
diff
changeset
|
170 |
|
58748 | 171 |
def selectMatch(text_area: TextArea) |
172 |
{ |
|
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
173 |
def get_span(offset: Text.Offset): Option[Text.Range] = |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
174 |
for { |
59074 | 175 |
syntax <- Isabelle.buffer_syntax(text_area.getBuffer) |
58803
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
176 |
span <- Token_Markup.command_span(syntax, text_area.getBuffer, offset) |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
177 |
} yield span.range |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
178 |
|
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
179 |
find_pair(text_area) match { |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
180 |
case Some((r1, r2)) => |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
181 |
(get_span(r1.start), get_span(r2.start)) match { |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
182 |
case (Some(range1), Some(range2)) => |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
183 |
val start = range1.start min range2.start |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
184 |
val stop = range1.stop max range2.stop |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
185 |
|
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
186 |
text_area.moveCaretPosition(stop, false) |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
187 |
if (!text_area.isMultipleSelectionEnabled) text_area.selectNone |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
188 |
text_area.addToSelection(new Selection.Range(start, stop)) |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
189 |
case _ => |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
190 |
} |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
191 |
case None => |
7a0f675eb671
proper selectMatch, e.g. relevant for S-click on gutter;
wenzelm
parents:
58800
diff
changeset
|
192 |
} |
58748 | 193 |
} |
194 |
} |
|
195 |
} |