1 /* TUI display locator.
3 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software
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., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
27 #include "breakpoint.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"
50 /* Get a printable name for the function at the address.
51 The symbol name is demangled if demangling is turned on.
52 Returns a pointer to a static area holding the result. */
53 static char* tui_get_function_from_frame (struct frame_info
*fi
);
55 /* Set the filename portion of the locator. */
56 static void tui_set_locator_filename (const char *filename
);
58 /* Update the locator, with the provided arguments. */
59 static void tui_set_locator_info (const char *filename
, const char *procname
,
60 int lineno
, CORE_ADDR addr
);
62 static void tui_update_command (char *, int);
65 /* Create the status line to display as much information as we
66 can on this single line: target name, process number, current
67 function, current line, current PC, SingleKey mode. */
69 tui_make_status_line (TuiLocatorElement
* loc
)
72 char line_buf
[50], *pname
;
82 struct ui_file
*pc_out
;
84 if (ptid_equal (inferior_ptid
, null_ptid
))
85 pid_name
= "No process";
87 pid_name
= target_pid_to_str (inferior_ptid
);
89 target_width
= strlen (target_shortname
);
90 if (target_width
> MAX_TARGET_WIDTH
)
91 target_width
= MAX_TARGET_WIDTH
;
93 pid_width
= strlen (pid_name
);
94 if (pid_width
> MAX_PID_WIDTH
)
95 pid_width
= MAX_PID_WIDTH
;
97 status_size
= termWidth ();
98 string
= (char *) xmalloc (status_size
+ 1);
99 buf
= (char*) alloca (status_size
+ 1);
101 /* Translate line number and obtain its size. */
103 sprintf (line_buf
, "%d", loc
->lineNo
);
105 strcpy (line_buf
, "??");
106 line_width
= strlen (line_buf
);
107 if (line_width
< MIN_LINE_WIDTH
)
108 line_width
= MIN_LINE_WIDTH
;
110 /* Translate PC address. */
111 pc_out
= tui_sfileopen (128);
112 print_address_numeric (loc
->addr
, 1, pc_out
);
113 pc_buf
= tui_file_get_strbuf (pc_out
);
114 pc_width
= strlen (pc_buf
);
116 /* First determine the amount of proc name width we have available.
117 The +1 are for a space separator between fields.
118 The -1 are to take into account the \0 counted by sizeof. */
119 proc_width
= (status_size
122 - (sizeof (PROC_PREFIX
) - 1 + 1)
123 - (sizeof (LINE_PREFIX
) - 1 + line_width
+ 1)
124 - (sizeof (PC_PREFIX
) - 1 + pc_width
+ 1)
125 - (tui_current_key_mode
== tui_single_key_mode
126 ? (sizeof (SINGLE_KEY
) - 1 + 1)
129 /* If there is no room to print the function name, try by removing
131 if (proc_width
< MIN_PROC_WIDTH
)
133 proc_width
+= target_width
+ 1;
135 if (proc_width
< MIN_PROC_WIDTH
)
137 proc_width
+= pid_width
+ 1;
139 if (proc_width
<= MIN_PROC_WIDTH
)
141 proc_width
+= pc_width
+ sizeof (PC_PREFIX
) - 1 + 1;
145 proc_width
+= line_width
+ sizeof (LINE_PREFIX
) - 1 + 1;
154 /* Now convert elements to string form */
155 pname
= loc
->procName
;
157 /* Now create the locator line from the string version
158 of the elements. We could use sprintf() here but
159 that wouldn't ensure that we don't overrun the size
160 of the allocated buffer. strcat_to_buf() will. */
163 if (target_width
> 0)
165 sprintf (buf
, "%*.*s ",
166 -target_width
, target_width
, target_shortname
);
167 strcat_to_buf (string
, status_size
, buf
);
171 sprintf (buf
, "%*.*s ",
172 -pid_width
, pid_width
, pid_name
);
173 strcat_to_buf (string
, status_size
, buf
);
176 /* Show whether we are in SingleKey mode. */
177 if (tui_current_key_mode
== tui_single_key_mode
)
179 strcat_to_buf (string
, status_size
, SINGLE_KEY
);
180 strcat_to_buf (string
, status_size
, " ");
183 /* procedure/class name */
186 if (strlen (pname
) > proc_width
)
187 sprintf (buf
, "%s%*.*s* ", PROC_PREFIX
,
188 1 - proc_width
, proc_width
- 1, pname
);
190 sprintf (buf
, "%s%*.*s ", PROC_PREFIX
,
191 -proc_width
, proc_width
, pname
);
192 strcat_to_buf (string
, status_size
, buf
);
197 sprintf (buf
, "%s%*.*s ", LINE_PREFIX
,
198 -line_width
, line_width
, line_buf
);
199 strcat_to_buf (string
, status_size
, buf
);
203 strcat_to_buf (string
, status_size
, PC_PREFIX
);
204 strcat_to_buf (string
, status_size
, pc_buf
);
208 for (i
= strlen (string
); i
< status_size
; i
++)
210 string
[status_size
] = (char) 0;
212 ui_file_delete (pc_out
);
216 /* Get a printable name for the function at the address.
217 The symbol name is demangled if demangling is turned on.
218 Returns a pointer to a static area holding the result. */
220 tui_get_function_from_frame (struct frame_info
*fi
)
222 static char name
[256];
223 struct ui_file
*stream
= tui_sfileopen (256);
226 print_address_symbolic (get_frame_pc (fi
), stream
, demangle
, "");
227 p
= tui_file_get_strbuf (stream
);
229 /* Use simple heuristics to isolate the function name. The symbol can
230 be demangled and we can have function parameters. Remove them because
231 the status line is too short to display them. */
234 strncpy (name
, p
, sizeof (name
));
235 p
= strchr (name
, '(');
237 p
= strchr (name
, '>');
240 p
= strchr (name
, '+');
243 ui_file_delete (stream
);
247 /* tuiShowLocatorContent(). */
249 tui_show_locator_content (void)
252 TuiGenWinInfoPtr locator
;
254 locator
= locatorWinInfoPtr ();
256 if (m_genWinPtrNotNull (locator
) && locator
->handle
!= (WINDOW
*) NULL
)
258 TuiWinElementPtr element
;
260 element
= (TuiWinElementPtr
) locator
->content
[0];
262 string
= tui_make_status_line (&element
->whichElement
.locator
);
263 wmove (locator
->handle
, 0, 0);
264 wstandout (locator
->handle
);
265 waddstr (locator
->handle
, string
);
266 wclrtoeol (locator
->handle
);
267 wstandend (locator
->handle
);
268 tuiRefreshWin (locator
);
269 wmove (locator
->handle
, 0, 0);
271 locator
->contentInUse
= TRUE
;
276 /* Set the filename portion of the locator. */
278 tui_set_locator_filename (const char *filename
)
280 TuiGenWinInfoPtr locator
= locatorWinInfoPtr ();
281 TuiLocatorElementPtr element
;
283 if (locator
->content
[0] == (Opaque
) NULL
)
285 tui_set_locator_info (filename
, NULL
, 0, 0);
289 element
= &((TuiWinElementPtr
) locator
->content
[0])->whichElement
.locator
;
290 element
->fileName
[0] = 0;
291 strcat_to_buf (element
->fileName
, MAX_LOCATOR_ELEMENT_LEN
, filename
);
294 /* Update the locator, with the provided arguments. */
296 tui_set_locator_info (const char *filename
, const char *procname
, int lineno
,
299 TuiGenWinInfoPtr locator
= locatorWinInfoPtr ();
300 TuiLocatorElementPtr element
;
302 /* Allocate the locator content if necessary. */
303 if (locator
->contentSize
<= 0)
305 locator
->content
= (OpaquePtr
) allocContent (1, locator
->type
);
306 locator
->contentSize
= 1;
309 element
= &((TuiWinElementPtr
) locator
->content
[0])->whichElement
.locator
;
310 element
->procName
[0] = (char) 0;
311 strcat_to_buf (element
->procName
, MAX_LOCATOR_ELEMENT_LEN
, procname
);
312 element
->lineNo
= lineno
;
313 element
->addr
= addr
;
314 tui_set_locator_filename (filename
);
317 /* Update only the filename portion of the locator. */
319 tui_update_locator_filename (const char *filename
)
321 tui_set_locator_filename (filename
);
322 tui_show_locator_content ();
325 /* Function to print the frame information for the TUI. */
327 tui_show_frame_info (struct frame_info
*fi
)
329 TuiWinInfoPtr winInfo
;
334 register int startLine
, i
;
336 TuiGenWinInfoPtr locator
= locatorWinInfoPtr ();
337 int sourceAlreadyDisplayed
;
338 struct symtab_and_line sal
;
340 find_frame_sal (fi
, &sal
);
342 sourceAlreadyDisplayed
= sal
.symtab
!= 0
343 && tuiSourceIsDisplayed (sal
.symtab
->filename
);
344 tui_set_locator_info (sal
.symtab
== 0 ? "??" : sal
.symtab
->filename
,
345 tui_get_function_from_frame (fi
),
348 tui_show_locator_content ();
350 for (i
= 0; i
< (sourceWindows ())->count
; i
++)
352 TuiWhichElement
*item
;
353 winInfo
= (TuiWinInfoPtr
) (sourceWindows ())->list
[i
];
355 item
= &((TuiWinElementPtr
) locator
->content
[0])->whichElement
;
356 if (winInfo
== srcWin
)
358 startLine
= (item
->locator
.lineNo
-
359 (winInfo
->generic
.viewportHeight
/ 2)) + 1;
365 if (find_pc_partial_function (get_frame_pc (fi
), (char **) NULL
,
366 &low
, (CORE_ADDR
) NULL
) == 0)
367 error ("No function contains program counter for selected frame.\n");
369 low
= tuiGetLowDisassemblyAddress (low
, get_frame_pc (fi
));
372 if (winInfo
== srcWin
)
375 l
.lineNo
= startLine
;
376 if (!(sourceAlreadyDisplayed
377 && tuiLineIsDisplayed (item
->locator
.lineNo
, winInfo
, TRUE
)))
378 tuiUpdateSourceWindow (winInfo
, sal
.symtab
, l
, TRUE
);
381 l
.lineNo
= item
->locator
.lineNo
;
382 tuiSetIsExecPointAt (l
, winInfo
);
387 if (winInfo
== disassemWin
)
391 if (!tuiAddrIsDisplayed (item
->locator
.addr
, winInfo
, TRUE
))
392 tuiUpdateSourceWindow (winInfo
, sal
.symtab
, a
, TRUE
);
395 a
.addr
= item
->locator
.addr
;
396 tuiSetIsExecPointAt (a
, winInfo
);
400 tuiUpdateExecInfo (winInfo
);
405 tui_set_locator_info (NULL
, NULL
, 0, (CORE_ADDR
) 0);
406 tui_show_locator_content ();
407 for (i
= 0; i
< (sourceWindows ())->count
; i
++)
409 winInfo
= (TuiWinInfoPtr
) (sourceWindows ())->list
[i
];
410 tuiClearSourceContent (winInfo
, EMPTY_SOURCE_PROMPT
);
411 tuiUpdateExecInfo (winInfo
);
416 /* Function to initialize gdb commands, for tui window stack manipulation. */
418 _initialize_tuiStack (void)
420 add_com ("update", class_tui
, tui_update_command
,
421 "Update the source window and locator to display the current "
422 "execution point.\n");
425 /* Command to update the display with the current execution point. */
427 tui_update_command (char *arg
, int from_tty
)
429 char cmd
[sizeof("frame 0")];
431 strcpy (cmd
, "frame 0");
432 execute_command (cmd
, from_tty
);