1*67e74705SXin Li //===--- TokenConcatenation.cpp - Token Concatenation Avoidance -----------===//
2*67e74705SXin Li //
3*67e74705SXin Li // The LLVM Compiler Infrastructure
4*67e74705SXin Li //
5*67e74705SXin Li // This file is distributed under the University of Illinois Open Source
6*67e74705SXin Li // License. See LICENSE.TXT for details.
7*67e74705SXin Li //
8*67e74705SXin Li //===----------------------------------------------------------------------===//
9*67e74705SXin Li //
10*67e74705SXin Li // This file implements the TokenConcatenation class.
11*67e74705SXin Li //
12*67e74705SXin Li //===----------------------------------------------------------------------===//
13*67e74705SXin Li
14*67e74705SXin Li #include "clang/Lex/TokenConcatenation.h"
15*67e74705SXin Li #include "clang/Basic/CharInfo.h"
16*67e74705SXin Li #include "clang/Lex/Preprocessor.h"
17*67e74705SXin Li #include "llvm/Support/ErrorHandling.h"
18*67e74705SXin Li using namespace clang;
19*67e74705SXin Li
20*67e74705SXin Li
21*67e74705SXin Li /// IsStringPrefix - Return true if Str is a string prefix.
22*67e74705SXin Li /// 'L', 'u', 'U', or 'u8'. Including raw versions.
IsStringPrefix(StringRef Str,bool CPlusPlus11)23*67e74705SXin Li static bool IsStringPrefix(StringRef Str, bool CPlusPlus11) {
24*67e74705SXin Li
25*67e74705SXin Li if (Str[0] == 'L' ||
26*67e74705SXin Li (CPlusPlus11 && (Str[0] == 'u' || Str[0] == 'U' || Str[0] == 'R'))) {
27*67e74705SXin Li
28*67e74705SXin Li if (Str.size() == 1)
29*67e74705SXin Li return true; // "L", "u", "U", and "R"
30*67e74705SXin Li
31*67e74705SXin Li // Check for raw flavors. Need to make sure the first character wasn't
32*67e74705SXin Li // already R. Need CPlusPlus11 check for "LR".
33*67e74705SXin Li if (Str[1] == 'R' && Str[0] != 'R' && Str.size() == 2 && CPlusPlus11)
34*67e74705SXin Li return true; // "LR", "uR", "UR"
35*67e74705SXin Li
36*67e74705SXin Li // Check for "u8" and "u8R"
37*67e74705SXin Li if (Str[0] == 'u' && Str[1] == '8') {
38*67e74705SXin Li if (Str.size() == 2) return true; // "u8"
39*67e74705SXin Li if (Str.size() == 3 && Str[2] == 'R') return true; // "u8R"
40*67e74705SXin Li }
41*67e74705SXin Li }
42*67e74705SXin Li
43*67e74705SXin Li return false;
44*67e74705SXin Li }
45*67e74705SXin Li
46*67e74705SXin Li /// IsIdentifierStringPrefix - Return true if the spelling of the token
47*67e74705SXin Li /// is literally 'L', 'u', 'U', or 'u8'. Including raw versions.
IsIdentifierStringPrefix(const Token & Tok) const48*67e74705SXin Li bool TokenConcatenation::IsIdentifierStringPrefix(const Token &Tok) const {
49*67e74705SXin Li const LangOptions &LangOpts = PP.getLangOpts();
50*67e74705SXin Li
51*67e74705SXin Li if (!Tok.needsCleaning()) {
52*67e74705SXin Li if (Tok.getLength() < 1 || Tok.getLength() > 3)
53*67e74705SXin Li return false;
54*67e74705SXin Li SourceManager &SM = PP.getSourceManager();
55*67e74705SXin Li const char *Ptr = SM.getCharacterData(SM.getSpellingLoc(Tok.getLocation()));
56*67e74705SXin Li return IsStringPrefix(StringRef(Ptr, Tok.getLength()),
57*67e74705SXin Li LangOpts.CPlusPlus11);
58*67e74705SXin Li }
59*67e74705SXin Li
60*67e74705SXin Li if (Tok.getLength() < 256) {
61*67e74705SXin Li char Buffer[256];
62*67e74705SXin Li const char *TokPtr = Buffer;
63*67e74705SXin Li unsigned length = PP.getSpelling(Tok, TokPtr);
64*67e74705SXin Li return IsStringPrefix(StringRef(TokPtr, length), LangOpts.CPlusPlus11);
65*67e74705SXin Li }
66*67e74705SXin Li
67*67e74705SXin Li return IsStringPrefix(StringRef(PP.getSpelling(Tok)), LangOpts.CPlusPlus11);
68*67e74705SXin Li }
69*67e74705SXin Li
TokenConcatenation(Preprocessor & pp)70*67e74705SXin Li TokenConcatenation::TokenConcatenation(Preprocessor &pp) : PP(pp) {
71*67e74705SXin Li memset(TokenInfo, 0, sizeof(TokenInfo));
72*67e74705SXin Li
73*67e74705SXin Li // These tokens have custom code in AvoidConcat.
74*67e74705SXin Li TokenInfo[tok::identifier ] |= aci_custom;
75*67e74705SXin Li TokenInfo[tok::numeric_constant] |= aci_custom_firstchar;
76*67e74705SXin Li TokenInfo[tok::period ] |= aci_custom_firstchar;
77*67e74705SXin Li TokenInfo[tok::amp ] |= aci_custom_firstchar;
78*67e74705SXin Li TokenInfo[tok::plus ] |= aci_custom_firstchar;
79*67e74705SXin Li TokenInfo[tok::minus ] |= aci_custom_firstchar;
80*67e74705SXin Li TokenInfo[tok::slash ] |= aci_custom_firstchar;
81*67e74705SXin Li TokenInfo[tok::less ] |= aci_custom_firstchar;
82*67e74705SXin Li TokenInfo[tok::greater ] |= aci_custom_firstchar;
83*67e74705SXin Li TokenInfo[tok::pipe ] |= aci_custom_firstchar;
84*67e74705SXin Li TokenInfo[tok::percent ] |= aci_custom_firstchar;
85*67e74705SXin Li TokenInfo[tok::colon ] |= aci_custom_firstchar;
86*67e74705SXin Li TokenInfo[tok::hash ] |= aci_custom_firstchar;
87*67e74705SXin Li TokenInfo[tok::arrow ] |= aci_custom_firstchar;
88*67e74705SXin Li
89*67e74705SXin Li // These tokens have custom code in C++11 mode.
90*67e74705SXin Li if (PP.getLangOpts().CPlusPlus11) {
91*67e74705SXin Li TokenInfo[tok::string_literal ] |= aci_custom;
92*67e74705SXin Li TokenInfo[tok::wide_string_literal ] |= aci_custom;
93*67e74705SXin Li TokenInfo[tok::utf8_string_literal ] |= aci_custom;
94*67e74705SXin Li TokenInfo[tok::utf16_string_literal] |= aci_custom;
95*67e74705SXin Li TokenInfo[tok::utf32_string_literal] |= aci_custom;
96*67e74705SXin Li TokenInfo[tok::char_constant ] |= aci_custom;
97*67e74705SXin Li TokenInfo[tok::wide_char_constant ] |= aci_custom;
98*67e74705SXin Li TokenInfo[tok::utf16_char_constant ] |= aci_custom;
99*67e74705SXin Li TokenInfo[tok::utf32_char_constant ] |= aci_custom;
100*67e74705SXin Li }
101*67e74705SXin Li
102*67e74705SXin Li // These tokens have custom code in C++1z mode.
103*67e74705SXin Li if (PP.getLangOpts().CPlusPlus1z)
104*67e74705SXin Li TokenInfo[tok::utf8_char_constant] |= aci_custom;
105*67e74705SXin Li
106*67e74705SXin Li // These tokens change behavior if followed by an '='.
107*67e74705SXin Li TokenInfo[tok::amp ] |= aci_avoid_equal; // &=
108*67e74705SXin Li TokenInfo[tok::plus ] |= aci_avoid_equal; // +=
109*67e74705SXin Li TokenInfo[tok::minus ] |= aci_avoid_equal; // -=
110*67e74705SXin Li TokenInfo[tok::slash ] |= aci_avoid_equal; // /=
111*67e74705SXin Li TokenInfo[tok::less ] |= aci_avoid_equal; // <=
112*67e74705SXin Li TokenInfo[tok::greater ] |= aci_avoid_equal; // >=
113*67e74705SXin Li TokenInfo[tok::pipe ] |= aci_avoid_equal; // |=
114*67e74705SXin Li TokenInfo[tok::percent ] |= aci_avoid_equal; // %=
115*67e74705SXin Li TokenInfo[tok::star ] |= aci_avoid_equal; // *=
116*67e74705SXin Li TokenInfo[tok::exclaim ] |= aci_avoid_equal; // !=
117*67e74705SXin Li TokenInfo[tok::lessless ] |= aci_avoid_equal; // <<=
118*67e74705SXin Li TokenInfo[tok::greatergreater] |= aci_avoid_equal; // >>=
119*67e74705SXin Li TokenInfo[tok::caret ] |= aci_avoid_equal; // ^=
120*67e74705SXin Li TokenInfo[tok::equal ] |= aci_avoid_equal; // ==
121*67e74705SXin Li }
122*67e74705SXin Li
123*67e74705SXin Li /// GetFirstChar - Get the first character of the token \arg Tok,
124*67e74705SXin Li /// avoiding calls to getSpelling where possible.
GetFirstChar(Preprocessor & PP,const Token & Tok)125*67e74705SXin Li static char GetFirstChar(Preprocessor &PP, const Token &Tok) {
126*67e74705SXin Li if (IdentifierInfo *II = Tok.getIdentifierInfo()) {
127*67e74705SXin Li // Avoid spelling identifiers, the most common form of token.
128*67e74705SXin Li return II->getNameStart()[0];
129*67e74705SXin Li } else if (!Tok.needsCleaning()) {
130*67e74705SXin Li if (Tok.isLiteral() && Tok.getLiteralData()) {
131*67e74705SXin Li return *Tok.getLiteralData();
132*67e74705SXin Li } else {
133*67e74705SXin Li SourceManager &SM = PP.getSourceManager();
134*67e74705SXin Li return *SM.getCharacterData(SM.getSpellingLoc(Tok.getLocation()));
135*67e74705SXin Li }
136*67e74705SXin Li } else if (Tok.getLength() < 256) {
137*67e74705SXin Li char Buffer[256];
138*67e74705SXin Li const char *TokPtr = Buffer;
139*67e74705SXin Li PP.getSpelling(Tok, TokPtr);
140*67e74705SXin Li return TokPtr[0];
141*67e74705SXin Li } else {
142*67e74705SXin Li return PP.getSpelling(Tok)[0];
143*67e74705SXin Li }
144*67e74705SXin Li }
145*67e74705SXin Li
146*67e74705SXin Li /// AvoidConcat - If printing PrevTok immediately followed by Tok would cause
147*67e74705SXin Li /// the two individual tokens to be lexed as a single token, return true
148*67e74705SXin Li /// (which causes a space to be printed between them). This allows the output
149*67e74705SXin Li /// of -E mode to be lexed to the same token stream as lexing the input
150*67e74705SXin Li /// directly would.
151*67e74705SXin Li ///
152*67e74705SXin Li /// This code must conservatively return true if it doesn't want to be 100%
153*67e74705SXin Li /// accurate. This will cause the output to include extra space characters,
154*67e74705SXin Li /// but the resulting output won't have incorrect concatenations going on.
155*67e74705SXin Li /// Examples include "..", which we print with a space between, because we
156*67e74705SXin Li /// don't want to track enough to tell "x.." from "...".
AvoidConcat(const Token & PrevPrevTok,const Token & PrevTok,const Token & Tok) const157*67e74705SXin Li bool TokenConcatenation::AvoidConcat(const Token &PrevPrevTok,
158*67e74705SXin Li const Token &PrevTok,
159*67e74705SXin Li const Token &Tok) const {
160*67e74705SXin Li // First, check to see if the tokens were directly adjacent in the original
161*67e74705SXin Li // source. If they were, it must be okay to stick them together: if there
162*67e74705SXin Li // were an issue, the tokens would have been lexed differently.
163*67e74705SXin Li SourceManager &SM = PP.getSourceManager();
164*67e74705SXin Li SourceLocation PrevSpellLoc = SM.getSpellingLoc(PrevTok.getLocation());
165*67e74705SXin Li SourceLocation SpellLoc = SM.getSpellingLoc(Tok.getLocation());
166*67e74705SXin Li if (PrevSpellLoc.getLocWithOffset(PrevTok.getLength()) == SpellLoc)
167*67e74705SXin Li return false;
168*67e74705SXin Li
169*67e74705SXin Li tok::TokenKind PrevKind = PrevTok.getKind();
170*67e74705SXin Li if (!PrevTok.isAnnotation() && PrevTok.getIdentifierInfo())
171*67e74705SXin Li PrevKind = tok::identifier; // Language keyword or named operator.
172*67e74705SXin Li
173*67e74705SXin Li // Look up information on when we should avoid concatenation with prevtok.
174*67e74705SXin Li unsigned ConcatInfo = TokenInfo[PrevKind];
175*67e74705SXin Li
176*67e74705SXin Li // If prevtok never causes a problem for anything after it, return quickly.
177*67e74705SXin Li if (ConcatInfo == 0) return false;
178*67e74705SXin Li
179*67e74705SXin Li if (ConcatInfo & aci_avoid_equal) {
180*67e74705SXin Li // If the next token is '=' or '==', avoid concatenation.
181*67e74705SXin Li if (Tok.isOneOf(tok::equal, tok::equalequal))
182*67e74705SXin Li return true;
183*67e74705SXin Li ConcatInfo &= ~aci_avoid_equal;
184*67e74705SXin Li }
185*67e74705SXin Li if (Tok.isAnnotation()) {
186*67e74705SXin Li // Modules annotation can show up when generated automatically for includes.
187*67e74705SXin Li assert(Tok.isOneOf(tok::annot_module_include, tok::annot_module_begin,
188*67e74705SXin Li tok::annot_module_end) &&
189*67e74705SXin Li "unexpected annotation in AvoidConcat");
190*67e74705SXin Li ConcatInfo = 0;
191*67e74705SXin Li }
192*67e74705SXin Li
193*67e74705SXin Li if (ConcatInfo == 0)
194*67e74705SXin Li return false;
195*67e74705SXin Li
196*67e74705SXin Li // Basic algorithm: we look at the first character of the second token, and
197*67e74705SXin Li // determine whether it, if appended to the first token, would form (or
198*67e74705SXin Li // would contribute) to a larger token if concatenated.
199*67e74705SXin Li char FirstChar = 0;
200*67e74705SXin Li if (ConcatInfo & aci_custom) {
201*67e74705SXin Li // If the token does not need to know the first character, don't get it.
202*67e74705SXin Li } else {
203*67e74705SXin Li FirstChar = GetFirstChar(PP, Tok);
204*67e74705SXin Li }
205*67e74705SXin Li
206*67e74705SXin Li switch (PrevKind) {
207*67e74705SXin Li default:
208*67e74705SXin Li llvm_unreachable("InitAvoidConcatTokenInfo built wrong");
209*67e74705SXin Li
210*67e74705SXin Li case tok::raw_identifier:
211*67e74705SXin Li llvm_unreachable("tok::raw_identifier in non-raw lexing mode!");
212*67e74705SXin Li
213*67e74705SXin Li case tok::string_literal:
214*67e74705SXin Li case tok::wide_string_literal:
215*67e74705SXin Li case tok::utf8_string_literal:
216*67e74705SXin Li case tok::utf16_string_literal:
217*67e74705SXin Li case tok::utf32_string_literal:
218*67e74705SXin Li case tok::char_constant:
219*67e74705SXin Li case tok::wide_char_constant:
220*67e74705SXin Li case tok::utf8_char_constant:
221*67e74705SXin Li case tok::utf16_char_constant:
222*67e74705SXin Li case tok::utf32_char_constant:
223*67e74705SXin Li if (!PP.getLangOpts().CPlusPlus11)
224*67e74705SXin Li return false;
225*67e74705SXin Li
226*67e74705SXin Li // In C++11, a string or character literal followed by an identifier is a
227*67e74705SXin Li // single token.
228*67e74705SXin Li if (Tok.getIdentifierInfo())
229*67e74705SXin Li return true;
230*67e74705SXin Li
231*67e74705SXin Li // A ud-suffix is an identifier. If the previous token ends with one, treat
232*67e74705SXin Li // it as an identifier.
233*67e74705SXin Li if (!PrevTok.hasUDSuffix())
234*67e74705SXin Li return false;
235*67e74705SXin Li // FALL THROUGH.
236*67e74705SXin Li case tok::identifier: // id+id or id+number or id+L"foo".
237*67e74705SXin Li // id+'.'... will not append.
238*67e74705SXin Li if (Tok.is(tok::numeric_constant))
239*67e74705SXin Li return GetFirstChar(PP, Tok) != '.';
240*67e74705SXin Li
241*67e74705SXin Li if (Tok.getIdentifierInfo() ||
242*67e74705SXin Li Tok.isOneOf(tok::wide_string_literal, tok::utf8_string_literal,
243*67e74705SXin Li tok::utf16_string_literal, tok::utf32_string_literal,
244*67e74705SXin Li tok::wide_char_constant, tok::utf8_char_constant,
245*67e74705SXin Li tok::utf16_char_constant, tok::utf32_char_constant))
246*67e74705SXin Li return true;
247*67e74705SXin Li
248*67e74705SXin Li // If this isn't identifier + string, we're done.
249*67e74705SXin Li if (Tok.isNot(tok::char_constant) && Tok.isNot(tok::string_literal))
250*67e74705SXin Li return false;
251*67e74705SXin Li
252*67e74705SXin Li // Otherwise, this is a narrow character or string. If the *identifier*
253*67e74705SXin Li // is a literal 'L', 'u8', 'u' or 'U', avoid pasting L "foo" -> L"foo".
254*67e74705SXin Li return IsIdentifierStringPrefix(PrevTok);
255*67e74705SXin Li
256*67e74705SXin Li case tok::numeric_constant:
257*67e74705SXin Li return isPreprocessingNumberBody(FirstChar) ||
258*67e74705SXin Li FirstChar == '+' || FirstChar == '-';
259*67e74705SXin Li case tok::period: // ..., .*, .1234
260*67e74705SXin Li return (FirstChar == '.' && PrevPrevTok.is(tok::period)) ||
261*67e74705SXin Li isDigit(FirstChar) ||
262*67e74705SXin Li (PP.getLangOpts().CPlusPlus && FirstChar == '*');
263*67e74705SXin Li case tok::amp: // &&
264*67e74705SXin Li return FirstChar == '&';
265*67e74705SXin Li case tok::plus: // ++
266*67e74705SXin Li return FirstChar == '+';
267*67e74705SXin Li case tok::minus: // --, ->, ->*
268*67e74705SXin Li return FirstChar == '-' || FirstChar == '>';
269*67e74705SXin Li case tok::slash: //, /*, //
270*67e74705SXin Li return FirstChar == '*' || FirstChar == '/';
271*67e74705SXin Li case tok::less: // <<, <<=, <:, <%
272*67e74705SXin Li return FirstChar == '<' || FirstChar == ':' || FirstChar == '%';
273*67e74705SXin Li case tok::greater: // >>, >>=
274*67e74705SXin Li return FirstChar == '>';
275*67e74705SXin Li case tok::pipe: // ||
276*67e74705SXin Li return FirstChar == '|';
277*67e74705SXin Li case tok::percent: // %>, %:
278*67e74705SXin Li return FirstChar == '>' || FirstChar == ':';
279*67e74705SXin Li case tok::colon: // ::, :>
280*67e74705SXin Li return FirstChar == '>' ||
281*67e74705SXin Li (PP.getLangOpts().CPlusPlus && FirstChar == ':');
282*67e74705SXin Li case tok::hash: // ##, #@, %:%:
283*67e74705SXin Li return FirstChar == '#' || FirstChar == '@' || FirstChar == '%';
284*67e74705SXin Li case tok::arrow: // ->*
285*67e74705SXin Li return PP.getLangOpts().CPlusPlus && FirstChar == '*';
286*67e74705SXin Li }
287*67e74705SXin Li }
288