blob: 3164385cec7b2087933833a384d47674d06a2d64 [file] [log] [blame]
/* Test of cpp_callbacks::comments. */
#include "gcc-plugin.h"
#include "config.h"
#include "system.h"
#include "coretypes.h"
#include "cpplib.h"
#include "diagnostic.h"
#include "c-family/c-pragma.h"
int plugin_is_GPL_compatible;
/* Test callback for cpp_callbacks::comments. */
void
my_comment_cb (cpp_reader *, location_t loc,
const unsigned char *content, size_t len)
{
if (in_system_header_at (loc))
return;
/* CONTENT contains the opening slash-star (or slash-slash),
and for C-style comments contains the closing star-slash. */
gcc_assert (len >= 2);
gcc_assert (content[0] == '/');
gcc_assert (content[1] == '*' || content[1] == '/');
bool c_style = (content[1] == '*');
if (c_style)
{
gcc_assert (content[len - 2] == '*');
gcc_assert (content[len - 1] == '/');
}
if (c_style)
inform (loc, "got C-style comment; length=%i", len);
else
inform (loc, "got C++-style comment; length=%i", len);
/* Print the content of the comment.
For a C-style comment, the buffer CONTENT contains the opening
slash-star and closing star-slash, so we can't directly verify
it in the DejaGnu test without adding another comment, which
would trigger this callback again.
Hence we skip the syntactically-significant parts of the comment
when printing it. */
fprintf (stderr, "stripped content of comment: >");
/* Avoid printing trailing star-slash. */
if (c_style)
len -= 2;
for (size_t i = 2; i < len; i++)
fputc (content[i], stderr);
fprintf (stderr, "<\n");
}
int
plugin_init (struct plugin_name_args *plugin_info,
struct plugin_gcc_version *version)
{
cpp_callbacks *cb = cpp_get_callbacks (parse_in);
cb->comment = my_comment_cb;
return 0;
}