Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 1 | //===--- Types.cpp - Driver input & temporary type information ----------*-===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
| 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
| 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | |
| 10 | #include "clang/Driver/Types.h" |
| 11 | |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 12 | #include "llvm/ADT/StringSwitch.h" |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 13 | #include <string.h> |
| 14 | #include <cassert> |
| 15 | |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 16 | using namespace clang::driver; |
| 17 | using namespace clang::driver::types; |
| 18 | |
Daniel Dunbar | d8e0e45 | 2009-11-18 20:19:26 +0000 | [diff] [blame] | 19 | struct TypeInfo { |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 20 | const char *Name; |
| 21 | const char *Flags; |
| 22 | const char *TempSuffix; |
| 23 | ID PreprocessedType; |
| 24 | }; |
| 25 | |
Nuno Lopes | 68f7a24 | 2009-12-10 00:07:02 +0000 | [diff] [blame] | 26 | static const TypeInfo TypeInfos[] = { |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 27 | #define TYPE(NAME, ID, PP_TYPE, TEMP_SUFFIX, FLAGS) \ |
| 28 | { NAME, FLAGS, TEMP_SUFFIX, TY_##PP_TYPE, }, |
| 29 | #include "clang/Driver/Types.def" |
| 30 | #undef TYPE |
| 31 | }; |
| 32 | static const unsigned numTypes = sizeof(TypeInfos) / sizeof(TypeInfos[0]); |
| 33 | |
Nuno Lopes | 68f7a24 | 2009-12-10 00:07:02 +0000 | [diff] [blame] | 34 | static const TypeInfo &getInfo(unsigned id) { |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 35 | assert(id > 0 && id - 1 < numTypes && "Invalid Type ID."); |
| 36 | return TypeInfos[id - 1]; |
| 37 | } |
| 38 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 39 | const char *types::getTypeName(ID Id) { |
| 40 | return getInfo(Id).Name; |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 41 | } |
| 42 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 43 | types::ID types::getPreprocessedType(ID Id) { |
| 44 | return getInfo(Id).PreprocessedType; |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 45 | } |
| 46 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 47 | const char *types::getTypeTempSuffix(ID Id) { |
| 48 | return getInfo(Id).TempSuffix; |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 49 | } |
| 50 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 51 | bool types::onlyAssembleType(ID Id) { |
| 52 | return strchr(getInfo(Id).Flags, 'a'); |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 53 | } |
| 54 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 55 | bool types::onlyPrecompileType(ID Id) { |
| 56 | return strchr(getInfo(Id).Flags, 'p'); |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 57 | } |
| 58 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 59 | bool types::canTypeBeUserSpecified(ID Id) { |
| 60 | return strchr(getInfo(Id).Flags, 'u'); |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 61 | } |
| 62 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 63 | bool types::appendSuffixForType(ID Id) { |
| 64 | return strchr(getInfo(Id).Flags, 'A'); |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 65 | } |
| 66 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 67 | bool types::canLipoType(ID Id) { |
Daniel Dunbar | 9f5ef94 | 2009-03-12 18:21:41 +0000 | [diff] [blame] | 68 | return (Id == TY_Nothing || |
| 69 | Id == TY_Image || |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 70 | Id == TY_Object); |
Daniel Dunbar | 9f5ef94 | 2009-03-12 18:21:41 +0000 | [diff] [blame] | 71 | } |
| 72 | |
Daniel Dunbar | 4db938c | 2009-03-13 23:46:19 +0000 | [diff] [blame] | 73 | bool types::isAcceptedByClang(ID Id) { |
| 74 | switch (Id) { |
| 75 | default: |
| 76 | return false; |
| 77 | |
| 78 | case TY_Asm: |
| 79 | case TY_C: case TY_PP_C: |
Nate Begeman | edcfc41 | 2010-01-05 06:00:15 +0000 | [diff] [blame] | 80 | case TY_CL: |
Daniel Dunbar | 4db938c | 2009-03-13 23:46:19 +0000 | [diff] [blame] | 81 | case TY_ObjC: case TY_PP_ObjC: |
| 82 | case TY_CXX: case TY_PP_CXX: |
| 83 | case TY_ObjCXX: case TY_PP_ObjCXX: |
| 84 | case TY_CHeader: case TY_PP_CHeader: |
| 85 | case TY_ObjCHeader: case TY_PP_ObjCHeader: |
| 86 | case TY_CXXHeader: case TY_PP_CXXHeader: |
| 87 | case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: |
Daniel Dunbar | 5915fbf | 2009-09-01 16:57:46 +0000 | [diff] [blame] | 88 | case TY_AST: |
Daniel Dunbar | 6c6424b | 2010-06-07 23:28:45 +0000 | [diff] [blame] | 89 | case TY_LLVM_IR: case TY_LLVM_BC: |
| 90 | return true; |
| 91 | } |
| 92 | } |
| 93 | |
| 94 | bool types::isOnlyAcceptedByClang(ID Id) { |
| 95 | switch (Id) { |
| 96 | default: |
| 97 | return false; |
| 98 | |
| 99 | case TY_AST: |
| 100 | case TY_LLVM_IR: |
| 101 | case TY_LLVM_BC: |
| 102 | case TY_RewrittenObjC: |
Daniel Dunbar | 4db938c | 2009-03-13 23:46:19 +0000 | [diff] [blame] | 103 | return true; |
| 104 | } |
| 105 | } |
| 106 | |
Daniel Dunbar | 77544fd | 2009-11-17 08:07:16 +0000 | [diff] [blame] | 107 | bool types::isObjC(ID Id) { |
| 108 | switch (Id) { |
| 109 | default: |
| 110 | return false; |
| 111 | |
| 112 | case TY_ObjC: case TY_PP_ObjC: |
| 113 | case TY_ObjCXX: case TY_PP_ObjCXX: |
| 114 | case TY_ObjCHeader: case TY_PP_ObjCHeader: |
| 115 | case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: |
| 116 | return true; |
| 117 | } |
| 118 | } |
| 119 | |
Daniel Dunbar | 4db938c | 2009-03-13 23:46:19 +0000 | [diff] [blame] | 120 | bool types::isCXX(ID Id) { |
| 121 | switch (Id) { |
| 122 | default: |
| 123 | return false; |
| 124 | |
| 125 | case TY_CXX: case TY_PP_CXX: |
| 126 | case TY_ObjCXX: case TY_PP_ObjCXX: |
| 127 | case TY_CXXHeader: case TY_PP_CXXHeader: |
| 128 | case TY_ObjCXXHeader: case TY_PP_ObjCXXHeader: |
| 129 | return true; |
| 130 | } |
| 131 | } |
| 132 | |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 133 | types::ID types::lookupTypeForExtension(const char *Ext) { |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 134 | return llvm::StringSwitch<types::ID>(Ext) |
| 135 | .Case("c", TY_C) |
| 136 | .Case("i", TY_PP_C) |
| 137 | .Case("m", TY_ObjC) |
| 138 | .Case("M", TY_ObjCXX) |
| 139 | .Case("h", TY_CHeader) |
| 140 | .Case("C", TY_CXX) |
| 141 | .Case("H", TY_CXXHeader) |
| 142 | .Case("f", TY_PP_Fortran) |
| 143 | .Case("F", TY_Fortran) |
| 144 | .Case("s", TY_PP_Asm) |
| 145 | .Case("S", TY_Asm) |
| 146 | .Case("ii", TY_PP_CXX) |
| 147 | .Case("mi", TY_PP_ObjC) |
| 148 | .Case("mm", TY_ObjCXX) |
Daniel Dunbar | 6c6424b | 2010-06-07 23:28:45 +0000 | [diff] [blame] | 149 | .Case("bc", TY_LLVM_BC) |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 150 | .Case("cc", TY_CXX) |
| 151 | .Case("CC", TY_CXX) |
Nate Begeman | edcfc41 | 2010-01-05 06:00:15 +0000 | [diff] [blame] | 152 | .Case("cl", TY_CL) |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 153 | .Case("cp", TY_CXX) |
| 154 | .Case("hh", TY_CXXHeader) |
Daniel Dunbar | 6c6424b | 2010-06-07 23:28:45 +0000 | [diff] [blame] | 155 | .Case("ll", TY_LLVM_IR) |
Daniel Dunbar | 90cb920 | 2009-11-22 22:08:27 +0000 | [diff] [blame] | 156 | .Case("hpp", TY_CXXHeader) |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 157 | .Case("ads", TY_Ada) |
| 158 | .Case("adb", TY_Ada) |
| 159 | .Case("ast", TY_AST) |
Douglas Gregor | 169b753 | 2010-06-22 23:43:22 +0000 | [diff] [blame] | 160 | .Case("c++", TY_CXX) |
| 161 | .Case("C++", TY_CXX) |
Douglas Gregor | 55d3f7a | 2009-10-29 00:41:01 +0000 | [diff] [blame] | 162 | .Case("cxx", TY_CXX) |
| 163 | .Case("cpp", TY_CXX) |
| 164 | .Case("CPP", TY_CXX) |
| 165 | .Case("CXX", TY_CXX) |
| 166 | .Case("for", TY_PP_Fortran) |
| 167 | .Case("FOR", TY_PP_Fortran) |
| 168 | .Case("fpp", TY_Fortran) |
| 169 | .Case("FPP", TY_Fortran) |
| 170 | .Case("f90", TY_PP_Fortran) |
| 171 | .Case("f95", TY_PP_Fortran) |
| 172 | .Case("F90", TY_Fortran) |
| 173 | .Case("F95", TY_Fortran) |
| 174 | .Case("mii", TY_PP_ObjCXX) |
| 175 | .Default(TY_INVALID); |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 176 | } |
| 177 | |
| 178 | types::ID types::lookupTypeForTypeSpecifier(const char *Name) { |
| 179 | unsigned N = strlen(Name); |
| 180 | |
| 181 | for (unsigned i=0; i<numTypes; ++i) { |
| 182 | types::ID Id = (types::ID) (i + 1); |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 183 | if (canTypeBeUserSpecified(Id) && |
Daniel Dunbar | 3dbd6c5 | 2009-03-13 17:46:02 +0000 | [diff] [blame] | 184 | memcmp(Name, getInfo(Id).Name, N + 1) == 0) |
Daniel Dunbar | e9fba57 | 2009-03-12 07:40:41 +0000 | [diff] [blame] | 185 | return Id; |
| 186 | } |
| 187 | |
| 188 | return TY_INVALID; |
| 189 | } |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 190 | |
| 191 | // FIXME: Why don't we just put this list in the defs file, eh. |
| 192 | |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 193 | unsigned types::getNumCompilationPhases(ID Id) { |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 194 | if (Id == TY_Object) |
| 195 | return 1; |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 196 | |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 197 | unsigned N = 0; |
| 198 | if (getPreprocessedType(Id) != TY_INVALID) |
| 199 | N += 1; |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 200 | |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 201 | if (onlyAssembleType(Id)) |
| 202 | return N + 2; // assemble, link |
| 203 | if (onlyPrecompileType(Id)) |
| 204 | return N + 1; // precompile |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 205 | |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 206 | return N + 3; // compile, assemble, link |
| 207 | } |
| 208 | |
| 209 | phases::ID types::getCompilationPhase(ID Id, unsigned N) { |
| 210 | assert(N < getNumCompilationPhases(Id) && "Invalid index."); |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 211 | |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 212 | if (Id == TY_Object) |
| 213 | return phases::Link; |
| 214 | |
| 215 | if (getPreprocessedType(Id) != TY_INVALID) { |
| 216 | if (N == 0) |
| 217 | return phases::Preprocess; |
| 218 | --N; |
| 219 | } |
| 220 | |
| 221 | if (onlyAssembleType(Id)) |
| 222 | return N == 0 ? phases::Assemble : phases::Link; |
| 223 | |
| 224 | if (onlyPrecompileType(Id)) |
| 225 | return phases::Precompile; |
| 226 | |
| 227 | if (N == 0) |
| 228 | return phases::Compile; |
| 229 | if (N == 1) |
| 230 | return phases::Assemble; |
Mike Stump | 1eb4433 | 2009-09-09 15:08:12 +0000 | [diff] [blame] | 231 | |
Daniel Dunbar | c1b5fa8 | 2009-03-13 11:28:30 +0000 | [diff] [blame] | 232 | return phases::Link; |
| 233 | } |
Daniel Dunbar | 51679c5 | 2010-02-17 20:32:58 +0000 | [diff] [blame] | 234 | |
| 235 | ID types::lookupCXXTypeForCType(ID Id) { |
| 236 | switch (Id) { |
| 237 | default: |
| 238 | return Id; |
| 239 | |
| 240 | case types::TY_C: |
| 241 | return types::TY_CXX; |
| 242 | case types::TY_PP_C: |
| 243 | return types::TY_PP_CXX; |
| 244 | case types::TY_CHeader: |
| 245 | return types::TY_CXXHeader; |
| 246 | case types::TY_PP_CHeader: |
| 247 | return types::TY_PP_CXXHeader; |
| 248 | } |
| 249 | } |