athena/atdna/main.cpp

1897 lines
97 KiB
C++
Raw Normal View History

2017-12-29 07:55:42 +00:00
#include <cstdio>
2015-10-15 21:54:42 +00:00
#include <iostream>
2015-08-03 01:42:47 +00:00
#include "clang/AST/ASTConsumer.h"
#include "clang/AST/RecursiveASTVisitor.h"
#include "clang/Frontend/CompilerInstance.h"
#include "clang/Frontend/FrontendAction.h"
#include "clang/Frontend/Utils.h"
2015-08-03 01:42:47 +00:00
#include "clang/Tooling/Tooling.h"
#include "clang/Lex/Preprocessor.h"
#include "clang/Sema/Sema.h"
#include "clang/AST/RecordLayout.h"
#include "clang/AST/DeclCXX.h"
#include "clang/AST/TypeLoc.h"
#include "clang/Basic/Version.h"
#include "llvm/Support/Format.h"
#include "llvm/Support/CommandLine.h"
using namespace std::literals;
2015-08-03 01:42:47 +00:00
static unsigned AthenaError = 0;
2016-03-04 23:00:12 +00:00
#define ATHENA_DNA_BASETYPE "struct athena::io::DNA"
2015-08-03 01:42:47 +00:00
#ifndef INSTALL_PREFIX
#define INSTALL_PREFIX /usr/local
#endif
#define XSTR(s) STR(s)
#define STR(s) #s
static llvm::cl::opt<bool> Help("h", llvm::cl::desc("Alias for -help"), llvm::cl::Hidden);
static llvm::cl::opt<bool> Verbose("v", llvm::cl::desc("verbose mode"));
2015-08-03 01:42:47 +00:00
static llvm::cl::OptionCategory ATDNAFormatCategory("atdna options");
static llvm::cl::opt<std::string> OutputFilename("o",
llvm::cl::desc("Specify output filename"),
llvm::cl::value_desc("filename"),
llvm::cl::Prefix);
static llvm::cl::opt<bool> FExceptions("fexceptions",
llvm::cl::desc("Enable C++ Exceptions"));
static llvm::cl::opt<bool> FMSCompat("fms-compatibility",
llvm::cl::desc("Enable MS header compatibility"));
static llvm::cl::opt<std::string> FMSCompatVersion("fms-compatibility-version",
llvm::cl::desc("Specify MS compatibility version (18.00 for VS2013, 19.00 for VS2015)"));
static llvm::cl::list<std::string> InputFilenames(llvm::cl::Positional,
llvm::cl::desc("<Input files>"),
llvm::cl::ZeroOrMore);
2015-08-03 01:42:47 +00:00
static llvm::cl::list<std::string> IncludeSearchPaths("I",
llvm::cl::desc("Header search path"),
llvm::cl::Prefix);
static llvm::cl::list<std::string> SystemIncludeSearchPaths("isystem",
llvm::cl::desc("System Header search path"));
static llvm::cl::opt<std::string> StandardCXXLib("stdlib",
llvm::cl::desc("Standard C++ library"));
static llvm::cl::opt<bool> DepFile("MD", llvm::cl::desc("Make Dependency file"));
static llvm::cl::opt<std::string> DepFileOut("MF",
llvm::cl::desc("Dependency file out path"));
static llvm::cl::list<std::string> DepFileTargets("MT",
llvm::cl::desc("Dependency file targets"));
static llvm::cl::list<std::string> SystemIncRoot("isysroot",
llvm::cl::desc("System include root"));
2015-08-03 01:42:47 +00:00
static llvm::cl::list<std::string> PreprocessorDefines("D",
llvm::cl::desc("Preprocessor define"),
llvm::cl::Prefix);
static llvm::cl::opt<bool> EmitIncludes("emit-includes",
llvm::cl::desc("Emit DNA for included files (not just main file)"));
/* LLVM 3.7 changed the stream type */
#if LLVM_VERSION_MAJOR > 3 || (LLVM_VERSION_MAJOR == 3 && LLVM_VERSION_MINOR >= 7)
using StreamOut = llvm::raw_pwrite_stream;
#else
using StreamOut = llvm::raw_fd_ostream;
#endif
class ATDNAEmitVisitor : public clang::RecursiveASTVisitor<ATDNAEmitVisitor>
{
clang::ASTContext& context;
StreamOut& fileOut;
bool isDNARecord(const clang::CXXRecordDecl* record, std::string& baseDNA)
2015-08-03 01:42:47 +00:00
{
for (const clang::CXXBaseSpecifier& base : record->bases())
{
const clang::QualType qtp = base.getType().getCanonicalType();
if (!qtp.getAsString().compare(0, sizeof(ATHENA_DNA_BASETYPE)-1, ATHENA_DNA_BASETYPE))
return true;
}
for (const clang::CXXBaseSpecifier& base : record->bases())
{
clang::QualType qtp = base.getType().getCanonicalType();
const clang::Type* tp = qtp.getTypePtrOrNull();
if (tp)
{
const clang::CXXRecordDecl* rDecl = tp->getAsCXXRecordDecl();
if (rDecl)
{
if (isDNARecord(rDecl, baseDNA))
2015-08-03 01:42:47 +00:00
{
bool hasRead = false;
bool hasWrite = false;
for (const clang::CXXMethodDecl* method : rDecl->methods())
{
std::string compName = method->getDeclName().getAsString();
if (!compName.compare("read"))
hasRead = true;
else if (!compName.compare("write"))
hasWrite = true;
}
if (hasRead && hasWrite)
2016-07-24 01:26:21 +00:00
baseDNA = rDecl->getQualifiedNameAsString();
2015-08-03 01:42:47 +00:00
return true;
}
}
}
}
return false;
}
2015-10-18 04:05:35 +00:00
int64_t GetSizeValue(const clang::Type* theType, unsigned width)
{
if (theType->isEnumeralType())
{
clang::EnumType* eType = (clang::EnumType*)theType;
clang::EnumDecl* eDecl = eType->getDecl();
theType = eDecl->getIntegerType().getCanonicalType().getTypePtr();
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return 1;
}
2015-10-18 04:15:42 +00:00
else if (bType->isUnsignedInteger() || bType->isSignedInteger())
2015-10-18 04:05:35 +00:00
{
return width / 8;
}
}
else if (theType->isBuiltinType())
{
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return 1;
}
2015-10-18 04:15:42 +00:00
else if (bType->isUnsignedInteger() || bType->isSignedInteger() || bType->isFloatingPoint())
2015-10-18 04:05:35 +00:00
{
return width / 8;
}
}
else if (theType->isRecordType())
{
const clang::CXXRecordDecl* rDecl = theType->getAsCXXRecordDecl();
for (const clang::FieldDecl* field : rDecl->fields())
{
if (!field->getName().compare("clangVec"))
{
const clang::VectorType* vType = (clang::VectorType*)field->getType().getTypePtr();
if (vType->isVectorType())
{
const clang::BuiltinType* eType = (clang::BuiltinType*)vType->getElementType().getTypePtr();
const uint64_t width = context.getTypeInfo(eType).Width;
if (!eType->isBuiltinType() || !eType->isFloatingPoint() ||
(width != 32 && width != 64))
continue;
if (vType->getNumElements() == 2)
{
return width / 8 * 2;
}
else if (vType->getNumElements() == 3)
{
return width / 8 * 3;
}
else if (vType->getNumElements() == 4)
{
return width / 8 * 4;
}
}
}
}
}
return 0;
}
#if 0
2015-08-03 01:42:47 +00:00
std::string GetOpString(const clang::Type* theType, unsigned width,
const std::string& fieldName, bool writerPass,
const std::string& funcPrefix, bool& isDNATypeOut)
2015-08-03 01:42:47 +00:00
{
isDNATypeOut = false;
if (writerPass)
{
2015-08-20 22:23:19 +00:00
if (theType->isEnumeralType())
{
clang::EnumType* eType = (clang::EnumType*)theType;
clang::EnumDecl* eDecl = eType->getDecl();
theType = eDecl->getIntegerType().getCanonicalType().getTypePtr();
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_DNA_WRITER ".writeBool(bool(" + fieldName + "));";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_DNA_WRITER ".writeUByte(atUint8(" + fieldName + "));";
else if (width == 16)
return ATHENA_DNA_WRITER ".writeUint16" + funcPrefix + "(atUint16(" + fieldName + "));";
else if (width == 32)
return ATHENA_DNA_WRITER ".writeUint32" + funcPrefix + "(atUint32(" + fieldName + "));";
else if (width == 64)
return ATHENA_DNA_WRITER ".writeUint64" + funcPrefix + "(atUint64(" + fieldName + "));";
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_DNA_WRITER ".writeByte(atInt8(" + fieldName + "));";
else if (width == 16)
return ATHENA_DNA_WRITER ".writeInt16" + funcPrefix + "(atInt16(" + fieldName + "));";
else if (width == 32)
return ATHENA_DNA_WRITER ".writeInt32" + funcPrefix + "(atInt32(" + fieldName + "));";
else if (width == 64)
return ATHENA_DNA_WRITER ".writeInt64" + funcPrefix + "(atInt64(" + fieldName + "));";
}
}
else if (theType->isBuiltinType())
2015-08-03 01:42:47 +00:00
{
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_DNA_WRITER ".writeBool(" + fieldName + ");";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_DNA_WRITER ".writeUByte(" + fieldName + ");";
else if (width == 16)
return ATHENA_DNA_WRITER ".writeUint16" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
else if (width == 32)
return ATHENA_DNA_WRITER ".writeUint32" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_WRITER ".writeUint64" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_DNA_WRITER ".writeByte(" + fieldName + ");";
else if (width == 16)
return ATHENA_DNA_WRITER ".writeInt16" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
else if (width == 32)
return ATHENA_DNA_WRITER ".writeInt32" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_WRITER ".writeInt64" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
}
else if (bType->isFloatingPoint())
{
if (width == 32)
return ATHENA_DNA_WRITER ".writeFloat" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_WRITER ".writeDouble" + funcPrefix + "(" + fieldName + ");";
2015-08-03 01:42:47 +00:00
}
}
else if (theType->isRecordType())
{
const clang::CXXRecordDecl* rDecl = theType->getAsCXXRecordDecl();
for (const clang::FieldDecl* field : rDecl->fields())
{
if (!field->getName().compare("clangVec"))
{
const clang::VectorType* vType = (clang::VectorType*)field->getType().getTypePtr();
if (vType->isVectorType())
{
const clang::BuiltinType* eType = (clang::BuiltinType*)vType->getElementType().getTypePtr();
2015-10-15 21:54:42 +00:00
const uint64_t width = context.getTypeInfo(eType).Width;
2015-08-03 01:42:47 +00:00
if (!eType->isBuiltinType() || !eType->isFloatingPoint() ||
2015-10-15 21:54:42 +00:00
(width != 32 && width != 64))
2015-08-03 01:42:47 +00:00
continue;
if (vType->getNumElements() == 2)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_WRITER ".writeVec2f" + funcPrefix + "(" + fieldName + ");";
else if (width == 64)
return ATHENA_DNA_WRITER ".writeVec2d" + funcPrefix + "(" + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 3)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_WRITER ".writeVec3f" + funcPrefix + "(" + fieldName + ");";
else if (width == 64)
return ATHENA_DNA_WRITER ".writeVec3d" + funcPrefix + "(" + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 4)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_WRITER ".writeVec4f" + funcPrefix + "(" + fieldName + ");";
else if (width == 64)
return ATHENA_DNA_WRITER ".writeVec4d" + funcPrefix + "(" + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
}
}
}
std::string baseDNA;
bool isYAML = false;
if (isDNARecord(rDecl, baseDNA, isYAML))
{
isDNATypeOut = true;
return "write(" ATHENA_DNA_WRITER ");";
}
}
}
else
{
2015-08-20 22:23:19 +00:00
if (theType->isEnumeralType())
{
clang::EnumType* eType = (clang::EnumType*)theType;
clang::EnumDecl* eDecl = eType->getDecl();
theType = eDecl->getIntegerType().getCanonicalType().getTypePtr();
2016-01-06 21:00:32 +00:00
std::string qName = eDecl->getQualifiedNameAsString();
2015-08-20 22:23:19 +00:00
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readBool())";
2015-08-20 22:23:19 +00:00
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readUByte())";
2015-08-20 22:23:19 +00:00
else if (width == 16)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readUint16" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
else if (width == 32)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readUint32" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
else if (width == 64)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readUint64" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
}
else if (bType->isSignedInteger())
{
if (width == 8)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readByte()";
2015-08-20 22:23:19 +00:00
else if (width == 16)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readInt16" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
else if (width == 32)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readInt32" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
else if (width == 64)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_DNA_READER ".readInt64" + funcPrefix + "())";
2015-08-20 22:23:19 +00:00
}
}
else if (theType->isBuiltinType())
2015-08-03 01:42:47 +00:00
{
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_DNA_READER ".readBool()";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_DNA_READER ".readUByte()";
else if (width == 16)
return ATHENA_DNA_READER ".readUint16" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
else if (width == 32)
return ATHENA_DNA_READER ".readUint32" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_READER ".readUint64" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_DNA_READER ".readByte()";
else if (width == 16)
return ATHENA_DNA_READER ".readInt16" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
else if (width == 32)
return ATHENA_DNA_READER ".readInt32" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_READER ".readInt64" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
}
else if (bType->isFloatingPoint())
{
if (width == 32)
return ATHENA_DNA_READER ".readFloat" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
else if (width == 64)
return ATHENA_DNA_READER ".readDouble" + funcPrefix + "()";
2015-08-03 01:42:47 +00:00
}
}
else if (theType->isRecordType())
{
const clang::CXXRecordDecl* rDecl = theType->getAsCXXRecordDecl();
for (const clang::FieldDecl* field : rDecl->fields())
{
if (!field->getName().compare("clangVec"))
{
const clang::VectorType* vType = (clang::VectorType*)field->getType().getTypePtr();
if (vType->isVectorType())
{
const clang::BuiltinType* eType = (clang::BuiltinType*)vType->getElementType().getTypePtr();
2015-10-15 21:54:42 +00:00
const uint64_t width = context.getTypeInfo(eType).Width;
2015-08-03 01:42:47 +00:00
if (!eType->isBuiltinType() || !eType->isFloatingPoint() ||
2015-10-15 21:54:42 +00:00
(width != 32 && width != 64))
2015-08-03 01:42:47 +00:00
continue;
if (vType->getNumElements() == 2)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_READER ".readVec2f" + funcPrefix + "()";
else if (width == 64)
return ATHENA_DNA_READER ".readVec2d" + funcPrefix + "()";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 3)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_READER ".readVec3f" + funcPrefix + "()";
else if (width == 64)
return ATHENA_DNA_READER ".readVec3d" + funcPrefix + "()";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 4)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_DNA_READER ".readVec4f" + funcPrefix + "()";
else if (width == 64)
return ATHENA_DNA_READER ".readVec4d" + funcPrefix + "()";
}
2015-08-03 01:42:47 +00:00
}
}
}
std::string baseDNA;
bool isYAML = false;
if (isDNARecord(rDecl, baseDNA, isYAML))
{
isDNATypeOut = true;
return "read(" ATHENA_DNA_READER ");";
}
}
}
return std::string();
}
std::string GetYAMLString(const clang::Type* theType, unsigned width,
const std::string& fieldName, const std::string& bareFieldName,
bool writerPass, bool& isDNATypeOut)
{
isDNATypeOut = false;
if (writerPass)
{
2015-08-20 22:23:19 +00:00
if (theType->isEnumeralType())
{
clang::EnumType* eType = (clang::EnumType*)theType;
clang::EnumDecl* eDecl = eType->getDecl();
theType = eDecl->getIntegerType().getCanonicalType().getTypePtr();
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_YAML_WRITER ".writeBool(\"" + bareFieldName + "\", bool(" + fieldName + "));";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_YAML_WRITER ".writeUByte(\"" + bareFieldName + "\", atUint8(" + fieldName + "));";
else if (width == 16)
return ATHENA_YAML_WRITER ".writeUint16(\"" + bareFieldName + "\", atUint16(" + fieldName + "));";
else if (width == 32)
return ATHENA_YAML_WRITER ".writeUint32(\"" + bareFieldName + "\", atUint32(" + fieldName + "));";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeUint64(\"" + bareFieldName + "\", atUint64(" + fieldName + "));";
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_YAML_WRITER ".writeByte(\"" + bareFieldName + "\", atInt8(" + fieldName + "));";
else if (width == 16)
return ATHENA_YAML_WRITER ".writeInt16(\"" + bareFieldName + "\", atInt16(" + fieldName + "));";
else if (width == 32)
return ATHENA_YAML_WRITER ".writeInt32(\"" + bareFieldName + "\", atInt32(" + fieldName + "));";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeInt64(\"" + bareFieldName + "\", atInt64(" + fieldName + "));";
}
}
else if (theType->isBuiltinType())
2015-08-03 01:42:47 +00:00
{
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_YAML_WRITER ".writeBool(\"" + bareFieldName + "\", " + fieldName + ");";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_YAML_WRITER ".writeUByte(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 16)
return ATHENA_YAML_WRITER ".writeUint16(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 32)
return ATHENA_YAML_WRITER ".writeUint32(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeUint64(\"" + bareFieldName + "\", " + fieldName + ");";
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_YAML_WRITER ".writeByte(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 16)
return ATHENA_YAML_WRITER ".writeInt16(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 32)
return ATHENA_YAML_WRITER ".writeInt32(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeInt64(\"" + bareFieldName + "\", " + fieldName + ");";
}
else if (bType->isFloatingPoint())
{
if (width == 32)
return ATHENA_YAML_WRITER ".writeFloat(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeDouble(\"" + bareFieldName + "\", " + fieldName + ");";
}
}
else if (theType->isRecordType())
{
const clang::CXXRecordDecl* rDecl = theType->getAsCXXRecordDecl();
for (const clang::FieldDecl* field : rDecl->fields())
{
if (!field->getName().compare("clangVec"))
{
const clang::VectorType* vType = (clang::VectorType*)field->getType().getTypePtr();
if (vType->isVectorType())
{
const clang::BuiltinType* eType = (clang::BuiltinType*)vType->getElementType().getTypePtr();
2015-10-15 21:54:42 +00:00
const uint64_t width = context.getTypeInfo(eType).Width;
2015-08-03 01:42:47 +00:00
if (!eType->isBuiltinType() || !eType->isFloatingPoint() ||
2015-10-15 21:54:42 +00:00
(width != 32 && width != 64))
2015-08-03 01:42:47 +00:00
continue;
if (vType->getNumElements() == 2)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_WRITER ".writeVec2f(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeVec2d(\"" + bareFieldName + "\", " + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 3)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_WRITER ".writeVec3f(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeVec3d(\"" + bareFieldName + "\", " + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 4)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_WRITER ".writeVec4f(\"" + bareFieldName + "\", " + fieldName + ");";
else if (width == 64)
return ATHENA_YAML_WRITER ".writeVec4d(\"" + bareFieldName + "\", " + fieldName + ");";
}
2015-08-03 01:42:47 +00:00
}
}
}
std::string baseDNA;
bool isYAML = false;
if (isDNARecord(rDecl, baseDNA, isYAML))
{
isDNATypeOut = true;
return "write(" ATHENA_YAML_WRITER ");";
2015-08-03 01:42:47 +00:00
}
}
}
else
{
2015-08-20 22:23:19 +00:00
if (theType->isEnumeralType())
{
clang::EnumType* eType = (clang::EnumType*)theType;
clang::EnumDecl* eDecl = eType->getDecl();
theType = eDecl->getIntegerType().getCanonicalType().getTypePtr();
2016-01-06 21:00:32 +00:00
std::string qName = eDecl->getQualifiedNameAsString();
2015-08-20 22:23:19 +00:00
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readBool(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readUByte(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 16)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readUint16(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 32)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readUint32(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 64)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readUint64(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
}
else if (bType->isSignedInteger())
{
if (width == 8)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readByte(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 16)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readInt16(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 32)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readInt32(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
else if (width == 64)
2016-01-06 21:00:32 +00:00
return qName + "(" ATHENA_YAML_READER ".readInt64(\"" + bareFieldName + "\"))";
2015-08-20 22:23:19 +00:00
}
}
else if (theType->isBuiltinType())
2015-08-03 01:42:47 +00:00
{
const clang::BuiltinType* bType = (clang::BuiltinType*)theType;
if (bType->isBooleanType())
{
return ATHENA_YAML_READER ".readBool(\"" + bareFieldName + "\")";
}
else if (bType->isUnsignedInteger())
{
if (width == 8)
return ATHENA_YAML_READER ".readUByte(\"" + bareFieldName + "\")";
else if (width == 16)
return ATHENA_YAML_READER ".readUint16(\"" + bareFieldName + "\")";
else if (width == 32)
return ATHENA_YAML_READER ".readUint32(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readUint64(\"" + bareFieldName + "\")";
}
else if (bType->isSignedInteger())
{
if (width == 8)
return ATHENA_YAML_READER ".readByte(\"" + bareFieldName + "\")";
else if (width == 16)
return ATHENA_YAML_READER ".readInt16(\"" + bareFieldName + "\")";
else if (width == 32)
return ATHENA_YAML_READER ".readInt32(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readInt64(\"" + bareFieldName + "\")";
}
else if (bType->isFloatingPoint())
{
if (width == 32)
return ATHENA_YAML_READER ".readFloat(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readDouble(\"" + bareFieldName + "\")";
}
}
else if (theType->isRecordType())
{
const clang::CXXRecordDecl* rDecl = theType->getAsCXXRecordDecl();
for (const clang::FieldDecl* field : rDecl->fields())
{
if (!field->getName().compare("clangVec"))
{
const clang::VectorType* vType = (clang::VectorType*)field->getType().getTypePtr();
if (vType->isVectorType())
{
const clang::BuiltinType* eType = (clang::BuiltinType*)vType->getElementType().getTypePtr();
2015-10-15 21:54:42 +00:00
const uint64_t width = context.getTypeInfo(eType).Width;
2015-08-03 01:42:47 +00:00
if (!eType->isBuiltinType() || !eType->isFloatingPoint() ||
2015-10-15 21:54:42 +00:00
(width != 32 && width != 64))
2015-08-03 01:42:47 +00:00
continue;
if (vType->getNumElements() == 2)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_READER ".readVec2f(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readVec2d(\"" + bareFieldName + "\")";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 3)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_READER ".readVec3f(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readVec3d(\"" + bareFieldName + "\")";
}
2015-08-03 01:42:47 +00:00
else if (vType->getNumElements() == 4)
2015-10-15 21:54:42 +00:00
{
if (width == 32)
return ATHENA_YAML_READER ".readVec4f(\"" + bareFieldName + "\")";
else if (width == 64)
return ATHENA_YAML_READER ".readVec4d(\"" + bareFieldName + "\")";
}
2015-08-03 01:42:47 +00:00
}
}
}
std::string baseDNA;
bool isYAML = false;
if (isDNARecord(rDecl, baseDNA, isYAML))
{
isDNATypeOut = true;
return "read(" ATHENA_YAML_READER ");";
2015-08-03 01:42:47 +00:00
}
}
}
return std::string();
}
#endif
2015-08-03 01:42:47 +00:00
static std::string GetFieldString(const std::string& fieldName)
2015-10-18 04:05:35 +00:00
{
size_t underscorePos = fieldName.find('_');
std::string idString = fieldName;
if (underscorePos != std::string::npos && underscorePos != fieldName.size() - 1)
idString.assign(fieldName.begin() + underscorePos + 1, fieldName.end());
return idString;
}
2015-10-18 04:05:35 +00:00
static std::string GetPropIdExpr(const clang::FieldDecl* field, const std::string& fieldName)
{
std::string fieldStr = GetFieldString(fieldName);
std::string propIdExpr = "\"" + fieldStr + "\"";
for (clang::Attr* attr : field->attrs())
2015-10-18 04:05:35 +00:00
{
if (clang::AnnotateAttr* annot = clang::dyn_cast<clang::AnnotateAttr>(attr))
{
llvm::StringRef text_ref = annot->getAnnotation();
if (text_ref.startswith_lower("rcrc32="))
{
unsigned long num = strtoul(text_ref.data() + 7, nullptr, 16);
std::string tmpS;
llvm::raw_string_ostream s(tmpS);
s << llvm::format("\"%s\", 0x%08X", fieldStr.c_str(), num);
propIdExpr = s.str();
break;
}
}
2015-10-18 04:05:35 +00:00
}
return propIdExpr;
}
static std::string GetOpString(const std::string& fieldName, const std::string& propIdExpr, int64_t endianVal)
{
return "Do<Op, "s + (endianVal ? "Endian::Big" : "Endian::Little") + ">({" + propIdExpr + "}, " + fieldName + ", s)";
}
static std::string GetOpString(const std::string& fieldName, const std::string& propIdExpr)
{
return "Do<Op>({" + propIdExpr + "}, " + fieldName + ", s)";
}
static std::string GetVectorOpString(const std::string& fieldName, const std::string& propIdExpr, const std::string& sizeExpr, int64_t endianVal)
{
return "Do<Op, "s + (endianVal ? "Endian::Big" : "Endian::Little") + ">({" + propIdExpr + "}, " + fieldName + ", " + sizeExpr + ", s)";
}
static std::string GetVectorOpString(const std::string& fieldName, const std::string& propIdExpr, const std::string& sizeExpr)
{
return "Do<Op>({" + propIdExpr + "}, " + fieldName + ", " + sizeExpr + ", s)";
}
void emitEnumerateFunc(clang::CXXRecordDecl* decl, const std::string& baseDNA)
{
fileOut << "template <class Op>\nvoid " <<
decl->getQualifiedNameAsString() << "::Enumerate(typename Op::StreamT& s)\n{\n";
if (baseDNA.size())
fileOut << " " << baseDNA << "::Enumerate<Op>(s);\n";
2015-10-18 04:05:35 +00:00
for (const clang::FieldDecl* field : decl->fields())
{
clang::QualType qualType = field->getType();
const clang::Type* regType = qualType.getTypePtrOrNull();
if (!regType || regType->getTypeClass() == clang::Type::TemplateTypeParm)
continue;
clang::TypeInfo regTypeInfo = context.getTypeInfo(qualType);
2015-10-18 04:05:35 +00:00
while (regType->getTypeClass() == clang::Type::Elaborated ||
regType->getTypeClass() == clang::Type::Typedef)
regType = regType->getUnqualifiedDesugaredType();
/* Resolve constant array */
size_t arraySize = 1;
bool isArray = false;
if (regType->getTypeClass() == clang::Type::ConstantArray)
{
isArray = true;
const clang::ConstantArrayType* caType = (clang::ConstantArrayType*)regType;
arraySize = caType->getSize().getZExtValue();
qualType = caType->getElementType();
regTypeInfo = context.getTypeInfo(qualType);
regType = qualType.getTypePtrOrNull();
if (regType->getTypeClass() == clang::Type::Elaborated)
regType = regType->getUnqualifiedDesugaredType();
}
for (int e=0 ; e<arraySize ; ++e)
{
std::string fieldName;
if (isArray)
{
char subscript[16];
snprintf(subscript, 16, "[%d]", e);
fieldName = field->getName().str() + subscript;
}
else
fieldName = field->getName();
std::string propIdExpr = GetPropIdExpr(field, fieldName);
2015-10-18 04:05:35 +00:00
if (regType->getTypeClass() == clang::Type::TemplateSpecialization)
{
const clang::TemplateSpecializationType* tsType = (const clang::TemplateSpecializationType*)regType;
const clang::TemplateDecl* tsDecl = tsType->getTemplateName().getAsTemplateDecl();
const clang::TemplateParameterList* classParms = tsDecl->getTemplateParameters();
2015-10-18 04:05:35 +00:00
if (!tsDecl->getName().compare("Value"))
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 2)
{
const clang::NamedDecl* endianParm = classParms->getParam(1);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
}
}
}
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr();
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
continue;
}
}
}
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
{
if (endianExpr)
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
}
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
}
continue;
}
2015-10-18 04:05:35 +00:00
clang::QualType templateType;
std::string ioOp;
bool isDNAType = false;
2015-10-18 04:05:35 +00:00
const clang::TemplateArgument* typeArg = nullptr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Type)
{
typeArg = &arg;
templateType = arg.getAsType().getCanonicalType();
ioOp = GetOpString(fieldName, propIdExpr, endianVal);
2015-10-18 04:05:35 +00:00
}
}
if (ioOp.empty())
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use type '" + tsDecl->getName().str() + "' with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
fileOut << " " << ioOp << ";\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("Vector"))
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 3)
{
const clang::NamedDecl* endianParm = classParms->getParam(2);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
}
}
}
std::string sizeExpr;
const clang::TemplateArgument* sizeArg = nullptr;
size_t idx = 0;
bool bad = false;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
if (idx == 1)
{
sizeArg = &arg;
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
if (uExpr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
llvm::raw_string_ostream strStream(sizeExpr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
}
else if (idx == 2)
{
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
bad = true;
break;
}
}
}
++idx;
}
if (bad)
continue;
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
{
if (endianExpr)
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
}
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
}
continue;
}
2015-10-18 04:05:35 +00:00
clang::QualType templateType;
std::string ioOp;
bool isDNAType = false;
2015-10-18 04:05:35 +00:00
const clang::TemplateArgument* typeArg = nullptr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Type)
{
typeArg = &arg;
templateType = arg.getAsType().getCanonicalType();
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExpr, endianVal);
2015-10-18 04:05:35 +00:00
}
}
if (ioOp.empty())
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use type '" + templateType.getAsString() + "' with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
if (sizeExpr.empty())
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use count variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
fileOut << " " << ioOp << ";\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("Buffer"))
{
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)arg.getAsExpr()->IgnoreImpCasts();
if (uExpr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
}
}
if (sizeExprStr.empty())
{
if (sizeExpr)
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(sizeExpr->getLocStart(), AthenaError);
diag.AddString("Unable to use size variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(sizeExpr->getSourceRange(), true));
}
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use size variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
}
continue;
}
2015-10-18 04:05:35 +00:00
std::string ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr);
fileOut << " " << ioOp << ";\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("String"))
{
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
llvm::APSInt sizeLiteral;
if (expr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
else if (expr->isIntegerConstantExpr(sizeLiteral, context))
{
sizeExprStr = sizeLiteral.toString(10);
}
}
}
std::string ioOp;
if (!sizeExprStr.empty())
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr);
2015-10-18 04:05:35 +00:00
else
ioOp = GetOpString(fieldName, propIdExpr);
fileOut << " " << ioOp << ";\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("WString"))
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 2)
{
const clang::NamedDecl* endianParm = classParms->getParam(1);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
}
}
}
2015-10-18 04:05:35 +00:00
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
size_t idx = 0;
bool bad = false;
2015-10-18 04:05:35 +00:00
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
if (idx == 0)
{
llvm::APSInt sizeLiteral;
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
if (expr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
else if (expr->isIntegerConstantExpr(sizeLiteral, context))
{
sizeExprStr = sizeLiteral.toString(10);
}
}
else if (idx == 1)
{
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
bad = true;
break;
}
}
2015-10-18 04:05:35 +00:00
}
++idx;
}
if (bad)
continue;
2015-10-18 04:05:35 +00:00
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
2015-10-18 04:05:35 +00:00
{
if (endianExpr)
2015-10-18 04:05:35 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
}
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
2015-10-18 04:05:35 +00:00
}
continue;
2015-10-18 04:05:35 +00:00
}
std::string ioOp;
if (!sizeExprStr.empty())
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr, endianVal);
2015-10-18 04:05:35 +00:00
else
ioOp = GetOpString(fieldName, propIdExpr, endianVal);
fileOut << " " << ioOp << ";\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("Seek"))
{
size_t idx = 0;
const clang::Expr* offsetExpr = nullptr;
std::string offsetExprStr;
llvm::APSInt direction(64, 0);
const clang::Expr* directionExpr = nullptr;
bool bad = false;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
if (!idx)
{
offsetExpr = expr;
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
llvm::APSInt offsetLiteral;
if (expr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
offsetExpr = argExpr;
llvm::raw_string_ostream strStream(offsetExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
else if (expr->isIntegerConstantExpr(offsetLiteral, context))
{
offsetExprStr = offsetLiteral.toString(10);
2015-10-18 04:05:35 +00:00
}
}
else
{
directionExpr = expr;
if (!expr->isIntegerConstantExpr(direction, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Unable to use non-constant direction expression in Athena");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
2015-10-18 04:05:35 +00:00
bad = true;
break;
}
}
}
++idx;
}
if (bad)
continue;
int64_t directionVal = direction.getSExtValue();
if (directionVal < 0 || directionVal > 2)
2015-10-18 04:05:35 +00:00
{
if (directionExpr)
2015-10-18 04:05:35 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(directionExpr->getLocStart(), AthenaError);
diag.AddString("Direction parameter must be 'Begin', 'Current', or 'End'");
diag.AddSourceRange(clang::CharSourceRange(directionExpr->getSourceRange(), true));
2015-10-18 04:05:35 +00:00
}
else
2015-10-18 04:05:35 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Direction parameter must be 'Begin', 'Current', or 'End'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
2015-10-18 04:05:35 +00:00
}
continue;
2015-10-18 04:05:35 +00:00
}
if (directionVal == 0)
fileOut << " DoSeek<Op>(" << offsetExprStr << ", Begin, s);\n";
else if (directionVal == 1)
fileOut << " DoSeek<Op>(" << offsetExprStr << ", Current, s);\n";
else if (directionVal == 2)
fileOut << " DoSeek<Op>(" << offsetExprStr << ", End, s);\n";
2015-10-18 04:05:35 +00:00
}
else if (!tsDecl->getName().compare("Align"))
{
llvm::APSInt align(64, 0);
bool bad = false;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
{
const clang::Expr* expr = arg.getAsExpr();
if (!expr->isIntegerConstantExpr(align, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Unable to use non-constant align expression in Athena");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
2015-10-18 04:05:35 +00:00
bad = true;
break;
}
}
}
if (bad)
continue;
int64_t alignVal = align.getSExtValue();
if (alignVal)
{
fileOut << " DoAlign<Op>(" << alignVal << ", s);\n";
2015-10-18 04:05:35 +00:00
}
}
}
else if (regType->getTypeClass() == clang::Type::Record)
{
const clang::CXXRecordDecl* cxxRDecl = regType->getAsCXXRecordDecl();
std::string baseDNA;
if (cxxRDecl && isDNARecord(cxxRDecl, baseDNA))
fileOut << " " << GetOpString(fieldName, propIdExpr) << ";\n";
2015-10-18 04:05:35 +00:00
}
}
}
fileOut << "}\n\n";
2015-10-18 04:05:35 +00:00
}
void emitLookupFunc(clang::CXXRecordDecl* decl, const std::string& baseDNA)
2015-08-03 01:42:47 +00:00
{
fileOut << "template <class Op>\nbool " <<
decl->getQualifiedNameAsString() << "::Lookup(uint64_t hash, typename Op::StreamT& s)\n{\n";
if (baseDNA.size())
fileOut << " if (" << baseDNA << "::Lookup<Op>(hash, s))\n"
<< " return true;\n";
fileOut << " switch (hash)\n"
<< " {\n";
for (const clang::FieldDecl* field : decl->fields())
2015-08-03 01:42:47 +00:00
{
clang::QualType qualType = field->getType();
const clang::Type* regType = qualType.getTypePtrOrNull();
if (!regType || regType->getTypeClass() == clang::Type::TemplateTypeParm)
continue;
clang::TypeInfo regTypeInfo = context.getTypeInfo(qualType);
while (regType->getTypeClass() == clang::Type::Elaborated ||
regType->getTypeClass() == clang::Type::Typedef)
regType = regType->getUnqualifiedDesugaredType();
2015-08-03 01:42:47 +00:00
/* Resolve constant array */
size_t arraySize = 1;
bool isArray = false;
if (regType->getTypeClass() == clang::Type::ConstantArray)
2015-08-03 01:42:47 +00:00
{
isArray = true;
const clang::ConstantArrayType* caType = (clang::ConstantArrayType*)regType;
arraySize = caType->getSize().getZExtValue();
qualType = caType->getElementType();
regTypeInfo = context.getTypeInfo(qualType);
regType = qualType.getTypePtrOrNull();
if (regType->getTypeClass() == clang::Type::Elaborated)
regType = regType->getUnqualifiedDesugaredType();
2015-08-03 01:42:47 +00:00
}
for (int e=0 ; e<arraySize ; ++e)
2015-08-03 01:42:47 +00:00
{
std::string fieldName;
if (isArray)
2015-08-03 01:42:47 +00:00
{
char subscript[16];
snprintf(subscript, 16, "[%d]", e);
fieldName = field->getName().str() + subscript;
2015-08-03 01:42:47 +00:00
}
else
fieldName = field->getName();
2015-08-03 01:42:47 +00:00
std::string propIdExpr = GetPropIdExpr(field, fieldName);
2015-08-03 01:42:47 +00:00
if (regType->getTypeClass() == clang::Type::TemplateSpecialization)
{
const clang::TemplateSpecializationType* tsType = (const clang::TemplateSpecializationType*)regType;
const clang::TemplateDecl* tsDecl = tsType->getTemplateName().getAsTemplateDecl();
const clang::TemplateParameterList* classParms = tsDecl->getTemplateParameters();
2015-08-03 01:42:47 +00:00
if (!tsDecl->getName().compare("Value"))
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 2)
2015-08-03 01:42:47 +00:00
{
const clang::NamedDecl* endianParm = classParms->getParam(1);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
}
}
}
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* expr = arg.getAsExpr();
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
continue;
2015-08-03 01:42:47 +00:00
}
}
}
2015-08-03 01:42:47 +00:00
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
{
if (endianExpr)
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
}
2015-08-03 01:42:47 +00:00
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
}
continue;
2015-08-03 01:42:47 +00:00
}
clang::QualType templateType;
std::string ioOp;
bool isDNAType = false;
const clang::TemplateArgument* typeArg = nullptr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Type)
2015-08-03 01:42:47 +00:00
{
typeArg = &arg;
templateType = arg.getAsType().getCanonicalType();
ioOp = GetOpString(fieldName, propIdExpr, endianVal);
2015-08-03 01:42:47 +00:00
}
}
2015-08-03 01:42:47 +00:00
if (ioOp.empty())
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use type '" + tsDecl->getName().str() + "' with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << ioOp << ";\n"
<< " return true;\n";
2015-08-03 01:42:47 +00:00
}
else if (!tsDecl->getName().compare("Vector"))
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 3)
{
const clang::NamedDecl* endianParm = classParms->getParam(2);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
2015-08-03 01:42:47 +00:00
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
2015-08-03 01:42:47 +00:00
}
}
}
std::string sizeExpr;
const clang::TemplateArgument* sizeArg = nullptr;
size_t idx = 0;
bool bad = false;
for (const clang::TemplateArgument& arg : *tsType)
2015-08-03 01:42:47 +00:00
{
if (arg.getKind() == clang::TemplateArgument::Expression)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
if (idx == 1)
2015-08-03 01:42:47 +00:00
{
sizeArg = &arg;
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
2015-08-03 01:42:47 +00:00
if (uExpr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
llvm::raw_string_ostream strStream(sizeExpr);
2015-08-03 01:42:47 +00:00
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
}
else if (idx == 2)
2015-08-03 01:42:47 +00:00
{
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
bad = true;
break;
2015-08-03 01:42:47 +00:00
}
}
}
++idx;
}
if (bad)
continue;
2015-08-03 01:42:47 +00:00
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
{
if (endianExpr)
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
2015-08-03 01:42:47 +00:00
}
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
2015-08-03 01:42:47 +00:00
}
continue;
2015-08-03 01:42:47 +00:00
}
clang::QualType templateType;
std::string ioOp;
bool isDNAType = false;
const clang::TemplateArgument* typeArg = nullptr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Type)
2015-08-03 01:42:47 +00:00
{
typeArg = &arg;
templateType = arg.getAsType().getCanonicalType();
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExpr, endianVal);
2015-08-03 01:42:47 +00:00
}
}
if (ioOp.empty())
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use type '" + templateType.getAsString() + "' with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
2015-08-03 01:42:47 +00:00
if (sizeExpr.empty())
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use count variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
continue;
}
2015-08-03 01:42:47 +00:00
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << ioOp << ";\n"
<< " return true;\n";
}
else if (!tsDecl->getName().compare("Buffer"))
{
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
for (const clang::TemplateArgument& arg : *tsType)
{
if (arg.getKind() == clang::TemplateArgument::Expression)
2015-08-03 01:42:47 +00:00
{
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)arg.getAsExpr()->IgnoreImpCasts();
if (uExpr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
2015-08-03 01:42:47 +00:00
}
}
}
if (sizeExprStr.empty())
2015-08-03 01:42:47 +00:00
{
if (sizeExpr)
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(sizeExpr->getLocStart(), AthenaError);
diag.AddString("Unable to use size variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(sizeExpr->getSourceRange(), true));
}
2015-08-03 01:42:47 +00:00
else
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Unable to use size variable with Athena");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
2015-08-03 01:42:47 +00:00
}
continue;
2015-08-03 01:42:47 +00:00
}
std::string ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr);
2015-08-03 01:42:47 +00:00
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << ioOp << ";\n"
<< " return true;\n";
}
else if (!tsDecl->getName().compare("String"))
{
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
for (const clang::TemplateArgument& arg : *tsType)
2015-08-03 01:42:47 +00:00
{
if (arg.getKind() == clang::TemplateArgument::Expression)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
llvm::APSInt sizeLiteral;
if (expr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
uExpr->getKind() == clang::UETT_SizeOf)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
2015-08-03 01:42:47 +00:00
}
else if (expr->isIntegerConstantExpr(sizeLiteral, context))
2015-08-03 01:42:47 +00:00
{
sizeExprStr = sizeLiteral.toString(10);
2015-08-03 01:42:47 +00:00
}
}
}
std::string ioOp;
if (!sizeExprStr.empty())
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr);
else
ioOp = GetOpString(fieldName, propIdExpr);
2015-08-03 01:42:47 +00:00
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << ioOp << ";\n"
<< " return true;\n";
2015-08-03 01:42:47 +00:00
}
else if (!tsDecl->getName().compare("WString"))
2015-08-03 01:42:47 +00:00
{
llvm::APSInt endian(64, -1);
const clang::Expr* endianExpr = nullptr;
if (classParms->size() >= 2)
2015-08-03 01:42:47 +00:00
{
const clang::NamedDecl* endianParm = classParms->getParam(1);
if (endianParm->getKind() == clang::Decl::NonTypeTemplateParm)
2015-08-03 01:42:47 +00:00
{
const clang::NonTypeTemplateParmDecl* nttParm = (clang::NonTypeTemplateParmDecl*)endianParm;
const clang::Expr* defArg = nttParm->getDefaultArgument();
endianExpr = defArg;
if (!defArg->isIntegerConstantExpr(endian, context))
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(defArg->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(defArg->getSourceRange(), true));
continue;
2015-08-03 01:42:47 +00:00
}
}
}
const clang::Expr* sizeExpr = nullptr;
std::string sizeExprStr;
size_t idx = 0;
bool bad = false;
for (const clang::TemplateArgument& arg : *tsType)
2015-08-03 01:42:47 +00:00
{
if (arg.getKind() == clang::TemplateArgument::Expression)
2015-08-03 01:42:47 +00:00
{
const clang::Expr* expr = arg.getAsExpr()->IgnoreImpCasts();
if (idx == 0)
2015-08-03 01:42:47 +00:00
{
llvm::APSInt sizeLiteral;
const clang::UnaryExprOrTypeTraitExpr* uExpr = (clang::UnaryExprOrTypeTraitExpr*)expr;
if (expr->getStmtClass() == clang::Stmt::UnaryExprOrTypeTraitExprClass &&
2015-08-03 01:42:47 +00:00
uExpr->getKind() == clang::UETT_SizeOf)
{
const clang::Expr* argExpr = uExpr->getArgumentExpr();
while (argExpr->getStmtClass() == clang::Stmt::ParenExprClass)
argExpr = ((clang::ParenExpr*)argExpr)->getSubExpr();
sizeExpr = argExpr;
llvm::raw_string_ostream strStream(sizeExprStr);
argExpr->printPretty(strStream, nullptr, context.getPrintingPolicy());
}
else if (expr->isIntegerConstantExpr(sizeLiteral, context))
{
sizeExprStr = sizeLiteral.toString(10);
}
}
else if (idx == 1)
{
endianExpr = expr;
if (!expr->isIntegerConstantExpr(endian, context))
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(expr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(expr->getSourceRange(), true));
bad = true;
break;
}
2015-08-03 01:42:47 +00:00
}
}
++idx;
2015-08-03 01:42:47 +00:00
}
if (bad)
continue;
int64_t endianVal = endian.getSExtValue();
if (endianVal != 0 && endianVal != 1)
2015-08-03 01:42:47 +00:00
{
if (endianExpr)
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(endianExpr->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(endianExpr->getSourceRange(), true));
2015-08-03 01:42:47 +00:00
}
else
2015-08-03 01:42:47 +00:00
{
clang::DiagnosticBuilder diag = context.getDiagnostics().Report(field->getLocStart(), AthenaError);
diag.AddString("Endian value must be 'BigEndian' or 'LittleEndian'");
diag.AddSourceRange(clang::CharSourceRange(field->getSourceRange(), true));
2015-08-03 01:42:47 +00:00
}
continue;
2015-08-03 01:42:47 +00:00
}
std::string ioOp;
if (!sizeExprStr.empty())
ioOp = GetVectorOpString(fieldName, propIdExpr, sizeExprStr, endianVal);
else
ioOp = GetOpString(fieldName, propIdExpr, endianVal);
2015-08-03 01:42:47 +00:00
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << ioOp << ";\n"
<< " return true;\n";
2015-08-03 01:42:47 +00:00
}
}
else if (regType->getTypeClass() == clang::Type::Record)
2015-08-03 01:42:47 +00:00
{
const clang::CXXRecordDecl* cxxRDecl = regType->getAsCXXRecordDecl();
std::string baseDNA;
if (cxxRDecl && isDNARecord(cxxRDecl, baseDNA))
{
fileOut << " AT_PROP_CASE(" << propIdExpr << "):\n"
<< " " << GetOpString(fieldName, propIdExpr) << ";\n"
<< " return true;\n";
}
2015-08-03 01:42:47 +00:00
}
}
}
fileOut << " default:\n return false;\n }\n}\n\n";
2015-08-03 01:42:47 +00:00
}
public:
explicit ATDNAEmitVisitor(clang::ASTContext& ctxin, StreamOut& fo)
: context(ctxin), fileOut(fo) {}
bool VisitCXXRecordDecl(clang::CXXRecordDecl* decl)
{
if (!EmitIncludes && !context.getSourceManager().isInMainFile(decl->getLocation()))
return true;
if (decl->isInvalidDecl() || !decl->hasDefinition() || !decl->isCompleteDefinition())
2015-08-03 01:42:47 +00:00
return true;
if (!decl->getNumBases())
return true;
2016-03-04 23:00:12 +00:00
/* First ensure this inherits from struct athena::io::DNA */
2015-08-03 01:42:47 +00:00
std::string baseDNA;
if (!isDNARecord(decl, baseDNA))
2015-08-03 01:42:47 +00:00
return true;
/* Make sure there isn't Delete meta type */
2015-08-03 01:42:47 +00:00
for (const clang::FieldDecl* field : decl->fields())
{
clang::QualType qualType = field->getType().getCanonicalType();
const clang::Type* regType = qualType.getTypePtrOrNull();
if (regType)
{
const clang::CXXRecordDecl* rDecl = regType->getAsCXXRecordDecl();
if (rDecl)
{
if (!rDecl->getName().compare("Delete"))
{
const clang::CXXRecordDecl* rParentDecl = llvm::dyn_cast_or_null<clang::CXXRecordDecl>(rDecl->getParent());
if (rParentDecl)
{
std::string parentCheck = rParentDecl->getTypeForDecl()->getCanonicalTypeInternal().getAsString();
if (!parentCheck.compare(0, sizeof(ATHENA_DNA_BASETYPE)-1, ATHENA_DNA_BASETYPE))
return true;
}
}
}
}
}
emitEnumerateFunc(decl, baseDNA);
emitLookupFunc(decl, baseDNA);
fileOut << "AT_SPECIALIZE_DNA(" << decl->getQualifiedNameAsString() << ")\n\n";
2015-08-03 01:42:47 +00:00
return true;
}
};
class ATDNAConsumer : public clang::ASTConsumer
{
2016-09-10 23:38:44 +00:00
std::unique_ptr<StreamOut> fileOut;
StreamOut& fileOutOld;
2015-08-03 01:42:47 +00:00
ATDNAEmitVisitor emitVisitor;
public:
explicit ATDNAConsumer(clang::ASTContext& context, std::unique_ptr<StreamOut>&& fo, StreamOut* foOld)
2016-09-10 23:38:44 +00:00
: fileOut(std::move(fo)),
fileOutOld(*foOld),
emitVisitor(context, *foOld) {}
2017-11-13 06:12:37 +00:00
void HandleTranslationUnit(clang::ASTContext& context) override
2015-08-03 01:42:47 +00:00
{
/* Write file head */
fileOutOld << "/* Auto generated atdna implementation */\n"
"#include \"athena/DNAOp.hpp\"\n";
2015-08-03 01:42:47 +00:00
for (const std::string& inputf : InputFilenames)
fileOutOld << "#include \"" << inputf << "\"\n";
fileOutOld << "\n";
2015-08-03 01:42:47 +00:00
/* Emit file */
emitVisitor.TraverseDecl(context.getTranslationUnitDecl());
}
};
class ATDNAAction : public clang::ASTFrontendAction
{
/* Used by LLVM 3.9+; client owns stream */
std::unique_ptr<StreamOut> MakeStreamOut(std::unique_ptr<StreamOut>&& so, StreamOut*& outPtr)
{
outPtr = so.get();
return std::move(so);
}
/* Used by previous versions of LLVM; CompilerInstance owns stream */
std::unique_ptr<StreamOut> MakeStreamOut(StreamOut* so, StreamOut*& outPtr)
{
outPtr = so;
return {};
}
std::unique_ptr<clang::DependencyFileGenerator> TheDependencyFileGenerator;
2015-08-03 01:42:47 +00:00
public:
explicit ATDNAAction() = default;
2015-08-03 01:42:47 +00:00
std::unique_ptr<clang::ASTConsumer> CreateASTConsumer(clang::CompilerInstance& compiler,
2017-11-13 06:12:37 +00:00
llvm::StringRef /*filename*/) override
2015-08-03 01:42:47 +00:00
{
clang::DependencyOutputOptions DepOpts;
2017-11-13 07:20:22 +00:00
DepOpts.OutputFile = DepFileOut.getValue();
DepOpts.Targets = DepFileTargets;
if (!DepOpts.OutputFile.empty())
TheDependencyFileGenerator.reset(
clang::DependencyFileGenerator::CreateAndAttachToPreprocessor(compiler.getPreprocessor(), DepOpts));
2016-09-10 23:38:44 +00:00
std::unique_ptr<StreamOut> fileout;
StreamOut* fileoutOld;
2015-08-03 01:42:47 +00:00
if (OutputFilename.size())
fileout = MakeStreamOut(compiler.createOutputFile(OutputFilename, false, true, "", "", true), fileoutOld);
2015-08-03 01:42:47 +00:00
else
fileout = MakeStreamOut(compiler.createDefaultOutputFile(false, "a", "cpp"), fileoutOld);
2015-08-03 01:42:47 +00:00
AthenaError = compiler.getASTContext().getDiagnostics().getCustomDiagID(clang::DiagnosticsEngine::Error, "Athena error: %0");
return std::unique_ptr<clang::ASTConsumer>(new ATDNAConsumer(compiler.getASTContext(), std::move(fileout), fileoutOld));
2015-08-03 01:42:47 +00:00
}
};
int main(int argc, const char** argv)
{
llvm::cl::ParseCommandLineOptions(argc, argv, "Athena DNA Generator");
if (Help)
llvm::cl::PrintHelpMessage();
std::vector<std::string> args = {"clang-tool",
#ifdef __linux__
"--gcc-toolchain=/usr",
#endif
2015-08-03 01:42:47 +00:00
"-fsyntax-only",
2017-11-13 06:12:37 +00:00
"-std=c++1z",
2015-08-03 01:42:47 +00:00
"-D__atdna__=1",
"-Wno-expansion-to-defined",
2016-09-30 03:30:45 +00:00
"-Wno-nullability-completeness",
"-Werror=shadow-field",
2015-08-03 01:42:47 +00:00
"-I" XSTR(INSTALL_PREFIX) "/lib/clang/" CLANG_VERSION_STRING "/include",
"-I" XSTR(INSTALL_PREFIX) "/include/Athena"};
for (int a=1 ; a<argc ; ++a)
args.push_back(argv[a]);
llvm::IntrusiveRefCntPtr<clang::FileManager> fman(new clang::FileManager(clang::FileSystemOptions()));
ATDNAAction* action = new ATDNAAction();
clang::tooling::ToolInvocation TI(args, action, fman.get());
2015-08-03 01:42:47 +00:00
if (!TI.run())
return 1;
2015-08-03 01:42:47 +00:00
return 0;
}