// RUN: llvm-tblgen -gen-directive-decl -I %p/../../include %s | FileCheck -match-full-lines %s // RUN: llvm-tblgen -gen-directive-impl -I %p/../../include %s | FileCheck -match-full-lines %s -check-prefix=IMPL include "llvm/Frontend/Directive/DirectiveBase.td" def TestDirectiveLanguage : DirectiveLanguage { let name = "Tdl"; let cppNamespace = "tdl"; let directivePrefix = "TDLD_"; let clausePrefix = "TDLC_"; let makeEnumAvailableInNamespace = 1; let enableBitmaskEnumInNamespace = 1; let flangClauseBaseClass = "TdlClause"; } def TDLCV_vala : ClauseVal<"vala",1,1> {} def TDLCV_valb : ClauseVal<"valb",2,1> {} def TDLCV_valc : ClauseVal<"valc",3,0> { let isDefault = 1; } def TDLC_ClauseA : Clause<"clausea"> { let enumClauseValue = "AKind"; let allowedClauseValues = [ TDLCV_vala, TDLCV_valb, TDLCV_valc ]; } def TDLC_ClauseB : Clause<"clauseb"> { let flangClass = "IntExpr"; let isValueOptional = 1; let isDefault = 1; } def TDL_DirA : Directive<"dira"> { let allowedClauses = [ VersionedClause, VersionedClause ]; let isDefault = 1; } // CHECK: #ifndef LLVM_Tdl_INC // CHECK-NEXT: #define LLVM_Tdl_INC // CHECK-EMPTY: // CHECK-NEXT: #include "llvm/ADT/BitmaskEnum.h" // CHECK-EMPTY: // CHECK-NEXT: namespace llvm { // CHECK-NEXT: class StringRef; // CHECK-NEXT: namespace tdl { // CHECK-EMPTY: // CHECK-NEXT: LLVM_ENABLE_BITMASK_ENUMS_IN_NAMESPACE(); // CHECK-EMPTY: // CHECK-NEXT: enum class Directive { // CHECK-NEXT: TDLD_dira, // CHECK-NEXT: }; // CHECK-EMPTY: // CHECK-NEXT: static constexpr std::size_t Directive_enumSize = 1; // CHECK-EMPTY: // CHECK-NEXT: constexpr auto TDLD_dira = llvm::tdl::Directive::TDLD_dira; // CHECK-EMPTY: // CHECK-NEXT: enum class Clause { // CHECK-NEXT: TDLC_clausea, // CHECK-NEXT: TDLC_clauseb, // CHECK-NEXT: }; // CHECK-EMPTY: // CHECK-NEXT: static constexpr std::size_t Clause_enumSize = 2; // CHECK-EMPTY: // CHECK-NEXT: constexpr auto TDLC_clausea = llvm::tdl::Clause::TDLC_clausea; // CHECK-NEXT: constexpr auto TDLC_clauseb = llvm::tdl::Clause::TDLC_clauseb; // CHECK-EMPTY: // CHECK-NEXT: enum class AKind { // CHECK-NEXT: TDLCV_vala=1, // CHECK-NEXT: TDLCV_valb=2, // CHECK-NEXT: TDLCV_valc=3, // CHECK-NEXT: }; // CHECK-EMPTY: // CHECK-NEXT: constexpr auto TDLCV_vala = llvm::tdl::AKind::TDLCV_vala; // CHECK-NEXT: constexpr auto TDLCV_valb = llvm::tdl::AKind::TDLCV_valb; // CHECK-NEXT: constexpr auto TDLCV_valc = llvm::tdl::AKind::TDLCV_valc; // CHECK-EMPTY: // CHECK-NEXT: // Enumeration helper functions // CHECK-NEXT: Directive getTdlDirectiveKind(llvm::StringRef Str); // CHECK-EMPTY: // CHECK-NEXT: llvm::StringRef getTdlDirectiveName(Directive D); // CHECK-EMPTY: // CHECK-NEXT: Clause getTdlClauseKind(llvm::StringRef Str); // CHECK-EMPTY: // CHECK-NEXT: llvm::StringRef getTdlClauseName(Clause C); // CHECK-EMPTY: // CHECK-NEXT: /// Return true if \p C is a valid clause for \p D in version \p Version. // CHECK-NEXT: bool isAllowedClauseForDirective(Directive D, Clause C, unsigned Version); // CHECK-EMPTY: // CHECK-NEXT: AKind getAKind(StringRef); // CHECK-NEXT: llvm::StringRef getTdlAKindName(AKind); // CHECK-EMPTY: // CHECK-NEXT: } // namespace tdl // CHECK-NEXT: } // namespace llvm // CHECK-NEXT: #endif // LLVM_Tdl_INC // IMPL: #ifdef GEN_FLANG_DIRECTIVE_CLAUSE_SETS // IMPL-NEXT: #undef GEN_FLANG_DIRECTIVE_CLAUSE_SETS // IMPL-EMPTY: // IMPL-NEXT: namespace llvm { // IMPL-NEXT: namespace tdl { // IMPL-EMPTY: // IMPL-NEXT: // Sets for dira // IMPL-EMPTY: // IMPL-NEXT: static allowedClauses_TDLD_dira { // IMPL-NEXT: llvm::tdl::Clause::TDLC_clausea, // IMPL-NEXT: llvm::tdl::Clause::TDLC_clauseb, // IMPL-NEXT: }; // IMPL-EMPTY: // IMPL-NEXT: static allowedOnceClauses_TDLD_dira { // IMPL-NEXT: }; // IMPL-EMPTY: // IMPL-NEXT: static allowedExclusiveClauses_TDLD_dira { // IMPL-NEXT: }; // IMPL-EMPTY: // IMPL-NEXT: static requiredClauses_TDLD_dira { // IMPL-NEXT: }; // IMPL-NEXT: } // namespace tdl // IMPL-NEXT: } // namespace llvm // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_DIRECTIVE_CLAUSE_SETS // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_DIRECTIVE_CLAUSE_MAP // IMPL-NEXT: #undef GEN_FLANG_DIRECTIVE_CLAUSE_MAP // IMPL-EMPTY: // IMPL-NEXT: { // IMPL-NEXT: {llvm::tdl::Directive::TDLD_dira, // IMPL-NEXT: { // IMPL-NEXT: llvm::tdl::allowedClauses_TDLD_dira, // IMPL-NEXT: llvm::tdl::allowedOnceClauses_TDLD_dira, // IMPL-NEXT: llvm::tdl::allowedExclusiveClauses_TDLD_dira, // IMPL-NEXT: llvm::tdl::requiredClauses_TDLD_dira, // IMPL-NEXT: } // IMPL-NEXT: }, // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_DIRECTIVE_CLAUSE_MAP // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_CLAUSE_PARSER_CLASSES // IMPL-NEXT: #undef GEN_FLANG_CLAUSE_PARSER_CLASSES // IMPL-EMPTY: // IMPL-NEXT: EMPTY_CLASS(Clausea); // IMPL-NEXT: WRAPPER_CLASS(Clauseb, std::optional); // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_CLAUSE_PARSER_CLASSES // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_CLAUSE_PARSER_CLASSES_LIST // IMPL-NEXT: #undef GEN_FLANG_CLAUSE_PARSER_CLASSES_LIST // IMPL-EMPTY: // IMPL-NEXT: Clausea // IMPL-NEXT: , Clauseb // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_CLAUSE_PARSER_CLASSES_LIST // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_DUMP_PARSE_TREE_CLAUSES // IMPL-NEXT: #undef GEN_FLANG_DUMP_PARSE_TREE_CLAUSES // IMPL-EMPTY: // IMPL-NEXT: NODE(TdlClause, Clausea) // IMPL-NEXT: NODE(TdlClause, Clauseb) // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_DUMP_PARSE_TREE_CLAUSES // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_CLAUSE_UNPARSE // IMPL-NEXT: #undef GEN_FLANG_CLAUSE_UNPARSE // IMPL-EMPTY: // IMPL-NEXT: void Before(const TdlClause::Clausea &) { Word("CLAUSEA"); } // IMPL-NEXT: void Unparse(const TdlClause::Clauseb &x) { // IMPL-NEXT: Word("CLAUSEB"); // IMPL-NEXT: Walk("(", x.v, ")"); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_CLAUSE_UNPARSE // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_CLAUSE_CHECK_ENTER // IMPL-NEXT: #undef GEN_FLANG_CLAUSE_CHECK_ENTER // IMPL-EMPTY: // IMPL-NEXT: void Enter(const parser::TdlClause::Clausea &); // IMPL-NEXT: void Enter(const parser::TdlClause::Clauseb &); // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_CLAUSE_CHECK_ENTER // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_FLANG_CLAUSE_PARSER_KIND_MAP // IMPL-NEXT: #undef GEN_FLANG_CLAUSE_PARSER_KIND_MAP // IMPL-EMPTY: // IMPL-NEXT: if constexpr (std::is_same_v) // IMPL-NEXT: return llvm::tdl::Clause::TDLC_clausea; // IMPL-NEXT: if constexpr (std::is_same_v) // IMPL-NEXT: return llvm::tdl::Clause::TDLC_clauseb; // IMPL-NEXT: llvm_unreachable("Invalid Tdl Parser clause"); // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_FLANG_CLAUSE_PARSER_KIND_MAP // IMPL-EMPTY: // IMPL-NEXT: #ifdef GEN_CLANG_CLAUSE_CLASS // IMPL-NEXT: #undef GEN_CLANG_CLAUSE_CLASS // IMPL-EMPTY: // IMPL-NEXT: #ifndef CLAUSE // IMPL-NEXT: #define CLAUSE(Enum, Str, Implicit) // IMPL-NEXT: #endif // IMPL-NEXT: #ifndef CLAUSE_CLASS // IMPL-NEXT: #define CLAUSE_CLASS(Enum, Str, Class) // IMPL-NEXT: #endif // IMPL-NEXT: #ifndef CLAUSE_NO_CLASS // IMPL-NEXT: #define CLAUSE_NO_CLASS(Enum, Str) // IMPL-NEXT: #endif // IMPL-EMPTY: // IMPL-NEXT: #define __CLAUSE(Name, Class) \ // IMPL-NEXT: CLAUSE(TDLC_##Name, #Name, /* Implicit */ false) \ // IMPL-NEXT: CLAUSE_CLASS(TDLC_##Name, #Name, Class) // IMPL-NEXT: #define __CLAUSE_NO_CLASS(Name) \ // IMPL-NEXT: CLAUSE(TDLC_##Name, #Name, /* Implicit */ false) \ // IMPL-NEXT: CLAUSE_NO_CLASS(TDLC_##Name, #Name) // IMPL-NEXT: #define __IMPLICIT_CLAUSE_CLASS(Name, Str, Class) \ // IMPL-NEXT: CLAUSE(TDLC_##Name, Str, /* Implicit */ true) \ // IMPL-NEXT: CLAUSE_CLASS(TDLC_##Name, Str, Class) // IMPL-NEXT: #define __IMPLICIT_CLAUSE_NO_CLASS(Name, Str) \ // IMPL-NEXT: CLAUSE(TDLC_##Name, Str, /* Implicit */ true) \ // IMPL-NEXT: CLAUSE_NO_CLASS(TDLC_##Name, Str) // IMPL-EMPTY: // IMPL-NEXT: __CLAUSE_NO_CLASS(clausea) // IMPL-NEXT: __CLAUSE_NO_CLASS(clauseb) // IMPL-EMPTY: // IMPL-NEXT: #undef __IMPLICIT_CLAUSE_NO_CLASS // IMPL-NEXT: #undef __IMPLICIT_CLAUSE_CLASS // IMPL-NEXT: #undef __CLAUSE // IMPL-NEXT: #undef CLAUSE_NO_CLASS // IMPL-NEXT: #undef CLAUSE_CLASS // IMPL-NEXT: #undef CLAUSE // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_CLANG_CLAUSE_CLASS // IMPL-EMPTY: // IMPL: #ifdef GEN_DIRECTIVES_IMPL // IMPL-NEXT: #undef GEN_DIRECTIVES_IMPL // IMPL-EMPTY: // IMPL-NEXT: Directive llvm::tdl::getTdlDirectiveKind(llvm::StringRef Str) { // IMPL-NEXT: return llvm::StringSwitch(Str) // IMPL-NEXT: .Case("dira",TDLD_dira) // IMPL-NEXT: .Default(TDLD_dira); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: llvm::StringRef llvm::tdl::getTdlDirectiveName(Directive Kind) { // IMPL-NEXT: switch (Kind) { // IMPL-NEXT: case TDLD_dira: // IMPL-NEXT: return "dira"; // IMPL-NEXT: } // IMPL-NEXT: llvm_unreachable("Invalid Tdl Directive kind"); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: Clause llvm::tdl::getTdlClauseKind(llvm::StringRef Str) { // IMPL-NEXT: return llvm::StringSwitch(Str) // IMPL-NEXT: .Case("clausea",TDLC_clausea) // IMPL-NEXT: .Case("clauseb",TDLC_clauseb) // IMPL-NEXT: .Default(TDLC_clauseb); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: llvm::StringRef llvm::tdl::getTdlClauseName(Clause Kind) { // IMPL-NEXT: switch (Kind) { // IMPL-NEXT: case TDLC_clausea: // IMPL-NEXT: return "clausea"; // IMPL-NEXT: case TDLC_clauseb: // IMPL-NEXT: return "clauseb"; // IMPL-NEXT: } // IMPL-NEXT: llvm_unreachable("Invalid Tdl Clause kind"); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: AKind llvm::tdl::getAKind(llvm::StringRef Str) { // IMPL-NEXT: return llvm::StringSwitch(Str) // IMPL-NEXT: .Case("vala",TDLCV_vala) // IMPL-NEXT: .Case("valb",TDLCV_valb) // IMPL-NEXT: .Case("valc",TDLCV_valc) // IMPL-NEXT: .Default(TDLCV_valc); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: llvm::StringRef llvm::tdl::getTdlAKindName(llvm::tdl::AKind x) { // IMPL-NEXT: switch (x) { // IMPL-NEXT: case TDLCV_vala: // IMPL-NEXT: return "vala"; // IMPL-NEXT: case TDLCV_valb: // IMPL-NEXT: return "valb"; // IMPL-NEXT: case TDLCV_valc: // IMPL-NEXT: return "valc"; // IMPL-NEXT: } // IMPL-NEXT: llvm_unreachable("Invalid Tdl AKind kind"); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: bool llvm::tdl::isAllowedClauseForDirective(Directive D, Clause C, unsigned Version) { // IMPL-NEXT: assert(unsigned(D) <= llvm::tdl::Directive_enumSize); // IMPL-NEXT: assert(unsigned(C) <= llvm::tdl::Clause_enumSize); // IMPL-NEXT: switch (D) { // IMPL-NEXT: case TDLD_dira: // IMPL-NEXT: switch (C) { // IMPL-NEXT: case TDLC_clausea: // IMPL-NEXT: return 1 <= Version && 2147483647 >= Version; // IMPL-NEXT: case TDLC_clauseb: // IMPL-NEXT: return 1 <= Version && 2147483647 >= Version; // IMPL-NEXT: default: // IMPL-NEXT: return false; // IMPL-NEXT: } // IMPL-NEXT: break; // IMPL-NEXT: } // IMPL-NEXT: llvm_unreachable("Invalid Tdl Directive kind"); // IMPL-NEXT: } // IMPL-EMPTY: // IMPL-NEXT: #endif // GEN_DIRECTIVES_IMPL