2 Copyright (C) 2017-2019 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 under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 3, or (at your option) any later
12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
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/>. */
23 #include "coretypes.h"
25 #include "pretty-print.h"
31 /* class json::value. */
33 /* Dump this json::value tree to OUTF.
34 No formatting is done. There are no guarantees about the order
35 in which the key/value pairs of json::objects are printed. */
38 value::dump (FILE *outf
) const
41 pp_buffer (&pp
)->stream
= outf
;
46 /* class json::object, a subclass of json::value, representing
47 an unordered collection of key/value pairs. */
49 /* json:object's dtor. */
53 for (map_t::iterator it
= m_map
.begin (); it
!= m_map
.end (); ++it
)
55 free (const_cast <char *>((*it
).first
));
56 delete ((*it
).second
);
60 /* Implementation of json::value::print for json::object. */
63 object::print (pretty_printer
*pp
) const
65 /* Note that the order is not guaranteed. */
66 pp_character (pp
, '{');
67 for (map_t::iterator it
= m_map
.begin (); it
!= m_map
.end (); ++it
)
69 if (it
!= m_map
.begin ())
71 const char *key
= const_cast <char *>((*it
).first
);
72 value
*value
= (*it
).second
;
73 pp_printf (pp
, "\"%s\": ", key
); // FIXME: escaping?
76 pp_character (pp
, '}');
79 /* Set the json::value * for KEY, taking ownership of V
80 (and taking a copy of KEY if necessary). */
83 object::set (const char *key
, value
*v
)
88 value
**ptr
= m_map
.get (key
);
91 /* If the key is already present, delete the existing value
97 /* If the key wasn't already present, take a copy of the key,
98 and store the value. */
99 m_map
.put (xstrdup (key
), v
);
102 /* Get the json::value * for KEY.
104 The object retains ownership of the value. */
107 object::get (const char *key
) const
111 value
**ptr
= const_cast <map_t
&> (m_map
).get (key
);
118 /* class json::array, a subclass of json::value, representing
119 an ordered collection of values. */
121 /* json::array's dtor. */
127 FOR_EACH_VEC_ELT (m_elements
, i
, v
)
131 /* Implementation of json::value::print for json::array. */
134 array::print (pretty_printer
*pp
) const
136 pp_character (pp
, '[');
139 FOR_EACH_VEC_ELT (m_elements
, i
, v
)
142 pp_string (pp
, ", ");
145 pp_character (pp
, ']');
148 /* Append non-NULL value V to a json::array, taking ownership of V. */
151 array::append (value
*v
)
154 m_elements
.safe_push (v
);
157 /* class json::number, a subclass of json::value, wrapping a double. */
159 /* Implementation of json::value::print for json::number. */
162 number::print (pretty_printer
*pp
) const
165 snprintf (tmp
, sizeof (tmp
), "%g", m_value
);
169 /* class json::string, a subclass of json::value. */
171 /* json::string's ctor. */
173 string::string (const char *utf8
)
176 m_utf8
= xstrdup (utf8
);
179 /* Implementation of json::value::print for json::string. */
182 string::print (pretty_printer
*pp
) const
184 pp_character (pp
, '"');
185 for (const char *ptr
= m_utf8
; *ptr
; ptr
++)
191 pp_string (pp
, "\\\"");
194 pp_string (pp
, "\\n");
197 pp_string (pp
, "\\b");
200 pp_string (pp
, "\\f");
203 pp_string (pp
, "\\n");
206 pp_string (pp
, "\\r");
209 pp_string (pp
, "\\t");
213 pp_character (pp
, ch
);
216 pp_character (pp
, '"');
219 /* class json::literal, a subclass of json::value. */
221 /* Implementation of json::value::print for json::literal. */
224 literal::print (pretty_printer
*pp
) const
229 pp_string (pp
, "true");
232 pp_string (pp
, "false");
235 pp_string (pp
, "null");
249 /* Verify that JV->print () prints EXPECTED_JSON. */
252 assert_print_eq (const json::value
&jv
, const char *expected_json
)
256 ASSERT_STREQ (expected_json
, pp_formatted_text (&pp
));
259 /* Verify that object::get works as expected. */
265 value
*val
= new json::string ("value");
266 obj
.set ("foo", val
);
267 ASSERT_EQ (obj
.get ("foo"), val
);
268 ASSERT_EQ (obj
.get ("not-present"), NULL
);
271 /* Verify that JSON objects are written correctly. We can't test more than
272 one key/value pair, as we don't impose a guaranteed ordering. */
275 test_writing_objects ()
278 obj
.set ("foo", new json::string ("bar"));
279 assert_print_eq (obj
, "{\"foo\": \"bar\"}");
282 /* Verify that JSON arrays are written correctly. */
285 test_writing_arrays ()
288 assert_print_eq (arr
, "[]");
290 arr
.append (new json::string ("foo"));
291 assert_print_eq (arr
, "[\"foo\"]");
293 arr
.append (new json::string ("bar"));
294 assert_print_eq (arr
, "[\"foo\", \"bar\"]");
297 /* Verify that JSON numbers are written correctly. */
300 test_writing_numbers ()
302 assert_print_eq (number (0), "0");
303 assert_print_eq (number (42), "42");
304 assert_print_eq (number (-100), "-100");
307 /* Verify that JSON strings are written correctly. */
310 test_writing_strings ()
313 assert_print_eq (foo
, "\"foo\"");
315 string
contains_quotes ("before \"quoted\" after");
316 assert_print_eq (contains_quotes
, "\"before \\\"quoted\\\" after\"");
319 /* Verify that JSON literals are written correctly. */
322 test_writing_literals ()
324 assert_print_eq (literal (JSON_TRUE
), "true");
325 assert_print_eq (literal (JSON_FALSE
), "false");
326 assert_print_eq (literal (JSON_NULL
), "null");
328 assert_print_eq (literal (true), "true");
329 assert_print_eq (literal (false), "false");
332 /* Run all of the selftests within this file. */
338 test_writing_objects ();
339 test_writing_arrays ();
340 test_writing_numbers ();
341 test_writing_strings ();
342 test_writing_literals ();
345 } // namespace selftest
347 #endif /* #if CHECKING_P */