!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.
    
  // pair of input text, list of errors to show
  gettable Pair<S, L<Error>> errors;
  
  sclass Error {
    settable LineAndColumn start;
    settable LineAndColumn end;
    settable S msg;
  }

  @Override
  public ParseResult parse(RSyntaxDocument doc, String style) ctex {
    print("RSTADummyParser.parse called");
    var result = new DefaultParseResult(this);
    var p = this.errors;
    if (p == null) ret result;
    S src = p.a;
    var errors = p.b;
    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, src)) {
      print("RSTADummyParser: Wrong text");
      ret result;
    }
    
    // We're on the right text, convert messages and return them  
    for (Error e : errors) {
      LineAndColumn start = e.start;
      LineAndColumn end = e.end;
      int lineLength = lengthOfLine(text, start.line-1);
      /*int col = min(start.col, lineLength);
      int length = end.line > start.line
        // spanning multiple lines
        ? lineLength-(col-1)
        // start and end in same line
        : end.col-col;
      length = max(1, length);
      print("Got error of length " + length + " at " + start.line + " / " + col);
      result.addNotice(new DefaultParserNotice(this,
        e.msg, start.line, col, length));*/
        
      result.addNotice(new DefaultParserNotice(this,
        e.msg, start.line, 1, lineLength));
    }
    
    ret result;
  }
  
  void setErrors(S text, L<Error> errors, RSyntaxTextArea textArea) {
    this.errors = pair(text, errors);
    swing {
      textArea.forceReparsing(RSTADummyParser.this);
      print("Forced reparsing");
    }
  }
  
  void install(RSyntaxTextArea textArea) swing {
    textArea.addParser(RSTADummyParser.this);
    print("Installed " + this);
  }
}