From 021e7609055e94c3b2f0ac757c9640d393ed2000 Mon Sep 17 00:00:00 2001 From: Andrew Cagney Date: Fri, 14 Feb 2003 13:58:06 +0000 Subject: [PATCH] 2003-02-14 Andrew Cagney * main.c (tui_version): Delete variable. (captured_main): When --tui, set interpreter_p to "tui" instead of enabling tui_version. * printcmd.c (display_command) [TUI]: Test tui_active instead of tui_version. * cli/cli-decode.c (lookup_cmd_composition): Ditto. * cli/cli-cmds.c (disassemble_command): Ditto. * defs.h (tui_version): Delete declaration. * Makefile.in (SUBDIR_TUI_SRCS): Add "tui/tui-interp.c". (tui-interp.o): Add rules. (SUBDIR_TUI_OBS): Add "tui-interp.o". Index: tui/ChangeLog 2003-02-14 Andrew Cagney * tui.c (tui_enable, tui_disable): Don't modify tui_version. (tui_is_window_visible, tui_get_command_dimension): Test tui_active instead of tui_version. * tuiData.h (tui_version): Delete declaration. * tui-hooks.c (tui_init_hook, tui_event_loop): Delete function, moved to "tui-interp.c". (tui_exit, tui_command_loop): Ditto. (_initialize_tui): Don't initialize init_ui_hook. Initialize target_new_objfile_hook. * tui-interp.c: New file. --- gdb/ChangeLog | 14 ++++ gdb/Makefile.in | 6 ++ gdb/cli/cli-cmds.c | 8 +- gdb/cli/cli-decode.c | 8 +- gdb/defs.h | 3 - gdb/main.c | 21 ++--- gdb/printcmd.c | 4 +- gdb/tui/ChangeLog | 13 ++++ gdb/tui/tui-hooks.c | 127 +----------------------------- gdb/tui/tui-interp.c | 180 +++++++++++++++++++++++++++++++++++++++++++ gdb/tui/tui.c | 6 +- gdb/tui/tuiData.h | 1 - 12 files changed, 239 insertions(+), 152 deletions(-) create mode 100644 gdb/tui/tui-interp.c diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 0ed5d06e9a..77cdd65fd6 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,17 @@ +2003-02-14 Andrew Cagney + + * main.c (tui_version): Delete variable. + (captured_main): When --tui, set interpreter_p to "tui" instead of + enabling tui_version. + * printcmd.c (display_command) [TUI]: Test tui_active instead of + tui_version. + * cli/cli-decode.c (lookup_cmd_composition): Ditto. + * cli/cli-cmds.c (disassemble_command): Ditto. + * defs.h (tui_version): Delete declaration. + * Makefile.in (SUBDIR_TUI_SRCS): Add "tui/tui-interp.c". + (tui-interp.o): Add rules. + (SUBDIR_TUI_OBS): Add "tui-interp.o". + 2003-02-14 Christopher Faylor * win32-nat.cc (register_loaded_dll): Correctly set address range for diff --git a/gdb/Makefile.in b/gdb/Makefile.in index 4783d134cc..f2955b83c7 100644 --- a/gdb/Makefile.in +++ b/gdb/Makefile.in @@ -194,11 +194,13 @@ SUBDIR_MI_UNINSTALL= # SUBDIR_TUI_OBS = \ tui-file.o tui.o tuiData.o tuiSource.o tuiStack.o tuiIO.o \ + tui-interp.o \ tuiGeneralWin.o tuiLayout.o tuiWin.o tuiCommand.o \ tuiDisassem.o tuiSourceWin.o tuiRegs.o tuiDataWin.o \ tui-out.o tui-hooks.o SUBDIR_TUI_SRCS = \ tui/tui-file.c tui/tui.c tui/tuiData.c tui/tuiSource.c \ + tui/tui-interp.c \ tui/tuiStack.c tui/tuiIO.c \ tui/tuiGeneralWin.c tui/tuiLayout.c \ tui/tuiWin.c tui/tuiCommand.c \ @@ -2573,6 +2575,10 @@ tui-hooks.o: $(srcdir)/tui/tui-hooks.c $(config_h) $(defs_h) $(symtab_h) \ $(tuiRegs_h) $(tuiWin_h) $(tuiStack_h) $(tuiDataWin_h) \ $(tuiSourceWin_h) $(readline_h) $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/tui/tui-hooks.c +tui-interp.o: $(srcdir)/tui/tui-interp.c $(defs_h) $(interps_h) $(top_h) \ + $(event_top_h) $(event_loop_h) $(ui_out_h) $(tui_tuiData_h) \ + $(readline_h) $(tui_tuiWin_h) $(tui_h) $(tui_tuiIO_h) + $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/tui/tui-interp.c tui-out.o: $(srcdir)/tui/tui-out.c $(defs_h) $(ui_out_h) $(tui_h) \ $(gdb_string_h) $(gdb_assert_h) $(CC) -c $(INTERNAL_CFLAGS) $(srcdir)/tui/tui-out.c diff --git a/gdb/cli/cli-cmds.c b/gdb/cli/cli-cmds.c index 154ecf68ff..85dd689cea 100644 --- a/gdb/cli/cli-cmds.c +++ b/gdb/cli/cli-cmds.c @@ -852,7 +852,9 @@ disassemble_command (char *arg, int from_tty) if (find_pc_partial_function (pc, &name, &low, &high) == 0) error ("No function contains program counter for selected frame.\n"); #if defined(TUI) - else if (tui_version) + /* NOTE: cagney/2003-02-13 The `tui_active' was previously + `tui_version'. */ + else if (tui_active) low = tuiGetLowDisassemblyAddress (low, pc); #endif low += FUNCTION_START_OFFSET; @@ -864,7 +866,9 @@ disassemble_command (char *arg, int from_tty) if (find_pc_partial_function (pc, &name, &low, &high) == 0) error ("No function contains specified address.\n"); #if defined(TUI) - else if (tui_version) + /* NOTE: cagney/2003-02-13 The `tui_active' was previously + `tui_version'. */ + else if (tui_active) low = tuiGetLowDisassemblyAddress (low, pc); #endif low += FUNCTION_START_OFFSET; diff --git a/gdb/cli/cli-decode.c b/gdb/cli/cli-decode.c index bce0c2d3f4..a9979f633b 100644 --- a/gdb/cli/cli-decode.c +++ b/gdb/cli/cli-decode.c @@ -923,9 +923,11 @@ lookup_cmd_1 (char **text, struct cmd_list_element *clist, /* Treating underscores as part of command words is important so that "set args_foo()" doesn't get interpreted as "set args _foo()". */ + /* NOTE: cagney/2003-02-13 The `tui_active' was previously + `tui_version'. */ for (p = *text; *p && (isalnum (*p) || *p == '-' || *p == '_' || - (tui_version && + (tui_active && (*p == '+' || *p == '<' || *p == '>' || *p == '$')) || (xdb_commands && (*p == '!' || *p == '/' || *p == '?'))); p++) @@ -1293,9 +1295,11 @@ lookup_cmd_composition (char *text, /* Treating underscores as part of command words is important so that "set args_foo()" doesn't get interpreted as "set args _foo()". */ + /* NOTE: cagney/2003-02-13 The `tui_active' was previously + `tui_version'. */ for (p = text; *p && (isalnum (*p) || *p == '-' || *p == '_' || - (tui_version && + (tui_active && (*p == '+' || *p == '<' || *p == '>' || *p == '$')) || (xdb_commands && (*p == '!' || *p == '/' || *p == '?'))); p++) diff --git a/gdb/defs.h b/gdb/defs.h index faa0b402b1..7caef76cf1 100644 --- a/gdb/defs.h +++ b/gdb/defs.h @@ -160,9 +160,6 @@ typedef bfd_vma CORE_ADDR; /* Check if a character is one of the commonly used C++ marker characters. */ extern int is_cplus_marker (int); -/* use tui interface if non-zero */ -extern int tui_version; - /* enable xdb commands if set */ extern int xdb_commands; diff --git a/gdb/main.c b/gdb/main.c index 656e7d52fd..74208de753 100644 --- a/gdb/main.c +++ b/gdb/main.c @@ -60,9 +60,6 @@ int event_loop_p = 1; do_setshow_command will free it. */ char *interpreter_p; -/* Whether this is the command line version or not */ -int tui_version = 0; - /* Whether xdb commands will be handled */ int xdb_commands = 0; @@ -245,7 +242,7 @@ captured_main (void *data) {"async", no_argument, &event_loop_p, 1}, {"noasync", no_argument, &event_loop_p, 0}, #if defined(TUI) - {"tui", no_argument, &tui_version, 1}, + {"tui", no_argument, 0, 14}, #endif {"xdb", no_argument, &xdb_commands, 1}, {"dbx", no_argument, &dbx_commands, 1}, @@ -339,6 +336,11 @@ captured_main (void *data) display_time = 1; display_space = 1; break; + case 14: + /* --tui is equivalent to -i=tui. */ + xfree (interpreter_p); + interpreter_p = xstrdup ("tui"); + break; case 'f': annotation_level = 1; /* We have probably been invoked from emacs. Disable window interface. */ @@ -455,19 +457,8 @@ extern int gdbtk_test (char *); if (print_help || print_version) { use_windows = 0; -#ifdef TUI - /* Disable the TUI as well. */ - tui_version = 0; -#endif } -#ifdef TUI - /* An explicit --tui flag overrides the default UI, which is the - window system. */ - if (tui_version) - use_windows = 0; -#endif - if (set_args) { /* The remaining options are the command-line options for the diff --git a/gdb/printcmd.c b/gdb/printcmd.c index 657fa5ebb1..e2406c7b10 100644 --- a/gdb/printcmd.c +++ b/gdb/printcmd.c @@ -1363,7 +1363,9 @@ display_command (char *exp, int from_tty) int display_it = 1; #if defined(TUI) - if (tui_version && *exp == '$') + /* NOTE: cagney/2003-02-13 The `tui_active' was previously + `tui_version'. */ + if (tui_active && *exp == '$') display_it = (tui_set_layout (exp) == TUI_FAILURE); #endif diff --git a/gdb/tui/ChangeLog b/gdb/tui/ChangeLog index e11ee2349b..c3e659db39 100644 --- a/gdb/tui/ChangeLog +++ b/gdb/tui/ChangeLog @@ -1,3 +1,16 @@ +2003-02-14 Andrew Cagney + + * tui.c (tui_enable, tui_disable): Don't modify tui_version. + (tui_is_window_visible, tui_get_command_dimension): Test + tui_active instead of tui_version. + * tuiData.h (tui_version): Delete declaration. + * tui-hooks.c (tui_init_hook, tui_event_loop): Delete function, + moved to "tui-interp.c". + (tui_exit, tui_command_loop): Ditto. + (_initialize_tui): Don't initialize init_ui_hook. Initialize + target_new_objfile_hook. + * tui-interp.c: New file. + 2003-02-12 Andrew Cagney * tuiIO.c (tui_prep_terminal): Add one notused parameter. diff --git a/gdb/tui/tui-hooks.c b/gdb/tui/tui-hooks.c index ff36d49778..db6c3f666b 100644 --- a/gdb/tui/tui-hooks.c +++ b/gdb/tui/tui-hooks.c @@ -69,8 +69,6 @@ int tui_target_has_run = 0; static void (* tui_target_new_objfile_chain) (struct objfile*); -static void tui_event_loop (void); -static void tui_command_loop (void); static void tui_new_objfile_hook (struct objfile* objfile) @@ -325,131 +323,12 @@ tui_remove_hooks (void) set_gdb_event_hooks (tui_old_event_hooks); } -/* Cleanup the tui before exiting. */ -static void -tui_exit (void) -{ - /* Disable the tui. Curses mode is left leaving the screen - in a clean state (see endwin()). */ - tui_disable (); -} - -/* Initialize all the necessary variables, start the event loop, - register readline, and stdin, start the loop. */ -static void -tui_command_loop (void) -{ - int length; - char *a_prompt; - char *gdb_prompt = get_prompt (); - - /* If we are using readline, set things up and display the first - prompt, otherwise just print the prompt. */ - if (async_command_editing_p) - { - /* Tell readline what the prompt to display is and what function it - will need to call after a whole line is read. This also displays - the first prompt. */ - length = strlen (PREFIX (0)) + strlen (gdb_prompt) + strlen (SUFFIX (0)) + 1; - a_prompt = (char *) xmalloc (length); - strcpy (a_prompt, PREFIX (0)); - strcat (a_prompt, gdb_prompt); - strcat (a_prompt, SUFFIX (0)); - rl_callback_handler_install (a_prompt, input_handler); - } - else - display_gdb_prompt (0); - - /* Now it's time to start the event loop. */ - tui_event_loop (); -} - -/* Start up the event loop. This is the entry point to the event loop - from the command loop. */ - -static void -tui_event_loop (void) -{ - /* Loop until there is nothing to do. This is the entry point to the - event loop engine. gdb_do_one_event, called via catch_errors() - will process one event for each invocation. It blocks waits for - an event and then processes it. >0 when an event is processed, 0 - when catch_errors() caught an error and <0 when there are no - longer any event sources registered. */ - while (1) - { - int result = catch_errors (gdb_do_one_event, 0, "", RETURN_MASK_ALL); - if (result < 0) - break; - - /* Update gdb output according to TUI mode. Since catch_errors - preserves the uiout from changing, this must be done at top - level of event loop. */ - if (tui_active) - uiout = tui_out; - else - uiout = tui_old_uiout; - - if (result == 0) - { - /* FIXME: this should really be a call to a hook that is - interface specific, because interfaces can display the - prompt in their own way. */ - display_gdb_prompt (0); - /* This call looks bizarre, but it is required. If the user - entered a command that caused an error, - after_char_processing_hook won't be called from - rl_callback_read_char_wrapper. Using a cleanup there - won't work, since we want this function to be called - after a new prompt is printed. */ - if (after_char_processing_hook) - (*after_char_processing_hook) (); - /* Maybe better to set a flag to be checked somewhere as to - whether display the prompt or not. */ - } - } +void _initialize_tui_hooks (void); - /* We are done with the event loop. There are no more event sources - to listen to. So we exit GDB. */ - return; -} - -/* Initialize the tui by installing several gdb hooks, initializing - the tui IO and preparing the readline with the kind binding. */ -static void -tui_init_hook (char *argv0) +void +_initialize_tui_hooks (void) { - /* Don't enable the TUI if a specific interpreter is installed. */ - if (interpreter_p) - return; - - /* Install exit handler to leave the screen in a good shape. */ - atexit (tui_exit); - - initializeStaticData (); - /* Install the permanent hooks. */ tui_target_new_objfile_chain = target_new_objfile_hook; target_new_objfile_hook = tui_new_objfile_hook; - - tui_initialize_io (); - tui_initialize_readline (); - - /* Tell gdb to use the tui_command_loop as the main loop. */ - command_loop_hook = tui_command_loop; - - /* Decide in which mode to start using GDB (based on -tui). */ - if (tui_version) - { - tui_enable (); - } } - -/* Initialize the tui. */ -void -_initialize_tui (void) -{ - /* Setup initialization hook. */ - init_ui_hook = tui_init_hook; -} - diff --git a/gdb/tui/tui-interp.c b/gdb/tui/tui-interp.c new file mode 100644 index 0000000000..f935ea4094 --- /dev/null +++ b/gdb/tui/tui-interp.c @@ -0,0 +1,180 @@ +/* TUI Interpreter definitions for GDB, the GNU debugger. + + Copyright 2003 Free Software Foundation, Inc. + + 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 "interps.h" +#include "top.h" +#include "event-top.h" +#include "event-loop.h" +#include "ui-out.h" +#include "tui/tuiData.h" +#include "readline/readline.h" +#include "tui/tuiWin.h" +#include "tui/tui.h" +#include "tui/tuiIO.h" + +/* Cleanup the tui before exiting. */ + +static void +tui_exit (void) +{ + /* Disable the tui. Curses mode is left leaving the screen + in a clean state (see endwin()). */ + tui_disable (); +} + +/* These implement the TUI interpreter. */ + +static void * +tui_init (void) +{ + /* Install exit handler to leave the screen in a good shape. */ + atexit (tui_exit); + + initializeStaticData (); + + tui_initialize_io (); + tui_initialize_readline (); + + return NULL; +} + +static int +tui_resume (void *data) +{ + gdb_setup_readline (); + tui_enable (); + return 1; +} + +static int +tui_suspend (void *data) +{ + tui_disable (); + return 1; +} + +/* Display the prompt if we are silent. */ + +static int +tui_display_prompt_p (void *data) +{ + if (interp_quiet_p (NULL)) + return 0; + else + return 1; +} + +static int +tui_exec (void *data, const char *command_str) +{ + internal_error (__FILE__, __LINE__, "tui_exec called"); +} + + +/* Initialize all the necessary variables, start the event loop, + register readline, and stdin, start the loop. */ + +static void +tui_command_loop (void *data) +{ + int length; + char *a_prompt; + char *gdb_prompt = get_prompt (); + + /* If we are using readline, set things up and display the first + prompt, otherwise just print the prompt. */ + if (async_command_editing_p) + { + /* Tell readline what the prompt to display is and what function + it will need to call after a whole line is read. This also + displays the first prompt. */ + length = strlen (PREFIX (0)) + strlen (gdb_prompt) + strlen (SUFFIX (0)) + 1; + a_prompt = (char *) xmalloc (length); + strcpy (a_prompt, PREFIX (0)); + strcat (a_prompt, gdb_prompt); + strcat (a_prompt, SUFFIX (0)); + rl_callback_handler_install (a_prompt, input_handler); + } + else + display_gdb_prompt (0); + + /* Loop until there is nothing to do. This is the entry point to the + event loop engine. gdb_do_one_event, called via catch_errors() + will process one event for each invocation. It blocks waits for + an event and then processes it. >0 when an event is processed, 0 + when catch_errors() caught an error and <0 when there are no + longer any event sources registered. */ + while (1) + { + int result = catch_errors (gdb_do_one_event, 0, "", RETURN_MASK_ALL); + if (result < 0) + break; + + /* Update gdb output according to TUI mode. Since catch_errors + preserves the uiout from changing, this must be done at top + level of event loop. */ + if (tui_active) + uiout = tui_out; + else + uiout = tui_old_uiout; + + if (result == 0) + { + /* FIXME: this should really be a call to a hook that is + interface specific, because interfaces can display the + prompt in their own way. */ + display_gdb_prompt (0); + /* This call looks bizarre, but it is required. If the user + entered a command that caused an error, + after_char_processing_hook won't be called from + rl_callback_read_char_wrapper. Using a cleanup there + won't work, since we want this function to be called + after a new prompt is printed. */ + if (after_char_processing_hook) + (*after_char_processing_hook) (); + /* Maybe better to set a flag to be checked somewhere as to + whether display the prompt or not. */ + } + } + + /* We are done with the event loop. There are no more event sources + to listen to. So we exit GDB. */ + return; +} + +void +_initialize_tui_interp (void) +{ + static const struct interp_procs procs = { + tui_init, + tui_resume, + tui_suspend, + tui_exec, + tui_display_prompt_p, + tui_command_loop, + }; + struct interp *tui_interp; + + /* Create a default uiout builder for the TUI. */ + tui_out = tui_out_new (gdb_stdout); + interp_add (interp_new ("tui", NULL, tui_out, &procs)); +} diff --git a/gdb/tui/tui.c b/gdb/tui/tui.c index f0e039aab0..517cf461cc 100644 --- a/gdb/tui/tui.c +++ b/gdb/tui/tui.c @@ -393,7 +393,6 @@ tui_enable (void) tui_setup_io (1); - tui_version = 1; tui_active = 1; if (deprecated_selected_frame) tuiShowFrameInfo (deprecated_selected_frame); @@ -435,7 +434,6 @@ tui_disable (void) /* Update gdb's knowledge of its terminal. */ target_terminal_save_ours (); - tui_version = 0; tui_active = 0; tui_update_gdb_sizes (); } @@ -563,7 +561,7 @@ tui_show_assembly (CORE_ADDR addr) int tui_is_window_visible (TuiWinType type) { - if (tui_version == 0) + if (tui_active == 0) return 0; if (winList[type] == 0) @@ -575,7 +573,7 @@ tui_is_window_visible (TuiWinType type) int tui_get_command_dimension (int *width, int *height) { - if (!tui_version || !m_winPtrNotNull (cmdWin)) + if (!tui_active || !m_winPtrNotNull (cmdWin)) { return 0; } diff --git a/gdb/tui/tuiData.h b/gdb/tui/tuiData.h index 8a4eb9f890..6fcf875b45 100644 --- a/gdb/tui/tuiData.h +++ b/gdb/tui/tuiData.h @@ -328,7 +328,6 @@ TuiWinInfo, *TuiWinInfoPtr; /* Global Data */ extern TuiWinInfoPtr winList[MAX_MAJOR_WINDOWS]; -extern int tui_version; /* Macros */ #define srcWin winList[SRC_WIN] -- 2.34.1