1 /* TUI window generic functions.
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. */
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";
202 show_tui_active_border_mode (struct ui_file
*file
, int from_tty
,
203 struct cmd_list_element
*c
, const char *value
)
205 fprintf_filtered (file
, _("\
206 The attribute mode to use for the active TUI window border is \"%s\".\n"),
210 const char *tui_border_mode
= "normal";
212 show_tui_border_mode (struct ui_file
*file
, int from_tty
,
213 struct cmd_list_element
*c
, const char *value
)
215 fprintf_filtered (file
, _("\
216 The attribute mode to use for the TUI window borders is \"%s\".\n"),
220 const char *tui_border_kind
= "acs";
222 show_tui_border_kind (struct ui_file
*file
, int from_tty
,
223 struct cmd_list_element
*c
, const char *value
)
225 fprintf_filtered (file
, _("The kind of border for TUI windows is \"%s\".\n"),
230 /* Tui internal configuration variables. These variables are updated
231 by tui_update_variables to reflect the tui configuration
233 chtype tui_border_vline
;
234 chtype tui_border_hline
;
235 chtype tui_border_ulcorner
;
236 chtype tui_border_urcorner
;
237 chtype tui_border_llcorner
;
238 chtype tui_border_lrcorner
;
240 int tui_border_attrs
;
241 int tui_active_border_attrs
;
243 /* Identify the item in the translation table.
244 When the item is not recognized, use the default entry. */
245 static struct tui_translate
*
246 translate (const char *name
, struct tui_translate
*table
)
250 if (name
&& strcmp (table
->name
, name
) == 0)
255 /* Not found, return default entry. */
260 /* Update the tui internal configuration according to gdb settings.
261 Returns 1 if the configuration has changed and the screen should
264 tui_update_variables (void)
267 struct tui_translate
*entry
;
269 entry
= translate (tui_border_mode
, tui_border_mode_translate
);
270 if (tui_border_attrs
!= entry
->value
)
272 tui_border_attrs
= entry
->value
;
275 entry
= translate (tui_active_border_mode
, tui_border_mode_translate
);
276 if (tui_active_border_attrs
!= entry
->value
)
278 tui_active_border_attrs
= entry
->value
;
282 /* If one corner changes, all characters are changed.
283 Only check the first one. The ACS characters are determined at
284 run time by curses terminal management. */
285 entry
= translate (tui_border_kind
, tui_border_kind_translate_lrcorner
);
286 if (tui_border_lrcorner
!= (chtype
) entry
->value
)
288 tui_border_lrcorner
= (entry
->value
< 0) ? ACS_LRCORNER
: entry
->value
;
291 entry
= translate (tui_border_kind
, tui_border_kind_translate_llcorner
);
292 tui_border_llcorner
= (entry
->value
< 0) ? ACS_LLCORNER
: entry
->value
;
294 entry
= translate (tui_border_kind
, tui_border_kind_translate_ulcorner
);
295 tui_border_ulcorner
= (entry
->value
< 0) ? ACS_ULCORNER
: entry
->value
;
297 entry
= translate (tui_border_kind
, tui_border_kind_translate_urcorner
);
298 tui_border_urcorner
= (entry
->value
< 0) ? ACS_URCORNER
: entry
->value
;
300 entry
= translate (tui_border_kind
, tui_border_kind_translate_hline
);
301 tui_border_hline
= (entry
->value
< 0) ? ACS_HLINE
: entry
->value
;
303 entry
= translate (tui_border_kind
, tui_border_kind_translate_vline
);
304 tui_border_vline
= (entry
->value
< 0) ? ACS_VLINE
: entry
->value
;
310 set_tui_cmd (char *args
, int from_tty
)
315 show_tui_cmd (char *args
, int from_tty
)
319 static struct cmd_list_element
*tuilist
;
322 tui_command (char *args
, int from_tty
)
324 printf_unfiltered (_("\"tui\" must be followed by the name of a "
326 help_list (tuilist
, "tui ", -1, gdb_stdout
);
329 struct cmd_list_element
**
330 tui_get_cmd_list (void)
333 add_prefix_cmd ("tui", class_tui
, tui_command
,
334 _("Text User Interface commands."),
335 &tuilist
, "tui ", 0, &cmdlist
);
339 /* Function to initialize gdb commands, for tui window manipulation. */
341 _initialize_tui_win (void)
343 struct cmd_list_element
*c
;
344 static struct cmd_list_element
*tui_setlist
;
345 static struct cmd_list_element
*tui_showlist
;
347 /* Define the classes of commands.
348 They will appear in the help list in the reverse of this order. */
349 add_prefix_cmd ("tui", class_tui
, set_tui_cmd
,
350 _("TUI configuration variables"),
351 &tui_setlist
, "set tui ",
352 0 /* allow-unknown */, &setlist
);
353 add_prefix_cmd ("tui", class_tui
, show_tui_cmd
,
354 _("TUI configuration variables"),
355 &tui_showlist
, "show tui ",
356 0 /* allow-unknown */, &showlist
);
358 add_com ("refresh", class_tui
, tui_refresh_all_command
,
359 _("Refresh the terminal display.\n"));
361 add_com_alias ("U", "refresh", class_tui
, 0);
362 add_com ("tabset", class_tui
, tui_set_tab_width_command
, _("\
363 Set the width (in characters) of tab stops.\n\
364 Usage: tabset <n>\n"));
365 add_com ("winheight", class_tui
, tui_set_win_height_command
, _("\
366 Set the height of a specified window.\n\
367 Usage: winheight <win_name> [+ | -] <#lines>\n\
369 src : the source window\n\
370 cmd : the command window\n\
371 asm : the disassembly window\n\
372 regs : the register display\n"));
373 add_com_alias ("wh", "winheight", class_tui
, 0);
374 add_info ("win", tui_all_windows_info
,
375 _("List of all displayed windows.\n"));
376 add_com ("focus", class_tui
, tui_set_focus_command
, _("\
377 Set focus to named window or next/prev window.\n\
378 Usage: focus {<win> | next | prev}\n\
379 Valid Window names are:\n\
380 src : the source window\n\
381 asm : the disassembly window\n\
382 regs : the register display\n\
383 cmd : the command window\n"));
384 add_com_alias ("fs", "focus", class_tui
, 0);
385 add_com ("+", class_tui
, tui_scroll_forward_command
, _("\
386 Scroll window forward.\n\
387 Usage: + [win] [n]\n"));
388 add_com ("-", class_tui
, tui_scroll_backward_command
, _("\
389 Scroll window backward.\n\
390 Usage: - [win] [n]\n"));
391 add_com ("<", class_tui
, tui_scroll_left_command
, _("\
392 Scroll window forward.\n\
393 Usage: < [win] [n]\n"));
394 add_com (">", class_tui
, tui_scroll_right_command
, _("\
395 Scroll window backward.\n\
396 Usage: > [win] [n]\n"));
398 add_com ("w", class_xdb
, tui_xdb_set_win_height_command
, _("\
399 XDB compatibility command for setting the height of a command window.\n\
400 Usage: w <#lines>\n"));
402 /* Define the tui control variables. */
403 add_setshow_enum_cmd ("border-kind", no_class
, tui_border_kind_enums
,
404 &tui_border_kind
, _("\
405 Set the kind of border for TUI windows."), _("\
406 Show the kind of border for TUI windows."), _("\
407 This variable controls the border of TUI windows:\n\
408 space use a white space\n\
409 ascii use ascii characters + - | for the border\n\
410 acs use the Alternate Character Set"),
412 show_tui_border_kind
,
413 &tui_setlist
, &tui_showlist
);
415 add_setshow_enum_cmd ("border-mode", no_class
, tui_border_mode_enums
,
416 &tui_border_mode
, _("\
417 Set the attribute mode to use for the TUI window borders."), _("\
418 Show the attribute mode to use for the TUI window borders."), _("\
419 This variable controls the attributes to use for the window borders:\n\
420 normal normal display\n\
421 standout use highlight mode of terminal\n\
422 reverse use reverse video mode\n\
423 half use half bright\n\
424 half-standout use half bright and standout mode\n\
425 bold use extra bright or bold\n\
426 bold-standout use extra bright or bold with standout mode"),
428 show_tui_border_mode
,
429 &tui_setlist
, &tui_showlist
);
431 add_setshow_enum_cmd ("active-border-mode", no_class
, tui_border_mode_enums
,
432 &tui_active_border_mode
, _("\
433 Set the attribute mode to use for the active TUI window border."), _("\
434 Show the attribute mode to use for the active TUI window border."), _("\
435 This variable controls the attributes to use for the active window border:\n\
436 normal normal display\n\
437 standout use highlight mode of terminal\n\
438 reverse use reverse video mode\n\
439 half use half bright\n\
440 half-standout use half bright and standout mode\n\
441 bold use extra bright or bold\n\
442 bold-standout use extra bright or bold with standout mode"),
444 show_tui_active_border_mode
,
445 &tui_setlist
, &tui_showlist
);
448 /* Update gdb's knowledge of the terminal size. */
450 tui_update_gdb_sizes (void)
454 /* Set to TUI command window dimension or use readline values. */
455 sprintf (cmd
, "set width %d",
456 tui_active
? TUI_CMD_WIN
->generic
.width
: tui_term_width());
457 execute_command (cmd
, 0);
458 sprintf (cmd
, "set height %d",
459 tui_active
? TUI_CMD_WIN
->generic
.height
: tui_term_height());
460 execute_command (cmd
, 0);
464 /* Set the logical focus to win_info. */
466 tui_set_win_focus_to (struct tui_win_info
*win_info
)
468 if (win_info
!= NULL
)
470 struct tui_win_info
*win_with_focus
= tui_win_with_focus ();
472 if (win_with_focus
!= NULL
473 && win_with_focus
->generic
.type
!= CMD_WIN
)
474 tui_unhighlight_win (win_with_focus
);
475 tui_set_win_with_focus (win_info
);
476 if (win_info
->generic
.type
!= CMD_WIN
)
477 tui_highlight_win (win_info
);
483 tui_scroll_forward (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
497 if (win_to_scroll
== TUI_SRC_WIN
)
498 tui_vertical_source_scroll (FORWARD_SCROLL
, _num_to_scroll
);
499 else if (win_to_scroll
== TUI_DISASM_WIN
)
500 tui_vertical_disassem_scroll (FORWARD_SCROLL
, _num_to_scroll
);
501 else if (win_to_scroll
== TUI_DATA_WIN
)
502 tui_vertical_data_scroll (FORWARD_SCROLL
, _num_to_scroll
);
507 tui_scroll_backward (struct tui_win_info
*win_to_scroll
, int num_to_scroll
)
509 if (win_to_scroll
!= TUI_CMD_WIN
)
511 int _num_to_scroll
= num_to_scroll
;
513 if (num_to_scroll
== 0)
514 _num_to_scroll
= win_to_scroll
->generic
.height
- 3;
516 /* If we are scrolling the source or disassembly window, do a
517 "psuedo" scroll since not all of the source is in memory,
518 only what is in the viewport. If win_to_scroll is the
519 command window do nothing since the term should handle
521 if (win_to_scroll
== TUI_SRC_WIN
)
522 tui_vertical_source_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
523 else if (win_to_scroll
== TUI_DISASM_WIN
)
524 tui_vertical_disassem_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
525 else if (win_to_scroll
== TUI_DATA_WIN
)
526 tui_vertical_data_scroll (BACKWARD_SCROLL
, _num_to_scroll
);
532 tui_scroll_left (struct tui_win_info
*win_to_scroll
, int num_to_scroll
)
534 if (win_to_scroll
!= TUI_CMD_WIN
)
536 int _num_to_scroll
= num_to_scroll
;
538 if (_num_to_scroll
== 0)
541 /* If we are scrolling the source or disassembly window, do a
542 "psuedo" scroll since not all of the source is in memory,
543 only what is in the viewport. If win_to_scroll is the command
544 window do nothing since the term should handle it. */
545 if (win_to_scroll
== TUI_SRC_WIN
|| win_to_scroll
== TUI_DISASM_WIN
)
546 tui_horizontal_source_scroll (win_to_scroll
, LEFT_SCROLL
, _num_to_scroll
);
552 tui_scroll_right (struct tui_win_info
*win_to_scroll
, int num_to_scroll
)
554 if (win_to_scroll
!= TUI_CMD_WIN
)
556 int _num_to_scroll
= num_to_scroll
;
558 if (_num_to_scroll
== 0)
561 /* If we are scrolling the source or disassembly window, do a
562 "psuedo" scroll since not all of the source is in memory,
563 only what is in the viewport. If win_to_scroll is the command
564 window do nothing since the term should handle it. */
565 if (win_to_scroll
== TUI_SRC_WIN
|| win_to_scroll
== TUI_DISASM_WIN
)
566 tui_horizontal_source_scroll (win_to_scroll
, RIGHT_SCROLL
, _num_to_scroll
);
571 /* Scroll a window. Arguments are passed through a va_list. */
573 tui_scroll (enum tui_scroll_direction direction
,
574 struct tui_win_info
*win_to_scroll
,
580 tui_scroll_forward (win_to_scroll
, num_to_scroll
);
582 case BACKWARD_SCROLL
:
583 tui_scroll_backward (win_to_scroll
, num_to_scroll
);
586 tui_scroll_left (win_to_scroll
, num_to_scroll
);
589 tui_scroll_right (win_to_scroll
, num_to_scroll
);
598 tui_refresh_all_win (void)
600 enum tui_win_type type
;
602 clearok (curscr
, TRUE
);
603 tui_refresh_all (tui_win_list
);
604 for (type
= SRC_WIN
; type
< MAX_MAJOR_WINDOWS
; type
++)
606 if (tui_win_list
[type
] && tui_win_list
[type
]->generic
.is_visible
)
612 tui_show_source_content (tui_win_list
[type
]);
613 tui_check_and_display_highlight_if_needed (tui_win_list
[type
]);
614 tui_erase_exec_info_content (tui_win_list
[type
]);
615 tui_update_exec_info (tui_win_list
[type
]);
618 tui_refresh_data_win ();
625 tui_show_locator_content ();
629 /* Resize all the windows based on the the terminal size. This
630 function gets called from within the readline sinwinch handler. */
632 tui_resize_all (void)
634 int height_diff
, width_diff
;
635 int screenheight
, screenwidth
;
637 rl_get_screen_size (&screenheight
, &screenwidth
);
638 width_diff
= screenwidth
- tui_term_width ();
639 height_diff
= screenheight
- tui_term_height ();
640 if (height_diff
|| width_diff
)
642 enum tui_layout_type cur_layout
= tui_current_layout ();
643 struct tui_win_info
*win_with_focus
= tui_win_with_focus ();
644 struct tui_win_info
*first_win
;
645 struct tui_win_info
*second_win
;
646 struct tui_gen_win_info
*locator
= tui_locator_win_info_ptr ();
647 enum tui_win_type win_type
;
648 int new_height
, split_diff
, cmd_split_diff
, num_wins_displayed
= 2;
650 #ifdef HAVE_RESIZE_TERM
651 resize_term (screenheight
, screenwidth
);
653 /* Turn keypad off while we resize. */
654 if (win_with_focus
!= TUI_CMD_WIN
)
655 keypad (TUI_CMD_WIN
->generic
.handle
, FALSE
);
656 tui_update_gdb_sizes ();
657 tui_set_term_height_to (screenheight
);
658 tui_set_term_width_to (screenwidth
);
659 if (cur_layout
== SRC_DISASSEM_COMMAND
||
660 cur_layout
== SRC_DATA_COMMAND
|| cur_layout
== DISASSEM_DATA_COMMAND
)
661 num_wins_displayed
++;
662 split_diff
= height_diff
/ num_wins_displayed
;
663 cmd_split_diff
= split_diff
;
664 if (height_diff
% num_wins_displayed
)
671 /* Now adjust each window. */
677 case DISASSEM_COMMAND
:
678 first_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
679 first_win
->generic
.width
+= width_diff
;
680 locator
->width
+= width_diff
;
681 /* Check for invalid heights. */
682 if (height_diff
== 0)
683 new_height
= first_win
->generic
.height
;
684 else if ((first_win
->generic
.height
+ split_diff
) >=
685 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
686 new_height
= screenheight
- MIN_CMD_WIN_HEIGHT
- 1;
687 else if ((first_win
->generic
.height
+ split_diff
) <= 0)
688 new_height
= MIN_WIN_HEIGHT
;
690 new_height
= first_win
->generic
.height
+ split_diff
;
692 make_invisible_and_set_new_height (first_win
, new_height
);
693 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
694 TUI_CMD_WIN
->generic
.width
+= width_diff
;
695 new_height
= screenheight
- TUI_CMD_WIN
->generic
.origin
.y
;
696 make_invisible_and_set_new_height (TUI_CMD_WIN
, new_height
);
697 make_visible_with_new_height (first_win
);
698 make_visible_with_new_height (TUI_CMD_WIN
);
699 if (first_win
->generic
.content_size
<= 0)
700 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
703 if (cur_layout
== SRC_DISASSEM_COMMAND
)
705 first_win
= TUI_SRC_WIN
;
706 first_win
->generic
.width
+= width_diff
;
707 second_win
= TUI_DISASM_WIN
;
708 second_win
->generic
.width
+= width_diff
;
712 first_win
= TUI_DATA_WIN
;
713 first_win
->generic
.width
+= width_diff
;
714 second_win
= (struct tui_win_info
*) (tui_source_windows ())->list
[0];
715 second_win
->generic
.width
+= width_diff
;
717 /* Change the first window's height/width. */
718 /* Check for invalid heights. */
719 if (height_diff
== 0)
720 new_height
= first_win
->generic
.height
;
721 else if ((first_win
->generic
.height
+
722 second_win
->generic
.height
+ (split_diff
* 2)) >=
723 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
724 new_height
= (screenheight
- MIN_CMD_WIN_HEIGHT
- 1) / 2;
725 else if ((first_win
->generic
.height
+ split_diff
) <= 0)
726 new_height
= MIN_WIN_HEIGHT
;
728 new_height
= first_win
->generic
.height
+ split_diff
;
729 make_invisible_and_set_new_height (first_win
, new_height
);
731 locator
->width
+= width_diff
;
733 /* Change the second window's height/width. */
734 /* Check for invalid heights. */
735 if (height_diff
== 0)
736 new_height
= second_win
->generic
.height
;
737 else if ((first_win
->generic
.height
+
738 second_win
->generic
.height
+ (split_diff
* 2)) >=
739 (screenheight
- MIN_CMD_WIN_HEIGHT
- 1))
741 new_height
= screenheight
- MIN_CMD_WIN_HEIGHT
- 1;
743 new_height
= (new_height
/ 2) + 1;
747 else if ((second_win
->generic
.height
+ split_diff
) <= 0)
748 new_height
= MIN_WIN_HEIGHT
;
750 new_height
= second_win
->generic
.height
+ split_diff
;
751 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
752 make_invisible_and_set_new_height (second_win
, new_height
);
754 /* Change the command window's height/width. */
755 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
756 make_invisible_and_set_new_height (
757 TUI_CMD_WIN
, TUI_CMD_WIN
->generic
.height
+ cmd_split_diff
);
758 make_visible_with_new_height (first_win
);
759 make_visible_with_new_height (second_win
);
760 make_visible_with_new_height (TUI_CMD_WIN
);
761 if (first_win
->generic
.content_size
<= 0)
762 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
763 if (second_win
->generic
.content_size
<= 0)
764 tui_erase_source_content (second_win
, EMPTY_SOURCE_PROMPT
);
767 /* Now remove all invisible windows, and their content so that
768 they get created again when called for with the new size. */
769 for (win_type
= SRC_WIN
; (win_type
< MAX_MAJOR_WINDOWS
); win_type
++)
771 if (win_type
!= CMD_WIN
&& (tui_win_list
[win_type
] != NULL
)
772 && !tui_win_list
[win_type
]->generic
.is_visible
)
774 tui_free_window (tui_win_list
[win_type
]);
775 tui_win_list
[win_type
] = (struct tui_win_info
*) NULL
;
778 tui_set_win_resized_to (TRUE
);
779 /* Turn keypad back on, unless focus is in the command
781 if (win_with_focus
!= TUI_CMD_WIN
)
782 keypad (TUI_CMD_WIN
->generic
.handle
, TRUE
);
787 /* SIGWINCH signal handler for the tui. This signal handler is always
788 called, even when the readline package clears signals because it is
789 set as the old_sigwinch() (TUI only). */
791 tui_sigwinch_handler (int signal
)
793 /* Say that a resize was done so that the readline can do it later
795 tui_set_win_resized_to (TRUE
);
800 /*************************
801 ** STATIC LOCAL FUNCTIONS
802 **************************/
806 tui_scroll_forward_command (char *arg
, int from_tty
)
808 int num_to_scroll
= 1;
809 struct tui_win_info
*win_to_scroll
;
811 /* Make sure the curses mode is enabled. */
813 if (arg
== (char *) NULL
)
814 parse_scrolling_args (arg
, &win_to_scroll
, (int *) NULL
);
816 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
817 tui_scroll (FORWARD_SCROLL
, win_to_scroll
, num_to_scroll
);
822 tui_scroll_backward_command (char *arg
, int from_tty
)
824 int num_to_scroll
= 1;
825 struct tui_win_info
*win_to_scroll
;
827 /* Make sure the curses mode is enabled. */
829 if (arg
== (char *) NULL
)
830 parse_scrolling_args (arg
, &win_to_scroll
, (int *) NULL
);
832 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
833 tui_scroll (BACKWARD_SCROLL
, win_to_scroll
, num_to_scroll
);
838 tui_scroll_left_command (char *arg
, int from_tty
)
841 struct tui_win_info
*win_to_scroll
;
843 /* Make sure the curses mode is enabled. */
845 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
846 tui_scroll (LEFT_SCROLL
, win_to_scroll
, num_to_scroll
);
851 tui_scroll_right_command (char *arg
, int from_tty
)
854 struct tui_win_info
*win_to_scroll
;
856 /* Make sure the curses mode is enabled. */
858 parse_scrolling_args (arg
, &win_to_scroll
, &num_to_scroll
);
859 tui_scroll (RIGHT_SCROLL
, win_to_scroll
, num_to_scroll
);
863 /* Set focus to the window named by 'arg'. */
865 tui_set_focus (char *arg
, int from_tty
)
867 if (arg
!= (char *) NULL
)
869 char *buf_ptr
= (char *) xstrdup (arg
);
871 struct tui_win_info
*win_info
= (struct tui_win_info
*) NULL
;
873 for (i
= 0; (i
< strlen (buf_ptr
)); i
++)
874 buf_ptr
[i
] = toupper (arg
[i
]);
876 if (subset_compare (buf_ptr
, "NEXT"))
877 win_info
= tui_next_win (tui_win_with_focus ());
878 else if (subset_compare (buf_ptr
, "PREV"))
879 win_info
= tui_prev_win (tui_win_with_focus ());
881 win_info
= tui_partial_win_by_name (buf_ptr
);
883 if (win_info
== (struct tui_win_info
*) NULL
|| !win_info
->generic
.is_visible
)
884 warning (_("Invalid window specified. \n\
885 The window name specified must be valid and visible.\n"));
888 tui_set_win_focus_to (win_info
);
889 keypad (TUI_CMD_WIN
->generic
.handle
, (win_info
!= TUI_CMD_WIN
));
892 if (TUI_DATA_WIN
&& TUI_DATA_WIN
->generic
.is_visible
)
893 tui_refresh_data_win ();
895 printf_filtered (_("Focus set to %s window.\n"),
896 tui_win_name ((struct tui_gen_win_info
*) tui_win_with_focus ()));
899 warning (_("Incorrect Number of Arguments.\n%s"), FOCUS_USAGE
);
903 tui_set_focus_command (char *arg
, int from_tty
)
905 /* Make sure the curses mode is enabled. */
907 tui_set_focus (arg
, from_tty
);
912 tui_all_windows_info (char *arg
, int from_tty
)
914 enum tui_win_type type
;
915 struct tui_win_info
*win_with_focus
= tui_win_with_focus ();
917 for (type
= SRC_WIN
; (type
< MAX_MAJOR_WINDOWS
); type
++)
918 if (tui_win_list
[type
] && tui_win_list
[type
]->generic
.is_visible
)
920 if (win_with_focus
== tui_win_list
[type
])
921 printf_filtered (" %s\t(%d lines) <has focus>\n",
922 tui_win_name (&tui_win_list
[type
]->generic
),
923 tui_win_list
[type
]->generic
.height
);
925 printf_filtered (" %s\t(%d lines)\n",
926 tui_win_name (&tui_win_list
[type
]->generic
),
927 tui_win_list
[type
]->generic
.height
);
933 tui_refresh_all_command (char *arg
, int from_tty
)
935 /* Make sure the curses mode is enabled. */
938 tui_refresh_all_win ();
942 /* Set the height of the specified window. */
944 tui_set_tab_width_command (char *arg
, int from_tty
)
946 /* Make sure the curses mode is enabled. */
948 if (arg
!= (char *) NULL
)
954 tui_set_default_tab_len (ts
);
956 warning (_("Tab widths greater than 0 must be specified."));
961 /* Set the height of the specified window. */
963 tui_set_win_height (char *arg
, int from_tty
)
965 /* Make sure the curses mode is enabled. */
967 if (arg
!= (char *) NULL
)
969 char *buf
= xstrdup (arg
);
971 char *wname
= (char *) NULL
;
973 struct tui_win_info
*win_info
;
976 buf_ptr
= strchr (buf_ptr
, ' ');
977 if (buf_ptr
!= (char *) NULL
)
981 /* Validate the window name. */
982 for (i
= 0; i
< strlen (wname
); i
++)
983 wname
[i
] = toupper (wname
[i
]);
984 win_info
= tui_partial_win_by_name (wname
);
986 if (win_info
== (struct tui_win_info
*) NULL
|| !win_info
->generic
.is_visible
)
987 warning (_("Invalid window specified. \n\
988 The window name specified must be valid and visible.\n"));
991 /* Process the size. */
992 while (*(++buf_ptr
) == ' ')
995 if (*buf_ptr
!= (char) 0)
998 int fixed_size
= TRUE
;
1001 if (*buf_ptr
== '+' || *buf_ptr
== '-')
1003 if (*buf_ptr
== '-')
1008 input_no
= atoi (buf_ptr
);
1014 new_height
= input_no
;
1016 new_height
= win_info
->generic
.height
+ input_no
;
1018 /* Now change the window's height, and adjust
1019 all other windows around it. */
1020 if (tui_adjust_win_heights (win_info
,
1021 new_height
) == TUI_FAILURE
)
1022 warning (_("Invalid window height specified.\n%s"),
1025 tui_update_gdb_sizes ();
1028 warning (_("Invalid window height specified.\n%s"),
1034 printf_filtered (WIN_HEIGHT_USAGE
);
1036 if (buf
!= (char *) NULL
)
1040 printf_filtered (WIN_HEIGHT_USAGE
);
1043 /* Set the height of the specified window, with va_list. */
1045 tui_set_win_height_command (char *arg
, int from_tty
)
1047 /* Make sure the curses mode is enabled. */
1049 tui_set_win_height (arg
, from_tty
);
1053 /* XDB Compatibility command for setting the window height. This will
1054 increase or decrease the command window by the specified
1057 tui_xdb_set_win_height (char *arg
, int from_tty
)
1059 /* Make sure the curses mode is enabled. */
1061 if (arg
!= (char *) NULL
)
1063 int input_no
= atoi (arg
);
1066 { /* Add 1 for the locator. */
1067 int new_height
= tui_term_height () - (input_no
+ 1);
1069 if (!new_height_ok (tui_win_list
[CMD_WIN
], new_height
) ||
1070 tui_adjust_win_heights (tui_win_list
[CMD_WIN
],
1071 new_height
) == TUI_FAILURE
)
1072 warning (_("Invalid window height specified.\n%s"),
1073 XDBWIN_HEIGHT_USAGE
);
1076 warning (_("Invalid window height specified.\n%s"),
1077 XDBWIN_HEIGHT_USAGE
);
1080 warning (_("Invalid window height specified.\n%s"), XDBWIN_HEIGHT_USAGE
);
1083 /* Set the height of the specified window, with va_list. */
1085 tui_xdb_set_win_height_command (char *arg
, int from_tty
)
1087 tui_xdb_set_win_height (arg
, from_tty
);
1091 /* Function to adjust all window heights around the primary. */
1092 static enum tui_status
1093 tui_adjust_win_heights (struct tui_win_info
*primary_win_info
, int new_height
)
1095 enum tui_status status
= TUI_FAILURE
;
1097 if (new_height_ok (primary_win_info
, new_height
))
1099 status
= TUI_SUCCESS
;
1100 if (new_height
!= primary_win_info
->generic
.height
)
1103 struct tui_win_info
*win_info
;
1104 struct tui_gen_win_info
*locator
= tui_locator_win_info_ptr ();
1105 enum tui_layout_type cur_layout
= tui_current_layout ();
1107 diff
= (new_height
- primary_win_info
->generic
.height
) * (-1);
1108 if (cur_layout
== SRC_COMMAND
|| cur_layout
== DISASSEM_COMMAND
)
1110 struct tui_win_info
*src_win_info
;
1112 make_invisible_and_set_new_height (primary_win_info
, new_height
);
1113 if (primary_win_info
->generic
.type
== CMD_WIN
)
1115 win_info
= (tui_source_windows ())->list
[0];
1116 src_win_info
= win_info
;
1120 win_info
= tui_win_list
[CMD_WIN
];
1121 src_win_info
= primary_win_info
;
1123 make_invisible_and_set_new_height (win_info
,
1124 win_info
->generic
.height
+ diff
);
1125 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1126 make_visible_with_new_height (win_info
);
1127 make_visible_with_new_height (primary_win_info
);
1128 if (src_win_info
->generic
.content_size
<= 0)
1129 tui_erase_source_content (src_win_info
, EMPTY_SOURCE_PROMPT
);
1133 struct tui_win_info
*first_win
;
1134 struct tui_win_info
*second_win
;
1136 if (cur_layout
== SRC_DISASSEM_COMMAND
)
1138 first_win
= TUI_SRC_WIN
;
1139 second_win
= TUI_DISASM_WIN
;
1143 first_win
= TUI_DATA_WIN
;
1144 second_win
= (tui_source_windows ())->list
[0];
1146 if (primary_win_info
== TUI_CMD_WIN
)
1147 { /* Split the change in height accross the 1st & 2nd
1148 windows, adjusting them as well. */
1149 /* Subtract the locator. */
1150 int first_split_diff
= diff
/ 2;
1151 int second_split_diff
= first_split_diff
;
1155 if (first_win
->generic
.height
>
1156 second_win
->generic
.height
)
1164 second_split_diff
--;
1166 second_split_diff
++;
1169 /* Make sure that the minimum hieghts are
1171 while ((first_win
->generic
.height
+ first_split_diff
) < 3)
1174 second_split_diff
--;
1176 while ((second_win
->generic
.height
+ second_split_diff
) < 3)
1178 second_split_diff
++;
1181 make_invisible_and_set_new_height (
1183 first_win
->generic
.height
+ first_split_diff
);
1184 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
1185 make_invisible_and_set_new_height (
1186 second_win
, second_win
->generic
.height
+ second_split_diff
);
1187 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1188 make_invisible_and_set_new_height (TUI_CMD_WIN
, new_height
);
1192 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1193 { /* If there is no way to increase the command
1194 window take real estate from the 1st or 2nd
1196 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1199 for (i
= TUI_CMD_WIN
->generic
.height
+ diff
;
1201 if (primary_win_info
== first_win
)
1202 second_win
->generic
.height
--;
1204 first_win
->generic
.height
--;
1207 if (primary_win_info
== first_win
)
1208 make_invisible_and_set_new_height (first_win
, new_height
);
1210 make_invisible_and_set_new_height (
1212 first_win
->generic
.height
);
1213 second_win
->generic
.origin
.y
= first_win
->generic
.height
- 1;
1214 if (primary_win_info
== second_win
)
1215 make_invisible_and_set_new_height (second_win
, new_height
);
1217 make_invisible_and_set_new_height (
1218 second_win
, second_win
->generic
.height
);
1219 TUI_CMD_WIN
->generic
.origin
.y
= locator
->origin
.y
+ 1;
1220 if ((TUI_CMD_WIN
->generic
.height
+ diff
) < 1)
1221 make_invisible_and_set_new_height (TUI_CMD_WIN
, 1);
1223 make_invisible_and_set_new_height (
1224 TUI_CMD_WIN
, TUI_CMD_WIN
->generic
.height
+ diff
);
1226 make_visible_with_new_height (TUI_CMD_WIN
);
1227 make_visible_with_new_height (second_win
);
1228 make_visible_with_new_height (first_win
);
1229 if (first_win
->generic
.content_size
<= 0)
1230 tui_erase_source_content (first_win
, EMPTY_SOURCE_PROMPT
);
1231 if (second_win
->generic
.content_size
<= 0)
1232 tui_erase_source_content (second_win
, EMPTY_SOURCE_PROMPT
);
1241 /* Function make the target window (and auxillary windows associated
1242 with the targer) invisible, and set the new height and
1245 make_invisible_and_set_new_height (struct tui_win_info
*win_info
, int height
)
1248 struct tui_gen_win_info
*gen_win_info
;
1250 tui_make_invisible (&win_info
->generic
);
1251 win_info
->generic
.height
= height
;
1253 win_info
->generic
.viewport_height
= height
- 1;
1255 win_info
->generic
.viewport_height
= height
;
1256 if (win_info
!= TUI_CMD_WIN
)
1257 win_info
->generic
.viewport_height
--;
1259 /* Now deal with the auxillary windows associated with win_info. */
1260 switch (win_info
->generic
.type
)
1264 gen_win_info
= win_info
->detail
.source_info
.execution_info
;
1265 tui_make_invisible (gen_win_info
);
1266 gen_win_info
->height
= height
;
1267 gen_win_info
->origin
.y
= win_info
->generic
.origin
.y
;
1269 gen_win_info
->viewport_height
= height
- 1;
1271 gen_win_info
->viewport_height
= height
;
1272 if (win_info
!= TUI_CMD_WIN
)
1273 gen_win_info
->viewport_height
--;
1275 if (tui_win_has_locator (win_info
))
1277 gen_win_info
= tui_locator_win_info_ptr ();
1278 tui_make_invisible (gen_win_info
);
1279 gen_win_info
->origin
.y
= win_info
->generic
.origin
.y
+ height
;
1283 /* Delete all data item windows. */
1284 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
1286 gen_win_info
= (struct tui_gen_win_info
*) & ((struct tui_win_element
*)
1287 win_info
->generic
.content
[i
])->which_element
.data_window
;
1288 tui_delete_win (gen_win_info
->handle
);
1289 gen_win_info
->handle
= (WINDOW
*) NULL
;
1298 /* Function to make the windows with new heights visible. This means
1299 re-creating the windows' content since the window had to be
1300 destroyed to be made invisible. */
1302 make_visible_with_new_height (struct tui_win_info
*win_info
)
1306 tui_make_visible (&win_info
->generic
);
1307 tui_check_and_display_highlight_if_needed (win_info
);
1308 switch (win_info
->generic
.type
)
1312 tui_free_win_content (win_info
->detail
.source_info
.execution_info
);
1313 tui_make_visible (win_info
->detail
.source_info
.execution_info
);
1314 if (win_info
->generic
.content
!= NULL
)
1316 struct tui_line_or_address line_or_addr
;
1317 struct symtab_and_line cursal
1318 = get_current_source_symtab_and_line ();
1320 line_or_addr
= win_info
->detail
.source_info
.start_line_or_addr
;
1321 tui_free_win_content (&win_info
->generic
);
1322 tui_update_source_window (win_info
, cursal
.symtab
, line_or_addr
, TRUE
);
1324 else if (deprecated_safe_get_selected_frame () != NULL
)
1326 struct tui_line_or_address line
;
1327 struct symtab_and_line cursal
= get_current_source_symtab_and_line ();
1328 struct frame_info
*frame
= deprecated_safe_get_selected_frame ();
1330 s
= find_pc_symtab (get_frame_pc (frame
));
1331 if (win_info
->generic
.type
== SRC_WIN
)
1333 line
.loa
= LOA_LINE
;
1334 line
.u
.line_no
= cursal
.line
;
1338 line
.loa
= LOA_ADDRESS
;
1339 find_line_pc (s
, cursal
.line
, &line
.u
.addr
);
1341 tui_update_source_window (win_info
, s
, line
, TRUE
);
1343 if (tui_win_has_locator (win_info
))
1345 tui_make_visible (tui_locator_win_info_ptr ());
1346 tui_show_locator_content ();
1350 tui_display_all_data ();
1353 win_info
->detail
.command_info
.cur_line
= 0;
1354 win_info
->detail
.command_info
.curch
= 0;
1355 wmove (win_info
->generic
.handle
,
1356 win_info
->detail
.command_info
.cur_line
,
1357 win_info
->detail
.command_info
.curch
);
1366 new_height_ok (struct tui_win_info
*primary_win_info
, int new_height
)
1368 int ok
= (new_height
< tui_term_height ());
1373 enum tui_layout_type cur_layout
= tui_current_layout ();
1375 diff
= (new_height
- primary_win_info
->generic
.height
) * (-1);
1376 if (cur_layout
== SRC_COMMAND
|| cur_layout
== DISASSEM_COMMAND
)
1378 ok
= ((primary_win_info
->generic
.type
== CMD_WIN
&&
1379 new_height
<= (tui_term_height () - 4) &&
1380 new_height
>= MIN_CMD_WIN_HEIGHT
) ||
1381 (primary_win_info
->generic
.type
!= CMD_WIN
&&
1382 new_height
<= (tui_term_height () - 2) &&
1383 new_height
>= MIN_WIN_HEIGHT
));
1385 { /* Check the total height. */
1386 struct tui_win_info
*win_info
;
1388 if (primary_win_info
== TUI_CMD_WIN
)
1389 win_info
= (tui_source_windows ())->list
[0];
1391 win_info
= TUI_CMD_WIN
;
1393 (win_info
->generic
.height
+ diff
)) <= tui_term_height ());
1398 int cur_total_height
, total_height
, min_height
= 0;
1399 struct tui_win_info
*first_win
;
1400 struct tui_win_info
*second_win
;
1402 if (cur_layout
== SRC_DISASSEM_COMMAND
)
1404 first_win
= TUI_SRC_WIN
;
1405 second_win
= TUI_DISASM_WIN
;
1409 first_win
= TUI_DATA_WIN
;
1410 second_win
= (tui_source_windows ())->list
[0];
1412 /* We could simply add all the heights to obtain the same
1413 result but below is more explicit since we subtract 1 for
1414 the line that the first and second windows share, and add
1415 one for the locator. */
1416 total_height
= cur_total_height
=
1417 (first_win
->generic
.height
+ second_win
->generic
.height
- 1)
1418 + TUI_CMD_WIN
->generic
.height
+ 1; /* Locator. */
1419 if (primary_win_info
== TUI_CMD_WIN
)
1421 /* Locator included since first & second win share a line. */
1422 ok
= ((first_win
->generic
.height
+
1423 second_win
->generic
.height
+ diff
) >=
1424 (MIN_WIN_HEIGHT
* 2) &&
1425 new_height
>= MIN_CMD_WIN_HEIGHT
);
1428 total_height
= new_height
+ (first_win
->generic
.height
+
1429 second_win
->generic
.height
+ diff
);
1430 min_height
= MIN_CMD_WIN_HEIGHT
;
1435 min_height
= MIN_WIN_HEIGHT
;
1437 /* First see if we can increase/decrease the command
1438 window. And make sure that the command window is at
1440 ok
= ((TUI_CMD_WIN
->generic
.height
+ diff
) > 0);
1442 { /* Looks like we have to increase/decrease one of
1443 the other windows. */
1444 if (primary_win_info
== first_win
)
1445 ok
= (second_win
->generic
.height
+ diff
) >= min_height
;
1447 ok
= (first_win
->generic
.height
+ diff
) >= min_height
;
1451 if (primary_win_info
== first_win
)
1452 total_height
= new_height
+
1453 second_win
->generic
.height
+
1454 TUI_CMD_WIN
->generic
.height
+ diff
;
1456 total_height
= new_height
+
1457 first_win
->generic
.height
+
1458 TUI_CMD_WIN
->generic
.height
+ diff
;
1461 /* Now make sure that the proposed total height doesn't
1462 exceed the old total height. */
1464 ok
= (new_height
>= min_height
&& total_height
<= cur_total_height
);
1473 parse_scrolling_args (char *arg
, struct tui_win_info
**win_to_scroll
,
1478 *win_to_scroll
= tui_win_with_focus ();
1480 /* First set up the default window to scroll, in case there is no
1482 if (arg
!= (char *) NULL
)
1484 char *buf
, *buf_ptr
;
1486 /* Process the number of lines to scroll. */
1487 buf
= buf_ptr
= xstrdup (arg
);
1488 if (isdigit (*buf_ptr
))
1493 buf_ptr
= strchr (buf_ptr
, ' ');
1494 if (buf_ptr
!= (char *) NULL
)
1496 *buf_ptr
= (char) 0;
1498 *num_to_scroll
= atoi (num_str
);
1501 else if (num_to_scroll
)
1502 *num_to_scroll
= atoi (num_str
);
1505 /* Process the window name if one is specified. */
1506 if (buf_ptr
!= (char *) NULL
)
1511 if (*buf_ptr
== ' ')
1512 while (*(++buf_ptr
) == ' ')
1515 if (*buf_ptr
!= (char) 0)
1520 /* Validate the window name. */
1521 for (i
= 0; i
< strlen (wname
); i
++)
1522 wname
[i
] = toupper (wname
[i
]);
1523 *win_to_scroll
= tui_partial_win_by_name (wname
);
1525 if (*win_to_scroll
== (struct tui_win_info
*) NULL
||
1526 !(*win_to_scroll
)->generic
.is_visible
)
1527 error (_("Invalid window specified. \n\
1528 The window name specified must be valid and visible.\n"));
1529 else if (*win_to_scroll
== TUI_CMD_WIN
)
1530 *win_to_scroll
= (tui_source_windows ())->list
[0];