PR 1042
[deliverable/binutils-gdb.git] / gdb / cli / cli-cmds.c
CommitLineData
d318976c 1/* GDB CLI commands.
8926118c 2
9b265ec2 3 Copyright 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
d318976c
FN
4
5 This file is part of GDB.
6
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 2 of the License, or
10 (at your option) any later version.
11
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.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
21
22#include "defs.h"
dbda9972
AC
23#include "readline/readline.h"
24#include "readline/tilde.h"
d318976c
FN
25#include "completer.h"
26#include "target.h" /* For baud_rate, remote_debug and remote_timeout */
27#include "gdb_wait.h" /* For shell escape implementation */
f77b92bf 28#include "gdb_regex.h" /* Used by apropos_command */
5f8a3188 29#include "gdb_string.h"
325ed089 30#include "gdb_vfork.h"
0378c332
FN
31#include "linespec.h"
32#include "expression.h"
83c31e7d
FN
33#include "frame.h"
34#include "value.h"
0378c332 35#include "language.h"
fe4e3eb8 36#include "filenames.h" /* for DOSish file names */
0378c332
FN
37#include "objfiles.h"
38#include "source.h"
83c31e7d 39#include "disasm.h"
d318976c 40
d318976c 41#include "ui-out.h"
d318976c
FN
42
43#include "top.h"
44#include "cli/cli-decode.h"
45#include "cli/cli-script.h"
46#include "cli/cli-setshow.h"
47#include "cli/cli-cmds.h"
48
6a83354a
AC
49#ifdef TUI
50#include "tui/tui.h" /* For tui_active et.al. */
51#endif
52
0378c332 53/* Prototypes for local command functions */
d318976c
FN
54
55static void complete_command (char *, int);
56
57static void echo_command (char *, int);
58
59static void pwd_command (char *, int);
60
61static void show_version (char *, int);
62
d318976c
FN
63static void help_command (char *, int);
64
65static void show_command (char *, int);
66
67static void info_command (char *, int);
68
69static void show_debug (char *, int);
70
71static void set_debug (char *, int);
72
73static void show_user (char *, int);
74
75static void make_command (char *, int);
76
77static void shell_escape (char *, int);
78
0378c332
FN
79static void edit_command (char *, int);
80
81static void list_command (char *, int);
82
d318976c 83void apropos_command (char *, int);
0378c332
FN
84
85/* Prototypes for local utility functions */
86
87static void ambiguous_line_spec (struct symtabs_and_lines *);
d318976c 88\f
20f01a46
DH
89/* Limit the call depth of user-defined commands */
90int max_user_call_depth;
91
d318976c
FN
92/* Define all cmd_list_elements. */
93
94/* Chain containing all defined commands. */
95
96struct cmd_list_element *cmdlist;
97
98/* Chain containing all defined info subcommands. */
99
100struct cmd_list_element *infolist;
101
102/* Chain containing all defined enable subcommands. */
103
104struct cmd_list_element *enablelist;
105
106/* Chain containing all defined disable subcommands. */
107
108struct cmd_list_element *disablelist;
109
110/* Chain containing all defined toggle subcommands. */
111
112struct cmd_list_element *togglelist;
113
114/* Chain containing all defined stop subcommands. */
115
116struct cmd_list_element *stoplist;
117
118/* Chain containing all defined delete subcommands. */
119
120struct cmd_list_element *deletelist;
121
122/* Chain containing all defined "enable breakpoint" subcommands. */
123
124struct cmd_list_element *enablebreaklist;
125
126/* Chain containing all defined set subcommands */
127
128struct cmd_list_element *setlist;
129
130/* Chain containing all defined unset subcommands */
131
132struct cmd_list_element *unsetlist;
133
134/* Chain containing all defined show subcommands. */
135
136struct cmd_list_element *showlist;
137
138/* Chain containing all defined \"set history\". */
139
140struct cmd_list_element *sethistlist;
141
142/* Chain containing all defined \"show history\". */
143
144struct cmd_list_element *showhistlist;
145
146/* Chain containing all defined \"unset history\". */
147
148struct cmd_list_element *unsethistlist;
149
150/* Chain containing all defined maintenance subcommands. */
151
152struct cmd_list_element *maintenancelist;
153
154/* Chain containing all defined "maintenance info" subcommands. */
155
156struct cmd_list_element *maintenanceinfolist;
157
158/* Chain containing all defined "maintenance print" subcommands. */
159
160struct cmd_list_element *maintenanceprintlist;
161
162struct cmd_list_element *setprintlist;
163
164struct cmd_list_element *showprintlist;
165
166struct cmd_list_element *setdebuglist;
167
168struct cmd_list_element *showdebuglist;
169
170struct cmd_list_element *setchecklist;
171
172struct cmd_list_element *showchecklist;
173\f
174/* Utility used everywhere when at least one argument is needed and
175 none is supplied. */
176
177void
178error_no_arg (char *why)
179{
8a3fe4f8 180 error (_("Argument required (%s)."), why);
d318976c
FN
181}
182
183/* The "info" command is defined as a prefix, with allow_unknown = 0.
184 Therefore, its own definition is called only for "info" with no args. */
185
d318976c
FN
186static void
187info_command (char *arg, int from_tty)
188{
a3f17187 189 printf_unfiltered (_("\"info\" must be followed by the name of an info command.\n"));
d318976c
FN
190 help_list (infolist, "info ", -1, gdb_stdout);
191}
192
193/* The "show" command with no arguments shows all the settings. */
194
d318976c
FN
195static void
196show_command (char *arg, int from_tty)
197{
198 cmd_show_list (showlist, from_tty, "");
199}
200\f
201/* Provide documentation on command or list given by COMMAND. FROM_TTY
202 is ignored. */
203
d318976c
FN
204static void
205help_command (char *command, int from_tty)
206{
207 help_cmd (command, gdb_stdout);
208}
209\f
83d31a92
TT
210/* String compare function for qsort. */
211static int
212compare_strings (const void *arg1, const void *arg2)
213{
214 const char **s1 = (const char **) arg1;
215 const char **s2 = (const char **) arg2;
216 return strcmp (*s1, *s2);
217}
218
d318976c
FN
219/* The "complete" command is used by Emacs to implement completion. */
220
d318976c
FN
221static void
222complete_command (char *arg, int from_tty)
223{
224 int i;
225 int argpoint;
d9b52655 226 char **completions, *point, *arg_prefix;
d318976c
FN
227
228 dont_repeat ();
229
230 if (arg == NULL)
231 arg = "";
232 argpoint = strlen (arg);
233
d9b52655
DJ
234 /* complete_line assumes that its first argument is somewhere within,
235 and except for filenames at the beginning of, the word to be completed.
236 The following crude imitation of readline's word-breaking tries to
237 accomodate this. */
238 point = arg + argpoint;
239 while (point > arg)
240 {
241 if (strchr (rl_completer_word_break_characters, point[-1]) != 0)
242 break;
243 point--;
244 }
245
246 arg_prefix = alloca (point - arg + 1);
247 memcpy (arg_prefix, arg, point - arg);
248 arg_prefix[point - arg] = 0;
249
250 completions = complete_line (point, arg, argpoint);
83d31a92
TT
251
252 if (completions)
d318976c 253 {
83d31a92
TT
254 int item, size;
255
256 for (size = 0; completions[size]; ++size)
257 ;
258 qsort (completions, size, sizeof (char *), compare_strings);
259
260 /* We do extra processing here since we only want to print each
261 unique item once. */
262 item = 0;
263 while (item < size)
264 {
265 int next_item;
d9b52655 266 printf_unfiltered ("%s%s\n", arg_prefix, completions[item]);
83d31a92
TT
267 next_item = item + 1;
268 while (next_item < size
269 && ! strcmp (completions[item], completions[next_item]))
270 {
271 xfree (completions[next_item]);
272 ++next_item;
273 }
274
275 xfree (completions[item]);
276 item = next_item;
277 }
278
279 xfree (completions);
d318976c
FN
280 }
281}
282
bbaca940
AC
283int
284is_complete_command (struct cmd_list_element *c)
d318976c 285{
bbaca940 286 return cmd_cfunc_eq (c, complete_command);
d318976c
FN
287}
288
d318976c
FN
289static void
290show_version (char *args, int from_tty)
291{
292 immediate_quit++;
293 print_gdb_version (gdb_stdout);
294 printf_filtered ("\n");
295 immediate_quit--;
296}
297
298/* Handle the quit command. */
299
300void
301quit_command (char *args, int from_tty)
302{
303 if (!quit_confirm ())
8a3fe4f8 304 error (_("Not confirmed."));
d318976c
FN
305 quit_force (args, from_tty);
306}
307
d318976c
FN
308static void
309pwd_command (char *args, int from_tty)
310{
311 if (args)
8a3fe4f8 312 error (_("The \"pwd\" command does not take an argument: %s"), args);
d318976c
FN
313 getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));
314
6314a349 315 if (strcmp (gdb_dirbuf, current_directory) != 0)
a3f17187 316 printf_unfiltered (_("Working directory %s\n (canonically %s).\n"),
d318976c
FN
317 current_directory, gdb_dirbuf);
318 else
a3f17187 319 printf_unfiltered (_("Working directory %s.\n"), current_directory);
d318976c
FN
320}
321
322void
323cd_command (char *dir, int from_tty)
324{
325 int len;
326 /* Found something other than leading repetitions of "/..". */
327 int found_real_path;
328 char *p;
329
330 /* If the new directory is absolute, repeat is a no-op; if relative,
331 repeat might be useful but is more likely to be a mistake. */
332 dont_repeat ();
333
334 if (dir == 0)
e2e0b3e5 335 error_no_arg (_("new working directory"));
d318976c
FN
336
337 dir = tilde_expand (dir);
b8c9b27d 338 make_cleanup (xfree, dir);
d318976c
FN
339
340 if (chdir (dir) < 0)
341 perror_with_name (dir);
342
c3690141 343#ifdef HAVE_DOS_BASED_FILE_SYSTEM
d318976c
FN
344 /* There's too much mess with DOSish names like "d:", "d:.",
345 "d:./foo" etc. Instead of having lots of special #ifdef'ed code,
346 simply get the canonicalized name of the current directory. */
347 dir = getcwd (gdb_dirbuf, sizeof (gdb_dirbuf));
348#endif
349
350 len = strlen (dir);
fe4e3eb8 351 if (IS_DIR_SEPARATOR (dir[len - 1]))
d318976c
FN
352 {
353 /* Remove the trailing slash unless this is a root directory
354 (including a drive letter on non-Unix systems). */
355 if (!(len == 1) /* "/" */
c3690141 356#ifdef HAVE_DOS_BASED_FILE_SYSTEM
fe4e3eb8 357 && !(len == 3 && dir[1] == ':') /* "d:/" */
d318976c
FN
358#endif
359 )
360 len--;
361 }
362
363 dir = savestring (dir, len);
fe4e3eb8 364 if (IS_ABSOLUTE_PATH (dir))
d318976c
FN
365 current_directory = dir;
366 else
367 {
fe4e3eb8 368 if (IS_DIR_SEPARATOR (current_directory[strlen (current_directory) - 1]))
d318976c
FN
369 current_directory = concat (current_directory, dir, NULL);
370 else
371 current_directory = concat (current_directory, SLASH_STRING, dir, NULL);
b8c9b27d 372 xfree (dir);
d318976c
FN
373 }
374
375 /* Now simplify any occurrences of `.' and `..' in the pathname. */
376
377 found_real_path = 0;
378 for (p = current_directory; *p;)
379 {
fe4e3eb8
EZ
380 if (IS_DIR_SEPARATOR (p[0]) && p[1] == '.'
381 && (p[2] == 0 || IS_DIR_SEPARATOR (p[2])))
d318976c 382 strcpy (p, p + 2);
fe4e3eb8
EZ
383 else if (IS_DIR_SEPARATOR (p[0]) && p[1] == '.' && p[2] == '.'
384 && (p[3] == 0 || IS_DIR_SEPARATOR (p[3])))
d318976c
FN
385 {
386 if (found_real_path)
387 {
388 /* Search backwards for the directory just before the "/.."
389 and obliterate it and the "/..". */
390 char *q = p;
fe4e3eb8 391 while (q != current_directory && !IS_DIR_SEPARATOR (q[-1]))
d318976c
FN
392 --q;
393
394 if (q == current_directory)
395 /* current_directory is
396 a relative pathname ("can't happen"--leave it alone). */
397 ++p;
398 else
399 {
400 strcpy (q - 1, p + 3);
401 p = q - 1;
402 }
403 }
404 else
405 /* We are dealing with leading repetitions of "/..", for example
406 "/../..", which is the Mach super-root. */
407 p += 3;
408 }
409 else
410 {
411 found_real_path = 1;
412 ++p;
413 }
414 }
415
416 forget_cached_source_info ();
417
418 if (from_tty)
419 pwd_command ((char *) 0, 1);
420}
421\f
422void
423source_command (char *args, int from_tty)
424{
425 FILE *stream;
426 struct cleanup *old_cleanups;
427 char *file = args;
428
429 if (file == NULL)
430 {
8a3fe4f8 431 error (_("source command requires pathname of file to source."));
d318976c
FN
432 }
433
434 file = tilde_expand (file);
b8c9b27d 435 old_cleanups = make_cleanup (xfree, file);
d318976c
FN
436
437 stream = fopen (file, FOPEN_RT);
438 if (!stream)
439 {
440 if (from_tty)
441 perror_with_name (file);
442 else
443 return;
444 }
445
446 script_from_file (stream, file);
447
448 do_cleanups (old_cleanups);
449}
450
d318976c
FN
451static void
452echo_command (char *text, int from_tty)
453{
454 char *p = text;
d5b5ac79 455 int c;
d318976c
FN
456
457 if (text)
458 while ((c = *p++) != '\0')
459 {
460 if (c == '\\')
461 {
462 /* \ at end of argument is used after spaces
463 so they won't be lost. */
464 if (*p == 0)
465 return;
466
467 c = parse_escape (&p);
468 if (c >= 0)
469 printf_filtered ("%c", c);
470 }
471 else
472 printf_filtered ("%c", c);
473 }
474
475 /* Force this output to appear now. */
476 wrap_here ("");
477 gdb_flush (gdb_stdout);
478}
479
d318976c
FN
480static void
481shell_escape (char *arg, int from_tty)
482{
9b265ec2
MM
483#if defined(CANT_FORK) || \
484 (!defined(HAVE_WORKING_VFORK) && !defined(HAVE_WORKING_FORK))
d318976c
FN
485 /* If ARG is NULL, they want an inferior shell, but `system' just
486 reports if the shell is available when passed a NULL arg. */
487 int rc = system (arg ? arg : "");
488
489 if (!arg)
490 arg = "inferior shell";
491
492 if (rc == -1)
493 {
494 fprintf_unfiltered (gdb_stderr, "Cannot execute %s: %s\n", arg,
495 safe_strerror (errno));
496 gdb_flush (gdb_stderr);
497 }
498 else if (rc)
499 {
500 fprintf_unfiltered (gdb_stderr, "%s exited with status %d\n", arg, rc);
501 gdb_flush (gdb_stderr);
502 }
2584159e 503#ifdef GLOBAL_CURDIR
d318976c
FN
504 /* Make sure to return to the directory GDB thinks it is, in case the
505 shell command we just ran changed it. */
506 chdir (current_directory);
507#endif
508#else /* Can fork. */
509 int rc, status, pid;
d318976c 510
325ed089 511 if ((pid = vfork ()) == 0)
d318976c 512 {
30e94205
DJ
513 char *p, *user_shell;
514
515 if ((user_shell = (char *) getenv ("SHELL")) == NULL)
516 user_shell = "/bin/sh";
517
518 /* Get the name of the shell for arg0 */
519 if ((p = strrchr (user_shell, '/')) == NULL)
520 p = user_shell;
521 else
522 p++; /* Get past '/' */
523
d318976c 524 if (!arg)
36662fde 525 execl (user_shell, p, (char *) 0);
d318976c 526 else
36662fde 527 execl (user_shell, p, "-c", arg, (char *) 0);
d318976c
FN
528
529 fprintf_unfiltered (gdb_stderr, "Cannot execute %s: %s\n", user_shell,
530 safe_strerror (errno));
531 gdb_flush (gdb_stderr);
532 _exit (0177);
533 }
534
535 if (pid != -1)
536 while ((rc = wait (&status)) != pid && rc != -1)
537 ;
538 else
8a3fe4f8 539 error (_("Fork failed"));
d318976c
FN
540#endif /* Can fork. */
541}
542
0378c332
FN
543static void
544edit_command (char *arg, int from_tty)
545{
546 struct symtabs_and_lines sals;
547 struct symtab_and_line sal;
548 struct symbol *sym;
549 char *arg1;
550 int cmdlen, log10;
551 unsigned m;
552 char *editor;
a955ca71 553 char *p, *fn;
0378c332
FN
554
555 /* Pull in the current default source line if necessary */
556 if (arg == 0)
53cb0458
FN
557 {
558 set_default_source_symtab_and_line ();
559 sal = get_current_source_symtab_and_line ();
560 }
0378c332
FN
561
562 /* bare "edit" edits file with present line. */
563
564 if (arg == 0)
565 {
566 if (sal.symtab == 0)
8a3fe4f8 567 error (_("No default source file yet."));
0378c332
FN
568 sal.line += get_lines_to_list () / 2;
569 }
570 else
571 {
572
573 /* Now should only be one argument -- decode it in SAL */
574
575 arg1 = arg;
68219205 576 sals = decode_line_1 (&arg1, 0, 0, 0, 0, 0);
0378c332
FN
577
578 if (! sals.nelts) return; /* C++ */
579 if (sals.nelts > 1) {
580 ambiguous_line_spec (&sals);
581 xfree (sals.sals);
582 return;
583 }
584
585 sal = sals.sals[0];
586 xfree (sals.sals);
587
588 if (*arg1)
8a3fe4f8 589 error (_("Junk at end of line specification."));
0378c332
FN
590
591 /* if line was specified by address,
592 first print exactly which line, and which file.
593 In this case, sal.symtab == 0 means address is outside
594 of all known source files, not that user failed to give a filename. */
595 if (*arg == '*')
596 {
597 if (sal.symtab == 0)
598 /* FIXME-32x64--assumes sal.pc fits in long. */
8a3fe4f8 599 error (_("No source file for address %s."),
bb599908 600 hex_string ((unsigned long) sal.pc));
0378c332
FN
601 sym = find_pc_function (sal.pc);
602 if (sym)
603 {
66bf4b3a 604 deprecated_print_address_numeric (sal.pc, 1, gdb_stdout);
0378c332 605 printf_filtered (" is in ");
de5ad195 606 fputs_filtered (SYMBOL_PRINT_NAME (sym), gdb_stdout);
0378c332
FN
607 printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line);
608 }
609 else
610 {
66bf4b3a 611 deprecated_print_address_numeric (sal.pc, 1, gdb_stdout);
0378c332
FN
612 printf_filtered (" is at %s:%d.\n",
613 sal.symtab->filename, sal.line);
614 }
615 }
616
617 /* If what was given does not imply a symtab, it must be an undebuggable
618 symbol which means no source code. */
619
620 if (sal.symtab == 0)
8a3fe4f8 621 error (_("No line number known for %s."), arg);
0378c332
FN
622 }
623
624 if ((editor = (char *) getenv ("EDITOR")) == NULL)
625 editor = "/bin/ex";
a955ca71 626
0378c332
FN
627 /* Approximate base-10 log of line to 1 unit for digit count */
628 for(log10=32, m=0x80000000; !(sal.line & m) && log10>0; log10--, m=m>>1);
629 log10 = 1 + (int)((log10 + (0 == ((m-1) & sal.line)))/3.32192809);
630
a955ca71
EZ
631 /* If we don't already know the full absolute file name of the
632 source file, find it now. */
633 if (!sal.symtab->fullname)
634 {
635 fn = symtab_to_fullname (sal.symtab);
636 if (!fn)
637 fn = "unknown";
638 }
639 else
640 fn = sal.symtab->fullname;
0378c332 641
a955ca71
EZ
642 /* Quote the file name, in case it has whitespace or other special
643 characters. */
644 p = xstrprintf ("%s +%d \"%s\"", editor, sal.line, fn);
645 shell_escape(p, from_tty);
0378c332
FN
646 xfree(p);
647}
648
649static void
650list_command (char *arg, int from_tty)
651{
652 struct symtabs_and_lines sals, sals_end;
c68a6671
AC
653 struct symtab_and_line sal = { };
654 struct symtab_and_line sal_end = { };
655 struct symtab_and_line cursal = { };
0378c332
FN
656 struct symbol *sym;
657 char *arg1;
658 int no_end = 1;
659 int dummy_end = 0;
660 int dummy_beg = 0;
661 int linenum_beg = 0;
662 char *p;
663
664 /* Pull in the current default source line if necessary */
665 if (arg == 0 || arg[0] == '+' || arg[0] == '-')
53cb0458
FN
666 {
667 set_default_source_symtab_and_line ();
668 cursal = get_current_source_symtab_and_line ();
669 }
0378c332
FN
670
671 /* "l" or "l +" lists next ten lines. */
672
6314a349 673 if (arg == 0 || strcmp (arg, "+") == 0)
0378c332
FN
674 {
675 print_source_lines (cursal.symtab, cursal.line,
676 cursal.line + get_lines_to_list (), 0);
677 return;
678 }
679
680 /* "l -" lists previous ten lines, the ones before the ten just listed. */
6314a349 681 if (strcmp (arg, "-") == 0)
0378c332
FN
682 {
683 print_source_lines (cursal.symtab,
684 max (get_first_line_listed () - get_lines_to_list (), 1),
685 get_first_line_listed (), 0);
686 return;
687 }
688
689 /* Now if there is only one argument, decode it in SAL
690 and set NO_END.
691 If there are two arguments, decode them in SAL and SAL_END
692 and clear NO_END; however, if one of the arguments is blank,
693 set DUMMY_BEG or DUMMY_END to record that fact. */
694
695 if (!have_full_symbols () && !have_partial_symbols ())
8a3fe4f8 696 error (_("No symbol table is loaded. Use the \"file\" command."));
0378c332
FN
697
698 arg1 = arg;
699 if (*arg1 == ',')
700 dummy_beg = 1;
701 else
702 {
68219205 703 sals = decode_line_1 (&arg1, 0, 0, 0, 0, 0);
0378c332
FN
704
705 if (!sals.nelts)
706 return; /* C++ */
707 if (sals.nelts > 1)
708 {
709 ambiguous_line_spec (&sals);
710 xfree (sals.sals);
711 return;
712 }
713
714 sal = sals.sals[0];
715 xfree (sals.sals);
716 }
717
718 /* Record whether the BEG arg is all digits. */
719
720 for (p = arg; p != arg1 && *p >= '0' && *p <= '9'; p++);
721 linenum_beg = (p == arg1);
722
723 while (*arg1 == ' ' || *arg1 == '\t')
724 arg1++;
725 if (*arg1 == ',')
726 {
727 no_end = 0;
728 arg1++;
729 while (*arg1 == ' ' || *arg1 == '\t')
730 arg1++;
731 if (*arg1 == 0)
732 dummy_end = 1;
733 else
734 {
735 if (dummy_beg)
68219205 736 sals_end = decode_line_1 (&arg1, 0, 0, 0, 0, 0);
0378c332 737 else
68219205 738 sals_end = decode_line_1 (&arg1, 0, sal.symtab, sal.line, 0, 0);
0378c332
FN
739 if (sals_end.nelts == 0)
740 return;
741 if (sals_end.nelts > 1)
742 {
743 ambiguous_line_spec (&sals_end);
744 xfree (sals_end.sals);
745 return;
746 }
747 sal_end = sals_end.sals[0];
748 xfree (sals_end.sals);
749 }
750 }
751
752 if (*arg1)
8a3fe4f8 753 error (_("Junk at end of line specification."));
0378c332
FN
754
755 if (!no_end && !dummy_beg && !dummy_end
756 && sal.symtab != sal_end.symtab)
8a3fe4f8 757 error (_("Specified start and end are in different files."));
0378c332 758 if (dummy_beg && dummy_end)
8a3fe4f8 759 error (_("Two empty args do not say what lines to list."));
0378c332
FN
760
761 /* if line was specified by address,
762 first print exactly which line, and which file.
763 In this case, sal.symtab == 0 means address is outside
764 of all known source files, not that user failed to give a filename. */
765 if (*arg == '*')
766 {
767 if (sal.symtab == 0)
768 /* FIXME-32x64--assumes sal.pc fits in long. */
8a3fe4f8 769 error (_("No source file for address %s."),
bb599908 770 hex_string ((unsigned long) sal.pc));
0378c332
FN
771 sym = find_pc_function (sal.pc);
772 if (sym)
773 {
66bf4b3a 774 deprecated_print_address_numeric (sal.pc, 1, gdb_stdout);
0378c332 775 printf_filtered (" is in ");
de5ad195 776 fputs_filtered (SYMBOL_PRINT_NAME (sym), gdb_stdout);
0378c332
FN
777 printf_filtered (" (%s:%d).\n", sal.symtab->filename, sal.line);
778 }
779 else
780 {
66bf4b3a 781 deprecated_print_address_numeric (sal.pc, 1, gdb_stdout);
0378c332
FN
782 printf_filtered (" is at %s:%d.\n",
783 sal.symtab->filename, sal.line);
784 }
785 }
786
787 /* If line was not specified by just a line number,
788 and it does not imply a symtab, it must be an undebuggable symbol
789 which means no source code. */
790
791 if (!linenum_beg && sal.symtab == 0)
8a3fe4f8 792 error (_("No line number known for %s."), arg);
0378c332
FN
793
794 /* If this command is repeated with RET,
795 turn it into the no-arg variant. */
796
797 if (from_tty)
798 *arg = 0;
799
800 if (dummy_beg && sal_end.symtab == 0)
8a3fe4f8 801 error (_("No default source file yet. Do \"help list\"."));
0378c332
FN
802 if (dummy_beg)
803 print_source_lines (sal_end.symtab,
804 max (sal_end.line - (get_lines_to_list () - 1), 1),
805 sal_end.line + 1, 0);
806 else if (sal.symtab == 0)
8a3fe4f8 807 error (_("No default source file yet. Do \"help list\"."));
0378c332
FN
808 else if (no_end)
809 {
810 int first_line = sal.line - get_lines_to_list () / 2;
811
812 if (first_line < 1) first_line = 1;
813
814 print_source_lines (sal.symtab,
815 first_line,
816 first_line + get_lines_to_list (),
817 0);
818 }
819 else
820 print_source_lines (sal.symtab, sal.line,
821 (dummy_end
822 ? sal.line + get_lines_to_list ()
823 : sal_end.line + 1),
824 0);
825}
826
83c31e7d
FN
827/* Dump a specified section of assembly code. With no command line
828 arguments, this command will dump the assembly code for the
829 function surrounding the pc value in the selected frame. With one
830 argument, it will dump the assembly code surrounding that pc value.
831 Two arguments are interpeted as bounds within which to dump
832 assembly. */
833
83c31e7d
FN
834static void
835disassemble_command (char *arg, int from_tty)
836{
837 CORE_ADDR low, high;
838 char *name;
839 CORE_ADDR pc, pc_masked;
840 char *space_index;
841#if 0
842 asection *section;
843#endif
844
845 name = NULL;
846 if (!arg)
847 {
6e7f8b9c 848 if (!deprecated_selected_frame)
8a3fe4f8 849 error (_("No frame selected."));
83c31e7d 850
6e7f8b9c 851 pc = get_frame_pc (deprecated_selected_frame);
83c31e7d 852 if (find_pc_partial_function (pc, &name, &low, &high) == 0)
8a3fe4f8 853 error (_("No function contains program counter for selected frame."));
83c31e7d 854#if defined(TUI)
021e7609
AC
855 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
856 `tui_version'. */
22940a24
AC
857 if (tui_active)
858 /* FIXME: cagney/2004-02-07: This should be an observer. */
859 low = tui_get_low_disassembly_address (low, pc);
83c31e7d 860#endif
782263ab 861 low += DEPRECATED_FUNCTION_START_OFFSET;
83c31e7d
FN
862 }
863 else if (!(space_index = (char *) strchr (arg, ' ')))
864 {
865 /* One argument. */
866 pc = parse_and_eval_address (arg);
867 if (find_pc_partial_function (pc, &name, &low, &high) == 0)
8a3fe4f8 868 error (_("No function contains specified address."));
83c31e7d 869#if defined(TUI)
021e7609
AC
870 /* NOTE: cagney/2003-02-13 The `tui_active' was previously
871 `tui_version'. */
22940a24
AC
872 if (tui_active)
873 /* FIXME: cagney/2004-02-07: This should be an observer. */
874 low = tui_get_low_disassembly_address (low, pc);
83c31e7d 875#endif
782263ab 876 low += DEPRECATED_FUNCTION_START_OFFSET;
83c31e7d
FN
877 }
878 else
879 {
880 /* Two arguments. */
881 *space_index = '\0';
882 low = parse_and_eval_address (arg);
883 high = parse_and_eval_address (space_index + 1);
884 }
885
886#if defined(TUI)
887 if (!tui_is_window_visible (DISASSEM_WIN))
888#endif
889 {
890 printf_filtered ("Dump of assembler code ");
891 if (name != NULL)
892 {
893 printf_filtered ("for function %s:\n", name);
894 }
895 else
896 {
897 printf_filtered ("from ");
66bf4b3a 898 deprecated_print_address_numeric (low, 1, gdb_stdout);
83c31e7d 899 printf_filtered (" to ");
66bf4b3a 900 deprecated_print_address_numeric (high, 1, gdb_stdout);
83c31e7d
FN
901 printf_filtered (":\n");
902 }
903
904 /* Dump the specified range. */
905 gdb_disassembly (uiout, 0, 0, 0, -1, low, high);
906
907 printf_filtered ("End of assembler dump.\n");
908 gdb_flush (gdb_stdout);
909 }
910#if defined(TUI)
911 else
912 {
913 tui_show_assembly (low);
914 }
915#endif
916}
917
d318976c
FN
918static void
919make_command (char *arg, int from_tty)
920{
921 char *p;
922
923 if (arg == 0)
924 p = "make";
925 else
926 {
927 p = xmalloc (sizeof ("make ") + strlen (arg));
928 strcpy (p, "make ");
929 strcpy (p + sizeof ("make ") - 1, arg);
930 }
931
932 shell_escape (p, from_tty);
933}
934
d318976c
FN
935static void
936show_user (char *args, int from_tty)
937{
938 struct cmd_list_element *c;
939 extern struct cmd_list_element *cmdlist;
940
941 if (args)
942 {
943 c = lookup_cmd (&args, cmdlist, "", 0, 1);
944 if (c->class != class_user)
8a3fe4f8 945 error (_("Not a user command."));
d318976c
FN
946 show_user_1 (c, gdb_stdout);
947 }
948 else
949 {
950 for (c = cmdlist; c; c = c->next)
951 {
952 if (c->class == class_user)
953 show_user_1 (c, gdb_stdout);
954 }
955 }
956}
957
958/* Search through names of commands and documentations for a certain
959 regular expression.
960*/
961void
962apropos_command (char *searchstr, int from_tty)
963{
964 extern struct cmd_list_element *cmdlist; /*This is the main command list*/
965 regex_t pattern;
966 char *pattern_fastmap;
967 char errorbuffer[512];
2e94c453 968 pattern_fastmap = xcalloc (256, sizeof (char));
d318976c 969 if (searchstr == NULL)
8a3fe4f8 970 error (_("REGEXP string is empty"));
d318976c
FN
971
972 if (regcomp(&pattern,searchstr,REG_ICASE) == 0)
973 {
974 pattern.fastmap=pattern_fastmap;
975 re_compile_fastmap(&pattern);
976 apropos_cmd (gdb_stdout,cmdlist,&pattern,"");
977 }
978 else
979 {
980 regerror(regcomp(&pattern,searchstr,REG_ICASE),NULL,errorbuffer,512);
8a3fe4f8 981 error (_("Error in regular expression:%s"),errorbuffer);
d318976c 982 }
2b5436af 983 xfree (pattern_fastmap);
d318976c
FN
984}
985\f
0378c332
FN
986/* Print a list of files and line numbers which a user may choose from
987 in order to list a function which was specified ambiguously (as with
988 `list classname::overloadedfuncname', for example). The vector in
989 SALS provides the filenames and line numbers. */
990
991static void
992ambiguous_line_spec (struct symtabs_and_lines *sals)
993{
994 int i;
995
996 for (i = 0; i < sals->nelts; ++i)
a3f17187 997 printf_filtered (_("file: \"%s\", line number: %d\n"),
0378c332
FN
998 sals->sals[i].symtab->filename, sals->sals[i].line);
999}
1000
d318976c
FN
1001static void
1002set_debug (char *arg, int from_tty)
1003{
a3f17187 1004 printf_unfiltered (_("\"set debug\" must be followed by the name of a print subcommand.\n"));
d318976c
FN
1005 help_list (setdebuglist, "set debug ", -1, gdb_stdout);
1006}
1007
1008static void
1009show_debug (char *args, int from_tty)
1010{
1011 cmd_show_list (showdebuglist, from_tty, "");
1012}
1013
1014void
1015init_cmd_lists (void)
1016{
20f01a46
DH
1017 max_user_call_depth = 1024;
1018
d318976c
FN
1019 cmdlist = NULL;
1020 infolist = NULL;
1021 enablelist = NULL;
1022 disablelist = NULL;
1023 togglelist = NULL;
1024 stoplist = NULL;
1025 deletelist = NULL;
1026 enablebreaklist = NULL;
1027 setlist = NULL;
1028 unsetlist = NULL;
1029 showlist = NULL;
1030 sethistlist = NULL;
1031 showhistlist = NULL;
1032 unsethistlist = NULL;
1033 maintenancelist = NULL;
1034 maintenanceinfolist = NULL;
1035 maintenanceprintlist = NULL;
1036 setprintlist = NULL;
1037 showprintlist = NULL;
1038 setchecklist = NULL;
1039 showchecklist = NULL;
1040}
1041
920d2a44
AC
1042static void
1043show_info_verbose (struct ui_file *file, int from_tty,
1044 struct cmd_list_element *c,
1045 const char *value)
1046{
1047 if (info_verbose)
1048 fprintf_filtered (file, _("\
1049Verbose printing of informational messages is %s.\n"), value);
1050 else
1051 fprintf_filtered (file, _("Verbosity is %s.\n"), value);
1052}
1053
1054static void
1055show_history_expansion_p (struct ui_file *file, int from_tty,
1056 struct cmd_list_element *c, const char *value)
1057{
1058 fprintf_filtered (file, _("History expansion on command input is %s.\n"),
1059 value);
1060}
1061
1062static void
1063show_baud_rate (struct ui_file *file, int from_tty,
1064 struct cmd_list_element *c, const char *value)
1065{
1066 fprintf_filtered (file, _("Baud rate for remote serial I/O is %s.\n"),
1067 value);
1068}
1069
1070static void
1071show_remote_debug (struct ui_file *file, int from_tty,
1072 struct cmd_list_element *c, const char *value)
1073{
1074 fprintf_filtered (file, _("Debugging of remote protocol is %s.\n"),
1075 value);
1076}
1077
1078static void
1079show_remote_timeout (struct ui_file *file, int from_tty,
1080 struct cmd_list_element *c, const char *value)
1081{
1082 fprintf_filtered (file, _("\
1083Timeout limit to wait for target to respond is %s.\n"),
1084 value);
1085}
1086
1087static void
1088show_max_user_call_depth (struct ui_file *file, int from_tty,
1089 struct cmd_list_element *c, const char *value)
1090{
1091 fprintf_filtered (file, _("\
1092The max call depth for user-defined commands is %s.\n"),
1093 value);
1094}
1095
d318976c
FN
1096\f
1097void
1098init_cli_cmds (void)
1099{
1100 struct cmd_list_element *c;
eaae3919 1101 char *source_help_text;
d318976c
FN
1102
1103 /* Define the classes of commands.
1104 They will appear in the help list in the reverse of this order. */
1105
1a966eab
AC
1106 add_cmd ("internals", class_maintenance, NULL, _("\
1107Maintenance commands.\n\
d318976c
FN
1108Some gdb commands are provided just for use by gdb maintainers.\n\
1109These commands are subject to frequent change, and may not be as\n\
1a966eab 1110well documented as user commands."),
d318976c 1111 &cmdlist);
1a966eab
AC
1112 add_cmd ("obscure", class_obscure, NULL, _("Obscure features."), &cmdlist);
1113 add_cmd ("aliases", class_alias, NULL, _("Aliases of other commands."), &cmdlist);
1114 add_cmd ("user-defined", class_user, NULL, _("\
1115User-defined commands.\n\
d318976c 1116The commands in this class are those defined by the user.\n\
1a966eab
AC
1117Use the \"define\" command to define a command."), &cmdlist);
1118 add_cmd ("support", class_support, NULL, _("Support facilities."), &cmdlist);
d318976c 1119 if (!dbx_commands)
1a966eab
AC
1120 add_cmd ("status", class_info, NULL, _("Status inquiries."), &cmdlist);
1121 add_cmd ("files", class_files, NULL, _("Specifying and examining files."),
1122 &cmdlist);
1123 add_cmd ("breakpoints", class_breakpoint, NULL,
1124 _("Making program stop at certain points."), &cmdlist);
1125 add_cmd ("data", class_vars, NULL, _("Examining data."), &cmdlist);
1126 add_cmd ("stack", class_stack, NULL, _("\
1127Examining the stack.\n\
d318976c
FN
1128The stack is made up of stack frames. Gdb assigns numbers to stack frames\n\
1129counting from zero for the innermost (currently executing) frame.\n\n\
1130At any time gdb identifies one frame as the \"selected\" frame.\n\
1131Variable lookups are done with respect to the selected frame.\n\
1132When the program being debugged stops, gdb selects the innermost frame.\n\
1a966eab 1133The commands below can be used to select other frames by number or address."),
d318976c 1134 &cmdlist);
1a966eab 1135 add_cmd ("running", class_run, NULL, _("Running the program."), &cmdlist);
d318976c
FN
1136
1137 /* Define general commands. */
1138
1bedd215
AC
1139 add_com ("pwd", class_files, pwd_command, _("\
1140Print working directory. This is used for your program as well."));
1a966eab
AC
1141 c = add_cmd ("cd", class_files, cd_command, _("\
1142Set working directory to DIR for debugger and program being debugged.\n\
d318976c 1143The change does not take effect for the program being debugged\n\
1a966eab 1144until the next time it is started."), &cmdlist);
5ba2abeb 1145 set_cmd_completer (c, filename_completer);
d318976c 1146
1bedd215
AC
1147 add_com ("echo", class_support, echo_command, _("\
1148Print a constant string. Give string as argument.\n\
d318976c
FN
1149C escape sequences may be used in the argument.\n\
1150No newline is added at the end of the argument;\n\
1151use \"\\n\" if you want a newline to be printed.\n\
1152Since leading and trailing whitespace are ignored in command arguments,\n\
1153if you want to print some you must use \"\\\" before leading whitespace\n\
1bedd215
AC
1154to be printed or after trailing whitespace."));
1155 add_com ("document", class_support, document_command, _("\
1156Document a user-defined command.\n\
d318976c 1157Give command name as argument. Give documentation on following lines.\n\
1bedd215
AC
1158End with a line of just \"end\"."));
1159 add_com ("define", class_support, define_command, _("\
1160Define a new command name. Command name is argument.\n\
d318976c
FN
1161Definition appears on following lines, one command per line.\n\
1162End with a line of just \"end\".\n\
1163Use the \"document\" command to give documentation for the new command.\n\
1bedd215 1164Commands defined in this way may have up to ten arguments."));
d318976c 1165
eaae3919 1166 source_help_text = xstrprintf (_("\
1a966eab 1167Read commands from a file named FILE.\n\
eaae3919
EZ
1168Note that the file \"%s\" is read automatically in this way\n\
1169when gdb is started."), gdbinit);
1170 c = add_cmd ("source", class_support, source_command,
1171 source_help_text, &cmdlist);
5ba2abeb 1172 set_cmd_completer (c, filename_completer);
d318976c 1173
1bedd215
AC
1174 add_com ("quit", class_support, quit_command, _("Exit gdb."));
1175 c = add_com ("help", class_support, help_command,
1176 _("Print list of commands."));
5ba2abeb 1177 set_cmd_completer (c, command_completer);
d318976c
FN
1178 add_com_alias ("q", "quit", class_support, 1);
1179 add_com_alias ("h", "help", class_support, 1);
1180
5bf193a2
AC
1181 add_setshow_boolean_cmd ("verbose", class_support, &info_verbose, _("\
1182Set verbosity."), _("\
1183Show verbosity."), NULL,
1184 set_verbose,
920d2a44 1185 show_info_verbose,
5bf193a2 1186 &setlist, &showlist);
d318976c
FN
1187
1188 add_prefix_cmd ("history", class_support, set_history,
1bedd215 1189 _("Generic command for setting command history parameters."),
d318976c
FN
1190 &sethistlist, "set history ", 0, &setlist);
1191 add_prefix_cmd ("history", class_support, show_history,
1bedd215 1192 _("Generic command for showing command history parameters."),
d318976c
FN
1193 &showhistlist, "show history ", 0, &showlist);
1194
5bf193a2
AC
1195 add_setshow_boolean_cmd ("expansion", no_class, &history_expansion_p, _("\
1196Set history expansion on command input."), _("\
1197Show history expansion on command input."), _("\
1198Without an argument, history expansion is enabled."),
1199 NULL,
920d2a44 1200 show_history_expansion_p,
5bf193a2 1201 &sethistlist, &showhistlist);
d318976c 1202
1bedd215
AC
1203 add_prefix_cmd ("info", class_info, info_command, _("\
1204Generic command for showing things about the program being debugged."),
d318976c
FN
1205 &infolist, "info ", 0, &cmdlist);
1206 add_com_alias ("i", "info", class_info, 1);
1207
1208 add_com ("complete", class_obscure, complete_command,
1bedd215 1209 _("List the completions for the rest of the line as a command."));
d318976c
FN
1210
1211 add_prefix_cmd ("show", class_info, show_command,
1bedd215 1212 _("Generic command for showing things about the debugger."),
d318976c
FN
1213 &showlist, "show ", 0, &cmdlist);
1214 /* Another way to get at the same thing. */
1bedd215 1215 add_info ("set", show_command, _("Show all GDB settings."));
d318976c 1216
1a966eab
AC
1217 add_cmd ("commands", no_class, show_commands, _("\
1218Show the history of commands you typed.\n\
d318976c 1219You can supply a command number to start with, or a `+' to start after\n\
1a966eab 1220the previous command number shown."),
d318976c
FN
1221 &showlist);
1222
1223 add_cmd ("version", no_class, show_version,
1a966eab 1224 _("Show what version of GDB this is."), &showlist);
d318976c 1225
1bedd215
AC
1226 add_com ("while", class_support, while_command, _("\
1227Execute nested commands WHILE the conditional expression is non zero.\n\
d318976c
FN
1228The conditional expression must follow the word `while' and must in turn be\n\
1229followed by a new line. The nested commands must be entered one per line,\n\
1bedd215 1230and should be terminated by the word `end'."));
d318976c 1231
1bedd215
AC
1232 add_com ("if", class_support, if_command, _("\
1233Execute nested commands once IF the conditional expression is non zero.\n\
d318976c
FN
1234The conditional expression must follow the word `if' and must in turn be\n\
1235followed by a new line. The nested commands must be entered one per line,\n\
1236and should be terminated by the word 'else' or `end'. If an else clause\n\
1bedd215 1237is used, the same rules apply to its nested commands as to the first ones."));
d318976c
FN
1238
1239 /* If target is open when baud changes, it doesn't take effect until the
1240 next open (I think, not sure). */
85c07804
AC
1241 add_setshow_zinteger_cmd ("remotebaud", no_class, &baud_rate, _("\
1242Set baud rate for remote serial I/O."), _("\
1243Show baud rate for remote serial I/O."), _("\
d318976c 1244This value is used to set the speed of the serial port when debugging\n\
85c07804
AC
1245using remote targets."),
1246 NULL,
920d2a44 1247 show_baud_rate,
85c07804
AC
1248 &setlist, &showlist);
1249
1250 add_setshow_zinteger_cmd ("remote", no_class, &remote_debug, _("\
1251Set debugging of remote protocol."), _("\
1252Show debugging of remote protocol."), _("\
d318976c 1253When enabled, each packet sent or received with the remote target\n\
85c07804
AC
1254is displayed."),
1255 NULL,
920d2a44 1256 show_remote_debug,
85c07804 1257 &setdebuglist, &showdebuglist);
d318976c 1258
c0d88b1b
AC
1259 add_setshow_integer_cmd ("remotetimeout", no_class, &remote_timeout, _("\
1260Set timeout limit to wait for target to respond."), _("\
1261Show timeout limit to wait for target to respond."), _("\
d318976c 1262This value is used to set the time limit for gdb to wait for a response\n\
c0d88b1b
AC
1263from the target."),
1264 NULL,
920d2a44 1265 show_remote_timeout,
c0d88b1b 1266 &setlist, &showlist);
d318976c
FN
1267
1268 add_prefix_cmd ("debug", no_class, set_debug,
1bedd215 1269 _("Generic command for setting gdb debugging flags"),
d318976c
FN
1270 &setdebuglist, "set debug ", 0, &setlist);
1271
1272 add_prefix_cmd ("debug", no_class, show_debug,
1bedd215 1273 _("Generic command for showing gdb debugging flags"),
d318976c
FN
1274 &showdebuglist, "show debug ", 0, &showlist);
1275
1bedd215
AC
1276 c = add_com ("shell", class_support, shell_escape, _("\
1277Execute the rest of the line as a shell command.\n\
1278With no arguments, run an inferior shell."));
5ba2abeb 1279 set_cmd_completer (c, filename_completer);
d318976c 1280
1bedd215
AC
1281 c = add_com ("edit", class_files, edit_command, _("\
1282Edit specified file or function.\n\
0378c332 1283With no argument, edits file containing most recent line listed.\n\
0378c332
FN
1284Editing targets can be specified in these ways:\n\
1285 FILE:LINENUM, to edit at that line in that file,\n\
1286 FUNCTION, to edit at the beginning of that function,\n\
1287 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1288 *ADDRESS, to edit at the line containing that address.\n\
1bedd215 1289Uses EDITOR environment variable contents as editor (or ex as default)."));
0378c332
FN
1290
1291 c->completer = location_completer;
1292
1bedd215
AC
1293 add_com ("list", class_files, list_command, _("\
1294List specified function or line.\n\
0378c332
FN
1295With no argument, lists ten more lines after or around previous listing.\n\
1296\"list -\" lists the ten lines before a previous ten-line listing.\n\
1297One argument specifies a line, and ten lines are listed around that line.\n\
1298Two arguments with comma between specify starting and ending lines to list.\n\
0378c332
FN
1299Lines can be specified in these ways:\n\
1300 LINENUM, to list around that line in current file,\n\
1301 FILE:LINENUM, to list around that line in that file,\n\
1302 FUNCTION, to list around beginning of that function,\n\
1303 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1304 *ADDRESS, to list around the line containing that address.\n\
1bedd215 1305With two args if one is empty it stands for ten lines away from the other arg."));
0378c332
FN
1306
1307 if (!xdb_commands)
1308 add_com_alias ("l", "list", class_files, 1);
1309 else
1310 add_com_alias ("v", "list", class_files, 1);
1311
1312 if (dbx_commands)
1313 add_com_alias ("file", "list", class_files, 1);
1314
1bedd215
AC
1315 c = add_com ("disassemble", class_vars, disassemble_command, _("\
1316Disassemble a specified section of memory.\n\
83c31e7d
FN
1317Default is the function surrounding the pc of the selected frame.\n\
1318With a single argument, the function surrounding that address is dumped.\n\
1bedd215 1319Two arguments are taken as a range of memory to dump."));
83c31e7d
FN
1320 set_cmd_completer (c, location_completer);
1321 if (xdb_commands)
1322 add_com_alias ("va", "disassemble", class_xdb, 0);
0378c332 1323
d318976c
FN
1324 /* NOTE: cagney/2000-03-20: Being able to enter ``(gdb) !ls'' would
1325 be a really useful feature. Unfortunately, the below wont do
1326 this. Instead it adds support for the form ``(gdb) ! ls''
1327 (i.e. the space is required). If the ``!'' command below is
1328 added the complains about no ``!'' command would be replaced by
1329 complains about how the ``!'' command is broken :-) */
1330 if (xdb_commands)
1331 add_com_alias ("!", "shell", class_support, 0);
1332
1bedd215
AC
1333 c = add_com ("make", class_support, make_command, _("\
1334Run the ``make'' program using the rest of the line as arguments."));
5ba2abeb 1335 set_cmd_completer (c, filename_completer);
1a966eab
AC
1336 add_cmd ("user", no_class, show_user, _("\
1337Show definitions of user defined commands.\n\
d318976c 1338Argument is the name of the user defined command.\n\
1a966eab 1339With no argument, show definitions of all user defined commands."), &showlist);
1bedd215
AC
1340 add_com ("apropos", class_support, apropos_command,
1341 _("Search for commands matching a REGEXP"));
20f01a46 1342
c0d88b1b
AC
1343 add_setshow_integer_cmd ("max-user-call-depth", no_class,
1344 &max_user_call_depth, _("\
1345Set the max call depth for user-defined commands."), _("\
1346Show the max call depth for user-defined commands."), NULL,
1347 NULL,
920d2a44 1348 show_max_user_call_depth,
c0d88b1b 1349 &setlist, &showlist);
d318976c 1350}
This page took 0.46343 seconds and 4 git commands to generate.