blob: ec09de1eb3be4971ef4e84bf7dc9058801a05606 [file] [log] [blame]
Alexey Bataevc6400582013-03-22 06:34:35 +00001//===--- 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"
Matt Beaumont-Gayb63d8d22013-03-25 21:32:02 +000016#include "llvm/ADT/StringRef.h"
Alexey Bataevc6400582013-03-22 06:34:35 +000017#include "llvm/ADT/StringSwitch.h"
18#include "llvm/Support/ErrorHandling.h"
19#include <cassert>
20
21using namespace clang;
22
23OpenMPDirectiveKind 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
31const char *clang::getOpenMPDirectiveName(OpenMPDirectiveKind Kind) {
32 assert(Kind < NUM_OPENMP_DIRECTIVES);
33 switch (Kind) {
34 case OMPD_unknown:
Alexey Bataev6af701f2013-05-13 04:18:18 +000035 return "unknown";
Alexey Bataevc6400582013-03-22 06:34:35 +000036#define OPENMP_DIRECTIVE(Name) \
37 case OMPD_##Name : return #Name;
38#include "clang/Basic/OpenMPKinds.def"
Alexey Bataev4fa7eab2013-07-19 03:13:43 +000039 case NUM_OPENMP_DIRECTIVES:
Alexey Bataevc6400582013-03-22 06:34:35 +000040 break;
41 }
42 llvm_unreachable("Invalid OpenMP directive kind");
43}
Alexey Bataev6af701f2013-05-13 04:18:18 +000044
Alexey Bataev4fa7eab2013-07-19 03:13:43 +000045OpenMPClauseKind 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
53const 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
69unsigned 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:
Stephen Hines651f13c2014-04-23 16:59:28 -070080 case OMPC_if:
81 case OMPC_num_threads:
82 case OMPC_safelen:
Alexey Bataev4fa7eab2013-07-19 03:13:43 +000083 case OMPC_private:
Alexey Bataevd195bc32013-10-01 05:32:34 +000084 case OMPC_firstprivate:
David Blaikie325047f2013-09-06 20:58:25 +000085 case OMPC_shared:
Stephen Hines651f13c2014-04-23 16:59:28 -070086 case OMPC_copyin:
Alexey Bataev4fa7eab2013-07-19 03:13:43 +000087 case NUM_OPENMP_CLAUSES:
88 break;
89 }
90 llvm_unreachable("Invalid OpenMP simple clause kind");
91}
92
93const char *clang::getOpenMPSimpleClauseTypeName(OpenMPClauseKind Kind,
94 unsigned Type) {
95 switch (Kind) {
96 case OMPC_default:
97 switch (Type) {
98 case OMPC_DEFAULT_unknown:
99 return "unknown";
100#define OPENMP_DEFAULT_KIND(Name) \
101 case OMPC_DEFAULT_##Name : return #Name;
102#include "clang/Basic/OpenMPKinds.def"
103 }
104 llvm_unreachable("Invalid OpenMP 'default' clause type");
105 case OMPC_unknown:
106 case OMPC_threadprivate:
Stephen Hines651f13c2014-04-23 16:59:28 -0700107 case OMPC_if:
108 case OMPC_num_threads:
109 case OMPC_safelen:
Alexey Bataev4fa7eab2013-07-19 03:13:43 +0000110 case OMPC_private:
Alexey Bataevd195bc32013-10-01 05:32:34 +0000111 case OMPC_firstprivate:
David Blaikie325047f2013-09-06 20:58:25 +0000112 case OMPC_shared:
Stephen Hines651f13c2014-04-23 16:59:28 -0700113 case OMPC_copyin:
Alexey Bataev4fa7eab2013-07-19 03:13:43 +0000114 case NUM_OPENMP_CLAUSES:
115 break;
116 }
117 llvm_unreachable("Invalid OpenMP simple clause kind");
118}
119
120bool clang::isAllowedClauseForDirective(OpenMPDirectiveKind DKind,
121 OpenMPClauseKind CKind) {
122 assert(DKind < NUM_OPENMP_DIRECTIVES);
123 assert(CKind < NUM_OPENMP_CLAUSES);
124 switch (DKind) {
125 case OMPD_parallel:
126 switch (CKind) {
127#define OPENMP_PARALLEL_CLAUSE(Name) \
128 case OMPC_##Name: return true;
129#include "clang/Basic/OpenMPKinds.def"
130 default:
131 break;
132 }
133 break;
Stephen Hines651f13c2014-04-23 16:59:28 -0700134 case OMPD_simd:
135 switch (CKind) {
136#define OPENMP_SIMD_CLAUSE(Name) \
137 case OMPC_##Name: return true;
138#include "clang/Basic/OpenMPKinds.def"
139 default:
140 break;
141 }
142 break;
Alexey Bataev4fa7eab2013-07-19 03:13:43 +0000143 case OMPD_unknown:
144 case OMPD_threadprivate:
145 case OMPD_task:
146 case NUM_OPENMP_DIRECTIVES:
147 break;
148 }
149 return false;
150}