1 /* MI Command Set - file commands.
2 Copyright (C) 2000-2022 Free Software Foundation, Inc.
3 Contributed by Cygnus Solutions (a Red Hat company).
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "mi-getopt.h"
23 #include "mi-interp.h"
31 #include "gdbsupport/gdb_regex.h"
33 /* Return to the client the absolute path and line number of the
34 current file being executed. */
37 mi_cmd_file_list_exec_source_file (const char *command, char **argv, int argc)
39 struct symtab_and_line st;
40 struct ui_out *uiout = current_uiout;
42 if (!mi_valid_noargs ("-file-list-exec-source-file", argc, argv))
43 error (_("-file-list-exec-source-file: Usage: No args"));
45 /* Set the default file and line, also get them. */
46 set_default_source_symtab_and_line ();
47 st = get_current_source_symtab_and_line ();
49 /* We should always get a symtab. Apparently, filename does not
50 need to be tested for NULL. The documentation in symtab.h
51 suggests it will always be correct. */
53 error (_("-file-list-exec-source-file: No symtab"));
55 /* Print to the user the line, filename and fullname. */
56 uiout->field_signed ("line", st.line);
57 uiout->field_string ("file", symtab_to_filename_for_display (st.symtab));
59 uiout->field_string ("fullname", symtab_to_fullname (st.symtab));
61 uiout->field_signed ("macro-info",
62 st.symtab->compunit ()->macro_table () != NULL);
65 /* Implement -file-list-exec-source-files command. */
68 mi_cmd_file_list_exec_source_files (const char *command, char **argv, int argc)
76 static const struct mi_opt opts[] =
78 {"-group-by-objfile", GROUP_BY_OBJFILE_OPT, 0},
79 {"-basename", MATCH_BASENAME_OPT, 0},
80 {"-dirname", MATCH_DIRNAME_OPT, 0},
84 /* Parse arguments. */
88 bool group_by_objfile = false;
89 bool match_on_basename = false;
90 bool match_on_dirname = false;
94 int opt = mi_getopt ("-file-list-exec-source-files", argc, argv,
98 switch ((enum opt) opt)
100 case GROUP_BY_OBJFILE_OPT:
101 group_by_objfile = true;
103 case MATCH_BASENAME_OPT:
104 match_on_basename = true;
106 case MATCH_DIRNAME_OPT:
107 match_on_dirname = true;
112 if ((argc - oind > 1) || (match_on_basename && match_on_dirname))
113 error (_("-file-list-exec-source-files: Usage: [--group-by-objfile] [--basename | --dirname] [--] REGEXP"));
115 const char *regexp = nullptr;
116 if (argc - oind == 1)
119 info_sources_filter::match_on match_type;
120 if (match_on_dirname)
121 match_type = info_sources_filter::match_on::DIRNAME;
122 else if (match_on_basename)
123 match_type = info_sources_filter::match_on::BASENAME;
125 match_type = info_sources_filter::match_on::FULLNAME;
127 info_sources_filter filter (match_type, regexp);
128 info_sources_worker (current_uiout, group_by_objfile, filter);
134 mi_cmd_file_list_shared_libraries (const char *command, char **argv, int argc)
136 struct ui_out *uiout = current_uiout;
148 error (_("Usage: -file-list-shared-libraries [REGEXP]"));
153 const char *re_err = re_comp (pattern);
156 error (_("Invalid regexp: %s"), re_err);
159 update_solib_list (1);
161 /* Print the table header. */
162 ui_out_emit_list list_emitter (uiout, "shared-libraries");
164 for (struct so_list *so : current_program_space->solibs ())
166 if (so->so_name[0] == '\0')
168 if (pattern != NULL && !re_exec (so->so_name))
171 ui_out_emit_tuple tuple_emitter (uiout, NULL);
172 mi_output_solib_attribs (uiout, so);