TokenLexer.cpp revision b11e43c31dc5d395a7ec6a07259c078dadd4f47b
1//===--- TokenLexer.cpp - Lex from a token stream -------------------------===// 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// This file implements the TokenLexer interface. 11// 12//===----------------------------------------------------------------------===// 13 14#include "clang/Lex/TokenLexer.h" 15#include "MacroArgs.h" 16#include "clang/Lex/MacroInfo.h" 17#include "clang/Lex/Preprocessor.h" 18#include "clang/Basic/SourceManager.h" 19#include "clang/Lex/LexDiagnostic.h" 20#include "llvm/ADT/SmallVector.h" 21using namespace clang; 22 23 24/// Create a TokenLexer for the specified macro with the specified actual 25/// arguments. Note that this ctor takes ownership of the ActualArgs pointer. 26void TokenLexer::Init(Token &Tok, SourceLocation ILEnd, MacroArgs *Actuals) { 27 // If the client is reusing a TokenLexer, make sure to free any memory 28 // associated with it. 29 destroy(); 30 31 Macro = PP.getMacroInfo(Tok.getIdentifierInfo()); 32 ActualArgs = Actuals; 33 CurToken = 0; 34 35 InstantiateLocStart = Tok.getLocation(); 36 InstantiateLocEnd = ILEnd; 37 AtStartOfLine = Tok.isAtStartOfLine(); 38 HasLeadingSpace = Tok.hasLeadingSpace(); 39 Tokens = &*Macro->tokens_begin(); 40 OwnsTokens = false; 41 DisableMacroExpansion = false; 42 NumTokens = Macro->tokens_end()-Macro->tokens_begin(); 43 44 // If this is a function-like macro, expand the arguments and change 45 // Tokens to point to the expanded tokens. 46 if (Macro->isFunctionLike() && Macro->getNumArgs()) 47 ExpandFunctionArguments(); 48 49 // Mark the macro as currently disabled, so that it is not recursively 50 // expanded. The macro must be disabled only after argument pre-expansion of 51 // function-like macro arguments occurs. 52 Macro->DisableMacro(); 53} 54 55 56 57/// Create a TokenLexer for the specified token stream. This does not 58/// take ownership of the specified token vector. 59void TokenLexer::Init(const Token *TokArray, unsigned NumToks, 60 bool disableMacroExpansion, bool ownsTokens) { 61 // If the client is reusing a TokenLexer, make sure to free any memory 62 // associated with it. 63 destroy(); 64 65 Macro = 0; 66 ActualArgs = 0; 67 Tokens = TokArray; 68 OwnsTokens = ownsTokens; 69 DisableMacroExpansion = disableMacroExpansion; 70 NumTokens = NumToks; 71 CurToken = 0; 72 InstantiateLocStart = InstantiateLocEnd = SourceLocation(); 73 AtStartOfLine = false; 74 HasLeadingSpace = false; 75 76 // Set HasLeadingSpace/AtStartOfLine so that the first token will be 77 // returned unmodified. 78 if (NumToks != 0) { 79 AtStartOfLine = TokArray[0].isAtStartOfLine(); 80 HasLeadingSpace = TokArray[0].hasLeadingSpace(); 81 } 82} 83 84 85void TokenLexer::destroy() { 86 // If this was a function-like macro that actually uses its arguments, delete 87 // the expanded tokens. 88 if (OwnsTokens) { 89 delete [] Tokens; 90 Tokens = 0; 91 OwnsTokens = false; 92 } 93 94 // TokenLexer owns its formal arguments. 95 if (ActualArgs) ActualArgs->destroy(PP); 96} 97 98/// Expand the arguments of a function-like macro so that we can quickly 99/// return preexpanded tokens from Tokens. 100void TokenLexer::ExpandFunctionArguments() { 101 llvm::SmallVector<Token, 128> ResultToks; 102 103 // Loop through 'Tokens', expanding them into ResultToks. Keep 104 // track of whether we change anything. If not, no need to keep them. If so, 105 // we install the newly expanded sequence as the new 'Tokens' list. 106 bool MadeChange = false; 107 108 // NextTokGetsSpace - When this is true, the next token appended to the 109 // output list will get a leading space, regardless of whether it had one to 110 // begin with or not. This is used for placemarker support. 111 bool NextTokGetsSpace = false; 112 113 for (unsigned i = 0, e = NumTokens; i != e; ++i) { 114 // If we found the stringify operator, get the argument stringified. The 115 // preprocessor already verified that the following token is a macro name 116 // when the #define was parsed. 117 const Token &CurTok = Tokens[i]; 118 if (CurTok.is(tok::hash) || CurTok.is(tok::hashat)) { 119 int ArgNo = Macro->getArgumentNum(Tokens[i+1].getIdentifierInfo()); 120 assert(ArgNo != -1 && "Token following # is not an argument?"); 121 122 Token Res; 123 if (CurTok.is(tok::hash)) // Stringify 124 Res = ActualArgs->getStringifiedArgument(ArgNo, PP); 125 else { 126 // 'charify': don't bother caching these. 127 Res = MacroArgs::StringifyArgument(ActualArgs->getUnexpArgument(ArgNo), 128 PP, true); 129 } 130 131 // The stringified/charified string leading space flag gets set to match 132 // the #/#@ operator. 133 if (CurTok.hasLeadingSpace() || NextTokGetsSpace) 134 Res.setFlag(Token::LeadingSpace); 135 136 ResultToks.push_back(Res); 137 MadeChange = true; 138 ++i; // Skip arg name. 139 NextTokGetsSpace = false; 140 continue; 141 } 142 143 // Otherwise, if this is not an argument token, just add the token to the 144 // output buffer. 145 IdentifierInfo *II = CurTok.getIdentifierInfo(); 146 int ArgNo = II ? Macro->getArgumentNum(II) : -1; 147 if (ArgNo == -1) { 148 // This isn't an argument, just add it. 149 ResultToks.push_back(CurTok); 150 151 if (NextTokGetsSpace) { 152 ResultToks.back().setFlag(Token::LeadingSpace); 153 NextTokGetsSpace = false; 154 } 155 continue; 156 } 157 158 // An argument is expanded somehow, the result is different than the 159 // input. 160 MadeChange = true; 161 162 // Otherwise, this is a use of the argument. Find out if there is a paste 163 // (##) operator before or after the argument. 164 bool PasteBefore = 165 !ResultToks.empty() && ResultToks.back().is(tok::hashhash); 166 bool PasteAfter = i+1 != e && Tokens[i+1].is(tok::hashhash); 167 168 // If it is not the LHS/RHS of a ## operator, we must pre-expand the 169 // argument and substitute the expanded tokens into the result. This is 170 // C99 6.10.3.1p1. 171 if (!PasteBefore && !PasteAfter) { 172 const Token *ResultArgToks; 173 174 // Only preexpand the argument if it could possibly need it. This 175 // avoids some work in common cases. 176 const Token *ArgTok = ActualArgs->getUnexpArgument(ArgNo); 177 if (ActualArgs->ArgNeedsPreexpansion(ArgTok, PP)) 178 ResultArgToks = &ActualArgs->getPreExpArgument(ArgNo, Macro, PP)[0]; 179 else 180 ResultArgToks = ArgTok; // Use non-preexpanded tokens. 181 182 // If the arg token expanded into anything, append it. 183 if (ResultArgToks->isNot(tok::eof)) { 184 unsigned FirstResult = ResultToks.size(); 185 unsigned NumToks = MacroArgs::getArgLength(ResultArgToks); 186 ResultToks.append(ResultArgToks, ResultArgToks+NumToks); 187 188 // If any tokens were substituted from the argument, the whitespace 189 // before the first token should match the whitespace of the arg 190 // identifier. 191 ResultToks[FirstResult].setFlagValue(Token::LeadingSpace, 192 CurTok.hasLeadingSpace() || 193 NextTokGetsSpace); 194 NextTokGetsSpace = false; 195 } else { 196 // If this is an empty argument, and if there was whitespace before the 197 // formal token, make sure the next token gets whitespace before it. 198 NextTokGetsSpace = CurTok.hasLeadingSpace(); 199 } 200 continue; 201 } 202 203 // Okay, we have a token that is either the LHS or RHS of a paste (##) 204 // argument. It gets substituted as its non-pre-expanded tokens. 205 const Token *ArgToks = ActualArgs->getUnexpArgument(ArgNo); 206 unsigned NumToks = MacroArgs::getArgLength(ArgToks); 207 if (NumToks) { // Not an empty argument? 208 // If this is the GNU ", ## __VA_ARG__" extension, and we just learned 209 // that __VA_ARG__ expands to multiple tokens, avoid a pasting error when 210 // the expander trys to paste ',' with the first token of the __VA_ARG__ 211 // expansion. 212 if (PasteBefore && ResultToks.size() >= 2 && 213 ResultToks[ResultToks.size()-2].is(tok::comma) && 214 (unsigned)ArgNo == Macro->getNumArgs()-1 && 215 Macro->isVariadic()) { 216 // Remove the paste operator, report use of the extension. 217 PP.Diag(ResultToks.back().getLocation(), diag::ext_paste_comma); 218 ResultToks.pop_back(); 219 } 220 221 ResultToks.append(ArgToks, ArgToks+NumToks); 222 223 // If this token (the macro argument) was supposed to get leading 224 // whitespace, transfer this information onto the first token of the 225 // expansion. 226 // 227 // Do not do this if the paste operator occurs before the macro argument, 228 // as in "A ## MACROARG". In valid code, the first token will get 229 // smooshed onto the preceding one anyway (forming AMACROARG). In 230 // assembler-with-cpp mode, invalid pastes are allowed through: in this 231 // case, we do not want the extra whitespace to be added. For example, 232 // we want ". ## foo" -> ".foo" not ". foo". 233 if ((CurTok.hasLeadingSpace() || NextTokGetsSpace) && 234 !PasteBefore) 235 ResultToks[ResultToks.size()-NumToks].setFlag(Token::LeadingSpace); 236 237 NextTokGetsSpace = false; 238 continue; 239 } 240 241 // If an empty argument is on the LHS or RHS of a paste, the standard (C99 242 // 6.10.3.3p2,3) calls for a bunch of placemarker stuff to occur. We 243 // implement this by eating ## operators when a LHS or RHS expands to 244 // empty. 245 NextTokGetsSpace |= CurTok.hasLeadingSpace(); 246 if (PasteAfter) { 247 // Discard the argument token and skip (don't copy to the expansion 248 // buffer) the paste operator after it. 249 NextTokGetsSpace |= Tokens[i+1].hasLeadingSpace(); 250 ++i; 251 continue; 252 } 253 254 // If this is on the RHS of a paste operator, we've already copied the 255 // paste operator to the ResultToks list. Remove it. 256 assert(PasteBefore && ResultToks.back().is(tok::hashhash)); 257 NextTokGetsSpace |= ResultToks.back().hasLeadingSpace(); 258 ResultToks.pop_back(); 259 260 // If this is the __VA_ARGS__ token, and if the argument wasn't provided, 261 // and if the macro had at least one real argument, and if the token before 262 // the ## was a comma, remove the comma. 263 if ((unsigned)ArgNo == Macro->getNumArgs()-1 && // is __VA_ARGS__ 264 ActualArgs->isVarargsElidedUse() && // Argument elided. 265 !ResultToks.empty() && ResultToks.back().is(tok::comma)) { 266 // Never add a space, even if the comma, ##, or arg had a space. 267 NextTokGetsSpace = false; 268 // Remove the paste operator, report use of the extension. 269 PP.Diag(ResultToks.back().getLocation(), diag::ext_paste_comma); 270 ResultToks.pop_back(); 271 272 // If the comma was right after another paste (e.g. "X##,##__VA_ARGS__"), 273 // then removal of the comma should produce a placemarker token (in C99 274 // terms) which we model by popping off the previous ##, giving us a plain 275 // "X" when __VA_ARGS__ is empty. 276 if (!ResultToks.empty() && ResultToks.back().is(tok::hashhash)) 277 ResultToks.pop_back(); 278 } 279 continue; 280 } 281 282 // If anything changed, install this as the new Tokens list. 283 if (MadeChange) { 284 assert(!OwnsTokens && "This would leak if we already own the token list"); 285 // This is deleted in the dtor. 286 NumTokens = ResultToks.size(); 287 llvm::BumpPtrAllocator &Alloc = PP.getPreprocessorAllocator(); 288 Token *Res = 289 static_cast<Token *>(Alloc.Allocate(sizeof(Token)*ResultToks.size(), 290 llvm::alignOf<Token>())); 291 if (NumTokens) 292 memcpy(Res, &ResultToks[0], NumTokens*sizeof(Token)); 293 Tokens = Res; 294 295 // The preprocessor bump pointer owns these tokens, not us. 296 OwnsTokens = false; 297 } 298} 299 300/// Lex - Lex and return a token from this macro stream. 301/// 302void TokenLexer::Lex(Token &Tok) { 303 // Lexing off the end of the macro, pop this macro off the expansion stack. 304 if (isAtEnd()) { 305 // If this is a macro (not a token stream), mark the macro enabled now 306 // that it is no longer being expanded. 307 if (Macro) Macro->EnableMacro(); 308 309 // Pop this context off the preprocessors lexer stack and get the next 310 // token. This will delete "this" so remember the PP instance var. 311 Preprocessor &PPCache = PP; 312 if (PP.HandleEndOfTokenLexer(Tok)) 313 return; 314 315 // HandleEndOfTokenLexer may not return a token. If it doesn't, lex 316 // whatever is next. 317 return PPCache.Lex(Tok); 318 } 319 320 // If this is the first token of the expanded result, we inherit spacing 321 // properties later. 322 bool isFirstToken = CurToken == 0; 323 324 // Get the next token to return. 325 Tok = Tokens[CurToken++]; 326 327 bool TokenIsFromPaste = false; 328 329 // If this token is followed by a token paste (##) operator, paste the tokens! 330 // Note that ## is a normal token when not expanding a macro. 331 if (!isAtEnd() && Tokens[CurToken].is(tok::hashhash) && Macro) { 332 // When handling the microsoft /##/ extension, the final token is 333 // returned by PasteTokens, not the pasted token. 334 if (PasteTokens(Tok)) 335 return; 336 337 TokenIsFromPaste = true; 338 } 339 340 // The token's current location indicate where the token was lexed from. We 341 // need this information to compute the spelling of the token, but any 342 // diagnostics for the expanded token should appear as if they came from 343 // InstantiationLoc. Pull this information together into a new SourceLocation 344 // that captures all of this. 345 if (InstantiateLocStart.isValid()) { // Don't do this for token streams. 346 SourceManager &SM = PP.getSourceManager(); 347 Tok.setLocation(SM.createInstantiationLoc(Tok.getLocation(), 348 InstantiateLocStart, 349 InstantiateLocEnd, 350 Tok.getLength())); 351 } 352 353 // If this is the first token, set the lexical properties of the token to 354 // match the lexical properties of the macro identifier. 355 if (isFirstToken) { 356 Tok.setFlagValue(Token::StartOfLine , AtStartOfLine); 357 Tok.setFlagValue(Token::LeadingSpace, HasLeadingSpace); 358 } 359 360 // Handle recursive expansion! 361 if (!Tok.isAnnotation() && Tok.getIdentifierInfo() != 0) { 362 // Change the kind of this identifier to the appropriate token kind, e.g. 363 // turning "for" into a keyword. 364 IdentifierInfo *II = Tok.getIdentifierInfo(); 365 Tok.setKind(II->getTokenID()); 366 367 // If this identifier was poisoned and from a paste, emit an error. This 368 // won't be handled by Preprocessor::HandleIdentifier because this is coming 369 // from a macro expansion. 370 if (II->isPoisoned() && TokenIsFromPaste) { 371 PP.HandlePoisonedIdentifier(Tok); 372 } 373 374 if (!DisableMacroExpansion && II->isHandleIdentifierCase()) 375 PP.HandleIdentifier(Tok); 376 } 377 378 // Otherwise, return a normal token. 379} 380 381/// PasteTokens - Tok is the LHS of a ## operator, and CurToken is the ## 382/// operator. Read the ## and RHS, and paste the LHS/RHS together. If there 383/// are more ## after it, chomp them iteratively. Return the result as Tok. 384/// If this returns true, the caller should immediately return the token. 385bool TokenLexer::PasteTokens(Token &Tok) { 386 llvm::SmallString<128> Buffer; 387 const char *ResultTokStrPtr = 0; 388 do { 389 // Consume the ## operator. 390 SourceLocation PasteOpLoc = Tokens[CurToken].getLocation(); 391 ++CurToken; 392 assert(!isAtEnd() && "No token on the RHS of a paste operator!"); 393 394 // Get the RHS token. 395 const Token &RHS = Tokens[CurToken]; 396 397 // Allocate space for the result token. This is guaranteed to be enough for 398 // the two tokens. 399 Buffer.resize(Tok.getLength() + RHS.getLength()); 400 401 // Get the spelling of the LHS token in Buffer. 402 const char *BufPtr = &Buffer[0]; 403 bool Invalid = false; 404 unsigned LHSLen = PP.getSpelling(Tok, BufPtr, &Invalid); 405 if (BufPtr != &Buffer[0]) // Really, we want the chars in Buffer! 406 memcpy(&Buffer[0], BufPtr, LHSLen); 407 if (Invalid) 408 return true; 409 410 BufPtr = &Buffer[LHSLen]; 411 unsigned RHSLen = PP.getSpelling(RHS, BufPtr, &Invalid); 412 if (Invalid) 413 return true; 414 if (BufPtr != &Buffer[LHSLen]) // Really, we want the chars in Buffer! 415 memcpy(&Buffer[LHSLen], BufPtr, RHSLen); 416 417 // Trim excess space. 418 Buffer.resize(LHSLen+RHSLen); 419 420 // Plop the pasted result (including the trailing newline and null) into a 421 // scratch buffer where we can lex it. 422 Token ResultTokTmp; 423 ResultTokTmp.startToken(); 424 425 // Claim that the tmp token is a string_literal so that we can get the 426 // character pointer back from CreateString in getLiteralData(). 427 ResultTokTmp.setKind(tok::string_literal); 428 PP.CreateString(&Buffer[0], Buffer.size(), ResultTokTmp); 429 SourceLocation ResultTokLoc = ResultTokTmp.getLocation(); 430 ResultTokStrPtr = ResultTokTmp.getLiteralData(); 431 432 // Lex the resultant pasted token into Result. 433 Token Result; 434 435 if (Tok.isAnyIdentifier() && RHS.isAnyIdentifier()) { 436 // Common paste case: identifier+identifier = identifier. Avoid creating 437 // a lexer and other overhead. 438 PP.IncrementPasteCounter(true); 439 Result.startToken(); 440 Result.setKind(tok::raw_identifier); 441 Result.setRawIdentifierData(ResultTokStrPtr); 442 Result.setLocation(ResultTokLoc); 443 Result.setLength(LHSLen+RHSLen); 444 } else { 445 PP.IncrementPasteCounter(false); 446 447 assert(ResultTokLoc.isFileID() && 448 "Should be a raw location into scratch buffer"); 449 SourceManager &SourceMgr = PP.getSourceManager(); 450 FileID LocFileID = SourceMgr.getFileID(ResultTokLoc); 451 452 bool Invalid = false; 453 const char *ScratchBufStart 454 = SourceMgr.getBufferData(LocFileID, &Invalid).data(); 455 if (Invalid) 456 return false; 457 458 // Make a lexer to lex this string from. Lex just this one token. 459 // Make a lexer object so that we lex and expand the paste result. 460 Lexer TL(SourceMgr.getLocForStartOfFile(LocFileID), 461 PP.getLangOptions(), ScratchBufStart, 462 ResultTokStrPtr, ResultTokStrPtr+LHSLen+RHSLen); 463 464 // Lex a token in raw mode. This way it won't look up identifiers 465 // automatically, lexing off the end will return an eof token, and 466 // warnings are disabled. This returns true if the result token is the 467 // entire buffer. 468 bool isInvalid = !TL.LexFromRawLexer(Result); 469 470 // If we got an EOF token, we didn't form even ONE token. For example, we 471 // did "/ ## /" to get "//". 472 isInvalid |= Result.is(tok::eof); 473 474 // If pasting the two tokens didn't form a full new token, this is an 475 // error. This occurs with "x ## +" and other stuff. Return with Tok 476 // unmodified and with RHS as the next token to lex. 477 if (isInvalid) { 478 // Test for the Microsoft extension of /##/ turning into // here on the 479 // error path. 480 if (PP.getLangOptions().Microsoft && Tok.is(tok::slash) && 481 RHS.is(tok::slash)) { 482 HandleMicrosoftCommentPaste(Tok); 483 return true; 484 } 485 486 // Do not emit the error when preprocessing assembler code. 487 if (!PP.getLangOptions().AsmPreprocessor) { 488 // Explicitly convert the token location to have proper instantiation 489 // information so that the user knows where it came from. 490 SourceManager &SM = PP.getSourceManager(); 491 SourceLocation Loc = 492 SM.createInstantiationLoc(PasteOpLoc, InstantiateLocStart, 493 InstantiateLocEnd, 2); 494 // If we're in microsoft extensions mode, downgrade this from a hard 495 // error to a warning that defaults to an error. This allows 496 // disabling it. 497 PP.Diag(Loc, 498 PP.getLangOptions().Microsoft ? diag::err_pp_bad_paste_ms 499 : diag::err_pp_bad_paste) 500 << Buffer.str(); 501 } 502 503 // Do not consume the RHS. 504 --CurToken; 505 } 506 507 // Turn ## into 'unknown' to avoid # ## # from looking like a paste 508 // operator. 509 if (Result.is(tok::hashhash)) 510 Result.setKind(tok::unknown); 511 } 512 513 // Transfer properties of the LHS over the the Result. 514 Result.setFlagValue(Token::StartOfLine , Tok.isAtStartOfLine()); 515 Result.setFlagValue(Token::LeadingSpace, Tok.hasLeadingSpace()); 516 517 // Finally, replace LHS with the result, consume the RHS, and iterate. 518 ++CurToken; 519 Tok = Result; 520 } while (!isAtEnd() && Tokens[CurToken].is(tok::hashhash)); 521 522 // Now that we got the result token, it will be subject to expansion. Since 523 // token pasting re-lexes the result token in raw mode, identifier information 524 // isn't looked up. As such, if the result is an identifier, look up id info. 525 if (Tok.is(tok::raw_identifier)) { 526 // Look up the identifier info for the token. We disabled identifier lookup 527 // by saying we're skipping contents, so we need to do this manually. 528 PP.LookUpIdentifierInfo(Tok); 529 } 530 return false; 531} 532 533/// isNextTokenLParen - If the next token lexed will pop this macro off the 534/// expansion stack, return 2. If the next unexpanded token is a '(', return 535/// 1, otherwise return 0. 536unsigned TokenLexer::isNextTokenLParen() const { 537 // Out of tokens? 538 if (isAtEnd()) 539 return 2; 540 return Tokens[CurToken].is(tok::l_paren); 541} 542 543/// isParsingPreprocessorDirective - Return true if we are in the middle of a 544/// preprocessor directive. 545bool TokenLexer::isParsingPreprocessorDirective() const { 546 return Tokens[NumTokens-1].is(tok::eod) && !isAtEnd(); 547} 548 549/// HandleMicrosoftCommentPaste - In microsoft compatibility mode, /##/ pastes 550/// together to form a comment that comments out everything in the current 551/// macro, other active macros, and anything left on the current physical 552/// source line of the instantiated buffer. Handle this by returning the 553/// first token on the next line. 554void TokenLexer::HandleMicrosoftCommentPaste(Token &Tok) { 555 // We 'comment out' the rest of this macro by just ignoring the rest of the 556 // tokens that have not been lexed yet, if any. 557 558 // Since this must be a macro, mark the macro enabled now that it is no longer 559 // being expanded. 560 assert(Macro && "Token streams can't paste comments"); 561 Macro->EnableMacro(); 562 563 PP.HandleMicrosoftCommentPaste(Tok); 564} 565