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