| #include "slang_pragma_recorder.h" |
| |
| #include "clang/Basic/TokenKinds.h" |
| |
| #include "clang/Lex/Preprocessor.h" |
| #include "clang/Lex/Token.h" |
| |
| using namespace slang; |
| |
| bool PragmaRecorder::GetPragmaNameFromToken(const clang::Token &Token, |
| std::string &PragmaName) { |
| if (Token.isLiteral()) |
| PragmaName.assign(Token.getLiteralData(), Token.getLength()); |
| else if (Token.is(clang::tok::identifier)) |
| PragmaName.assign(Token.getIdentifierInfo()->getNameStart(), |
| Token.getIdentifierInfo()->getLength()); |
| else |
| return false; |
| return true; |
| } |
| |
| bool PragmaRecorder::GetPragmaValueFromToken(const clang::Token &Token, |
| std::string &PragmaValue) { |
| // Same as the GetPragmaName() |
| if (Token.is(clang::tok::r_paren)) |
| PragmaValue.clear(); |
| else |
| return GetPragmaNameFromToken(Token, PragmaValue); |
| return true; |
| } |
| |
| PragmaRecorder::PragmaRecorder(PragmaList &Pragmas) |
| : PragmaHandler(), |
| mPragmas(Pragmas) { |
| return; |
| } |
| |
| void PragmaRecorder::HandlePragma(clang::Preprocessor &PP, |
| clang::Token &FirstToken) { |
| clang::Token &CurrentToken = FirstToken; |
| std::string PragmaName, PragmaValue = ""; |
| // Pragma in ACC should be a name/value pair |
| |
| if (GetPragmaNameFromToken(FirstToken, PragmaName)) { |
| // start parsing the value '(' PragmaValue ')' |
| const clang::Token* NextToken = &PP.LookAhead(0); |
| |
| if (NextToken->is(clang::tok::l_paren)) |
| PP.LexUnexpandedToken(CurrentToken); |
| else |
| goto end_parsing_pragma_value; |
| |
| NextToken = &PP.LookAhead(0); |
| if (GetPragmaValueFromToken(*NextToken, PragmaValue)) |
| PP.Lex(CurrentToken); |
| else |
| goto end_parsing_pragma_value; |
| |
| if (!NextToken->is(clang::tok::r_paren)) { |
| NextToken = &PP.LookAhead(0); |
| if (NextToken->is(clang::tok::r_paren)) |
| PP.LexUnexpandedToken(CurrentToken); |
| else |
| goto end_parsing_pragma_value; |
| } |
| |
| // Until now, we ensure that we have a pragma name/value pair |
| mPragmas.push_back(make_pair(PragmaName, PragmaValue)); |
| } |
| |
| end_parsing_pragma_value: |
| // Infor lex to eat the token |
| PP.LexUnexpandedToken(CurrentToken); |
| |
| return; |
| } |