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 **
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.\nUsage: + [win] [n]\n");
361 add_com ("-", class_tui, tui_scroll_backward_command,
362 "Scroll window backward.\nUsage: - [win] [n]\n");
363 add_com ("<", class_tui, tui_scroll_left_command,
364 "Scroll window forward.\nUsage: < [win] [n]\n");
365 add_com (">", class_tui, tui_scroll_right_command,
366 "Scroll window backward.\nUsage: > [win] [n]\n");
368 add_com ("w", class_xdb, tui_xdb_set_win_height_command,
369 "XDB compatibility command for setting the height of a command window.\n\
370 Usage: w <#lines>\n");
372 /* Define the tui control variables. */
374 ("border-kind", no_class,
375 tui_border_kind_enums, &tui_border_kind,
376 "Set the kind of border for TUI windows.\n"
377 "This variable controls the border of TUI windows:\n"
378 "space use a white space\n"
379 "ascii use ascii characters + - | for the border\n"
380 "acs use the Alternate Character Set\n",
382 add_show_from_set (c, &tui_showlist);
385 ("border-mode", no_class,
386 tui_border_mode_enums, &tui_border_mode,
387 "Set the attribute mode to use for the TUI window borders.\n"
388 "This variable controls the attributes to use for the window borders:\n"
389 "normal normal display\n"
390 "standout use highlight mode of terminal\n"
391 "reverse use reverse video mode\n"
392 "half use half bright\n"
393 "half-standout use half bright and standout mode\n"
394 "bold use extra bright or bold\n"
395 "bold-standout use extra bright or bold with standout mode\n",
397 add_show_from_set (c, &tui_showlist);
400 ("active-border-mode", no_class,
401 tui_border_mode_enums, &tui_active_border_mode,
402 "Set the attribute mode to use for the active TUI window border.\n"
403 "This variable controls the attributes to use for the active window border:\n"
404 "normal normal display\n"
405 "standout use highlight mode of terminal\n"
406 "reverse use reverse video mode\n"
407 "half use half bright\n"
408 "half-standout use half bright and standout mode\n"
409 "bold use extra bright or bold\n"
410 "bold-standout use extra bright or bold with standout mode\n",
412 add_show_from_set (c, &tui_showlist);
415 /* Update gdb's knowledge of the terminal size. */
417 tui_update_gdb_sizes (void)
420 int screenheight, screenwidth;
422 rl_get_screen_size (&screenheight, &screenwidth);
423 /* Set to TUI command window dimension or use readline values. */
424 sprintf (cmd, "set width %d",
425 tui_active ? TUI_CMD_WIN->generic.width : screenwidth);
426 execute_command (cmd, 0);
427 sprintf (cmd, "set height %d",
428 tui_active ? TUI_CMD_WIN->generic.height : screenheight);
429 execute_command (cmd, 0);
433 /* Set the logical focus to win_info. */
435 tui_set_win_focus_to (struct tui_win_info * win_info)
437 if (win_info != NULL)
439 struct tui_win_info * win_with_focus = tui_win_with_focus ();
441 if (win_with_focus != NULL
442 && win_with_focus->generic.type != CMD_WIN)
443 tui_unhighlight_win (win_with_focus);
444 tui_set_win_with_focus (win_info);
445 if (win_info->generic.type != CMD_WIN)
446 tui_highlight_win (win_info);
452 tui_scroll_forward (struct tui_win_info * win_to_scroll, int num_to_scroll)
454 if (win_to_scroll != TUI_CMD_WIN)
456 int _num_to_scroll = num_to_scroll;
458 if (num_to_scroll == 0)
459 _num_to_scroll = win_to_scroll->generic.height - 3;
461 ** If we are scrolling the source or disassembly window, do a
462 ** "psuedo" scroll since not all of the source is in memory,
463 ** only what is in the viewport. If win_to_scroll is the
464 ** command window do nothing since the term should handle it.
466 if (win_to_scroll == TUI_SRC_WIN)
467 tui_vertical_source_scroll (FORWARD_SCROLL, _num_to_scroll);
468 else if (win_to_scroll == TUI_DISASM_WIN)
469 tui_vertical_disassem_scroll (FORWARD_SCROLL, _num_to_scroll);
470 else if (win_to_scroll == TUI_DATA_WIN)
471 tui_vertical_data_scroll (FORWARD_SCROLL, _num_to_scroll);
476 tui_scroll_backward (struct tui_win_info * win_to_scroll, int num_to_scroll)
478 if (win_to_scroll != TUI_CMD_WIN)
480 int _num_to_scroll = num_to_scroll;
482 if (num_to_scroll == 0)
483 _num_to_scroll = win_to_scroll->generic.height - 3;
485 ** If we are scrolling the source or disassembly window, do a
486 ** "psuedo" scroll since not all of the source is in memory,
487 ** only what is in the viewport. If win_to_scroll is the
488 ** command window do nothing since the term should handle it.
490 if (win_to_scroll == TUI_SRC_WIN)
491 tui_vertical_source_scroll (BACKWARD_SCROLL, _num_to_scroll);
492 else if (win_to_scroll == TUI_DISASM_WIN)
493 tui_vertical_disassem_scroll (BACKWARD_SCROLL, _num_to_scroll);
494 else if (win_to_scroll == TUI_DATA_WIN)
495 tui_vertical_data_scroll (BACKWARD_SCROLL, _num_to_scroll);
501 tui_scroll_left (struct tui_win_info * win_to_scroll, int num_to_scroll)
503 if (win_to_scroll != TUI_CMD_WIN)
505 int _num_to_scroll = num_to_scroll;
507 if (_num_to_scroll == 0)
510 ** If we are scrolling the source or disassembly window, do a
511 ** "psuedo" scroll since not all of the source is in memory,
512 ** only what is in the viewport. If win_to_scroll is the
513 ** command window do nothing since the term should handle it.
515 if (win_to_scroll == TUI_SRC_WIN || win_to_scroll == TUI_DISASM_WIN)
516 tui_horizontal_source_scroll (win_to_scroll, LEFT_SCROLL, _num_to_scroll);
522 tui_scroll_right (struct tui_win_info * win_to_scroll, int num_to_scroll)
524 if (win_to_scroll != TUI_CMD_WIN)
526 int _num_to_scroll = num_to_scroll;
528 if (_num_to_scroll == 0)
531 ** If we are scrolling the source or disassembly window, do a
532 ** "psuedo" scroll since not all of the source is in memory,
533 ** only what is in the viewport. If win_to_scroll is the
534 ** command window do nothing since the term should handle it.
536 if (win_to_scroll == TUI_SRC_WIN || win_to_scroll == TUI_DISASM_WIN)
537 tui_horizontal_source_scroll (win_to_scroll, RIGHT_SCROLL, _num_to_scroll);
542 /* Scroll a window. Arguments are passed through a va_list. */
544 tui_scroll (enum tui_scroll_direction direction,
545 struct tui_win_info * win_to_scroll,
551 tui_scroll_forward (win_to_scroll, num_to_scroll);
553 case BACKWARD_SCROLL:
554 tui_scroll_backward (win_to_scroll, num_to_scroll);
557 tui_scroll_left (win_to_scroll, num_to_scroll);
560 tui_scroll_right (win_to_scroll, num_to_scroll);
569 tui_refresh_all_win (void)
571 enum tui_win_type type;
573 clearok (curscr, TRUE);
574 tui_refresh_all (tui_win_list);
575 for (type = SRC_WIN; type < MAX_MAJOR_WINDOWS; type++)
577 if (tui_win_list[type] && tui_win_list[type]->generic.is_visible)
583 tui_show_source_content (tui_win_list[type]);
584 tui_check_and_display_highlight_if_needed (tui_win_list[type]);
585 tui_erase_exec_info_content (tui_win_list[type]);
586 tui_update_exec_info (tui_win_list[type]);
589 tui_refresh_data_win ();
596 tui_show_locator_content ();
600 /* Resize all the windows based on the the terminal size. This
601 function gets called from within the readline sinwinch handler. */
603 tui_resize_all (void)
605 int height_diff, width_diff;
606 int screenheight, screenwidth;
608 rl_get_screen_size (&screenheight, &screenwidth);
609 width_diff = screenwidth - tui_term_width ();
610 height_diff = screenheight - tui_term_height ();
611 if (height_diff || width_diff)
613 enum tui_layout_type cur_layout = tui_current_layout ();
614 struct tui_win_info * win_with_focus = tui_win_with_focus ();
615 struct tui_win_info *first_win;
616 struct tui_win_info *second_win;
617 struct tui_gen_win_info * locator = tui_locator_win_info_ptr ();
618 enum tui_win_type win_type;
619 int new_height, split_diff, cmd_split_diff, num_wins_displayed = 2;
621 #ifdef HAVE_RESIZE_TERM
622 resize_term (screenheight, screenwidth);
624 /* turn keypad off while we resize */
625 if (win_with_focus != TUI_CMD_WIN)
626 keypad (TUI_CMD_WIN->generic.handle, FALSE);
627 tui_update_gdb_sizes ();
628 tui_set_term_height_to (screenheight);
629 tui_set_term_width_to (screenwidth);
630 if (cur_layout == SRC_DISASSEM_COMMAND ||
631 cur_layout == SRC_DATA_COMMAND || cur_layout == DISASSEM_DATA_COMMAND)
632 num_wins_displayed++;
633 split_diff = height_diff / num_wins_displayed;
634 cmd_split_diff = split_diff;
635 if (height_diff % num_wins_displayed)
642 /* now adjust each window */
648 case DISASSEM_COMMAND:
649 first_win = (struct tui_win_info *) (tui_source_windows ())->list[0];
650 first_win->generic.width += width_diff;
651 locator->width += width_diff;
652 /* check for invalid heights */
653 if (height_diff == 0)
654 new_height = first_win->generic.height;
655 else if ((first_win->generic.height + split_diff) >=
656 (screenheight - MIN_CMD_WIN_HEIGHT - 1))
657 new_height = screenheight - MIN_CMD_WIN_HEIGHT - 1;
658 else if ((first_win->generic.height + split_diff) <= 0)
659 new_height = MIN_WIN_HEIGHT;
661 new_height = first_win->generic.height + split_diff;
663 make_invisible_and_set_new_height (first_win, new_height);
664 TUI_CMD_WIN->generic.origin.y = locator->origin.y + 1;
665 TUI_CMD_WIN->generic.width += width_diff;
666 new_height = screenheight - TUI_CMD_WIN->generic.origin.y;
667 make_invisible_and_set_new_height (TUI_CMD_WIN, new_height);
668 make_visible_with_new_height (first_win);
669 make_visible_with_new_height (TUI_CMD_WIN);
670 if (first_win->generic.content_size <= 0)
671 tui_erase_source_content (first_win, EMPTY_SOURCE_PROMPT);
674 if (cur_layout == SRC_DISASSEM_COMMAND)
676 first_win = TUI_SRC_WIN;
677 first_win->generic.width += width_diff;
678 second_win = TUI_DISASM_WIN;
679 second_win->generic.width += width_diff;
683 first_win = TUI_DATA_WIN;
684 first_win->generic.width += width_diff;
685 second_win = (struct tui_win_info *) (tui_source_windows ())->list[0];
686 second_win->generic.width += width_diff;
688 /* Change the first window's height/width */
689 /* check for invalid heights */
690 if (height_diff == 0)
691 new_height = first_win->generic.height;
692 else if ((first_win->generic.height +
693 second_win->generic.height + (split_diff * 2)) >=
694 (screenheight - MIN_CMD_WIN_HEIGHT - 1))
695 new_height = (screenheight - MIN_CMD_WIN_HEIGHT - 1) / 2;
696 else if ((first_win->generic.height + split_diff) <= 0)
697 new_height = MIN_WIN_HEIGHT;
699 new_height = first_win->generic.height + split_diff;
700 make_invisible_and_set_new_height (first_win, new_height);
702 locator->width += width_diff;
704 /* Change the second window's height/width */
705 /* check for invalid heights */
706 if (height_diff == 0)
707 new_height = second_win->generic.height;
708 else if ((first_win->generic.height +
709 second_win->generic.height + (split_diff * 2)) >=
710 (screenheight - MIN_CMD_WIN_HEIGHT - 1))
712 new_height = screenheight - MIN_CMD_WIN_HEIGHT - 1;
714 new_height = (new_height / 2) + 1;
718 else if ((second_win->generic.height + split_diff) <= 0)
719 new_height = MIN_WIN_HEIGHT;
721 new_height = second_win->generic.height + split_diff;
722 second_win->generic.origin.y = first_win->generic.height - 1;
723 make_invisible_and_set_new_height (second_win, new_height);
725 /* Change the command window's height/width */
726 TUI_CMD_WIN->generic.origin.y = locator->origin.y + 1;
727 make_invisible_and_set_new_height (
728 TUI_CMD_WIN, TUI_CMD_WIN->generic.height + cmd_split_diff);
729 make_visible_with_new_height (first_win);
730 make_visible_with_new_height (second_win);
731 make_visible_with_new_height (TUI_CMD_WIN);
732 if (first_win->generic.content_size <= 0)
733 tui_erase_source_content (first_win, EMPTY_SOURCE_PROMPT);
734 if (second_win->generic.content_size <= 0)
735 tui_erase_source_content (second_win, EMPTY_SOURCE_PROMPT);
739 ** Now remove all invisible windows, and their content so that they get
740 ** created again when called for with the new size
742 for (win_type = SRC_WIN; (win_type < MAX_MAJOR_WINDOWS); win_type++)
744 if (win_type != CMD_WIN && (tui_win_list[win_type] != NULL)
745 && !tui_win_list[win_type]->generic.is_visible)
747 tui_free_window (tui_win_list[win_type]);
748 tui_win_list[win_type] = (struct tui_win_info *) NULL;
751 tui_set_win_resized_to (TRUE);
752 /* turn keypad back on, unless focus is in the command window */
753 if (win_with_focus != TUI_CMD_WIN)
754 keypad (TUI_CMD_WIN->generic.handle, TRUE);
759 /* SIGWINCH signal handler for the tui. This signal handler is always
760 called, even when the readline package clears signals because it is
761 set as the old_sigwinch() (TUI only). */
763 tui_sigwinch_handler (int signal)
766 ** Say that a resize was done so that the readline can do it
767 ** later when appropriate.
769 tui_set_win_resized_to (TRUE);
774 /*************************
775 ** STATIC LOCAL FUNCTIONS
776 **************************/
780 tui_scroll_forward_command (char *arg, int from_tty)
782 int num_to_scroll = 1;
783 struct tui_win_info * win_to_scroll;
785 /* Make sure the curses mode is enabled. */
787 if (arg == (char *) NULL)
788 parse_scrolling_args (arg, &win_to_scroll, (int *) NULL);
790 parse_scrolling_args (arg, &win_to_scroll, &num_to_scroll);
791 tui_scroll (FORWARD_SCROLL, win_to_scroll, num_to_scroll);
796 tui_scroll_backward_command (char *arg, int from_tty)
798 int num_to_scroll = 1;
799 struct tui_win_info * win_to_scroll;
801 /* Make sure the curses mode is enabled. */
803 if (arg == (char *) NULL)
804 parse_scrolling_args (arg, &win_to_scroll, (int *) NULL);
806 parse_scrolling_args (arg, &win_to_scroll, &num_to_scroll);
807 tui_scroll (BACKWARD_SCROLL, win_to_scroll, num_to_scroll);
812 tui_scroll_left_command (char *arg, int from_tty)
815 struct tui_win_info * win_to_scroll;
817 /* Make sure the curses mode is enabled. */
819 parse_scrolling_args (arg, &win_to_scroll, &num_to_scroll);
820 tui_scroll (LEFT_SCROLL, win_to_scroll, num_to_scroll);
825 tui_scroll_right_command (char *arg, int from_tty)
828 struct tui_win_info * win_to_scroll;
830 /* Make sure the curses mode is enabled. */
832 parse_scrolling_args (arg, &win_to_scroll, &num_to_scroll);
833 tui_scroll (RIGHT_SCROLL, win_to_scroll, num_to_scroll);
837 /* Set focus to the window named by 'arg'. */
839 tui_set_focus (char *arg, int from_tty)
841 if (arg != (char *) NULL)
843 char *buf_ptr = (char *) xstrdup (arg);
845 struct tui_win_info * win_info = (struct tui_win_info *) NULL;
847 for (i = 0; (i < strlen (buf_ptr)); i++)
848 buf_ptr[i] = toupper (arg[i]);
850 if (subset_compare (buf_ptr, "NEXT"))
851 win_info = tui_next_win (tui_win_with_focus ());
852 else if (subset_compare (buf_ptr, "PREV"))
853 win_info = tui_prev_win (tui_win_with_focus ());
855 win_info = tui_partial_win_by_name (buf_ptr);
857 if (win_info == (struct tui_win_info *) NULL || !win_info->generic.is_visible)
858 warning ("Invalid window specified. \n\
859 The window name specified must be valid and visible.\n");
862 tui_set_win_focus_to (win_info);
863 keypad (TUI_CMD_WIN->generic.handle, (win_info != TUI_CMD_WIN));
866 if (TUI_DATA_WIN && TUI_DATA_WIN->generic.is_visible)
867 tui_refresh_data_win ();
869 printf_filtered ("Focus set to %s window.\n",
870 tui_win_name ((struct tui_gen_win_info *) tui_win_with_focus ()));
873 warning ("Incorrect Number of Arguments.\n%s", FOCUS_USAGE);
877 tui_set_focus_command (char *arg, int from_tty)
879 /* Make sure the curses mode is enabled. */
881 tui_set_focus (arg, from_tty);
886 tui_all_windows_info (char *arg, int from_tty)
888 enum tui_win_type type;
889 struct tui_win_info * win_with_focus = tui_win_with_focus ();
891 for (type = SRC_WIN; (type < MAX_MAJOR_WINDOWS); type++)
892 if (tui_win_list[type] && tui_win_list[type]->generic.is_visible)
894 if (win_with_focus == tui_win_list[type])
895 printf_filtered (" %s\t(%d lines) <has focus>\n",
896 tui_win_name (&tui_win_list[type]->generic),
897 tui_win_list[type]->generic.height);
899 printf_filtered (" %s\t(%d lines)\n",
900 tui_win_name (&tui_win_list[type]->generic),
901 tui_win_list[type]->generic.height);
907 tui_refresh_all_command (char *arg, int from_tty)
909 /* Make sure the curses mode is enabled. */
912 tui_refresh_all_win ();
916 /* Set the height of the specified window. */
918 tui_set_tab_width_command (char *arg, int from_tty)
920 /* Make sure the curses mode is enabled. */
922 if (arg != (char *) NULL)
928 tui_set_default_tab_len (ts);
930 warning ("Tab widths greater than 0 must be specified.\n");
935 /* Set the height of the specified window. */
937 tui_set_win_height (char *arg, int from_tty)
939 /* Make sure the curses mode is enabled. */
941 if (arg != (char *) NULL)
943 char *buf = xstrdup (arg);
945 char *wname = (char *) NULL;
947 struct tui_win_info * win_info;
950 buf_ptr = strchr (buf_ptr, ' ');
951 if (buf_ptr != (char *) NULL)
956 ** Validate the window name
958 for (i = 0; i < strlen (wname); i++)
959 wname[i] = toupper (wname[i]);
960 win_info = tui_partial_win_by_name (wname);
962 if (win_info == (struct tui_win_info *) NULL || !win_info->generic.is_visible)
963 warning ("Invalid window specified. \n\
964 The window name specified must be valid and visible.\n");
967 /* Process the size */
968 while (*(++buf_ptr) == ' ')
971 if (*buf_ptr != (char) 0)
974 int fixed_size = TRUE;
977 if (*buf_ptr == '+' || *buf_ptr == '-')
984 input_no = atoi (buf_ptr);
990 new_height = input_no;
992 new_height = win_info->generic.height + input_no;
994 ** Now change the window's height, and adjust all
995 ** other windows around it
997 if (tui_adjust_win_heights (win_info,
998 new_height) == TUI_FAILURE)
999 warning ("Invalid window height specified.\n%s",
1002 tui_update_gdb_sizes ();
1005 warning ("Invalid window height specified.\n%s",
1011 printf_filtered (WIN_HEIGHT_USAGE);
1013 if (buf != (char *) NULL)
1017 printf_filtered (WIN_HEIGHT_USAGE);
1020 /* Set the height of the specified window, with va_list. */
1022 tui_set_win_height_command (char *arg, int from_tty)
1024 /* Make sure the curses mode is enabled. */
1026 tui_set_win_height (arg, from_tty);
1030 /* XDB Compatibility command for setting the window height. This will
1031 increase or decrease the command window by the specified amount. */
1033 tui_xdb_set_win_height (char *arg, int from_tty)
1035 /* Make sure the curses mode is enabled. */
1037 if (arg != (char *) NULL)
1039 int input_no = atoi (arg);
1042 { /* Add 1 for the locator */
1043 int new_height = tui_term_height () - (input_no + 1);
1045 if (!new_height_ok (tui_win_list[CMD_WIN], new_height) ||
1046 tui_adjust_win_heights (tui_win_list[CMD_WIN],
1047 new_height) == TUI_FAILURE)
1048 warning ("Invalid window height specified.\n%s",
1049 XDBWIN_HEIGHT_USAGE);
1052 warning ("Invalid window height specified.\n%s",
1053 XDBWIN_HEIGHT_USAGE);
1056 warning ("Invalid window height specified.\n%s", XDBWIN_HEIGHT_USAGE);
1059 /* Set the height of the specified window, with va_list. */
1061 tui_xdb_set_win_height_command (char *arg, int from_tty)
1063 tui_xdb_set_win_height (arg, from_tty);
1067 /* Function to adjust all window heights around the primary. */
1068 static enum tui_status
1069 tui_adjust_win_heights (struct tui_win_info * primary_win_info, int new_height)
1071 enum tui_status status = TUI_FAILURE;
1073 if (new_height_ok (primary_win_info, new_height))
1075 status = TUI_SUCCESS;
1076 if (new_height != primary_win_info->generic.height)
1079 struct tui_win_info * win_info;
1080 struct tui_gen_win_info * locator = tui_locator_win_info_ptr ();
1081 enum tui_layout_type cur_layout = tui_current_layout ();
1083 diff = (new_height - primary_win_info->generic.height) * (-1);
1084 if (cur_layout == SRC_COMMAND || cur_layout == DISASSEM_COMMAND)
1086 struct tui_win_info * src_win_info;
1088 make_invisible_and_set_new_height (primary_win_info, new_height);
1089 if (primary_win_info->generic.type == CMD_WIN)
1091 win_info = (struct tui_win_info *) (tui_source_windows ())->list[0];
1092 src_win_info = win_info;
1096 win_info = tui_win_list[CMD_WIN];
1097 src_win_info = primary_win_info;
1099 make_invisible_and_set_new_height (win_info,
1100 win_info->generic.height + diff);
1101 TUI_CMD_WIN->generic.origin.y = locator->origin.y + 1;
1102 make_visible_with_new_height (win_info);
1103 make_visible_with_new_height (primary_win_info);
1104 if (src_win_info->generic.content_size <= 0)
1105 tui_erase_source_content (src_win_info, EMPTY_SOURCE_PROMPT);
1109 struct tui_win_info *first_win;
1110 struct tui_win_info *second_win;
1112 if (cur_layout == SRC_DISASSEM_COMMAND)
1114 first_win = TUI_SRC_WIN;
1115 second_win = TUI_DISASM_WIN;
1119 first_win = TUI_DATA_WIN;
1120 second_win = (struct tui_win_info *) (tui_source_windows ())->list[0];
1122 if (primary_win_info == TUI_CMD_WIN)
1124 ** Split the change in height accross the 1st & 2nd windows
1125 ** adjusting them as well.
1127 int first_split_diff = diff / 2; /* subtract the locator */
1128 int second_split_diff = first_split_diff;
1132 if (first_win->generic.height >
1133 second_win->generic.height)
1141 second_split_diff--;
1143 second_split_diff++;
1146 /* make sure that the minimum hieghts are honored */
1147 while ((first_win->generic.height + first_split_diff) < 3)
1150 second_split_diff--;
1152 while ((second_win->generic.height + second_split_diff) < 3)
1154 second_split_diff++;
1157 make_invisible_and_set_new_height (
1159 first_win->generic.height + first_split_diff);
1160 second_win->generic.origin.y = first_win->generic.height - 1;
1161 make_invisible_and_set_new_height (
1162 second_win, second_win->generic.height + second_split_diff);
1163 TUI_CMD_WIN->generic.origin.y = locator->origin.y + 1;
1164 make_invisible_and_set_new_height (TUI_CMD_WIN, new_height);
1168 if ((TUI_CMD_WIN->generic.height + diff) < 1)
1170 ** If there is no way to increase the command window
1171 ** take real estate from the 1st or 2nd window.
1173 if ((TUI_CMD_WIN->generic.height + diff) < 1)
1176 for (i = TUI_CMD_WIN->generic.height + diff;
1178 if (primary_win_info == first_win)
1179 second_win->generic.height--;
1181 first_win->generic.height--;
1184 if (primary_win_info == first_win)
1185 make_invisible_and_set_new_height (first_win, new_height);
1187 make_invisible_and_set_new_height (
1189 first_win->generic.height);
1190 second_win->generic.origin.y = first_win->generic.height - 1;
1191 if (primary_win_info == second_win)
1192 make_invisible_and_set_new_height (second_win, new_height);
1194 make_invisible_and_set_new_height (
1195 second_win, second_win->generic.height);
1196 TUI_CMD_WIN->generic.origin.y = locator->origin.y + 1;
1197 if ((TUI_CMD_WIN->generic.height + diff) < 1)
1198 make_invisible_and_set_new_height (TUI_CMD_WIN, 1);
1200 make_invisible_and_set_new_height (
1201 TUI_CMD_WIN, TUI_CMD_WIN->generic.height + diff);
1203 make_visible_with_new_height (TUI_CMD_WIN);
1204 make_visible_with_new_height (second_win);
1205 make_visible_with_new_height (first_win);
1206 if (first_win->generic.content_size <= 0)
1207 tui_erase_source_content (first_win, EMPTY_SOURCE_PROMPT);
1208 if (second_win->generic.content_size <= 0)
1209 tui_erase_source_content (second_win, EMPTY_SOURCE_PROMPT);
1218 /* Function make the target window (and auxillary windows associated
1219 with the targer) invisible, and set the new height and location. */
1221 make_invisible_and_set_new_height (struct tui_win_info * win_info, int height)
1224 struct tui_gen_win_info * gen_win_info;
1226 tui_make_invisible (&win_info->generic);
1227 win_info->generic.height = height;
1229 win_info->generic.viewport_height = height - 1;
1231 win_info->generic.viewport_height = height;
1232 if (win_info != TUI_CMD_WIN)
1233 win_info->generic.viewport_height--;
1235 /* Now deal with the auxillary windows associated with win_info */
1236 switch (win_info->generic.type)
1240 gen_win_info = win_info->detail.source_info.execution_info;
1241 tui_make_invisible (gen_win_info);
1242 gen_win_info->height = height;
1243 gen_win_info->origin.y = win_info->generic.origin.y;
1245 gen_win_info->viewport_height = height - 1;
1247 gen_win_info->viewport_height = height;
1248 if (win_info != TUI_CMD_WIN)
1249 gen_win_info->viewport_height--;
1251 if (tui_win_has_locator (win_info))
1253 gen_win_info = tui_locator_win_info_ptr ();
1254 tui_make_invisible (gen_win_info);
1255 gen_win_info->origin.y = win_info->generic.origin.y + height;
1259 /* delete all data item windows */
1260 for (i = 0; i < win_info->generic.content_size; i++)
1262 gen_win_info = (struct tui_gen_win_info *) & ((struct tui_win_element *)
1263 win_info->generic.content[i])->which_element.data_window;
1264 tui_delete_win (gen_win_info->handle);
1265 gen_win_info->handle = (WINDOW *) NULL;
1274 /* Function to make the windows with new heights visible. This means
1275 re-creating the windows' content since the window had to be
1276 destroyed to be made invisible. */
1278 make_visible_with_new_height (struct tui_win_info * win_info)
1282 tui_make_visible (&win_info->generic);
1283 tui_check_and_display_highlight_if_needed (win_info);
1284 switch (win_info->generic.type)
1288 tui_free_win_content (win_info->detail.source_info.execution_info);
1289 tui_make_visible (win_info->detail.source_info.execution_info);
1290 if (win_info->generic.content != NULL)
1292 union tui_line_or_address line_or_addr;
1293 struct symtab_and_line cursal
1294 = get_current_source_symtab_and_line ();
1296 if (win_info->generic.type == SRC_WIN)
1297 line_or_addr.line_no =
1298 win_info->detail.source_info.start_line_or_addr.line_no;
1301 win_info->detail.source_info.start_line_or_addr.addr;
1302 tui_free_win_content (&win_info->generic);
1303 tui_update_source_window (win_info, cursal.symtab, line_or_addr, TRUE);
1305 else if (deprecated_selected_frame != (struct frame_info *) NULL)
1307 union tui_line_or_address line;
1308 struct symtab_and_line cursal = get_current_source_symtab_and_line ();
1311 s = find_pc_symtab (get_frame_pc (deprecated_selected_frame));
1312 if (win_info->generic.type == SRC_WIN)
1313 line.line_no = cursal.line;
1316 find_line_pc (s, cursal.line, &line.addr);
1318 tui_update_source_window (win_info, s, line, TRUE);
1320 if (tui_win_has_locator (win_info))
1322 tui_make_visible (tui_locator_win_info_ptr ());
1323 tui_show_locator_content ();
1327 tui_display_all_data ();
1330 win_info->detail.command_info.cur_line = 0;
1331 win_info->detail.command_info.curch = 0;
1332 wmove (win_info->generic.handle,
1333 win_info->detail.command_info.cur_line,
1334 win_info->detail.command_info.curch);
1343 new_height_ok (struct tui_win_info * primary_win_info, int new_height)
1345 int ok = (new_height < tui_term_height ());
1350 enum tui_layout_type cur_layout = tui_current_layout ();
1352 diff = (new_height - primary_win_info->generic.height) * (-1);
1353 if (cur_layout == SRC_COMMAND || cur_layout == DISASSEM_COMMAND)
1355 ok = ((primary_win_info->generic.type == CMD_WIN &&
1356 new_height <= (tui_term_height () - 4) &&
1357 new_height >= MIN_CMD_WIN_HEIGHT) ||
1358 (primary_win_info->generic.type != CMD_WIN &&
1359 new_height <= (tui_term_height () - 2) &&
1360 new_height >= MIN_WIN_HEIGHT));
1362 { /* check the total height */
1363 struct tui_win_info * win_info;
1365 if (primary_win_info == TUI_CMD_WIN)
1366 win_info = (struct tui_win_info *) (tui_source_windows ())->list[0];
1368 win_info = TUI_CMD_WIN;
1370 (win_info->generic.height + diff)) <= tui_term_height ());
1375 int cur_total_height, total_height, min_height = 0;
1376 struct tui_win_info *first_win;
1377 struct tui_win_info *second_win;
1379 if (cur_layout == SRC_DISASSEM_COMMAND)
1381 first_win = TUI_SRC_WIN;
1382 second_win = TUI_DISASM_WIN;
1386 first_win = TUI_DATA_WIN;
1387 second_win = (struct tui_win_info *) (tui_source_windows ())->list[0];
1390 ** We could simply add all the heights to obtain the same result
1391 ** but below is more explicit since we subtract 1 for the
1392 ** line that the first and second windows share, and add one
1395 total_height = cur_total_height =
1396 (first_win->generic.height + second_win->generic.height - 1)
1397 + TUI_CMD_WIN->generic.height + 1 /*locator */ ;
1398 if (primary_win_info == TUI_CMD_WIN)
1400 /* locator included since first & second win share a line */
1401 ok = ((first_win->generic.height +
1402 second_win->generic.height + diff) >=
1403 (MIN_WIN_HEIGHT * 2) &&
1404 new_height >= MIN_CMD_WIN_HEIGHT);
1407 total_height = new_height + (first_win->generic.height +
1408 second_win->generic.height + diff);
1409 min_height = MIN_CMD_WIN_HEIGHT;
1414 min_height = MIN_WIN_HEIGHT;
1416 ** First see if we can increase/decrease the command
1417 ** window. And make sure that the command window is
1420 ok = ((TUI_CMD_WIN->generic.height + diff) > 0);
1423 ** Looks like we have to increase/decrease one of
1424 ** the other windows
1426 if (primary_win_info == first_win)
1427 ok = (second_win->generic.height + diff) >= min_height;
1429 ok = (first_win->generic.height + diff) >= min_height;
1433 if (primary_win_info == first_win)
1434 total_height = new_height +
1435 second_win->generic.height +
1436 TUI_CMD_WIN->generic.height + diff;
1438 total_height = new_height +
1439 first_win->generic.height +
1440 TUI_CMD_WIN->generic.height + diff;
1444 ** Now make sure that the proposed total height doesn't exceed
1445 ** the old total height.
1448 ok = (new_height >= min_height && total_height <= cur_total_height);
1457 parse_scrolling_args (char *arg, struct tui_win_info * * win_to_scroll,
1462 *win_to_scroll = tui_win_with_focus ();
1465 ** First set up the default window to scroll, in case there is no
1468 if (arg != (char *) NULL)
1470 char *buf, *buf_ptr;
1472 /* process the number of lines to scroll */
1473 buf = buf_ptr = xstrdup (arg);
1474 if (isdigit (*buf_ptr))
1479 buf_ptr = strchr (buf_ptr, ' ');
1480 if (buf_ptr != (char *) NULL)
1482 *buf_ptr = (char) 0;
1484 *num_to_scroll = atoi (num_str);
1487 else if (num_to_scroll)
1488 *num_to_scroll = atoi (num_str);
1491 /* process the window name if one is specified */
1492 if (buf_ptr != (char *) NULL)
1497 if (*buf_ptr == ' ')
1498 while (*(++buf_ptr) == ' ')
1501 if (*buf_ptr != (char) 0)
1506 /* Validate the window name */
1507 for (i = 0; i < strlen (wname); i++)
1508 wname[i] = toupper (wname[i]);
1509 *win_to_scroll = tui_partial_win_by_name (wname);
1511 if (*win_to_scroll == (struct tui_win_info *) NULL ||
1512 !(*win_to_scroll)->generic.is_visible)
1513 warning ("Invalid window specified. \n\
1514 The window name specified must be valid and visible.\n");
1515 else if (*win_to_scroll == TUI_CMD_WIN)
1516 *win_to_scroll = (struct tui_win_info *) (tui_source_windows ())->list[0];