diff options
Diffstat (limited to 'contrib/gdb/gdb/kod.c')
| -rw-r--r-- | contrib/gdb/gdb/kod.c | 241 |
1 files changed, 0 insertions, 241 deletions
diff --git a/contrib/gdb/gdb/kod.c b/contrib/gdb/gdb/kod.c deleted file mode 100644 index 6cb3622f87a8..000000000000 --- a/contrib/gdb/gdb/kod.c +++ /dev/null @@ -1,241 +0,0 @@ -/* Kernel Object Display generic routines and callbacks - Copyright 1998, 1999, 2000 Free Software Foundation, Inc. - - Written by Fernando Nasser <fnasser@cygnus.com> for Cygnus Solutions. - - 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., 59 Temple Place - Suite 330, - Boston, MA 02111-1307, USA. */ - -#include "defs.h" -#include "command.h" -#include "gdbcmd.h" -#include "target.h" -#include "gdb_string.h" -#include "kod.h" - -/* Prototypes for exported functions. */ -void _initialize_kod (void); - -/* Prototypes for local functions. */ -static void info_kod_command (char *, int); -static void load_kod_library (char *); - -/* Prototypes for callbacks. These are passed into the KOD modules. */ -static void gdb_kod_display (char *); -static void gdb_kod_query (char *, char *, int *); - -/* These functions are imported from the KOD module. - - gdb_kod_open - initiates the KOD connection to the remote. The - first argument is the display function the module should use to - communicate with the user. The second argument is the query - function the display should use to communicate with the target. - This should call error() if there is an error. Otherwise it should - return a malloc()d string of the form: - - NAME VERSION - DESCRIPTION - - Neither NAME nor VERSION should contain a hyphen. - - - gdb_kod_request - This is used when the user enters an "info - <module>" request. The remaining arguments are passed as the first - argument. The second argument is the standard `from_tty' - argument. - - - gdb_kod_close - This is called when the KOD connection to the - remote should be terminated. */ - -static char *(*gdb_kod_open) (kod_display_callback_ftype *display, - kod_query_callback_ftype *query); -static void (*gdb_kod_request) (char *, int); -static void (*gdb_kod_close) (); - - -/* Name of inferior's operating system. */ -char *operating_system; - -/* We save a copy of the OS so that we can properly reset when - switching OS's. */ -static char *old_operating_system; - -/* Print a line of data generated by the module. */ - -static void -gdb_kod_display (char *arg) -{ - printf_filtered ("%s", arg); -} - -/* Queries the target on behalf of the module. */ - -static void -gdb_kod_query (char *arg, char *result, int *maxsiz) -{ - LONGEST bufsiz = 0; - - /* Check if current target has remote_query capabilities. If not, - it does not have kod either. */ - bufsiz = target_read_partial (¤t_target, TARGET_OBJECT_KOD, - NULL, NULL, 0, 0); - if (bufsiz < 0) - { - strcpy (result, - "ERR: Kernel Object Display not supported by current target\n"); - return; - } - - /* Just get the maximum buffer size. */ - - /* Check if *we* were called just for getting the buffer size. */ - if (*maxsiz == 0) - { - *maxsiz = bufsiz; - strcpy (result, "OK"); - return; - } - - /* Check if caller can handle a buffer this large, if not, adjust. */ - if (bufsiz > *maxsiz) - bufsiz = *maxsiz; - - /* See if buffer can hold the query (usually it can, as the query is - short). */ - if (strlen (arg) >= bufsiz) - error ("kod: query argument too long"); - - /* Send actual request. */ - if (target_read_partial (¤t_target, TARGET_OBJECT_KOD, - arg, result, 0, bufsiz) < 0) - strcpy (result, "ERR: remote query failed"); -} - -/* Print name of kod command after selecting the appropriate kod - formatting library module. As a side effect we create a new "info" - subcommand which is what the user actually uses to query the OS. */ - -static void -kod_set_os (char *arg, int from_tty, struct cmd_list_element *command) -{ - char *p; - - /* NOTE: cagney/2002-03-17: The add_show_from_set() function clones - the set command passed as a parameter. The clone operation will - include (BUG?) any ``set'' command callback, if present. - Commands like ``info set'' call all the ``show'' command - callbacks. Unfortunately, for ``show'' commands cloned from - ``set'', this includes callbacks belonging to ``set'' commands. - Making this worse, this only occures if add_show_from_set() is - called after add_cmd_sfunc() (BUG?). */ - - if (cmd_type (command) != set_cmd) - return; - - /* If we had already had an open OS, close it. */ - if (gdb_kod_close) - (*gdb_kod_close) (); - - /* Also remove the old OS's command. */ - if (old_operating_system) - { - delete_cmd (old_operating_system, &infolist); - xfree (old_operating_system); - } - - if (! operating_system || ! *operating_system) - { - /* If user set operating system to empty, we want to forget we - had a module open. Setting these variables is just nice for - debugging and clarity. */ - gdb_kod_open = NULL; - gdb_kod_request = NULL; - gdb_kod_close = NULL; - } - else - { - char *kodlib; - - old_operating_system = xstrdup (operating_system); - - load_kod_library (operating_system); - - kodlib = (*gdb_kod_open) (gdb_kod_display, gdb_kod_query); - - /* Add kod related info commands to gdb. */ - add_info (operating_system, info_kod_command, - "Displays information about Kernel Objects."); - - p = strrchr (kodlib, '-'); - if (p != NULL) - p++; - else - p = "Unknown KOD library"; - printf_filtered ("%s - %s\n", operating_system, p); - - xfree (kodlib); - } -} - -/* Print information about currently known kernel objects of the - specified type or a list of all known kernel object types if - argument is empty. */ - -static void -info_kod_command (char *arg, int from_tty) -{ - (*gdb_kod_request) (arg, from_tty); -} - -/* Print name of kod command after selecting the appropriate kod - formatting library module. */ - -static void -load_kod_library (char *lib) -{ -#if 0 - /* FIXME: Don't have the eCos code here. */ - if (! strcmp (lib, "ecos")) - { - gdb_kod_open = ecos_kod_open; - gdb_kod_request = ecos_kod_request; - gdb_kod_close = ecos_kod_close; - } - else -#endif /* 0 */ - if (! strcmp (lib, "cisco")) - { - gdb_kod_open = cisco_kod_open; - gdb_kod_request = cisco_kod_request; - gdb_kod_close = cisco_kod_close; - } - else - error ("Unknown operating system: %s\n", operating_system); -} - -void -_initialize_kod (void) -{ - struct cmd_list_element *c; - - c = add_set_cmd ("os", no_class, var_string, - (char *) &operating_system, - "Set operating system", - &setlist); - set_cmd_sfunc (c, kod_set_os); - add_show_from_set (c, &showlist); -} |