gdb/tui/tui-data.c

   1 /* TUI data manipulation routines.
   2
   3    Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2006, 2007
   4    Free Software Foundation, Inc.
   5
   6    Contributed by Hewlett-Packard Company.
   7
   8    This file is part of GDB.
   9
  10    This program is free software; you can redistribute it and/or modify
  11    it under the terms of the GNU General Public License as published by
  12    the Free Software Foundation; either version 2 of the License, or
  13    (at your option) any later version.
  14
  15    This program is distributed in the hope that it will be useful,
  16    but WITHOUT ANY WARRANTY; without even the implied warranty of
  17    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18    GNU General Public License for more details.
  19
  20    You should have received a copy of the GNU General Public License
  21    along with this program; if not, write to the Free Software
  22    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  23    Boston, MA 02110-1301, USA.  */
  24
  25 #include "defs.h"
  26 #include "symtab.h"
  27 #include "tui/tui.h"
  28 #include "tui/tui-data.h"
  29 #include "tui/tui-wingeneral.h"
  30
  31 #include "gdb_string.h"
  32 #include "gdb_curses.h"
  33
  34 /****************************
  35 ** GLOBAL DECLARATIONS
  36 ****************************/
  37 struct tui_win_info *(tui_win_list[MAX_MAJOR_WINDOWS]);
  38
  39 /***************************
  40 ** Private data
  41 ****************************/
  42 static enum tui_layout_type current_layout = UNDEFINED_LAYOUT;
  43 static int term_height, term_width;
  44 static struct tui_gen_win_info _locator;
  45 static struct tui_gen_win_info exec_info[2];
  46 static struct tui_win_info *src_win_list[2];
  47 static struct tui_list source_windows = {src_win_list, 0};
  48 static int default_tab_len = DEFAULT_TAB_LEN;
  49 static struct tui_win_info *win_with_focus = (struct tui_win_info *) NULL;
  50 static struct tui_layout_def layout_def = {
  51   SRC_WIN,                      /* DISPLAY_MODE */
  52   FALSE,                        /* SPLIT */
  53   TUI_UNDEFINED_REGS,           /* REGS_DISPLAY_TYPE */
  54   TUI_SFLOAT_REGS};             /* FLOAT_REGS_DISPLAY_TYPE */
  55
  56 static int win_resized = FALSE;
  57
  58
  59 /*********************************
  60 ** Static function forward decls
  61 **********************************/
  62 static void free_content (tui_win_content,
  63                           int,
  64                           enum tui_win_type);
  65 static void free_content_elements (tui_win_content,
  66                                    int,
  67                                    enum tui_win_type);
  68
  69
  70
  71 /*********************************
  72 ** PUBLIC FUNCTIONS
  73 **********************************/
  74
  75 int
  76 tui_win_is_source_type (enum tui_win_type win_type)
  77 {
  78   return (win_type == SRC_WIN || win_type == DISASSEM_WIN);
  79 }
  80
  81 int
  82 tui_win_is_auxillary (enum tui_win_type win_type)
  83 {
  84   return (win_type > MAX_MAJOR_WINDOWS);
  85 }
  86
  87 int
  88 tui_win_has_locator (struct tui_win_info *win_info)
  89 {
  90   return (win_info != NULL
  91           && win_info->detail.source_info.has_locator);
  92 }
  93
  94 void
  95 tui_set_win_highlight (struct tui_win_info *win_info,
  96                        int highlight)
  97 {
  98   if (win_info != NULL)
  99     win_info->is_highlighted = highlight;
 100 }
 101
 102 /******************************************
 103 ** ACCESSORS & MUTATORS FOR PRIVATE DATA
 104 ******************************************/
 105
 106 /* Answer a whether the terminal window has been resized or not.  */
 107 int
 108 tui_win_resized (void)
 109 {
 110   return win_resized;
 111 }
 112
 113
 114 /* Set a whether the terminal window has been resized or not.  */
 115 void
 116 tui_set_win_resized_to (int resized)
 117 {
 118   win_resized = resized;
 119 }
 120
 121
 122 /* Answer a pointer to the current layout definition.  */
 123 struct tui_layout_def *
 124 tui_layout_def (void)
 125 {
 126   return &layout_def;
 127 }
 128
 129
 130 /* Answer the window with the logical focus.  */
 131 struct tui_win_info *
 132 tui_win_with_focus (void)
 133 {
 134   return win_with_focus;
 135 }
 136
 137
 138 /* Set the window that has the logical focus.  */
 139 void
 140 tui_set_win_with_focus (struct tui_win_info *win_info)
 141 {
 142   win_with_focus = win_info;
 143 }
 144
 145
 146 /* Answer the length in chars, of tabs.  */
 147 int
 148 tui_default_tab_len (void)
 149 {
 150   return default_tab_len;
 151 }
 152
 153
 154 /* Set the length in chars, of tabs.  */
 155 void
 156 tui_set_default_tab_len (int len)
 157 {
 158   default_tab_len = len;
 159 }
 160
 161
 162 /* Accessor for the current source window.  Usually there is only one
 163    source window (either source or disassembly), but both can be
 164    displayed at the same time.  */
 165 struct tui_list *
 166 tui_source_windows (void)
 167 {
 168   return &source_windows;
 169 }
 170
 171
 172 /* Clear the list of source windows.  Usually there is only one source
 173    window (either source or disassembly), but both can be displayed at
 174    the same time.  */
 175 void
 176 tui_clear_source_windows (void)
 177 {
 178   source_windows.list[0] = NULL;
 179   source_windows.list[1] = NULL;
 180   source_windows.count = 0;
 181 }
 182
 183
 184 /* Clear the pertinant detail in the source windows.  */
 185 void
 186 tui_clear_source_windows_detail (void)
 187 {
 188   int i;
 189
 190   for (i = 0; i < (tui_source_windows ())->count; i++)
 191     tui_clear_win_detail ((tui_source_windows ())->list[i]);
 192 }
 193
 194
 195 /* Add a window to the list of source windows.  Usually there is only
 196    one source window (either source or disassembly), but both can be
 197    displayed at the same time.  */
 198 void
 199 tui_add_to_source_windows (struct tui_win_info *win_info)
 200 {
 201   if (source_windows.count < 2)
 202     source_windows.list[source_windows.count++] = (void *) win_info;
 203 }
 204
 205
 206 /* Clear the pertinant detail in the windows.  */
 207 void
 208 tui_clear_win_detail (struct tui_win_info *win_info)
 209 {
 210   if (win_info != NULL)
 211     {
 212       switch (win_info->generic.type)
 213         {
 214         case SRC_WIN:
 215         case DISASSEM_WIN:
 216           win_info->detail.source_info.start_line_or_addr.loa = LOA_ADDRESS;
 217           win_info->detail.source_info.start_line_or_addr.u.addr = 0;
 218           win_info->detail.source_info.horizontal_offset = 0;
 219           break;
 220         case CMD_WIN:
 221           win_info->detail.command_info.cur_line =
 222             win_info->detail.command_info.curch = 0;
 223           break;
 224         case DATA_WIN:
 225           win_info->detail.data_display_info.data_content =
 226             (tui_win_content) NULL;
 227           win_info->detail.data_display_info.data_content_count = 0;
 228           win_info->detail.data_display_info.regs_content =
 229             (tui_win_content) NULL;
 230           win_info->detail.data_display_info.regs_content_count = 0;
 231           win_info->detail.data_display_info.regs_display_type =
 232             TUI_UNDEFINED_REGS;
 233           win_info->detail.data_display_info.regs_column_count = 1;
 234           win_info->detail.data_display_info.display_regs = FALSE;
 235           break;
 236         default:
 237           break;
 238         }
 239     }
 240 }
 241
 242
 243 /* Accessor for the source execution info ptr.  */
 244 struct tui_gen_win_info *
 245 tui_source_exec_info_win_ptr (void)
 246 {
 247   return &exec_info[0];
 248 }
 249
 250
 251 /* Accessor for the disassem execution info ptr.  */
 252 struct tui_gen_win_info *
 253 tui_disassem_exec_info_win_ptr (void)
 254 {
 255   return &exec_info[1];
 256 }
 257
 258
 259 /* Accessor for the locator win info.  Answers a pointer to the static
 260    locator win info struct.  */
 261 struct tui_gen_win_info *
 262 tui_locator_win_info_ptr (void)
 263 {
 264   return &_locator;
 265 }
 266
 267
 268 /* Accessor for the term_height.  */
 269 int
 270 tui_term_height (void)
 271 {
 272   return term_height;
 273 }
 274
 275
 276 /* Mutator for the term height.  */
 277 void
 278 tui_set_term_height_to (int h)
 279 {
 280   term_height = h;
 281 }
 282
 283
 284 /* Accessor for the term_width.  */
 285 int
 286 tui_term_width (void)
 287 {
 288   return term_width;
 289 }
 290
 291
 292 /* Mutator for the term_width.  */
 293 void
 294 tui_set_term_width_to (int w)
 295 {
 296   term_width = w;
 297 }
 298
 299
 300 /* Accessor for the current layout.  */
 301 enum tui_layout_type
 302 tui_current_layout (void)
 303 {
 304   return current_layout;
 305 }
 306
 307
 308 /* Mutator for the current layout.  */
 309 void
 310 tui_set_current_layout_to (enum tui_layout_type new_layout)
 311 {
 312   current_layout = new_layout;
 313 }
 314
 315
 316 /* Set the origin of the window.  */
 317 void
 318 set_gen_win_origin (struct tui_gen_win_info *win_info,
 319                     int x, int y)
 320 {
 321   win_info->origin.x = x;
 322   win_info->origin.y = y;
 323 }
 324
 325
 326 /*****************************
 327 ** OTHER PUBLIC FUNCTIONS
 328 *****************************/
 329
 330
 331 /* Answer the next window in the list, cycling back to the top if
 332    necessary.  */
 333 struct tui_win_info *
 334 tui_next_win (struct tui_win_info *cur_win)
 335 {
 336   enum tui_win_type type = cur_win->generic.type;
 337   struct tui_win_info *next_win = (struct tui_win_info *) NULL;
 338
 339   if (cur_win->generic.type == CMD_WIN)
 340     type = SRC_WIN;
 341   else
 342     type = cur_win->generic.type + 1;
 343   while (type != cur_win->generic.type && (next_win == NULL))
 344     {
 345       if (tui_win_list[type] && tui_win_list[type]->generic.is_visible)
 346         next_win = tui_win_list[type];
 347       else
 348         {
 349           if (type == CMD_WIN)
 350             type = SRC_WIN;
 351           else
 352             type++;
 353         }
 354     }
 355
 356   return next_win;
 357 }
 358
 359
 360 /* Answer the prev window in the list, cycling back to the bottom if
 361    necessary.  */
 362 struct tui_win_info *
 363 tui_prev_win (struct tui_win_info *cur_win)
 364 {
 365   enum tui_win_type type = cur_win->generic.type;
 366   struct tui_win_info *prev = (struct tui_win_info *) NULL;
 367
 368   if (cur_win->generic.type == SRC_WIN)
 369     type = CMD_WIN;
 370   else
 371     type = cur_win->generic.type - 1;
 372   while (type != cur_win->generic.type && (prev == NULL))
 373     {
 374       if (tui_win_list[type]->generic.is_visible)
 375         prev = tui_win_list[type];
 376       else
 377         {
 378           if (type == SRC_WIN)
 379             type = CMD_WIN;
 380           else
 381             type--;
 382         }
 383     }
 384
 385   return prev;
 386 }
 387
 388
 389 /* Answer the window represented by name.  */
 390 struct tui_win_info *
 391 tui_partial_win_by_name (char *name)
 392 {
 393   struct tui_win_info *win_info = (struct tui_win_info *) NULL;
 394
 395   if (name != (char *) NULL)
 396     {
 397       int i = 0;
 398
 399       while (i < MAX_MAJOR_WINDOWS && win_info == NULL)
 400         {
 401           if (tui_win_list[i] != 0)
 402             {
 403               char *cur_name = tui_win_name (&tui_win_list[i]->generic);
 404               if (strlen (name) <= strlen (cur_name) &&
 405                   strncmp (name, cur_name, strlen (name)) == 0)
 406                 win_info = tui_win_list[i];
 407             }
 408           i++;
 409         }
 410     }
 411
 412   return win_info;
 413 }
 414
 415
 416 /* Answer the name of the window.  */
 417 char *
 418 tui_win_name (struct tui_gen_win_info *win_info)
 419 {
 420   char *name = (char *) NULL;
 421
 422   switch (win_info->type)
 423     {
 424     case SRC_WIN:
 425       name = SRC_NAME;
 426       break;
 427     case CMD_WIN:
 428       name = CMD_NAME;
 429       break;
 430     case DISASSEM_WIN:
 431       name = DISASSEM_NAME;
 432       break;
 433     case DATA_WIN:
 434       name = DATA_NAME;
 435       break;
 436     default:
 437       name = "";
 438       break;
 439     }
 440
 441   return name;
 442 }
 443
 444
 445 void
 446 tui_initialize_static_data (void)
 447 {
 448   tui_init_generic_part (tui_source_exec_info_win_ptr ());
 449   tui_init_generic_part (tui_disassem_exec_info_win_ptr ());
 450   tui_init_generic_part (tui_locator_win_info_ptr ());
 451 }
 452
 453
 454 struct tui_gen_win_info *
 455 tui_alloc_generic_win_info (void)
 456 {
 457   struct tui_gen_win_info *win;
 458
 459   if ((win = XMALLOC (struct tui_gen_win_info)) != NULL)
 460     tui_init_generic_part (win);
 461
 462   return win;
 463 }
 464
 465
 466 void
 467 tui_init_generic_part (struct tui_gen_win_info *win)
 468 {
 469   win->width =
 470     win->height =
 471     win->origin.x =
 472     win->origin.y =
 473     win->viewport_height =
 474     win->content_size =
 475     win->last_visible_line = 0;
 476   win->handle = (WINDOW *) NULL;
 477   win->content = NULL;
 478   win->content_in_use =
 479     win->is_visible = FALSE;
 480   win->title = 0;
 481 }
 482
 483
 484 /* init_content_element().
 485  */
 486 void
 487 init_content_element (struct tui_win_element *element,
 488                       enum tui_win_type type)
 489 {
 490   element->highlight = FALSE;
 491   switch (type)
 492     {
 493     case SRC_WIN:
 494     case DISASSEM_WIN:
 495       element->which_element.source.line = (char *) NULL;
 496       element->which_element.source.line_or_addr.loa = LOA_LINE;
 497       element->which_element.source.line_or_addr.u.line_no = 0;
 498       element->which_element.source.is_exec_point = FALSE;
 499       element->which_element.source.has_break = FALSE;
 500       break;
 501     case DATA_WIN:
 502       tui_init_generic_part (&element->which_element.data_window);
 503       element->which_element.data_window.type = DATA_ITEM_WIN;
 504       ((struct tui_gen_win_info *) & element->which_element.data_window)->content =
 505         (void **) tui_alloc_content (1, DATA_ITEM_WIN);
 506       ((struct tui_gen_win_info *)
 507        & element->which_element.data_window)->content_size = 1;
 508       break;
 509     case CMD_WIN:
 510       element->which_element.command.line = (char *) NULL;
 511       break;
 512     case DATA_ITEM_WIN:
 513       element->which_element.data.name = (char *) NULL;
 514       element->which_element.data.type = TUI_REGISTER;
 515       element->which_element.data.item_no = UNDEFINED_ITEM;
 516       element->which_element.data.value = NULL;
 517       element->which_element.data.highlight = FALSE;
 518       element->which_element.data.content = (char*) NULL;
 519       break;
 520     case LOCATOR_WIN:
 521       element->which_element.locator.file_name[0] =
 522         element->which_element.locator.proc_name[0] = (char) 0;
 523       element->which_element.locator.line_no = 0;
 524       element->which_element.locator.addr = 0;
 525       break;
 526     case EXEC_INFO_WIN:
 527       memset(element->which_element.simple_string, ' ',
 528              sizeof(element->which_element.simple_string));
 529       break;
 530     default:
 531       break;
 532     }
 533 }
 534
 535 void
 536 init_win_info (struct tui_win_info *win_info)
 537 {
 538   tui_init_generic_part (&win_info->generic);
 539   win_info->can_highlight =
 540     win_info->is_highlighted = FALSE;
 541   switch (win_info->generic.type)
 542     {
 543     case SRC_WIN:
 544     case DISASSEM_WIN:
 545       win_info->detail.source_info.execution_info = (struct tui_gen_win_info *) NULL;
 546       win_info->detail.source_info.has_locator = FALSE;
 547       win_info->detail.source_info.horizontal_offset = 0;
 548       win_info->detail.source_info.start_line_or_addr.loa = LOA_ADDRESS;
 549       win_info->detail.source_info.start_line_or_addr.u.addr = 0;
 550       win_info->detail.source_info.filename = 0;
 551       break;
 552     case DATA_WIN:
 553       win_info->detail.data_display_info.data_content = (tui_win_content) NULL;
 554       win_info->detail.data_display_info.data_content_count = 0;
 555       win_info->detail.data_display_info.regs_content = (tui_win_content) NULL;
 556       win_info->detail.data_display_info.regs_content_count = 0;
 557       win_info->detail.data_display_info.regs_display_type =
 558         TUI_UNDEFINED_REGS;
 559       win_info->detail.data_display_info.regs_column_count = 1;
 560       win_info->detail.data_display_info.display_regs = FALSE;
 561       win_info->detail.data_display_info.current_group = 0;
 562       break;
 563     case CMD_WIN:
 564       win_info->detail.command_info.cur_line = 0;
 565       win_info->detail.command_info.curch = 0;
 566       break;
 567     default:
 568       win_info->detail.opaque = NULL;
 569       break;
 570     }
 571 }
 572
 573
 574 struct tui_win_info *
 575 tui_alloc_win_info (enum tui_win_type type)
 576 {
 577   struct tui_win_info *win_info;
 578
 579   win_info = XMALLOC (struct tui_win_info);
 580   if (win_info != NULL)
 581     {
 582       win_info->generic.type = type;
 583       init_win_info (win_info);
 584     }
 585
 586   return win_info;
 587 }
 588
 589
 590 /* Allocates the content and elements in a block.  */
 591 tui_win_content
 592 tui_alloc_content (int num_elements, enum tui_win_type type)
 593 {
 594   tui_win_content content;
 595   char *element_block_ptr;
 596   int i;
 597
 598   content = xmalloc (sizeof (struct tui_win_element *) *num_elements);
 599   if (content != NULL)
 600     {
 601       /*
 602        * All windows, except the data window, can allocate the
 603        * elements in a chunk.  The data window cannot because items
 604        * can be added/removed from the data display by the user at any
 605        * time.
 606        */
 607       if (type != DATA_WIN)
 608         {
 609           element_block_ptr =
 610             xmalloc (sizeof (struct tui_win_element) * num_elements);
 611           if (element_block_ptr != NULL)
 612             {
 613               for (i = 0; i < num_elements; i++)
 614                 {
 615                   content[i] = (struct tui_win_element *) element_block_ptr;
 616                   init_content_element (content[i], type);
 617                   element_block_ptr += sizeof (struct tui_win_element);
 618                 }
 619             }
 620           else
 621             {
 622               xfree (content);
 623               content = (tui_win_content) NULL;
 624             }
 625         }
 626     }
 627
 628   return content;
 629 }
 630
 631
 632 /* Adds the input number of elements to the windows's content.  If no
 633    content has been allocated yet, alloc_content() is called to do
 634    this.  The index of the first element added is returned, unless
 635    there is a memory allocation error, in which case, (-1) is
 636    returned.  */
 637 int
 638 tui_add_content_elements (struct tui_gen_win_info *win_info,
 639                           int num_elements)
 640 {
 641   struct tui_win_element *element_ptr;
 642   int i, index_start;
 643
 644   if (win_info->content == NULL)
 645     {
 646       win_info->content = (void **) tui_alloc_content (num_elements, win_info->type);
 647       index_start = 0;
 648     }
 649   else
 650     index_start = win_info->content_size;
 651   if (win_info->content != NULL)
 652     {
 653       for (i = index_start; (i < num_elements + index_start); i++)
 654         {
 655           if ((element_ptr = XMALLOC (struct tui_win_element)) != NULL)
 656             {
 657               win_info->content[i] = (void *) element_ptr;
 658               init_content_element (element_ptr, win_info->type);
 659               win_info->content_size++;
 660             }
 661           else  /* Things must be really hosed now!  We ran out of
 662                    memory!?  */
 663             return (-1);
 664         }
 665     }
 666
 667   return index_start;
 668 }
 669
 670
 671 /* Delete all curses windows associated with win_info, leaving
 672    everything else intact.  */
 673 void
 674 tui_del_window (struct tui_win_info *win_info)
 675 {
 676   struct tui_gen_win_info *generic_win;
 677
 678   switch (win_info->generic.type)
 679     {
 680     case SRC_WIN:
 681     case DISASSEM_WIN:
 682       generic_win = tui_locator_win_info_ptr ();
 683       if (generic_win != (struct tui_gen_win_info *) NULL)
 684         {
 685           tui_delete_win (generic_win->handle);
 686           generic_win->handle = (WINDOW *) NULL;
 687           generic_win->is_visible = FALSE;
 688         }
 689       if (win_info->detail.source_info.filename)
 690         {
 691           xfree (win_info->detail.source_info.filename);
 692           win_info->detail.source_info.filename = 0;
 693         }
 694       generic_win = win_info->detail.source_info.execution_info;
 695       if (generic_win != (struct tui_gen_win_info *) NULL)
 696         {
 697           tui_delete_win (generic_win->handle);
 698           generic_win->handle = (WINDOW *) NULL;
 699           generic_win->is_visible = FALSE;
 700         }
 701       break;
 702     case DATA_WIN:
 703       if (win_info->generic.content != NULL)
 704         {
 705           tui_del_data_windows (win_info->detail.data_display_info.regs_content,
 706                                 win_info->detail.data_display_info.regs_content_count);
 707           tui_del_data_windows (win_info->detail.data_display_info.data_content,
 708                                 win_info->detail.data_display_info.data_content_count);
 709         }
 710       break;
 711     default:
 712       break;
 713     }
 714   if (win_info->generic.handle != (WINDOW *) NULL)
 715     {
 716       tui_delete_win (win_info->generic.handle);
 717       win_info->generic.handle = (WINDOW *) NULL;
 718       win_info->generic.is_visible = FALSE;
 719     }
 720 }
 721
 722
 723 void
 724 tui_free_window (struct tui_win_info *win_info)
 725 {
 726   struct tui_gen_win_info *generic_win;
 727
 728   switch (win_info->generic.type)
 729     {
 730     case SRC_WIN:
 731     case DISASSEM_WIN:
 732       generic_win = tui_locator_win_info_ptr ();
 733       if (generic_win != (struct tui_gen_win_info *) NULL)
 734         {
 735           tui_delete_win (generic_win->handle);
 736           generic_win->handle = (WINDOW *) NULL;
 737         }
 738       tui_free_win_content (generic_win);
 739       if (win_info->detail.source_info.filename)
 740         {
 741           xfree (win_info->detail.source_info.filename);
 742           win_info->detail.source_info.filename = 0;
 743         }
 744       generic_win = win_info->detail.source_info.execution_info;
 745       if (generic_win != (struct tui_gen_win_info *) NULL)
 746         {
 747           tui_delete_win (generic_win->handle);
 748           generic_win->handle = (WINDOW *) NULL;
 749           tui_free_win_content (generic_win);
 750         }
 751       break;
 752     case DATA_WIN:
 753       if (win_info->generic.content != NULL)
 754         {
 755           tui_free_data_content (win_info->detail.data_display_info.regs_content,
 756                                  win_info->detail.data_display_info.regs_content_count);
 757           win_info->detail.data_display_info.regs_content =
 758             (tui_win_content) NULL;
 759           win_info->detail.data_display_info.regs_content_count = 0;
 760           tui_free_data_content (win_info->detail.data_display_info.data_content,
 761                                  win_info->detail.data_display_info.data_content_count);
 762           win_info->detail.data_display_info.data_content =
 763             (tui_win_content) NULL;
 764           win_info->detail.data_display_info.data_content_count = 0;
 765           win_info->detail.data_display_info.regs_display_type =
 766             TUI_UNDEFINED_REGS;
 767           win_info->detail.data_display_info.regs_column_count = 1;
 768           win_info->detail.data_display_info.display_regs = FALSE;
 769           win_info->generic.content = NULL;
 770           win_info->generic.content_size = 0;
 771         }
 772       break;
 773     default:
 774       break;
 775     }
 776   if (win_info->generic.handle != (WINDOW *) NULL)
 777     {
 778       tui_delete_win (win_info->generic.handle);
 779       win_info->generic.handle = (WINDOW *) NULL;
 780       tui_free_win_content (&win_info->generic);
 781     }
 782   if (win_info->generic.title)
 783     xfree (win_info->generic.title);
 784   xfree (win_info);
 785 }
 786
 787
 788 void
 789 tui_free_all_source_wins_content (void)
 790 {
 791   int i;
 792
 793   for (i = 0; i < (tui_source_windows ())->count; i++)
 794     {
 795       struct tui_win_info *win_info = (tui_source_windows ())->list[i];
 796
 797       if (win_info != NULL)
 798         {
 799           tui_free_win_content (&(win_info->generic));
 800           tui_free_win_content (win_info->detail.source_info.execution_info);
 801         }
 802     }
 803 }
 804
 805
 806 void
 807 tui_free_win_content (struct tui_gen_win_info *win_info)
 808 {
 809   if (win_info->content != NULL)
 810     {
 811       free_content ((tui_win_content) win_info->content,
 812                    win_info->content_size,
 813                    win_info->type);
 814       win_info->content = NULL;
 815     }
 816   win_info->content_size = 0;
 817 }
 818
 819
 820 void
 821 tui_del_data_windows (tui_win_content content,
 822                       int content_size)
 823 {
 824   int i;
 825
 826   /* Remember that data window content elements are of type struct
 827      tui_gen_win_info *, each of which whose single element is a data
 828      element.  */
 829   for (i = 0; i < content_size; i++)
 830     {
 831       struct tui_gen_win_info *generic_win = &content[i]->which_element.data_window;
 832
 833       if (generic_win != (struct tui_gen_win_info *) NULL)
 834         {
 835           tui_delete_win (generic_win->handle);
 836           generic_win->handle = (WINDOW *) NULL;
 837           generic_win->is_visible = FALSE;
 838         }
 839     }
 840 }
 841
 842
 843 void
 844 tui_free_data_content (tui_win_content content,
 845                        int content_size)
 846 {
 847   int i;
 848
 849   /* Remember that data window content elements are of type struct
 850      tui_gen_win_info *, each of which whose single element is a data
 851      element.  */
 852   for (i = 0; i < content_size; i++)
 853     {
 854       struct tui_gen_win_info *generic_win = &content[i]->which_element.data_window;
 855
 856       if (generic_win != (struct tui_gen_win_info *) NULL)
 857         {
 858           tui_delete_win (generic_win->handle);
 859           generic_win->handle = (WINDOW *) NULL;
 860           tui_free_win_content (generic_win);
 861         }
 862     }
 863   free_content (content,
 864                 content_size,
 865                 DATA_WIN);
 866 }
 867
 868
 869 /**********************************
 870 ** LOCAL STATIC FUNCTIONS        **
 871 **********************************/
 872
 873
 874 static void
 875 free_content (tui_win_content content,
 876               int content_size,
 877               enum tui_win_type win_type)
 878 {
 879   if (content != (tui_win_content) NULL)
 880     {
 881       free_content_elements (content, content_size, win_type);
 882       xfree (content);
 883     }
 884 }
 885
 886
 887 /* free_content_elements().
 888  */
 889 static void
 890 free_content_elements (tui_win_content content,
 891                        int content_size,
 892                        enum tui_win_type type)
 893 {
 894   if (content != (tui_win_content) NULL)
 895     {
 896       int i;
 897
 898       if (type == SRC_WIN || type == DISASSEM_WIN)
 899         {
 900           /* Free whole source block.  */
 901           xfree (content[0]->which_element.source.line);
 902         }
 903       else
 904         {
 905           for (i = 0; i < content_size; i++)
 906             {
 907               struct tui_win_element *element;
 908
 909               element = content[i];
 910               if (element != (struct tui_win_element *) NULL)
 911                 {
 912                   switch (type)
 913                     {
 914                     case DATA_WIN:
 915                       xfree (element);
 916                       break;
 917                     case DATA_ITEM_WIN:
 918                       /* Note that data elements are not allocated in
 919                          a single block, but individually, as
 920                          needed.  */
 921                       if (element->which_element.data.type != TUI_REGISTER)
 922                         xfree ((void *)element->which_element.data.name);
 923                       xfree (element->which_element.data.value);
 924                       xfree (element->which_element.data.content);
 925                       xfree (element);
 926                       break;
 927                     case CMD_WIN:
 928                       xfree (element->which_element.command.line);
 929                       break;
 930                     default:
 931                       break;
 932                     }
 933                 }
 934             }
 935         }
 936       if (type != DATA_WIN && type != DATA_ITEM_WIN)
 937         xfree (content[0]);     /* Free the element block.  */
 938     }
 939 }