1 /* TUI window generic functions.
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. */
25 /* This module contains procedures for handling tui window functions
26 like resize, scrolling, scrolling, changing focus, etc.
28 Author: Susan B. Macchia */
33 #include "breakpoint.h"
35 #include "cli/cli-cmds.h"
40 #include "tui/tui-data.h"
41 #include "tui/tui-wingeneral.h"
42 #include "tui/tui-stack.h"
43 #include "tui/tui-regs.h"
44 #include "tui/tui-disasm.h"
45 #include "tui/tui-source.h"
46 #include "tui/tui-winsource.h"
47 #include "tui/tui-windata.h"
49 #include "gdb_curses.h"
51 #include "gdb_string.h"
53 #include "readline/readline.h"
55 /*******************************
57 ********************************/
58 static void make_visible_with_new_height (struct tui_win_info
*);
59 static void make_invisible_and_set_new_height (struct tui_win_info
*, int);
60 static enum tui_status
tui_adjust_win_heights (struct tui_win_info
*, int);
61 static int new_height_ok (struct tui_win_info
*, int);
62 static void tui_set_tab_width_command (char *, int);
63 static void tui_refresh_all_command (char *, int);
64 static void tui_set_win_height_command (char *, int);
65 static void tui_xdb_set_win_height_command (char *, int);
66 static void tui_all_windows_info (char *, int);
67 static void tui_set_focus_command (char *, int);
68 static void tui_scroll_forward_command (char *, int);
69 static void tui_scroll_backward_command (char *, int);
70 static void tui_scroll_left_command (char *, int);
71 static void tui_scroll_right_command (char *, int);
72 static void parse_scrolling_args (char *, struct tui_win_info
* *, int *);
75 /***************************************
77 ***************************************/
78 #define WIN_HEIGHT_USAGE "Usage: winheight <win_name> [+ | -] <#lines>\n"
79 #define XDBWIN_HEIGHT_USAGE "Usage: w <#lines>\n"
80 #define FOCUS_USAGE "Usage: focus {<win> | next | prev}\n"
82 /***************************************
84 ***************************************/
87 # define ACS_LRCORNER '+'
90 # define ACS_LLCORNER '+'
93 # define ACS_ULCORNER '+'
96 # define ACS_URCORNER '+'
99 # define ACS_HLINE '-'
102 # define ACS_VLINE '|'
105 /* Possible values for tui-border-kind variable. */
106 static const char *tui_border_kind_enums
[] = {
113 /* Possible values for tui-border-mode and tui-active-border-mode. */
114 static const char *tui_border_mode_enums
[] = {
131 /* Translation table for border-mode variables.
132 The list of values must be terminated by a NULL.
133 After the NULL value, an entry defines the default. */
134 struct tui_translate tui_border_mode_translate
[] = {
135 { "normal", A_NORMAL
},
136 { "standout", A_STANDOUT
},
137 { "reverse", A_REVERSE
},
139 { "half-standout", A_DIM
| A_STANDOUT
},
141 { "bold-standout", A_BOLD
| A_STANDOUT
},
143 { "normal", A_NORMAL
}
146 /* Translation tables for border-kind, one for each border
147 character (see wborder, border curses operations).
148 -1 is used to indicate the ACS because ACS characters
149 are determined at run time by curses (depends on terminal). */
150 struct tui_translate tui_border_kind_translate_vline
[] = {
158 struct tui_translate tui_border_kind_translate_hline
[] = {
166 struct tui_translate tui_border_kind_translate_ulcorner
[] = {
174 struct tui_translate tui_border_kind_translate_urcorner
[] = {
182 struct tui_translate tui_border_kind_translate_llcorner
[] = {
190 struct tui_translate tui_border_kind_translate_lrcorner
[] = {
199 /* Tui configuration variables controlled with set/show command. */
200 const char *tui_active_border_mode
= "bold-standout";
201 const char *tui_border_mode
= "normal";
202 const char *tui_border_kind
= "acs";
204 /* Tui internal configuration variables. These variables are
205 updated by tui_update_variables to reflect the tui configuration
207 chtype tui_border_vline
;
208 chtype tui_border_hline
;
209 chtype tui_border_ulcorner
;
210 chtype tui_border_urcorner
;
211 chtype tui_border_llcorner
;
212 chtype tui_border_lrcorner
;
214 int tui_border_attrs
;
215 int tui_active_border_attrs
;
217 /* Identify the item in the translation table.
218 When the item is not recognized, use the default entry. */
219 static struct tui_translate
*
220 translate (const char *name
, struct tui_translate
*table
)
224 if (name
&& strcmp (table
->name
, name
) == 0)
229 /* Not found, return default entry. */
234 /* Update the tui internal configuration according to gdb settings.
235 Returns 1 if the configuration has changed and the screen should
238 tui_update_variables (void)
241 struct tui_translate
*entry
;
243 entry
= translate (tui_border_mode
, tui_border_mode_translate
);
244 if (tui_border_attrs
!= entry
->value
)
246 tui_border_attrs
= entry
->value
;
249 entry
= translate (tui_active_border_mode
, tui_border_mode_translate
);
250 if (tui_active_border_attrs
!= entry
->value
)
252 tui_active_border_attrs
= entry
->value
;
256 /* If one corner changes, all characters are changed.
257 Only check the first one. The ACS characters are determined at
258 run time by curses terminal management. */
259 entry
= translate (tui_border_kind
, tui_border_kind_translate_lrcorner
);
260 if (tui_border_lrcorner
!= (chtype
) entry
->value
)
262 tui_border_lrcorner
= (entry
->value
< 0) ? ACS_LRCORNER
: entry
->value
;
265 entry
= translate (tui_border_kind
, tui_border_kind_translate_llcorner
);
266 tui_border_llcorner
= (entry
->value
< 0) ? ACS_LLCORNER
: entry
->value
;
268 entry
= translate (tui_border_kind
, tui_border_kind_translate_ulcorner
);
269 tui_border_ulcorner
= (entry
->value
< 0) ? ACS_ULCORNER
: entry
->value
;
271 entry
= translate (tui_border_kind
, tui_border_kind_translate_urcorner
);
272 tui_border_urcorner
= (entry
->value
< 0) ? ACS_URCORNER
: entry
->value
;
274 entry
= translate (tui_border_kind
, tui_border_kind_translate_hline
);
275 tui_border_hline
= (entry
->value
< 0) ? ACS_HLINE
: entry
->value
;
277 entry
= translate (tui_border_kind
, tui_border_kind_translate_vline
);
278 tui_border_vline
= (entry
->value
< 0) ? ACS_VLINE
: entry
->value
;
284 set_tui_cmd (char *args
, int from_tty
)
289 show_tui_cmd (char *args
, int from_tty
)
293 static struct cmd_list_element
*tuilist
;
296 tui_command (char *args
, int from_tty
)
298 printf_unfiltered (_("\"tui\" must be followed by the name of a "
300 help_list (tuilist
, "tui ", -1, gdb_stdout
);
303 struct cmd_list_element
**
304 tui_get_cmd_list (void)
307 add_prefix_cmd ("tui", class_tui
, tui_command
,
308 _("Text User Interface commands."),
309 &tuilist
, "tui ", 0, &cmdlist
);
313 /* Function to initialize gdb commands, for tui window manipulation. */
315 _initialize_tui_win (void)
317 struct cmd_list_element
*c
;
318 static struct cmd_list_element
*tui_setlist
;
319 static struct cmd_list_element
*tui_showlist
;
321 /* Define the classes of commands.
322 They will appear in the help list in the reverse of this order. */
323 add_prefix_cmd ("tui", class_tui
, set_tui_cmd
,
324 _("TUI configuration variables"),
325 &tui_setlist
, "set tui ",
326 0/*allow-unknown*/, &setlist
);
327 add_prefix_cmd ("tui", class_tui
, show_tui_cmd
,
328 _("TUI configuration variables"),
329 &tui_showlist
, "show tui ",
330 0/*allow-unknown*/, &showlist
);
332 add_com ("refresh", class_tui
, tui_refresh_all_command
,
333 _("Refresh the terminal display.\n"));
335 add_com_alias ("U", "refresh", class_tui
, 0);
336 add_com ("tabset", class_tui
, tui_set_tab_width_command
, _("\
337 Set the width (in characters) of tab stops.\n\
338 Usage: tabset <n>\n"));
339 add_com ("winheight", class_tui
, tui_set_win_height_command
, _("\
340 Set the height of a specified window.\n\
341 Usage: winheight <win_name> [+ | -] <#lines>\n\
343 src : the source window\n\
344 cmd : the command window\n\
345 asm : the disassembly window\n\
346 regs : the register display\n"));
347 add_com_alias ("wh", "winheight", class_tui
, 0);
348 add_info ("win", tui_all_windows_info
,
349 _("List of all displayed windows.\n"));
350 add_com ("focus", class_tui
, tui_set_focus_command
, _("\
351 Set focus to named window or next/prev window.\n\
352 Usage: focus {<win> | next | prev}\n\
353 Valid Window names are:\n\
354 src : the source window\n\
355 asm : the disassembly window\n\
356 regs : the register display\n\
357 cmd : the command window\n"));
358 add_com_alias ("fs", "focus", class_tui
, 0);
359 add_com ("+", class_tui
, tui_scroll_forward_command
, _("\
360 Scroll window forward.\n\
361 Usage: + [win] [n]\n"));
362 add_com ("-", class_tui
, tui_scroll_backward_command
, _("\
363 Scroll window backward.\n\
364 Usage: - [win] [n]\n"));
365 add_com ("<", class_tui
, tui_scroll_left_command
, _("\
366 Scroll window forward.\n\
367 Usage: < [win] [n]\n"));
368 add_com (">", class_tui
, tui_scroll_right_command
, _("\
369 Scroll window backward.\n\
370 Usage: > [win] [n]\n"));
372 add_com ("w", class_xdb
, tui_xdb_set_win_height_command
, _("\
373 XDB compatibility command for setting the height of a command window.\n\
374 Usage: w <#lines>\n"));
376 /* Define the tui control variables. */
377 add_setshow_enum_cmd ("border-kind", no_class
, tui_border_kind_enums
,
378 &tui_border_kind
, _("\
379 Set the kind of border for TUI windows."), _("\
380 Show the kind of border for TUI windows."), _("\
381 This variable controls the border of TUI windows:\n\
382 space use a white space\n\
383 ascii use ascii characters + - | for the border\n\
384 acs use the Alternate Character Set"),
386 NULL
, /* FIXME: i18n: */
387 &tui_setlist
, &tui_showlist
);
389 add_setshow_enum_cmd ("border-mode", no_class
, tui_border_mode_enums
,
390 &tui_border_mode
, _("\
391 Set the attribute mode to use for the TUI window borders."), _("\
392 Show the attribute mode to use for the TUI window borders."), _("\
393 This variable controls the attributes to use for the window borders:\n\
394 normal normal display\n\
395 standout use highlight mode of terminal\n\
396 reverse use reverse video mode\n\
397 half use half bright\n\
398 half-standout use half bright and standout mode\n\
399 bold use extra bright or bold\n\
400 bold-standout use extra bright or bold with standout mode"),
402 NULL
, /* FIXME: i18n: */
403 &tui_setlist
, &tui_showlist
);
405 add_setshow_enum_cmd ("active-border-mode", no_class
, tui_border_mode_enums
,
406 &tui_active_border_mode
, _("\
407 Set the attribute mode to use for the active TUI window border."), _("\
408 Show the attribute mode to use for the active TUI window border."), _("\
409 This variable controls the attributes to use for the active window border:\n\
410 normal normal display\n\
411 standout use highlight mode of terminal\n\
412 reverse use reverse video mode\n\
413 half use half bright\n\
414 half-standout use half bright and standout mode\n\
415 bold use extra bright or bold\n\
416 bold-standout use extra bright or bold with standout mode"),
418 NULL
, /* FIXME: i18n: */
419 &tui_setlist
, &tui_showlist
);
422 /* Update gdb's knowledge of the terminal size. */
424 tui_update_gdb_sizes (void)
427 int screenheight
, screenwidth
;
429 rl_get_screen_size (&screenheight
, &screenwidth
);
430 /* Set to TUI command window dimension or use readline values. */
431 sprintf (cmd
, "set width %d",
432 tui_active
? TUI_CMD_WIN
->generic
.width
: screenwidth
);
433 execute_command (cmd
, 0);
434 sprintf (cmd
, "set height %d",
435 tui_active
? TUI_CMD_WIN
->generic
.height
: screenheight
);
436 execute_command (cmd
, 0);
440 /* Set the logical focus to win_info. */
442 tui_set_win_focus_to (struct tui_win_info
* win_info
)
444 if (win_info
!= NULL
)
446 struct tui_win_info
* win_with_focus
= tui_win_with_focus ();
448 if (win_with_focus
!= NULL
449 && win_with_focus
->generic
.type
!= CMD_WIN
)
450 tui_unhighlight_win (win_with_focus
);
451 tui_set_win_with_focus (win_info
);
452 if (win_info
->generic
.type
!= CMD_WIN
)
453 tui_highlight_win (win_info
);
459 tui_scroll_forward (struct tui_win_info
* win_to_scroll
, int num_to_scroll
)
461 if (win_to_scroll
!= TUI_CMD_WIN
)
463 int _num_to_scroll
= num_to_scroll
;
465 if (num_to_scroll
== 0)
466 _num_to_scroll
= win_to_scroll
->generic
.height
- 3;
468 ** If we are scrolling the source or disassembly window, do a
469 ** "psuedo" scroll since not all of the source is in memory,
470 ** only what is in the viewport. If win_to_scroll is the
471 ** command window do nothing since the term should handle it.
473 if (win_to_scroll
== TUI_SRC_WIN
)
474 tui_vertical_source_scroll (FORWARD_SCROLL
, _num_to_scroll
);
475 else if (win_to_scroll
== TUI_DISASM_WIN
)
476 tui_vertical_disassem_scroll (FORWARD_SCROLL
, _num_to_scroll
);
477 else if (win_to_scroll
== TUI_DATA_WIN
)
478 tui_vertical_data_scroll (FORWARD_SCROLL
, _num_to_scroll
);
483 tui_scroll_backward (struct tui_win_info
* win_to_scroll
, int num_to_scroll
)
485 if (win_to_scroll
!= TUI_CMD_WIN
)
487 int _num_to_scroll
= num_to_scroll
;
489 if (num_to_scroll
== 0)
490 _num_to_scroll
= win_to_scroll
->generic
.height
- 3;
492 ** If we are scrolling the source or disassembly window, do a
493 ** "psuedo" scroll since not all of the source is in memory,
494 ** only what is in the viewport. If win_to_scroll is the
495 ** command window do nothing since the term should handle it.
497 if (win_to_scroll
== TUI_SRC_WIN
)
498 tui_vertical_source_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
499 else if (win_to_scroll
== TUI_DISASM_WIN
)
500 tui_vertical_disassem_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
501 else if (win_to_scroll
== TUI_DATA_WIN
)
502 tui_vertical_data_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
508 tui_scroll_left (struct tui_win_info
* win_to_scroll
, int num_to_scroll
)
510 if (win_to_scroll
!= TUI_CMD_WIN
)
512 int _num_to_scroll
= num_to_scroll
;
514 if (_num_to_scroll
== 0)
517 ** If we are scrolling the source or disassembly window, do a
518 ** "psuedo" scroll since not all of the source is in memory,
519 ** only what is in the viewport. If win_to_scroll is the
520 ** command window do nothing since the term should handle it.
522 if (win_to_scroll
== TUI_SRC_WIN
|| win_to_scroll
== TUI_DISASM_WIN
)
523 tui_horizontal_source_scroll (win_to_scroll
, LEFT_SCROLL
, _num_to_scroll
);
529 tui_scroll_right (struct tui_win_info
* win_to_scroll
, int num_to_scroll
)
531 if (win_to_scroll
!= TUI_CMD_WIN
)
533 int _num_to_scroll
= num_to_scroll
;
535 if (_num_to_scroll
== 0)
538 ** If we are scrolling the source or disassembly window, do a
539 ** "psuedo" scroll since not all of the source is in memory,
540 ** only what is in the viewport. If win_to_scroll is the
541 ** command window do nothing since the term should handle it.
543 if (win_to_scroll
== TUI_SRC_WIN
|| win_to_scroll
== TUI_DISASM_WIN
)
544 tui_horizontal_source_scroll (win_to_scroll
, RIGHT_SCROLL
, _num_to_scroll
);
549 /* Scroll a window. Arguments are passed through a va_list. */
551 tui_scroll (enum tui_scroll_direction direction
,
552 struct tui_win_info
* win_to_scroll
,
558 tui_scroll_forward (win_to_scroll
, num_to_scroll
);
560 case BACKWARD_SCROLL
:
561 tui_scroll_backward (win_to_scroll
, num_to_scroll
);
564 tui_scroll_left (win_to_scroll
, num_to_scroll
);
567 tui_scroll_right (win_to_scroll
, num_to_scroll
);
576 tui_refresh_all_win (void)
578 enum tui_win_type type
;
580 clearok (curscr
, TRUE
);
581 tui_refresh_all (tui_win_list
);
582 for (type
= SRC_WIN
; type
< MAX_MAJOR_WINDOWS
; type
++)
584 if (tui_win_list
[type
] && tui_win_list
[type
]->generic
.is_visible
)
590 tui_show_source_content (tui_win_list
[type
]);
591 tui_check_and_display_highlight_if_needed (tui_win_list
[type
]);
592 tui_erase_exec_info_content (tui_win_list
[type
]);
593 tui_update_exec_info (tui_win_list
[type
]);
596 tui_refresh_data_win ();
603 tui_show_locator_content ();
607 /* Resize all the windows based on the the terminal size. This
608 function gets called from within the readline sinwinch handler. */
610 tui_resize_all (void)
612 int height_diff
, width_diff
;
613 int screenheight
, screenwidth
;
615 rl_get_screen_size (&screenheight
, &screenwidth
);
616 width_diff
= screenwidth
- tui_term_width ();
617 height_diff
= screenheight
- tui_term_height ();
618 if (height_diff
|| width_diff
)
620 enum tui_layout_type cur_layout
= tui_current_layout ();
621 struct tui_win_info
* win_with_focus
= tui_win_with_focus ();
622 struct tui_win_info
*first_win
;
623 struct tui_win_info
*second_win
;
624 struct tui_gen_win_info
* locator
= tui_locator_win_info_ptr ();
625 enum tui_win_type win_type
;
626 int new_height
, split_diff
, cmd_split_diff
, num_wins_displayed
= 2;
628 #ifdef HAVE_RESIZE_TERM
629 resize_term (screenheight
, screenwidth
);
631 /* turn keypad off while we resize */
632 if (win_with_focus
!= TUI_CMD_WIN
)
633 keypad (TUI_CMD_WIN
->generic
.handle
, FALSE
);
634 tui_update_gdb_sizes ();
635 tui_set_term_height_to (screenheight
);
636 tui_set_term_width_to (screenwidth
);
637 if (cur_layout
== SRC_DISASSEM_COMMAND
||
638 cur_layout
== SRC_DATA_COMMAND
|| cur_layout
== DISASSEM_DATA_COMMAND
)
639 num_wins_displayed
++;
640 split_diff
= height_diff
/ num_wins_displayed
;
641 cmd_split_diff
= split_diff
;
642 if (height_diff
% num_wins_displayed
)
649 /* now adjust each window */
655 case DISASSEM_COMMAND
:
656 first_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
657 first_win
->generic
.width
+= width_diff
;
658 locator
->width
+= width_diff
;
659 /* check for invalid heights */
660 if (height_diff
== 0)
661 new_height
= first_win
->generic
.height
;
662 else if ((first_win
->generic
.height
+ split_diff
) >=
663 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
664 new_height
= screenheight
- MIN_CMD_WIN_HEIGHT
- 1;
665 else if ((first_win
->generic
.height
+ split_diff
) <= 0)
666 new_height
= MIN_WIN_HEIGHT
;
668 new_height
= first_win
->generic
.height
+ split_diff
;
670 make_invisible_and_set_new_height (first_win
, new_height
);
671 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
672 TUI_CMD_WIN
->generic
.width
+= width_diff
;
673 new_height
= screenheight
- TUI_CMD_WIN
->generic
.origin
.y
;
674 make_invisible_and_set_new_height (TUI_CMD_WIN
, new_height
);
675 make_visible_with_new_height (first_win
);
676 make_visible_with_new_height (TUI_CMD_WIN
);
677 if (first_win
->generic
.content_size
<= 0)
678 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
681 if (cur_layout
== SRC_DISASSEM_COMMAND
)
683 first_win
= TUI_SRC_WIN
;
684 first_win
->generic
.width
+= width_diff
;
685 second_win
= TUI_DISASM_WIN
;
686 second_win
->generic
.width
+= width_diff
;
690 first_win
= TUI_DATA_WIN
;
691 first_win
->generic
.width
+= width_diff
;
692 second_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
693 second_win
->generic
.width
+= width_diff
;
695 /* Change the first window's height/width */
696 /* check for invalid heights */
697 if (height_diff
== 0)
698 new_height
= first_win
->generic
.height
;
699 else if ((first_win
->generic
.height
+
700 second_win
->generic
.height
+ (split_diff
* 2)) >=
701 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
702 new_height
= (screenheight
- MIN_CMD_WIN_HEIGHT
- 1) / 2;
703 else if ((first_win
->generic
.height
+ split_diff
) <= 0)
704 new_height
= MIN_WIN_HEIGHT
;
706 new_height
= first_win
->generic
.height
+ split_diff
;
707 make_invisible_and_set_new_height (first_win
, new_height
);
709 locator
->width
+= width_diff
;
711 /* Change the second window's height/width */
712 /* check for invalid heights */
713 if (height_diff
== 0)
714 new_height
= second_win
->generic
.height
;
715 else if ((first_win
->generic
.height
+
716 second_win
->generic
.height
+ (split_diff
* 2)) >=
717 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
719 new_height
= screenheight
- MIN_CMD_WIN_HEIGHT
- 1;
721 new_height
= (new_height
/ 2) + 1;
725 else if ((second_win
->generic
.height
+ split_diff
) <= 0)
726 new_height
= MIN_WIN_HEIGHT
;
728 new_height
= second_win
->generic
.height
+ split_diff
;
729 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
730 make_invisible_and_set_new_height (second_win
, new_height
);
732 /* Change the command window's height/width */
733 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
734 make_invisible_and_set_new_height (
735 TUI_CMD_WIN
, TUI_CMD_WIN
->generic
.height
+ cmd_split_diff
);
736 make_visible_with_new_height (first_win
);
737 make_visible_with_new_height (second_win
);
738 make_visible_with_new_height (TUI_CMD_WIN
);
739 if (first_win
->generic
.content_size
<= 0)
740 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
741 if (second_win
->generic
.content_size
<= 0)
742 tui_erase_source_content (second_win
, EMPTY_SOURCE_PROMPT
);
746 ** Now remove all invisible windows, and their content so that they get
747 ** created again when called for with the new size
749 for (win_type
= SRC_WIN
; (win_type
< MAX_MAJOR_WINDOWS
); win_type
++)
751 if (win_type
!= CMD_WIN
&& (tui_win_list
[win_type
] != NULL
)
752 && !tui_win_list
[win_type
]->generic
.is_visible
)
754 tui_free_window (tui_win_list
[win_type
]);
755 tui_win_list
[win_type
] = (struct tui_win_info
*) NULL
;
758 tui_set_win_resized_to (TRUE
);
759 /* turn keypad back on, unless focus is in the command window */
760 if (win_with_focus
!= TUI_CMD_WIN
)
761 keypad (TUI_CMD_WIN
->generic
.handle
, TRUE
);
766 /* SIGWINCH signal handler for the tui. This signal handler is always
767 called, even when the readline package clears signals because it is
768 set as the old_sigwinch() (TUI only). */
770 tui_sigwinch_handler (int signal
)
773 ** Say that a resize was done so that the readline can do it
774 ** later when appropriate.
776 tui_set_win_resized_to (TRUE
);
781 /*************************
782 ** STATIC LOCAL FUNCTIONS
783 **************************/
787 tui_scroll_forward_command (char *arg
, int from_tty
)
789 int num_to_scroll
= 1;
790 struct tui_win_info
* win_to_scroll
;
792 /* Make sure the curses mode is enabled. */
794 if (arg
== (char *) NULL
)
795 parse_scrolling_args (arg
, &win_to_scroll
, (int *) NULL
);
797 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
798 tui_scroll (FORWARD_SCROLL
, win_to_scroll
, num_to_scroll
);
803 tui_scroll_backward_command (char *arg
, int from_tty
)
805 int num_to_scroll
= 1;
806 struct tui_win_info
* win_to_scroll
;
808 /* Make sure the curses mode is enabled. */
810 if (arg
== (char *) NULL
)
811 parse_scrolling_args (arg
, &win_to_scroll
, (int *) NULL
);
813 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
814 tui_scroll (BACKWARD_SCROLL
, win_to_scroll
, num_to_scroll
);
819 tui_scroll_left_command (char *arg
, int from_tty
)
822 struct tui_win_info
* win_to_scroll
;
824 /* Make sure the curses mode is enabled. */
826 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
827 tui_scroll (LEFT_SCROLL
, win_to_scroll
, num_to_scroll
);
832 tui_scroll_right_command (char *arg
, int from_tty
)
835 struct tui_win_info
* win_to_scroll
;
837 /* Make sure the curses mode is enabled. */
839 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
840 tui_scroll (RIGHT_SCROLL
, win_to_scroll
, num_to_scroll
);
844 /* Set focus to the window named by 'arg'. */
846 tui_set_focus (char *arg
, int from_tty
)
848 if (arg
!= (char *) NULL
)
850 char *buf_ptr
= (char *) xstrdup (arg
);
852 struct tui_win_info
* win_info
= (struct tui_win_info
*) NULL
;
854 for (i
= 0; (i
< strlen (buf_ptr
)); i
++)
855 buf_ptr
[i
] = toupper (arg
[i
]);
857 if (subset_compare (buf_ptr
, "NEXT"))
858 win_info
= tui_next_win (tui_win_with_focus ());
859 else if (subset_compare (buf_ptr
, "PREV"))
860 win_info
= tui_prev_win (tui_win_with_focus ());
862 win_info
= tui_partial_win_by_name (buf_ptr
);
864 if (win_info
== (struct tui_win_info
*) NULL
|| !win_info
->generic
.is_visible
)
865 warning (_("Invalid window specified. \n\
866 The window name specified must be valid and visible.\n"));
869 tui_set_win_focus_to (win_info
);
870 keypad (TUI_CMD_WIN
->generic
.handle
, (win_info
!= TUI_CMD_WIN
));
873 if (TUI_DATA_WIN
&& TUI_DATA_WIN
->generic
.is_visible
)
874 tui_refresh_data_win ();
876 printf_filtered (_("Focus set to %s window.\n"),
877 tui_win_name ((struct tui_gen_win_info
*) tui_win_with_focus ()));
880 warning (_("Incorrect Number of Arguments.\n%s"), FOCUS_USAGE
);
884 tui_set_focus_command (char *arg
, int from_tty
)
886 /* Make sure the curses mode is enabled. */
888 tui_set_focus (arg
, from_tty
);
893 tui_all_windows_info (char *arg
, int from_tty
)
895 enum tui_win_type type
;
896 struct tui_win_info
* win_with_focus
= tui_win_with_focus ();
898 for (type
= SRC_WIN
; (type
< MAX_MAJOR_WINDOWS
); type
++)
899 if (tui_win_list
[type
] && tui_win_list
[type
]->generic
.is_visible
)
901 if (win_with_focus
== tui_win_list
[type
])
902 printf_filtered (" %s\t(%d lines) <has focus>\n",
903 tui_win_name (&tui_win_list
[type
]->generic
),
904 tui_win_list
[type
]->generic
.height
);
906 printf_filtered (" %s\t(%d lines)\n",
907 tui_win_name (&tui_win_list
[type
]->generic
),
908 tui_win_list
[type
]->generic
.height
);
914 tui_refresh_all_command (char *arg
, int from_tty
)
916 /* Make sure the curses mode is enabled. */
919 tui_refresh_all_win ();
923 /* Set the height of the specified window. */
925 tui_set_tab_width_command (char *arg
, int from_tty
)
927 /* Make sure the curses mode is enabled. */
929 if (arg
!= (char *) NULL
)
935 tui_set_default_tab_len (ts
);
937 warning (_("Tab widths greater than 0 must be specified."));
942 /* Set the height of the specified window. */
944 tui_set_win_height (char *arg
, int from_tty
)
946 /* Make sure the curses mode is enabled. */
948 if (arg
!= (char *) NULL
)
950 char *buf
= xstrdup (arg
);
952 char *wname
= (char *) NULL
;
954 struct tui_win_info
* win_info
;
957 buf_ptr
= strchr (buf_ptr
, ' ');
958 if (buf_ptr
!= (char *) NULL
)
963 ** Validate the window name
965 for (i
= 0; i
< strlen (wname
); i
++)
966 wname
[i
] = toupper (wname
[i
]);
967 win_info
= tui_partial_win_by_name (wname
);
969 if (win_info
== (struct tui_win_info
*) NULL
|| !win_info
->generic
.is_visible
)
970 warning (_("Invalid window specified. \n\
971 The window name specified must be valid and visible.\n"));
974 /* Process the size */
975 while (*(++buf_ptr
) == ' ')
978 if (*buf_ptr
!= (char) 0)
981 int fixed_size
= TRUE
;
984 if (*buf_ptr
== '+' || *buf_ptr
== '-')
991 input_no
= atoi (buf_ptr
);
997 new_height
= input_no
;
999 new_height
= win_info
->generic
.height
+ input_no
;
1001 ** Now change the window's height, and adjust all
1002 ** other windows around it
1004 if (tui_adjust_win_heights (win_info
,
1005 new_height
) == TUI_FAILURE
)
1006 warning (_("Invalid window height specified.\n%s"),
1009 tui_update_gdb_sizes ();
1012 warning (_("Invalid window height specified.\n%s"),
1018 printf_filtered (WIN_HEIGHT_USAGE
);
1020 if (buf
!= (char *) NULL
)
1024 printf_filtered (WIN_HEIGHT_USAGE
);
1027 /* Set the height of the specified window, with va_list. */
1029 tui_set_win_height_command (char *arg
, int from_tty
)
1031 /* Make sure the curses mode is enabled. */
1033 tui_set_win_height (arg
, from_tty
);
1037 /* XDB Compatibility command for setting the window height. This will
1038 increase or decrease the command window by the specified amount. */
1040 tui_xdb_set_win_height (char *arg
, int from_tty
)
1042 /* Make sure the curses mode is enabled. */
1044 if (arg
!= (char *) NULL
)
1046 int input_no
= atoi (arg
);
1049 { /* Add 1 for the locator */
1050 int new_height
= tui_term_height () - (input_no
+ 1);
1052 if (!new_height_ok (tui_win_list
[CMD_WIN
], new_height
) ||
1053 tui_adjust_win_heights (tui_win_list
[CMD_WIN
],
1054 new_height
) == TUI_FAILURE
)
1055 warning (_("Invalid window height specified.\n%s"),
1056 XDBWIN_HEIGHT_USAGE
);
1059 warning (_("Invalid window height specified.\n%s"),
1060 XDBWIN_HEIGHT_USAGE
);
1063 warning (_("Invalid window height specified.\n%s"), XDBWIN_HEIGHT_USAGE
);
1066 /* Set the height of the specified window, with va_list. */
1068 tui_xdb_set_win_height_command (char *arg
, int from_tty
)
1070 tui_xdb_set_win_height (arg
, from_tty
);
1074 /* Function to adjust all window heights around the primary. */
1075 static enum tui_status
1076 tui_adjust_win_heights (struct tui_win_info
* primary_win_info
, int new_height
)
1078 enum tui_status status
= TUI_FAILURE
;
1080 if (new_height_ok (primary_win_info
, new_height
))
1082 status
= TUI_SUCCESS
;
1083 if (new_height
!= primary_win_info
->generic
.height
)
1086 struct tui_win_info
* win_info
;
1087 struct tui_gen_win_info
* locator
= tui_locator_win_info_ptr ();
1088 enum tui_layout_type cur_layout
= tui_current_layout ();
1090 diff
= (new_height
- primary_win_info
->generic
.height
) * (-1);
1091 if (cur_layout
== SRC_COMMAND
|| cur_layout
== DISASSEM_COMMAND
)
1093 struct tui_win_info
* src_win_info
;
1095 make_invisible_and_set_new_height (primary_win_info
, new_height
);
1096 if (primary_win_info
->generic
.type
== CMD_WIN
)
1098 win_info
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
1099 src_win_info
= win_info
;
1103 win_info
= tui_win_list
[CMD_WIN
];
1104 src_win_info
= primary_win_info
;
1106 make_invisible_and_set_new_height (win_info
,
1107 win_info
->generic
.height
+ diff
);
1108 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1109 make_visible_with_new_height (win_info
);
1110 make_visible_with_new_height (primary_win_info
);
1111 if (src_win_info
->generic
.content_size
<= 0)
1112 tui_erase_source_content (src_win_info
, EMPTY_SOURCE_PROMPT
);
1116 struct tui_win_info
*first_win
;
1117 struct tui_win_info
*second_win
;
1119 if (cur_layout
== SRC_DISASSEM_COMMAND
)
1121 first_win
= TUI_SRC_WIN
;
1122 second_win
= TUI_DISASM_WIN
;
1126 first_win
= TUI_DATA_WIN
;
1127 second_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
1129 if (primary_win_info
== TUI_CMD_WIN
)
1131 ** Split the change in height accross the 1st & 2nd windows
1132 ** adjusting them as well.
1134 int first_split_diff
= diff
/ 2; /* subtract the locator */
1135 int second_split_diff
= first_split_diff
;
1139 if (first_win
->generic
.height
>
1140 second_win
->generic
.height
)
1148 second_split_diff
--;
1150 second_split_diff
++;
1153 /* make sure that the minimum hieghts are honored */
1154 while ((first_win
->generic
.height
+ first_split_diff
) < 3)
1157 second_split_diff
--;
1159 while ((second_win
->generic
.height
+ second_split_diff
) < 3)
1161 second_split_diff
++;
1164 make_invisible_and_set_new_height (
1166 first_win
->generic
.height
+ first_split_diff
);
1167 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
1168 make_invisible_and_set_new_height (
1169 second_win
, second_win
->generic
.height
+ second_split_diff
);
1170 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1171 make_invisible_and_set_new_height (TUI_CMD_WIN
, new_height
);
1175 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1177 ** If there is no way to increase the command window
1178 ** take real estate from the 1st or 2nd window.
1180 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1183 for (i
= TUI_CMD_WIN
->generic
.height
+ diff
;
1185 if (primary_win_info
== first_win
)
1186 second_win
->generic
.height
--;
1188 first_win
->generic
.height
--;
1191 if (primary_win_info
== first_win
)
1192 make_invisible_and_set_new_height (first_win
, new_height
);
1194 make_invisible_and_set_new_height (
1196 first_win
->generic
.height
);
1197 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
1198 if (primary_win_info
== second_win
)
1199 make_invisible_and_set_new_height (second_win
, new_height
);
1201 make_invisible_and_set_new_height (
1202 second_win
, second_win
->generic
.height
);
1203 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1204 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1205 make_invisible_and_set_new_height (TUI_CMD_WIN
, 1);
1207 make_invisible_and_set_new_height (
1208 TUI_CMD_WIN
, TUI_CMD_WIN
->generic
.height
+ diff
);
1210 make_visible_with_new_height (TUI_CMD_WIN
);
1211 make_visible_with_new_height (second_win
);
1212 make_visible_with_new_height (first_win
);
1213 if (first_win
->generic
.content_size
<= 0)
1214 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
1215 if (second_win
->generic
.content_size
<= 0)
1216 tui_erase_source_content (second_win
, EMPTY_SOURCE_PROMPT
);
1225 /* Function make the target window (and auxillary windows associated
1226 with the targer) invisible, and set the new height and location. */
1228 make_invisible_and_set_new_height (struct tui_win_info
* win_info
, int height
)
1231 struct tui_gen_win_info
* gen_win_info
;
1233 tui_make_invisible (&win_info
->generic
);
1234 win_info
->generic
.height
= height
;
1236 win_info
->generic
.viewport_height
= height
- 1;
1238 win_info
->generic
.viewport_height
= height
;
1239 if (win_info
!= TUI_CMD_WIN
)
1240 win_info
->generic
.viewport_height
--;
1242 /* Now deal with the auxillary windows associated with win_info */
1243 switch (win_info
->generic
.type
)
1247 gen_win_info
= win_info
->detail
.source_info
.execution_info
;
1248 tui_make_invisible (gen_win_info
);
1249 gen_win_info
->height
= height
;
1250 gen_win_info
->origin
.y
= win_info
->generic
.origin
.y
;
1252 gen_win_info
->viewport_height
= height
- 1;
1254 gen_win_info
->viewport_height
= height
;
1255 if (win_info
!= TUI_CMD_WIN
)
1256 gen_win_info
->viewport_height
--;
1258 if (tui_win_has_locator (win_info
))
1260 gen_win_info
= tui_locator_win_info_ptr ();
1261 tui_make_invisible (gen_win_info
);
1262 gen_win_info
->origin
.y
= win_info
->generic
.origin
.y
+ height
;
1266 /* delete all data item windows */
1267 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
1269 gen_win_info
= (struct tui_gen_win_info
*) & ((struct tui_win_element
*)
1270 win_info
->generic
.content
[i
])->which_element
.data_window
;
1271 tui_delete_win (gen_win_info
->handle
);
1272 gen_win_info
->handle
= (WINDOW
*) NULL
;
1281 /* Function to make the windows with new heights visible. This means
1282 re-creating the windows' content since the window had to be
1283 destroyed to be made invisible. */
1285 make_visible_with_new_height (struct tui_win_info
* win_info
)
1289 tui_make_visible (&win_info
->generic
);
1290 tui_check_and_display_highlight_if_needed (win_info
);
1291 switch (win_info
->generic
.type
)
1295 tui_free_win_content (win_info
->detail
.source_info
.execution_info
);
1296 tui_make_visible (win_info
->detail
.source_info
.execution_info
);
1297 if (win_info
->generic
.content
!= NULL
)
1299 union tui_line_or_address line_or_addr
;
1300 struct symtab_and_line cursal
1301 = get_current_source_symtab_and_line ();
1303 if (win_info
->generic
.type
== SRC_WIN
)
1304 line_or_addr
.line_no
=
1305 win_info
->detail
.source_info
.start_line_or_addr
.line_no
;
1308 win_info
->detail
.source_info
.start_line_or_addr
.addr
;
1309 tui_free_win_content (&win_info
->generic
);
1310 tui_update_source_window (win_info
, cursal
.symtab
, line_or_addr
, TRUE
);
1312 else if (deprecated_selected_frame
!= (struct frame_info
*) NULL
)
1314 union tui_line_or_address line
;
1315 struct symtab_and_line cursal
= get_current_source_symtab_and_line ();
1318 s
= find_pc_symtab (get_frame_pc (deprecated_selected_frame
));
1319 if (win_info
->generic
.type
== SRC_WIN
)
1320 line
.line_no
= cursal
.line
;
1323 find_line_pc (s
, cursal
.line
, &line
.addr
);
1325 tui_update_source_window (win_info
, s
, line
, TRUE
);
1327 if (tui_win_has_locator (win_info
))
1329 tui_make_visible (tui_locator_win_info_ptr ());
1330 tui_show_locator_content ();
1334 tui_display_all_data ();
1337 win_info
->detail
.command_info
.cur_line
= 0;
1338 win_info
->detail
.command_info
.curch
= 0;
1339 wmove (win_info
->generic
.handle
,
1340 win_info
->detail
.command_info
.cur_line
,
1341 win_info
->detail
.command_info
.curch
);
1350 new_height_ok (struct tui_win_info
* primary_win_info
, int new_height
)
1352 int ok
= (new_height
< tui_term_height ());
1357 enum tui_layout_type cur_layout
= tui_current_layout ();
1359 diff
= (new_height
- primary_win_info
->generic
.height
) * (-1);
1360 if (cur_layout
== SRC_COMMAND
|| cur_layout
== DISASSEM_COMMAND
)
1362 ok
= ((primary_win_info
->generic
.type
== CMD_WIN
&&
1363 new_height
<= (tui_term_height () - 4) &&
1364 new_height
>= MIN_CMD_WIN_HEIGHT
) ||
1365 (primary_win_info
->generic
.type
!= CMD_WIN
&&
1366 new_height
<= (tui_term_height () - 2) &&
1367 new_height
>= MIN_WIN_HEIGHT
));
1369 { /* check the total height */
1370 struct tui_win_info
* win_info
;
1372 if (primary_win_info
== TUI_CMD_WIN
)
1373 win_info
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
1375 win_info
= TUI_CMD_WIN
;
1377 (win_info
->generic
.height
+ diff
)) <= tui_term_height ());
1382 int cur_total_height
, total_height
, min_height
= 0;
1383 struct tui_win_info
*first_win
;
1384 struct tui_win_info
*second_win
;
1386 if (cur_layout
== SRC_DISASSEM_COMMAND
)
1388 first_win
= TUI_SRC_WIN
;
1389 second_win
= TUI_DISASM_WIN
;
1393 first_win
= TUI_DATA_WIN
;
1394 second_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
1397 ** We could simply add all the heights to obtain the same result
1398 ** but below is more explicit since we subtract 1 for the
1399 ** line that the first and second windows share, and add one
1402 total_height
= cur_total_height
=
1403 (first_win
->generic
.height
+ second_win
->generic
.height
- 1)
1404 + TUI_CMD_WIN
->generic
.height
+ 1 /*locator */ ;
1405 if (primary_win_info
== TUI_CMD_WIN
)
1407 /* locator included since first & second win share a line */
1408 ok
= ((first_win
->generic
.height
+
1409 second_win
->generic
.height
+ diff
) >=
1410 (MIN_WIN_HEIGHT
* 2) &&
1411 new_height
>= MIN_CMD_WIN_HEIGHT
);
1414 total_height
= new_height
+ (first_win
->generic
.height
+
1415 second_win
->generic
.height
+ diff
);
1416 min_height
= MIN_CMD_WIN_HEIGHT
;
1421 min_height
= MIN_WIN_HEIGHT
;
1423 ** First see if we can increase/decrease the command
1424 ** window. And make sure that the command window is
1427 ok
= ((TUI_CMD_WIN
->generic
.height
+ diff
) > 0);
1430 ** Looks like we have to increase/decrease one of
1431 ** the other windows
1433 if (primary_win_info
== first_win
)
1434 ok
= (second_win
->generic
.height
+ diff
) >= min_height
;
1436 ok
= (first_win
->generic
.height
+ diff
) >= min_height
;
1440 if (primary_win_info
== first_win
)
1441 total_height
= new_height
+
1442 second_win
->generic
.height
+
1443 TUI_CMD_WIN
->generic
.height
+ diff
;
1445 total_height
= new_height
+
1446 first_win
->generic
.height
+
1447 TUI_CMD_WIN
->generic
.height
+ diff
;
1451 ** Now make sure that the proposed total height doesn't exceed
1452 ** the old total height.
1455 ok
= (new_height
>= min_height
&& total_height
<= cur_total_height
);
1464 parse_scrolling_args (char *arg
, struct tui_win_info
* * win_to_scroll
,
1469 *win_to_scroll
= tui_win_with_focus ();
1472 ** First set up the default window to scroll, in case there is no
1475 if (arg
!= (char *) NULL
)
1477 char *buf
, *buf_ptr
;
1479 /* process the number of lines to scroll */
1480 buf
= buf_ptr
= xstrdup (arg
);
1481 if (isdigit (*buf_ptr
))
1486 buf_ptr
= strchr (buf_ptr
, ' ');
1487 if (buf_ptr
!= (char *) NULL
)
1489 *buf_ptr
= (char) 0;
1491 *num_to_scroll
= atoi (num_str
);
1494 else if (num_to_scroll
)
1495 *num_to_scroll
= atoi (num_str
);
1498 /* process the window name if one is specified */
1499 if (buf_ptr
!= (char *) NULL
)
1504 if (*buf_ptr
== ' ')
1505 while (*(++buf_ptr
) == ' ')
1508 if (*buf_ptr
!= (char) 0)
1513 /* Validate the window name */
1514 for (i
= 0; i
< strlen (wname
); i
++)
1515 wname
[i
] = toupper (wname
[i
]);
1516 *win_to_scroll
= tui_partial_win_by_name (wname
);
1518 if (*win_to_scroll
== (struct tui_win_info
*) NULL
||
1519 !(*win_to_scroll
)->generic
.is_visible
)
1520 warning (_("Invalid window specified. \n\
1521 The window name specified must be valid and visible.\n"));
1522 else if (*win_to_scroll
== TUI_CMD_WIN
)
1523 *win_to_scroll
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];