PrintPreprocessedOutput.cpp revision 224145 
1//===--- PrintPreprocessedOutput.cpp - Implement the -E mode --------------===//
2//
3//                     The LLVM Compiler Infrastructure
4//
5// This file is distributed under the University of Illinois Open Source
6// License. See LICENSE.TXT for details.
7//
8//===----------------------------------------------------------------------===//
9//
10// This code simply runs the preprocessor on the input file and prints out the
11// result.  This is the traditional behavior of the -E option.
12//
13//===----------------------------------------------------------------------===//
14
15#include "clang/Frontend/Utils.h"
16#include "clang/Basic/Diagnostic.h"
17#include "clang/Basic/SourceManager.h"
18#include "clang/Frontend/PreprocessorOutputOptions.h"
19#include "clang/Lex/MacroInfo.h"
20#include "clang/Lex/PPCallbacks.h"
21#include "clang/Lex/Pragma.h"
22#include "clang/Lex/Preprocessor.h"
23#include "clang/Lex/TokenConcatenation.h"
24#include "llvm/ADT/SmallString.h"
25#include "llvm/ADT/STLExtras.h"
26#include "llvm/ADT/StringRef.h"
27#include "llvm/Config/config.h"
28#include "llvm/Support/raw_ostream.h"
29#include "llvm/Support/ErrorHandling.h"
30#include <cstdio>
31using namespace clang;
32
33/// PrintMacroDefinition - Print a macro definition in a form that will be
34/// properly accepted back as a definition.
35static void PrintMacroDefinition(const IdentifierInfo &II, const MacroInfo &MI,
36                                 Preprocessor &PP, llvm::raw_ostream &OS) {
37  OS << "#define " << II.getName();
38
39  if (MI.isFunctionLike()) {
40    OS << '(';
41    if (!MI.arg_empty()) {
42      MacroInfo::arg_iterator AI = MI.arg_begin(), E = MI.arg_end();
43      for (; AI+1 != E; ++AI) {
44        OS << (*AI)->getName();
45        OS << ',';
46      }
47
48      // Last argument.
49      if ((*AI)->getName() == "__VA_ARGS__")
50        OS << "...";
51      else
52        OS << (*AI)->getName();
53    }
54
55    if (MI.isGNUVarargs())
56      OS << "...";  // #define foo(x...)
57
58    OS << ')';
59  }
60
61  // GCC always emits a space, even if the macro body is empty.  However, do not
62  // want to emit two spaces if the first token has a leading space.
63  if (MI.tokens_empty() || !MI.tokens_begin()->hasLeadingSpace())
64    OS << ' ';
65
66  llvm::SmallString<128> SpellingBuffer;
67  for (MacroInfo::tokens_iterator I = MI.tokens_begin(), E = MI.tokens_end();
68       I != E; ++I) {
69    if (I->hasLeadingSpace())
70      OS << ' ';
71
72    OS << PP.getSpelling(*I, SpellingBuffer);
73  }
74}
75
76//===----------------------------------------------------------------------===//
77// Preprocessed token printer
78//===----------------------------------------------------------------------===//
79
80namespace {
81class PrintPPOutputPPCallbacks : public PPCallbacks {
82  Preprocessor &PP;
83  SourceManager &SM;
84  TokenConcatenation ConcatInfo;
85public:
86  llvm::raw_ostream &OS;
87private:
88  unsigned CurLine;
89
90  bool EmittedTokensOnThisLine;
91  bool EmittedMacroOnThisLine;
92  SrcMgr::CharacteristicKind FileType;
93  llvm::SmallString<512> CurFilename;
94  bool Initialized;
95  bool DisableLineMarkers;
96  bool DumpDefines;
97  bool UseLineDirective;
98public:
99  PrintPPOutputPPCallbacks(Preprocessor &pp, llvm::raw_ostream &os,
100                           bool lineMarkers, bool defines)
101     : PP(pp), SM(PP.getSourceManager()),
102       ConcatInfo(PP), OS(os), DisableLineMarkers(lineMarkers),
103       DumpDefines(defines) {
104    CurLine = 0;
105    CurFilename += "<uninit>";
106    EmittedTokensOnThisLine = false;
107    EmittedMacroOnThisLine = false;
108    FileType = SrcMgr::C_User;
109    Initialized = false;
110
111    // If we're in microsoft mode, use normal #line instead of line markers.
112    UseLineDirective = PP.getLangOptions().Microsoft;
113  }
114
115  void SetEmittedTokensOnThisLine() { EmittedTokensOnThisLine = true; }
116  bool hasEmittedTokensOnThisLine() const { return EmittedTokensOnThisLine; }
117
118  bool StartNewLineIfNeeded();
119
120  virtual void FileChanged(SourceLocation Loc, FileChangeReason Reason,
121                           SrcMgr::CharacteristicKind FileType);
122  virtual void Ident(SourceLocation Loc, const std::string &str);
123  virtual void PragmaComment(SourceLocation Loc, const IdentifierInfo *Kind,
124                             const std::string &Str);
125  virtual void PragmaMessage(SourceLocation Loc, llvm::StringRef Str);
126  virtual void PragmaDiagnosticPush(SourceLocation Loc,
127                                    llvm::StringRef Namespace);
128  virtual void PragmaDiagnosticPop(SourceLocation Loc,
129                                   llvm::StringRef Namespace);
130  virtual void PragmaDiagnostic(SourceLocation Loc, llvm::StringRef Namespace,
131                                diag::Mapping Map, llvm::StringRef Str);
132
133  bool HandleFirstTokOnLine(Token &Tok);
134  bool MoveToLine(SourceLocation Loc) {
135    PresumedLoc PLoc = SM.getPresumedLoc(Loc);
136    if (PLoc.isInvalid())
137      return false;
138    return MoveToLine(PLoc.getLine());
139  }
140  bool MoveToLine(unsigned LineNo);
141
142  bool AvoidConcat(const Token &PrevPrevTok, const Token &PrevTok,
143                   const Token &Tok) {
144    return ConcatInfo.AvoidConcat(PrevPrevTok, PrevTok, Tok);
145  }
146  void WriteLineInfo(unsigned LineNo, const char *Extra=0, unsigned ExtraLen=0);
147  bool LineMarkersAreDisabled() const { return DisableLineMarkers; }
148  void HandleNewlinesInToken(const char *TokStr, unsigned Len);
149
150  /// MacroDefined - This hook is called whenever a macro definition is seen.
151  void MacroDefined(const Token &MacroNameTok, const MacroInfo *MI);
152
153  /// MacroUndefined - This hook is called whenever a macro #undef is seen.
154  void MacroUndefined(const Token &MacroNameTok, const MacroInfo *MI);
155};
156}  // end anonymous namespace
157
158void PrintPPOutputPPCallbacks::WriteLineInfo(unsigned LineNo,
159                                             const char *Extra,
160                                             unsigned ExtraLen) {
161  if (EmittedTokensOnThisLine || EmittedMacroOnThisLine) {
162    OS << '\n';
163    EmittedTokensOnThisLine = false;
164    EmittedMacroOnThisLine = false;
165  }
166
167  // Emit #line directives or GNU line markers depending on what mode we're in.
168  if (UseLineDirective) {
169    OS << "#line" << ' ' << LineNo << ' ' << '"';
170    OS.write(CurFilename.data(), CurFilename.size());
171    OS << '"';
172  } else {
173    OS << '#' << ' ' << LineNo << ' ' << '"';
174    OS.write(CurFilename.data(), CurFilename.size());
175    OS << '"';
176
177    if (ExtraLen)
178      OS.write(Extra, ExtraLen);
179
180    if (FileType == SrcMgr::C_System)
181      OS.write(" 3", 2);
182    else if (FileType == SrcMgr::C_ExternCSystem)
183      OS.write(" 3 4", 4);
184  }
185  OS << '\n';
186}
187
188/// MoveToLine - Move the output to the source line specified by the location
189/// object.  We can do this by emitting some number of \n's, or be emitting a
190/// #line directive.  This returns false if already at the specified line, true
191/// if some newlines were emitted.
192bool PrintPPOutputPPCallbacks::MoveToLine(unsigned LineNo) {
193  // If this line is "close enough" to the original line, just print newlines,
194  // otherwise print a #line directive.
195  if (LineNo-CurLine <= 8) {
196    if (LineNo-CurLine == 1)
197      OS << '\n';
198    else if (LineNo == CurLine)
199      return false;    // Spelling line moved, but expansion line didn't.
200    else {
201      const char *NewLines = "\n\n\n\n\n\n\n\n";
202      OS.write(NewLines, LineNo-CurLine);
203    }
204  } else if (!DisableLineMarkers) {
205    // Emit a #line or line marker.
206    WriteLineInfo(LineNo, 0, 0);
207  } else {
208    // Okay, we're in -P mode, which turns off line markers.  However, we still
209    // need to emit a newline between tokens on different lines.
210    if (EmittedTokensOnThisLine || EmittedMacroOnThisLine) {
211      OS << '\n';
212      EmittedTokensOnThisLine = false;
213      EmittedMacroOnThisLine = false;
214    }
215  }
216
217  CurLine = LineNo;
218  return true;
219}
220
221bool PrintPPOutputPPCallbacks::StartNewLineIfNeeded() {
222  if (EmittedTokensOnThisLine || EmittedMacroOnThisLine) {
223    OS << '\n';
224    EmittedTokensOnThisLine = false;
225    EmittedMacroOnThisLine = false;
226    ++CurLine;
227    return true;
228  }
229
230  return false;
231}
232
233/// FileChanged - Whenever the preprocessor enters or exits a #include file
234/// it invokes this handler.  Update our conception of the current source
235/// position.
236void PrintPPOutputPPCallbacks::FileChanged(SourceLocation Loc,
237                                           FileChangeReason Reason,
238                                       SrcMgr::CharacteristicKind NewFileType) {
239  // Unless we are exiting a #include, make sure to skip ahead to the line the
240  // #include directive was at.
241  SourceManager &SourceMgr = SM;
242
243  PresumedLoc UserLoc = SourceMgr.getPresumedLoc(Loc);
244  if (UserLoc.isInvalid())
245    return;
246
247  unsigned NewLine = UserLoc.getLine();
248
249  if (Reason == PPCallbacks::EnterFile) {
250    SourceLocation IncludeLoc = UserLoc.getIncludeLoc();
251    if (IncludeLoc.isValid())
252      MoveToLine(IncludeLoc);
253  } else if (Reason == PPCallbacks::SystemHeaderPragma) {
254    MoveToLine(NewLine);
255
256    // TODO GCC emits the # directive for this directive on the line AFTER the
257    // directive and emits a bunch of spaces that aren't needed.  Emulate this
258    // strange behavior.
259  }
260
261  CurLine = NewLine;
262
263  CurFilename.clear();
264  CurFilename += UserLoc.getFilename();
265  Lexer::Stringify(CurFilename);
266  FileType = NewFileType;
267
268  if (DisableLineMarkers) return;
269
270  if (!Initialized) {
271    WriteLineInfo(CurLine);
272    Initialized = true;
273  }
274
275  switch (Reason) {
276  case PPCallbacks::EnterFile:
277    WriteLineInfo(CurLine, " 1", 2);
278    break;
279  case PPCallbacks::ExitFile:
280    WriteLineInfo(CurLine, " 2", 2);
281    break;
282  case PPCallbacks::SystemHeaderPragma:
283  case PPCallbacks::RenameFile:
284    WriteLineInfo(CurLine);
285    break;
286  }
287}
288
289/// Ident - Handle #ident directives when read by the preprocessor.
290///
291void PrintPPOutputPPCallbacks::Ident(SourceLocation Loc, const std::string &S) {
292  MoveToLine(Loc);
293
294  OS.write("#ident ", strlen("#ident "));
295  OS.write(&S[0], S.size());
296  EmittedTokensOnThisLine = true;
297}
298
299/// MacroDefined - This hook is called whenever a macro definition is seen.
300void PrintPPOutputPPCallbacks::MacroDefined(const Token &MacroNameTok,
301                                            const MacroInfo *MI) {
302  // Only print out macro definitions in -dD mode.
303  if (!DumpDefines ||
304      // Ignore __FILE__ etc.
305      MI->isBuiltinMacro()) return;
306
307  MoveToLine(MI->getDefinitionLoc());
308  PrintMacroDefinition(*MacroNameTok.getIdentifierInfo(), *MI, PP, OS);
309  EmittedMacroOnThisLine = true;
310}
311
312void PrintPPOutputPPCallbacks::MacroUndefined(const Token &MacroNameTok,
313                                              const MacroInfo *MI) {
314  // Only print out macro definitions in -dD mode.
315  if (!DumpDefines) return;
316
317  MoveToLine(MacroNameTok.getLocation());
318  OS << "#undef " << MacroNameTok.getIdentifierInfo()->getName();
319  EmittedMacroOnThisLine = true;
320}
321
322void PrintPPOutputPPCallbacks::PragmaComment(SourceLocation Loc,
323                                             const IdentifierInfo *Kind,
324                                             const std::string &Str) {
325  MoveToLine(Loc);
326  OS << "#pragma comment(" << Kind->getName();
327
328  if (!Str.empty()) {
329    OS << ", \"";
330
331    for (unsigned i = 0, e = Str.size(); i != e; ++i) {
332      unsigned char Char = Str[i];
333      if (isprint(Char) && Char != '\\' && Char != '"')
334        OS << (char)Char;
335      else  // Output anything hard as an octal escape.
336        OS << '\\'
337           << (char)('0'+ ((Char >> 6) & 7))
338           << (char)('0'+ ((Char >> 3) & 7))
339           << (char)('0'+ ((Char >> 0) & 7));
340    }
341    OS << '"';
342  }
343
344  OS << ')';
345  EmittedTokensOnThisLine = true;
346}
347
348void PrintPPOutputPPCallbacks::PragmaMessage(SourceLocation Loc,
349                                             llvm::StringRef Str) {
350  MoveToLine(Loc);
351  OS << "#pragma message(";
352
353  OS << '"';
354
355  for (unsigned i = 0, e = Str.size(); i != e; ++i) {
356    unsigned char Char = Str[i];
357    if (isprint(Char) && Char != '\\' && Char != '"')
358      OS << (char)Char;
359    else  // Output anything hard as an octal escape.
360      OS << '\\'
361         << (char)('0'+ ((Char >> 6) & 7))
362         << (char)('0'+ ((Char >> 3) & 7))
363         << (char)('0'+ ((Char >> 0) & 7));
364  }
365  OS << '"';
366
367  OS << ')';
368  EmittedTokensOnThisLine = true;
369}
370
371void PrintPPOutputPPCallbacks::
372PragmaDiagnosticPush(SourceLocation Loc, llvm::StringRef Namespace) {
373  MoveToLine(Loc);
374  OS << "#pragma " << Namespace << " diagnostic push";
375  EmittedTokensOnThisLine = true;
376}
377
378void PrintPPOutputPPCallbacks::
379PragmaDiagnosticPop(SourceLocation Loc, llvm::StringRef Namespace) {
380  MoveToLine(Loc);
381  OS << "#pragma " << Namespace << " diagnostic pop";
382  EmittedTokensOnThisLine = true;
383}
384
385void PrintPPOutputPPCallbacks::
386PragmaDiagnostic(SourceLocation Loc, llvm::StringRef Namespace,
387                 diag::Mapping Map, llvm::StringRef Str) {
388  MoveToLine(Loc);
389  OS << "#pragma " << Namespace << " diagnostic ";
390  switch (Map) {
391  default: llvm_unreachable("unexpected diagnostic kind");
392  case diag::MAP_WARNING:
393    OS << "warning";
394    break;
395  case diag::MAP_ERROR:
396    OS << "error";
397    break;
398  case diag::MAP_IGNORE:
399    OS << "ignored";
400    break;
401  case diag::MAP_FATAL:
402    OS << "fatal";
403    break;
404  }
405  OS << " \"" << Str << '"';
406  EmittedTokensOnThisLine = true;
407}
408
409/// HandleFirstTokOnLine - When emitting a preprocessed file in -E mode, this
410/// is called for the first token on each new line.  If this really is the start
411/// of a new logical line, handle it and return true, otherwise return false.
412/// This may not be the start of a logical line because the "start of line"
413/// marker is set for spelling lines, not expansion ones.
414bool PrintPPOutputPPCallbacks::HandleFirstTokOnLine(Token &Tok) {
415  // Figure out what line we went to and insert the appropriate number of
416  // newline characters.
417  if (!MoveToLine(Tok.getLocation()))
418    return false;
419
420  // Print out space characters so that the first token on a line is
421  // indented for easy reading.
422  unsigned ColNo = SM.getInstantiationColumnNumber(Tok.getLocation());
423
424  // This hack prevents stuff like:
425  // #define HASH #
426  // HASH define foo bar
427  // From having the # character end up at column 1, which makes it so it
428  // is not handled as a #define next time through the preprocessor if in
429  // -fpreprocessed mode.
430  if (ColNo <= 1 && Tok.is(tok::hash))
431    OS << ' ';
432
433  // Otherwise, indent the appropriate number of spaces.
434  for (; ColNo > 1; --ColNo)
435    OS << ' ';
436
437  return true;
438}
439
440void PrintPPOutputPPCallbacks::HandleNewlinesInToken(const char *TokStr,
441                                                     unsigned Len) {
442  unsigned NumNewlines = 0;
443  for (; Len; --Len, ++TokStr) {
444    if (*TokStr != '\n' &&
445        *TokStr != '\r')
446      continue;
447
448    ++NumNewlines;
449
450    // If we have \n\r or \r\n, skip both and count as one line.
451    if (Len != 1 &&
452        (TokStr[1] == '\n' || TokStr[1] == '\r') &&
453        TokStr[0] != TokStr[1])
454      ++TokStr, --Len;
455  }
456
457  if (NumNewlines == 0) return;
458
459  CurLine += NumNewlines;
460}
461
462
463namespace {
464struct UnknownPragmaHandler : public PragmaHandler {
465  const char *Prefix;
466  PrintPPOutputPPCallbacks *Callbacks;
467
468  UnknownPragmaHandler(const char *prefix, PrintPPOutputPPCallbacks *callbacks)
469    : Prefix(prefix), Callbacks(callbacks) {}
470  virtual void HandlePragma(Preprocessor &PP, PragmaIntroducerKind Introducer,
471                            Token &PragmaTok) {
472    // Figure out what line we went to and insert the appropriate number of
473    // newline characters.
474    Callbacks->StartNewLineIfNeeded();
475    Callbacks->MoveToLine(PragmaTok.getLocation());
476    Callbacks->OS.write(Prefix, strlen(Prefix));
477    Callbacks->SetEmittedTokensOnThisLine();
478    // Read and print all of the pragma tokens.
479    while (PragmaTok.isNot(tok::eod)) {
480      if (PragmaTok.hasLeadingSpace())
481        Callbacks->OS << ' ';
482      std::string TokSpell = PP.getSpelling(PragmaTok);
483      Callbacks->OS.write(&TokSpell[0], TokSpell.size());
484      PP.LexUnexpandedToken(PragmaTok);
485    }
486    Callbacks->StartNewLineIfNeeded();
487  }
488};
489} // end anonymous namespace
490
491
492static void PrintPreprocessedTokens(Preprocessor &PP, Token &Tok,
493                                    PrintPPOutputPPCallbacks *Callbacks,
494                                    llvm::raw_ostream &OS) {
495  char Buffer[256];
496  Token PrevPrevTok, PrevTok;
497  PrevPrevTok.startToken();
498  PrevTok.startToken();
499  while (1) {
500
501    // If this token is at the start of a line, emit newlines if needed.
502    if (Tok.isAtStartOfLine() && Callbacks->HandleFirstTokOnLine(Tok)) {
503      // done.
504    } else if (Tok.hasLeadingSpace() ||
505               // If we haven't emitted a token on this line yet, PrevTok isn't
506               // useful to look at and no concatenation could happen anyway.
507               (Callbacks->hasEmittedTokensOnThisLine() &&
508                // Don't print "-" next to "-", it would form "--".
509                Callbacks->AvoidConcat(PrevPrevTok, PrevTok, Tok))) {
510      OS << ' ';
511    }
512
513    if (IdentifierInfo *II = Tok.getIdentifierInfo()) {
514      OS << II->getName();
515    } else if (Tok.isLiteral() && !Tok.needsCleaning() &&
516               Tok.getLiteralData()) {
517      OS.write(Tok.getLiteralData(), Tok.getLength());
518    } else if (Tok.getLength() < 256) {
519      const char *TokPtr = Buffer;
520      unsigned Len = PP.getSpelling(Tok, TokPtr);
521      OS.write(TokPtr, Len);
522
523      // Tokens that can contain embedded newlines need to adjust our current
524      // line number.
525      if (Tok.getKind() == tok::comment)
526        Callbacks->HandleNewlinesInToken(TokPtr, Len);
527    } else {
528      std::string S = PP.getSpelling(Tok);
529      OS.write(&S[0], S.size());
530
531      // Tokens that can contain embedded newlines need to adjust our current
532      // line number.
533      if (Tok.getKind() == tok::comment)
534        Callbacks->HandleNewlinesInToken(&S[0], S.size());
535    }
536    Callbacks->SetEmittedTokensOnThisLine();
537
538    if (Tok.is(tok::eof)) break;
539
540    PrevPrevTok = PrevTok;
541    PrevTok = Tok;
542    PP.Lex(Tok);
543  }
544}
545
546typedef std::pair<IdentifierInfo*, MacroInfo*> id_macro_pair;
547static int MacroIDCompare(const void* a, const void* b) {
548  const id_macro_pair *LHS = static_cast<const id_macro_pair*>(a);
549  const id_macro_pair *RHS = static_cast<const id_macro_pair*>(b);
550  return LHS->first->getName().compare(RHS->first->getName());
551}
552
553static void DoPrintMacros(Preprocessor &PP, llvm::raw_ostream *OS) {
554  // Ignore unknown pragmas.
555  PP.AddPragmaHandler(new EmptyPragmaHandler());
556
557  // -dM mode just scans and ignores all tokens in the files, then dumps out
558  // the macro table at the end.
559  PP.EnterMainSourceFile();
560
561  Token Tok;
562  do PP.Lex(Tok);
563  while (Tok.isNot(tok::eof));
564
565  llvm::SmallVector<id_macro_pair, 128>
566    MacrosByID(PP.macro_begin(), PP.macro_end());
567  llvm::array_pod_sort(MacrosByID.begin(), MacrosByID.end(), MacroIDCompare);
568
569  for (unsigned i = 0, e = MacrosByID.size(); i != e; ++i) {
570    MacroInfo &MI = *MacrosByID[i].second;
571    // Ignore computed macros like __LINE__ and friends.
572    if (MI.isBuiltinMacro()) continue;
573
574    PrintMacroDefinition(*MacrosByID[i].first, MI, PP, *OS);
575    *OS << '\n';
576  }
577}
578
579/// DoPrintPreprocessedInput - This implements -E mode.
580///
581void clang::DoPrintPreprocessedInput(Preprocessor &PP, llvm::raw_ostream *OS,
582                                     const PreprocessorOutputOptions &Opts) {
583  // Show macros with no output is handled specially.
584  if (!Opts.ShowCPP) {
585    assert(Opts.ShowMacros && "Not yet implemented!");
586    DoPrintMacros(PP, OS);
587    return;
588  }
589
590  // Inform the preprocessor whether we want it to retain comments or not, due
591  // to -C or -CC.
592  PP.SetCommentRetentionState(Opts.ShowComments, Opts.ShowMacroComments);
593
594  PrintPPOutputPPCallbacks *Callbacks =
595      new PrintPPOutputPPCallbacks(PP, *OS, !Opts.ShowLineMarkers,
596                                   Opts.ShowMacros);
597  PP.AddPragmaHandler(new UnknownPragmaHandler("#pragma", Callbacks));
598  PP.AddPragmaHandler("GCC", new UnknownPragmaHandler("#pragma GCC",Callbacks));
599  PP.AddPragmaHandler("clang",
600                      new UnknownPragmaHandler("#pragma clang", Callbacks));
601
602  PP.addPPCallbacks(Callbacks);
603
604  // After we have configured the preprocessor, enter the main file.
605  PP.EnterMainSourceFile();
606
607  // Consume all of the tokens that come from the predefines buffer.  Those
608  // should not be emitted into the output and are guaranteed to be at the
609  // start.
610  const SourceManager &SourceMgr = PP.getSourceManager();
611  Token Tok;
612  do {
613    PP.Lex(Tok);
614    if (Tok.is(tok::eof) || !Tok.getLocation().isFileID())
615      break;
616
617    PresumedLoc PLoc = SourceMgr.getPresumedLoc(Tok.getLocation());
618    if (PLoc.isInvalid())
619      break;
620
621    if (strcmp(PLoc.getFilename(), "<built-in>"))
622      break;
623  } while (true);
624
625  // Read all the preprocessed tokens, printing them out to the stream.
626  PrintPreprocessedTokens(PP, Tok, Callbacks, *OS);
627  *OS << '\n';
628}
629