#5 Debug Support

XmlGenerator : {
  members += f.toMethod(f.name + "XmlGenerator", f.newTypeRef(typeof(String))) [
    documentation = f.documentation
    body = [
      val varName = declareVariable(this, "sb")
      var t = trace(f, true)
      f.newTypeRef(typeof(StringBuilder)).serialize(f, t)
      t.append(''' «varName» = new ''')
      f.newTypeRef(typeof(StringBuilder)).serialize(f, t)
      t.append(''' ();''').newLine
      inferXml(f.block, 0)
      trace(f).append('''return «varName».toString();''').newLine
    ]
  ]
}

def dispatch inferXml(ITreeAppendable it, XmlTags tags, int indentation) {
  for (tag : tags.tags) {
    var t =trace(tag, true)
    t.indent(indentation)
    t.outputln('''"<«tag.name»>"''')
    inferXml(tag.block, indentation + 1)
    trace(tag).indent(indentation)
    trace(tag).outputln('''"</«tag.name»>"''')
  }
}
def dispatch void inferXml(ITreeAppendable it, XmlContent content, int indentation) {
  val t = trace(content, true)
  t.indent(indentation)
  t.outputln('''this.«content.property.name»''')
}

def indent(ITreeAppendable it, int indentation) {
  val spaces = (0..indentation).map [""].reduce [ result, next |
    result + "  "
  ]
  output('''"«spaces»"''')
}

def outputln(ITreeAppendable it, String content) {
  val varName = getName(this)
  append('''«varName».append(«content»);''').newLine
  append('''«varName».append("\n");''').newLine
  append('''System.out.println(«content»);''').newLine
}

def output(ITreeAppendable it, String content) {
  val varName = getName(this)
  append('''«varName».append(«content»);''').newLine
  append('''System.out.print(«content»);''').newLine
}

@Override
public Class<? extends IStratumBreakpointSupport> bindIStratumBreakpointSupport() {
  return MyStratumBreakpointSupport.class;
}

public class MyStratumBreakpointSupport implements IStratumBreakpointSupport {

  public boolean isValidLineForBreakPoint(XtextResource resource, int line) {
    IParseResult parseResult = resource.getParseResult();
    if (parseResult == null)
      return false;
    ICompositeNode node = parseResult.getRootNode();
    return isValidLineForBreakpoint(node, line);
  }

  protected boolean isValidLineForBreakpoint(ICompositeNode node, int line) {
    for (INode n : node.getChildren()) {
      if (n.getStartLine()<= line && n.getEndLine() >= line) {
        EObject eObject = n.getSemanticElement();
        if (eObject instanceof XExpression && !(eObject.eClass() == XbasePackage.Literals.XBLOCK_EXPRESSION)) {
          return true;
        }
        if (n instanceof ICompositeNode && isValidLineForBreakpoint((ICompositeNode) n, line)) {
          return true;
        }
        if (eObject instanceof XmlGenerator) {
          return true;
        }
      }
      if (n.getStartLine() > line) {
        return false;
      }
    }
    return false;
  }

}