src/Tools/jEdit/src/jedit/document_model.scala
author wenzelm
Mon, 04 Jan 2010 19:08:10 +0100
changeset 34835 67733fd0e3fa
parent 34834 df9af932e418
child 34838 08a72dc4868e
permissions -rw-r--r--
back to explicit management of documents -- not as generic Session.Entity -- to avoid ill-defined referencing of new states; recent_document: require finished state assignment; explicitly typed Session.lookup_command;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
34407
aad6834ba380 added some headers and comments;
wenzelm
parents: 34406
diff changeset
     1
/*
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
     2
 * Document model connected to jEdit buffer
34407
aad6834ba380 added some headers and comments;
wenzelm
parents: 34406
diff changeset
     3
 *
aad6834ba380 added some headers and comments;
wenzelm
parents: 34406
diff changeset
     4
 * @author Fabian Immler, TU Munich
34447
wenzelm
parents: 34446
diff changeset
     5
 * @author Makarius
34407
aad6834ba380 added some headers and comments;
wenzelm
parents: 34406
diff changeset
     6
 */
aad6834ba380 added some headers and comments;
wenzelm
parents: 34406
diff changeset
     7
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
     8
package isabelle.jedit
34760
dc7f5e0d9d27 misc modernization of names;
wenzelm
parents: 34759
diff changeset
     9
34318
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff changeset
    10
34823
2f3ea37c5958 renamed Proof_Document to Document;
wenzelm
parents: 34814
diff changeset
    11
import isabelle.proofdocument.{Change, Command, Edit, Insert, Remove, Document, Session}
34783
cb95d6bbf5f1 clarified BufferListener: use adapter, listen to contentInserted instead of preContentInserted;
wenzelm
parents: 34778
diff changeset
    12
34703
ff037c17332a minor tuning;
wenzelm
parents: 34696
diff changeset
    13
import scala.actors.Actor, Actor._
34693
3e995f100ad2 sealed Edit;
wenzelm
parents: 34685
diff changeset
    14
import scala.collection.mutable
34446
5c79f97ec1d1 superficial tuning;
wenzelm
parents: 34445
diff changeset
    15
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    16
import org.gjt.sp.jedit.Buffer
34783
cb95d6bbf5f1 clarified BufferListener: use adapter, listen to contentInserted instead of preContentInserted;
wenzelm
parents: 34778
diff changeset
    17
import org.gjt.sp.jedit.buffer.{BufferAdapter, BufferListener, JEditBuffer}
34649
70759ca6bb87 activation
immler@in.tum.de
parents: 34648
diff changeset
    18
import org.gjt.sp.jedit.syntax.{ModeProvider, SyntaxStyle}
34318
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff changeset
    19
34760
dc7f5e0d9d27 misc modernization of names;
wenzelm
parents: 34759
diff changeset
    20
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    21
object Document_Model
34588
e8ac8794971f superficial tuning;
wenzelm
parents: 34583
diff changeset
    22
{
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    23
  /* document model of buffer */
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    24
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    25
  private val key = "isabelle.document_model"
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    26
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    27
  def init(session: Session, buffer: Buffer): Document_Model =
34716
b8f2b44529fd tuned color (PG 4.0);
wenzelm
parents: 34712
diff changeset
    28
  {
34789
30528e68f774 some explicit Swing_Thread guards;
wenzelm
parents: 34788
diff changeset
    29
    Swing_Thread.assert()
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    30
    val model = new Document_Model(session, buffer)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    31
    buffer.setProperty(key, model)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    32
    model.activate()
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    33
    model
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    34
  }
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    35
34788
3779c54a2d21 direct apply for Document_Model and Document_View;
wenzelm
parents: 34784
diff changeset
    36
  def apply(buffer: Buffer): Option[Document_Model] =
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    37
  {
34789
30528e68f774 some explicit Swing_Thread guards;
wenzelm
parents: 34788
diff changeset
    38
    Swing_Thread.assert()
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    39
    buffer.getProperty(key) match {
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    40
      case model: Document_Model => Some(model)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    41
      case _ => None
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    42
    }
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    43
  }
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    44
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    45
  def exit(buffer: Buffer)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    46
  {
34789
30528e68f774 some explicit Swing_Thread guards;
wenzelm
parents: 34788
diff changeset
    47
    Swing_Thread.assert()
34788
3779c54a2d21 direct apply for Document_Model and Document_View;
wenzelm
parents: 34784
diff changeset
    48
    apply(buffer) match {
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    49
      case None => error("No document model for buffer: " + buffer)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    50
      case Some(model) =>
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    51
        model.deactivate()
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    52
        buffer.unsetProperty(key)
34653
2e033aaf128e commands carrying state-information
immler@in.tum.de
parents: 34652
diff changeset
    53
    }
34318
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff changeset
    54
  }
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff changeset
    55
}
c13e168a8ae6 original sources from Johannes Hölzl a48e0c6ab1aea77c52d596f7efc007a543d3d10c with minor modifications of directory layout;
wenzelm
parents:
diff changeset
    56
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
    57
class Document_Model(val session: Session, val buffer: Buffer)
34588
e8ac8794971f superficial tuning;
wenzelm
parents: 34583
diff changeset
    58
{
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
    59
  /* history */
34731
c0cb6bd10eec keep BufferListener and TextAreaExtension private;
wenzelm
parents: 34724
diff changeset
    60
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
    61
  private val document_0 = session.begin_document(buffer.getName)
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
    62
34830
wenzelm
parents: 34829
diff changeset
    63
  @volatile private var history =  // owned by Swing thread
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
    64
    new Change(None, Nil, document_0.id, Future.value(document_0, Nil))
34731
c0cb6bd10eec keep BufferListener and TextAreaExtension private;
wenzelm
parents: 34724
diff changeset
    65
34830
wenzelm
parents: 34829
diff changeset
    66
  def current_change(): Change = history
34660
e0561943bfc9 Change consisting of a list of Edits
immler@in.tum.de
parents: 34654
diff changeset
    67
34824
ac35eee85f5c renamed current_document to recent_document (might be a bit older than current_change);
wenzelm
parents: 34823
diff changeset
    68
  def recent_document(): Document =
ac35eee85f5c renamed current_document to recent_document (might be a bit older than current_change);
wenzelm
parents: 34823
diff changeset
    69
  {
ac35eee85f5c renamed current_document to recent_document (might be a bit older than current_change);
wenzelm
parents: 34823
diff changeset
    70
    def find(change: Change): Document =
34835
67733fd0e3fa back to explicit management of documents -- not as generic Session.Entity -- to avoid ill-defined referencing of new states;
wenzelm
parents: 34834
diff changeset
    71
      if (change.result.is_finished && change.document.is_assigned || !change.parent.isDefined)
67733fd0e3fa back to explicit management of documents -- not as generic Session.Entity -- to avoid ill-defined referencing of new states;
wenzelm
parents: 34834
diff changeset
    72
        change.document
34824
ac35eee85f5c renamed current_document to recent_document (might be a bit older than current_change);
wenzelm
parents: 34823
diff changeset
    73
      else find(change.parent.get)
34829
wenzelm
parents: 34828
diff changeset
    74
    find(current_change())
34824
ac35eee85f5c renamed current_document to recent_document (might be a bit older than current_change);
wenzelm
parents: 34823
diff changeset
    75
  }
34654
30f588245884 arbitrary history
immler@in.tum.de
parents: 34653
diff changeset
    76
34731
c0cb6bd10eec keep BufferListener and TextAreaExtension private;
wenzelm
parents: 34724
diff changeset
    77
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    78
  /* transforming offsets */
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    79
34823
2f3ea37c5958 renamed Proof_Document to Document;
wenzelm
parents: 34814
diff changeset
    80
  private def changes_from(doc: Document): List[Edit] =
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
    81
  {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
    82
    Swing_Thread.assert()
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
    83
    (edits_buffer.toList /:
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
    84
      current_change.ancestors.takeWhile(_.id != doc.id))((edits, change) => change.edits ::: edits)
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
    85
  }
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    86
34823
2f3ea37c5958 renamed Proof_Document to Document;
wenzelm
parents: 34814
diff changeset
    87
  def from_current(doc: Document, offset: Int): Int =
34718
39e3039645ae corrected order
immler@in.tum.de
parents: 34717
diff changeset
    88
    (offset /: changes_from(doc).reverse) ((i, change) => change before i)
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    89
34823
2f3ea37c5958 renamed Proof_Document to Document;
wenzelm
parents: 34814
diff changeset
    90
  def to_current(doc: Document, offset: Int): Int =
34718
39e3039645ae corrected order
immler@in.tum.de
parents: 34717
diff changeset
    91
    (offset /: changes_from(doc)) ((i, change) => change after i)
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    92
34834
df9af932e418 slightly more uniform/robust handling of visible document;
wenzelm
parents: 34833
diff changeset
    93
  def lines_of_command(doc: Document, cmd: Command): (Int, Int) =
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    94
  {
34834
df9af932e418 slightly more uniform/robust handling of visible document;
wenzelm
parents: 34833
diff changeset
    95
    (buffer.getLineOfOffset(to_current(doc, cmd.start(doc))),
df9af932e418 slightly more uniform/robust handling of visible document;
wenzelm
parents: 34833
diff changeset
    96
     buffer.getLineOfOffset(to_current(doc, cmd.stop(doc))))
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    97
  }
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    98
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
    99
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   100
  /* text edits */
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   101
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   102
  private val edits_buffer = new mutable.ListBuffer[Edit]   // owned by Swing thread
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   103
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   104
  private val edits_delay = Swing_Thread.delay_last(300) {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   105
    if (!edits_buffer.isEmpty) {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   106
      val edits = edits_buffer.toList
34829
wenzelm
parents: 34828
diff changeset
   107
      val change1 = current_change()
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
   108
      val result_id = session.create_id()
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   109
      val result: Future[Document.Result] = Future.fork {
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
   110
        Document.text_edits(session, change1.document, result_id, edits)
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   111
      }
34833
683ddf358698 recovered explicit Changed.id (copy of future document) -- avoids premature joining of result;
wenzelm
parents: 34830
diff changeset
   112
      val change2 = new Change(Some(change1), edits, result_id, result)
34830
wenzelm
parents: 34829
diff changeset
   113
      history = change2
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   114
      result.map(_ => session.input(change2))
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   115
      edits_buffer.clear
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   116
    }
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   117
  }
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   118
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   119
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   120
  /* buffer listener */
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   121
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   122
  private val buffer_listener: BufferListener = new BufferAdapter
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   123
  {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   124
    override def contentInserted(buffer: JEditBuffer,
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   125
      start_line: Int, offset: Int, num_lines: Int, length: Int)
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   126
    {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   127
      edits_buffer += Insert(offset, buffer.getText(offset, length))
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   128
      edits_delay()
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   129
    }
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   130
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   131
    override def preContentRemoved(buffer: JEditBuffer,
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   132
      start_line: Int, start: Int, num_lines: Int, removed_length: Int)
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   133
    {
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   134
      edits_buffer += Remove(start, buffer.getText(start, removed_length))
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   135
      edits_delay()
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   136
    }
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   137
  }
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   138
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   139
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   140
  /* activation */
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   141
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   142
  def activate()
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   143
  {
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   144
    buffer.setTokenMarker(new Isabelle_Token_Marker(this))
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   145
    buffer.addBufferListener(buffer_listener)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   146
    buffer.propertiesChanged()
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   147
34828
c2308b317244 misc tuning;
wenzelm
parents: 34827
diff changeset
   148
    edits_buffer += Insert(0, buffer.getText(0, buffer.getLength))
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   149
    edits_delay()
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   150
  }
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   151
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   152
  def deactivate()
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   153
  {
34784
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   154
    buffer.setTokenMarker(buffer.getMode.getTokenMarker)
02959dcea756 split Theory_View into Document_Model (connected to Buffer) and Document_View (connected to JEditTextArea);
wenzelm
parents: 34783
diff changeset
   155
    buffer.removeBufferListener(buffer_listener)
34680
1f1f6c95de64 clarified structure of TheoryView
immler@in.tum.de
parents: 34679
diff changeset
   156
  }
34447
wenzelm
parents: 34446
diff changeset
   157
}