Update Clang sources to r73879.

1 files changed, 127 insertions, 0 deletions

diff --git a/lib/Frontend/TypeXML.cpp b/lib/Frontend/TypeXML.cpp
new file mode 100644
index 0000000..f32fbbd
--- /dev/null
+++ b/lib/Frontend/TypeXML.cpp
@@ -0,0 +1,127 @@
+//===--- DocumentXML.cpp - XML document for ASTs --------------------------===//
+//
+//                     The LLVM Compiler Infrastructure
+//
+// This file is distributed under the University of Illinois Open Source
+// License. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+//
+// This file implements the XML document class, which provides the means to 
+// dump out the AST in a XML form that exposes type details and other fields.
+//
+//===----------------------------------------------------------------------===//
+
+#include "clang/Frontend/DocumentXML.h"
+#include "clang/AST/TypeVisitor.h"
+#include "clang/AST/Type.h"
+#include "clang/AST/Decl.h"
+
+namespace clang {
+  namespace XML {
+    namespace {
+
+//--------------------------------------------------------- 
+class TypeWriter : public TypeVisitor<TypeWriter>
+{
+  DocumentXML& Doc;
+
+public:
+  TypeWriter(DocumentXML& doc) : Doc(doc) {}
+
+#define NODE_XML( CLASS, NAME )          \
+  void Visit##CLASS(CLASS* T)            \
+  {                                      \
+    Doc.addSubNode(NAME);         
+
+#define ID_ATTRIBUTE_XML                // done by the Document class itself
+#define ATTRIBUTE_XML( FN, NAME )       Doc.addAttribute(NAME, T->FN); 
+#define TYPE_ATTRIBUTE_XML( FN )        ATTRIBUTE_XML(FN, "type")
+#define CONTEXT_ATTRIBUTE_XML( FN )     ATTRIBUTE_XML(FN, "context")
+#define ATTRIBUTE_OPT_XML( FN, NAME )   Doc.addAttributeOptional(NAME, T->FN); 
+
+#define ATTRIBUTE_ENUM_XML( FN, NAME )  \
+  {                                     \
+    const char* pAttributeName = NAME;  \
+    const bool optional = false;             \
+    switch (T->FN) {                    \
+      default: assert(0 && "unknown enum value"); 
+
+#define ATTRIBUTE_ENUM_OPT_XML( FN, NAME )  \
+  {                                     \
+    const char* pAttributeName = NAME;  \
+    const bool optional = true;              \
+    switch (T->FN) {                    \
+      default: assert(0 && "unknown enum value"); 
+
+#define ENUM_XML( VALUE, NAME )         case VALUE: if ((!optional) || NAME[0]) Doc.addAttribute(pAttributeName, NAME); break;
+#define END_ENUM_XML                    } }
+#define END_NODE_XML                    }
+
+#include "clang/Frontend/TypeXML.def"
+
+};
+
+//--------------------------------------------------------- 
+    } // anon clang
+  } // NS XML
+
+//--------------------------------------------------------- 
+class DocumentXML::TypeAdder : public TypeVisitor<DocumentXML::TypeAdder>
+{
+  DocumentXML& Doc;
+
+  void addIfType(const Type* pType)
+  {
+    Doc.addTypeRecursively(pType);
+  }
+
+  void addIfType(const QualType& pType)
+  {
+    Doc.addTypeRecursively(pType);
+  }
+
+  template<class T> void addIfType(T) {}
+
+public:
+  TypeAdder(DocumentXML& doc) : Doc(doc) {}
+
+#define NODE_XML( CLASS, NAME )          \
+  void Visit##CLASS(CLASS* T)            \
+  {                                      
+
+#define ID_ATTRIBUTE_XML                
+#define TYPE_ATTRIBUTE_XML( FN )        Doc.addTypeRecursively(T->FN); 
+#define CONTEXT_ATTRIBUTE_XML( FN )     
+#define ATTRIBUTE_XML( FN, NAME )       addIfType(T->FN); 
+#define ATTRIBUTE_OPT_XML( FN, NAME )   
+#define ATTRIBUTE_ENUM_XML( FN, NAME )  
+#define ATTRIBUTE_ENUM_OPT_XML( FN, NAME )  
+#define ENUM_XML( VALUE, NAME )         
+#define END_ENUM_XML                    
+#define END_NODE_XML                    }
+
+#include "clang/Frontend/TypeXML.def"
+};
+
+//--------------------------------------------------------- 
+void DocumentXML::addParentTypes(const Type* pType)
+{
+  TypeAdder(*this).Visit(const_cast<Type*>(pType));
+}
+
+//--------------------------------------------------------- 
+void DocumentXML::writeTypeToXML(const Type* pType)
+{
+  XML::TypeWriter(*this).Visit(const_cast<Type*>(pType));
+}
+
+//--------------------------------------------------------- 
+void DocumentXML::writeTypeToXML(const QualType& pType)
+{
+  XML::TypeWriter(*this).VisitQualType(const_cast<QualType*>(&pType));
+}
+
+//--------------------------------------------------------- 
+} // NS clang
+