| //===--- Types.cpp - Driver input & temporary type information ------------===// |
| // |
| // The LLVM Compiler Infrastructure |
| // |
| // This file is distributed under the University of Illinois Open Source |
| // License. See LICENSE.TXT for details. |
| // |
| //===----------------------------------------------------------------------===// |
| |
| #include "clang/Driver/Types.h" |
| #include "llvm/ADT/STLExtras.h" |
| #include "llvm/ADT/StringSwitch.h" |
| #include <cassert> |
| #include <string.h> |
| |
| using namespace clang::driver; |
| using namespace clang::driver::types; |
| |
| struct TypeInfo { |
| const char *Name; |
| const char *Flags; |
| const char *TempSuffix; |
| ID PreprocessedType; |
| }; |
| |
| static const TypeInfo TypeInfos[] = { |
| #define TYPE(NAME, ID, PP_TYPE, TEMP_SUFFIX, FLAGS) \ |
| { NAME, FLAGS, TEMP_SUFFIX, TY_##PP_TYPE, }, |
| #include "clang/Driver/Types.def" |
| #undef TYPE |
| }; |
| static const unsigned numTypes = llvm::array_lengthof(TypeInfos); |
| |
| static const TypeInfo &getInfo(unsigned id) { |
| assert(id > 0 && id - 1 < numTypes && "Invalid Type ID."); |
| return TypeInfos[id - 1]; |
| } |
| |
| const char *types::getTypeName(ID Id) { |
| return getInfo(Id).Name; |
| } |
| |
| types::ID types::getPreprocessedType(ID Id) { |
| return getInfo(Id).PreprocessedType; |
| } |
| |
| const char *types::getTypeTempSuffix(ID Id, bool CLMode) { |
| if (Id == TY_Object && CLMode) |
| return "obj"; |
| if (Id == TY_Image && CLMode) |
| return "exe"; |
| if (Id == TY_PP_Asm && CLMode) |
| return "asm"; |
| return getInfo(Id).TempSuffix; |
| } |
| |
| bool types::onlyAssembleType(ID Id) { |
| return strchr(getInfo(Id).Flags, 'a'); |
| } |
| |
| bool types::onlyPrecompileType(ID Id) { |
| return strchr(getInfo(Id).Flags, 'p'); |
| } |
| |
| bool types::canTypeBeUserSpecified(ID Id) { |
| return strchr(getInfo(Id).Flags, 'u'); |
| } |
| |
| bool types::appendSuffixForType(ID Id) { |
| return strchr(getInfo(Id).Flags, 'A'); |
| } |
| |
| bool types::canLipoType(ID Id) { |
| return (Id == TY_Nothing || |
| Id == TY_Image || |
| Id == TY_Object || |
| Id == TY_LTO_BC); |
| } |
| |
| bool types::isAcceptedByClang(ID Id) { |
| switch (Id) { |
| default: |
| return false; |
| |
| case TY_Asm: |
| case TY_C: case TY_PP_C: |
| case TY_CL: |
| case TY_CUDA: case TY_PP_CUDA: |
| case TY_CUDA_DEVICE: |
| case TY_ObjC: case TY_PP_ObjC: case TY_PP_ObjC_Alias: |
| case TY_CXX: case TY_PP_CXX: |
| case TY_ObjCXX: case TY_PP_ObjCXX: case TY_PP_ObjCXX_Alias: |
| case TY_CHeader: case TY_PP_CHeader: |
| case TY_CLHeader: |
| case TY_ObjCHeader: case TY_PP_ObjCHeader: |
| case TY_CXXHeader: case TY_PP_CXXHeader: |
| case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: |
| case TY_AST: case TY_ModuleFile: |
| case TY_LLVM_IR: case TY_LLVM_BC: |
| return true; |
| } |
| } |
| |
| bool types::isObjC(ID Id) { |
| switch (Id) { |
| default: |
| return false; |
| |
| case TY_ObjC: case TY_PP_ObjC: case TY_PP_ObjC_Alias: |
| case TY_ObjCXX: case TY_PP_ObjCXX: |
| case TY_ObjCHeader: case TY_PP_ObjCHeader: |
| case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: case TY_PP_ObjCXX_Alias: |
| return true; |
| } |
| } |
| |
| bool types::isCXX(ID Id) { |
| switch (Id) { |
| default: |
| return false; |
| |
| case TY_CXX: case TY_PP_CXX: |
| case TY_ObjCXX: case TY_PP_ObjCXX: case TY_PP_ObjCXX_Alias: |
| case TY_CXXHeader: case TY_PP_CXXHeader: |
| case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: |
| case TY_CUDA: case TY_PP_CUDA: case TY_CUDA_DEVICE: |
| return true; |
| } |
| } |
| |
| bool types::isCuda(ID Id) { |
| switch (Id) { |
| default: |
| return false; |
| |
| case TY_CUDA: |
| case TY_PP_CUDA: |
| case TY_CUDA_DEVICE: |
| return true; |
| } |
| } |
| |
| types::ID types::lookupTypeForExtension(const char *Ext) { |
| return llvm::StringSwitch<types::ID>(Ext) |
| .Case("c", TY_C) |
| .Case("i", TY_PP_C) |
| .Case("m", TY_ObjC) |
| .Case("M", TY_ObjCXX) |
| .Case("h", TY_CHeader) |
| .Case("C", TY_CXX) |
| .Case("H", TY_CXXHeader) |
| .Case("f", TY_PP_Fortran) |
| .Case("F", TY_Fortran) |
| .Case("s", TY_PP_Asm) |
| .Case("asm", TY_PP_Asm) |
| .Case("S", TY_Asm) |
| .Case("o", TY_Object) |
| .Case("obj", TY_Object) |
| .Case("lib", TY_Object) |
| .Case("ii", TY_PP_CXX) |
| .Case("mi", TY_PP_ObjC) |
| .Case("mm", TY_ObjCXX) |
| .Case("bc", TY_LLVM_BC) |
| .Case("cc", TY_CXX) |
| .Case("CC", TY_CXX) |
| .Case("cl", TY_CL) |
| .Case("cp", TY_CXX) |
| .Case("cu", TY_CUDA) |
| .Case("cui", TY_PP_CUDA) |
| .Case("hh", TY_CXXHeader) |
| .Case("ll", TY_LLVM_IR) |
| .Case("hpp", TY_CXXHeader) |
| .Case("ads", TY_Ada) |
| .Case("adb", TY_Ada) |
| .Case("ast", TY_AST) |
| .Case("c++", TY_CXX) |
| .Case("C++", TY_CXX) |
| .Case("cxx", TY_CXX) |
| .Case("cpp", TY_CXX) |
| .Case("CPP", TY_CXX) |
| .Case("CXX", TY_CXX) |
| .Case("for", TY_PP_Fortran) |
| .Case("FOR", TY_PP_Fortran) |
| .Case("fpp", TY_Fortran) |
| .Case("FPP", TY_Fortran) |
| .Case("f90", TY_PP_Fortran) |
| .Case("f95", TY_PP_Fortran) |
| .Case("F90", TY_Fortran) |
| .Case("F95", TY_Fortran) |
| .Case("mii", TY_PP_ObjCXX) |
| .Case("pcm", TY_ModuleFile) |
| .Case("pch", TY_PCH) |
| .Case("gch", TY_PCH) |
| .Default(TY_INVALID); |
| } |
| |
| types::ID types::lookupTypeForTypeSpecifier(const char *Name) { |
| for (unsigned i=0; i<numTypes; ++i) { |
| types::ID Id = (types::ID) (i + 1); |
| if (canTypeBeUserSpecified(Id) && |
| strcmp(Name, getInfo(Id).Name) == 0) |
| return Id; |
| } |
| |
| return TY_INVALID; |
| } |
| |
| // FIXME: Why don't we just put this list in the defs file, eh. |
| void types::getCompilationPhases(ID Id, llvm::SmallVectorImpl<phases::ID> &P) { |
| if (Id != TY_Object) { |
| if (getPreprocessedType(Id) != TY_INVALID) { |
| P.push_back(phases::Preprocess); |
| } |
| |
| if (onlyPrecompileType(Id)) { |
| P.push_back(phases::Precompile); |
| } else { |
| if (!onlyAssembleType(Id)) { |
| P.push_back(phases::Compile); |
| P.push_back(phases::Backend); |
| } |
| if (Id != TY_CUDA_DEVICE) |
| P.push_back(phases::Assemble); |
| } |
| } |
| |
| if (!onlyPrecompileType(Id) && Id != TY_CUDA_DEVICE) { |
| P.push_back(phases::Link); |
| } |
| assert(0 < P.size() && "Not enough phases in list"); |
| assert(P.size() <= phases::MaxNumberOfPhases && "Too many phases in list"); |
| return; |
| } |
| |
| ID types::lookupCXXTypeForCType(ID Id) { |
| switch (Id) { |
| default: |
| return Id; |
| |
| case types::TY_C: |
| return types::TY_CXX; |
| case types::TY_PP_C: |
| return types::TY_PP_CXX; |
| case types::TY_CHeader: |
| return types::TY_CXXHeader; |
| case types::TY_PP_CHeader: |
| return types::TY_PP_CXXHeader; |
| } |
| } |