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"
11 #include "llvm/ADT/STLExtras.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 = llvm::array_lengthof(TypeInfos);
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 types::ID types::getPrecompiledType(ID Id) {
48 if (strchr(getInfo(Id).Flags, 'm'))
50 if (onlyPrecompileType(Id))
55 const char *types::getTypeTempSuffix(ID Id, bool CLMode) {
69 return getInfo(Id).TempSuffix;
72 bool types::onlyAssembleType(ID Id) {
73 return strchr(getInfo(Id).Flags, 'a');
76 bool types::onlyPrecompileType(ID Id) {
77 return strchr(getInfo(Id).Flags, 'p');
80 bool types::canTypeBeUserSpecified(ID Id) {
81 return strchr(getInfo(Id).Flags, 'u');
84 bool types::appendSuffixForType(ID Id) {
85 return strchr(getInfo(Id).Flags, 'A');
88 bool types::canLipoType(ID Id) {
89 return (Id == TY_Nothing ||
95 bool types::isAcceptedByClang(ID Id) {
101 case TY_C: case TY_PP_C:
103 case TY_CUDA: case TY_PP_CUDA:
105 case TY_ObjC: case TY_PP_ObjC: case TY_PP_ObjC_Alias:
106 case TY_CXX: case TY_PP_CXX:
107 case TY_ObjCXX: case TY_PP_ObjCXX: case TY_PP_ObjCXX_Alias:
108 case TY_CHeader: case TY_PP_CHeader:
110 case TY_ObjCHeader: case TY_PP_ObjCHeader:
111 case TY_CXXHeader: case TY_PP_CXXHeader:
112 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader:
113 case TY_CXXModule: case TY_PP_CXXModule:
114 case TY_AST: case TY_ModuleFile:
115 case TY_LLVM_IR: case TY_LLVM_BC:
120 bool types::isObjC(ID Id) {
125 case TY_ObjC: case TY_PP_ObjC: case TY_PP_ObjC_Alias:
126 case TY_ObjCXX: case TY_PP_ObjCXX:
127 case TY_ObjCHeader: case TY_PP_ObjCHeader:
128 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: case TY_PP_ObjCXX_Alias:
133 bool types::isCXX(ID Id) {
138 case TY_CXX: case TY_PP_CXX:
139 case TY_ObjCXX: case TY_PP_ObjCXX: case TY_PP_ObjCXX_Alias:
140 case TY_CXXHeader: case TY_PP_CXXHeader:
141 case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader:
142 case TY_CXXModule: case TY_PP_CXXModule:
143 case TY_CUDA: case TY_PP_CUDA: case TY_CUDA_DEVICE:
148 bool types::isLLVMIR(ID Id) {
161 bool types::isCuda(ID Id) {
173 bool types::isSrcFile(ID Id) {
174 return Id != TY_Object && getPreprocessedType(Id) != TY_INVALID;
177 types::ID types::lookupTypeForExtension(llvm::StringRef Ext) {
178 return llvm::StringSwitch<types::ID>(Ext)
181 .Case("F", TY_Fortran)
182 .Case("f", TY_PP_Fortran)
183 .Case("h", TY_CHeader)
184 .Case("H", TY_CXXHeader)
187 .Case("M", TY_ObjCXX)
188 .Case("o", TY_Object)
190 .Case("s", TY_PP_Asm)
191 .Case("bc", TY_LLVM_BC)
197 .Case("hh", TY_CXXHeader)
198 .Case("ii", TY_PP_CXX)
199 .Case("ll", TY_LLVM_IR)
200 .Case("mi", TY_PP_ObjC)
201 .Case("mm", TY_ObjCXX)
202 .Case("rs", TY_RenderScript)
205 .Case("asm", TY_PP_Asm)
207 .Case("ccm", TY_CXXModule)
212 .Case("cui", TY_PP_CUDA)
215 .Case("F90", TY_Fortran)
216 .Case("f90", TY_PP_Fortran)
217 .Case("F95", TY_Fortran)
218 .Case("f95", TY_PP_Fortran)
219 .Case("for", TY_PP_Fortran)
220 .Case("FOR", TY_PP_Fortran)
221 .Case("fpp", TY_Fortran)
222 .Case("FPP", TY_Fortran)
224 .Case("hpp", TY_CXXHeader)
225 .Case("iim", TY_PP_CXXModule)
226 .Case("lib", TY_Object)
227 .Case("mii", TY_PP_ObjCXX)
228 .Case("obj", TY_Object)
230 .Case("pcm", TY_ModuleFile)
231 .Case("c++m", TY_CXXModule)
232 .Case("cppm", TY_CXXModule)
233 .Case("cxxm", TY_CXXModule)
234 .Default(TY_INVALID);
237 types::ID types::lookupTypeForTypeSpecifier(const char *Name) {
238 for (unsigned i=0; i<numTypes; ++i) {
239 types::ID Id = (types::ID) (i + 1);
240 if (canTypeBeUserSpecified(Id) &&
241 strcmp(Name, getInfo(Id).Name) == 0)
248 // FIXME: Why don't we just put this list in the defs file, eh.
249 void types::getCompilationPhases(ID Id, llvm::SmallVectorImpl<phases::ID> &P) {
250 if (Id != TY_Object) {
251 if (getPreprocessedType(Id) != TY_INVALID) {
252 P.push_back(phases::Preprocess);
255 if (getPrecompiledType(Id) != TY_INVALID) {
256 P.push_back(phases::Precompile);
259 if (!onlyPrecompileType(Id)) {
260 if (!onlyAssembleType(Id)) {
261 P.push_back(phases::Compile);
262 P.push_back(phases::Backend);
264 P.push_back(phases::Assemble);
268 if (!onlyPrecompileType(Id)) {
269 P.push_back(phases::Link);
271 assert(0 < P.size() && "Not enough phases in list");
272 assert(P.size() <= phases::MaxNumberOfPhases && "Too many phases in list");
275 ID types::lookupCXXTypeForCType(ID Id) {
281 return types::TY_CXX;
283 return types::TY_PP_CXX;
284 case types::TY_CHeader:
285 return types::TY_CXXHeader;
286 case types::TY_PP_CHeader:
287 return types::TY_PP_CXXHeader;
291 ID types::lookupHeaderTypeForSourceType(ID Id) {
297 return types::TY_CHeader;
299 return types::TY_CXXHeader;
301 return types::TY_ObjCHeader;
302 case types::TY_ObjCXX:
303 return types::TY_ObjCXXHeader;
305 return types::TY_CLHeader;