3 Copyright (C) 2000-2017 Free Software Foundation, Inc.
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/>. */
21 #include "arch-utils.h"
22 #include "readline/readline.h"
23 #include "readline/tilde.h"
24 #include "completer.h"
25 #include "target.h" /* For baud_rate, remote_debug and remote_timeout. */
26 #include "gdb_wait.h" /* For shell escape implementation. */
27 #include "gdb_regex.h" /* Used by apropos_command. */
28 #include "gdb_vfork.h"
30 #include "expression.h"
34 #include "filenames.h" /* For DOSish file names. */
38 #include "tracepoint.h"
39 #include "filestuff.h"
45 #include "cli/cli-decode.h"
46 #include "cli/cli-script.h"
47 #include "cli/cli-setshow.h"
48 #include "cli/cli-cmds.h"
49 #include "cli/cli-utils.h"
51 #include "extension.h"
54 #include "tui/tui.h" /* For tui_active et.al. */
61 /* Prototypes for local command functions */
63 static void complete_command (char *, int);
65 static void echo_command (char *, int);
67 static void pwd_command (char *, int);
69 static void show_version (char *, int);
71 static void help_command (char *, int);
73 static void show_command (char *, int);
75 static void info_command (char *, int);
77 static void show_debug (char *, int);
79 static void set_debug (char *, int);
81 static void show_user (char *, int);
83 static void make_command (char *, int);
85 static void shell_escape (const char *, int);
87 static void edit_command (char *, int);
89 static void list_command (char *, int);
91 /* Prototypes for local utility functions */
93 static void ambiguous_line_spec (struct symtabs_and_lines
*);
95 static void filter_sals (struct symtabs_and_lines
*);
98 /* Limit the call depth of user-defined commands */
99 unsigned int max_user_call_depth
;
101 /* Define all cmd_list_elements. */
103 /* Chain containing all defined commands. */
105 struct cmd_list_element
*cmdlist
;
107 /* Chain containing all defined info subcommands. */
109 struct cmd_list_element
*infolist
;
111 /* Chain containing all defined enable subcommands. */
113 struct cmd_list_element
*enablelist
;
115 /* Chain containing all defined disable subcommands. */
117 struct cmd_list_element
*disablelist
;
119 /* Chain containing all defined stop subcommands. */
121 struct cmd_list_element
*stoplist
;
123 /* Chain containing all defined delete subcommands. */
125 struct cmd_list_element
*deletelist
;
127 /* Chain containing all defined detach subcommands. */
129 struct cmd_list_element
*detachlist
;
131 /* Chain containing all defined kill subcommands. */
133 struct cmd_list_element
*killlist
;
135 /* Chain containing all defined set subcommands */
137 struct cmd_list_element
*setlist
;
139 /* Chain containing all defined unset subcommands */
141 struct cmd_list_element
*unsetlist
;
143 /* Chain containing all defined show subcommands. */
145 struct cmd_list_element
*showlist
;
147 /* Chain containing all defined \"set history\". */
149 struct cmd_list_element
*sethistlist
;
151 /* Chain containing all defined \"show history\". */
153 struct cmd_list_element
*showhistlist
;
155 /* Chain containing all defined \"unset history\". */
157 struct cmd_list_element
*unsethistlist
;
159 /* Chain containing all defined maintenance subcommands. */
161 struct cmd_list_element
*maintenancelist
;
163 /* Chain containing all defined "maintenance info" subcommands. */
165 struct cmd_list_element
*maintenanceinfolist
;
167 /* Chain containing all defined "maintenance print" subcommands. */
169 struct cmd_list_element
*maintenanceprintlist
;
171 /* Chain containing all defined "maintenance check" subcommands. */
173 struct cmd_list_element
*maintenancechecklist
;
175 struct cmd_list_element
*setprintlist
;
177 struct cmd_list_element
*showprintlist
;
179 struct cmd_list_element
*setdebuglist
;
181 struct cmd_list_element
*showdebuglist
;
183 struct cmd_list_element
*setchecklist
;
185 struct cmd_list_element
*showchecklist
;
187 /* Command tracing state. */
189 int source_verbose
= 0;
190 int trace_commands
= 0;
192 /* 'script-extension' option support. */
194 static const char script_ext_off
[] = "off";
195 static const char script_ext_soft
[] = "soft";
196 static const char script_ext_strict
[] = "strict";
198 static const char *const script_ext_enums
[] = {
205 static const char *script_ext_mode
= script_ext_soft
;
207 /* Utility used everywhere when at least one argument is needed and
211 error_no_arg (const char *why
)
213 error (_("Argument required (%s)."), why
);
216 /* The "info" command is defined as a prefix, with allow_unknown = 0.
217 Therefore, its own definition is called only for "info" with no
221 info_command (char *arg
, int from_tty
)
223 printf_unfiltered (_("\"info\" must be followed by "
224 "the name of an info command.\n"));
225 help_list (infolist
, "info ", all_commands
, gdb_stdout
);
228 /* The "show" command with no arguments shows all the settings. */
231 show_command (char *arg
, int from_tty
)
233 cmd_show_list (showlist
, from_tty
, "");
236 /* Provide documentation on command or list given by COMMAND. FROM_TTY
240 help_command (char *command
, int from_tty
)
242 help_cmd (command
, gdb_stdout
);
246 /* Note: The "complete" command is used by Emacs to implement completion.
247 [Is that why this function writes output with *_unfiltered?] */
250 complete_command (char *arg_entry
, int from_tty
)
252 const char *arg
= arg_entry
;
256 if (max_completions
== 0)
258 /* Only print this for non-mi frontends. An MI frontend may not
259 be able to handle this. */
260 if (!current_uiout
->is_mi_like_p ())
262 printf_unfiltered (_("max-completions is zero,"
263 " completion is disabled.\n"));
271 completion_tracker tracker_handle_brkchars
;
272 completion_tracker tracker_handle_completions
;
273 completion_tracker
*tracker
;
275 int quote_char
= '\0';
280 word
= completion_find_completion_word (tracker_handle_brkchars
,
283 /* Completers that provide a custom word point in the
284 handle_brkchars phase also compute their completions then.
285 Completers that leave the completion word handling to readline
286 must be called twice. */
287 if (tracker_handle_brkchars
.use_custom_word_point ())
288 tracker
= &tracker_handle_brkchars
;
291 complete_line (tracker_handle_completions
, word
, arg
, strlen (arg
));
292 tracker
= &tracker_handle_completions
;
295 CATCH (ex
, RETURN_MASK_ALL
)
300 std::string
arg_prefix (arg
, word
- arg
);
302 completion_result result
303 = tracker
->build_completion_result (word
, word
- arg
, strlen (arg
));
305 if (result
.number_matches
!= 0)
307 if (result
.number_matches
== 1)
308 printf_unfiltered ("%s%s\n", arg_prefix
.c_str (), result
.match_list
[0]);
311 result
.sort_match_list ();
313 for (size_t i
= 0; i
< result
.number_matches
; i
++)
315 printf_unfiltered ("%s%s",
317 result
.match_list
[i
+ 1]);
319 printf_unfiltered ("%c", quote_char
);
320 printf_unfiltered ("\n");
324 if (result
.number_matches
== max_completions
)
326 /* ARG_PREFIX and WORD are included in the output so that emacs
327 will include the message in the output. */
328 printf_unfiltered (_("%s%s %s\n"),
329 arg_prefix
.c_str (), word
,
330 get_max_completions_reached_message ());
336 is_complete_command (struct cmd_list_element
*c
)
338 return cmd_cfunc_eq (c
, complete_command
);
342 show_version (char *args
, int from_tty
)
344 print_gdb_version (gdb_stdout
);
345 printf_filtered ("\n");
349 show_configuration (char *args
, int from_tty
)
351 print_gdb_configuration (gdb_stdout
);
354 /* Handle the quit command. */
357 quit_command (char *args
, int from_tty
)
361 /* An optional expression may be used to cause gdb to terminate with
362 the value of that expression. */
365 struct value
*val
= parse_and_eval (args
);
367 exit_code
= (int) value_as_long (val
);
370 if (!quit_confirm ())
371 error (_("Not confirmed."));
373 query_if_trace_running (from_tty
);
375 quit_force (args
? &exit_code
: NULL
, from_tty
);
379 pwd_command (char *args
, int from_tty
)
382 error (_("The \"pwd\" command does not take an argument: %s"), args
);
383 if (! getcwd (gdb_dirbuf
, sizeof (gdb_dirbuf
)))
384 error (_("Error finding name of working directory: %s"),
385 safe_strerror (errno
));
387 if (strcmp (gdb_dirbuf
, current_directory
) != 0)
388 printf_unfiltered (_("Working directory %s\n (canonically %s).\n"),
389 current_directory
, gdb_dirbuf
);
391 printf_unfiltered (_("Working directory %s.\n"), current_directory
);
395 cd_command (char *dir
, int from_tty
)
398 /* Found something other than leading repetitions of "/..". */
402 /* If the new directory is absolute, repeat is a no-op; if relative,
403 repeat might be useful but is more likely to be a mistake. */
406 gdb::unique_xmalloc_ptr
<char> dir_holder
407 (tilde_expand (dir
!= NULL
? dir
: "~"));
408 dir
= dir_holder
.get ();
411 perror_with_name (dir
);
413 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
414 /* There's too much mess with DOSish names like "d:", "d:.",
415 "d:./foo" etc. Instead of having lots of special #ifdef'ed code,
416 simply get the canonicalized name of the current directory. */
417 dir
= getcwd (gdb_dirbuf
, sizeof (gdb_dirbuf
));
421 if (IS_DIR_SEPARATOR (dir
[len
- 1]))
423 /* Remove the trailing slash unless this is a root directory
424 (including a drive letter on non-Unix systems). */
425 if (!(len
== 1) /* "/" */
426 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
427 && !(len
== 3 && dir
[1] == ':') /* "d:/" */
433 dir_holder
.reset (savestring (dir
, len
));
434 if (IS_ABSOLUTE_PATH (dir_holder
.get ()))
435 current_directory
= dir_holder
.release ();
438 if (IS_DIR_SEPARATOR (current_directory
[strlen (current_directory
) - 1]))
439 current_directory
= concat (current_directory
, dir_holder
.get (),
442 current_directory
= concat (current_directory
, SLASH_STRING
,
443 dir_holder
.get (), (char *) NULL
);
446 /* Now simplify any occurrences of `.' and `..' in the pathname. */
449 for (p
= current_directory
; *p
;)
451 if (IS_DIR_SEPARATOR (p
[0]) && p
[1] == '.'
452 && (p
[2] == 0 || IS_DIR_SEPARATOR (p
[2])))
453 memmove (p
, p
+ 2, strlen (p
+ 2) + 1);
454 else if (IS_DIR_SEPARATOR (p
[0]) && p
[1] == '.' && p
[2] == '.'
455 && (p
[3] == 0 || IS_DIR_SEPARATOR (p
[3])))
459 /* Search backwards for the directory just before the "/.."
460 and obliterate it and the "/..". */
463 while (q
!= current_directory
&& !IS_DIR_SEPARATOR (q
[-1]))
466 if (q
== current_directory
)
467 /* current_directory is
468 a relative pathname ("can't happen"--leave it alone). */
472 memmove (q
- 1, p
+ 3, strlen (p
+ 3) + 1);
477 /* We are dealing with leading repetitions of "/..", for
478 example "/../..", which is the Mach super-root. */
488 forget_cached_source_info ();
491 pwd_command ((char *) 0, 1);
494 /* Show the current value of the 'script-extension' option. */
497 show_script_ext_mode (struct ui_file
*file
, int from_tty
,
498 struct cmd_list_element
*c
, const char *value
)
500 fprintf_filtered (file
,
501 _("Script filename extension recognition is \"%s\".\n"),
505 /* Try to open SCRIPT_FILE.
506 If successful, the full path name is stored in *FULL_PATHP,
507 and the stream is returned.
508 If not successful, return NULL; errno is set for the last file
511 If SEARCH_PATH is non-zero, and the file isn't found in cwd,
512 search for it in the source search path. */
514 gdb::optional
<open_script
>
515 find_and_open_script (const char *script_file
, int search_path
)
518 int search_flags
= OPF_TRY_CWD_FIRST
| OPF_RETURN_REALPATH
;
519 gdb::optional
<open_script
> opened
;
521 gdb::unique_xmalloc_ptr
<char> file (tilde_expand (script_file
));
524 search_flags
|= OPF_SEARCH_IN_PATH
;
526 /* Search for and open 'file' on the search path used for source
527 files. Put the full location in *FULL_PATHP. */
529 fd
= openp (source_path
, search_flags
,
530 file
.get (), O_RDONLY
, &temp_path
);
531 gdb::unique_xmalloc_ptr
<char> full_path (temp_path
);
536 FILE *result
= fdopen (fd
, FOPEN_RT
);
539 int save_errno
= errno
;
545 opened
.emplace (gdb_file_up (result
), std::move (full_path
));
550 /* Load script FILE, which has already been opened as STREAM.
551 FILE_TO_OPEN is the form of FILE to use if one needs to open the file.
552 This is provided as FILE may have been found via the source search path.
553 An important thing to note here is that FILE may be a symlink to a file
554 with a different or non-existing suffix, and thus one cannot infer the
555 extension language from FILE_TO_OPEN. */
558 source_script_from_stream (FILE *stream
, const char *file
,
559 const char *file_to_open
)
561 if (script_ext_mode
!= script_ext_off
)
563 const struct extension_language_defn
*extlang
564 = get_ext_lang_of_file (file
);
568 if (ext_lang_present_p (extlang
))
570 script_sourcer_func
*sourcer
571 = ext_lang_script_sourcer (extlang
);
573 gdb_assert (sourcer
!= NULL
);
574 sourcer (extlang
, stream
, file_to_open
);
577 else if (script_ext_mode
== script_ext_soft
)
579 /* Assume the file is a gdb script.
580 This is handled below. */
583 throw_ext_lang_unsupported (extlang
);
587 script_from_file (stream
, file
);
590 /* Worker to perform the "source" command.
592 If SEARCH_PATH is non-zero, and the file isn't found in cwd,
593 search for it in the source search path. */
596 source_script_with_search (const char *file
, int from_tty
, int search_path
)
599 if (file
== NULL
|| *file
== 0)
600 error (_("source command requires file name of file to source."));
602 gdb::optional
<open_script
> opened
= find_and_open_script (file
, search_path
);
605 /* The script wasn't found, or was otherwise inaccessible.
606 If the source command was invoked interactively, throw an
607 error. Otherwise (e.g. if it was invoked by a script),
608 just emit a warning, rather than cause an error. */
610 perror_with_name (file
);
613 perror_warning_with_name (file
);
618 /* The python support reopens the file, so we need to pass full_path here
619 in case the file was found on the search path. It's useful to do this
620 anyway so that error messages show the actual file used. But only do
621 this if we (may have) used search_path, as printing the full path in
622 errors for the non-search case can be more noise than signal. */
623 source_script_from_stream (opened
->stream
.get (), file
,
624 search_path
? opened
->full_path
.get () : file
);
627 /* Wrapper around source_script_with_search to export it to main.c
628 for use in loading .gdbinit scripts. */
631 source_script (const char *file
, int from_tty
)
633 source_script_with_search (file
, from_tty
, 0);
637 source_command (char *args
, int from_tty
)
642 scoped_restore save_source_verbose
= make_scoped_restore (&source_verbose
);
644 /* -v causes the source command to run in verbose mode.
645 -s causes the file to be searched in the source search path,
646 even if the file name contains a '/'.
647 We still have to be able to handle filenames with spaces in a
648 backward compatible way, so buildargv is not appropriate. */
652 while (args
[0] != '\0')
654 /* Make sure leading white space does not break the
656 args
= skip_spaces (args
);
661 if (args
[1] == 'v' && isspace (args
[2]))
665 /* Skip passed -v. */
668 else if (args
[1] == 's' && isspace (args
[2]))
672 /* Skip passed -s. */
679 file
= skip_spaces (args
);
682 source_script_with_search (file
, from_tty
, search_path
);
687 echo_command (char *text
, int from_tty
)
689 const char *p
= text
;
693 while ((c
= *p
++) != '\0')
697 /* \ at end of argument is used after spaces
698 so they won't be lost. */
702 c
= parse_escape (get_current_arch (), &p
);
704 printf_filtered ("%c", c
);
707 printf_filtered ("%c", c
);
710 /* Force this output to appear now. */
712 gdb_flush (gdb_stdout
);
716 shell_escape (const char *arg
, int from_tty
)
718 #if defined(CANT_FORK) || \
719 (!defined(HAVE_WORKING_VFORK) && !defined(HAVE_WORKING_FORK))
720 /* If ARG is NULL, they want an inferior shell, but `system' just
721 reports if the shell is available when passed a NULL arg. */
722 int rc
= system (arg
? arg
: "");
725 arg
= "inferior shell";
729 fprintf_unfiltered (gdb_stderr
, "Cannot execute %s: %s\n", arg
,
730 safe_strerror (errno
));
731 gdb_flush (gdb_stderr
);
735 fprintf_unfiltered (gdb_stderr
, "%s exited with status %d\n", arg
, rc
);
736 gdb_flush (gdb_stderr
);
739 /* Make sure to return to the directory GDB thinks it is, in case
740 the shell command we just ran changed it. */
741 chdir (current_directory
);
743 #else /* Can fork. */
746 if ((pid
= vfork ()) == 0)
748 const char *p
, *user_shell
;
752 if ((user_shell
= (char *) getenv ("SHELL")) == NULL
)
753 user_shell
= "/bin/sh";
755 /* Get the name of the shell for arg0. */
756 p
= lbasename (user_shell
);
759 execl (user_shell
, p
, (char *) 0);
761 execl (user_shell
, p
, "-c", arg
, (char *) 0);
763 fprintf_unfiltered (gdb_stderr
, "Cannot execute %s: %s\n", user_shell
,
764 safe_strerror (errno
));
765 gdb_flush (gdb_stderr
);
770 waitpid (pid
, &status
, 0);
772 error (_("Fork failed"));
773 #endif /* Can fork. */
776 /* Implementation of the "shell" command. */
779 shell_command (char *arg
, int from_tty
)
781 shell_escape (arg
, from_tty
);
785 edit_command (char *arg
, int from_tty
)
787 struct symtabs_and_lines sals
;
788 struct symtab_and_line sal
;
794 /* Pull in the current default source line if necessary. */
797 set_default_source_symtab_and_line ();
798 sal
= get_current_source_symtab_and_line ();
801 /* Bare "edit" edits file with present line. */
806 error (_("No default source file yet."));
807 sal
.line
+= get_lines_to_list () / 2;
813 /* Now should only be one argument -- decode it in SAL. */
815 event_location_up location
= string_to_event_location (&arg1
,
817 sals
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
828 ambiguous_line_spec (&sals
);
837 error (_("Junk at end of line specification."));
839 /* If line was specified by address, first print exactly which
840 line, and which file. In this case, sal.symtab == 0 means
841 address is outside of all known source files, not that user
842 failed to give a filename. */
845 struct gdbarch
*gdbarch
;
848 error (_("No source file for address %s."),
849 paddress (get_current_arch (), sal
.pc
));
851 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (sal
.symtab
));
852 sym
= find_pc_function (sal
.pc
);
854 printf_filtered ("%s is in %s (%s:%d).\n",
855 paddress (gdbarch
, sal
.pc
),
856 SYMBOL_PRINT_NAME (sym
),
857 symtab_to_filename_for_display (sal
.symtab
),
860 printf_filtered ("%s is at %s:%d.\n",
861 paddress (gdbarch
, sal
.pc
),
862 symtab_to_filename_for_display (sal
.symtab
),
866 /* If what was given does not imply a symtab, it must be an
867 undebuggable symbol which means no source code. */
870 error (_("No line number known for %s."), arg
);
873 if ((editor
= (char *) getenv ("EDITOR")) == NULL
)
876 fn
= symtab_to_fullname (sal
.symtab
);
878 /* Quote the file name, in case it has whitespace or other special
880 p
= xstrprintf ("%s +%d \"%s\"", editor
, sal
.line
, fn
);
881 shell_escape (p
, from_tty
);
886 list_command (char *arg
, int from_tty
)
888 struct symtabs_and_lines sals
, sals_end
;
889 struct symtab_and_line sal
= { 0 };
890 struct symtab_and_line sal_end
= { 0 };
891 struct symtab_and_line cursal
= { 0 };
900 /* Pull in the current default source line if necessary. */
901 if (arg
== NULL
|| ((arg
[0] == '+' || arg
[0] == '-') && arg
[1] == '\0'))
903 set_default_source_symtab_and_line ();
904 cursal
= get_current_source_symtab_and_line ();
906 /* If this is the first "list" since we've set the current
907 source line, center the listing around that line. */
908 if (get_first_line_listed () == 0)
912 first
= std::max (cursal
.line
- get_lines_to_list () / 2, 1);
914 /* A small special case --- if listing backwards, and we
915 should list only one line, list the preceding line,
916 instead of the exact line we've just shown after e.g.,
917 stopping for a breakpoint. */
918 if (arg
!= NULL
&& arg
[0] == '-'
919 && get_lines_to_list () == 1 && first
> 1)
922 print_source_lines (cursal
.symtab
, first
,
923 first
+ get_lines_to_list (), 0);
926 /* "l" or "l +" lists next ten lines. */
927 else if (arg
== NULL
|| arg
[0] == '+')
928 print_source_lines (cursal
.symtab
, cursal
.line
,
929 cursal
.line
+ get_lines_to_list (), 0);
931 /* "l -" lists previous ten lines, the ones before the ten just
933 else if (arg
[0] == '-')
935 if (get_first_line_listed () == 1)
936 error (_("Already at the start of %s."),
937 symtab_to_filename_for_display (cursal
.symtab
));
938 print_source_lines (cursal
.symtab
,
939 std::max (get_first_line_listed ()
940 - get_lines_to_list (), 1),
941 get_first_line_listed (), 0);
947 /* Now if there is only one argument, decode it in SAL
949 If there are two arguments, decode them in SAL and SAL_END
950 and clear NO_END; however, if one of the arguments is blank,
951 set DUMMY_BEG or DUMMY_END to record that fact. */
953 if (!have_full_symbols () && !have_partial_symbols ())
954 error (_("No symbol table is loaded. Use the \"file\" command."));
963 event_location_up location
= string_to_event_location (&arg1
,
965 sals
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
978 /* Record whether the BEG arg is all digits. */
980 for (p
= arg
; p
!= arg1
&& *p
>= '0' && *p
<= '9'; p
++);
981 linenum_beg
= (p
== arg1
);
983 while (*arg1
== ' ' || *arg1
== '\t')
990 ambiguous_line_spec (&sals
);
995 while (*arg1
== ' ' || *arg1
== '\t')
1001 event_location_up location
1002 = string_to_event_location (&arg1
, current_language
);
1004 sals_end
= decode_line_1 (location
.get (),
1005 DECODE_LINE_LIST_MODE
, NULL
, NULL
, 0);
1007 sals_end
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
1008 NULL
, sal
.symtab
, sal
.line
);
1010 filter_sals (&sals_end
);
1011 if (sals_end
.nelts
== 0)
1016 if (sals_end
.nelts
> 1)
1018 ambiguous_line_spec (&sals_end
);
1019 xfree (sals_end
.sals
);
1023 sal_end
= sals_end
.sals
[0];
1024 xfree (sals_end
.sals
);
1029 error (_("Junk at end of line specification."));
1031 if (!no_end
&& !dummy_beg
&& !dummy_end
1032 && sal
.symtab
!= sal_end
.symtab
)
1033 error (_("Specified start and end are in different files."));
1034 if (dummy_beg
&& dummy_end
)
1035 error (_("Two empty args do not say what lines to list."));
1037 /* If line was specified by address,
1038 first print exactly which line, and which file.
1040 In this case, sal.symtab == 0 means address is outside of all
1041 known source files, not that user failed to give a filename. */
1044 struct gdbarch
*gdbarch
;
1046 if (sal
.symtab
== 0)
1047 error (_("No source file for address %s."),
1048 paddress (get_current_arch (), sal
.pc
));
1050 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (sal
.symtab
));
1051 sym
= find_pc_function (sal
.pc
);
1053 printf_filtered ("%s is in %s (%s:%d).\n",
1054 paddress (gdbarch
, sal
.pc
),
1055 SYMBOL_PRINT_NAME (sym
),
1056 symtab_to_filename_for_display (sal
.symtab
), sal
.line
);
1058 printf_filtered ("%s is at %s:%d.\n",
1059 paddress (gdbarch
, sal
.pc
),
1060 symtab_to_filename_for_display (sal
.symtab
), sal
.line
);
1063 /* If line was not specified by just a line number, and it does not
1064 imply a symtab, it must be an undebuggable symbol which means no
1067 if (!linenum_beg
&& sal
.symtab
== 0)
1068 error (_("No line number known for %s."), arg
);
1070 /* If this command is repeated with RET,
1071 turn it into the no-arg variant. */
1076 if (dummy_beg
&& sal_end
.symtab
== 0)
1077 error (_("No default source file yet. Do \"help list\"."));
1079 print_source_lines (sal_end
.symtab
,
1080 std::max (sal_end
.line
- (get_lines_to_list () - 1), 1),
1081 sal_end
.line
+ 1, 0);
1082 else if (sal
.symtab
== 0)
1083 error (_("No default source file yet. Do \"help list\"."));
1086 for (int i
= 0; i
< sals
.nelts
; i
++)
1089 int first_line
= sal
.line
- get_lines_to_list () / 2;
1094 printf_filtered (_("file: \"%s\", line number: %d\n"),
1095 symtab_to_filename_for_display (sal
.symtab
),
1098 print_source_lines (sal
.symtab
,
1100 first_line
+ get_lines_to_list (),
1105 print_source_lines (sal
.symtab
, sal
.line
,
1107 ? sal
.line
+ get_lines_to_list ()
1108 : sal_end
.line
+ 1),
1113 /* Subroutine of disassemble_command to simplify it.
1114 Perform the disassembly.
1115 NAME is the name of the function if known, or NULL.
1116 [LOW,HIGH) are the range of addresses to disassemble.
1117 MIXED is non-zero to print source with the assembler. */
1120 print_disassembly (struct gdbarch
*gdbarch
, const char *name
,
1121 CORE_ADDR low
, CORE_ADDR high
, int flags
)
1124 if (!tui_is_window_visible (DISASSEM_WIN
))
1127 printf_filtered ("Dump of assembler code ");
1129 printf_filtered ("for function %s:\n", name
);
1131 printf_filtered ("from %s to %s:\n",
1132 paddress (gdbarch
, low
), paddress (gdbarch
, high
));
1134 /* Dump the specified range. */
1135 gdb_disassembly (gdbarch
, current_uiout
, flags
, -1, low
, high
);
1137 printf_filtered ("End of assembler dump.\n");
1138 gdb_flush (gdb_stdout
);
1143 tui_show_assembly (gdbarch
, low
);
1148 /* Subroutine of disassemble_command to simplify it.
1149 Print a disassembly of the current function according to FLAGS. */
1152 disassemble_current_function (int flags
)
1154 struct frame_info
*frame
;
1155 struct gdbarch
*gdbarch
;
1156 CORE_ADDR low
, high
, pc
;
1159 frame
= get_selected_frame (_("No frame selected."));
1160 gdbarch
= get_frame_arch (frame
);
1161 pc
= get_frame_address_in_block (frame
);
1162 if (find_pc_partial_function (pc
, &name
, &low
, &high
) == 0)
1163 error (_("No function contains program counter for selected frame."));
1165 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1168 /* FIXME: cagney/2004-02-07: This should be an observer. */
1169 low
= tui_get_low_disassembly_address (gdbarch
, low
, pc
);
1171 low
+= gdbarch_deprecated_function_start_offset (gdbarch
);
1173 print_disassembly (gdbarch
, name
, low
, high
, flags
);
1176 /* Dump a specified section of assembly code.
1180 - dump the assembly code for the function of the current pc
1181 disassemble [/mrs] addr
1182 - dump the assembly code for the function at ADDR
1183 disassemble [/mrs] low,high
1184 disassemble [/mrs] low,+length
1185 - dump the assembly code in the range [LOW,HIGH), or [LOW,LOW+length)
1187 A /m modifier will include source code with the assembly in a
1188 "source centric" view. This view lists only the file of the first insn,
1189 even if other source files are involved (e.g., inlined functions), and
1190 the output is in source order, even with optimized code. This view is
1191 considered deprecated as it hasn't been useful in practice.
1193 A /r modifier will include raw instructions in hex with the assembly.
1195 A /s modifier will include source code with the assembly, like /m, with
1196 two important differences:
1197 1) The output is still in pc address order.
1198 2) File names and contents for all relevant source files are displayed. */
1201 disassemble_command (char *arg
, int from_tty
)
1203 struct gdbarch
*gdbarch
= get_current_arch ();
1204 CORE_ADDR low
, high
;
1219 error (_("Missing modifier."));
1221 while (*p
&& ! isspace (*p
))
1226 flags
|= DISASSEMBLY_SOURCE_DEPRECATED
;
1229 flags
|= DISASSEMBLY_RAW_INSN
;
1232 flags
|= DISASSEMBLY_SOURCE
;
1235 error (_("Invalid disassembly modifier."));
1239 p
= skip_spaces_const (p
);
1242 if ((flags
& (DISASSEMBLY_SOURCE_DEPRECATED
| DISASSEMBLY_SOURCE
))
1243 == (DISASSEMBLY_SOURCE_DEPRECATED
| DISASSEMBLY_SOURCE
))
1244 error (_("Cannot specify both /m and /s."));
1248 flags
|= DISASSEMBLY_OMIT_FNAME
;
1249 disassemble_current_function (flags
);
1253 pc
= value_as_address (parse_to_comma_and_eval (&p
));
1259 if (find_pc_partial_function (pc
, &name
, &low
, &high
) == 0)
1260 error (_("No function contains specified address."));
1262 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1265 /* FIXME: cagney/2004-02-07: This should be an observer. */
1266 low
= tui_get_low_disassembly_address (gdbarch
, low
, pc
);
1268 low
+= gdbarch_deprecated_function_start_offset (gdbarch
);
1269 flags
|= DISASSEMBLY_OMIT_FNAME
;
1273 /* Two arguments. */
1276 p
= skip_spaces_const (p
);
1282 high
= parse_and_eval_address (p
);
1287 print_disassembly (gdbarch
, name
, low
, high
, flags
);
1291 make_command (char *arg
, int from_tty
)
1294 shell_escape ("make", from_tty
);
1297 std::string cmd
= std::string ("make ") + arg
;
1299 shell_escape (cmd
.c_str (), from_tty
);
1304 show_user (char *args
, int from_tty
)
1306 struct cmd_list_element
*c
;
1307 extern struct cmd_list_element
*cmdlist
;
1311 const char *comname
= args
;
1313 c
= lookup_cmd (&comname
, cmdlist
, "", 0, 1);
1314 if (!cli_user_command_p (c
))
1315 error (_("Not a user command."));
1316 show_user_1 (c
, "", args
, gdb_stdout
);
1320 for (c
= cmdlist
; c
; c
= c
->next
)
1322 if (cli_user_command_p (c
) || c
->prefixlist
!= NULL
)
1323 show_user_1 (c
, "", c
->name
, gdb_stdout
);
1328 /* Search through names of commands and documentations for a certain
1329 regular expression. */
1332 apropos_command (char *searchstr
, int from_tty
)
1334 if (searchstr
== NULL
)
1335 error (_("REGEXP string is empty"));
1337 compiled_regex
pattern (searchstr
, REG_ICASE
,
1338 _("Error in regular expression"));
1340 apropos_cmd (gdb_stdout
, cmdlist
, pattern
, "");
1343 /* Subroutine of alias_command to simplify it.
1344 Return the first N elements of ARGV flattened back to a string
1345 with a space separating each element.
1346 ARGV may not be NULL.
1347 This does not take care of quoting elements in case they contain spaces
1351 argv_to_string (char **argv
, int n
)
1356 gdb_assert (argv
!= NULL
);
1357 gdb_assert (n
>= 0 && n
<= countargv (argv
));
1359 for (i
= 0; i
< n
; ++i
)
1369 /* Subroutine of alias_command to simplify it.
1370 Return TRUE if COMMAND exists, unambiguously. Otherwise FALSE. */
1373 valid_command_p (const char *command
)
1375 struct cmd_list_element
*c
;
1377 c
= lookup_cmd_1 (& command
, cmdlist
, NULL
, 1);
1379 if (c
== NULL
|| c
== (struct cmd_list_element
*) -1)
1382 /* This is the slightly tricky part.
1383 lookup_cmd_1 will return a pointer to the last part of COMMAND
1384 to match, leaving COMMAND pointing at the remainder. */
1385 while (*command
== ' ' || *command
== '\t')
1387 return *command
== '\0';
1390 /* Called when "alias" was incorrectly used. */
1393 alias_usage_error (void)
1395 error (_("Usage: alias [-a] [--] ALIAS = COMMAND"));
1398 /* Make an alias of an existing command. */
1401 alias_command (char *args
, int from_tty
)
1403 int i
, alias_argc
, command_argc
;
1404 int abbrev_flag
= 0;
1406 const char *alias
, *command
;
1408 if (args
== NULL
|| strchr (args
, '=') == NULL
)
1409 alias_usage_error ();
1411 equals
= strchr (args
, '=');
1412 std::string
args2 (args
, equals
- args
);
1414 gdb_argv
built_alias_argv (args2
.c_str ());
1415 gdb_argv
command_argv (equals
+ 1);
1417 char **alias_argv
= built_alias_argv
.get ();
1418 while (alias_argv
[0] != NULL
)
1420 if (strcmp (alias_argv
[0], "-a") == 0)
1425 else if (strcmp (alias_argv
[0], "--") == 0)
1434 if (alias_argv
[0] == NULL
|| command_argv
[0] == NULL
1435 || *alias_argv
[0] == '\0' || *command_argv
[0] == '\0')
1436 alias_usage_error ();
1438 for (i
= 0; alias_argv
[i
] != NULL
; ++i
)
1440 if (! valid_user_defined_cmd_name_p (alias_argv
[i
]))
1443 error (_("Invalid command name: %s"), alias_argv
[i
]);
1445 error (_("Invalid command element name: %s"), alias_argv
[i
]);
1449 alias_argc
= countargv (alias_argv
);
1450 command_argc
= command_argv
.count ();
1452 /* COMMAND must exist.
1453 Reconstruct the command to remove any extraneous spaces,
1454 for better error messages. */
1455 std::string
command_string (argv_to_string (command_argv
.get (),
1457 command
= command_string
.c_str ();
1458 if (! valid_command_p (command
))
1459 error (_("Invalid command to alias to: %s"), command
);
1461 /* ALIAS must not exist. */
1462 std::string
alias_string (argv_to_string (alias_argv
, alias_argc
));
1463 alias
= alias_string
.c_str ();
1464 if (valid_command_p (alias
))
1465 error (_("Alias already exists: %s"), alias
);
1467 /* If ALIAS is one word, it is an alias for the entire COMMAND.
1468 Example: alias spe = set print elements
1470 Otherwise ALIAS and COMMAND must have the same number of words,
1471 and every word except the last must match; and the last word of
1472 ALIAS is made an alias of the last word of COMMAND.
1473 Example: alias set print elms = set pr elem
1474 Note that unambiguous abbreviations are allowed. */
1476 if (alias_argc
== 1)
1478 /* add_cmd requires *we* allocate space for name, hence the xstrdup. */
1479 add_com_alias (xstrdup (alias_argv
[0]), command
, class_alias
,
1484 const char *alias_prefix
, *command_prefix
;
1485 struct cmd_list_element
*c_alias
, *c_command
;
1487 if (alias_argc
!= command_argc
)
1488 error (_("Mismatched command length between ALIAS and COMMAND."));
1490 /* Create copies of ALIAS and COMMAND without the last word,
1491 and use that to verify the leading elements match. */
1492 std::string
alias_prefix_string (argv_to_string (alias_argv
,
1494 std::string
command_prefix_string (argv_to_string (alias_argv
,
1496 alias_prefix
= alias_prefix_string
.c_str ();
1497 command_prefix
= command_prefix_string
.c_str ();
1499 c_command
= lookup_cmd_1 (& command_prefix
, cmdlist
, NULL
, 1);
1500 /* We've already tried to look up COMMAND. */
1501 gdb_assert (c_command
!= NULL
1502 && c_command
!= (struct cmd_list_element
*) -1);
1503 gdb_assert (c_command
->prefixlist
!= NULL
);
1504 c_alias
= lookup_cmd_1 (& alias_prefix
, cmdlist
, NULL
, 1);
1505 if (c_alias
!= c_command
)
1506 error (_("ALIAS and COMMAND prefixes do not match."));
1508 /* add_cmd requires *we* allocate space for name, hence the xstrdup. */
1509 add_alias_cmd (xstrdup (alias_argv
[alias_argc
- 1]),
1510 command_argv
[command_argc
- 1],
1511 class_alias
, abbrev_flag
, c_command
->prefixlist
);
1515 /* Print a list of files and line numbers which a user may choose from
1516 in order to list a function which was specified ambiguously (as
1517 with `list classname::overloadedfuncname', for example). The
1518 vector in SALS provides the filenames and line numbers. */
1521 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1525 for (i
= 0; i
< sals
->nelts
; ++i
)
1526 printf_filtered (_("file: \"%s\", line number: %d\n"),
1527 symtab_to_filename_for_display (sals
->sals
[i
].symtab
),
1528 sals
->sals
[i
].line
);
1531 /* Sort function for filter_sals. */
1534 compare_symtabs (const void *a
, const void *b
)
1536 const struct symtab_and_line
*sala
= (const struct symtab_and_line
*) a
;
1537 const struct symtab_and_line
*salb
= (const struct symtab_and_line
*) b
;
1538 const char *dira
= SYMTAB_DIRNAME (sala
->symtab
);
1539 const char *dirb
= SYMTAB_DIRNAME (salb
->symtab
);
1547 else if (dirb
== NULL
)
1554 r
= filename_cmp (dira
, dirb
);
1559 r
= filename_cmp (sala
->symtab
->filename
, salb
->symtab
->filename
);
1563 if (sala
->line
< salb
->line
)
1565 return sala
->line
== salb
->line
? 0 : 1;
1568 /* Remove any SALs that do not match the current program space, or
1569 which appear to be "file:line" duplicates. */
1572 filter_sals (struct symtabs_and_lines
*sals
)
1577 for (i
= 0; i
< sals
->nelts
; ++i
)
1579 if (sals
->sals
[i
].pspace
== current_program_space
1580 && sals
->sals
[i
].symtab
!= NULL
)
1582 sals
->sals
[out
] = sals
->sals
[i
];
1588 qsort (sals
->sals
, sals
->nelts
, sizeof (struct symtab_and_line
),
1593 for (i
= 1; i
< sals
->nelts
; ++i
)
1595 if (compare_symtabs (&sals
->sals
[prev
], &sals
->sals
[i
]))
1597 /* Symtabs differ. */
1598 sals
->sals
[out
] = sals
->sals
[i
];
1604 if (sals
->nelts
== 0)
1614 set_debug (char *arg
, int from_tty
)
1616 printf_unfiltered (_("\"set debug\" must be followed by "
1617 "the name of a debug subcommand.\n"));
1618 help_list (setdebuglist
, "set debug ", all_commands
, gdb_stdout
);
1622 show_debug (char *args
, int from_tty
)
1624 cmd_show_list (showdebuglist
, from_tty
, "");
1628 init_cmd_lists (void)
1630 max_user_call_depth
= 1024;
1634 show_info_verbose (struct ui_file
*file
, int from_tty
,
1635 struct cmd_list_element
*c
,
1639 fprintf_filtered (file
,
1640 _("Verbose printing of informational messages is %s.\n"),
1643 fprintf_filtered (file
, _("Verbosity is %s.\n"), value
);
1647 show_history_expansion_p (struct ui_file
*file
, int from_tty
,
1648 struct cmd_list_element
*c
, const char *value
)
1650 fprintf_filtered (file
, _("History expansion on command input is %s.\n"),
1655 show_remote_debug (struct ui_file
*file
, int from_tty
,
1656 struct cmd_list_element
*c
, const char *value
)
1658 fprintf_filtered (file
, _("Debugging of remote protocol is %s.\n"),
1663 show_remote_timeout (struct ui_file
*file
, int from_tty
,
1664 struct cmd_list_element
*c
, const char *value
)
1666 fprintf_filtered (file
,
1667 _("Timeout limit to wait for target to respond is %s.\n"),
1672 show_max_user_call_depth (struct ui_file
*file
, int from_tty
,
1673 struct cmd_list_element
*c
, const char *value
)
1675 fprintf_filtered (file
,
1676 _("The max call depth for user-defined commands is %s.\n"),
1682 initialize_file_ftype _initialize_cli_cmds
;
1685 _initialize_cli_cmds (void)
1687 struct cmd_list_element
*c
;
1689 /* Define the classes of commands.
1690 They will appear in the help list in alphabetical order. */
1692 add_cmd ("internals", class_maintenance
, NULL
, _("\
1693 Maintenance commands.\n\
1694 Some gdb commands are provided just for use by gdb maintainers.\n\
1695 These commands are subject to frequent change, and may not be as\n\
1696 well documented as user commands."),
1698 add_cmd ("obscure", class_obscure
, NULL
, _("Obscure features."), &cmdlist
);
1699 add_cmd ("aliases", class_alias
, NULL
,
1700 _("Aliases of other commands."), &cmdlist
);
1701 add_cmd ("user-defined", class_user
, NULL
, _("\
1702 User-defined commands.\n\
1703 The commands in this class are those defined by the user.\n\
1704 Use the \"define\" command to define a command."), &cmdlist
);
1705 add_cmd ("support", class_support
, NULL
, _("Support facilities."), &cmdlist
);
1707 add_cmd ("status", class_info
, NULL
, _("Status inquiries."), &cmdlist
);
1708 add_cmd ("files", class_files
, NULL
, _("Specifying and examining files."),
1710 add_cmd ("breakpoints", class_breakpoint
, NULL
,
1711 _("Making program stop at certain points."), &cmdlist
);
1712 add_cmd ("data", class_vars
, NULL
, _("Examining data."), &cmdlist
);
1713 add_cmd ("stack", class_stack
, NULL
, _("\
1714 Examining the stack.\n\
1715 The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\
1716 counting from zero for the innermost (currently executing) frame.\n\n\
1717 At any time gdb identifies one frame as the \"selected\" frame.\n\
1718 Variable lookups are done with respect to the selected frame.\n\
1719 When the program being debugged stops, gdb selects the innermost frame.\n\
1720 The commands below can be used to select other frames by number or address."),
1722 add_cmd ("running", class_run
, NULL
, _("Running the program."), &cmdlist
);
1724 /* Define general commands. */
1726 add_com ("pwd", class_files
, pwd_command
, _("\
1727 Print working directory. This is used for your program as well."));
1729 c
= add_cmd ("cd", class_files
, cd_command
, _("\
1730 Set working directory to DIR for debugger and program being debugged.\n\
1731 The change does not take effect for the program being debugged\n\
1732 until the next time it is started."), &cmdlist
);
1733 set_cmd_completer (c
, filename_completer
);
1735 add_com ("echo", class_support
, echo_command
, _("\
1736 Print a constant string. Give string as argument.\n\
1737 C escape sequences may be used in the argument.\n\
1738 No newline is added at the end of the argument;\n\
1739 use \"\\n\" if you want a newline to be printed.\n\
1740 Since leading and trailing whitespace are ignored in command arguments,\n\
1741 if you want to print some you must use \"\\\" before leading whitespace\n\
1742 to be printed or after trailing whitespace."));
1744 add_setshow_enum_cmd ("script-extension", class_support
,
1745 script_ext_enums
, &script_ext_mode
, _("\
1746 Set mode for script filename extension recognition."), _("\
1747 Show mode for script filename extension recognition."), _("\
1748 off == no filename extension recognition (all sourced files are GDB scripts)\n\
1749 soft == evaluate script according to filename extension, fallback to GDB script"
1751 strict == evaluate script according to filename extension, error if not supported"
1754 show_script_ext_mode
,
1755 &setlist
, &showlist
);
1757 add_com ("quit", class_support
, quit_command
, _("\
1759 Usage: quit [EXPR]\n\
1760 The optional expression EXPR, if present, is evaluated and the result\n\
1761 used as GDB's exit code. The default is zero."));
1762 c
= add_com ("help", class_support
, help_command
,
1763 _("Print list of commands."));
1764 set_cmd_completer (c
, command_completer
);
1765 add_com_alias ("q", "quit", class_support
, 1);
1766 add_com_alias ("h", "help", class_support
, 1);
1768 add_setshow_boolean_cmd ("verbose", class_support
, &info_verbose
, _("\
1769 Set verbosity."), _("\
1770 Show verbosity."), NULL
,
1773 &setlist
, &showlist
);
1775 add_prefix_cmd ("history", class_support
, set_history
,
1776 _("Generic command for setting command history parameters."),
1777 &sethistlist
, "set history ", 0, &setlist
);
1778 add_prefix_cmd ("history", class_support
, show_history
,
1779 _("Generic command for showing command history parameters."),
1780 &showhistlist
, "show history ", 0, &showlist
);
1782 add_setshow_boolean_cmd ("expansion", no_class
, &history_expansion_p
, _("\
1783 Set history expansion on command input."), _("\
1784 Show history expansion on command input."), _("\
1785 Without an argument, history expansion is enabled."),
1787 show_history_expansion_p
,
1788 &sethistlist
, &showhistlist
);
1790 add_prefix_cmd ("info", class_info
, info_command
, _("\
1791 Generic command for showing things about the program being debugged."),
1792 &infolist
, "info ", 0, &cmdlist
);
1793 add_com_alias ("i", "info", class_info
, 1);
1794 add_com_alias ("inf", "info", class_info
, 1);
1796 add_com ("complete", class_obscure
, complete_command
,
1797 _("List the completions for the rest of the line as a command."));
1799 add_prefix_cmd ("show", class_info
, show_command
, _("\
1800 Generic command for showing things about the debugger."),
1801 &showlist
, "show ", 0, &cmdlist
);
1802 /* Another way to get at the same thing. */
1803 add_info ("set", show_command
, _("Show all GDB settings."));
1805 add_cmd ("commands", no_set_class
, show_commands
, _("\
1806 Show the history of commands you typed.\n\
1807 You can supply a command number to start with, or a `+' to start after\n\
1808 the previous command number shown."),
1811 add_cmd ("version", no_set_class
, show_version
,
1812 _("Show what version of GDB this is."), &showlist
);
1814 add_cmd ("configuration", no_set_class
, show_configuration
,
1815 _("Show how GDB was configured at build time."), &showlist
);
1817 add_setshow_zinteger_cmd ("remote", no_class
, &remote_debug
, _("\
1818 Set debugging of remote protocol."), _("\
1819 Show debugging of remote protocol."), _("\
1820 When enabled, each packet sent or received with the remote target\n\
1824 &setdebuglist
, &showdebuglist
);
1826 add_setshow_zuinteger_unlimited_cmd ("remotetimeout", no_class
,
1827 &remote_timeout
, _("\
1828 Set timeout limit to wait for target to respond."), _("\
1829 Show timeout limit to wait for target to respond."), _("\
1830 This value is used to set the time limit for gdb to wait for a response\n\
1833 show_remote_timeout
,
1834 &setlist
, &showlist
);
1836 add_prefix_cmd ("debug", no_class
, set_debug
,
1837 _("Generic command for setting gdb debugging flags"),
1838 &setdebuglist
, "set debug ", 0, &setlist
);
1840 add_prefix_cmd ("debug", no_class
, show_debug
,
1841 _("Generic command for showing gdb debugging flags"),
1842 &showdebuglist
, "show debug ", 0, &showlist
);
1844 c
= add_com ("shell", class_support
, shell_command
, _("\
1845 Execute the rest of the line as a shell command.\n\
1846 With no arguments, run an inferior shell."));
1847 set_cmd_completer (c
, filename_completer
);
1849 c
= add_com ("edit", class_files
, edit_command
, _("\
1850 Edit specified file or function.\n\
1851 With no argument, edits file containing most recent line listed.\n\
1852 Editing targets can be specified in these ways:\n\
1853 FILE:LINENUM, to edit at that line in that file,\n\
1854 FUNCTION, to edit at the beginning of that function,\n\
1855 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1856 *ADDRESS, to edit at the line containing that address.\n\
1857 Uses EDITOR environment variable contents as editor (or ex as default)."));
1859 c
->completer
= location_completer
;
1861 add_com ("list", class_files
, list_command
, _("\
1862 List specified function or line.\n\
1863 With no argument, lists ten more lines after or around previous listing.\n\
1864 \"list -\" lists the ten lines before a previous ten-line listing.\n\
1865 One argument specifies a line, and ten lines are listed around that line.\n\
1866 Two arguments with comma between specify starting and ending lines to list.\n\
1867 Lines can be specified in these ways:\n\
1868 LINENUM, to list around that line in current file,\n\
1869 FILE:LINENUM, to list around that line in that file,\n\
1870 FUNCTION, to list around beginning of that function,\n\
1871 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1872 *ADDRESS, to list around the line containing that address.\n\
1873 With two args, if one is empty, it stands for ten lines away from\n\
1876 By default, when a single location is given, display ten lines.\n\
1877 This can be changed using \"set listsize\", and the current value\n\
1878 can be shown using \"show listsize\"."));
1880 add_com_alias ("l", "list", class_files
, 1);
1883 add_com_alias ("file", "list", class_files
, 1);
1885 c
= add_com ("disassemble", class_vars
, disassemble_command
, _("\
1886 Disassemble a specified section of memory.\n\
1887 Default is the function surrounding the pc of the selected frame.\n\
1889 With a /m modifier, source lines are included (if available).\n\
1890 This view is \"source centric\": the output is in source line order,\n\
1891 regardless of any optimization that is present. Only the main source file\n\
1892 is displayed, not those of, e.g., any inlined functions.\n\
1893 This modifier hasn't proved useful in practice and is deprecated\n\
1896 With a /s modifier, source lines are included (if available).\n\
1897 This differs from /m in two important respects:\n\
1898 - the output is still in pc address order, and\n\
1899 - file names and contents for all relevant source files are displayed.\n\
1901 With a /r modifier, raw instructions in hex are included.\n\
1903 With a single argument, the function surrounding that address is dumped.\n\
1904 Two arguments (separated by a comma) are taken as a range of memory to dump,\n\
1905 in the form of \"start,end\", or \"start,+length\".\n\
1907 Note that the address is interpreted as an expression, not as a location\n\
1908 like in the \"break\" command.\n\
1909 So, for example, if you want to disassemble function bar in file foo.c\n\
1910 you must type \"disassemble 'foo.c'::bar\" and not \"disassemble foo.c:bar\"."));
1911 set_cmd_completer (c
, location_completer
);
1913 add_com_alias ("!", "shell", class_support
, 0);
1915 c
= add_com ("make", class_support
, make_command
, _("\
1916 Run the ``make'' program using the rest of the line as arguments."));
1917 set_cmd_completer (c
, filename_completer
);
1918 add_cmd ("user", no_class
, show_user
, _("\
1919 Show definitions of non-python/scheme user defined commands.\n\
1920 Argument is the name of the user defined command.\n\
1921 With no argument, show definitions of all user defined commands."), &showlist
);
1922 add_com ("apropos", class_support
, apropos_command
,
1923 _("Search for commands matching a REGEXP"));
1925 add_setshow_uinteger_cmd ("max-user-call-depth", no_class
,
1926 &max_user_call_depth
, _("\
1927 Set the max call depth for non-python/scheme user-defined commands."), _("\
1928 Show the max call depth for non-python/scheme user-defined commands."), NULL
,
1930 show_max_user_call_depth
,
1931 &setlist
, &showlist
);
1933 add_setshow_boolean_cmd ("trace-commands", no_class
, &trace_commands
, _("\
1934 Set tracing of GDB CLI commands."), _("\
1935 Show state of GDB CLI command tracing."), _("\
1936 When 'on', each command is displayed as it is executed."),
1939 &setlist
, &showlist
);
1941 c
= add_com ("alias", class_support
, alias_command
, _("\
1942 Define a new command that is an alias of an existing command.\n\
1943 Usage: alias [-a] [--] ALIAS = COMMAND\n\
1944 ALIAS is the name of the alias command to create.\n\
1945 COMMAND is the command being aliased to.\n\
1946 If \"-a\" is specified, the command is an abbreviation,\n\
1947 and will not appear in help command list output.\n\
1950 Make \"spe\" an alias of \"set print elements\":\n\
1951 alias spe = set print elements\n\
1952 Make \"elms\" an alias of \"elements\" in the \"set print\" command:\n\
1953 alias -a set print elms = set print elements"));
1957 init_cli_cmds (void)
1959 struct cmd_list_element
*c
;
1960 char *source_help_text
;
1962 source_help_text
= xstrprintf (_("\
1963 Read commands from a file named FILE.\n\
1965 Usage: source [-s] [-v] FILE\n\
1966 -s: search for the script in the source search path,\n\
1967 even if FILE contains directories.\n\
1968 -v: each command in FILE is echoed as it is executed.\n\
1970 Note that the file \"%s\" is read automatically in this way\n\
1971 when GDB is started."), gdbinit
);
1972 c
= add_cmd ("source", class_support
, source_command
,
1973 source_help_text
, &cmdlist
);
1974 set_cmd_completer (c
, filename_completer
);