Ability to include and exclude specific constructs in AST about delphiast HOT 2 OPEN

procedure NodeToXMLInternal(const Node: TSyntaxNode; const Indent: string);
  var
    HasChildren: Boolean;
    NewIndent: string;
    Attr: TPair<TAttributeType, string>;
    ChildNode: TSyntaxNode;
    NodeOK: boolean;
  begin
    NodeOK:= not(Node.Typ in Exclude) and (Node.Typ in InternalInclude);
    HasChildren := Node.HasChildren;
    if NodeOK then begin
      if Formatted then begin
        NewIndent:= Indent + '  ';
        Builder.Append(Indent);
      end;
      Builder.Append('<' + UpperCase(SyntaxNodeNames[Node.Typ]));

      if (Node is TCompoundSyntaxNode) then begin
        Builder.Append(' begin_line="' + IntToStr(TCompoundSyntaxNode(Node).Line) + '"');
        Builder.Append(' begin_col="' + IntToStr(TCompoundSyntaxNode(Node).Col) + '"');
        Builder.Append(' end_line="' + IntToStr(TCompoundSyntaxNode(Node).EndLine) + '"');
        Builder.Append(' end_col="' + IntToStr(TCompoundSyntaxNode(Node).EndCol) + '"');
      end else begin
        Builder.Append(' line="' + IntToStr(Node.Line) + '"');
        Builder.Append(' col="' + IntToStr(Node.Col) + '"');
      end;

      for Attr in Node.Attributes do Builder.Append(' ' + AttributeName[Attr.Key] + '="' + XMLEncode(Attr.Value) + '"');
      if HasChildren then Builder.Append('>')
      else Builder.Append('/>');
      if Formatted then Builder.AppendLine;
    end;
    for ChildNode in Node.ChildNodes do NodeToXMLInternal(ChildNode, NewIndent);
    if NodeOK then begin
      if HasChildren then begin
        if Formatted then Builder.Append(Indent);
        Builder.Append('</' + UpperCase(SyntaxNodeNames[Node.Typ]) + '>');
        if Formatted then Builder.AppendLine;
      end;
    end;
  end;

begin
  if Include = [] then InternalInclude:= [ntUnknown..ntWrite]
  else InternalInclude:= Include;
  NodeToXMLInternal(Node, '');
end;