ada: Fix internal error on instantiation with private component type
[official-gcc.git] / gcc / graphviz.cc
blob177fc203d9cc5a831809e1ae93cbd2f0f30e7ad9
1 /* Helper code for graphviz output.
2 Copyright (C) 2019-2023 Free Software Foundation, Inc.
3 Contributed by David Malcolm <dmalcolm@redhat.com>.
5 This file is part of GCC.
7 GCC is free software; you can redistribute it and/or modify it
8 under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
10 any later version.
12 GCC is distributed in the hope that it will be useful, but
13 WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GCC; see the file COPYING3. If not see
19 <http://www.gnu.org/licenses/>. */
21 #include "config.h"
22 #include "system.h"
23 #include "coretypes.h"
24 #include "graphviz.h"
26 /* graphviz_out's ctor, wrapping PP. */
28 graphviz_out::graphviz_out (pretty_printer *pp)
29 : m_pp (pp),
30 m_indent (0)
34 /* Formatted print of FMT. */
36 void
37 graphviz_out::print (const char *fmt, ...)
39 text_info text;
40 va_list ap;
42 va_start (ap, fmt);
43 text.err_no = errno;
44 text.args_ptr = &ap;
45 text.format_spec = fmt;
46 pp_format (m_pp, &text);
47 pp_output_formatted_text (m_pp);
48 va_end (ap);
51 /* Formatted print of FMT. The text is indented by the current
52 indent, and a newline is added. */
54 void
55 graphviz_out::println (const char *fmt, ...)
57 text_info text;
58 va_list ap;
60 write_indent ();
62 va_start (ap, fmt);
63 text.err_no = errno;
64 text.args_ptr = &ap;
65 text.format_spec = fmt;
66 pp_format (m_pp, &text);
67 pp_output_formatted_text (m_pp);
68 va_end (ap);
70 pp_newline (m_pp);
73 /* Print the current indent to the underlying pp. */
75 void
76 graphviz_out::write_indent ()
78 for (int i = 0; i < m_indent * 2; ++i)
79 pp_space (m_pp);
82 /* Write the start of an HTML-like row via <TR>, writing to the stream
83 so that followup text can be escaped. */
85 void
86 graphviz_out::begin_tr ()
88 pp_string (m_pp, "<TR>");
89 pp_write_text_to_stream (m_pp);
92 /* Write the end of an HTML-like row via </TR>, writing to the stream
93 so that followup text can be escaped. */
95 void
96 graphviz_out::end_tr ()
98 pp_string (m_pp, "</TR>");
99 pp_write_text_to_stream (m_pp);
102 /* Write the start of an HTML-like <TD>, writing to the stream
103 so that followup text can be escaped. */
105 void
106 graphviz_out::begin_td ()
108 pp_string (m_pp, "<TD ALIGN=\"LEFT\">");
109 pp_write_text_to_stream (m_pp);
112 /* Write the end of an HTML-like </TD>, writing to the stream
113 so that followup text can be escaped. */
115 void
116 graphviz_out::end_td ()
118 pp_string (m_pp, "</TD>");
119 pp_write_text_to_stream (m_pp);
122 /* Write the start of an HTML-like row via <TR><TD>, writing to the stream
123 so that followup text can be escaped. */
125 void
126 graphviz_out::begin_trtd ()
128 pp_string (m_pp, "<TR><TD ALIGN=\"LEFT\">");
129 pp_write_text_to_stream (m_pp);
132 /* Write the end of an HTML-like row via </TD></TR>, writing to the stream
133 so that followup text can be escaped. */
135 void
136 graphviz_out::end_tdtr ()
138 pp_string (m_pp, "</TD></TR>");
139 pp_write_text_to_stream (m_pp);