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 struct cmd_list_element
*setprintlist
;
173 struct cmd_list_element
*showprintlist
;
175 struct cmd_list_element
*setdebuglist
;
177 struct cmd_list_element
*showdebuglist
;
179 struct cmd_list_element
*setchecklist
;
181 struct cmd_list_element
*showchecklist
;
183 /* Command tracing state. */
185 int source_verbose
= 0;
186 int trace_commands
= 0;
188 /* 'script-extension' option support. */
190 static const char script_ext_off
[] = "off";
191 static const char script_ext_soft
[] = "soft";
192 static const char script_ext_strict
[] = "strict";
194 static const char *const script_ext_enums
[] = {
201 static const char *script_ext_mode
= script_ext_soft
;
203 /* Utility used everywhere when at least one argument is needed and
207 error_no_arg (const char *why
)
209 error (_("Argument required (%s)."), why
);
212 /* The "info" command is defined as a prefix, with allow_unknown = 0.
213 Therefore, its own definition is called only for "info" with no
217 info_command (char *arg
, int from_tty
)
219 printf_unfiltered (_("\"info\" must be followed by "
220 "the name of an info command.\n"));
221 help_list (infolist
, "info ", all_commands
, gdb_stdout
);
224 /* The "show" command with no arguments shows all the settings. */
227 show_command (char *arg
, int from_tty
)
229 cmd_show_list (showlist
, from_tty
, "");
232 /* Provide documentation on command or list given by COMMAND. FROM_TTY
236 help_command (char *command
, int from_tty
)
238 help_cmd (command
, gdb_stdout
);
242 /* Note: The "complete" command is used by Emacs to implement completion.
243 [Is that why this function writes output with *_unfiltered?] */
246 complete_command (char *arg_entry
, int from_tty
)
248 const char *arg
= arg_entry
;
252 if (max_completions
== 0)
254 /* Only print this for non-mi frontends. An MI frontend may not
255 be able to handle this. */
256 if (!current_uiout
->is_mi_like_p ())
258 printf_unfiltered (_("max-completions is zero,"
259 " completion is disabled.\n"));
267 completion_tracker tracker_handle_brkchars
;
268 completion_tracker tracker_handle_completions
;
270 int quote_char
= '\0';
275 word
= completion_find_completion_word (tracker_handle_brkchars
,
278 /* Completers must be called twice. */
279 complete_line (tracker_handle_completions
, word
, arg
, strlen (arg
));
281 CATCH (ex
, RETURN_MASK_ALL
)
286 std::string
arg_prefix (arg
, word
- arg
);
288 completion_result result
289 = (tracker_handle_completions
.build_completion_result
290 (word
, word
- arg
, strlen (arg
)));
292 if (result
.number_matches
!= 0)
294 if (result
.number_matches
== 1)
295 printf_unfiltered ("%s%s\n", arg_prefix
.c_str (), result
.match_list
[0]);
298 result
.sort_match_list ();
300 for (size_t i
= 0; i
< result
.number_matches
; i
++)
302 printf_unfiltered ("%s%s",
304 result
.match_list
[i
+ 1]);
306 printf_unfiltered ("%c", quote_char
);
307 printf_unfiltered ("\n");
311 if (result
.number_matches
== max_completions
)
313 /* ARG_PREFIX and WORD are included in the output so that emacs
314 will include the message in the output. */
315 printf_unfiltered (_("%s%s %s\n"),
316 arg_prefix
.c_str (), word
,
317 get_max_completions_reached_message ());
323 is_complete_command (struct cmd_list_element
*c
)
325 return cmd_cfunc_eq (c
, complete_command
);
329 show_version (char *args
, int from_tty
)
331 print_gdb_version (gdb_stdout
);
332 printf_filtered ("\n");
336 show_configuration (char *args
, int from_tty
)
338 print_gdb_configuration (gdb_stdout
);
341 /* Handle the quit command. */
344 quit_command (char *args
, int from_tty
)
348 /* An optional expression may be used to cause gdb to terminate with
349 the value of that expression. */
352 struct value
*val
= parse_and_eval (args
);
354 exit_code
= (int) value_as_long (val
);
357 if (!quit_confirm ())
358 error (_("Not confirmed."));
360 query_if_trace_running (from_tty
);
362 quit_force (args
? &exit_code
: NULL
, from_tty
);
366 pwd_command (char *args
, int from_tty
)
369 error (_("The \"pwd\" command does not take an argument: %s"), args
);
370 if (! getcwd (gdb_dirbuf
, sizeof (gdb_dirbuf
)))
371 error (_("Error finding name of working directory: %s"),
372 safe_strerror (errno
));
374 if (strcmp (gdb_dirbuf
, current_directory
) != 0)
375 printf_unfiltered (_("Working directory %s\n (canonically %s).\n"),
376 current_directory
, gdb_dirbuf
);
378 printf_unfiltered (_("Working directory %s.\n"), current_directory
);
382 cd_command (char *dir
, int from_tty
)
385 /* Found something other than leading repetitions of "/..". */
388 struct cleanup
*cleanup
;
390 /* If the new directory is absolute, repeat is a no-op; if relative,
391 repeat might be useful but is more likely to be a mistake. */
394 dir
= tilde_expand (dir
!= NULL
? dir
: "~");
395 cleanup
= make_cleanup (xfree
, dir
);
398 perror_with_name (dir
);
400 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
401 /* There's too much mess with DOSish names like "d:", "d:.",
402 "d:./foo" etc. Instead of having lots of special #ifdef'ed code,
403 simply get the canonicalized name of the current directory. */
404 dir
= getcwd (gdb_dirbuf
, sizeof (gdb_dirbuf
));
408 if (IS_DIR_SEPARATOR (dir
[len
- 1]))
410 /* Remove the trailing slash unless this is a root directory
411 (including a drive letter on non-Unix systems). */
412 if (!(len
== 1) /* "/" */
413 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
414 && !(len
== 3 && dir
[1] == ':') /* "d:/" */
420 dir
= savestring (dir
, len
);
421 if (IS_ABSOLUTE_PATH (dir
))
422 current_directory
= dir
;
425 if (IS_DIR_SEPARATOR (current_directory
[strlen (current_directory
) - 1]))
426 current_directory
= concat (current_directory
, dir
, (char *)NULL
);
428 current_directory
= concat (current_directory
, SLASH_STRING
,
433 /* Now simplify any occurrences of `.' and `..' in the pathname. */
436 for (p
= current_directory
; *p
;)
438 if (IS_DIR_SEPARATOR (p
[0]) && p
[1] == '.'
439 && (p
[2] == 0 || IS_DIR_SEPARATOR (p
[2])))
440 memmove (p
, p
+ 2, strlen (p
+ 2) + 1);
441 else if (IS_DIR_SEPARATOR (p
[0]) && p
[1] == '.' && p
[2] == '.'
442 && (p
[3] == 0 || IS_DIR_SEPARATOR (p
[3])))
446 /* Search backwards for the directory just before the "/.."
447 and obliterate it and the "/..". */
450 while (q
!= current_directory
&& !IS_DIR_SEPARATOR (q
[-1]))
453 if (q
== current_directory
)
454 /* current_directory is
455 a relative pathname ("can't happen"--leave it alone). */
459 memmove (q
- 1, p
+ 3, strlen (p
+ 3) + 1);
464 /* We are dealing with leading repetitions of "/..", for
465 example "/../..", which is the Mach super-root. */
475 forget_cached_source_info ();
478 pwd_command ((char *) 0, 1);
480 do_cleanups (cleanup
);
483 /* Show the current value of the 'script-extension' option. */
486 show_script_ext_mode (struct ui_file
*file
, int from_tty
,
487 struct cmd_list_element
*c
, const char *value
)
489 fprintf_filtered (file
,
490 _("Script filename extension recognition is \"%s\".\n"),
494 /* Try to open SCRIPT_FILE.
495 If successful, the full path name is stored in *FULL_PATHP,
496 the stream is stored in *STREAMP, and return 1.
497 The caller is responsible for freeing *FULL_PATHP.
498 If not successful, return 0; errno is set for the last file
501 If SEARCH_PATH is non-zero, and the file isn't found in cwd,
502 search for it in the source search path. */
505 find_and_open_script (const char *script_file
, int search_path
,
506 FILE **streamp
, char **full_pathp
)
510 struct cleanup
*old_cleanups
;
511 int search_flags
= OPF_TRY_CWD_FIRST
| OPF_RETURN_REALPATH
;
513 file
= tilde_expand (script_file
);
514 old_cleanups
= make_cleanup (xfree
, file
);
517 search_flags
|= OPF_SEARCH_IN_PATH
;
519 /* Search for and open 'file' on the search path used for source
520 files. Put the full location in *FULL_PATHP. */
521 fd
= openp (source_path
, search_flags
,
522 file
, O_RDONLY
, full_pathp
);
526 int save_errno
= errno
;
527 do_cleanups (old_cleanups
);
532 do_cleanups (old_cleanups
);
534 *streamp
= fdopen (fd
, FOPEN_RT
);
535 if (*streamp
== NULL
)
537 int save_errno
= errno
;
549 /* Load script FILE, which has already been opened as STREAM.
550 FILE_TO_OPEN is the form of FILE to use if one needs to open the file.
551 This is provided as FILE may have been found via the source search path.
552 An important thing to note here is that FILE may be a symlink to a file
553 with a different or non-existing suffix, and thus one cannot infer the
554 extension language from FILE_TO_OPEN. */
557 source_script_from_stream (FILE *stream
, const char *file
,
558 const char *file_to_open
)
560 if (script_ext_mode
!= script_ext_off
)
562 const struct extension_language_defn
*extlang
563 = get_ext_lang_of_file (file
);
567 if (ext_lang_present_p (extlang
))
569 script_sourcer_func
*sourcer
570 = ext_lang_script_sourcer (extlang
);
572 gdb_assert (sourcer
!= NULL
);
573 sourcer (extlang
, stream
, file_to_open
);
576 else if (script_ext_mode
== script_ext_soft
)
578 /* Assume the file is a gdb script.
579 This is handled below. */
582 throw_ext_lang_unsupported (extlang
);
586 script_from_file (stream
, file
);
589 /* Worker to perform the "source" command.
591 If SEARCH_PATH is non-zero, and the file isn't found in cwd,
592 search for it in the source search path. */
595 source_script_with_search (const char *file
, int from_tty
, int search_path
)
599 struct cleanup
*old_cleanups
;
601 if (file
== NULL
|| *file
== 0)
602 error (_("source command requires file name of file to source."));
604 if (!find_and_open_script (file
, search_path
, &stream
, &full_path
))
606 /* The script wasn't found, or was otherwise inaccessible.
607 If the source command was invoked interactively, throw an
608 error. Otherwise (e.g. if it was invoked by a script),
609 just emit a warning, rather than cause an error. */
611 perror_with_name (file
);
614 perror_warning_with_name (file
);
619 old_cleanups
= make_cleanup (xfree
, full_path
);
620 make_cleanup_fclose (stream
);
621 /* The python support reopens the file, so we need to pass full_path here
622 in case the file was found on the search path. It's useful to do this
623 anyway so that error messages show the actual file used. But only do
624 this if we (may have) used search_path, as printing the full path in
625 errors for the non-search case can be more noise than signal. */
626 source_script_from_stream (stream
, file
, search_path
? full_path
: file
);
627 do_cleanups (old_cleanups
);
630 /* Wrapper around source_script_with_search to export it to main.c
631 for use in loading .gdbinit scripts. */
634 source_script (const char *file
, int from_tty
)
636 source_script_with_search (file
, from_tty
, 0);
639 /* Return the source_verbose global variable to its previous state
640 on exit from the source command, by whatever means. */
642 source_verbose_cleanup (void *old_value
)
644 source_verbose
= *(int *)old_value
;
649 source_command (char *args
, int from_tty
)
651 struct cleanup
*old_cleanups
;
653 int *old_source_verbose
= XNEW (int);
656 *old_source_verbose
= source_verbose
;
657 old_cleanups
= make_cleanup (source_verbose_cleanup
,
660 /* -v causes the source command to run in verbose mode.
661 -s causes the file to be searched in the source search path,
662 even if the file name contains a '/'.
663 We still have to be able to handle filenames with spaces in a
664 backward compatible way, so buildargv is not appropriate. */
668 while (args
[0] != '\0')
670 /* Make sure leading white space does not break the
672 args
= skip_spaces (args
);
677 if (args
[1] == 'v' && isspace (args
[2]))
681 /* Skip passed -v. */
684 else if (args
[1] == 's' && isspace (args
[2]))
688 /* Skip passed -s. */
695 file
= skip_spaces (args
);
698 source_script_with_search (file
, from_tty
, search_path
);
700 do_cleanups (old_cleanups
);
705 echo_command (char *text
, int from_tty
)
707 const char *p
= text
;
711 while ((c
= *p
++) != '\0')
715 /* \ at end of argument is used after spaces
716 so they won't be lost. */
720 c
= parse_escape (get_current_arch (), &p
);
722 printf_filtered ("%c", c
);
725 printf_filtered ("%c", c
);
728 /* Force this output to appear now. */
730 gdb_flush (gdb_stdout
);
734 shell_escape (const char *arg
, int from_tty
)
736 #if defined(CANT_FORK) || \
737 (!defined(HAVE_WORKING_VFORK) && !defined(HAVE_WORKING_FORK))
738 /* If ARG is NULL, they want an inferior shell, but `system' just
739 reports if the shell is available when passed a NULL arg. */
740 int rc
= system (arg
? arg
: "");
743 arg
= "inferior shell";
747 fprintf_unfiltered (gdb_stderr
, "Cannot execute %s: %s\n", arg
,
748 safe_strerror (errno
));
749 gdb_flush (gdb_stderr
);
753 fprintf_unfiltered (gdb_stderr
, "%s exited with status %d\n", arg
, rc
);
754 gdb_flush (gdb_stderr
);
757 /* Make sure to return to the directory GDB thinks it is, in case
758 the shell command we just ran changed it. */
759 chdir (current_directory
);
761 #else /* Can fork. */
764 if ((pid
= vfork ()) == 0)
766 const char *p
, *user_shell
;
770 if ((user_shell
= (char *) getenv ("SHELL")) == NULL
)
771 user_shell
= "/bin/sh";
773 /* Get the name of the shell for arg0. */
774 p
= lbasename (user_shell
);
777 execl (user_shell
, p
, (char *) 0);
779 execl (user_shell
, p
, "-c", arg
, (char *) 0);
781 fprintf_unfiltered (gdb_stderr
, "Cannot execute %s: %s\n", user_shell
,
782 safe_strerror (errno
));
783 gdb_flush (gdb_stderr
);
788 waitpid (pid
, &status
, 0);
790 error (_("Fork failed"));
791 #endif /* Can fork. */
794 /* Implementation of the "shell" command. */
797 shell_command (char *arg
, int from_tty
)
799 shell_escape (arg
, from_tty
);
803 edit_command (char *arg
, int from_tty
)
805 struct symtabs_and_lines sals
;
806 struct symtab_and_line sal
;
812 /* Pull in the current default source line if necessary. */
815 set_default_source_symtab_and_line ();
816 sal
= get_current_source_symtab_and_line ();
819 /* Bare "edit" edits file with present line. */
824 error (_("No default source file yet."));
825 sal
.line
+= get_lines_to_list () / 2;
831 /* Now should only be one argument -- decode it in SAL. */
833 event_location_up location
= string_to_event_location (&arg1
,
835 sals
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
846 ambiguous_line_spec (&sals
);
855 error (_("Junk at end of line specification."));
857 /* If line was specified by address, first print exactly which
858 line, and which file. In this case, sal.symtab == 0 means
859 address is outside of all known source files, not that user
860 failed to give a filename. */
863 struct gdbarch
*gdbarch
;
866 error (_("No source file for address %s."),
867 paddress (get_current_arch (), sal
.pc
));
869 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (sal
.symtab
));
870 sym
= find_pc_function (sal
.pc
);
872 printf_filtered ("%s is in %s (%s:%d).\n",
873 paddress (gdbarch
, sal
.pc
),
874 SYMBOL_PRINT_NAME (sym
),
875 symtab_to_filename_for_display (sal
.symtab
),
878 printf_filtered ("%s is at %s:%d.\n",
879 paddress (gdbarch
, sal
.pc
),
880 symtab_to_filename_for_display (sal
.symtab
),
884 /* If what was given does not imply a symtab, it must be an
885 undebuggable symbol which means no source code. */
888 error (_("No line number known for %s."), arg
);
891 if ((editor
= (char *) getenv ("EDITOR")) == NULL
)
894 fn
= symtab_to_fullname (sal
.symtab
);
896 /* Quote the file name, in case it has whitespace or other special
898 p
= xstrprintf ("%s +%d \"%s\"", editor
, sal
.line
, fn
);
899 shell_escape (p
, from_tty
);
904 list_command (char *arg
, int from_tty
)
906 struct symtabs_and_lines sals
, sals_end
;
907 struct symtab_and_line sal
= { 0 };
908 struct symtab_and_line sal_end
= { 0 };
909 struct symtab_and_line cursal
= { 0 };
918 /* Pull in the current default source line if necessary. */
919 if (arg
== NULL
|| ((arg
[0] == '+' || arg
[0] == '-') && arg
[1] == '\0'))
921 set_default_source_symtab_and_line ();
922 cursal
= get_current_source_symtab_and_line ();
924 /* If this is the first "list" since we've set the current
925 source line, center the listing around that line. */
926 if (get_first_line_listed () == 0)
930 first
= std::max (cursal
.line
- get_lines_to_list () / 2, 1);
932 /* A small special case --- if listing backwards, and we
933 should list only one line, list the preceding line,
934 instead of the exact line we've just shown after e.g.,
935 stopping for a breakpoint. */
936 if (arg
!= NULL
&& arg
[0] == '-'
937 && get_lines_to_list () == 1 && first
> 1)
940 print_source_lines (cursal
.symtab
, first
,
941 first
+ get_lines_to_list (), 0);
944 /* "l" or "l +" lists next ten lines. */
945 else if (arg
== NULL
|| arg
[0] == '+')
946 print_source_lines (cursal
.symtab
, cursal
.line
,
947 cursal
.line
+ get_lines_to_list (), 0);
949 /* "l -" lists previous ten lines, the ones before the ten just
951 else if (arg
[0] == '-')
953 if (get_first_line_listed () == 1)
954 error (_("Already at the start of %s."),
955 symtab_to_filename_for_display (cursal
.symtab
));
956 print_source_lines (cursal
.symtab
,
957 std::max (get_first_line_listed ()
958 - get_lines_to_list (), 1),
959 get_first_line_listed (), 0);
965 /* Now if there is only one argument, decode it in SAL
967 If there are two arguments, decode them in SAL and SAL_END
968 and clear NO_END; however, if one of the arguments is blank,
969 set DUMMY_BEG or DUMMY_END to record that fact. */
971 if (!have_full_symbols () && !have_partial_symbols ())
972 error (_("No symbol table is loaded. Use the \"file\" command."));
979 event_location_up location
= string_to_event_location (&arg1
,
981 sals
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
992 ambiguous_line_spec (&sals
);
1001 /* Record whether the BEG arg is all digits. */
1003 for (p
= arg
; p
!= arg1
&& *p
>= '0' && *p
<= '9'; p
++);
1004 linenum_beg
= (p
== arg1
);
1006 while (*arg1
== ' ' || *arg1
== '\t')
1012 while (*arg1
== ' ' || *arg1
== '\t')
1018 event_location_up location
1019 = string_to_event_location (&arg1
, current_language
);
1021 sals_end
= decode_line_1 (location
.get (),
1022 DECODE_LINE_LIST_MODE
, NULL
, NULL
, 0);
1024 sals_end
= decode_line_1 (location
.get (), DECODE_LINE_LIST_MODE
,
1025 NULL
, sal
.symtab
, sal
.line
);
1027 filter_sals (&sals_end
);
1028 if (sals_end
.nelts
== 0)
1030 if (sals_end
.nelts
> 1)
1032 ambiguous_line_spec (&sals_end
);
1033 xfree (sals_end
.sals
);
1036 sal_end
= sals_end
.sals
[0];
1037 xfree (sals_end
.sals
);
1042 error (_("Junk at end of line specification."));
1044 if (!no_end
&& !dummy_beg
&& !dummy_end
1045 && sal
.symtab
!= sal_end
.symtab
)
1046 error (_("Specified start and end are in different files."));
1047 if (dummy_beg
&& dummy_end
)
1048 error (_("Two empty args do not say what lines to list."));
1050 /* If line was specified by address,
1051 first print exactly which line, and which file.
1053 In this case, sal.symtab == 0 means address is outside of all
1054 known source files, not that user failed to give a filename. */
1057 struct gdbarch
*gdbarch
;
1059 if (sal
.symtab
== 0)
1060 error (_("No source file for address %s."),
1061 paddress (get_current_arch (), sal
.pc
));
1063 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (sal
.symtab
));
1064 sym
= find_pc_function (sal
.pc
);
1066 printf_filtered ("%s is in %s (%s:%d).\n",
1067 paddress (gdbarch
, sal
.pc
),
1068 SYMBOL_PRINT_NAME (sym
),
1069 symtab_to_filename_for_display (sal
.symtab
), sal
.line
);
1071 printf_filtered ("%s is at %s:%d.\n",
1072 paddress (gdbarch
, sal
.pc
),
1073 symtab_to_filename_for_display (sal
.symtab
), sal
.line
);
1076 /* If line was not specified by just a line number, and it does not
1077 imply a symtab, it must be an undebuggable symbol which means no
1080 if (!linenum_beg
&& sal
.symtab
== 0)
1081 error (_("No line number known for %s."), arg
);
1083 /* If this command is repeated with RET,
1084 turn it into the no-arg variant. */
1089 if (dummy_beg
&& sal_end
.symtab
== 0)
1090 error (_("No default source file yet. Do \"help list\"."));
1092 print_source_lines (sal_end
.symtab
,
1093 std::max (sal_end
.line
- (get_lines_to_list () - 1), 1),
1094 sal_end
.line
+ 1, 0);
1095 else if (sal
.symtab
== 0)
1096 error (_("No default source file yet. Do \"help list\"."));
1099 int first_line
= sal
.line
- get_lines_to_list () / 2;
1101 if (first_line
< 1) first_line
= 1;
1103 print_source_lines (sal
.symtab
,
1105 first_line
+ get_lines_to_list (),
1109 print_source_lines (sal
.symtab
, sal
.line
,
1111 ? sal
.line
+ get_lines_to_list ()
1112 : sal_end
.line
+ 1),
1116 /* Subroutine of disassemble_command to simplify it.
1117 Perform the disassembly.
1118 NAME is the name of the function if known, or NULL.
1119 [LOW,HIGH) are the range of addresses to disassemble.
1120 MIXED is non-zero to print source with the assembler. */
1123 print_disassembly (struct gdbarch
*gdbarch
, const char *name
,
1124 CORE_ADDR low
, CORE_ADDR high
, int flags
)
1127 if (!tui_is_window_visible (DISASSEM_WIN
))
1130 printf_filtered ("Dump of assembler code ");
1132 printf_filtered ("for function %s:\n", name
);
1134 printf_filtered ("from %s to %s:\n",
1135 paddress (gdbarch
, low
), paddress (gdbarch
, high
));
1137 /* Dump the specified range. */
1138 gdb_disassembly (gdbarch
, current_uiout
, flags
, -1, low
, high
);
1140 printf_filtered ("End of assembler dump.\n");
1141 gdb_flush (gdb_stdout
);
1146 tui_show_assembly (gdbarch
, low
);
1151 /* Subroutine of disassemble_command to simplify it.
1152 Print a disassembly of the current function according to FLAGS. */
1155 disassemble_current_function (int flags
)
1157 struct frame_info
*frame
;
1158 struct gdbarch
*gdbarch
;
1159 CORE_ADDR low
, high
, pc
;
1162 frame
= get_selected_frame (_("No frame selected."));
1163 gdbarch
= get_frame_arch (frame
);
1164 pc
= get_frame_address_in_block (frame
);
1165 if (find_pc_partial_function (pc
, &name
, &low
, &high
) == 0)
1166 error (_("No function contains program counter for selected frame."));
1168 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1171 /* FIXME: cagney/2004-02-07: This should be an observer. */
1172 low
= tui_get_low_disassembly_address (gdbarch
, low
, pc
);
1174 low
+= gdbarch_deprecated_function_start_offset (gdbarch
);
1176 print_disassembly (gdbarch
, name
, low
, high
, flags
);
1179 /* Dump a specified section of assembly code.
1183 - dump the assembly code for the function of the current pc
1184 disassemble [/mrs] addr
1185 - dump the assembly code for the function at ADDR
1186 disassemble [/mrs] low,high
1187 disassemble [/mrs] low,+length
1188 - dump the assembly code in the range [LOW,HIGH), or [LOW,LOW+length)
1190 A /m modifier will include source code with the assembly in a
1191 "source centric" view. This view lists only the file of the first insn,
1192 even if other source files are involved (e.g., inlined functions), and
1193 the output is in source order, even with optimized code. This view is
1194 considered deprecated as it hasn't been useful in practice.
1196 A /r modifier will include raw instructions in hex with the assembly.
1198 A /s modifier will include source code with the assembly, like /m, with
1199 two important differences:
1200 1) The output is still in pc address order.
1201 2) File names and contents for all relevant source files are displayed. */
1204 disassemble_command (char *arg
, int from_tty
)
1206 struct gdbarch
*gdbarch
= get_current_arch ();
1207 CORE_ADDR low
, high
;
1222 error (_("Missing modifier."));
1224 while (*p
&& ! isspace (*p
))
1229 flags
|= DISASSEMBLY_SOURCE_DEPRECATED
;
1232 flags
|= DISASSEMBLY_RAW_INSN
;
1235 flags
|= DISASSEMBLY_SOURCE
;
1238 error (_("Invalid disassembly modifier."));
1242 p
= skip_spaces_const (p
);
1245 if ((flags
& (DISASSEMBLY_SOURCE_DEPRECATED
| DISASSEMBLY_SOURCE
))
1246 == (DISASSEMBLY_SOURCE_DEPRECATED
| DISASSEMBLY_SOURCE
))
1247 error (_("Cannot specify both /m and /s."));
1251 flags
|= DISASSEMBLY_OMIT_FNAME
;
1252 disassemble_current_function (flags
);
1256 pc
= value_as_address (parse_to_comma_and_eval (&p
));
1262 if (find_pc_partial_function (pc
, &name
, &low
, &high
) == 0)
1263 error (_("No function contains specified address."));
1265 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
1268 /* FIXME: cagney/2004-02-07: This should be an observer. */
1269 low
= tui_get_low_disassembly_address (gdbarch
, low
, pc
);
1271 low
+= gdbarch_deprecated_function_start_offset (gdbarch
);
1272 flags
|= DISASSEMBLY_OMIT_FNAME
;
1276 /* Two arguments. */
1279 p
= skip_spaces_const (p
);
1285 high
= parse_and_eval_address (p
);
1290 print_disassembly (gdbarch
, name
, low
, high
, flags
);
1294 make_command (char *arg
, int from_tty
)
1297 shell_escape ("make", from_tty
);
1300 std::string cmd
= std::string ("make ") + arg
;
1302 shell_escape (cmd
.c_str (), from_tty
);
1307 show_user (char *args
, int from_tty
)
1309 struct cmd_list_element
*c
;
1310 extern struct cmd_list_element
*cmdlist
;
1314 const char *comname
= args
;
1316 c
= lookup_cmd (&comname
, cmdlist
, "", 0, 1);
1317 if (!cli_user_command_p (c
))
1318 error (_("Not a user command."));
1319 show_user_1 (c
, "", args
, gdb_stdout
);
1323 for (c
= cmdlist
; c
; c
= c
->next
)
1325 if (cli_user_command_p (c
) || c
->prefixlist
!= NULL
)
1326 show_user_1 (c
, "", c
->name
, gdb_stdout
);
1331 /* Search through names of commands and documentations for a certain
1332 regular expression. */
1335 apropos_command (char *searchstr
, int from_tty
)
1337 if (searchstr
== NULL
)
1338 error (_("REGEXP string is empty"));
1340 compiled_regex
pattern (searchstr
, REG_ICASE
,
1341 _("Error in regular expression"));
1343 apropos_cmd (gdb_stdout
, cmdlist
, pattern
, "");
1346 /* Subroutine of alias_command to simplify it.
1347 Return the first N elements of ARGV flattened back to a string
1348 with a space separating each element.
1349 ARGV may not be NULL.
1350 This does not take care of quoting elements in case they contain spaces
1354 argv_to_string (char **argv
, int n
)
1359 gdb_assert (argv
!= NULL
);
1360 gdb_assert (n
>= 0 && n
<= countargv (argv
));
1362 for (i
= 0; i
< n
; ++i
)
1372 /* Subroutine of alias_command to simplify it.
1373 Return TRUE if COMMAND exists, unambiguously. Otherwise FALSE. */
1376 valid_command_p (const char *command
)
1378 struct cmd_list_element
*c
;
1380 c
= lookup_cmd_1 (& command
, cmdlist
, NULL
, 1);
1382 if (c
== NULL
|| c
== (struct cmd_list_element
*) -1)
1385 /* This is the slightly tricky part.
1386 lookup_cmd_1 will return a pointer to the last part of COMMAND
1387 to match, leaving COMMAND pointing at the remainder. */
1388 while (*command
== ' ' || *command
== '\t')
1390 return *command
== '\0';
1393 /* Called when "alias" was incorrectly used. */
1396 alias_usage_error (void)
1398 error (_("Usage: alias [-a] [--] ALIAS = COMMAND"));
1401 /* Make an alias of an existing command. */
1404 alias_command (char *args
, int from_tty
)
1406 int i
, alias_argc
, command_argc
;
1407 int abbrev_flag
= 0;
1408 char *args2
, *equals
;
1409 const char *alias
, *command
;
1410 char **alias_argv
, **command_argv
;
1411 struct cleanup
*cleanup
;
1413 if (args
== NULL
|| strchr (args
, '=') == NULL
)
1414 alias_usage_error ();
1416 args2
= xstrdup (args
);
1417 cleanup
= make_cleanup (xfree
, args2
);
1418 equals
= strchr (args2
, '=');
1420 alias_argv
= gdb_buildargv (args2
);
1421 make_cleanup_freeargv (alias_argv
);
1422 command_argv
= gdb_buildargv (equals
+ 1);
1423 make_cleanup_freeargv (command_argv
);
1425 for (i
= 0; alias_argv
[i
] != NULL
; )
1427 if (strcmp (alias_argv
[i
], "-a") == 0)
1432 else if (strcmp (alias_argv
[i
], "--") == 0)
1441 if (alias_argv
[0] == NULL
|| command_argv
[0] == NULL
1442 || *alias_argv
[0] == '\0' || *command_argv
[0] == '\0')
1443 alias_usage_error ();
1445 for (i
= 0; alias_argv
[i
] != NULL
; ++i
)
1447 if (! valid_user_defined_cmd_name_p (alias_argv
[i
]))
1450 error (_("Invalid command name: %s"), alias_argv
[i
]);
1452 error (_("Invalid command element name: %s"), alias_argv
[i
]);
1456 alias_argc
= countargv (alias_argv
);
1457 command_argc
= countargv (command_argv
);
1459 /* COMMAND must exist.
1460 Reconstruct the command to remove any extraneous spaces,
1461 for better error messages. */
1462 std::string
command_string (argv_to_string (command_argv
, command_argc
));
1463 command
= command_string
.c_str ();
1464 if (! valid_command_p (command
))
1465 error (_("Invalid command to alias to: %s"), command
);
1467 /* ALIAS must not exist. */
1468 std::string
alias_string (argv_to_string (alias_argv
, alias_argc
));
1469 alias
= alias_string
.c_str ();
1470 if (valid_command_p (alias
))
1471 error (_("Alias already exists: %s"), alias
);
1473 /* If ALIAS is one word, it is an alias for the entire COMMAND.
1474 Example: alias spe = set print elements
1476 Otherwise ALIAS and COMMAND must have the same number of words,
1477 and every word except the last must match; and the last word of
1478 ALIAS is made an alias of the last word of COMMAND.
1479 Example: alias set print elms = set pr elem
1480 Note that unambiguous abbreviations are allowed. */
1482 if (alias_argc
== 1)
1484 /* add_cmd requires *we* allocate space for name, hence the xstrdup. */
1485 add_com_alias (xstrdup (alias_argv
[0]), command
, class_alias
,
1490 const char *alias_prefix
, *command_prefix
;
1491 struct cmd_list_element
*c_alias
, *c_command
;
1493 if (alias_argc
!= command_argc
)
1494 error (_("Mismatched command length between ALIAS and COMMAND."));
1496 /* Create copies of ALIAS and COMMAND without the last word,
1497 and use that to verify the leading elements match. */
1498 std::string
alias_prefix_string (argv_to_string (alias_argv
,
1500 std::string
command_prefix_string (argv_to_string (alias_argv
,
1502 alias_prefix
= alias_prefix_string
.c_str ();
1503 command_prefix
= command_prefix_string
.c_str ();
1505 c_command
= lookup_cmd_1 (& command_prefix
, cmdlist
, NULL
, 1);
1506 /* We've already tried to look up COMMAND. */
1507 gdb_assert (c_command
!= NULL
1508 && c_command
!= (struct cmd_list_element
*) -1);
1509 gdb_assert (c_command
->prefixlist
!= NULL
);
1510 c_alias
= lookup_cmd_1 (& alias_prefix
, cmdlist
, NULL
, 1);
1511 if (c_alias
!= c_command
)
1512 error (_("ALIAS and COMMAND prefixes do not match."));
1514 /* add_cmd requires *we* allocate space for name, hence the xstrdup. */
1515 add_alias_cmd (xstrdup (alias_argv
[alias_argc
- 1]),
1516 command_argv
[command_argc
- 1],
1517 class_alias
, abbrev_flag
, c_command
->prefixlist
);
1520 do_cleanups (cleanup
);
1523 /* Print a list of files and line numbers which a user may choose from
1524 in order to list a function which was specified ambiguously (as
1525 with `list classname::overloadedfuncname', for example). The
1526 vector in SALS provides the filenames and line numbers. */
1529 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1533 for (i
= 0; i
< sals
->nelts
; ++i
)
1534 printf_filtered (_("file: \"%s\", line number: %d\n"),
1535 symtab_to_filename_for_display (sals
->sals
[i
].symtab
),
1536 sals
->sals
[i
].line
);
1539 /* Sort function for filter_sals. */
1542 compare_symtabs (const void *a
, const void *b
)
1544 const struct symtab_and_line
*sala
= (const struct symtab_and_line
*) a
;
1545 const struct symtab_and_line
*salb
= (const struct symtab_and_line
*) b
;
1546 const char *dira
= SYMTAB_DIRNAME (sala
->symtab
);
1547 const char *dirb
= SYMTAB_DIRNAME (salb
->symtab
);
1555 else if (dirb
== NULL
)
1562 r
= filename_cmp (dira
, dirb
);
1567 r
= filename_cmp (sala
->symtab
->filename
, salb
->symtab
->filename
);
1571 if (sala
->line
< salb
->line
)
1573 return sala
->line
== salb
->line
? 0 : 1;
1576 /* Remove any SALs that do not match the current program space, or
1577 which appear to be "file:line" duplicates. */
1580 filter_sals (struct symtabs_and_lines
*sals
)
1585 for (i
= 0; i
< sals
->nelts
; ++i
)
1587 if (sals
->sals
[i
].pspace
== current_program_space
1588 && sals
->sals
[i
].symtab
!= NULL
)
1590 sals
->sals
[out
] = sals
->sals
[i
];
1596 qsort (sals
->sals
, sals
->nelts
, sizeof (struct symtab_and_line
),
1601 for (i
= 1; i
< sals
->nelts
; ++i
)
1603 if (compare_symtabs (&sals
->sals
[prev
], &sals
->sals
[i
]))
1605 /* Symtabs differ. */
1606 sals
->sals
[out
] = sals
->sals
[i
];
1612 if (sals
->nelts
== 0)
1622 set_debug (char *arg
, int from_tty
)
1624 printf_unfiltered (_("\"set debug\" must be followed by "
1625 "the name of a debug subcommand.\n"));
1626 help_list (setdebuglist
, "set debug ", all_commands
, gdb_stdout
);
1630 show_debug (char *args
, int from_tty
)
1632 cmd_show_list (showdebuglist
, from_tty
, "");
1636 init_cmd_lists (void)
1638 max_user_call_depth
= 1024;
1642 show_info_verbose (struct ui_file
*file
, int from_tty
,
1643 struct cmd_list_element
*c
,
1647 fprintf_filtered (file
,
1648 _("Verbose printing of informational messages is %s.\n"),
1651 fprintf_filtered (file
, _("Verbosity is %s.\n"), value
);
1655 show_history_expansion_p (struct ui_file
*file
, int from_tty
,
1656 struct cmd_list_element
*c
, const char *value
)
1658 fprintf_filtered (file
, _("History expansion on command input is %s.\n"),
1663 show_remote_debug (struct ui_file
*file
, int from_tty
,
1664 struct cmd_list_element
*c
, const char *value
)
1666 fprintf_filtered (file
, _("Debugging of remote protocol is %s.\n"),
1671 show_remote_timeout (struct ui_file
*file
, int from_tty
,
1672 struct cmd_list_element
*c
, const char *value
)
1674 fprintf_filtered (file
,
1675 _("Timeout limit to wait for target to respond is %s.\n"),
1680 show_max_user_call_depth (struct ui_file
*file
, int from_tty
,
1681 struct cmd_list_element
*c
, const char *value
)
1683 fprintf_filtered (file
,
1684 _("The max call depth for user-defined commands is %s.\n"),
1690 initialize_file_ftype _initialize_cli_cmds
;
1693 _initialize_cli_cmds (void)
1695 struct cmd_list_element
*c
;
1697 /* Define the classes of commands.
1698 They will appear in the help list in alphabetical order. */
1700 add_cmd ("internals", class_maintenance
, NULL
, _("\
1701 Maintenance commands.\n\
1702 Some gdb commands are provided just for use by gdb maintainers.\n\
1703 These commands are subject to frequent change, and may not be as\n\
1704 well documented as user commands."),
1706 add_cmd ("obscure", class_obscure
, NULL
, _("Obscure features."), &cmdlist
);
1707 add_cmd ("aliases", class_alias
, NULL
,
1708 _("Aliases of other commands."), &cmdlist
);
1709 add_cmd ("user-defined", class_user
, NULL
, _("\
1710 User-defined commands.\n\
1711 The commands in this class are those defined by the user.\n\
1712 Use the \"define\" command to define a command."), &cmdlist
);
1713 add_cmd ("support", class_support
, NULL
, _("Support facilities."), &cmdlist
);
1715 add_cmd ("status", class_info
, NULL
, _("Status inquiries."), &cmdlist
);
1716 add_cmd ("files", class_files
, NULL
, _("Specifying and examining files."),
1718 add_cmd ("breakpoints", class_breakpoint
, NULL
,
1719 _("Making program stop at certain points."), &cmdlist
);
1720 add_cmd ("data", class_vars
, NULL
, _("Examining data."), &cmdlist
);
1721 add_cmd ("stack", class_stack
, NULL
, _("\
1722 Examining the stack.\n\
1723 The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\
1724 counting from zero for the innermost (currently executing) frame.\n\n\
1725 At any time gdb identifies one frame as the \"selected\" frame.\n\
1726 Variable lookups are done with respect to the selected frame.\n\
1727 When the program being debugged stops, gdb selects the innermost frame.\n\
1728 The commands below can be used to select other frames by number or address."),
1730 add_cmd ("running", class_run
, NULL
, _("Running the program."), &cmdlist
);
1732 /* Define general commands. */
1734 add_com ("pwd", class_files
, pwd_command
, _("\
1735 Print working directory. This is used for your program as well."));
1737 c
= add_cmd ("cd", class_files
, cd_command
, _("\
1738 Set working directory to DIR for debugger and program being debugged.\n\
1739 The change does not take effect for the program being debugged\n\
1740 until the next time it is started."), &cmdlist
);
1741 set_cmd_completer (c
, filename_completer
);
1743 add_com ("echo", class_support
, echo_command
, _("\
1744 Print a constant string. Give string as argument.\n\
1745 C escape sequences may be used in the argument.\n\
1746 No newline is added at the end of the argument;\n\
1747 use \"\\n\" if you want a newline to be printed.\n\
1748 Since leading and trailing whitespace are ignored in command arguments,\n\
1749 if you want to print some you must use \"\\\" before leading whitespace\n\
1750 to be printed or after trailing whitespace."));
1752 add_setshow_enum_cmd ("script-extension", class_support
,
1753 script_ext_enums
, &script_ext_mode
, _("\
1754 Set mode for script filename extension recognition."), _("\
1755 Show mode for script filename extension recognition."), _("\
1756 off == no filename extension recognition (all sourced files are GDB scripts)\n\
1757 soft == evaluate script according to filename extension, fallback to GDB script"
1759 strict == evaluate script according to filename extension, error if not supported"
1762 show_script_ext_mode
,
1763 &setlist
, &showlist
);
1765 add_com ("quit", class_support
, quit_command
, _("\
1767 Usage: quit [EXPR]\n\
1768 The optional expression EXPR, if present, is evaluated and the result\n\
1769 used as GDB's exit code. The default is zero."));
1770 c
= add_com ("help", class_support
, help_command
,
1771 _("Print list of commands."));
1772 set_cmd_completer (c
, command_completer
);
1773 add_com_alias ("q", "quit", class_support
, 1);
1774 add_com_alias ("h", "help", class_support
, 1);
1776 add_setshow_boolean_cmd ("verbose", class_support
, &info_verbose
, _("\
1777 Set verbosity."), _("\
1778 Show verbosity."), NULL
,
1781 &setlist
, &showlist
);
1783 add_prefix_cmd ("history", class_support
, set_history
,
1784 _("Generic command for setting command history parameters."),
1785 &sethistlist
, "set history ", 0, &setlist
);
1786 add_prefix_cmd ("history", class_support
, show_history
,
1787 _("Generic command for showing command history parameters."),
1788 &showhistlist
, "show history ", 0, &showlist
);
1790 add_setshow_boolean_cmd ("expansion", no_class
, &history_expansion_p
, _("\
1791 Set history expansion on command input."), _("\
1792 Show history expansion on command input."), _("\
1793 Without an argument, history expansion is enabled."),
1795 show_history_expansion_p
,
1796 &sethistlist
, &showhistlist
);
1798 add_prefix_cmd ("info", class_info
, info_command
, _("\
1799 Generic command for showing things about the program being debugged."),
1800 &infolist
, "info ", 0, &cmdlist
);
1801 add_com_alias ("i", "info", class_info
, 1);
1802 add_com_alias ("inf", "info", class_info
, 1);
1804 add_com ("complete", class_obscure
, complete_command
,
1805 _("List the completions for the rest of the line as a command."));
1807 add_prefix_cmd ("show", class_info
, show_command
, _("\
1808 Generic command for showing things about the debugger."),
1809 &showlist
, "show ", 0, &cmdlist
);
1810 /* Another way to get at the same thing. */
1811 add_info ("set", show_command
, _("Show all GDB settings."));
1813 add_cmd ("commands", no_set_class
, show_commands
, _("\
1814 Show the history of commands you typed.\n\
1815 You can supply a command number to start with, or a `+' to start after\n\
1816 the previous command number shown."),
1819 add_cmd ("version", no_set_class
, show_version
,
1820 _("Show what version of GDB this is."), &showlist
);
1822 add_cmd ("configuration", no_set_class
, show_configuration
,
1823 _("Show how GDB was configured at build time."), &showlist
);
1825 add_setshow_zinteger_cmd ("remote", no_class
, &remote_debug
, _("\
1826 Set debugging of remote protocol."), _("\
1827 Show debugging of remote protocol."), _("\
1828 When enabled, each packet sent or received with the remote target\n\
1832 &setdebuglist
, &showdebuglist
);
1834 add_setshow_zuinteger_unlimited_cmd ("remotetimeout", no_class
,
1835 &remote_timeout
, _("\
1836 Set timeout limit to wait for target to respond."), _("\
1837 Show timeout limit to wait for target to respond."), _("\
1838 This value is used to set the time limit for gdb to wait for a response\n\
1841 show_remote_timeout
,
1842 &setlist
, &showlist
);
1844 add_prefix_cmd ("debug", no_class
, set_debug
,
1845 _("Generic command for setting gdb debugging flags"),
1846 &setdebuglist
, "set debug ", 0, &setlist
);
1848 add_prefix_cmd ("debug", no_class
, show_debug
,
1849 _("Generic command for showing gdb debugging flags"),
1850 &showdebuglist
, "show debug ", 0, &showlist
);
1852 c
= add_com ("shell", class_support
, shell_command
, _("\
1853 Execute the rest of the line as a shell command.\n\
1854 With no arguments, run an inferior shell."));
1855 set_cmd_completer (c
, filename_completer
);
1857 c
= add_com ("edit", class_files
, edit_command
, _("\
1858 Edit specified file or function.\n\
1859 With no argument, edits file containing most recent line listed.\n\
1860 Editing targets can be specified in these ways:\n\
1861 FILE:LINENUM, to edit at that line in that file,\n\
1862 FUNCTION, to edit at the beginning of that function,\n\
1863 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1864 *ADDRESS, to edit at the line containing that address.\n\
1865 Uses EDITOR environment variable contents as editor (or ex as default)."));
1867 c
->completer
= location_completer
;
1869 add_com ("list", class_files
, list_command
, _("\
1870 List specified function or line.\n\
1871 With no argument, lists ten more lines after or around previous listing.\n\
1872 \"list -\" lists the ten lines before a previous ten-line listing.\n\
1873 One argument specifies a line, and ten lines are listed around that line.\n\
1874 Two arguments with comma between specify starting and ending lines to list.\n\
1875 Lines can be specified in these ways:\n\
1876 LINENUM, to list around that line in current file,\n\
1877 FILE:LINENUM, to list around that line in that file,\n\
1878 FUNCTION, to list around beginning of that function,\n\
1879 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1880 *ADDRESS, to list around the line containing that address.\n\
1881 With two args, if one is empty, it stands for ten lines away from\n\
1884 By default, when a single location is given, display ten lines.\n\
1885 This can be changed using \"set listsize\", and the current value\n\
1886 can be shown using \"show listsize\"."));
1888 add_com_alias ("l", "list", class_files
, 1);
1891 add_com_alias ("file", "list", class_files
, 1);
1893 c
= add_com ("disassemble", class_vars
, disassemble_command
, _("\
1894 Disassemble a specified section of memory.\n\
1895 Default is the function surrounding the pc of the selected frame.\n\
1897 With a /m modifier, source lines are included (if available).\n\
1898 This view is \"source centric\": the output is in source line order,\n\
1899 regardless of any optimization that is present. Only the main source file\n\
1900 is displayed, not those of, e.g., any inlined functions.\n\
1901 This modifier hasn't proved useful in practice and is deprecated\n\
1904 With a /s modifier, source lines are included (if available).\n\
1905 This differs from /m in two important respects:\n\
1906 - the output is still in pc address order, and\n\
1907 - file names and contents for all relevant source files are displayed.\n\
1909 With a /r modifier, raw instructions in hex are included.\n\
1911 With a single argument, the function surrounding that address is dumped.\n\
1912 Two arguments (separated by a comma) are taken as a range of memory to dump,\n\
1913 in the form of \"start,end\", or \"start,+length\".\n\
1915 Note that the address is interpreted as an expression, not as a location\n\
1916 like in the \"break\" command.\n\
1917 So, for example, if you want to disassemble function bar in file foo.c\n\
1918 you must type \"disassemble 'foo.c'::bar\" and not \"disassemble foo.c:bar\"."));
1919 set_cmd_completer (c
, location_completer
);
1921 add_com_alias ("!", "shell", class_support
, 0);
1923 c
= add_com ("make", class_support
, make_command
, _("\
1924 Run the ``make'' program using the rest of the line as arguments."));
1925 set_cmd_completer (c
, filename_completer
);
1926 add_cmd ("user", no_class
, show_user
, _("\
1927 Show definitions of non-python/scheme user defined commands.\n\
1928 Argument is the name of the user defined command.\n\
1929 With no argument, show definitions of all user defined commands."), &showlist
);
1930 add_com ("apropos", class_support
, apropos_command
,
1931 _("Search for commands matching a REGEXP"));
1933 add_setshow_uinteger_cmd ("max-user-call-depth", no_class
,
1934 &max_user_call_depth
, _("\
1935 Set the max call depth for non-python/scheme user-defined commands."), _("\
1936 Show the max call depth for non-python/scheme user-defined commands."), NULL
,
1938 show_max_user_call_depth
,
1939 &setlist
, &showlist
);
1941 add_setshow_boolean_cmd ("trace-commands", no_class
, &trace_commands
, _("\
1942 Set tracing of GDB CLI commands."), _("\
1943 Show state of GDB CLI command tracing."), _("\
1944 When 'on', each command is displayed as it is executed."),
1947 &setlist
, &showlist
);
1949 c
= add_com ("alias", class_support
, alias_command
, _("\
1950 Define a new command that is an alias of an existing command.\n\
1951 Usage: alias [-a] [--] ALIAS = COMMAND\n\
1952 ALIAS is the name of the alias command to create.\n\
1953 COMMAND is the command being aliased to.\n\
1954 If \"-a\" is specified, the command is an abbreviation,\n\
1955 and will not appear in help command list output.\n\
1958 Make \"spe\" an alias of \"set print elements\":\n\
1959 alias spe = set print elements\n\
1960 Make \"elms\" an alias of \"elements\" in the \"set print\" command:\n\
1961 alias -a set print elms = set print elements"));
1965 init_cli_cmds (void)
1967 struct cmd_list_element
*c
;
1968 char *source_help_text
;
1970 source_help_text
= xstrprintf (_("\
1971 Read commands from a file named FILE.\n\
1973 Usage: source [-s] [-v] FILE\n\
1974 -s: search for the script in the source search path,\n\
1975 even if FILE contains directories.\n\
1976 -v: each command in FILE is echoed as it is executed.\n\
1978 Note that the file \"%s\" is read automatically in this way\n\
1979 when GDB is started."), gdbinit
);
1980 c
= add_cmd ("source", class_support
, source_command
,
1981 source_help_text
, &cmdlist
);
1982 set_cmd_completer (c
, filename_completer
);