!include once #1015780 // RSyntaxTextArea libs / imports [include]

import org.fife.ui.rsyntaxtextarea.RSyntaxDocument;

sclass RSTADummyParser extends org.fife.ui.rsyntaxtextarea.parser.AbstractParser {

  delegate ParseResult, DefaultParseResult, DefaultParserNotice

    to org.fife.ui.rsyntaxtextarea.parser.

  // list of errors to show. also used to verify that we're on the

  // correct text version

  gettable L<Error> errors;

  sclass Error {

    settable TokenRangeWithSrc tokenRange;

    settable S msg;

  }

  @Override

  public ParseResult parse(RSyntaxDocument doc, String style) ctex {

    var result = new DefaultParseResult(this);

    var errors = this.errors;

    if (empty(errors)) ret result;

    // if wrong text, temporarily return no errors

    // (forceReparse will be called by actual parser)

    S text = doc.getText(0, doc.getLength());

    if (!eq(text, first(errors).tokenRange.fullSourceText()))

      ret result;

    // We're on the right text, convert messages and return them  

    for (Error e : errors) {

      LineAndColumn start = e.tokenRange.startLineAndCol();

      LineAndColumn end = e.tokenRange.endLineAndCol();

      int length = end.line > start.line

        // spanning multiple lines

        ? lengthOfLine(text, start.line-1)-(start.col-1)

        // start and end in same line

        : end.col-start.col;

      result.addNotice(new DefaultParserNotice(this,

        e.msg, start.line-1, start.col-1, length));

    }

    ret result;

  }

  void setErrors(L<Error> errors, RSyntaxTextArea textArea) {

    this.errors = errors;

    swing {

      textArea.forceReparsing(RSTADummyParser.this);

    }

  }

  void install(RSyntaxTextArea textArea) swing {

    textArea.addParser(RSTADummyParser.this);

  }

}