gdb/tui/tui-data.c

   1 /* TUI data manipulation routines.
   2
   3    Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software
   4    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., 59 Temple Place - Suite 330,
  23    Boston, MA 02111-1307, 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
  33 #ifdef HAVE_NCURSES_H
  34 #include <ncurses.h>
  35 #else
  36 #ifdef HAVE_CURSES_H
  37 #include <curses.h>
  38 #endif
  39 #endif
  40
  41 /****************************
  42 ** GLOBAL DECLARATIONS
  43 ****************************/
  44 struct tui_win_info *(tui_win_list[MAX_MAJOR_WINDOWS]);
  45
  46 /***************************
  47 ** Private data
  48 ****************************/
  49 static enum tui_layout_type current_layout = UNDEFINED_LAYOUT;
  50 static int term_height, term_width;
  51 static struct tui_gen_win_info _locator;
  52 static struct tui_gen_win_info exec_info[2];
  53 static struct tui_win_info * src_win_list[2];
  54 static struct tui_list source_windows = {(void **) src_win_list, 0};
  55 static int default_tab_len = DEFAULT_TAB_LEN;
  56 static struct tui_win_info * win_with_focus = (struct tui_win_info *) NULL;
  57 static struct tui_layout_def layout_def =
  58 {SRC_WIN,                       /* DISPLAY_MODE */
  59  FALSE,                         /* SPLIT */
  60  TUI_UNDEFINED_REGS,            /* REGS_DISPLAY_TYPE */
  61  TUI_SFLOAT_REGS};              /* FLOAT_REGS_DISPLAY_TYPE */
  62 static int win_resized = FALSE;
  63
  64
  65 /*********************************
  66 ** Static function forward decls
  67 **********************************/
  68 static void free_content (tui_win_content, int, enum tui_win_type);
  69 static void free_content_elements (tui_win_content, int, enum tui_win_type);
  70
  71
  72
  73 /*********************************
  74 ** PUBLIC FUNCTIONS
  75 **********************************/
  76
  77 int
  78 tui_win_is_source_type (enum tui_win_type win_type)
  79 {
  80   return (win_type == SRC_WIN || win_type == DISASSEM_WIN);
  81 }
  82
  83 int
  84 tui_win_is_auxillary (enum tui_win_type win_type)
  85 {
  86   return (win_type > MAX_MAJOR_WINDOWS);
  87 }
  88
  89 int
  90 tui_win_has_locator (struct tui_win_info *win_info)
  91 {
  92   return (win_info != NULL \
  93           && win_info->detail.source_info.has_locator);
  94 }
  95
  96 void
  97 tui_set_win_highlight (struct tui_win_info *win_info, int highlight)
  98 {
  99   if (win_info != NULL)
 100     win_info->is_highlighted = highlight;
 101 }
 102
 103 /******************************************
 104 ** ACCESSORS & MUTATORS FOR PRIVATE DATA
 105 ******************************************/
 106
 107 /* Answer a whether the terminal window has been resized or not.   */
 108 int
 109 tui_win_resized (void)
 110 {
 111   return win_resized;
 112 }
 113
 114
 115 /* Set a whether the terminal window has been resized or not.   */
 116 void
 117 tui_set_win_resized_to (int resized)
 118 {
 119   win_resized = resized;
 120 }
 121
 122
 123 /* Answer a pointer to the current layout definition.   */
 124 struct tui_layout_def *
 125 tui_layout_def (void)
 126 {
 127   return &layout_def;
 128 }
 129
 130
 131 /* Answer the window with the logical focus.    */
 132 struct tui_win_info *
 133 tui_win_with_focus (void)
 134 {
 135   return win_with_focus;
 136 }
 137
 138
 139 /* Set the window that has the logical focus.   */
 140 void
 141 tui_set_win_with_focus (struct tui_win_info * win_info)
 142 {
 143   win_with_focus = win_info;
 144 }
 145
 146
 147 /* Answer the length in chars, of tabs.    */
 148 int
 149 tui_default_tab_len (void)
 150 {
 151   return default_tab_len;
 152 }
 153
 154
 155 /* Set the length in chars, of tabs.   */
 156 void
 157 tui_set_default_tab_len (int len)
 158 {
 159   default_tab_len = len;
 160 }
 161
 162
 163 /* Accessor for the current source window.  Usually there is only one
 164    source window (either source or disassembly), but both can be
 165    displayed at the same time.  */
 166 struct tui_list *
 167 tui_source_windows (void)
 168 {
 169   return &source_windows;
 170 }
 171
 172
 173 /* Clear the list of source windows.  Usually there is only one source
 174    window (either source or disassembly), but both can be displayed at
 175    the same time.  */
 176 void
 177 tui_clear_source_windows (void)
 178 {
 179   source_windows.list[0] = NULL;
 180   source_windows.list[1] = NULL;
 181   source_windows.count = 0;
 182 }
 183
 184
 185 /* Clear the pertinant detail in the source windows.   */
 186 void
 187 tui_clear_source_windows_detail (void)
 188 {
 189   int i;
 190
 191   for (i = 0; i < (tui_source_windows ())->count; i++)
 192     tui_clear_win_detail ((struct tui_win_info *) (tui_source_windows ())->list[i]);
 193 }
 194
 195
 196 /* Add a window to the list of source windows.  Usually there is only
 197    one source window (either source or disassembly), but both can be
 198    displayed at the same time.  */
 199 void
 200 tui_add_to_source_windows (struct tui_win_info * win_info)
 201 {
 202   if (source_windows.count < 2)
 203     source_windows.list[source_windows.count++] = (void *) win_info;
 204 }
 205
 206
 207 /* Clear the pertinant detail in the windows.   */
 208 void
 209 tui_clear_win_detail (struct tui_win_info * win_info)
 210 {
 211   if (win_info != NULL)
 212     {
 213       switch (win_info->generic.type)
 214         {
 215         case SRC_WIN:
 216         case DISASSEM_WIN:
 217           win_info->detail.source_info.start_line_or_addr.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, int x, int y)
 319 {
 320   win_info->origin.x = x;
 321   win_info->origin.y = y;
 322 }
 323
 324
 325 /*****************************
 326 ** OTHER PUBLIC FUNCTIONS
 327 *****************************/
 328
 329
 330 /* Answer the next window in the list, cycling back to the top if
 331    necessary.  */
 332 struct tui_win_info *
 333 tui_next_win (struct tui_win_info * cur_win)
 334 {
 335   enum tui_win_type type = cur_win->generic.type;
 336   struct tui_win_info * next_win = (struct tui_win_info *) NULL;
 337
 338   if (cur_win->generic.type == CMD_WIN)
 339     type = SRC_WIN;
 340   else
 341     type = cur_win->generic.type + 1;
 342   while (type != cur_win->generic.type && (next_win == NULL))
 343     {
 344       if (tui_win_list[type] && tui_win_list[type]->generic.is_visible)
 345         next_win = tui_win_list[type];
 346       else
 347         {
 348           if (type == CMD_WIN)
 349             type = SRC_WIN;
 350           else
 351             type++;
 352         }
 353     }
 354
 355   return next_win;
 356 }
 357
 358
 359 /* Answer the prev window in the list, cycling back to the bottom if
 360    necessary.  */
 361 struct tui_win_info *
 362 tui_prev_win (struct tui_win_info * cur_win)
 363 {
 364   enum tui_win_type type = cur_win->generic.type;
 365   struct tui_win_info * prev = (struct tui_win_info *) NULL;
 366
 367   if (cur_win->generic.type == SRC_WIN)
 368     type = CMD_WIN;
 369   else
 370     type = cur_win->generic.type - 1;
 371   while (type != cur_win->generic.type && (prev == NULL))
 372     {
 373       if (tui_win_list[type]->generic.is_visible)
 374         prev = tui_win_list[type];
 375       else
 376         {
 377           if (type == SRC_WIN)
 378             type = CMD_WIN;
 379           else
 380             type--;
 381         }
 382     }
 383
 384   return prev;
 385 }
 386
 387
 388 /* Answer the window represented by name.    */
 389 struct tui_win_info *
 390 tui_partial_win_by_name (char *name)
 391 {
 392   struct tui_win_info * win_info = (struct tui_win_info *) NULL;
 393
 394   if (name != (char *) NULL)
 395     {
 396       int i = 0;
 397
 398       while (i < MAX_MAJOR_WINDOWS && win_info == NULL)
 399         {
 400           if (tui_win_list[i] != 0)
 401             {
 402               char *cur_name = tui_win_name (&tui_win_list[i]->generic);
 403               if (strlen (name) <= strlen (cur_name) &&
 404                   strncmp (name, cur_name, strlen (name)) == 0)
 405                 win_info = tui_win_list[i];
 406             }
 407           i++;
 408         }
 409     }
 410
 411   return win_info;
 412 }
 413
 414
 415 /* Answer the name of the window.  */
 416 char *
 417 tui_win_name (struct tui_gen_win_info * win_info)
 418 {
 419   char *name = (char *) NULL;
 420
 421   switch (win_info->type)
 422     {
 423     case SRC_WIN:
 424       name = SRC_NAME;
 425       break;
 426     case CMD_WIN:
 427       name = CMD_NAME;
 428       break;
 429     case DISASSEM_WIN:
 430       name = DISASSEM_NAME;
 431       break;
 432     case DATA_WIN:
 433       name = DATA_NAME;
 434       break;
 435     default:
 436       name = "";
 437       break;
 438     }
 439
 440   return name;
 441 }
 442
 443
 444 void
 445 tui_initialize_static_data (void)
 446 {
 447   tui_init_generic_part (tui_source_exec_info_win_ptr ());
 448   tui_init_generic_part (tui_disassem_exec_info_win_ptr ());
 449   tui_init_generic_part (tui_locator_win_info_ptr ());
 450 }
 451
 452
 453 struct tui_gen_win_info *
 454 tui_alloc_generic_win_info (void)
 455 {
 456   struct tui_gen_win_info * win;
 457
 458   if ((win = (struct tui_gen_win_info *) xmalloc (
 459                      sizeof (struct tui_gen_win_info *))) != (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 /*
 485    ** init_content_element().
 486  */
 487 void
 488 init_content_element (struct tui_win_element * element, 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.line_no = 0;
 497       element->which_element.source.is_exec_point = FALSE;
 498       element->which_element.source.has_break = FALSE;
 499       break;
 500     case DATA_WIN:
 501       tui_init_generic_part (&element->which_element.data_window);
 502       element->which_element.data_window.type = DATA_ITEM_WIN;
 503       ((struct tui_gen_win_info *) & element->which_element.data_window)->content =
 504         (void **) tui_alloc_content (1, DATA_ITEM_WIN);
 505       ((struct tui_gen_win_info *)
 506        & element->which_element.data_window)->content_size = 1;
 507       break;
 508     case CMD_WIN:
 509       element->which_element.command.line = (char *) NULL;
 510       break;
 511     case DATA_ITEM_WIN:
 512       element->which_element.data.name = (char *) NULL;
 513       element->which_element.data.type = TUI_REGISTER;
 514       element->which_element.data.item_no = UNDEFINED_ITEM;
 515       element->which_element.data.value = NULL;
 516       element->which_element.data.highlight = FALSE;
 517       break;
 518     case LOCATOR_WIN:
 519       element->which_element.locator.file_name[0] =
 520         element->which_element.locator.proc_name[0] = (char) 0;
 521       element->which_element.locator.line_no = 0;
 522       element->which_element.locator.addr = 0;
 523       break;
 524     case EXEC_INFO_WIN:
 525       memset(element->which_element.simple_string, ' ',
 526              sizeof(element->which_element.simple_string));
 527       break;
 528     default:
 529       break;
 530     }
 531 }
 532
 533 void
 534 init_win_info (struct tui_win_info * win_info)
 535 {
 536   tui_init_generic_part (&win_info->generic);
 537   win_info->can_highlight =
 538     win_info->is_highlighted = FALSE;
 539   switch (win_info->generic.type)
 540     {
 541     case SRC_WIN:
 542     case DISASSEM_WIN:
 543       win_info->detail.source_info.execution_info = (struct tui_gen_win_info *) NULL;
 544       win_info->detail.source_info.has_locator = FALSE;
 545       win_info->detail.source_info.horizontal_offset = 0;
 546       win_info->detail.source_info.start_line_or_addr.addr = 0;
 547       win_info->detail.source_info.filename = 0;
 548       break;
 549     case DATA_WIN:
 550       win_info->detail.data_display_info.data_content = (tui_win_content) NULL;
 551       win_info->detail.data_display_info.data_content_count = 0;
 552       win_info->detail.data_display_info.regs_content = (tui_win_content) NULL;
 553       win_info->detail.data_display_info.regs_content_count = 0;
 554       win_info->detail.data_display_info.regs_display_type =
 555         TUI_UNDEFINED_REGS;
 556       win_info->detail.data_display_info.regs_column_count = 1;
 557       win_info->detail.data_display_info.display_regs = FALSE;
 558       break;
 559     case CMD_WIN:
 560       win_info->detail.command_info.cur_line = 0;
 561       win_info->detail.command_info.curch = 0;
 562       break;
 563     default:
 564       win_info->detail.opaque = NULL;
 565       break;
 566     }
 567 }
 568
 569
 570 struct tui_win_info *
 571 tui_alloc_win_info (enum tui_win_type type)
 572 {
 573   struct tui_win_info * win_info = (struct tui_win_info *) NULL;
 574
 575   win_info = (struct tui_win_info *) xmalloc (sizeof (struct tui_win_info));
 576   if ((win_info != NULL))
 577     {
 578       win_info->generic.type = type;
 579       init_win_info (win_info);
 580     }
 581
 582   return win_info;
 583 }
 584
 585
 586 /* Allocates the content and elements in a block.  */
 587 tui_win_content
 588 tui_alloc_content (int num_elements, enum tui_win_type type)
 589 {
 590   tui_win_content content = (tui_win_content) NULL;
 591   char *element_block_ptr = (char *) NULL;
 592   int i;
 593
 594   if ((content = (tui_win_content)
 595   xmalloc (sizeof (struct tui_win_element *) * num_elements)) != (tui_win_content) NULL)
 596     {                           /*
 597                                    ** All windows, except the data window, can allocate the elements
 598                                    ** in a chunk.  The data window cannot because items can be
 599                                    ** added/removed from the data display by the user at any time.
 600                                  */
 601       if (type != DATA_WIN)
 602         {
 603           if ((element_block_ptr = (char *)
 604            xmalloc (sizeof (struct tui_win_element) * num_elements)) != (char *) NULL)
 605             {
 606               for (i = 0; i < num_elements; i++)
 607                 {
 608                   content[i] = (struct tui_win_element *) element_block_ptr;
 609                   init_content_element (content[i], type);
 610                   element_block_ptr += sizeof (struct tui_win_element);
 611                 }
 612             }
 613           else
 614             {
 615               xfree (content);
 616               content = (tui_win_content) NULL;
 617             }
 618         }
 619     }
 620
 621   return content;
 622 }
 623
 624
 625 /* Adds the input number of elements to the windows's content.  If no
 626    content has been allocated yet, alloc_content() is called to do
 627    this.  The index of the first element added is returned, unless
 628    there is a memory allocation error, in which case, (-1) is
 629    returned.  */
 630 int
 631 tui_add_content_elements (struct tui_gen_win_info * win_info, int num_elements)
 632 {
 633   struct tui_win_element * element_ptr;
 634   int i, index_start;
 635
 636   if (win_info->content == NULL)
 637     {
 638       win_info->content = (void **) tui_alloc_content (num_elements, win_info->type);
 639       index_start = 0;
 640     }
 641   else
 642     index_start = win_info->content_size;
 643   if (win_info->content != NULL)
 644     {
 645       for (i = index_start; (i < num_elements + index_start); i++)
 646         {
 647           if ((element_ptr = (struct tui_win_element *)
 648                xmalloc (sizeof (struct tui_win_element))) != (struct tui_win_element *) NULL)
 649             {
 650               win_info->content[i] = (void *) element_ptr;
 651               init_content_element (element_ptr, win_info->type);
 652               win_info->content_size++;
 653             }
 654           else                  /* things must be really hosed now! We ran out of memory!? */
 655             return (-1);
 656         }
 657     }
 658
 659   return index_start;
 660 }
 661
 662
 663 /* Delete all curses windows associated with win_info, leaving everything
 664    else intact.  */
 665 void
 666 tui_del_window (struct tui_win_info * win_info)
 667 {
 668   struct tui_gen_win_info * generic_win;
 669
 670   switch (win_info->generic.type)
 671     {
 672     case SRC_WIN:
 673     case DISASSEM_WIN:
 674       generic_win = tui_locator_win_info_ptr ();
 675       if (generic_win != (struct tui_gen_win_info *) NULL)
 676         {
 677           tui_delete_win (generic_win->handle);
 678           generic_win->handle = (WINDOW *) NULL;
 679           generic_win->is_visible = FALSE;
 680         }
 681       if (win_info->detail.source_info.filename)
 682         {
 683           xfree (win_info->detail.source_info.filename);
 684           win_info->detail.source_info.filename = 0;
 685         }
 686       generic_win = win_info->detail.source_info.execution_info;
 687       if (generic_win != (struct tui_gen_win_info *) NULL)
 688         {
 689           tui_delete_win (generic_win->handle);
 690           generic_win->handle = (WINDOW *) NULL;
 691           generic_win->is_visible = FALSE;
 692         }
 693       break;
 694     case DATA_WIN:
 695       if (win_info->generic.content != NULL)
 696         {
 697           tui_del_data_windows (win_info->detail.data_display_info.regs_content,
 698                                 win_info->detail.data_display_info.regs_content_count);
 699           tui_del_data_windows (win_info->detail.data_display_info.data_content,
 700                                 win_info->detail.data_display_info.data_content_count);
 701         }
 702       break;
 703     default:
 704       break;
 705     }
 706   if (win_info->generic.handle != (WINDOW *) NULL)
 707     {
 708       tui_delete_win (win_info->generic.handle);
 709       win_info->generic.handle = (WINDOW *) NULL;
 710       win_info->generic.is_visible = FALSE;
 711     }
 712 }
 713
 714
 715 void
 716 tui_free_window (struct tui_win_info * win_info)
 717 {
 718   struct tui_gen_win_info * generic_win;
 719
 720   switch (win_info->generic.type)
 721     {
 722     case SRC_WIN:
 723     case DISASSEM_WIN:
 724       generic_win = tui_locator_win_info_ptr ();
 725       if (generic_win != (struct tui_gen_win_info *) NULL)
 726         {
 727           tui_delete_win (generic_win->handle);
 728           generic_win->handle = (WINDOW *) NULL;
 729         }
 730       tui_free_win_content (generic_win);
 731       if (win_info->detail.source_info.filename)
 732         {
 733           xfree (win_info->detail.source_info.filename);
 734           win_info->detail.source_info.filename = 0;
 735         }
 736       generic_win = win_info->detail.source_info.execution_info;
 737       if (generic_win != (struct tui_gen_win_info *) NULL)
 738         {
 739           tui_delete_win (generic_win->handle);
 740           generic_win->handle = (WINDOW *) NULL;
 741           tui_free_win_content (generic_win);
 742         }
 743       break;
 744     case DATA_WIN:
 745       if (win_info->generic.content != NULL)
 746         {
 747           tui_free_data_content (win_info->detail.data_display_info.regs_content,
 748                                  win_info->detail.data_display_info.regs_content_count);
 749           win_info->detail.data_display_info.regs_content =
 750             (tui_win_content) NULL;
 751           win_info->detail.data_display_info.regs_content_count = 0;
 752           tui_free_data_content (win_info->detail.data_display_info.data_content,
 753                                  win_info->detail.data_display_info.data_content_count);
 754           win_info->detail.data_display_info.data_content =
 755             (tui_win_content) NULL;
 756           win_info->detail.data_display_info.data_content_count = 0;
 757           win_info->detail.data_display_info.regs_display_type =
 758             TUI_UNDEFINED_REGS;
 759           win_info->detail.data_display_info.regs_column_count = 1;
 760           win_info->detail.data_display_info.display_regs = FALSE;
 761           win_info->generic.content = NULL;
 762           win_info->generic.content_size = 0;
 763         }
 764       break;
 765     default:
 766       break;
 767     }
 768   if (win_info->generic.handle != (WINDOW *) NULL)
 769     {
 770       tui_delete_win (win_info->generic.handle);
 771       win_info->generic.handle = (WINDOW *) NULL;
 772       tui_free_win_content (&win_info->generic);
 773     }
 774   if (win_info->generic.title)
 775     xfree (win_info->generic.title);
 776   xfree (win_info);
 777 }
 778
 779
 780 void
 781 tui_free_all_source_wins_content (void)
 782 {
 783   int i;
 784
 785   for (i = 0; i < (tui_source_windows ())->count; i++)
 786     {
 787       struct tui_win_info * win_info = (struct tui_win_info *) (tui_source_windows ())->list[i];
 788
 789       if (win_info != NULL)
 790         {
 791           tui_free_win_content (&(win_info->generic));
 792           tui_free_win_content (win_info->detail.source_info.execution_info);
 793         }
 794     }
 795 }
 796
 797
 798 void
 799 tui_free_win_content (struct tui_gen_win_info * win_info)
 800 {
 801   if (win_info->content != NULL)
 802     {
 803       free_content ((tui_win_content) win_info->content,
 804                    win_info->content_size,
 805                    win_info->type);
 806       win_info->content = NULL;
 807     }
 808   win_info->content_size = 0;
 809 }
 810
 811
 812 void
 813 tui_del_data_windows (tui_win_content content, int content_size)
 814 {
 815   int i;
 816
 817   /*
 818      ** Remember that data window content elements are of type struct tui_gen_win_info *,
 819      ** each of which whose single element is a data element.
 820    */
 821   for (i = 0; i < content_size; i++)
 822     {
 823       struct tui_gen_win_info * generic_win = &content[i]->which_element.data_window;
 824
 825       if (generic_win != (struct tui_gen_win_info *) NULL)
 826         {
 827           tui_delete_win (generic_win->handle);
 828           generic_win->handle = (WINDOW *) NULL;
 829           generic_win->is_visible = FALSE;
 830         }
 831     }
 832 }
 833
 834
 835 void
 836 tui_free_data_content (tui_win_content content, int content_size)
 837 {
 838   int i;
 839
 840   /*
 841      ** Remember that data window content elements are of type struct tui_gen_win_info *,
 842      ** each of which whose single element is a data element.
 843    */
 844   for (i = 0; i < content_size; i++)
 845     {
 846       struct tui_gen_win_info * generic_win = &content[i]->which_element.data_window;
 847
 848       if (generic_win != (struct tui_gen_win_info *) NULL)
 849         {
 850           tui_delete_win (generic_win->handle);
 851           generic_win->handle = (WINDOW *) NULL;
 852           tui_free_win_content (generic_win);
 853         }
 854     }
 855   free_content (content,
 856                content_size,
 857                DATA_WIN);
 858 }
 859
 860
 861 /**********************************
 862 ** LOCAL STATIC FUNCTIONS        **
 863 **********************************/
 864
 865
 866 static void
 867 free_content (tui_win_content content, int content_size, enum tui_win_type win_type)
 868 {
 869   if (content != (tui_win_content) NULL)
 870     {
 871       free_content_elements (content, content_size, win_type);
 872       xfree (content);
 873     }
 874 }
 875
 876
 877 /*
 878    ** free_content_elements().
 879  */
 880 static void
 881 free_content_elements (tui_win_content content, int content_size, enum tui_win_type type)
 882 {
 883   if (content != (tui_win_content) NULL)
 884     {
 885       int i;
 886
 887       if (type == SRC_WIN || type == DISASSEM_WIN)
 888         {
 889           /* free whole source block */
 890           xfree (content[0]->which_element.source.line);
 891         }
 892       else
 893         {
 894           for (i = 0; i < content_size; i++)
 895             {
 896               struct tui_win_element * element;
 897
 898               element = content[i];
 899               if (element != (struct tui_win_element *) NULL)
 900                 {
 901                   switch (type)
 902                     {
 903                     case DATA_WIN:
 904                       xfree (element);
 905                       break;
 906                     case DATA_ITEM_WIN:
 907                       /*
 908                          ** Note that data elements are not allocated
 909                          ** in a single block, but individually, as needed.
 910                        */
 911                       if (element->which_element.data.type != TUI_REGISTER)
 912                         xfree ((void *)element->which_element.data.name);
 913                       xfree (element->which_element.data.value);
 914                       xfree (element);
 915                       break;
 916                     case CMD_WIN:
 917                       xfree (element->which_element.command.line);
 918                       break;
 919                     default:
 920                       break;
 921                     }
 922                 }
 923             }
 924         }
 925       if (type != DATA_WIN && type != DATA_ITEM_WIN)
 926         xfree (content[0]);     /* free the element block */
 927     }
 928 }