Commit | Line | Data |
---|---|---|
f377b406 | 1 | /* TUI display locator. |
f33c6cbf | 2 | |
47d3492a AC |
3 | Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software |
4 | Foundation, Inc. | |
f33c6cbf | 5 | |
f377b406 SC |
6 | Contributed by Hewlett-Packard Company. |
7 | ||
8 | This file is part of GDB. | |
9 | ||
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. | |
14 | ||
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. | |
19 | ||
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. */ | |
c906108c SS |
24 | |
25 | #include "defs.h" | |
26 | #include "symtab.h" | |
27 | #include "breakpoint.h" | |
28 | #include "frame.h" | |
75fd9bc1 | 29 | #include "command.h" |
50265402 SC |
30 | #include "inferior.h" |
31 | #include "target.h" | |
7563e053 | 32 | #include "top.h" |
c906108c | 33 | |
d7b2e967 AC |
34 | #include "tui/tui.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" | |
c906108c | 41 | |
96ec9981 DJ |
42 | #ifdef HAVE_NCURSES_H |
43 | #include <ncurses.h> | |
44 | #else | |
45 | #ifdef HAVE_CURSES_H | |
46 | #include <curses.h> | |
47 | #endif | |
48 | #endif | |
c906108c | 49 | |
5564c769 SC |
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); | |
c906108c | 54 | |
2e17b763 SC |
55 | /* Set the filename portion of the locator. */ |
56 | static void tui_set_locator_filename (const char *filename); | |
57 | ||
58 | /* Update the locator, with the provided arguments. */ | |
59 | static void tui_set_locator_info (const char *filename, const char *procname, | |
7d6dd1e9 | 60 | int lineno, CORE_ADDR addr); |
2e17b763 | 61 | |
7563e053 | 62 | static void tui_update_command (char *, int); |
7d6dd1e9 | 63 | \f |
c906108c | 64 | |
50265402 SC |
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. */ | |
68 | static char* | |
2a8854a7 | 69 | tui_make_status_line (struct tui_locator_element* loc) |
50265402 SC |
70 | { |
71 | char* string; | |
a42a37b7 SC |
72 | char line_buf[50], *pname; |
73 | char* buf; | |
74 | int status_size; | |
50265402 SC |
75 | int i, proc_width; |
76 | const char* pid_name; | |
77 | const char* pc_buf; | |
78 | int target_width; | |
79 | int pid_width; | |
80 | int line_width; | |
81 | int pc_width; | |
82 | struct ui_file *pc_out; | |
83 | ||
84 | if (ptid_equal (inferior_ptid, null_ptid)) | |
85 | pid_name = "No process"; | |
86 | else | |
87 | pid_name = target_pid_to_str (inferior_ptid); | |
88 | ||
89 | target_width = strlen (target_shortname); | |
90 | if (target_width > MAX_TARGET_WIDTH) | |
91 | target_width = MAX_TARGET_WIDTH; | |
92 | ||
93 | pid_width = strlen (pid_name); | |
94 | if (pid_width > MAX_PID_WIDTH) | |
95 | pid_width = MAX_PID_WIDTH; | |
a42a37b7 | 96 | |
dd1abb8c | 97 | status_size = tui_term_width (); |
50265402 | 98 | string = (char *) xmalloc (status_size + 1); |
a42a37b7 | 99 | buf = (char*) alloca (status_size + 1); |
50265402 SC |
100 | |
101 | /* Translate line number and obtain its size. */ | |
102 | if (loc->lineNo > 0) | |
103 | sprintf (line_buf, "%d", loc->lineNo); | |
104 | else | |
105 | strcpy (line_buf, "??"); | |
106 | line_width = strlen (line_buf); | |
107 | if (line_width < MIN_LINE_WIDTH) | |
108 | line_width = MIN_LINE_WIDTH; | |
109 | ||
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); | |
115 | ||
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 | |
120 | - (target_width + 1) | |
121 | - (pid_width + 1) | |
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) | |
127 | : 0)); | |
128 | ||
129 | /* If there is no room to print the function name, try by removing | |
130 | some fields. */ | |
131 | if (proc_width < MIN_PROC_WIDTH) | |
132 | { | |
133 | proc_width += target_width + 1; | |
134 | target_width = 0; | |
135 | if (proc_width < MIN_PROC_WIDTH) | |
136 | { | |
137 | proc_width += pid_width + 1; | |
138 | pid_width = 0; | |
139 | if (proc_width <= MIN_PROC_WIDTH) | |
140 | { | |
141 | proc_width += pc_width + sizeof (PC_PREFIX) - 1 + 1; | |
142 | pc_width = 0; | |
143 | if (proc_width < 0) | |
144 | { | |
145 | proc_width += line_width + sizeof (LINE_PREFIX) - 1 + 1; | |
146 | line_width = 0; | |
147 | if (proc_width < 0) | |
148 | proc_width = 0; | |
149 | } | |
150 | } | |
151 | } | |
152 | } | |
153 | ||
154 | /* Now convert elements to string form */ | |
155 | pname = loc->procName; | |
156 | ||
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. */ | |
161 | *string = (char) 0; | |
162 | ||
163 | if (target_width > 0) | |
164 | { | |
165 | sprintf (buf, "%*.*s ", | |
166 | -target_width, target_width, target_shortname); | |
167 | strcat_to_buf (string, status_size, buf); | |
168 | } | |
169 | if (pid_width > 0) | |
170 | { | |
171 | sprintf (buf, "%*.*s ", | |
172 | -pid_width, pid_width, pid_name); | |
173 | strcat_to_buf (string, status_size, buf); | |
174 | } | |
175 | ||
176 | /* Show whether we are in SingleKey mode. */ | |
177 | if (tui_current_key_mode == tui_single_key_mode) | |
178 | { | |
179 | strcat_to_buf (string, status_size, SINGLE_KEY); | |
180 | strcat_to_buf (string, status_size, " "); | |
181 | } | |
182 | ||
183 | /* procedure/class name */ | |
184 | if (proc_width > 0) | |
185 | { | |
186 | if (strlen (pname) > proc_width) | |
187 | sprintf (buf, "%s%*.*s* ", PROC_PREFIX, | |
188 | 1 - proc_width, proc_width - 1, pname); | |
189 | else | |
190 | sprintf (buf, "%s%*.*s ", PROC_PREFIX, | |
191 | -proc_width, proc_width, pname); | |
192 | strcat_to_buf (string, status_size, buf); | |
193 | } | |
194 | ||
195 | if (line_width > 0) | |
196 | { | |
197 | sprintf (buf, "%s%*.*s ", LINE_PREFIX, | |
198 | -line_width, line_width, line_buf); | |
199 | strcat_to_buf (string, status_size, buf); | |
200 | } | |
201 | if (pc_width > 0) | |
202 | { | |
203 | strcat_to_buf (string, status_size, PC_PREFIX); | |
204 | strcat_to_buf (string, status_size, pc_buf); | |
205 | } | |
206 | ||
207 | ||
208 | for (i = strlen (string); i < status_size; i++) | |
209 | string[i] = ' '; | |
210 | string[status_size] = (char) 0; | |
211 | ||
212 | ui_file_delete (pc_out); | |
213 | return string; | |
214 | } | |
215 | ||
5564c769 SC |
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. */ | |
219 | static char* | |
220 | tui_get_function_from_frame (struct frame_info *fi) | |
221 | { | |
222 | static char name[256]; | |
223 | struct ui_file *stream = tui_sfileopen (256); | |
224 | char *p; | |
225 | ||
f70a7d61 | 226 | print_address_symbolic (get_frame_pc (fi), stream, demangle, ""); |
5564c769 SC |
227 | p = tui_file_get_strbuf (stream); |
228 | ||
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. */ | |
232 | if (*p == '<') | |
233 | p++; | |
234 | strncpy (name, p, sizeof (name)); | |
235 | p = strchr (name, '('); | |
236 | if (!p) | |
237 | p = strchr (name, '>'); | |
238 | if (p) | |
239 | *p = 0; | |
240 | p = strchr (name, '+'); | |
241 | if (p) | |
242 | *p = 0; | |
243 | ui_file_delete (stream); | |
244 | return name; | |
245 | } | |
c906108c | 246 | |
47d3492a | 247 | /* tuiShowLocatorContent(). */ |
c906108c | 248 | void |
47d3492a | 249 | tui_show_locator_content (void) |
c906108c SS |
250 | { |
251 | char *string; | |
2a8854a7 | 252 | struct tui_gen_win_info * locator; |
c906108c | 253 | |
dd1abb8c | 254 | locator = tui_locator_win_info_ptr (); |
c906108c SS |
255 | |
256 | if (m_genWinPtrNotNull (locator) && locator->handle != (WINDOW *) NULL) | |
257 | { | |
2a8854a7 | 258 | struct tui_win_element * element; |
50265402 | 259 | |
2a8854a7 | 260 | element = (struct tui_win_element *) locator->content[0]; |
50265402 SC |
261 | |
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); | |
ec7d9e56 | 268 | tui_refresh_win (locator); |
50265402 SC |
269 | wmove (locator->handle, 0, 0); |
270 | xfree (string); | |
271 | locator->contentInUse = TRUE; | |
c906108c | 272 | } |
50265402 | 273 | } |
c906108c | 274 | |
c906108c | 275 | |
2e17b763 SC |
276 | /* Set the filename portion of the locator. */ |
277 | static void | |
278 | tui_set_locator_filename (const char *filename) | |
279 | { | |
2a8854a7 AC |
280 | struct tui_gen_win_info * locator = tui_locator_win_info_ptr (); |
281 | struct tui_locator_element * element; | |
2e17b763 SC |
282 | |
283 | if (locator->content[0] == (Opaque) NULL) | |
7d6dd1e9 SC |
284 | { |
285 | tui_set_locator_info (filename, NULL, 0, 0); | |
286 | return; | |
287 | } | |
2e17b763 | 288 | |
2a8854a7 | 289 | element = &((struct tui_win_element *) locator->content[0])->whichElement.locator; |
2e17b763 SC |
290 | element->fileName[0] = 0; |
291 | strcat_to_buf (element->fileName, MAX_LOCATOR_ELEMENT_LEN, filename); | |
292 | } | |
c906108c | 293 | |
c7c228ed | 294 | /* Update the locator, with the provided arguments. */ |
2e17b763 SC |
295 | static void |
296 | tui_set_locator_info (const char *filename, const char *procname, int lineno, | |
7d6dd1e9 | 297 | CORE_ADDR addr) |
c906108c | 298 | { |
2a8854a7 AC |
299 | struct tui_gen_win_info * locator = tui_locator_win_info_ptr (); |
300 | struct tui_locator_element * element; | |
7d6dd1e9 SC |
301 | |
302 | /* Allocate the locator content if necessary. */ | |
303 | if (locator->contentSize <= 0) | |
304 | { | |
dd1abb8c | 305 | locator->content = (OpaquePtr) tui_alloc_content (1, locator->type); |
7d6dd1e9 SC |
306 | locator->contentSize = 1; |
307 | } | |
308 | ||
2a8854a7 | 309 | element = &((struct tui_win_element *) locator->content[0])->whichElement.locator; |
c906108c | 310 | element->procName[0] = (char) 0; |
c906108c | 311 | strcat_to_buf (element->procName, MAX_LOCATOR_ELEMENT_LEN, procname); |
2e17b763 | 312 | element->lineNo = lineno; |
c774cec6 | 313 | element->addr = addr; |
2e17b763 | 314 | tui_set_locator_filename (filename); |
c7c228ed | 315 | } |
c906108c | 316 | |
2e17b763 | 317 | /* Update only the filename portion of the locator. */ |
c906108c | 318 | void |
47d3492a | 319 | tui_update_locator_filename (const char *filename) |
c906108c | 320 | { |
2e17b763 | 321 | tui_set_locator_filename (filename); |
47d3492a | 322 | tui_show_locator_content (); |
2e17b763 | 323 | } |
c906108c | 324 | |
7d6dd1e9 | 325 | /* Function to print the frame information for the TUI. */ |
c906108c | 326 | void |
47d3492a | 327 | tui_show_frame_info (struct frame_info *fi) |
c906108c | 328 | { |
2a8854a7 | 329 | struct tui_win_info * winInfo; |
c906108c SS |
330 | register int i; |
331 | ||
332 | if (fi) | |
333 | { | |
334 | register int startLine, i; | |
c906108c | 335 | CORE_ADDR low; |
2a8854a7 | 336 | struct tui_gen_win_info * locator = tui_locator_win_info_ptr (); |
c906108c | 337 | int sourceAlreadyDisplayed; |
7d6dd1e9 SC |
338 | struct symtab_and_line sal; |
339 | ||
3d7442da | 340 | find_frame_sal (fi, &sal); |
7d6dd1e9 SC |
341 | |
342 | sourceAlreadyDisplayed = sal.symtab != 0 | |
a358af15 | 343 | && tui_source_is_displayed (sal.symtab->filename); |
7d6dd1e9 SC |
344 | tui_set_locator_info (sal.symtab == 0 ? "??" : sal.symtab->filename, |
345 | tui_get_function_from_frame (fi), | |
346 | sal.line, | |
f70a7d61 | 347 | get_frame_pc (fi)); |
47d3492a | 348 | tui_show_locator_content (); |
7d6dd1e9 | 349 | startLine = 0; |
dd1abb8c | 350 | for (i = 0; i < (tui_source_windows ())->count; i++) |
c906108c | 351 | { |
2a8854a7 AC |
352 | union tui_which_element *item; |
353 | winInfo = (struct tui_win_info *) (tui_source_windows ())->list[i]; | |
a4b99e53 | 354 | |
2a8854a7 | 355 | item = &((struct tui_win_element *) locator->content[0])->whichElement; |
c906108c SS |
356 | if (winInfo == srcWin) |
357 | { | |
a4b99e53 SC |
358 | startLine = (item->locator.lineNo - |
359 | (winInfo->generic.viewportHeight / 2)) + 1; | |
c906108c SS |
360 | if (startLine <= 0) |
361 | startLine = 1; | |
362 | } | |
363 | else | |
364 | { | |
f70a7d61 AS |
365 | if (find_pc_partial_function (get_frame_pc (fi), (char **) NULL, |
366 | &low, (CORE_ADDR) NULL) == 0) | |
c906108c SS |
367 | error ("No function contains program counter for selected frame.\n"); |
368 | else | |
f70a7d61 | 369 | low = tuiGetLowDisassemblyAddress (low, get_frame_pc (fi)); |
c906108c SS |
370 | } |
371 | ||
372 | if (winInfo == srcWin) | |
373 | { | |
2a8854a7 | 374 | union tui_line_or_address l; |
a4b99e53 SC |
375 | l.lineNo = startLine; |
376 | if (!(sourceAlreadyDisplayed | |
f80bda8e AC |
377 | && tui_line_is_displayed (item->locator.lineNo, winInfo, TRUE))) |
378 | tui_update_source_window (winInfo, sal.symtab, l, TRUE); | |
c906108c | 379 | else |
a4b99e53 SC |
380 | { |
381 | l.lineNo = item->locator.lineNo; | |
f80bda8e | 382 | tui_set_is_exec_point_at (l, winInfo); |
a4b99e53 | 383 | } |
c906108c SS |
384 | } |
385 | else | |
386 | { | |
387 | if (winInfo == disassemWin) | |
388 | { | |
2a8854a7 | 389 | union tui_line_or_address a; |
a4b99e53 | 390 | a.addr = low; |
f80bda8e AC |
391 | if (!tui_addr_is_displayed (item->locator.addr, winInfo, TRUE)) |
392 | tui_update_source_window (winInfo, sal.symtab, a, TRUE); | |
c906108c | 393 | else |
a4b99e53 SC |
394 | { |
395 | a.addr = item->locator.addr; | |
f80bda8e | 396 | tui_set_is_exec_point_at (a, winInfo); |
a4b99e53 | 397 | } |
c906108c SS |
398 | } |
399 | } | |
f80bda8e | 400 | tui_update_exec_info (winInfo); |
c906108c SS |
401 | } |
402 | } | |
403 | else | |
404 | { | |
7d6dd1e9 | 405 | tui_set_locator_info (NULL, NULL, 0, (CORE_ADDR) 0); |
47d3492a | 406 | tui_show_locator_content (); |
dd1abb8c | 407 | for (i = 0; i < (tui_source_windows ())->count; i++) |
c906108c | 408 | { |
2a8854a7 | 409 | winInfo = (struct tui_win_info *) (tui_source_windows ())->list[i]; |
f80bda8e AC |
410 | tui_clear_source_content (winInfo, EMPTY_SOURCE_PROMPT); |
411 | tui_update_exec_info (winInfo); | |
c906108c SS |
412 | } |
413 | } | |
7d6dd1e9 | 414 | } |
c906108c | 415 | |
7563e053 | 416 | /* Function to initialize gdb commands, for tui window stack manipulation. */ |
c906108c | 417 | void |
fba45db2 | 418 | _initialize_tuiStack (void) |
c906108c | 419 | { |
7563e053 SC |
420 | add_com ("update", class_tui, tui_update_command, |
421 | "Update the source window and locator to display the current " | |
422 | "execution point.\n"); | |
41783295 | 423 | } |
c906108c | 424 | |
7563e053 | 425 | /* Command to update the display with the current execution point. */ |
c906108c | 426 | static void |
7563e053 | 427 | tui_update_command (char *arg, int from_tty) |
c906108c | 428 | { |
7563e053 | 429 | char cmd[sizeof("frame 0")]; |
c906108c | 430 | |
7563e053 SC |
431 | strcpy (cmd, "frame 0"); |
432 | execute_command (cmd, from_tty); | |
433 | } |