src/Tools/jEdit/src/jedit/DynamicTokenMarker.scala
author immler@in.tum.de
Wed, 04 Feb 2009 01:38:48 +0100
changeset 34522 7cd619ee3917
parent 34518 7407bc6cf28d
child 34523 e19f33968557
permissions -rw-r--r--
removed redundant code
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     1
/*
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     2
 * include isabelle's command- and keyword-declarations
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     3
 * live in jEdits syntax-highlighting
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
     4
 *
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     5
 * @author Fabian Immler, TU Munich
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     6
 */
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     7
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     8
package isabelle.jedit
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
     9
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    10
import isabelle.proofdocument.ProofDocument
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    11
import isabelle.prover.{Command, MarkupNode}
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    12
import isabelle.Markup
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    13
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    14
import org.gjt.sp.jedit.buffer.JEditBuffer
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    15
import org.gjt.sp.jedit.syntax._
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    16
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    17
import java.awt.Color
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    18
import java.awt.Font
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    19
import javax.swing.text.Segment;
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    20
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    21
object DynamicTokenMarker {
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    22
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    23
  def styles: Array[SyntaxStyle] = {
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    24
    val array = new Array[SyntaxStyle](256)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    25
    // array(0) won't be used: reserved for global default-font
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    26
    array(1) = new SyntaxStyle(Color.black, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    27
    array(2) = new SyntaxStyle(new Color(255, 0, 255), Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    28
    array(3) = new SyntaxStyle(Color.blue, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    29
    array(4) = new SyntaxStyle(Color.green, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    30
    array(5) = new SyntaxStyle(new Color(255, 128, 128), Color.white,Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    31
    array(6) = new SyntaxStyle(Color.yellow, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    32
    array(7) = new SyntaxStyle( new Color(0, 192, 0), Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    33
    array(8) = new SyntaxStyle(Color.blue, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    34
    array(9) = new SyntaxStyle(Color.green, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    35
    array(10) = new SyntaxStyle(Color.gray, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    36
    array(11) = new SyntaxStyle(Color.white, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    37
    array(12) = new SyntaxStyle(Color.red, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    38
    array(13) = new SyntaxStyle(Color.orange, Color.white, Isabelle.plugin.font)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    39
    return array
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    40
  }
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    41
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    42
  def choose_byte(kind: String): Byte = {
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    43
    // TODO: as properties
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    44
    kind match {
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    45
      // logical entities
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    46
      case Markup.TCLASS | Markup.TYCON | Markup.FIXED_DECL | Markup.FIXED | Markup.CONST_DECL
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    47
        | Markup.CONST | Markup.FACT_DECL | Markup.FACT | Markup.DYNAMIC_FACT
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    48
        | Markup.LOCAL_FACT_DECL | Markup.LOCAL_FACT => 2
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    49
      // inner syntax
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    50
      case Markup.TFREE | Markup.FREE => 3
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    51
      case Markup.TVAR | Markup.SKOLEM | Markup.BOUND | Markup.VAR => 4
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    52
      case Markup.NUM | Markup.FLOAT | Markup.XNUM | Markup.XSTR | Markup.LITERAL
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    53
        | Markup.INNER_COMMENT => 5
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    54
      case Markup.SORT | Markup.TYP | Markup.TERM | Markup.PROP
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    55
        | Markup.ATTRIBUTE | Markup.METHOD => 6
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    56
      // embedded source text
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    57
      case Markup.ML_SOURCE | Markup.DOC_SOURCE | Markup.ANTIQ | Markup.ML_ANTIQ
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    58
        | Markup.DOC_ANTIQ => 7
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    59
      // outer syntax
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    60
      case Markup.IDENT | Markup.COMMAND | Markup.KEYWORD => 8
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    61
      case Markup.VERBATIM => 9
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    62
      case Markup.COMMENT => 10
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    63
      case Markup.CONTROL => 11
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    64
      case Markup.MALFORMED => 12
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    65
      case Markup.STRING | Markup.ALTSTRING => 13
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    66
      // other
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    67
      case _ => 1
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    68
    }
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    69
  }
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    70
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    71
  def choose_color(kind : String) : Color = styles((choose_byte(kind).asInstanceOf[Byte])).getForegroundColor
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    72
34467
c7d7a92fe3d5 created DynamicTokenMarker
immler@in.tum.de
parents:
diff changeset
    73
}
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    74
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    75
class DynamicTokenMarker(buffer: JEditBuffer, document: ProofDocument) extends TokenMarker {
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    76
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    77
  override def markTokens(prev: TokenMarker.LineContext,
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    78
    handler: TokenHandler, line_segment: Segment): TokenMarker.LineContext = {
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    79
    val previous = prev.asInstanceOf[IndexLineContext]
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    80
    val line = if(prev == null) 0 else previous.line + 1
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    81
    val context = new IndexLineContext(line, previous)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    82
    val start = buffer.getLineStartOffset(line)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    83
    val stop = start + line_segment.count
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    84
    
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    85
    def to = Isabelle.prover_setup(buffer).get.theory_view.to_current(_)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    86
    def from = Isabelle.prover_setup(buffer).get.theory_view.from_current(_)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
    87
34522
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    88
    var next_x = start
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    89
    for {
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    90
      command <- document.commands.dropWhile(_.stop <= from(start)).takeWhile(_.start < from(stop))
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    91
      markup <- command.root_node.flatten
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    92
      if(to(markup.abs_stop) > start)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    93
      if(to(markup.abs_start) < stop)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    94
      byte = DynamicTokenMarker.choose_byte(markup.kind)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    95
      token_start = to(markup.abs_start) - start max 0
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    96
      token_length = to(markup.abs_stop) - to(markup.abs_start) -
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    97
                     (start - to(markup.abs_start) max 0) -
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    98
                     (to(markup.abs_stop) - stop max 0)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
    99
    } {
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   100
      if (start + token_start > next_x)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   101
        handler.handleToken(line_segment, 1, next_x - start, start + token_start - next_x, context)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   102
      handler.handleToken(line_segment, byte, token_start, token_length, context)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   103
      next_x = start + token_start + token_length
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   104
    }
34522
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   105
    if (next_x < stop)
7cd619ee3917 removed redundant code
immler@in.tum.de
parents: 34518
diff changeset
   106
      handler.handleToken(line_segment, 1, next_x - start, stop - next_x, context)
34517
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   107
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   108
    handler.handleToken(line_segment,Token.END, line_segment.count, 0, context)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   109
    handler.setLineContext(context)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   110
    return context
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   111
  }
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   112
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   113
}
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   114
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   115
class IndexLineContext(val line: Int, prev: IndexLineContext)
163cda249619 implemented markTokens;
immler@in.tum.de
parents: 34472
diff changeset
   116
  extends TokenMarker.LineContext(new ParserRuleSet("isabelle", "MAIN"), prev)