!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) {
    var result = new DefaultParseResult(this);
    pcall {
      var p = this.errors;
      //printVars("RSTADummyParser.parse called", +p);
      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  
      //print("Have " + n2(errors, "error"));
      for (Error e : errors) {
        LineAndColumn start = e.start;
        LineAndColumn end = e.end;
        int lineStart = lineNrToCharIndex(text, start.line);
        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));*/
          
        //print("Got error of length " + lineLength + " at line " + start.line);
        result.addNotice(new DefaultParserNotice(this,
          e.msg, start.line-1, lineStart, lineLength));
      }
    }
    
    //print("Returning result");
    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 + " on " + classNameAndIdentity(textArea));
  }
}