contrib/gdb-7/gdb/tui/tui-hooks.c

   1 /* GDB hooks for TUI.
   2
   3    Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
   4    2011 Free Software Foundation, Inc.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 3 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  20
  21 #include "defs.h"
  22 #include "symtab.h"
  23 #include "inferior.h"
  24 #include "command.h"
  25 #include "bfd.h"
  26 #include "symfile.h"
  27 #include "objfiles.h"
  28 #include "target.h"
  29 #include "gdbcore.h"
  30 #include "event-loop.h"
  31 #include "event-top.h"
  32 #include "frame.h"
  33 #include "breakpoint.h"
  34 #include "ui-out.h"
  35 #include "top.h"
  36 #include "observer.h"
  37 #include <unistd.h>
  38 #include <fcntl.h>
  39
  40 #include "tui/tui.h"
  41 #include "tui/tui-hooks.h"
  42 #include "tui/tui-data.h"
  43 #include "tui/tui-layout.h"
  44 #include "tui/tui-io.h"
  45 #include "tui/tui-regs.h"
  46 #include "tui/tui-win.h"
  47 #include "tui/tui-stack.h"
  48 #include "tui/tui-windata.h"
  49 #include "tui/tui-winsource.h"
  50
  51 #include "gdb_curses.h"
  52
  53 /* This redefines CTRL if it is not already defined, so it must come
  54    after terminal state releated include files like <term.h> and
  55    "gdb_curses.h".  */
  56 #include "readline/readline.h"
  57
  58 int tui_target_has_run = 0;
  59
  60 static void
  61 tui_new_objfile_hook (struct objfile* objfile)
  62 {
  63   if (tui_active)
  64     tui_display_main ();
  65 }
  66
  67 static int ATTRIBUTE_PRINTF (1, 0)
  68 tui_query_hook (const char *msg, va_list argp)
  69 {
  70   int retval;
  71   int ans2;
  72   int answer;
  73
  74   echo ();
  75   while (1)
  76     {
  77       wrap_here ("");           /* Flush any buffered output.  */
  78       gdb_flush (gdb_stdout);
  79
  80       vfprintf_filtered (gdb_stdout, msg, argp);
  81       printf_filtered (_("(y or n) "));
  82
  83       wrap_here ("");
  84       gdb_flush (gdb_stdout);
  85
  86       answer = tui_getc (stdin);
  87       clearerr (stdin);         /* in case of C-d */
  88       if (answer == EOF)        /* C-d */
  89         {
  90           retval = 1;
  91           break;
  92         }
  93       /* Eat rest of input line, to EOF or newline.  */
  94       if (answer != '\n')
  95         do
  96           {
  97             ans2 = tui_getc (stdin);
  98             clearerr (stdin);
  99           }
 100         while (ans2 != EOF && ans2 != '\n' && ans2 != '\r');
 101
 102       if (answer >= 'a')
 103         answer -= 040;
 104       if (answer == 'Y')
 105         {
 106           retval = 1;
 107           break;
 108         }
 109       if (answer == 'N')
 110         {
 111           retval = 0;
 112           break;
 113         }
 114       printf_filtered (_("Please answer y or n.\n"));
 115     }
 116   noecho ();
 117   return retval;
 118 }
 119
 120 /* Prevent recursion of deprecated_register_changed_hook().  */
 121 static int tui_refreshing_registers = 0;
 122
 123 static void
 124 tui_register_changed_hook (int regno)
 125 {
 126   struct frame_info *fi;
 127
 128   fi = get_selected_frame (NULL);
 129   if (tui_refreshing_registers == 0)
 130     {
 131       tui_refreshing_registers = 1;
 132       tui_check_data_values (fi);
 133       tui_refreshing_registers = 0;
 134     }
 135 }
 136
 137 /* Breakpoint creation hook.
 138    Update the screen to show the new breakpoint.  */
 139 static void
 140 tui_event_create_breakpoint (int number)
 141 {
 142   tui_update_all_breakpoint_info ();
 143 }
 144
 145 /* Breakpoint deletion hook.
 146    Refresh the screen to update the breakpoint marks.  */
 147 static void
 148 tui_event_delete_breakpoint (int number)
 149 {
 150   tui_update_all_breakpoint_info ();
 151 }
 152
 153 static void
 154 tui_event_modify_breakpoint (int number)
 155 {
 156   tui_update_all_breakpoint_info ();
 157 }
 158
 159 /* Called when going to wait for the target.
 160    Leave curses mode and setup program mode.  */
 161 static ptid_t
 162 tui_target_wait_hook (ptid_t pid,
 163                       struct target_waitstatus *status, int options)
 164 {
 165   ptid_t res;
 166
 167   /* Leave tui mode (optional).  */
 168 #if 0
 169   if (tui_active)
 170     {
 171       target_terminal_ours ();
 172       endwin ();
 173       target_terminal_inferior ();
 174     }
 175 #endif
 176   tui_target_has_run = 1;
 177   res = target_wait (pid, status, options);
 178
 179   if (tui_active)
 180     {
 181       /* TODO: need to refresh (optional).  */
 182     }
 183   return res;
 184 }
 185
 186 /* The selected frame has changed.  This is happens after a target
 187    stop or when the user explicitly changes the frame
 188    (up/down/thread/...).  */
 189 static void
 190 tui_selected_frame_level_changed_hook (int level)
 191 {
 192   struct frame_info *fi;
 193   CORE_ADDR pc;
 194
 195   /* Negative level means that the selected frame was cleared.  */
 196   if (level < 0)
 197     return;
 198
 199   fi = get_selected_frame (NULL);
 200   /* Ensure that symbols for this frame are read in.  Also, determine
 201      the source language of this frame, and switch to it if
 202      desired.  */
 203   if (get_frame_pc_if_available (fi, &pc))
 204     {
 205       struct symtab *s;
 206
 207       s = find_pc_symtab (pc);
 208       /* elz: This if here fixes the problem with the pc not being
 209          displayed in the tui asm layout, with no debug symbols.  The
 210          value of s would be 0 here, and select_source_symtab would
 211          abort the command by calling the 'error' function.  */
 212       if (s)
 213         select_source_symtab (s);
 214     }
 215
 216   /* Display the frame position (even if there is no symbols or the PC
 217      is not known).  */
 218   tui_show_frame_info (fi);
 219
 220   /* Refresh the register window if it's visible.  */
 221   if (tui_is_window_visible (DATA_WIN))
 222     {
 223       tui_refreshing_registers = 1;
 224       tui_check_data_values (fi);
 225       tui_refreshing_registers = 0;
 226     }
 227 }
 228
 229 /* Called from print_frame_info to list the line we stopped in.  */
 230 static void
 231 tui_print_frame_info_listing_hook (struct symtab *s,
 232                                    int line,
 233                                    int stopline,
 234                                    int noerror)
 235 {
 236   select_source_symtab (s);
 237   tui_show_frame_info (get_selected_frame (NULL));
 238 }
 239
 240 /* Called when the target process died or is detached.
 241    Update the status line.  */
 242 static void
 243 tui_detach_hook (void)
 244 {
 245   tui_show_frame_info (0);
 246   tui_display_main ();
 247 }
 248
 249 /* Observers created when installing TUI hooks.  */
 250 static struct observer *tui_bp_created_observer;
 251 static struct observer *tui_bp_deleted_observer;
 252 static struct observer *tui_bp_modified_observer;
 253
 254 /* Install the TUI specific hooks.  */
 255 void
 256 tui_install_hooks (void)
 257 {
 258   deprecated_target_wait_hook = tui_target_wait_hook;
 259   deprecated_selected_frame_level_changed_hook
 260     = tui_selected_frame_level_changed_hook;
 261   deprecated_print_frame_info_listing_hook
 262     = tui_print_frame_info_listing_hook;
 263
 264   deprecated_query_hook = tui_query_hook;
 265
 266   /* Install the event hooks.  */
 267   tui_bp_created_observer
 268     = observer_attach_breakpoint_created (tui_event_create_breakpoint);
 269   tui_bp_deleted_observer
 270     = observer_attach_breakpoint_deleted (tui_event_delete_breakpoint);
 271   tui_bp_modified_observer
 272     = observer_attach_breakpoint_modified (tui_event_modify_breakpoint);
 273
 274   deprecated_register_changed_hook = tui_register_changed_hook;
 275   deprecated_detach_hook = tui_detach_hook;
 276 }
 277
 278 /* Remove the TUI specific hooks.  */
 279 void
 280 tui_remove_hooks (void)
 281 {
 282   deprecated_target_wait_hook = 0;
 283   deprecated_selected_frame_level_changed_hook = 0;
 284   deprecated_print_frame_info_listing_hook = 0;
 285   deprecated_query_hook = 0;
 286   deprecated_register_changed_hook = 0;
 287   deprecated_detach_hook = 0;
 288
 289   /* Remove our observers.  */
 290   observer_detach_breakpoint_created (tui_bp_created_observer);
 291   tui_bp_created_observer = NULL;
 292   observer_detach_breakpoint_deleted (tui_bp_deleted_observer);
 293   tui_bp_deleted_observer = NULL;
 294   observer_detach_breakpoint_modified (tui_bp_modified_observer);
 295   tui_bp_modified_observer = NULL;
 296 }
 297
 298 void _initialize_tui_hooks (void);
 299
 300 void
 301 _initialize_tui_hooks (void)
 302 {
 303   /* Install the permanent hooks.  */
 304   observer_attach_new_objfile (tui_new_objfile_hook);
 305 }