1 //===--- Types.cpp - Driver input & temporary type information ----------*-===//
3 // The LLVM Compiler Infrastructure
5 // This file is distributed under the University of Illinois Open Source
6 // License. See LICENSE.TXT for details.
8 //===----------------------------------------------------------------------===//
10 #include "clang/Driver/Types.h"
12 #include "llvm/ADT/StringSwitch.h"
16 using namespace clang::driver;
17 using namespace clang::driver::types;
22 const char *TempSuffix;
26 static const TypeInfo TypeInfos[] = {
27 #define TYPE(NAME, ID, PP_TYPE, TEMP_SUFFIX, FLAGS) \
28 { NAME, FLAGS, TEMP_SUFFIX, TY_##PP_TYPE, },
29 #include "clang/Driver/Types.def"
32 static const unsigned numTypes = sizeof(TypeInfos) / sizeof(TypeInfos[0]);
34 static const TypeInfo &getInfo(unsigned id) {
35 assert(id > 0 && id - 1 < numTypes && "Invalid Type ID.");
36 return TypeInfos[id - 1];
39 const char *types::getTypeName(ID Id) {
40 return getInfo(Id).Name;
43 types::ID types::getPreprocessedType(ID Id) {
44 return getInfo(Id).PreprocessedType;
47 const char *types::getTypeTempSuffix(ID Id) {
48 return getInfo(Id).TempSuffix;
51 bool types::onlyAssembleType(ID Id) {
52 return strchr(getInfo(Id).Flags, 'a');
55 bool types::onlyPrecompileType(ID Id) {
56 return strchr(getInfo(Id).Flags, 'p');
59 bool types::canTypeBeUserSpecified(ID Id) {
60 return strchr(getInfo(Id).Flags, 'u');
63 bool types::appendSuffixForType(ID Id) {
64 return strchr(getInfo(Id).Flags, 'A');
67 bool types::canLipoType(ID Id) {
68 return (Id == TY_Nothing ||
73 bool types::isAcceptedByClang(ID Id) {
79 case TY_C: case TY_PP_C:
80 case TY_ObjC: case TY_PP_ObjC:
81 case TY_CXX: case TY_PP_CXX:
82 case TY_ObjCXX: case TY_PP_ObjCXX:
83 case TY_CHeader: case TY_PP_CHeader:
84 case TY_ObjCHeader: case TY_PP_ObjCHeader:
85 case TY_CXXHeader: case TY_PP_CXXHeader:
86 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader:
92 bool types::isObjC(ID Id) {
97 case TY_ObjC: case TY_PP_ObjC:
98 case TY_ObjCXX: case TY_PP_ObjCXX:
99 case TY_ObjCHeader: case TY_PP_ObjCHeader:
100 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader:
105 bool types::isCXX(ID Id) {
110 case TY_CXX: case TY_PP_CXX:
111 case TY_ObjCXX: case TY_PP_ObjCXX:
112 case TY_CXXHeader: case TY_PP_CXXHeader:
113 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader:
118 types::ID types::lookupTypeForExtension(const char *Ext) {
119 return llvm::StringSwitch<types::ID>(Ext)
123 .Case("M", TY_ObjCXX)
124 .Case("h", TY_CHeader)
126 .Case("H", TY_CXXHeader)
127 .Case("f", TY_PP_Fortran)
128 .Case("F", TY_Fortran)
129 .Case("s", TY_PP_Asm)
131 .Case("ii", TY_PP_CXX)
132 .Case("mi", TY_PP_ObjC)
133 .Case("mm", TY_ObjCXX)
137 .Case("hh", TY_CXXHeader)
138 .Case("hpp", TY_CXXHeader)
146 .Case("for", TY_PP_Fortran)
147 .Case("FOR", TY_PP_Fortran)
148 .Case("fpp", TY_Fortran)
149 .Case("FPP", TY_Fortran)
150 .Case("f90", TY_PP_Fortran)
151 .Case("f95", TY_PP_Fortran)
152 .Case("F90", TY_Fortran)
153 .Case("F95", TY_Fortran)
154 .Case("mii", TY_PP_ObjCXX)
155 .Default(TY_INVALID);
158 types::ID types::lookupTypeForTypeSpecifier(const char *Name) {
159 unsigned N = strlen(Name);
161 for (unsigned i=0; i<numTypes; ++i) {
162 types::ID Id = (types::ID) (i + 1);
163 if (canTypeBeUserSpecified(Id) &&
164 memcmp(Name, getInfo(Id).Name, N + 1) == 0)
171 // FIXME: Why don't we just put this list in the defs file, eh.
173 unsigned types::getNumCompilationPhases(ID Id) {
178 if (getPreprocessedType(Id) != TY_INVALID)
181 if (onlyAssembleType(Id))
182 return N + 2; // assemble, link
183 if (onlyPrecompileType(Id))
184 return N + 1; // precompile
186 return N + 3; // compile, assemble, link
189 phases::ID types::getCompilationPhase(ID Id, unsigned N) {
190 assert(N < getNumCompilationPhases(Id) && "Invalid index.");
195 if (getPreprocessedType(Id) != TY_INVALID) {
197 return phases::Preprocess;
201 if (onlyAssembleType(Id))
202 return N == 0 ? phases::Assemble : phases::Link;
204 if (onlyPrecompileType(Id))
205 return phases::Precompile;
208 return phases::Compile;
210 return phases::Assemble;