1 /* TUI display locator.
3 Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007
4 Free Software Foundation, Inc.
6 Contributed by Hewlett-Packard Company.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 Boston, MA 02110-1301, USA. */
27 #include "breakpoint.h"
33 #include "gdb_string.h"
35 #include "tui/tui-data.h"
36 #include "tui/tui-stack.h"
37 #include "tui/tui-wingeneral.h"
38 #include "tui/tui-source.h"
39 #include "tui/tui-winsource.h"
40 #include "tui/tui-file.h"
42 #include "gdb_curses.h"
44 /* Get a printable name for the function at the address.
45 The symbol name is demangled if demangling is turned on.
46 Returns a pointer to a static area holding the result. */
47 static char *tui_get_function_from_frame (struct frame_info
*fi
);
49 /* Set the filename portion of the locator. */
50 static void tui_set_locator_filename (const char *filename
);
52 /* Update the locator, with the provided arguments. */
53 static void tui_set_locator_info (const char *filename
,
55 int lineno
, CORE_ADDR addr
);
57 static void tui_update_command (char *, int);
60 /* Create the status line to display as much information as we can on
61 this single line: target name, process number, current function,
62 current line, current PC, SingleKey mode. */
64 tui_make_status_line (struct tui_locator_element
*loc
)
67 char line_buf
[50], *pname
;
77 struct ui_file
*pc_out
;
79 if (ptid_equal (inferior_ptid
, null_ptid
))
80 pid_name
= "No process";
82 pid_name
= target_pid_to_str (inferior_ptid
);
84 target_width
= strlen (target_shortname
);
85 if (target_width
> MAX_TARGET_WIDTH
)
86 target_width
= MAX_TARGET_WIDTH
;
88 pid_width
= strlen (pid_name
);
89 if (pid_width
> MAX_PID_WIDTH
)
90 pid_width
= MAX_PID_WIDTH
;
92 status_size
= tui_term_width ();
93 string
= (char *) xmalloc (status_size
+ 1);
94 buf
= (char*) alloca (status_size
+ 1);
96 /* Translate line number and obtain its size. */
98 sprintf (line_buf
, "%d", loc
->line_no
);
100 strcpy (line_buf
, "??");
101 line_width
= strlen (line_buf
);
102 if (line_width
< MIN_LINE_WIDTH
)
103 line_width
= MIN_LINE_WIDTH
;
105 /* Translate PC address. */
106 pc_out
= tui_sfileopen (128);
107 deprecated_print_address_numeric (loc
->addr
, 1, pc_out
);
108 pc_buf
= tui_file_get_strbuf (pc_out
);
109 pc_width
= strlen (pc_buf
);
111 /* First determine the amount of proc name width we have available.
112 The +1 are for a space separator between fields.
113 The -1 are to take into account the \0 counted by sizeof. */
114 proc_width
= (status_size
117 - (sizeof (PROC_PREFIX
) - 1 + 1)
118 - (sizeof (LINE_PREFIX
) - 1 + line_width
+ 1)
119 - (sizeof (PC_PREFIX
) - 1 + pc_width
+ 1)
120 - (tui_current_key_mode
== TUI_SINGLE_KEY_MODE
121 ? (sizeof (SINGLE_KEY
) - 1 + 1)
124 /* If there is no room to print the function name, try by removing
126 if (proc_width
< MIN_PROC_WIDTH
)
128 proc_width
+= target_width
+ 1;
130 if (proc_width
< MIN_PROC_WIDTH
)
132 proc_width
+= pid_width
+ 1;
134 if (proc_width
<= MIN_PROC_WIDTH
)
136 proc_width
+= pc_width
+ sizeof (PC_PREFIX
) - 1 + 1;
140 proc_width
+= line_width
+ sizeof (LINE_PREFIX
) - 1 + 1;
149 /* Now convert elements to string form. */
150 pname
= loc
->proc_name
;
152 /* Now create the locator line from the string version of the
153 elements. We could use sprintf() here but that wouldn't ensure
154 that we don't overrun the size of the allocated buffer.
155 strcat_to_buf() will. */
158 if (target_width
> 0)
160 sprintf (buf
, "%*.*s ",
161 -target_width
, target_width
, target_shortname
);
162 strcat_to_buf (string
, status_size
, buf
);
166 sprintf (buf
, "%*.*s ",
167 -pid_width
, pid_width
, pid_name
);
168 strcat_to_buf (string
, status_size
, buf
);
171 /* Show whether we are in SingleKey mode. */
172 if (tui_current_key_mode
== TUI_SINGLE_KEY_MODE
)
174 strcat_to_buf (string
, status_size
, SINGLE_KEY
);
175 strcat_to_buf (string
, status_size
, " ");
178 /* Procedure/class name. */
181 if (strlen (pname
) > proc_width
)
182 sprintf (buf
, "%s%*.*s* ", PROC_PREFIX
,
183 1 - proc_width
, proc_width
- 1, pname
);
185 sprintf (buf
, "%s%*.*s ", PROC_PREFIX
,
186 -proc_width
, proc_width
, pname
);
187 strcat_to_buf (string
, status_size
, buf
);
192 sprintf (buf
, "%s%*.*s ", LINE_PREFIX
,
193 -line_width
, line_width
, line_buf
);
194 strcat_to_buf (string
, status_size
, buf
);
198 strcat_to_buf (string
, status_size
, PC_PREFIX
);
199 strcat_to_buf (string
, status_size
, pc_buf
);
203 for (i
= strlen (string
); i
< status_size
; i
++)
205 string
[status_size
] = (char) 0;
207 ui_file_delete (pc_out
);
211 /* Get a printable name for the function at the address. The symbol
212 name is demangled if demangling is turned on. Returns a pointer to
213 a static area holding the result. */
215 tui_get_function_from_frame (struct frame_info
*fi
)
217 static char name
[256];
218 struct ui_file
*stream
= tui_sfileopen (256);
221 print_address_symbolic (get_frame_pc (fi
), stream
, demangle
, "");
222 p
= tui_file_get_strbuf (stream
);
224 /* Use simple heuristics to isolate the function name. The symbol
225 can be demangled and we can have function parameters. Remove
226 them because the status line is too short to display them. */
229 strncpy (name
, p
, sizeof (name
));
230 p
= strchr (name
, '(');
232 p
= strchr (name
, '>');
235 p
= strchr (name
, '+');
238 ui_file_delete (stream
);
243 tui_show_locator_content (void)
246 struct tui_gen_win_info
*locator
;
248 locator
= tui_locator_win_info_ptr ();
250 if (locator
!= NULL
&& locator
->handle
!= (WINDOW
*) NULL
)
252 struct tui_win_element
*element
;
254 element
= (struct tui_win_element
*) locator
->content
[0];
256 string
= tui_make_status_line (&element
->which_element
.locator
);
257 wmove (locator
->handle
, 0, 0);
258 wstandout (locator
->handle
);
259 waddstr (locator
->handle
, string
);
260 wclrtoeol (locator
->handle
);
261 wstandend (locator
->handle
);
262 tui_refresh_win (locator
);
263 wmove (locator
->handle
, 0, 0);
265 locator
->content_in_use
= TRUE
;
270 /* Set the filename portion of the locator. */
272 tui_set_locator_filename (const char *filename
)
274 struct tui_gen_win_info
*locator
= tui_locator_win_info_ptr ();
275 struct tui_locator_element
*element
;
277 if (locator
->content
[0] == NULL
)
279 tui_set_locator_info (filename
, NULL
, 0, 0);
283 element
= &((struct tui_win_element
*) locator
->content
[0])->which_element
.locator
;
284 element
->file_name
[0] = 0;
285 strcat_to_buf (element
->file_name
, MAX_LOCATOR_ELEMENT_LEN
, filename
);
288 /* Update the locator, with the provided arguments. */
290 tui_set_locator_info (const char *filename
,
291 const char *procname
,
295 struct tui_gen_win_info
*locator
= tui_locator_win_info_ptr ();
296 struct tui_locator_element
*element
;
298 /* Allocate the locator content if necessary. */
299 if (locator
->content_size
<= 0)
301 locator
->content
= (void **) tui_alloc_content (1, locator
->type
);
302 locator
->content_size
= 1;
305 element
= &((struct tui_win_element
*) locator
->content
[0])->which_element
.locator
;
306 element
->proc_name
[0] = (char) 0;
307 strcat_to_buf (element
->proc_name
, MAX_LOCATOR_ELEMENT_LEN
, procname
);
308 element
->line_no
= lineno
;
309 element
->addr
= addr
;
310 tui_set_locator_filename (filename
);
313 /* Update only the filename portion of the locator. */
315 tui_update_locator_filename (const char *filename
)
317 tui_set_locator_filename (filename
);
318 tui_show_locator_content ();
321 /* Function to print the frame information for the TUI. */
323 tui_show_frame_info (struct frame_info
*fi
)
325 struct tui_win_info
*win_info
;
332 struct tui_gen_win_info
*locator
= tui_locator_win_info_ptr ();
333 int source_already_displayed
;
334 struct symtab_and_line sal
;
336 find_frame_sal (fi
, &sal
);
338 source_already_displayed
= sal
.symtab
!= 0
339 && tui_source_is_displayed (sal
.symtab
->filename
);
340 tui_set_locator_info (sal
.symtab
== 0 ? "??" : sal
.symtab
->filename
,
341 tui_get_function_from_frame (fi
),
344 tui_show_locator_content ();
346 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
348 union tui_which_element
*item
;
349 win_info
= (tui_source_windows ())->list
[i
];
351 item
= &((struct tui_win_element
*) locator
->content
[0])->which_element
;
352 if (win_info
== TUI_SRC_WIN
)
354 start_line
= (item
->locator
.line_no
-
355 (win_info
->generic
.viewport_height
/ 2)) + 1;
361 if (find_pc_partial_function (get_frame_pc (fi
), (char **) NULL
,
362 &low
, (CORE_ADDR
) 0) == 0)
363 error (_("No function contains program counter for selected frame."));
365 low
= tui_get_low_disassembly_address (low
, get_frame_pc (fi
));
368 if (win_info
== TUI_SRC_WIN
)
370 struct tui_line_or_address l
;
372 l
.u
.line_no
= start_line
;
373 if (!(source_already_displayed
374 && tui_line_is_displayed (item
->locator
.line_no
, win_info
, TRUE
)))
375 tui_update_source_window (win_info
, sal
.symtab
, l
, TRUE
);
378 l
.u
.line_no
= item
->locator
.line_no
;
379 tui_set_is_exec_point_at (l
, win_info
);
384 if (win_info
== TUI_DISASM_WIN
)
386 struct tui_line_or_address a
;
389 if (!tui_addr_is_displayed (item
->locator
.addr
, win_info
, TRUE
))
390 tui_update_source_window (win_info
, sal
.symtab
, a
, TRUE
);
393 a
.u
.addr
= item
->locator
.addr
;
394 tui_set_is_exec_point_at (a
, win_info
);
398 tui_update_exec_info (win_info
);
403 tui_set_locator_info (NULL
, NULL
, 0, (CORE_ADDR
) 0);
404 tui_show_locator_content ();
405 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
407 win_info
= (tui_source_windows ())->list
[i
];
408 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
409 tui_update_exec_info (win_info
);
414 /* Function to initialize gdb commands, for tui window stack
417 _initialize_tui_stack (void)
419 add_com ("update", class_tui
, tui_update_command
, _("\
420 Update the source window and locator to display the current execution point.\n"));
423 /* Command to update the display with the current execution point. */
425 tui_update_command (char *arg
, int from_tty
)
427 char cmd
[sizeof("frame 0")];
429 strcpy (cmd
, "frame 0");
430 execute_command (cmd
, from_tty
);
This page took 0.038268 seconds and 4 git commands to generate.