1 //===--- OpenMPKinds.cpp - Token Kinds Support ----------------------------===//
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 /// \file
10 /// \brief This file implements the OpenMP enum and support functions.
11 ///
12 //===----------------------------------------------------------------------===//
13 
14 #include "clang/Basic/OpenMPKinds.h"
15 #include "clang/Basic/IdentifierTable.h"
16 #include "llvm/ADT/StringRef.h"
17 #include "llvm/ADT/StringSwitch.h"
18 #include "llvm/Support/ErrorHandling.h"
19 #include <cassert>
20 
21 using namespace clang;
22 
23 OpenMPDirectiveKind clang::getOpenMPDirectiveKind(StringRef Str) {
24   return llvm::StringSwitch<OpenMPDirectiveKind>(Str)
25 #define OPENMP_DIRECTIVE(Name) \
26            .Case(#Name, OMPD_##Name)
27 #include "clang/Basic/OpenMPKinds.def"
28            .Default(OMPD_unknown);
29 }
30 
31 const char *clang::getOpenMPDirectiveName(OpenMPDirectiveKind Kind) {
32   assert(Kind < NUM_OPENMP_DIRECTIVES);
33   switch (Kind) {
34   case OMPD_unknown:
35     return "unknown";
36 #define OPENMP_DIRECTIVE(Name) \
37   case OMPD_##Name : return #Name;
38 #include "clang/Basic/OpenMPKinds.def"
39   case NUM_OPENMP_DIRECTIVES:
40     break;
41   }
42   llvm_unreachable("Invalid OpenMP directive kind");
43 }
44 
45 OpenMPClauseKind clang::getOpenMPClauseKind(StringRef Str) {
46   return llvm::StringSwitch<OpenMPClauseKind>(Str)
47 #define OPENMP_CLAUSE(Name, Class) \
48            .Case(#Name, OMPC_##Name)
49 #include "clang/Basic/OpenMPKinds.def"
50            .Default(OMPC_unknown);
51 }
52 
53 const char *clang::getOpenMPClauseName(OpenMPClauseKind Kind) {
54   assert(Kind < NUM_OPENMP_CLAUSES);
55   switch (Kind) {
56   case OMPC_unknown:
57     return "unknown";
58 #define OPENMP_CLAUSE(Name, Class) \
59   case OMPC_##Name : return #Name;
60 #include "clang/Basic/OpenMPKinds.def"
61   case OMPC_threadprivate:
62     return "threadprivate or thread local";
63   case NUM_OPENMP_CLAUSES:
64     break;
65   }
66   llvm_unreachable("Invalid OpenMP clause kind");
67 }
68 
69 unsigned clang::getOpenMPSimpleClauseType(OpenMPClauseKind Kind,
70                                           StringRef Str) {
71   switch (Kind) {
72   case OMPC_default:
73     return llvm::StringSwitch<OpenMPDefaultClauseKind>(Str)
74 #define OPENMP_DEFAULT_KIND(Name) \
75              .Case(#Name, OMPC_DEFAULT_##Name)
76 #include "clang/Basic/OpenMPKinds.def"
77              .Default(OMPC_DEFAULT_unknown);
78   case OMPC_unknown:
79   case OMPC_threadprivate:
80   case OMPC_if:
81   case OMPC_num_threads:
82   case OMPC_safelen:
83   case OMPC_private:
84   case OMPC_firstprivate:
85   case OMPC_shared:
86   case OMPC_linear:
87   case OMPC_copyin:
88   case NUM_OPENMP_CLAUSES:
89     break;
90   }
91   llvm_unreachable("Invalid OpenMP simple clause kind");
92 }
93 
94 const char *clang::getOpenMPSimpleClauseTypeName(OpenMPClauseKind Kind,
95                                                  unsigned Type) {
96   switch (Kind) {
97   case OMPC_default:
98     switch (Type) {
99     case OMPC_DEFAULT_unknown:
100       return "unknown";
101 #define OPENMP_DEFAULT_KIND(Name) \
102     case OMPC_DEFAULT_##Name : return #Name;
103 #include "clang/Basic/OpenMPKinds.def"
104     }
105     llvm_unreachable("Invalid OpenMP 'default' clause type");
106   case OMPC_unknown:
107   case OMPC_threadprivate:
108   case OMPC_if:
109   case OMPC_num_threads:
110   case OMPC_safelen:
111   case OMPC_private:
112   case OMPC_firstprivate:
113   case OMPC_shared:
114   case OMPC_linear:
115   case OMPC_copyin:
116   case NUM_OPENMP_CLAUSES:
117     break;
118   }
119   llvm_unreachable("Invalid OpenMP simple clause kind");
120 }
121 
122 bool clang::isAllowedClauseForDirective(OpenMPDirectiveKind DKind,
123                                         OpenMPClauseKind CKind) {
124   assert(DKind < NUM_OPENMP_DIRECTIVES);
125   assert(CKind < NUM_OPENMP_CLAUSES);
126   switch (DKind) {
127   case OMPD_parallel:
128     switch (CKind) {
129 #define OPENMP_PARALLEL_CLAUSE(Name) \
130     case OMPC_##Name: return true;
131 #include "clang/Basic/OpenMPKinds.def"
132     default:
133       break;
134     }
135     break;
136   case OMPD_simd:
137     switch (CKind) {
138 #define OPENMP_SIMD_CLAUSE(Name) \
139     case OMPC_##Name: return true;
140 #include "clang/Basic/OpenMPKinds.def"
141     default:
142       break;
143     }
144     break;
145   case OMPD_unknown:
146   case OMPD_threadprivate:
147   case OMPD_task:
148   case NUM_OPENMP_DIRECTIVES:
149     break;
150   }
151   return false;
152 }
153