annotate gcc/testsuite/g++.dg/plugin/comment_plugin.c @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* Test of cpp_callbacks::comments. */
kono
parents:
diff changeset
2
kono
parents:
diff changeset
3 #include "gcc-plugin.h"
kono
parents:
diff changeset
4 #include "config.h"
kono
parents:
diff changeset
5 #include "system.h"
kono
parents:
diff changeset
6 #include "coretypes.h"
kono
parents:
diff changeset
7 #include "cpplib.h"
kono
parents:
diff changeset
8 #include "diagnostic.h"
kono
parents:
diff changeset
9 #include "c-family/c-pragma.h"
kono
parents:
diff changeset
10
kono
parents:
diff changeset
11 int plugin_is_GPL_compatible;
kono
parents:
diff changeset
12
kono
parents:
diff changeset
13 /* Test callback for cpp_callbacks::comments. */
kono
parents:
diff changeset
14
kono
parents:
diff changeset
15 void
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 111
diff changeset
16 my_comment_cb (cpp_reader *, location_t loc,
111
kono
parents:
diff changeset
17 const unsigned char *content, size_t len)
kono
parents:
diff changeset
18 {
kono
parents:
diff changeset
19 if (in_system_header_at (loc))
kono
parents:
diff changeset
20 return;
kono
parents:
diff changeset
21
kono
parents:
diff changeset
22 /* CONTENT contains the opening slash-star (or slash-slash),
kono
parents:
diff changeset
23 and for C-style comments contains the closing star-slash. */
kono
parents:
diff changeset
24 gcc_assert (len >= 2);
kono
parents:
diff changeset
25 gcc_assert (content[0] == '/');
kono
parents:
diff changeset
26 gcc_assert (content[1] == '*' || content[1] == '/');
kono
parents:
diff changeset
27 bool c_style = (content[1] == '*');
kono
parents:
diff changeset
28 if (c_style)
kono
parents:
diff changeset
29 {
kono
parents:
diff changeset
30 gcc_assert (content[len - 2] == '*');
kono
parents:
diff changeset
31 gcc_assert (content[len - 1] == '/');
kono
parents:
diff changeset
32 }
kono
parents:
diff changeset
33
kono
parents:
diff changeset
34 if (c_style)
kono
parents:
diff changeset
35 inform (loc, "got C-style comment; length=%i", len);
kono
parents:
diff changeset
36 else
kono
parents:
diff changeset
37 inform (loc, "got C++-style comment; length=%i", len);
kono
parents:
diff changeset
38
kono
parents:
diff changeset
39 /* Print the content of the comment.
kono
parents:
diff changeset
40 For a C-style comment, the buffer CONTENT contains the opening
kono
parents:
diff changeset
41 slash-star and closing star-slash, so we can't directly verify
kono
parents:
diff changeset
42 it in the DejaGnu test without adding another comment, which
kono
parents:
diff changeset
43 would trigger this callback again.
kono
parents:
diff changeset
44 Hence we skip the syntactically-significant parts of the comment
kono
parents:
diff changeset
45 when printing it. */
kono
parents:
diff changeset
46 fprintf (stderr, "stripped content of comment: >");
kono
parents:
diff changeset
47 /* Avoid printing trailing star-slash. */
kono
parents:
diff changeset
48 if (c_style)
kono
parents:
diff changeset
49 len -= 2;
kono
parents:
diff changeset
50 for (size_t i = 2; i < len; i++)
kono
parents:
diff changeset
51 fputc (content[i], stderr);
kono
parents:
diff changeset
52 fprintf (stderr, "<\n");
kono
parents:
diff changeset
53 }
kono
parents:
diff changeset
54
kono
parents:
diff changeset
55 int
kono
parents:
diff changeset
56 plugin_init (struct plugin_name_args *plugin_info,
kono
parents:
diff changeset
57 struct plugin_gcc_version *version)
kono
parents:
diff changeset
58 {
kono
parents:
diff changeset
59 cpp_callbacks *cb = cpp_get_callbacks (parse_in);
kono
parents:
diff changeset
60 cb->comment = my_comment_cb;
kono
parents:
diff changeset
61
kono
parents:
diff changeset
62 return 0;
kono
parents:
diff changeset
63 }