[deliverable/binutils-gdb.git] / gdb / maint.c

/* Support for GDB maintenance commands.
   Copyright (C) 1992 Free Software Foundation, Inc.
   Written by Fred Fish at Cygnus Support.

This file is part of GDB.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */


#include "defs.h"

#if MAINTENANCE_CMDS	/* Entire file goes away if not including maint cmds */

#include <signal.h>
#include "command.h"
#include "gdbcmd.h"
#include "symtab.h"
#include "gdbtypes.h"
#include "demangle.h"
#include "gdbcore.h"

static void
maintenance_command PARAMS ((char *, int));

static void
maintenance_dump_me PARAMS ((char *, int));

static void
maintenance_demangle PARAMS ((char *, int));

/*

LOCAL FUNCTION

	maintenance_command -- access the maintenance subcommands

SYNOPSIS

	void maintenance_command (char *args, int from_tty)

DESCRIPTION

*/

static void
maintenance_command (args, from_tty)
     char *args;
     int from_tty;
{
  printf ("\"maintenance\" must be followed by the name of a maintenance command.\n");
  help_list (maintenancelist, "maintenance ", -1, stdout);
}


/* ARGSUSED */
static void
maintenance_dump_me (args, from_tty)
     char *args;
     int from_tty;
{
  if (query ("Should GDB dump core? "))
    {
      signal (SIGQUIT, SIG_DFL);
      kill (getpid (), SIGQUIT);
    }
}

/*  Someday we should allow demangling for things other than just
    explicit strings.  For example, we might want to be able to
    specify the address of a string in either GDB's process space
    or the debuggee's process space, and have gdb fetch and demangle
    that string.  If we have a char* pointer "ptr" that points to
    a string, we might want to be able to given just the name and
    have GDB demangle and print what it points to, etc.  (FIXME) */

static void
maintenance_demangle (args, from_tty)
     char *args;
     int from_tty;
{
  char *demangled;

  if (args == NULL || *args == '\0')
    {
      printf ("\"maintenance demangle\" takes an argument to demangle.\n");
    }
  else
    {
      demangled = cplus_demangle (args, DMGL_ANSI | DMGL_PARAMS);
      if (demangled != NULL)
	{
	  printf ("%s\n", demangled);
	  free (demangled);
	}
      else
	{
	  printf ("Can't demangle \"%s\"\n", args);
	}
    }
}

/* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
   Therefore, its own definition is called only for "maintenance info" with
   no args.  */

/* ARGSUSED */
static void
maintenance_info_command (arg, from_tty)
     char *arg;
     int from_tty;
{
  printf ("\"maintenance info\" must be followed by the name of an info command.\n");
  help_list (maintenanceinfolist, "maintenance info ", -1, stdout);
}

static void
print_section_table (abfd, asect, ignore)
     bfd *abfd;
     asection *asect;
     PTR ignore;
{
  flagword flags;

  flags = bfd_get_section_flags (abfd, asect);

  printf_filtered ("    %s",
		   local_hex_string_custom
		     ((unsigned long) bfd_section_vma (abfd, asect), "08l"));
  printf_filtered ("->%s",
		   local_hex_string_custom
		     ((unsigned long) (bfd_section_vma (abfd, asect)
				       + bfd_section_size (abfd, asect)),
		      "08l"));
  printf_filtered (" at %s",
		   local_hex_string_custom
		     ((unsigned long) asect->filepos, "08l"));
  printf_filtered (": %s", bfd_section_name (abfd, asect));

  if (flags & SEC_ALLOC)
    printf_filtered (" ALLOC");
  if (flags & SEC_LOAD)
    printf_filtered (" LOAD");
  if (flags & SEC_RELOC)
    printf_filtered (" RELOC");
  if (flags & SEC_READONLY)
    printf_filtered (" READONLY");
  if (flags & SEC_CODE)
    printf_filtered (" CODE");
  if (flags & SEC_DATA)
    printf_filtered (" DATA");
  if (flags & SEC_ROM)
    printf_filtered (" ROM");
  if (flags & SEC_CONSTRUCTOR)
    printf_filtered (" CONSTRUCTOR");
  if (flags & SEC_HAS_CONTENTS)
    printf_filtered (" HAS_CONTENTS");
  if (flags & SEC_NEVER_LOAD)
    printf_filtered (" NEVER_LOAD");
  if (flags & SEC_SHARED_LIBRARY)
    printf_filtered (" SHARED_LIBRARY");
  if (flags & SEC_IS_COMMON)
    printf_filtered (" IS_COMMON");

  printf_filtered ("\n");
}

/* ARGSUSED */
static void
maintenance_info_sections (arg, from_tty)
     char *arg;
     int from_tty;
{
  if (exec_bfd)
    {
      printf_filtered ("Exec file:\n");
      printf_filtered ("    `%s', ", bfd_get_filename(exec_bfd));
      wrap_here ("        ");
      printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd));
      bfd_map_over_sections(exec_bfd, print_section_table, 0);
    }

  if (core_bfd)
    {
      printf_filtered ("Core file:\n");
      printf_filtered ("    `%s', ", bfd_get_filename(core_bfd));
      wrap_here ("        ");
      printf_filtered ("file type %s.\n", bfd_get_target(core_bfd));
      bfd_map_over_sections(core_bfd, print_section_table, 0);
    }
}

/* The "maintenance print" command is defined as a prefix, with allow_unknown
   0.  Therefore, its own definition is called only for "maintenance print"
   with no args.  */

/* ARGSUSED */
static void
maintenance_print_command (arg, from_tty)
     char *arg;
     int from_tty;
{
  printf ("\"maintenance print\" must be followed by the name of a print command.\n");
  help_list (maintenanceprintlist, "maintenance print ", -1, stdout);
}

/*

GLOBAL FUNCTION

	_initialize_maint_cmds -- initialize the process file system stuff

SYNOPSIS

	void _initialize_maint_cmds (void)

DESCRIPTION

	Do required initializations during gdb startup for using the
	/proc file system interface.

*/


void
_initialize_maint_cmds ()
{
  add_prefix_cmd ("maintenance", class_maintenance, maintenance_command,
		  "Commands for use by GDB maintainers.\n\
Includes commands to dump specific internal GDB structures in\n\
a human readable form, to cause GDB to deliberately dump core,\n\
to test internal functions such as the C++ demangler, etc.",
		  &maintenancelist, "maintenance ", 0,
		  &cmdlist);

  add_com_alias ("mt", "maintenance", class_maintenance, 1);

  add_prefix_cmd ("info", class_maintenance, maintenance_info_command,
		  "Commands for showing internal info about the program being debugged.",
		  &maintenanceinfolist, "maintenance info ", 0,
		  &maintenancelist);

  add_cmd ("sections", class_maintenance, maintenance_info_sections,
	   "List the BFD sections of the exec and core files.",
	   &maintenanceinfolist);

  add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
		  "Maintenance command for printing GDB internal state.",
		  &maintenanceprintlist, "maintenance print ", 0,
		  &maintenancelist);

  add_cmd ("dump-me", class_maintenance, maintenance_dump_me,
	   "Get fatal error; make debugger dump its core.\n\
GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
itself a SIGQUIT signal.",
	   &maintenancelist);

  add_cmd ("demangle", class_maintenance, maintenance_demangle,
	   "Demangle a C++ mangled name.\n\
Call internal GDB demangler routine to demangle a C++ link name\n\
and prints the result.",
	   &maintenancelist);

  add_cmd ("type", class_maintenance, maintenance_print_type,
	   "Print a type chain for a given symbol.\n\
For each node in a type chain, print the raw data for each member of\n\
the type structure, and the interpretation of the data.",
	   &maintenanceprintlist);

  add_cmd ("symbols", class_maintenance, maintenance_print_symbols,
	   "Print dump of current symbol definitions.\n\
Entries in the full symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's symbols.",
	   &maintenanceprintlist);

  add_cmd ("msymbols", class_maintenance, maintenance_print_msymbols,
	   "Print dump of current minimal symbol definitions.\n\
Entries in the minimal symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's minimal symbols.",
	   &maintenanceprintlist);

  add_cmd ("psymbols", class_maintenance, maintenance_print_psymbols,
	   "Print dump of current partial symbol definitions.\n\
Entries in the partial symbol table are dumped to file OUTFILE.\n\
If a SOURCE file is specified, dump only that file's partial symbols.",
	   &maintenanceprintlist);

  add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles,
	   "Print dump of current object file definitions.",
	   &maintenanceprintlist);

}

#endif	/* MAINTENANCE_CMDS */
Commit	Line	Data
	1	/* Support for GDB maintenance commands.
	2	Copyright (C) 1992 Free Software Foundation, Inc.
	3	Written by Fred Fish at Cygnus Support.
	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., 675 Mass Ave, Cambridge, MA 02139, USA. */
	20
	21
	22	#include "defs.h"
	23
	24	#if MAINTENANCE_CMDS /* Entire file goes away if not including maint cmds */
	25
	26	#include <signal.h>
	27	#include "command.h"
	28	#include "gdbcmd.h"
	29	#include "symtab.h"
	30	#include "gdbtypes.h"
	31	#include "demangle.h"
	32	#include "gdbcore.h"
	33
	34	static void
	35	maintenance_command PARAMS ((char *, int));
	36
	37	static void
	38	maintenance_dump_me PARAMS ((char *, int));
	39
	40	static void
	41	maintenance_demangle PARAMS ((char *, int));
	42
	43	/*
	44
	45	LOCAL FUNCTION
	46
	47	maintenance_command -- access the maintenance subcommands
	48
	49	SYNOPSIS
	50
	51	void maintenance_command (char *args, int from_tty)
	52
	53	DESCRIPTION
	54
	55	*/
	56
	57	static void
	58	maintenance_command (args, from_tty)
	59	char *args;
	60	int from_tty;
	61	{
	62	printf ("\"maintenance\" must be followed by the name of a maintenance command.\n");
	63	help_list (maintenancelist, "maintenance ", -1, stdout);
	64	}
	65
	66
	67	/* ARGSUSED */
	68	static void
	69	maintenance_dump_me (args, from_tty)
	70	char *args;
	71	int from_tty;
	72	{
	73	if (query ("Should GDB dump core? "))
	74	{
	75	signal (SIGQUIT, SIG_DFL);
	76	kill (getpid (), SIGQUIT);
	77	}
	78	}
	79
	80	/* Someday we should allow demangling for things other than just
	81	explicit strings. For example, we might want to be able to
	82	specify the address of a string in either GDB's process space
	83	or the debuggee's process space, and have gdb fetch and demangle
	84	that string. If we have a char* pointer "ptr" that points to
	85	a string, we might want to be able to given just the name and
	86	have GDB demangle and print what it points to, etc. (FIXME) */
	87
	88	static void
	89	maintenance_demangle (args, from_tty)
	90	char *args;
	91	int from_tty;
	92	{
	93	char *demangled;
	94
	95	if (args == NULL \|\| *args == '\0')
	96	{
	97	printf ("\"maintenance demangle\" takes an argument to demangle.\n");
	98	}
	99	else
	100	{
	101	demangled = cplus_demangle (args, DMGL_ANSI \| DMGL_PARAMS);
	102	if (demangled != NULL)
	103	{
	104	printf ("%s\n", demangled);
	105	free (demangled);
	106	}
	107	else
	108	{
	109	printf ("Can't demangle \"%s\"\n", args);
	110	}
	111	}
	112	}
	113
	114	/* The "maintenance info" command is defined as a prefix, with allow_unknown 0.
	115	Therefore, its own definition is called only for "maintenance info" with
	116	no args. */
	117
	118	/* ARGSUSED */
	119	static void
	120	maintenance_info_command (arg, from_tty)
	121	char *arg;
	122	int from_tty;
	123	{
	124	printf ("\"maintenance info\" must be followed by the name of an info command.\n");
	125	help_list (maintenanceinfolist, "maintenance info ", -1, stdout);
	126	}
	127
	128	static void
	129	print_section_table (abfd, asect, ignore)
	130	bfd *abfd;
	131	asection *asect;
	132	PTR ignore;
	133	{
	134	flagword flags;
	135
	136	flags = bfd_get_section_flags (abfd, asect);
	137
	138	printf_filtered (" %s",
	139	local_hex_string_custom
	140	((unsigned long) bfd_section_vma (abfd, asect), "08l"));
	141	printf_filtered ("->%s",
	142	local_hex_string_custom
	143	((unsigned long) (bfd_section_vma (abfd, asect)
	144	+ bfd_section_size (abfd, asect)),
	145	"08l"));
	146	printf_filtered (" at %s",
	147	local_hex_string_custom
	148	((unsigned long) asect->filepos, "08l"));
	149	printf_filtered (": %s", bfd_section_name (abfd, asect));
	150
	151	if (flags & SEC_ALLOC)
	152	printf_filtered (" ALLOC");
	153	if (flags & SEC_LOAD)
	154	printf_filtered (" LOAD");
	155	if (flags & SEC_RELOC)
	156	printf_filtered (" RELOC");
	157	if (flags & SEC_READONLY)
	158	printf_filtered (" READONLY");
	159	if (flags & SEC_CODE)
	160	printf_filtered (" CODE");
	161	if (flags & SEC_DATA)
	162	printf_filtered (" DATA");
	163	if (flags & SEC_ROM)
	164	printf_filtered (" ROM");
	165	if (flags & SEC_CONSTRUCTOR)
	166	printf_filtered (" CONSTRUCTOR");
	167	if (flags & SEC_HAS_CONTENTS)
	168	printf_filtered (" HAS_CONTENTS");
	169	if (flags & SEC_NEVER_LOAD)
	170	printf_filtered (" NEVER_LOAD");
	171	if (flags & SEC_SHARED_LIBRARY)
	172	printf_filtered (" SHARED_LIBRARY");
	173	if (flags & SEC_IS_COMMON)
	174	printf_filtered (" IS_COMMON");
	175
	176	printf_filtered ("\n");
	177	}
	178
	179	/* ARGSUSED */
	180	static void
	181	maintenance_info_sections (arg, from_tty)
	182	char *arg;
	183	int from_tty;
	184	{
	185	if (exec_bfd)
	186	{
	187	printf_filtered ("Exec file:\n");
	188	printf_filtered (" `%s', ", bfd_get_filename(exec_bfd));
	189	wrap_here (" ");
	190	printf_filtered ("file type %s.\n", bfd_get_target(exec_bfd));
	191	bfd_map_over_sections(exec_bfd, print_section_table, 0);
	192	}
	193
	194	if (core_bfd)
	195	{
	196	printf_filtered ("Core file:\n");
	197	printf_filtered (" `%s', ", bfd_get_filename(core_bfd));
	198	wrap_here (" ");
	199	printf_filtered ("file type %s.\n", bfd_get_target(core_bfd));
	200	bfd_map_over_sections(core_bfd, print_section_table, 0);
	201	}
	202	}
	203
	204	/* The "maintenance print" command is defined as a prefix, with allow_unknown
	205	0. Therefore, its own definition is called only for "maintenance print"
	206	with no args. */
	207
	208	/* ARGSUSED */
	209	static void
	210	maintenance_print_command (arg, from_tty)
	211	char *arg;
	212	int from_tty;
	213	{
	214	printf ("\"maintenance print\" must be followed by the name of a print command.\n");
	215	help_list (maintenanceprintlist, "maintenance print ", -1, stdout);
	216	}
	217
	218	/*
	219
	220	GLOBAL FUNCTION
	221
	222	_initialize_maint_cmds -- initialize the process file system stuff
	223
	224	SYNOPSIS
	225
	226	void _initialize_maint_cmds (void)
	227
	228	DESCRIPTION
	229
	230	Do required initializations during gdb startup for using the
	231	/proc file system interface.
	232
	233	*/
	234
	235
	236	void
	237	_initialize_maint_cmds ()
	238	{
	239	add_prefix_cmd ("maintenance", class_maintenance, maintenance_command,
	240	"Commands for use by GDB maintainers.\n\
	241	Includes commands to dump specific internal GDB structures in\n\
	242	a human readable form, to cause GDB to deliberately dump core,\n\
	243	to test internal functions such as the C++ demangler, etc.",
	244	&maintenancelist, "maintenance ", 0,
	245	&cmdlist);
	246
	247	add_com_alias ("mt", "maintenance", class_maintenance, 1);
	248
	249	add_prefix_cmd ("info", class_maintenance, maintenance_info_command,
	250	"Commands for showing internal info about the program being debugged.",
	251	&maintenanceinfolist, "maintenance info ", 0,
	252	&maintenancelist);
	253
	254	add_cmd ("sections", class_maintenance, maintenance_info_sections,
	255	"List the BFD sections of the exec and core files.",
	256	&maintenanceinfolist);
	257
	258	add_prefix_cmd ("print", class_maintenance, maintenance_print_command,
	259	"Maintenance command for printing GDB internal state.",
	260	&maintenanceprintlist, "maintenance print ", 0,
	261	&maintenancelist);
	262
	263	add_cmd ("dump-me", class_maintenance, maintenance_dump_me,
	264	"Get fatal error; make debugger dump its core.\n\
	265	GDB sets it's handling of SIGQUIT back to SIG_DFL and then sends\n\
	266	itself a SIGQUIT signal.",
	267	&maintenancelist);
	268
	269	add_cmd ("demangle", class_maintenance, maintenance_demangle,
	270	"Demangle a C++ mangled name.\n\
	271	Call internal GDB demangler routine to demangle a C++ link name\n\
	272	and prints the result.",
	273	&maintenancelist);
	274
	275	add_cmd ("type", class_maintenance, maintenance_print_type,
	276	"Print a type chain for a given symbol.\n\
	277	For each node in a type chain, print the raw data for each member of\n\
	278	the type structure, and the interpretation of the data.",
	279	&maintenanceprintlist);
	280
	281	add_cmd ("symbols", class_maintenance, maintenance_print_symbols,
	282	"Print dump of current symbol definitions.\n\
	283	Entries in the full symbol table are dumped to file OUTFILE.\n\
	284	If a SOURCE file is specified, dump only that file's symbols.",
	285	&maintenanceprintlist);
	286
	287	add_cmd ("msymbols", class_maintenance, maintenance_print_msymbols,
	288	"Print dump of current minimal symbol definitions.\n\
	289	Entries in the minimal symbol table are dumped to file OUTFILE.\n\
	290	If a SOURCE file is specified, dump only that file's minimal symbols.",
	291	&maintenanceprintlist);
	292
	293	add_cmd ("psymbols", class_maintenance, maintenance_print_psymbols,
	294	"Print dump of current partial symbol definitions.\n\
	295	Entries in the partial symbol table are dumped to file OUTFILE.\n\
	296	If a SOURCE file is specified, dump only that file's partial symbols.",
	297	&maintenanceprintlist);
	298
	299	add_cmd ("objfiles", class_maintenance, maintenance_print_objfiles,
	300	"Print dump of current object file definitions.",
	301	&maintenanceprintlist);
	302
	303	}
	304
	305	#endif /* MAINTENANCE_CMDS */