Lexer.cpp revision 3692b09faa9fe346f39bc922db6dce48cdcc3f63
15f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===--- Lexer.cpp - C Language Family Lexer ------------------------------===// 25f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 35f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// The LLVM Compiler Infrastructure 45f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 50bc735ffcfb223c0186419547abaa5c84482663eChris Lattner// This file is distributed under the University of Illinois Open Source 60bc735ffcfb223c0186419547abaa5c84482663eChris Lattner// License. See LICENSE.TXT for details. 75f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 85f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 95f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 10d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner// This file implements the Lexer and Token interfaces. 115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// TODO: GCC Diagnostics emitted by the lexer: 155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// PEDWARN: (form feed|vertical tab) in preprocessing directive 165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Universal characters, unicode, char mapping: 185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// WARNING: `%.*s' is not in NFKC 195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// WARNING: `%.*s' is not in NFC 205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Other: 225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// TODO: Options to support: 235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// -fexec-charset,-fwide-exec-charset 245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// 255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include "clang/Lex/Lexer.h" 285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include "clang/Lex/Preprocessor.h" 295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include "clang/Basic/Diagnostic.h" 309dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner#include "clang/Basic/SourceManager.h" 31409a03671224d4e5bdab1594c43baf070148f830Chris Lattner#include "llvm/Support/Compiler.h" 325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include "llvm/Support/MemoryBuffer.h" 335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include <cctype> 345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerusing namespace clang; 355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic void InitCharacterInfo(); 375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 38dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner//===----------------------------------------------------------------------===// 39dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner// Token Class Implementation 40dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner//===----------------------------------------------------------------------===// 41dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner 42dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner/// isObjCAtKeyword - Return true if we have an ObjC keyword identifier. 43dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattnerbool Token::isObjCAtKeyword(tok::ObjCKeywordKind objcKey) const { 4422f6bbcafa8871f4f20c4402d9cbc5c024fee99aChris Lattner return is(tok::identifier) && 4522f6bbcafa8871f4f20c4402d9cbc5c024fee99aChris Lattner getIdentifierInfo()->getObjCKeywordID() == objcKey; 46dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner} 47dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner 48dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner/// getObjCKeywordID - Return the ObjC keyword kind. 49dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattnertok::ObjCKeywordKind Token::getObjCKeywordID() const { 50dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner IdentifierInfo *specId = getIdentifierInfo(); 51dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner return specId ? specId->getObjCKeywordID() : tok::objc_not_keyword; 52dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner} 53dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner 5453702cd401b8fdca985aede7732c2f6a82ad9b1cChris Lattner 55dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner//===----------------------------------------------------------------------===// 56dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner// Lexer Class Implementation 57dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner//===----------------------------------------------------------------------===// 58dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner 59dbf388b54bb1688ee4470c61235494cbc34b8f3cChris Lattner 60168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner/// Lexer constructor - Create a new lexer object for the specified buffer 61168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner/// with the specified preprocessor managing the lexing process. This lexer 62168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner/// assumes that the associated file buffer and Preprocessor objects will 63168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner/// outlive it, so it doesn't take ownership of either of them. 6425bdb51276d3bfc180a68688082071505a00ed27Chris LattnerLexer::Lexer(SourceLocation fileloc, Preprocessor &pp, 6525bdb51276d3bfc180a68688082071505a00ed27Chris Lattner const char *BufStart, const char *BufEnd) 66d6a2e7d71e9a910c45a3eb0268a5d94635003d58Ted Kremenek : PreprocessorLexer(&pp), FileLoc(fileloc), Features(pp.getLangOptions()) { 6725bdb51276d3bfc180a68688082071505a00ed27Chris Lattner 68168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner SourceManager &SourceMgr = PP->getSourceManager(); 69448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner unsigned InputFileID = SourceMgr.getPhysicalLoc(FileLoc).getFileID(); 70448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner const llvm::MemoryBuffer *InputFile = SourceMgr.getBuffer(InputFileID); 7125bdb51276d3bfc180a68688082071505a00ed27Chris Lattner 725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Is_PragmaLexer = false; 735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer InitCharacterInfo(); 74448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner 75448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner // BufferStart must always be InputFile->getBufferStart(). 76448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner BufferStart = InputFile->getBufferStart(); 77448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner 78448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner // BufferPtr and BufferEnd can start out somewhere inside the current buffer. 79448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner // If unspecified, they starts at the start/end of the buffer. 80448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner BufferPtr = BufStart ? BufStart : BufferStart; 8125bdb51276d3bfc180a68688082071505a00ed27Chris Lattner BufferEnd = BufEnd ? BufEnd : InputFile->getBufferEnd(); 8225bdb51276d3bfc180a68688082071505a00ed27Chris Lattner 835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer assert(BufferEnd[0] == 0 && 845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer "We assume that the input buffer has a null character at the end" 855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer " to simplify lexing!"); 8625bdb51276d3bfc180a68688082071505a00ed27Chris Lattner 875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Start of the file is a start of line. 885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer IsAtStartOfLine = true; 895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We are not after parsing a #. 915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ParsingPreprocessorDirective = false; 925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We are not after parsing #include. 945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ParsingFilename = false; 955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We are not in raw mode. Raw mode disables diagnostics and interpretation 975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // of tokens (e.g. identifiers, thus disabling macro expansion). It is used 985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // to quickly lex the tokens of the buffer, e.g. when handling a "#if 0" block 995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // or otherwise skipping over tokens. 1005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer LexingRawMode = false; 1015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 102d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // Default to keeping comments if the preprocessor wants them. 103d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner ExtendedTokenMode = 0; 104f744d133e8d36eec65828d046ee695bda238125cChris Lattner SetCommentRetentionState(PP->getCommentRetentionState()); 105168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner} 106168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 107168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner/// Lexer constructor - Create a new raw lexer object. This object is only 108590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner/// suitable for calls to 'LexRawToken'. This lexer assumes that the text 109590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner/// range will outlive it, so it doesn't take ownership of it. 110168ae2d44a443da75ea85db5f3b5081eb0bce113Chris LattnerLexer::Lexer(SourceLocation fileloc, const LangOptions &features, 111590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner const char *BufStart, const char *BufEnd, 112590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner const llvm::MemoryBuffer *FromFile) 113d6a2e7d71e9a910c45a3eb0268a5d94635003d58Ted Kremenek : PreprocessorLexer(0), FileLoc(fileloc), Features(features) { 114168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner Is_PragmaLexer = false; 115168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner InitCharacterInfo(); 116168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 1178527b71b1944b155a2bd60ec364d700299bc3ff7Chris Lattner // If a MemoryBuffer was specified, use its start as BufferStart. This affects 1188527b71b1944b155a2bd60ec364d700299bc3ff7Chris Lattner // the source location objects produced by this lexer. 119590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner BufferStart = FromFile ? FromFile->getBufferStart() : BufStart; 120168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner BufferPtr = BufStart; 121168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner BufferEnd = BufEnd; 122168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 123168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner assert(BufferEnd[0] == 0 && 124168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner "We assume that the input buffer has a null character at the end" 125168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner " to simplify lexing!"); 126168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 127168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner // Start of the file is a start of line. 128168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner IsAtStartOfLine = true; 129168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 130168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner // We are not after parsing a #. 131168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner ParsingPreprocessorDirective = false; 132168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 133168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner // We are not after parsing #include. 134168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner ParsingFilename = false; 135168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 136168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner // We *are* in raw mode. 137168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner LexingRawMode = true; 138168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 139a2c7ad9c7312df162300ba95828ed3b6c3b38131Chris Lattner // Default to not keeping comments in raw mode. 140d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner ExtendedTokenMode = 0; 1415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 1425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 143168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner 1445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// Stringify - Convert the specified string into a C string, with surrounding 1455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// ""'s, and with escaped \ and " characters. 1465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstd::string Lexer::Stringify(const std::string &Str, bool Charify) { 1475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer std::string Result = Str; 1485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char Quote = Charify ? '\'' : '"'; 1495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer for (unsigned i = 0, e = Result.size(); i != e; ++i) { 1505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Result[i] == '\\' || Result[i] == Quote) { 1515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Result.insert(Result.begin()+i, '\\'); 1525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++i; ++e; 1535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 1545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 1555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return Result; 1565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 1575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 158d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner/// Stringify - Convert the specified string into a C string by escaping '\' 159d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner/// and " characters. This does not add surrounding ""'s to the string. 160d8e3083840fef752d11ca183f42786470ed061e3Chris Lattnervoid Lexer::Stringify(llvm::SmallVectorImpl<char> &Str) { 161d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner for (unsigned i = 0, e = Str.size(); i != e; ++i) { 162d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner if (Str[i] == '\\' || Str[i] == '"') { 163d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner Str.insert(Str.begin()+i, '\\'); 164d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner ++i; ++e; 165d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner } 166d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner } 167d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner} 168d8e3083840fef752d11ca183f42786470ed061e3Chris Lattner 1695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 1709a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner/// MeasureTokenLength - Relex the token at the specified location and return 1719a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner/// its length in bytes in the input file. If the token needs cleaning (e.g. 1729a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner/// includes a trigraph or an escaped newline) then this count includes bytes 1739a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner/// that are part of that. 1749a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattnerunsigned Lexer::MeasureTokenLength(SourceLocation Loc, 1759a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner const SourceManager &SM) { 1769a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // If this comes from a macro expansion, we really do want the macro name, not 1779a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // the token this macro expanded to. 1789a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner Loc = SM.getLogicalLoc(Loc); 1799a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1809a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner const char *StrData = SM.getCharacterData(Loc); 1819a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1829a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // TODO: this could be special cased for common tokens like identifiers, ')', 1839a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // etc to make this faster, if it mattered. Just look at StrData[0] to handle 1849a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // all obviously single-char tokens. This could use 1859a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // Lexer::isObviouslySimpleCharacter for example to handle identifiers or 1869a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // something. 1879a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1889a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1899a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner const char *BufEnd = SM.getBufferData(Loc.getFileID()).second; 1909a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1919a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // Create a langops struct and enable trigraphs. This is sufficient for 1929a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // measuring tokens. 1939a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner LangOptions LangOpts; 1949a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner LangOpts.Trigraphs = true; 1959a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 1969a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner // Create a lexer starting at the beginning of this token. 1979a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner Lexer TheLexer(Loc, LangOpts, StrData, BufEnd); 1989a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner Token TheTok; 199590f0cc643274267d4d41125b62557e1d87886c3Chris Lattner TheLexer.LexFromRawLexer(TheTok); 2009a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner return TheTok.getLength(); 2019a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner} 2029a6119437672f42be5f50c3fe89fe843b1bfa5b5Chris Lattner 2035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 2045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Character information. 2055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 2065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic unsigned char CharInfo[256]; 2085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerenum { 2105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_HORZ_WS = 0x01, // ' ', '\t', '\f', '\v'. Note, no '\0' 2115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_VERT_WS = 0x02, // '\r', '\n' 2125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_LETTER = 0x04, // a-z,A-Z 2135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_NUMBER = 0x08, // 0-9 2145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_UNDER = 0x10, // _ 2155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CHAR_PERIOD = 0x20 // . 2165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer}; 2175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic void InitCharacterInfo() { 2195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer static bool isInited = false; 2205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (isInited) return; 2215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer isInited = true; 2225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Intiialize the CharInfo table. 2245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // TODO: statically initialize this. 2255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[(int)' '] = CharInfo[(int)'\t'] = 2265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[(int)'\f'] = CharInfo[(int)'\v'] = CHAR_HORZ_WS; 2275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[(int)'\n'] = CharInfo[(int)'\r'] = CHAR_VERT_WS; 2285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[(int)'_'] = CHAR_UNDER; 2305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[(int)'.'] = CHAR_PERIOD; 2315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer for (unsigned i = 'a'; i <= 'z'; ++i) 2325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[i] = CharInfo[i+'A'-'a'] = CHAR_LETTER; 2335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer for (unsigned i = '0'; i <= '9'; ++i) 2345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CharInfo[i] = CHAR_NUMBER; 2355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 2365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isIdentifierBody - Return true if this is the body character of an 2385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// identifier, which is [a-zA-Z0-9_]. 2395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic inline bool isIdentifierBody(unsigned char c) { 24095c062b94e2af5380617cf5dc115497ae7a5f817Hartmut Kaiser return (CharInfo[c] & (CHAR_LETTER|CHAR_NUMBER|CHAR_UNDER)) ? true : false; 2415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 2425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isHorizontalWhitespace - Return true if this character is horizontal 2445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// whitespace: ' ', '\t', '\f', '\v'. Note that this returns false for '\0'. 2455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic inline bool isHorizontalWhitespace(unsigned char c) { 24695c062b94e2af5380617cf5dc115497ae7a5f817Hartmut Kaiser return (CharInfo[c] & CHAR_HORZ_WS) ? true : false; 2475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 2485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isWhitespace - Return true if this character is horizontal or vertical 2505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// whitespace: ' ', '\t', '\f', '\v', '\n', '\r'. Note that this returns false 2515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// for '\0'. 2525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic inline bool isWhitespace(unsigned char c) { 25395c062b94e2af5380617cf5dc115497ae7a5f817Hartmut Kaiser return (CharInfo[c] & (CHAR_HORZ_WS|CHAR_VERT_WS)) ? true : false; 2545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 2555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isNumberBody - Return true if this is the body character of an 2575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// preprocessing number, which is [a-zA-Z0-9_.]. 2585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic inline bool isNumberBody(unsigned char c) { 25995c062b94e2af5380617cf5dc115497ae7a5f817Hartmut Kaiser return (CharInfo[c] & (CHAR_LETTER|CHAR_NUMBER|CHAR_UNDER|CHAR_PERIOD)) ? 26095c062b94e2af5380617cf5dc115497ae7a5f817Hartmut Kaiser true : false; 2615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 2625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 2645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 2655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Diagnostics forwarding code. 2665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 2675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 268409a03671224d4e5bdab1594c43baf070148f830Chris Lattner/// GetMappedTokenLoc - If lexing out of a 'mapped buffer', where we pretend the 269409a03671224d4e5bdab1594c43baf070148f830Chris Lattner/// lexer buffer was all instantiated at a single point, perform the mapping. 270409a03671224d4e5bdab1594c43baf070148f830Chris Lattner/// This is currently only used for _Pragma implementation, so it is the slow 271409a03671224d4e5bdab1594c43baf070148f830Chris Lattner/// path of the hot getSourceLocation method. Do not allow it to be inlined. 272409a03671224d4e5bdab1594c43baf070148f830Chris Lattnerstatic SourceLocation GetMappedTokenLoc(Preprocessor &PP, 273409a03671224d4e5bdab1594c43baf070148f830Chris Lattner SourceLocation FileLoc, 274409a03671224d4e5bdab1594c43baf070148f830Chris Lattner unsigned CharNo) DISABLE_INLINE; 275409a03671224d4e5bdab1594c43baf070148f830Chris Lattnerstatic SourceLocation GetMappedTokenLoc(Preprocessor &PP, 276409a03671224d4e5bdab1594c43baf070148f830Chris Lattner SourceLocation FileLoc, 277409a03671224d4e5bdab1594c43baf070148f830Chris Lattner unsigned CharNo) { 278409a03671224d4e5bdab1594c43baf070148f830Chris Lattner // Otherwise, we're lexing "mapped tokens". This is used for things like 279409a03671224d4e5bdab1594c43baf070148f830Chris Lattner // _Pragma handling. Combine the instantiation location of FileLoc with the 280409a03671224d4e5bdab1594c43baf070148f830Chris Lattner // physical location. 281409a03671224d4e5bdab1594c43baf070148f830Chris Lattner SourceManager &SourceMgr = PP.getSourceManager(); 282409a03671224d4e5bdab1594c43baf070148f830Chris Lattner 283409a03671224d4e5bdab1594c43baf070148f830Chris Lattner // Create a new SLoc which is expanded from logical(FileLoc) but whose 284409a03671224d4e5bdab1594c43baf070148f830Chris Lattner // characters come from phys(FileLoc)+Offset. 285409a03671224d4e5bdab1594c43baf070148f830Chris Lattner SourceLocation VirtLoc = SourceMgr.getLogicalLoc(FileLoc); 286409a03671224d4e5bdab1594c43baf070148f830Chris Lattner SourceLocation PhysLoc = SourceMgr.getPhysicalLoc(FileLoc); 287409a03671224d4e5bdab1594c43baf070148f830Chris Lattner PhysLoc = SourceLocation::getFileLoc(PhysLoc.getFileID(), CharNo); 288409a03671224d4e5bdab1594c43baf070148f830Chris Lattner return SourceMgr.getInstantiationLoc(PhysLoc, VirtLoc); 289409a03671224d4e5bdab1594c43baf070148f830Chris Lattner} 290409a03671224d4e5bdab1594c43baf070148f830Chris Lattner 2915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// getSourceLocation - Return a source location identifier for the specified 2925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// offset in the current file. 2935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid SpencerSourceLocation Lexer::getSourceLocation(const char *Loc) const { 294448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner assert(Loc >= BufferStart && Loc <= BufferEnd && 2955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer "Location out of range for this buffer!"); 2969dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner 2979dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner // In the normal case, we're just lexing from a simple file buffer, return 2989dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner // the file id from FileLoc with the offset specified. 299448cec4c1c3705f6f49ffdefb58a7329942a2dd8Chris Lattner unsigned CharNo = Loc-BufferStart; 3009dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner if (FileLoc.isFileID()) 3019dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner return SourceLocation::getFileLoc(FileLoc.getFileID(), CharNo); 3029dc1f530c086d2c16f8cba758b0f59a5bf41323aChris Lattner 303168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner assert(PP && "This doesn't work on raw lexers"); 304168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return GetMappedTokenLoc(*PP, FileLoc, CharNo); 3055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 3065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// Diag - Forwarding function for diagnostics. This translate a source 3085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// position in the current buffer into a SourceLocation object for rendering. 3093692b09faa9fe346f39bc922db6dce48cdcc3f63Chris LattnerDiagnosticInfo Lexer::Diag(const char *Loc, unsigned DiagID) const { 3100750618b0beacdc9b0a9e210a661e4746823ced7Chris Lattner if (LexingRawMode && Diagnostic::isBuiltinNoteWarningOrExtension(DiagID)) 3113692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner return DiagnosticInfo(0, FullSourceLoc(), 0); 3123692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner return PP->Diag(getSourceLocation(Loc), DiagID); 3135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 3145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 3165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Trigraph and Escaped Newline Handling Code. 3175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 3185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// GetTrigraphCharForLetter - Given a character that occurs after a ?? pair, 3205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// return the decoded trigraph letter it corresponds to, or '\0' if nothing. 3215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic char GetTrigraphCharForLetter(char Letter) { 3225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer switch (Letter) { 3235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer default: return 0; 3245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '=': return '#'; 3255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ')': return ']'; 3265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '(': return '['; 3275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '!': return '|'; 3285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\'': return '^'; 3295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '>': return '}'; 3305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '/': return '\\'; 3315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '<': return '{'; 3325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '-': return '~'; 3335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 3345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 3355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// DecodeTrigraphChar - If the specified character is a legal trigraph when 3375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// prefixed with ??, emit a trigraph warning. If trigraphs are enabled, 3385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// return the result character. Finally, emit a warning about trigraph use 3395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// whether trigraphs are enabled or not. 3405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic char DecodeTrigraphChar(const char *CP, Lexer *L) { 3415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char Res = GetTrigraphCharForLetter(*CP); 3423692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner if (!Res || !L) return Res; 3433692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner 3443692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner if (!L->getFeatures().Trigraphs) { 3453692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner L->Diag(CP-2, diag::trigraph_ignored); 3463692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner return 0; 3475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 3483692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner 3493692b09faa9fe346f39bc922db6dce48cdcc3f63Chris Lattner L->Diag(CP-2, diag::trigraph_converted) << std::string()+Res; 3505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return Res; 3515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 3525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// getCharAndSizeSlow - Peek a single 'character' from the specified buffer, 3545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// get its size, and return it. This is tricky in several cases: 3555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 1. If currently at the start of a trigraph, we warn about the trigraph, 3565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// then either return the trigraph (skipping 3 chars) or the '?', 3575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// depending on whether trigraphs are enabled or not. 3585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 2. If this is an escaped newline (potentially with whitespace between 3595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// the backslash and newline), implicitly skip the newline and return 3605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// the char after it. 3615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 3. If this is a UCN, return it. FIXME: C++ UCN's? 3625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 3635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// This handles the slow/uncommon case of the getCharAndSize method. Here we 3645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// know that we can accumulate into Size, and that we have already incremented 3655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// Ptr by Size bytes. 3665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 3675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// NOTE: When this method is updated, getCharAndSizeSlowNoWarn (below) should 3685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// be updated to match. 3695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 3705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerchar Lexer::getCharAndSizeSlow(const char *Ptr, unsigned &Size, 371d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Token *Tok) { 3725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we have a slash, look for an escaped newline. 3735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Ptr[0] == '\\') { 3745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Size; 3755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Ptr; 3765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid SpencerSlash: 3775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Common case, backslash-char where the char is not whitespace. 3785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!isWhitespace(Ptr[0])) return '\\'; 3795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // See if we have optional whitespace characters followed by a newline. 3815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer { 3825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned SizeTmp = 0; 3835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer do { 3845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++SizeTmp; 3855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Ptr[SizeTmp-1] == '\n' || Ptr[SizeTmp-1] == '\r') { 3865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Remember that this token needs to be cleaned. 387d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner if (Tok) Tok->setFlag(Token::NeedsCleaning); 3885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Warn if there was whitespace between the backslash and newline. 3905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (SizeTmp != 1 && Tok) 3915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(Ptr, diag::backslash_newline_space); 3925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a \r\n or \n\r, skip the newlines. 3945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if ((Ptr[SizeTmp] == '\r' || Ptr[SizeTmp] == '\n') && 3955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr[SizeTmp-1] != Ptr[SizeTmp]) 3965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++SizeTmp; 3975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 3985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found backslash<whitespace><newline>. Parse the char after it. 3995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Size += SizeTmp; 4005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr += SizeTmp; 4015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Use slow version to accumulate a correct size field. 4025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return getCharAndSizeSlow(Ptr, Size, Tok); 4035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } while (isWhitespace(Ptr[SizeTmp])); 4055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, this is not an escaped newline, just return the slash. 4085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return '\\'; 4095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a trigraph, process it. 4125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Ptr[0] == '?' && Ptr[1] == '?') { 4135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is actually a legal trigraph (not something like "??x"), emit 4145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // a trigraph warning. If so, and if trigraphs are enabled, return it. 4155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (char C = DecodeTrigraphChar(Ptr+2, Tok ? this : 0)) { 4165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Remember that this token needs to be cleaned. 417d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner if (Tok) Tok->setFlag(Token::NeedsCleaning); 4185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr += 3; 4205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Size += 3; 4215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\\') goto Slash; 4225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return C; 4235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is neither, return a single character. 4275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Size; 4285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return *Ptr; 4295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 4305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// getCharAndSizeSlowNoWarn - Handle the slow/uncommon case of the 4335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// getCharAndSizeNoWarn method. Here we know that we can accumulate into Size, 4345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// and that we have already incremented Ptr by Size bytes. 4355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// 4365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// NOTE: When this method is updated, getCharAndSizeSlow (above) should 4375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// be updated to match. 4385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerchar Lexer::getCharAndSizeSlowNoWarn(const char *Ptr, unsigned &Size, 4395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const LangOptions &Features) { 4405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we have a slash, look for an escaped newline. 4415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Ptr[0] == '\\') { 4425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Size; 4435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Ptr; 4445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid SpencerSlash: 4455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Common case, backslash-char where the char is not whitespace. 4465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!isWhitespace(Ptr[0])) return '\\'; 4475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // See if we have optional whitespace characters followed by a newline. 4495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer { 4505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned SizeTmp = 0; 4515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer do { 4525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++SizeTmp; 4535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Ptr[SizeTmp-1] == '\n' || Ptr[SizeTmp-1] == '\r') { 4545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a \r\n or \n\r, skip the newlines. 4565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if ((Ptr[SizeTmp] == '\r' || Ptr[SizeTmp] == '\n') && 4575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr[SizeTmp-1] != Ptr[SizeTmp]) 4585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++SizeTmp; 4595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found backslash<whitespace><newline>. Parse the char after it. 4615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Size += SizeTmp; 4625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr += SizeTmp; 4635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Use slow version to accumulate a correct size field. 4655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return getCharAndSizeSlowNoWarn(Ptr, Size, Features); 4665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } while (isWhitespace(Ptr[SizeTmp])); 4685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, this is not an escaped newline, just return the slash. 4715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return '\\'; 4725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a trigraph, process it. 4755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Features.Trigraphs && Ptr[0] == '?' && Ptr[1] == '?') { 4765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is actually a legal trigraph (not something like "??x"), return 4775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // it. 4785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (char C = GetTrigraphCharForLetter(Ptr[2])) { 4795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Ptr += 3; 4805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Size += 3; 4815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\\') goto Slash; 4825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return C; 4835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 4855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is neither, return a single character. 4875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++Size; 4885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return *Ptr; 4895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 4905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 4915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 4925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Helper methods for lexing. 4935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 4945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 495d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnervoid Lexer::LexIdentifier(Token &Result, const char *CurPtr) { 4965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Match [_A-Za-z0-9]*, we have already matched [_A-Za-z$] 4975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned Size; 4985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned char C = *CurPtr++; 4995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isIdentifierBody(C)) { 5005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr++; 5015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer --CurPtr; // Back up over the skipped character. 5035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Fast path, no $,\,? in identifier found. '\' might be an escaped newline 5055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // or UCN, and ? might be a trigraph for '\', an escaped newline or UCN. 5065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: UCNs. 5075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C != '\\' && C != '?' && (C != '$' || !Features.DollarIdents)) { 5085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid SpencerFinishIdentifier: 5095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *IdStart = BufferPtr; 5109e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::identifier); 5115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are in raw mode, return this identifier raw. There is no need to 5135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // look up identifier information or attempt to macro expand it. 5145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (LexingRawMode) return; 5155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Fill in Result.IdentifierInfo, looking up the identifier in the 5175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // identifier table. 518168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner PP->LookUpIdentifierInfo(Result, IdStart); 5195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Finally, now that we know we have an identifier, pass this off to the 5215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // preprocessor, which may macro expand it or something. 522168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return PP->HandleIdentifier(Result); 5235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, $,\,? in identifier found. Enter slower path. 5265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getCharAndSize(CurPtr, Size); 5285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (1) { 5295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '$') { 5305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we hit a $ and they are not supported in identifiers, we are done. 5315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!Features.DollarIdents) goto FinishIdentifier; 5325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, emit a diagnostic and continue. 5345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(CurPtr, diag::ext_dollar_in_identifier); 5355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, Size, Result); 5365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getCharAndSize(CurPtr, Size); 5375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer continue; 5385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (!isIdentifierBody(C)) { // FIXME: UCNs. 5395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found end of identifier. 5405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto FinishIdentifier; 5415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, this character is good, consume it. 5445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, Size, Result); 5455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getCharAndSize(CurPtr, Size); 5475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isIdentifierBody(C)) { // FIXME: UCNs. 5485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, Size, Result); 5495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getCharAndSize(CurPtr, Size); 5505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 5535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5555253c7ff266ae79308050c9f43d60dd1a67c5fb9Nate Begeman/// LexNumericConstant - Lex the remainder of a integer or floating point 5565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// constant. From[-1] is the first character lexed. Return the end of the 5575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// constant. 558d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnervoid Lexer::LexNumericConstant(Token &Result, const char *CurPtr) { 5595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned Size; 5605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char C = getCharAndSize(CurPtr, Size); 5615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char PrevCh = 0; 5625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isNumberBody(C)) { // FIXME: UCNs? 5635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, Size, Result); 5645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer PrevCh = C; 5655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getCharAndSize(CurPtr, Size); 5665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 5675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we fell out, check for a sign, due to 1e+12. If we have one, continue. 5695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if ((C == '-' || C == '+') && (PrevCh == 'E' || PrevCh == 'e')) 5705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexNumericConstant(Result, ConsumeChar(CurPtr, Size, Result)); 5715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we have a hex FP constant, continue. 5735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Features.HexFloats && 5745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer (C == '-' || C == '+') && (PrevCh == 'P' || PrevCh == 'p')) 5755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexNumericConstant(Result, ConsumeChar(CurPtr, Size, Result)); 5765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of token as well as BufferPtr. 5789e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::numeric_constant); 5795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 5805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// LexStringLiteral - Lex the remainder of a string literal, after having lexed 5825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// either " or L". 583d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattnervoid Lexer::LexStringLiteral(Token &Result, const char *CurPtr, bool Wide) { 5845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *NulCharacter = 0; // Does this string contain the \0 character? 5855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 5865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char C = getAndAdvanceChar(CurPtr, Result); 5875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (C != '"') { 5885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip escaped characters. 5895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\\') { 5905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip the escaped character. 5915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 5925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == '\n' || C == '\r' || // Newline. 5935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer (C == 0 && CurPtr-1 == BufferEnd)) { // End of file. 5945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!LexingRawMode) Diag(BufferPtr, diag::err_unterminated_string); 5959e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr-1, tok::unknown); 5965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return; 5975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == 0) { 5985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer NulCharacter = CurPtr-1; 5995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If a nul character existed in the string, warn about it. 6045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (NulCharacter) Diag(NulCharacter, diag::null_in_string); 6055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of the token as well as the BufferPtr instance var. 6079e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, 6089e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Wide ? tok::wide_string_literal : tok::string_literal); 6095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 6105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// LexAngledStringLiteral - Lex the remainder of an angled string literal, 6125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// after having lexed the '<' character. This is used for #include filenames. 613d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnervoid Lexer::LexAngledStringLiteral(Token &Result, const char *CurPtr) { 6145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *NulCharacter = 0; // Does this string contain the \0 character? 6155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char C = getAndAdvanceChar(CurPtr, Result); 6175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (C != '>') { 6185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip escaped characters. 6195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\\') { 6205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip the escaped character. 6215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == '\n' || C == '\r' || // Newline. 6235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer (C == 0 && CurPtr-1 == BufferEnd)) { // End of file. 6245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!LexingRawMode) Diag(BufferPtr, diag::err_unterminated_string); 6259e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr-1, tok::unknown); 6265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return; 6275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == 0) { 6285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer NulCharacter = CurPtr-1; 6295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If a nul character existed in the string, warn about it. 6345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (NulCharacter) Diag(NulCharacter, diag::null_in_string); 6355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of token as well as BufferPtr. 6379e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::angle_string_literal); 6385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 6395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// LexCharConstant - Lex the remainder of a character constant, after having 6425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// lexed either ' or L'. 643d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnervoid Lexer::LexCharConstant(Token &Result, const char *CurPtr) { 6445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *NulCharacter = 0; // Does this character contain the \0 character? 6455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Handle the common case of 'x' and '\y' efficiently. 6475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char C = getAndAdvanceChar(CurPtr, Result); 6485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\'') { 6495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!LexingRawMode) Diag(BufferPtr, diag::err_empty_character); 6509e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::unknown); 6515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return; 6525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == '\\') { 6535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip the escaped character. 6545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: UCN's. 6555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C && C != '\n' && C != '\r' && CurPtr[0] == '\'') { 6595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++CurPtr; 6605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 6615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Fall back on generic code for embedded nulls, newlines, wide chars. 6625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer do { 6635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip escaped characters. 6645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\\') { 6655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip the escaped character. 6665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == '\n' || C == '\r' || // Newline. 6685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer (C == 0 && CurPtr-1 == BufferEnd)) { // End of file. 6695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!LexingRawMode) Diag(BufferPtr, diag::err_unterminated_char); 6709e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr-1, tok::unknown); 6715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return; 6725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == 0) { 6735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer NulCharacter = CurPtr-1; 6745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 6765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } while (C != '\''); 6775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 6785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (NulCharacter) Diag(NulCharacter, diag::null_in_char); 6805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of token as well as BufferPtr. 6829e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::char_constant); 6835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 6845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// SkipWhitespace - Efficiently skip over a series of whitespace characters. 6865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// Update BufferPtr to point to the next non-whitespace character and return. 687d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner/// 688d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner/// This method forms a token and returns true if KeepWhitespaceMode is enabled. 689d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner/// 690d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattnerbool Lexer::SkipWhitespace(Token &Result, const char *CurPtr) { 6915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Whitespace - Skip it, then return the token after the whitespace. 6925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned char Char = *CurPtr; // Skip consequtive spaces efficiently. 6935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (1) { 6945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip horizontal whitespace very aggressively. 6955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isHorizontalWhitespace(Char)) 6965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = *++CurPtr; 6975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 6985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise if we something other than whitespace, we're done. 6995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char != '\n' && Char != '\r') 7005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 7015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ParsingPreprocessorDirective) { 7035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // End of preprocessor directive line, let LexTokenInternal handle this. 7045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 705d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return false; 7065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // ok, but handle newline. 7095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // The returned token is at the start of the line. 710d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::StartOfLine); 7115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // No leading whitespace seen so far. 712d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.clearFlag(Token::LeadingSpace); 7135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = *++CurPtr; 7145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this isn't immediately after a newline, there is leading space. 7175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char PrevChar = CurPtr[-1]; 7185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (PrevChar != '\n' && PrevChar != '\r') 719d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 7205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 721d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // If the client wants us to return whitespace, return it now. 722d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner if (isKeepWhitespaceMode()) { 7239e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::unknown); 724d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return true; 725d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner } 726d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner 7275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 728d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return false; 7295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 7305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// SkipBCPLComment - We have just read the // characters from input. Skip until 7325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// we find the newline character thats terminate the comment. Then update 7332d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner/// BufferPtr and return. If we're in KeepCommentMode, this will form the token 7342d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner/// and return true. 735d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnerbool Lexer::SkipBCPLComment(Token &Result, const char *CurPtr) { 7365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If BCPL comments aren't explicitly enabled for this language, emit an 7375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // extension warning. 7385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!Features.BCPLComment) { 7395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(BufferPtr, diag::ext_bcpl_comment); 7405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Mark them enabled so we only emit one warning for this translation 7425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // unit. 7435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Features.BCPLComment = true; 7445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Scan over the body of the comment. The common case, when scanning, is that 7475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // the comment contains normal ascii characters with nothing interesting in 7485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // them. As such, optimize for this case with the inner loop. 7495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char C; 7505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer do { 7515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr; 7525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: Speedup BCPL comment lexing. Just scan for a \n or \r character. 7535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we find a \n character, scan backwards, checking to see if it's an 7545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // escaped newline, like we do for block comments. 7555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip over characters in the fast loop. 7575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (C != 0 && // Potentially EOF. 7585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C != '\\' && // Potentially escaped newline. 7595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C != '?' && // Potentially trigraph. 7605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C != '\n' && C != '\r') // Newline or DOS-style newline. 7615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *++CurPtr; 7625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a newline, we're done. 7645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '\n' || C == '\r') 7655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; // Found the newline? Break out! 7665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, this is a hard case. Fall back on getAndAdvanceChar to 7685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // properly decode the character. 7695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *OldPtr = CurPtr; 7705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = getAndAdvanceChar(CurPtr, Result); 7715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we read multiple characters, and one of those characters was a \r or 7735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // \n, then we had an escaped newline within the comment. Emit diagnostic 7745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // unless the next line is also a // comment. 7755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr != OldPtr+1 && C != '/' && CurPtr[0] != '/') { 7765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer for (; OldPtr != CurPtr; ++OldPtr) 7775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (OldPtr[0] == '\n' || OldPtr[0] == '\r') { 7785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Okay, we found a // comment that ends in a newline, if the next 7795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // line is also a // comment, but has spaces, don't emit a diagnostic. 7805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (isspace(C)) { 7815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *ForwardPtr = CurPtr; 7825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isspace(*ForwardPtr)) // Skip whitespace. 7835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++ForwardPtr; 7845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ForwardPtr[0] == '/' && ForwardPtr[1] == '/') 7855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 7865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(OldPtr-1, diag::ext_multi_line_bcpl_comment); 7895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 7905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 7925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr == BufferEnd+1) { --CurPtr; break; } 7945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } while (C != '\n' && C != '\r'); 7955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found but did not consume the newline. 7975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 7985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are returning comments as tokens, return this comment as a token. 799fa95a019da00b926d64ff83358ba73bbc6ae1e37Chris Lattner if (inKeepCommentMode()) 8005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return SaveBCPLComment(Result, CurPtr); 8015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are inside a preprocessor directive and we see the end of line, 8035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // return immediately, so that the lexer can return this as an EOM token. 8045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ParsingPreprocessorDirective || CurPtr == BufferEnd) { 8055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 8062d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 8075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 8085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, eat the \n character. We don't care if this is a \n\r or 8107a4f004a77421af876152281b92c4f8ea24afb2dChris Lattner // \r\n sequence. This is an efficiency hack (because we know the \n can't 811d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // contribute to another token), it isn't needed for correctness. Note that 812d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // this is ok even in KeepWhitespaceMode, because we would have returned the 813d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner /// comment above in that mode. 8145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++CurPtr; 8155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // The next returned token is at the start of the line. 817d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::StartOfLine); 8185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // No leading whitespace seen so far. 819d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.clearFlag(Token::LeadingSpace); 8205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 8212d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 8225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 8235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// SaveBCPLComment - If in save-comment mode, package up this BCPL comment in 8255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// an appropriate way and return it. 826d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnerbool Lexer::SaveBCPLComment(Token &Result, const char *CurPtr) { 8279e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner // If we're not in a preprocessor directive, just return the // comment 8289e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner // directly. 8299e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::comment); 8305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8319e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner if (!ParsingPreprocessorDirective) 8329e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner return true; 8339e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner 8349e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner // If this BCPL-style comment is in a macro definition, transmogrify it into 8359e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner // a C-style block comment. 8369e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner std::string Spelling = PP->getSpelling(Result); 8379e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner assert(Spelling[0] == '/' && Spelling[1] == '/' && "Not bcpl comment?"); 8389e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Spelling[1] = '*'; // Change prefix to "/*". 8399e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Spelling += "*/"; // add suffix. 8409e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner 8419e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Result.setKind(tok::comment); 8429e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Result.setLocation(PP->CreateString(&Spelling[0], Spelling.size(), 8439e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Result.getLocation())); 8449e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Result.setLength(Spelling.size()); 8452d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return true; 8465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 8475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isBlockCommentEndOfEscapedNewLine - Return true if the specified newline 8495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// character (either \n or \r) is part of an escaped newline sequence. Issue a 8505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// diagnostic if so. We know that the is inside of a block comment. 8515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstatic bool isEndOfBlockCommentWithEscapedNewLine(const char *CurPtr, 8525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Lexer *L) { 8535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer assert(CurPtr[0] == '\n' || CurPtr[0] == '\r'); 8545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Back up off the newline. 8565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer --CurPtr; 8575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a two-character newline sequence, skip the other character. 8595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[0] == '\n' || CurPtr[0] == '\r') { 8605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // \n\n or \r\r -> not escaped newline. 8615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[0] == CurPtr[1]) 8625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return false; 8635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // \n\r or \r\n -> skip the newline. 8645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer --CurPtr; 8655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 8665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we have horizontal whitespace, skip over it. We allow whitespace 8685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // between the slash and newline. 8695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer bool HasSpace = false; 8705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (isHorizontalWhitespace(*CurPtr) || *CurPtr == 0) { 8715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer --CurPtr; 8725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer HasSpace = true; 8735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 8745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we have a slash, we know this is an escaped newline. 8765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (*CurPtr == '\\') { 8775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[-1] != '*') return false; 8785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 8795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // It isn't a slash, is it the ?? / trigraph? 8805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[0] != '/' || CurPtr[-1] != '?' || CurPtr[-2] != '?' || 8815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr[-3] != '*') 8825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return false; 8835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // This is the trigraph ending the comment. Emit a stern warning! 8855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr -= 2; 8865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If no trigraphs are enabled, warn that we ignored this trigraph and 8885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // ignore this * character. 8895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (!L->getFeatures().Trigraphs) { 8905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer L->Diag(CurPtr, diag::trigraph_ignored_block_comment); 8915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return false; 8925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 8935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer L->Diag(CurPtr, diag::trigraph_ends_block_comment); 8945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 8955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Warn about having an escaped newline between the */ characters. 8975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer L->Diag(CurPtr, diag::escaped_newline_block_comment_end); 8985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 8995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If there was space between the backslash and newline, warn about it. 9005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (HasSpace) L->Diag(CurPtr, diag::backslash_newline_space); 9015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return true; 9035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 9045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#ifdef __SSE2__ 9065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include <emmintrin.h> 9075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#elif __ALTIVEC__ 9085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#include <altivec.h> 9095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#undef bool 9105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#endif 9115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// SkipBlockComment - We have just read the /* characters from input. Read 9135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// until we find the */ characters that terminate the comment. Note that we 9145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// don't bother decoding trigraphs or escaped newlines in block comments, 9155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// because they cannot cause the comment to end. The only thing that can 9165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// happen is the comment could end with an escaped newline between the */ end 9175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// of comment. 9182d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner/// 9192d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner/// If KeepCommentMode is enabled, this forms a token from the comment and 9202d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner/// returns true. 921d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnerbool Lexer::SkipBlockComment(Token &Result, const char *CurPtr) { 9225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Scan one character past where we should, looking for a '/' character. Once 9235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // we find it, check to see if it was preceeded by a *. This common 9245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // optimization helps people who like to put a lot of * characters in their 9255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // comments. 9268146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner 9278146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner // The first character we get with newlines and trigraphs skipped to handle 9288146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner // the degenerate /*/ case below correctly if the * has an escaped newline 9298146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner // after it. 9308146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner unsigned CharSize; 9318146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner unsigned char C = getCharAndSize(CurPtr, CharSize); 9328146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner CurPtr += CharSize; 9335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == 0 && CurPtr == BufferEnd+1) { 9340af574270d3be2b0e73a3379dfaa633746f8fc6fChris Lattner if (!LexingRawMode) 9350af574270d3be2b0e73a3379dfaa633746f8fc6fChris Lattner Diag(BufferPtr, diag::err_unterminated_block_comment); 93631f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner --CurPtr; 93731f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner 93831f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner // KeepWhitespaceMode should return this broken comment as a token. Since 93931f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner // it isn't a well formed comment, just return it as an 'unknown' token. 94031f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner if (isKeepWhitespaceMode()) { 9419e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::unknown); 94231f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner return true; 94331f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner } 94431f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner 94531f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner BufferPtr = CurPtr; 9462d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 9475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 9485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9498146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner // Check to see if the first character after the '/*' is another /. If so, 9508146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner // then this slash does not end the block comment, it is part of it. 9518146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner if (C == '/') 9528146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner C = *CurPtr++; 9538146b6851e873eab71341f1b1d3198894bc4c0acChris Lattner 9545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (1) { 9555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Skip over all non-interesting characters until we find end of buffer or a 9565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // (probably ending) '/' character. 9575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr + 24 < BufferEnd) { 9585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // While not aligned to a 16-byte boundary. 9595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (C != '/' && ((intptr_t)CurPtr & 0x0F) != 0) 9605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr++; 9615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '/') goto FoundSlash; 9635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#ifdef __SSE2__ 9655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer __m128i Slashes = _mm_set_epi8('/', '/', '/', '/', '/', '/', '/', '/', 9665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer '/', '/', '/', '/', '/', '/', '/', '/'); 9675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (CurPtr+16 <= BufferEnd && 9685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer _mm_movemask_epi8(_mm_cmpeq_epi8(*(__m128i*)CurPtr, Slashes)) == 0) 9695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr += 16; 9705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#elif __ALTIVEC__ 9715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer __vector unsigned char Slashes = { 9725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer '/', '/', '/', '/', '/', '/', '/', '/', 9735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer '/', '/', '/', '/', '/', '/', '/', '/' 9745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer }; 9755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (CurPtr+16 <= BufferEnd && 9765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer !vec_any_eq(*(vector unsigned char*)CurPtr, Slashes)) 9775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr += 16; 9785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#else 9795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Scan for '/' quickly. Many block comments are very large. 9805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (CurPtr[0] != '/' && 9815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr[1] != '/' && 9825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr[2] != '/' && 9835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr[3] != '/' && 9845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr+4 < BufferEnd) { 9855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr += 4; 9865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 9875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer#endif 9885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // It has to be one of the bytes scanned, increment to it and read one. 9905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr++; 9915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 9925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Loop to scan the remainder. 9945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (C != '/' && C != '\0') 9955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr++; 9965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 9975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer FoundSlash: 9985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (C == '/') { 9995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[-2] == '*') // We found the final */. We're done! 10005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 10015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if ((CurPtr[-2] == '\n' || CurPtr[-2] == '\r')) { 10035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (isEndOfBlockCommentWithEscapedNewLine(CurPtr-2, this)) { 10045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We found the final */, though it had an escaped newline between the 10055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // * and /. We're done! 10065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 10075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr[0] == '*' && CurPtr[1] != '/') { 10105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If this is a /* inside of the comment, emit a warning. Don't do this 10115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // if this is a /*/, which will end the comment. This misses cases with 10125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // embedded escaped newlines, but oh well. 10130af574270d3be2b0e73a3379dfaa633746f8fc6fChris Lattner Diag(CurPtr-1, diag::warn_nested_block_comment); 10145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (C == 0 && CurPtr == BufferEnd+1) { 10160af574270d3be2b0e73a3379dfaa633746f8fc6fChris Lattner if (!LexingRawMode) Diag(BufferPtr, diag::err_unterminated_block_comment); 10175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Note: the user probably forgot a */. We could continue immediately 10185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // after the /*, but this would involve lexing a lot of what really is the 10195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // comment, which surely would confuse the parser. 102031f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner --CurPtr; 102131f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner 102231f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner // KeepWhitespaceMode should return this broken comment as a token. Since 102331f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner // it isn't a well formed comment, just return it as an 'unknown' token. 102431f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner if (isKeepWhitespaceMode()) { 10259e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::unknown); 102631f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner return true; 102731f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner } 102831f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner 102931f0ecae4b2d4d268d04c562a43d9fbfee96f189Chris Lattner BufferPtr = CurPtr; 10302d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 10315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer C = *CurPtr++; 10335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are returning comments as tokens, return this comment as a token. 1036fa95a019da00b926d64ff83358ba73bbc6ae1e37Chris Lattner if (inKeepCommentMode()) { 10379e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::comment); 10382d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return true; 10395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // It is common for the tokens immediately after a /**/ comment to be 10425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // whitespace. Instead of going through the big switch, handle it 1043d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // efficiently now. This is safe even in KeepWhitespaceMode because we would 1044d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // have already returned above with the comment as a token. 10455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (isHorizontalWhitespace(*CurPtr)) { 1046d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 10475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SkipWhitespace(Result, CurPtr+1); 10482d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 10495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, just return so that the next character will be lexed as a token. 10525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 1053d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 10542d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return false; 10555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 10565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 10585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer// Primary Lexing Entry Points 10595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer//===----------------------------------------------------------------------===// 10605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// ReadToEndOfLine - Read the rest of the current preprocessor line as an 10625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// uninterpreted string. This switches the lexer out of directive mode. 10635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerstd::string Lexer::ReadToEndOfLine() { 10645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer assert(ParsingPreprocessorDirective && ParsingFilename == false && 10655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer "Must be in a preprocessing directive!"); 10665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer std::string Result; 1067d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Token Tmp; 10685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // CurPtr - Cache BufferPtr in an automatic variable. 10705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *CurPtr = BufferPtr; 10715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (1) { 10725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char Char = getAndAdvanceChar(CurPtr, Tmp); 10735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer switch (Char) { 10745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer default: 10755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Result += Char; 10765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 10775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 0: // Null. 10785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found end of file? 10795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr-1 != BufferEnd) { 10805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Nope, normal character, continue. 10815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Result += Char; 10825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 10835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FALL THROUGH. 10855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\r': 10865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\n': 10875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Okay, we found the end of the line. First, back up past the \0, \r, \n. 10885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer assert(CurPtr[-1] == Char && "Trigraphs for newline?"); 10895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr-1; 10905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Next, lex the character, which should handle the EOM transition. 10925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Lex(Tmp); 109322f6bbcafa8871f4f20c4402d9cbc5c024fee99aChris Lattner assert(Tmp.is(tok::eom) && "Unexpected token!"); 10945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 10955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Finally, we're done, return the string we found. 10965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return Result; 10975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 10995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 11005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// LexEndOfFile - CurPtr points to the end of this file. Handle this 11025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// condition, reporting diagnostics and handling other edge cases as required. 11035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// This returns true if Result contains a token, false if PP.Lex should be 11045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// called again. 1105d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnerbool Lexer::LexEndOfFile(Token &Result, const char *CurPtr) { 11065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we hit the end of the file while parsing a preprocessor directive, 11075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // end the preprocessor directive first. The next token returned will 11085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // then be the end of file. 11095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ParsingPreprocessorDirective) { 11105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Done parsing the "line". 11115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ParsingPreprocessorDirective = false; 11125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of token as well as BufferPtr. 11139e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::eom); 11145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Restore comment saving mode, in case it was disabled for directive. 1116f744d133e8d36eec65828d046ee695bda238125cChris Lattner SetCommentRetentionState(PP->getCommentRetentionState()); 11175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return true; // Have a token. 11185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 11195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are in raw mode, return this event as an EOF token. Let the caller 11215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // that put us in raw mode handle the event. 11225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (LexingRawMode) { 11235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Result.startToken(); 11245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = BufferEnd; 11259e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, BufferEnd, tok::eof); 11265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return true; 11275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 11285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Otherwise, issue diagnostics for unterminated #if and missing newline. 11305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are in a #if directive, emit an error. 11325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while (!ConditionalStack.empty()) { 1133d6a2e7d71e9a910c45a3eb0268a5d94635003d58Ted Kremenek PreprocessorLexer::Diag(ConditionalStack.back().IfLoc, 1134d6a2e7d71e9a910c45a3eb0268a5d94635003d58Ted Kremenek diag::err_pp_unterminated_conditional); 1135d6a2e7d71e9a910c45a3eb0268a5d94635003d58Ted Kremenek 11365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ConditionalStack.pop_back(); 11375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 11385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 1139b25e5d79d9d1967df058a242e96a62d0d0ace074Chris Lattner // C99 5.1.1.2p2: If the file is non-empty and didn't end in a newline, issue 1140b25e5d79d9d1967df058a242e96a62d0d0ace074Chris Lattner // a pedwarn. 1141b25e5d79d9d1967df058a242e96a62d0d0ace074Chris Lattner if (CurPtr != BufferStart && (CurPtr[-1] != '\n' && CurPtr[-1] != '\r')) 11425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(BufferEnd, diag::ext_no_newline_eof); 11435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 11455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Finally, let the preprocessor handle this. 1147168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return PP->HandleEndOfFile(Result); 11485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 11495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// isNextPPTokenLParen - Return 1 if the next unexpanded token lexed from 11515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// the specified lexer will return a tok::l_paren token, 0 if it is something 11525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// else and 2 if there are no more tokens in the buffer controlled by the 11535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// lexer. 11545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencerunsigned Lexer::isNextPPTokenLParen() { 11555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer assert(!LexingRawMode && "How can we expand a macro from a skipping buffer?"); 11565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Switch to 'skipping' mode. This will ensure that we can lex a token 11585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // without emitting diagnostics, disables macro expansion, and will cause EOF 11595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // to return an EOF token instead of popping the include stack. 11605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer LexingRawMode = true; 11615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Save state that can be changed while lexing so that we can restore it. 11635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *TmpBufferPtr = BufferPtr; 11645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 1165d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Token Tok; 11665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Tok.startToken(); 11675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer LexTokenInternal(Tok); 11685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Restore state that may have changed. 11705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = TmpBufferPtr; 11715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Restore the lexer back to non-skipping mode. 11735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer LexingRawMode = false; 11745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 117522f6bbcafa8871f4f20c4402d9cbc5c024fee99aChris Lattner if (Tok.is(tok::eof)) 11765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return 2; 117722f6bbcafa8871f4f20c4402d9cbc5c024fee99aChris Lattner return Tok.is(tok::l_paren); 11785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 11795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// LexTokenInternal - This implements a simple C family lexer. It is an 11825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// extremely performance critical piece of code. This assumes that the buffer 11835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// has a null character at the end of the file. Return true if an error 11845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// occurred and compilation should terminate, false if normal. This returns a 11855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// preprocessing token, not a normal token, as such, it is an internal 11865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// interface. It assumes that the Flags of result have been cleared before 11875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer/// calling this. 1188d217773f106856a11879ec79dc468efefaf2ee75Chris Lattnervoid Lexer::LexTokenInternal(Token &Result) { 11895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid SpencerLexNextToken: 11905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // New token, can't need cleaning yet. 1191d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.clearFlag(Token::NeedsCleaning); 11925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Result.setIdentifierInfo(0); 11935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // CurPtr - Cache BufferPtr in an automatic variable. 11955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer const char *CurPtr = BufferPtr; 11965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 11975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Small amounts of horizontal whitespace is very common between tokens. 11985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if ((*CurPtr == ' ') || (*CurPtr == '\t')) { 11995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++CurPtr; 12005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer while ((*CurPtr == ' ') || (*CurPtr == '\t')) 12015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ++CurPtr; 1202d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner 1203d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // If we are keeping whitespace and other tokens, just return what we just 1204d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // skipped. The next lexer invocation will return the token after the 1205d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner // whitespace. 1206d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner if (isKeepWhitespaceMode()) { 12079e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, tok::unknown); 1208d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return; 1209d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner } 1210d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner 12115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 1212d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 12135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 12145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer unsigned SizeTmp, SizeTmp2; // Temporaries for use in cases below. 12165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Read a character, advancing over it. 12185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer char Char = getAndAdvanceChar(CurPtr, Result); 12199e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner tok::TokenKind Kind; 12209e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner 12215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer switch (Char) { 12225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 0: // Null. 12235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Found end of file? 12245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (CurPtr-1 == BufferEnd) { 12255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Read the PP instance variable into an automatic variable, because 12265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // LexEndOfFile will often delete 'this'. 1227168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner Preprocessor *PPCache = PP; 12285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (LexEndOfFile(Result, CurPtr-1)) // Retreat back into the file. 12295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return; // Got a token to return. 1230168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner assert(PPCache && "Raw buffer::LexEndOfFile should return a token"); 1231168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return PPCache->Lex(Result); 12325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 12335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(CurPtr-1, diag::null_in_file); 1235d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 1236d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner if (SkipWhitespace(Result, CurPtr)) 1237d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return; // KeepWhitespaceMode 1238d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner 12395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto LexNextToken; // GCC isn't tail call eliminating. 12405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\n': 12415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\r': 12425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // If we are inside a preprocessor directive and we see the end of line, 12435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // we know we are done with the directive, so return an EOM token. 12445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ParsingPreprocessorDirective) { 12455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Done parsing the "line". 12465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer ParsingPreprocessorDirective = false; 12475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Restore comment saving mode, in case it was disabled for directive. 1249f744d133e8d36eec65828d046ee695bda238125cChris Lattner SetCommentRetentionState(PP->getCommentRetentionState()); 12505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Since we consumed a newline, we are back at the start of a line. 12525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer IsAtStartOfLine = true; 12535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12549e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::eom; 12555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 12565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 12575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // The returned token is at the start of the line. 1258d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::StartOfLine); 12595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // No leading whitespace seen so far. 1260d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.clearFlag(Token::LeadingSpace); 1261d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner 1262d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner if (SkipWhitespace(Result, CurPtr)) 1263d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return; // KeepWhitespaceMode 12645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto LexNextToken; // GCC isn't tail call eliminating. 12655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ' ': 12665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\t': 12675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\f': 12685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\v': 12698133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner SkipHorizontalWhitespace: 1270d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::LeadingSpace); 1271d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner if (SkipWhitespace(Result, CurPtr)) 1272d88dc48e33d71732708960170e57a3d1bdc8f847Chris Lattner return; // KeepWhitespaceMode 12738133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner 12748133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner SkipIgnoredUnits: 12758133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner CurPtr = BufferPtr; 12768133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner 12778133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner // If the next token is obviously a // or /* */ comment, skip it efficiently 12788133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner // too (without going through the big switch stmt). 1279fa95a019da00b926d64ff83358ba73bbc6ae1e37Chris Lattner if (CurPtr[0] == '/' && CurPtr[1] == '/' && !inKeepCommentMode()) { 12808133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner SkipBCPLComment(Result, CurPtr+2); 12818133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner goto SkipIgnoredUnits; 1282fa95a019da00b926d64ff83358ba73bbc6ae1e37Chris Lattner } else if (CurPtr[0] == '/' && CurPtr[1] == '*' && !inKeepCommentMode()) { 12838133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner SkipBlockComment(Result, CurPtr+2); 12848133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner goto SkipIgnoredUnits; 12858133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner } else if (isHorizontalWhitespace(*CurPtr)) { 12868133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner goto SkipHorizontalWhitespace; 12878133cfcc0b672cc86d1ef73ce0c61eccecdb3690Chris Lattner } 12885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto LexNextToken; // GCC isn't tail call eliminating. 12895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 12903a5707766850f9ee9daa35299794328b5caf96dcChris Lattner // C99 6.4.4.1: Integer Constants. 12913a5707766850f9ee9daa35299794328b5caf96dcChris Lattner // C99 6.4.4.2: Floating Constants. 12923a5707766850f9ee9daa35299794328b5caf96dcChris Lattner case '0': case '1': case '2': case '3': case '4': 12933a5707766850f9ee9daa35299794328b5caf96dcChris Lattner case '5': case '6': case '7': case '8': case '9': 12943a5707766850f9ee9daa35299794328b5caf96dcChris Lattner // Notify MIOpt that we read a non-whitespace/non-comment token. 12953a5707766850f9ee9daa35299794328b5caf96dcChris Lattner MIOpt.ReadToken(); 12963a5707766850f9ee9daa35299794328b5caf96dcChris Lattner return LexNumericConstant(Result, CurPtr); 12973a5707766850f9ee9daa35299794328b5caf96dcChris Lattner 12983a5707766850f9ee9daa35299794328b5caf96dcChris Lattner case 'L': // Identifier (Loony) or wide literal (L'x' or L"xyz"). 12995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 13005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 13015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 13025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Wide string literal. 13045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '"') 13055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexStringLiteral(Result, ConsumeChar(CurPtr, SizeTmp, Result), 13065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer true); 13075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Wide character constant. 13095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '\'') 13105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexCharConstant(Result, ConsumeChar(CurPtr, SizeTmp, Result)); 13115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FALL THROUGH, treating L like the start of an identifier. 13125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // C99 6.4.2: Identifiers. 13145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'A': case 'B': case 'C': case 'D': case 'E': case 'F': case 'G': 13155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'H': case 'I': case 'J': case 'K': /*'L'*/case 'M': case 'N': 13165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'O': case 'P': case 'Q': case 'R': case 'S': case 'T': case 'U': 13175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'V': case 'W': case 'X': case 'Y': case 'Z': 13185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'a': case 'b': case 'c': case 'd': case 'e': case 'f': case 'g': 13195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'h': case 'i': case 'j': case 'k': case 'l': case 'm': case 'n': 13205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'o': case 'p': case 'q': case 'r': case 's': case 't': case 'u': 13215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case 'v': case 'w': case 'x': case 'y': case 'z': 13225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '_': 13235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 13245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 13255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexIdentifier(Result, CurPtr); 13263a5707766850f9ee9daa35299794328b5caf96dcChris Lattner 13273a5707766850f9ee9daa35299794328b5caf96dcChris Lattner case '$': // $ in identifiers. 13283a5707766850f9ee9daa35299794328b5caf96dcChris Lattner if (Features.DollarIdents) { 13293a5707766850f9ee9daa35299794328b5caf96dcChris Lattner Diag(CurPtr-1, diag::ext_dollar_in_identifier); 13303a5707766850f9ee9daa35299794328b5caf96dcChris Lattner // Notify MIOpt that we read a non-whitespace/non-comment token. 13313a5707766850f9ee9daa35299794328b5caf96dcChris Lattner MIOpt.ReadToken(); 13323a5707766850f9ee9daa35299794328b5caf96dcChris Lattner return LexIdentifier(Result, CurPtr); 13333a5707766850f9ee9daa35299794328b5caf96dcChris Lattner } 13345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13359e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::unknown; 13363a5707766850f9ee9daa35299794328b5caf96dcChris Lattner break; 13375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // C99 6.4.4: Character Constants. 13395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\'': 13405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 13415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 13425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexCharConstant(Result, CurPtr); 13435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // C99 6.4.5: String Literals. 13455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '"': 13465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 13475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 13485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexStringLiteral(Result, CurPtr, false); 13495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // C99 6.4.6: Punctuators. 13515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '?': 13529e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::question; 13535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '[': 13559e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::l_square; 13565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ']': 13589e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::r_square; 13595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '(': 13619e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::l_paren; 13625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ')': 13649e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::r_paren; 13655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '{': 13679e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::l_brace; 13685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '}': 13709e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::r_brace; 13715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '.': 13735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 13745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char >= '0' && Char <= '9') { 13755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 13765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 13775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 13785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexNumericConstant(Result, ConsumeChar(CurPtr, SizeTmp, Result)); 13795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Features.CPlusPlus && Char == '*') { 13809e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::periodstar; 13815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr += SizeTmp; 13825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '.' && 13835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer getCharAndSize(CurPtr+SizeTmp, SizeTmp2) == '.') { 13849e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::ellipsis; 13855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(ConsumeChar(CurPtr, SizeTmp, Result), 13865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SizeTmp2, Result); 13875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 13889e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::period; 13895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 13905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 13915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '&': 13925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 13935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '&') { 13949e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::ampamp; 13955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 13965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '=') { 13979e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::ampequal; 13985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 13995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14009e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::amp; 14015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '*': 14045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (getCharAndSize(CurPtr, SizeTmp) == '=') { 14059e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::starequal; 14065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14089e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::star; 14095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '+': 14125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 14135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '+') { 14145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14159e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::plusplus; 14165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '=') { 14175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14189e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::plusequal; 14195f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14209e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::plus; 14215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '-': 14245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 14259e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner if (Char == '-') { // -- 14265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14279e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::minusminus; 14285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '>' && Features.CPlusPlus && 14299e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner getCharAndSize(CurPtr+SizeTmp, SizeTmp2) == '*') { // C++ ->* 14305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(ConsumeChar(CurPtr, SizeTmp, Result), 14315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SizeTmp2, Result); 14329e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::arrowstar; 14339e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner } else if (Char == '>') { // -> 14345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14359e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::arrow; 14369e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner } else if (Char == '=') { // -= 14375f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14389e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::minusequal; 14395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14409e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::minus; 14415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '~': 14449e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::tilde; 14455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '!': 14475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (getCharAndSize(CurPtr, SizeTmp) == '=') { 14489e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::exclaimequal; 14495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14519e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::exclaim; 14525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '/': 14555f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // 6.4.9: Comments 14565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 14575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '/') { // BCPL comment. 14582d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner if (SkipBCPLComment(Result, ConsumeChar(CurPtr, SizeTmp, Result))) 14592d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return; // KeepCommentMode 14602d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner 14612d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner // It is common for the tokens immediately after a // comment to be 14622d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner // whitespace (indentation for the next line). Instead of going through 14632d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner // the big switch, handle it efficiently now. 14642d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner goto SkipIgnoredUnits; 14655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '*') { // /**/ comment. 14665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (SkipBlockComment(Result, ConsumeChar(CurPtr, SizeTmp, Result))) 14672d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner return; // KeepCommentMode 14682d3818959df7b71bfcf8c2f2b573856bfc4c3a21Chris Lattner goto LexNextToken; // GCC isn't tail call eliminating. 14695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '=') { 14705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14719e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::slashequal; 14725f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14739e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::slash; 14745f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 14755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 14765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '%': 14775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 14785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '=') { 14799e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::percentequal; 14805f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Features.Digraphs && Char == '>') { 14829e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::r_brace; // '%>' -> '}' 14835f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Features.Digraphs && Char == ':') { 14855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14865f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 14875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '%' && getCharAndSize(CurPtr+SizeTmp, SizeTmp2) == ':') { 14889e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hashhash; // '%:%:' -> '##' 14895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(ConsumeChar(CurPtr, SizeTmp, Result), 14905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SizeTmp2, Result); 14915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '@' && Features.Microsoft) { // %:@ -> #@ -> Charize 14925f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 14935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(BufferPtr, diag::charize_microsoft_ext); 14949e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hashat; 14955f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 14969e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hash; // '%:' -> '#' 14975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 14985f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We parsed a # character. If this occurs at the start of the line, 14995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // it's actually the start of a preprocessing directive. Callback to 15005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // the preprocessor to handle it. 15015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: -fpreprocessed mode?? 15025f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Result.isAtStartOfLine() && !LexingRawMode) { 15035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 1504168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner PP->HandleDirective(Result); 15055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 15065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // As an optimization, if the preprocessor didn't switch lexers, tail 15075f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // recurse. 1508168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner if (PP->isCurrentLexer(this)) { 15095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Start a new token. If this is a #include or something, the PP may 15105f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // want us starting at the beginning of the line again. If so, set 15115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // the StartOfLine flag. 15125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (IsAtStartOfLine) { 1513d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::StartOfLine); 15145f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer IsAtStartOfLine = false; 15155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto LexNextToken; // GCC isn't tail call eliminating. 15175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 1519168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return PP->Lex(Result); 15205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15225f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15239e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::percent; 15245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 15265f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '<': 15275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 15285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (ParsingFilename) { 15295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer return LexAngledStringLiteral(Result, CurPtr+SizeTmp); 15305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '<' && 15315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer getCharAndSize(CurPtr+SizeTmp, SizeTmp2) == '=') { 15329e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::lesslessequal; 15335f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(ConsumeChar(CurPtr, SizeTmp, Result), 15345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SizeTmp2, Result); 15355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '<') { 15365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15379e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::lessless; 15385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '=') { 15395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15409e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::lessequal; 15419e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner } else if (Features.Digraphs && Char == ':') { // '<:' -> '[' 15425f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15439e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::l_square; 15449e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner } else if (Features.Digraphs && Char == '%') { // '<%' -> '{' 15455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15469e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::l_brace; 15475f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15489e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::less; 15495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 15515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '>': 15525f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 15535f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '=') { 15545f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15559e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::greaterequal; 15565f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '>' && 15575f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer getCharAndSize(CurPtr+SizeTmp, SizeTmp2) == '=') { 15585f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(ConsumeChar(CurPtr, SizeTmp, Result), 15595f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer SizeTmp2, Result); 15609e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::greatergreaterequal; 15615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '>') { 15625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15639e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::greatergreater; 15645f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15659e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::greater; 15665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 15685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '^': 15695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 15705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '=') { 15715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15729e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::caretequal; 15735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15749e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::caret; 15755f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15765f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 15775f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '|': 15785f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 15795f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '=') { 15809e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::pipeequal; 15815f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15825f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '|') { 15839e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::pipepipe; 15845f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15855f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15869e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::pipe; 15875f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 15885f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 15895f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ':': 15905f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 15915f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Features.Digraphs && Char == '>') { 15929e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::r_square; // ':>' -> ']' 15935f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15945f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Features.CPlusPlus && Char == ':') { 15959e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::coloncolon; 15965f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 15975f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 15989e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::colon; 15995f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16005f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16015f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ';': 16029e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::semi; 16035f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16045f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '=': 16055f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 16065f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '=') { 16079e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::equalequal; 16085f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 16095f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 16109e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::equal; 16115f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16125f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16135f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case ',': 16149e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::comma; 16155f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16165f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '#': 16175f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Char = getCharAndSize(CurPtr, SizeTmp); 16185f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Char == '#') { 16199e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hashhash; 16205f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 16215f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else if (Char == '@' && Features.Microsoft) { // #@ -> Charize 16229e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hashat; 16235f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer Diag(BufferPtr, diag::charize_microsoft_ext); 16245f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer CurPtr = ConsumeChar(CurPtr, SizeTmp, Result); 16255f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } else { 16269e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::hash; 16275f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // We parsed a # character. If this occurs at the start of the line, 16285f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // it's actually the start of a preprocessing directive. Callback to 16295f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // the preprocessor to handle it. 16305f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: -fpreprocessed mode?? 16315f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (Result.isAtStartOfLine() && !LexingRawMode) { 16325f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer BufferPtr = CurPtr; 1633168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner PP->HandleDirective(Result); 16345f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 16355f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // As an optimization, if the preprocessor didn't switch lexers, tail 16365f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // recurse. 1637168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner if (PP->isCurrentLexer(this)) { 16385f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Start a new token. If this is a #include or something, the PP may 16395f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // want us starting at the beginning of the line again. If so, set 16405f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // the StartOfLine flag. 16415f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer if (IsAtStartOfLine) { 1642d217773f106856a11879ec79dc468efefaf2ee75Chris Lattner Result.setFlag(Token::StartOfLine); 16435f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer IsAtStartOfLine = false; 16445f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16455f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer goto LexNextToken; // GCC isn't tail call eliminating. 16465f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 1647168ae2d44a443da75ea85db5f3b5081eb0bce113Chris Lattner return PP->Lex(Result); 16485f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16495f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16505f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16515f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 16523a5707766850f9ee9daa35299794328b5caf96dcChris Lattner case '@': 16533a5707766850f9ee9daa35299794328b5caf96dcChris Lattner // Objective C support. 16543a5707766850f9ee9daa35299794328b5caf96dcChris Lattner if (CurPtr[-1] == '@' && Features.ObjC1) 16559e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::at; 16563a5707766850f9ee9daa35299794328b5caf96dcChris Lattner else 16579e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::unknown; 16583a5707766850f9ee9daa35299794328b5caf96dcChris Lattner break; 16593a5707766850f9ee9daa35299794328b5caf96dcChris Lattner 16605f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer case '\\': 16615f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FIXME: UCN's. 16625f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // FALL THROUGH. 16635f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer default: 16649e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner Kind = tok::unknown; 16655f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer break; 16665f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer } 16675f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 16685f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Notify MIOpt that we read a non-whitespace/non-comment token. 16695f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer MIOpt.ReadToken(); 16705f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer 16715f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer // Update the location of token as well as BufferPtr. 16729e6293d4dfd688429f77ee3b6edba9dfd7ada3a2Chris Lattner FormTokenWithChars(Result, CurPtr, Kind); 16735f016e2cb5d11daeb237544de1c5d59f20fe1a6eReid Spencer} 1674