gcc/diagnostic-format-json.cc

   1 /* JSON output for diagnostics
   2    Copyright (C) 2018-2023 Free Software Foundation, Inc.
   3    Contributed by David Malcolm <dmalcolm@redhat.com>.
   4
   5 This file is part of GCC.
   6
   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
  10 version.
  11
  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
  15 for more details.
  16
  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/>.  */
  20
  21
  22 #include "config.h"
  23 #include "system.h"
  24 #include "coretypes.h"
  25 #include "diagnostic.h"
  26 #include "selftest-diagnostic.h"
  27 #include "diagnostic-metadata.h"
  28 #include "json.h"
  29 #include "selftest.h"
  30
  31 /* The top-level JSON array of pending diagnostics.  */
  32
  33 static json::array *toplevel_array;
  34
  35 /* The JSON object for the current diagnostic group.  */
  36
  37 static json::object *cur_group;
  38
  39 /* The JSON array for the "children" array within the current diagnostic
  40    group.  */
  41
  42 static json::array *cur_children_array;
  43
  44 /* Generate a JSON object for LOC.  */
  45
  46 json::value *
  47 json_from_expanded_location (diagnostic_context *context, location_t loc)
  48 {
  49   expanded_location exploc = expand_location (loc);
  50   json::object *result = new json::object ();
  51   if (exploc.file)
  52     result->set ("file", new json::string (exploc.file));
  53   result->set ("line", new json::integer_number (exploc.line));
  54
  55   const enum diagnostics_column_unit orig_unit = context->column_unit;
  56   struct
  57   {
  58     const char *name;
  59     enum diagnostics_column_unit unit;
  60   } column_fields[] = {
  61     {"display-column", DIAGNOSTICS_COLUMN_UNIT_DISPLAY},
  62     {"byte-column", DIAGNOSTICS_COLUMN_UNIT_BYTE}
  63   };
  64   int the_column = INT_MIN;
  65   for (int i = 0; i != ARRAY_SIZE (column_fields); ++i)
  66     {
  67       context->column_unit = column_fields[i].unit;
  68       const int col = diagnostic_converted_column (context, exploc);
  69       result->set (column_fields[i].name, new json::integer_number (col));
  70       if (column_fields[i].unit == orig_unit)
  71         the_column = col;
  72     }
  73   gcc_assert (the_column != INT_MIN);
  74   result->set ("column", new json::integer_number (the_column));
  75   context->column_unit = orig_unit;
  76   return result;
  77 }
  78
  79 /* Generate a JSON object for LOC_RANGE.  */
  80
  81 static json::object *
  82 json_from_location_range (diagnostic_context *context,
  83                           const location_range *loc_range, unsigned range_idx)
  84 {
  85   location_t caret_loc = get_pure_location (loc_range->m_loc);
  86
  87   if (caret_loc == UNKNOWN_LOCATION)
  88     return NULL;
  89
  90   location_t start_loc = get_start (loc_range->m_loc);
  91   location_t finish_loc = get_finish (loc_range->m_loc);
  92
  93   json::object *result = new json::object ();
  94   result->set ("caret", json_from_expanded_location (context, caret_loc));
  95   if (start_loc != caret_loc
  96       && start_loc != UNKNOWN_LOCATION)
  97     result->set ("start", json_from_expanded_location (context, start_loc));
  98   if (finish_loc != caret_loc
  99       && finish_loc != UNKNOWN_LOCATION)
 100     result->set ("finish", json_from_expanded_location (context, finish_loc));
 101
 102   if (loc_range->m_label)
 103     {
 104       label_text text (loc_range->m_label->get_text (range_idx));
 105       if (text.get ())
 106         result->set ("label", new json::string (text.get ()));
 107     }
 108
 109   return result;
 110 }
 111
 112 /* Generate a JSON object for HINT.  */
 113
 114 static json::object *
 115 json_from_fixit_hint (diagnostic_context *context, const fixit_hint *hint)
 116 {
 117   json::object *fixit_obj = new json::object ();
 118
 119   location_t start_loc = hint->get_start_loc ();
 120   fixit_obj->set ("start", json_from_expanded_location (context, start_loc));
 121   location_t next_loc = hint->get_next_loc ();
 122   fixit_obj->set ("next", json_from_expanded_location (context, next_loc));
 123   fixit_obj->set ("string", new json::string (hint->get_string ()));
 124
 125   return fixit_obj;
 126 }
 127
 128 /* Generate a JSON object for METADATA.  */
 129
 130 static json::object *
 131 json_from_metadata (const diagnostic_metadata *metadata)
 132 {
 133   json::object *metadata_obj = new json::object ();
 134
 135   if (metadata->get_cwe ())
 136     metadata_obj->set ("cwe",
 137                        new json::integer_number (metadata->get_cwe ()));
 138
 139   return metadata_obj;
 140 }
 141
 142 /* No-op implementation of "begin_diagnostic" for JSON output.  */
 143
 144 static void
 145 json_begin_diagnostic (diagnostic_context *, diagnostic_info *)
 146 {
 147 }
 148
 149 /* Implementation of "end_diagnostic" for JSON output.
 150    Generate a JSON object for DIAGNOSTIC, and store for output
 151    within current diagnostic group.  */
 152
 153 static void
 154 json_end_diagnostic (diagnostic_context *context, diagnostic_info *diagnostic,
 155                      diagnostic_t orig_diag_kind)
 156 {
 157   json::object *diag_obj = new json::object ();
 158
 159   /* Get "kind" of diagnostic.  */
 160   {
 161     static const char *const diagnostic_kind_text[] = {
 162 #define DEFINE_DIAGNOSTIC_KIND(K, T, C) (T),
 163 #include "diagnostic.def"
 164 #undef DEFINE_DIAGNOSTIC_KIND
 165       "must-not-happen"
 166     };
 167     /* Lose the trailing ": ".  */
 168     const char *kind_text = diagnostic_kind_text[diagnostic->kind];
 169     size_t len = strlen (kind_text);
 170     gcc_assert (len > 2);
 171     gcc_assert (kind_text[len - 2] == ':');
 172     gcc_assert (kind_text[len - 1] == ' ');
 173     char *rstrip = xstrdup (kind_text);
 174     rstrip[len - 2] = '\0';
 175     diag_obj->set ("kind", new json::string (rstrip));
 176     free (rstrip);
 177   }
 178
 179   // FIXME: encoding of the message (json::string requires UTF-8)
 180   diag_obj->set ("message",
 181                  new json::string (pp_formatted_text (context->printer)));
 182   pp_clear_output_area (context->printer);
 183
 184   char *option_text;
 185   option_text = context->option_name (context, diagnostic->option_index,
 186                                       orig_diag_kind, diagnostic->kind);
 187   if (option_text)
 188     {
 189       diag_obj->set ("option", new json::string (option_text));
 190       free (option_text);
 191     }
 192
 193   if (context->get_option_url)
 194     {
 195       char *option_url = context->get_option_url (context,
 196                                                   diagnostic->option_index);
 197       if (option_url)
 198         {
 199           diag_obj->set ("option_url", new json::string (option_url));
 200           free (option_url);
 201         }
 202     }
 203
 204   /* If we've already emitted a diagnostic within this auto_diagnostic_group,
 205      then add diag_obj to its "children" array.  */
 206   if (cur_group)
 207     {
 208       gcc_assert (cur_children_array);
 209       cur_children_array->append (diag_obj);
 210     }
 211   else
 212     {
 213       /* Otherwise, make diag_obj be the top-level object within the group;
 214          add a "children" array and record the column origin.  */
 215       toplevel_array->append (diag_obj);
 216       cur_group = diag_obj;
 217       cur_children_array = new json::array ();
 218       diag_obj->set ("children", cur_children_array);
 219       diag_obj->set ("column-origin",
 220                      new json::integer_number (context->column_origin));
 221     }
 222
 223   const rich_location *richloc = diagnostic->richloc;
 224
 225   json::array *loc_array = new json::array ();
 226   diag_obj->set ("locations", loc_array);
 227
 228   for (unsigned int i = 0; i < richloc->get_num_locations (); i++)
 229     {
 230       const location_range *loc_range = richloc->get_range (i);
 231       json::object *loc_obj = json_from_location_range (context, loc_range, i);
 232       if (loc_obj)
 233         loc_array->append (loc_obj);
 234     }
 235
 236   if (richloc->get_num_fixit_hints ())
 237     {
 238       json::array *fixit_array = new json::array ();
 239       diag_obj->set ("fixits", fixit_array);
 240       for (unsigned int i = 0; i < richloc->get_num_fixit_hints (); i++)
 241         {
 242           const fixit_hint *hint = richloc->get_fixit_hint (i);
 243           json::object *fixit_obj = json_from_fixit_hint (context, hint);
 244           fixit_array->append (fixit_obj);
 245         }
 246     }
 247
 248   /* TODO: tree-ish things:
 249      TODO: functions
 250      TODO: inlining information
 251      TODO: macro expansion information.  */
 252
 253   if (diagnostic->metadata)
 254     {
 255       json::object *metadata_obj = json_from_metadata (diagnostic->metadata);
 256       diag_obj->set ("metadata", metadata_obj);
 257     }
 258
 259   const diagnostic_path *path = richloc->get_path ();
 260   if (path && context->make_json_for_path)
 261     {
 262       json::value *path_value = context->make_json_for_path (context, path);
 263       diag_obj->set ("path", path_value);
 264     }
 265
 266   diag_obj->set ("escape-source",
 267                  new json::literal (richloc->escape_on_output_p ()));
 268 }
 269
 270 /* No-op implementation of "begin_group_cb" for JSON output.  */
 271
 272 static void
 273 json_begin_group (diagnostic_context *)
 274 {
 275 }
 276
 277 /* Implementation of "end_group_cb" for JSON output.  */
 278
 279 static void
 280 json_end_group (diagnostic_context *)
 281 {
 282   cur_group = NULL;
 283   cur_children_array = NULL;
 284 }
 285
 286 /* Flush the top-level array to OUTF.  */
 287
 288 static void
 289 json_flush_to_file (FILE *outf)
 290 {
 291   toplevel_array->dump (outf);
 292   fprintf (outf, "\n");
 293   delete toplevel_array;
 294   toplevel_array = NULL;
 295 }
 296
 297 /* Callback for final cleanup for JSON output to stderr.  */
 298
 299 static void
 300 json_stderr_final_cb (diagnostic_context *)
 301 {
 302   json_flush_to_file (stderr);
 303 }
 304
 305 static char *json_output_base_file_name;
 306
 307 /* Callback for final cleanup for JSON output to a file.  */
 308
 309 static void
 310 json_file_final_cb (diagnostic_context *)
 311 {
 312   char *filename = concat (json_output_base_file_name, ".gcc.json", NULL);
 313   FILE *outf = fopen (filename, "w");
 314   if (!outf)
 315     {
 316       const char *errstr = xstrerror (errno);
 317       fnotice (stderr, "error: unable to open '%s' for writing: %s\n",
 318                filename, errstr);
 319       free (filename);
 320       return;
 321     }
 322   json_flush_to_file (outf);
 323   fclose (outf);
 324   free (filename);
 325 }
 326
 327 /* Callback for diagnostic_context::m_diagrams.m_emission_cb.  */
 328
 329 static void
 330 json_emit_diagram (diagnostic_context *,
 331                    const diagnostic_diagram &)
 332 {
 333   /* No-op.  */
 334 }
 335
 336 /* Populate CONTEXT in preparation for JSON output (either to stderr, or
 337    to a file).  */
 338
 339 static void
 340 diagnostic_output_format_init_json (diagnostic_context *context)
 341 {
 342   /* Set up top-level JSON array.  */
 343   if (toplevel_array == NULL)
 344     toplevel_array = new json::array ();
 345
 346   /* Override callbacks.  */
 347   context->begin_diagnostic = json_begin_diagnostic;
 348   context->end_diagnostic = json_end_diagnostic;
 349   context->begin_group_cb = json_begin_group;
 350   context->end_group_cb =  json_end_group;
 351   context->print_path = NULL; /* handled in json_end_diagnostic.  */
 352   context->m_diagrams.m_emission_cb = json_emit_diagram;
 353
 354   /* The metadata is handled in JSON format, rather than as text.  */
 355   context->show_cwe = false;
 356   context->show_rules = false;
 357
 358   /* The option is handled in JSON format, rather than as text.  */
 359   context->show_option_requested = false;
 360
 361   /* Don't colorize the text.  */
 362   pp_show_color (context->printer) = false;
 363 }
 364
 365 /* Populate CONTEXT in preparation for JSON output to stderr.  */
 366
 367 void
 368 diagnostic_output_format_init_json_stderr (diagnostic_context *context)
 369 {
 370   diagnostic_output_format_init_json (context);
 371   context->final_cb = json_stderr_final_cb;
 372 }
 373
 374 /* Populate CONTEXT in preparation for JSON output to a file named
 375    BASE_FILE_NAME.gcc.json.  */
 376
 377 void
 378 diagnostic_output_format_init_json_file (diagnostic_context *context,
 379                                          const char *base_file_name)
 380 {
 381   diagnostic_output_format_init_json (context);
 382   context->final_cb = json_file_final_cb;
 383   json_output_base_file_name = xstrdup (base_file_name);
 384 }
 385
 386 #if CHECKING_P
 387
 388 namespace selftest {
 389
 390 /* We shouldn't call json_from_expanded_location on UNKNOWN_LOCATION,
 391    but verify that we handle this gracefully.  */
 392
 393 static void
 394 test_unknown_location ()
 395 {
 396   test_diagnostic_context dc;
 397   delete json_from_expanded_location (&dc, UNKNOWN_LOCATION);
 398 }
 399
 400 /* Verify that we gracefully handle attempts to serialize bad
 401    compound locations.  */
 402
 403 static void
 404 test_bad_endpoints ()
 405 {
 406   location_t bad_endpoints
 407     = make_location (BUILTINS_LOCATION,
 408                      UNKNOWN_LOCATION, UNKNOWN_LOCATION);
 409
 410   location_range loc_range;
 411   loc_range.m_loc = bad_endpoints;
 412   loc_range.m_range_display_kind = SHOW_RANGE_WITH_CARET;
 413   loc_range.m_label = NULL;
 414
 415   test_diagnostic_context dc;
 416   json::object *obj = json_from_location_range (&dc, &loc_range, 0);
 417   /* We should have a "caret" value, but no "start" or "finish" values.  */
 418   ASSERT_TRUE (obj != NULL);
 419   ASSERT_TRUE (obj->get ("caret") != NULL);
 420   ASSERT_TRUE (obj->get ("start") == NULL);
 421   ASSERT_TRUE (obj->get ("finish") == NULL);
 422   delete obj;
 423 }
 424
 425 /* Run all of the selftests within this file.  */
 426
 427 void
 428 diagnostic_format_json_cc_tests ()
 429 {
 430   test_unknown_location ();
 431   test_bad_endpoints ();
 432 }
 433
 434 } // namespace selftest
 435
 436 #endif /* #if CHECKING_P */