home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1999 mARCH / PCWK3A99.iso / Linux / DDD331 / DDD-3_1_.000 / DDD-3_1_ / ddd-3.1.1 / ddd / DataDisp.C < prev    next >
C/C++ Source or Header  |  1998-12-04  |  159KB  |  6,627 lines
  1. // $Id: DataDisp.C,v 1.344.4.2 1998/12/04 15:48:26 zeller Exp $
  2. // Data Display
  3.  
  4. // Copyright (C) 1995-1998 Technische Universitaet Braunschweig, Germany.
  5. // Written by Dorothea Luetkehaus <luetke@ips.cs.tu-bs.de>
  6. // and Andreas Zeller <zeller@ips.cs.tu-bs.de>.
  7. // 
  8. // This file is part of DDD.
  9. // 
  10. // DDD is free software; you can redistribute it and/or
  11. // modify it under the terms of the GNU General Public
  12. // License as published by the Free Software Foundation; either
  13. // version 2 of the License, or (at your option) any later version.
  14. // 
  15. // DDD 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.
  18. // See the GNU General Public License for more details.
  19. // 
  20. // You should have received a copy of the GNU General Public
  21. // License along with DDD -- see the file COPYING.
  22. // If not, write to the Free Software Foundation, Inc.,
  23. // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  24. // 
  25. // DDD is the data display debugger.
  26. // For details, see the DDD World-Wide-Web page, 
  27. // `http://www.cs.tu-bs.de/softech/ddd/',
  28. // or send a mail to the DDD developers <ddd@ips.cs.tu-bs.de>.
  29.  
  30. char DataDisp_rcsid[] =
  31.     "$Id: DataDisp.C,v 1.344.4.2 1998/12/04 15:48:26 zeller Exp $";
  32.  
  33. // An interactive debugger is an outstanding example of what's NOT
  34. // needed--it encourages trial-and-error hacking rather than
  35. // systematic design, and also hides marginal people barely qualified
  36. // for precision programming.
  37. //                     -- HARLAN MILLS
  38. //
  39. // The debugger isn't a substitute for good thinking.  But, in some
  40. // cases, thinking isn't a substitute for a good debugger either.  The
  41. // most effective combination is good thinking and a good debugger.
  42. //
  43. //                    -- STEVE McCONNELL, Code Complete
  44.  
  45.  
  46. #ifdef __GNUG__
  47. #pragma implementation
  48. #endif
  49.  
  50. #ifndef LOG_DISPLAYS
  51. #define LOG_DISPLAYS 0
  52. #endif
  53.  
  54. #ifndef LOG_COMPARE
  55. #define LOG_COMPARE  0
  56. #endif
  57.  
  58. //-----------------------------------------------------------------------------
  59. // Data Display Implementation
  60. //-----------------------------------------------------------------------------
  61.  
  62. #include "DataDisp.h"
  63.  
  64. // Misc includes
  65. #include "AliasGE.h"
  66. #include "AppData.h"        // Constructors
  67. #include "ArgField.h"
  68. #include "ComboBox.h"
  69. #include "Command.h"
  70. #include "CompositeB.h"
  71. #include "DestroyCB.h"
  72. #include "DispGraph.h"
  73. #include "DispNode.h"
  74. #include "DispBox.h"
  75. #include "GraphEdit.h"
  76. #include "Graph.h"
  77. #include "HistoryD.h"
  78. #include "IntIntAA.h"
  79. #include "LessTifH.h"
  80. #include "MString.h"
  81. #include "MakeMenu.h"
  82. #include "Map.h"
  83. #include "PannedGE.h"
  84. #include "PosBuffer.h"
  85. #include "ProgressM.h"
  86. #include "ScrolledGE.h"
  87. #include "SmartC.h"
  88. #include "StringBox.h"        // StringBox::fontTable
  89. #include "StringMap.h"
  90. #include "TagBox.h"
  91. #include "TimeOut.h"
  92. #include "UndoBuffer.h"
  93. #include "VSEFlags.h"
  94. #include "VSLLib.h"
  95. #include "VoidArray.h"
  96. #include "assert.h"
  97. #include "bool.h"
  98. #include "buttons.h"
  99. #include "charsets.h"
  100. #include "cmdtty.h"
  101. #include "comm-manag.h"
  102. #include "converters.h"
  103. #include "cook.h"
  104. #include "ddd.h"
  105. #include "deref.h"
  106. #include "disp-read.h"
  107. #include "history.h"
  108. #include "logo.h"
  109. #include "mydialogs.h"
  110. #include "post.h"
  111. #include "regexps.h"
  112. #include "settings.h"
  113. #include "status.h"
  114. #include "string-fun.h"
  115. #include "toolbar.h"
  116. #include "value-read.h"
  117. #include "verify.h"
  118. #include "version.h"
  119. #include "windows.h"
  120. #include "wm.h"
  121.  
  122. // Motif includes
  123. #include <Xm/List.h>
  124. #include <Xm/MessageB.h>
  125. #include <Xm/ToggleB.h>
  126. #include <Xm/RowColumn.h>    // XmMenuPosition()
  127. #include <Xm/SelectioB.h>    // XmCreatePromptDialog()
  128. #include <Xm/TextF.h>        // XmTextFieldGetString()
  129. #include <Xm/Label.h>
  130. #include <X11/StringDefs.h>
  131.  
  132. // System includes
  133. #include <iostream.h>
  134. #include <fstream.h>        // ofstream
  135. #include <iomanip.h>
  136. #include <ctype.h>
  137.  
  138.  
  139. //-----------------------------------------------------------------------
  140. // Xt Stuff
  141. //-----------------------------------------------------------------------
  142. XtActionsRec DataDisp::actions [] = {
  143.     {"graph-select",         DataDisp::graph_selectAct},
  144.     {"graph-select-or-move", DataDisp::graph_select_or_moveAct},
  145.     {"graph-extend",         DataDisp::graph_extendAct},
  146.     {"graph-extend-or-move", DataDisp::graph_extend_or_moveAct},
  147.     {"graph-toggle",         DataDisp::graph_toggleAct},
  148.     {"graph-toggle-or-move", DataDisp::graph_toggle_or_moveAct},
  149.     {"graph-popup-menu",     DataDisp::graph_popupAct},
  150.     {"graph-dereference",    DataDisp::graph_dereferenceAct},
  151.     {"graph-detail",         DataDisp::graph_detailAct},
  152.     {"graph-rotate",         DataDisp::graph_rotateAct},
  153.     {"graph-dependent",      DataDisp::graph_dependentAct}
  154. };
  155.  
  156.  
  157.  
  158. // Popup Menu
  159. struct GraphItms { enum Itms {SelectAll, Refresh, NewArg, New}; };
  160. MMDesc DataDisp::graph_popup[] =
  161. {
  162.     {"selectAll", MMPush,               
  163.      {DataDisp::selectAllCB, 0}, 0, 0, 0, 0},
  164.     {"refresh",   MMPush,               
  165.      {DataDisp::refreshCB, 0}, 0, 0, 0, 0},
  166.     {"new_arg",   MMPush | MMUnmanaged, 
  167.      {DataDisp::popup_new_argCB, 0}, 0, 0, 0, 0},
  168.     {"new",       MMPush,               
  169.      {DataDisp::popup_newCB, 0}, 0, 0, 0, 0},
  170.     MMEnd
  171. };
  172.  
  173. // Number of shortcut items
  174. const int DataDisp::shortcut_items = 20;
  175.  
  176. #define SHORTCUT_MENU \
  177.     {"s1",  MMPush | MMUnmanaged, \
  178.         { DataDisp::shortcutCB, XtPointer(1)  }, 0, 0, 0, 0 }, \
  179.     {"s2",  MMPush | MMUnmanaged, \
  180.         { DataDisp::shortcutCB, XtPointer(2)  }, 0, 0, 0, 0 }, \
  181.     {"s3",  MMPush | MMUnmanaged, \
  182.         { DataDisp::shortcutCB, XtPointer(3)  }, 0, 0, 0, 0 }, \
  183.     {"s4",  MMPush | MMUnmanaged, \
  184.         { DataDisp::shortcutCB, XtPointer(4)  }, 0, 0, 0, 0 }, \
  185.     {"s5",  MMPush | MMUnmanaged, \
  186.         { DataDisp::shortcutCB, XtPointer(5)  }, 0, 0, 0, 0 }, \
  187.     {"s6",  MMPush | MMUnmanaged, \
  188.         { DataDisp::shortcutCB, XtPointer(6)  }, 0, 0, 0, 0 }, \
  189.     {"s7",  MMPush | MMUnmanaged, \
  190.         { DataDisp::shortcutCB, XtPointer(7)  }, 0, 0, 0, 0 }, \
  191.     {"s8",  MMPush | MMUnmanaged, \
  192.         { DataDisp::shortcutCB, XtPointer(8)  }, 0, 0, 0, 0 }, \
  193.     {"s9",  MMPush | MMUnmanaged, \
  194.         { DataDisp::shortcutCB, XtPointer(9)  }, 0, 0, 0, 0 }, \
  195.     {"s10", MMPush | MMUnmanaged, \
  196.         { DataDisp::shortcutCB, XtPointer(10) }, 0, 0, 0, 0 }, \
  197.     {"s11", MMPush | MMUnmanaged, \
  198.         { DataDisp::shortcutCB, XtPointer(11) }, 0, 0, 0, 0 }, \
  199.     {"s12", MMPush | MMUnmanaged, \
  200.         { DataDisp::shortcutCB, XtPointer(12) }, 0, 0, 0, 0 }, \
  201.     {"s13", MMPush | MMUnmanaged, \
  202.         { DataDisp::shortcutCB, XtPointer(13) }, 0, 0, 0, 0 }, \
  203.     {"s14", MMPush | MMUnmanaged, \
  204.         { DataDisp::shortcutCB, XtPointer(14) }, 0, 0, 0, 0 }, \
  205.     {"s15", MMPush | MMUnmanaged, \
  206.         { DataDisp::shortcutCB, XtPointer(15) }, 0, 0, 0, 0 }, \
  207.     {"s16", MMPush | MMUnmanaged, \
  208.         { DataDisp::shortcutCB, XtPointer(16) }, 0, 0, 0, 0 }, \
  209.     {"s17", MMPush | MMUnmanaged, \
  210.         { DataDisp::shortcutCB, XtPointer(17) }, 0, 0, 0, 0 }, \
  211.     {"s18", MMPush | MMUnmanaged, \
  212.         { DataDisp::shortcutCB, XtPointer(18) }, 0, 0, 0, 0 }, \
  213.     {"s19", MMPush | MMUnmanaged, \
  214.         { DataDisp::shortcutCB, XtPointer(19) }, 0, 0, 0, 0 }, \
  215.     {"s20", MMPush | MMUnmanaged, \
  216.         { DataDisp::shortcutCB, XtPointer(20) }, 0, 0, 0, 0 }, \
  217.     {"other", MMPush, { DataDisp::dependentCB, 0 }, 0, 0, 0, 0}, \
  218.     MMSep, \
  219.     {"edit",  MMPush, { dddEditShortcutsCB, 0 }, 0, 0, 0, 0}
  220.  
  221. // The menu used in the `New Display' button.
  222.  
  223.  
  224. struct ShortcutItms { enum Itms {S1, S2, S3, S4, S5,
  225.                  S6, S7, S8, S9, S10,
  226.                  S11, S12, S13, S14, S15,
  227.                  S16, S17, S18, S19, S20,
  228.                  Other, Sep1, Edit,
  229.                  Sep2, New2, Dereference2 }; };
  230.  
  231. MMDesc DataDisp::shortcut_menu[]   = 
  232. {
  233.     SHORTCUT_MENU,
  234.     MMSep,
  235.     {"new2", MMPush, {DataDisp::displayArgCB, XtPointer(false)}, 0, 0, 0, 0 },
  236.     {"dereference2", MMPush, {DataDisp::dereferenceArgCB, 0}, 0, 0, 0, 0 },
  237.     MMEnd
  238. };
  239.  
  240. // A stand-alone popup menu.
  241. MMDesc DataDisp::shortcut_popup1[] = { SHORTCUT_MENU, MMEnd };
  242.  
  243. // The sub-menu in the `New Display' item.
  244. MMDesc DataDisp::shortcut_popup2[] = { SHORTCUT_MENU, MMEnd };
  245.  
  246. struct RotateItms { enum Itms {RotateAll}; };
  247.  
  248. MMDesc DataDisp::rotate_menu[] =
  249. {
  250.     {"rotateAll",     MMPush | MMInsensitive, 
  251.      {DataDisp::rotateCB, XtPointer(true)}, 0, 0, 0, 0},
  252.     MMEnd
  253. };
  254.  
  255. struct NodeItms { enum Itms {Dereference, New, Sep1, Detail, Rotate, Set,
  256.                  Sep2, Delete }; };
  257.  
  258. MMDesc DataDisp::node_popup[] =
  259. {
  260.     {"dereference",   MMPush,   {DataDisp::dereferenceCB, 0}, 0, 0, 0, 0},
  261.     {"new",           MMMenu,   MMNoCB, DataDisp::shortcut_popup2, 0, 0, 0},
  262.     MMSep,
  263.     {"detail",        MMPush,   
  264.      {DataDisp::toggleDetailCB, XtPointer(-1)}, 0, 0, 0, 0},
  265.     {"rotate",        MMPush,   
  266.      {DataDisp::rotateCB, XtPointer(false) }, 0, 0, 0, 0},
  267.     {"set",           MMPush,   {DataDisp::setCB, 0}, 0, 0, 0, 0},
  268.     MMSep,
  269.     {"delete",        MMPush,   
  270.      {DataDisp::deleteCB, XtPointer(true)}, 0, 0, 0, 0},
  271.     MMEnd
  272. };
  273.  
  274.  
  275. struct DeleteItms { enum Itms {Cluster}; };
  276.  
  277. MMDesc DataDisp::delete_menu[] =
  278. {
  279.     {"cluster",     MMPush, {DataDisp::toggleClusterSelectedCB, 0}, 
  280.      0, 0, 0, 0},
  281.     MMEnd
  282. };
  283.  
  284. struct PlotItms { enum Itms { History }; };
  285.  
  286. MMDesc DataDisp::plot_menu[] =
  287. {
  288.     {"history",     MMPush, {DataDisp::plotHistoryCB, 0}, 
  289.      0, 0, 0, 0},
  290.     MMEnd
  291. };
  292.  
  293.  
  294. struct CmdItms { enum Itms {New, Dereference, Plot, 
  295.                 Detail, Rotate, Set, Delete }; };
  296.  
  297. MMDesc DataDisp::graph_cmd_area[] =
  298. {
  299.     {"new",           MMPush,                 
  300.      {DataDisp::displayArgCB, XtPointer(true)}, 
  301.      DataDisp::shortcut_menu, 0, 0, 0 },
  302.     {"dereference",   MMPush | MMInsensitive | MMUnmanaged, 
  303.      {DataDisp::dereferenceArgCB, 0}, 0, 0, 0, 0},
  304.     {"plot",          MMPush | MMInsensitive,
  305.      {DataDisp::plotArgCB, 0}, 
  306.      DataDisp::plot_menu, 0, 0, 0},
  307.     {"detail",        MMPush | MMInsensitive, 
  308.      {DataDisp::toggleDetailCB, XtPointer(-1)}, 
  309.      DataDisp::detail_menu, 0, 0, 0 },
  310.     {"rotate",        MMPush | MMInsensitive, 
  311.      {DataDisp::rotateCB, XtPointer(false)}, DataDisp::rotate_menu, 0, 0, 0 },
  312.     {"set",           MMPush | MMInsensitive, 
  313.      {DataDisp::setCB, 0}, 0, 0, 0, 0 },
  314.     {"delete",        MMPush | MMInsensitive, 
  315.      {DataDisp::deleteArgCB, XtPointer(true)},
  316.      DataDisp::delete_menu, 0, 0, 0 },
  317.     MMEnd
  318. };
  319.  
  320.  
  321. struct DetailItms { enum Itms { ShowMore, ShowJust, 
  322.                 ShowDetail, HideDetail }; };
  323.  
  324. MMDesc DataDisp::detail_menu[] =
  325. {
  326.     {"show_more",    MMPush, 
  327.      {DataDisp::showMoreDetailCB, XtPointer(1) }, 0, 0, 0, 0},
  328.     {"show_just",    MMPush, 
  329.      {DataDisp::showDetailCB, XtPointer(1) }, 0, 0, 0, 0},
  330.     {"show_detail",  MMPush, 
  331.      {DataDisp::showDetailCB, XtPointer(-1) }, 0, 0, 0, 0},
  332.     {"hide_detail",  MMPush, 
  333.      {DataDisp::hideDetailCB, XtPointer(-1) }, 0, 0, 0, 0},
  334.     MMEnd
  335. };
  336.  
  337. struct DisplayItms { enum Itms {New, Dereference, 
  338.                 ShowDetail, HideDetail, Set, Delete}; };
  339.  
  340. MMDesc DataDisp::display_area[] =
  341. {
  342.     {"new",          MMPush,   {DataDisp::dependentCB, 0 }, 0, 0, 0, 0},
  343.     {"dereference",  MMPush,   {DataDisp::dereferenceCB, 0 }, 0, 0, 0, 0},
  344.     {"show_detail",  MMPush,   
  345.      {DataDisp::showDetailCB, XtPointer(-1) }, 0, 0, 0, 0},
  346.     {"hide_detail",  MMPush,   
  347.      {DataDisp::hideDetailCB, XtPointer(-1) }, 0, 0, 0, 0},
  348.     {"set",          MMPush,   {DataDisp::setCB, 0}, 0, 0, 0, 0},
  349.     {"delete",       MMPush | MMHelp, 
  350.      {DataDisp::deleteCB, XtPointer(true) }, 0, 0, 0, 0},
  351.     MMEnd
  352. };
  353.  
  354. DispGraph *DataDisp::disp_graph             = 0;
  355. Widget     DataDisp::graph_edit             = 0;
  356. Widget     DataDisp::graph_form_w           = 0;
  357. Widget     DataDisp::last_origin            = 0;
  358. ArgField  *DataDisp::graph_arg              = 0;
  359. Widget     DataDisp::graph_cmd_w            = 0;
  360. Widget     DataDisp::graph_selection_w      = 0;
  361. Widget     DataDisp::edit_displays_dialog_w = 0;
  362. Widget     DataDisp::display_list_w         = 0;
  363. Widget     DataDisp::graph_popup_w          = 0;
  364. Widget     DataDisp::node_popup_w           = 0;
  365. Widget     DataDisp::shortcut_popup_w       = 0;
  366.  
  367. bool DataDisp::detect_aliases   = false;
  368. bool DataDisp::cluster_displays = false;
  369. bool DataDisp::arg_needs_update = false;
  370.  
  371. int DataDisp::next_ddd_display_number = 1;
  372. int DataDisp::next_gdb_display_number = 1;
  373.  
  374. XtIntervalId DataDisp::refresh_args_timer       = 0;
  375. XtIntervalId DataDisp::refresh_addr_timer       = 0;
  376. XtIntervalId DataDisp::refresh_graph_edit_timer = 0;
  377.  
  378. // Array of shortcut expressions and their labels
  379. StringArray DataDisp::shortcut_exprs;
  380. StringArray DataDisp::shortcut_labels;
  381.  
  382. //----------------------------------------------------------------------------
  383. // Helpers
  384. //----------------------------------------------------------------------------
  385.  
  386. // Return A <= B
  387. inline bool default_le(int a, int b) { return a <= b; }
  388.  
  389. // If A and B are both negative, reverse order.  This way, we'll get
  390. // -1, -2, -3, -4, ..., 0, 1, 2, 3, 4 when sorting.
  391. inline bool absolute_le(int a, int b)
  392. {
  393.     if (a < 0 && b < 0)
  394.     return b <= a;
  395.     else
  396.     return a <= b;
  397. }
  398.  
  399.  
  400. // Sort A
  401. static void sort(IntArray& a, bool (*le)(int, int) = default_le)
  402. {
  403.     // Shell sort -- simple and fast
  404.     int h = 1;
  405.     do {
  406.     h = h * 3 + 1;
  407.     } while (h <= a.size());
  408.     do {
  409.     h /= 3;
  410.     for (int i = h; i < a.size(); i++)
  411.     {
  412.         int v = a[i];
  413.         int j;
  414.         for (j = i; j >= h && !le(a[j - h], v); j -= h)
  415.         a[j] = a[j - h];
  416.         if (i != j)
  417.         a[j] = v;
  418.     }
  419.     } while (h != 1);
  420. }
  421.  
  422.  
  423. //----------------------------------------------------------------------------
  424. // Origin
  425. //-----------------------------------------------------------------------------
  426.  
  427. void DataDisp::ClearOriginCB(Widget w, XtPointer, XtPointer)
  428. {
  429.     if (last_origin == w)
  430.     {
  431.     last_origin = 0;
  432.     }
  433. }
  434.  
  435. void DataDisp::set_last_origin(Widget w)
  436. {
  437.     if (last_origin != 0)
  438.     {
  439.     XtRemoveCallback(last_origin, XtNdestroyCallback, ClearOriginCB, 0);
  440.     }
  441.  
  442.     last_origin = find_shell(w);
  443.  
  444.     if (last_origin != 0)
  445.     {
  446.     XtAddCallback(last_origin, XtNdestroyCallback, ClearOriginCB, 0);
  447.     }
  448. }
  449.  
  450.  
  451.  
  452. //----------------------------------------------------------------------------
  453. // DispNode functions
  454. //-----------------------------------------------------------------------------
  455.  
  456. bool DataDisp::selected(DispNode *dn)
  457. {
  458.     // Don't treat a cluster as selected if only a member is selected
  459.     if (is_cluster(dn) && dn->selected() && dn->selected_value() != 0)
  460.     return false;
  461.     else
  462.     return dn->selected();
  463. }
  464.  
  465. bool DataDisp::needs_refresh(DispNode *cluster)
  466. {
  467.     if (!is_cluster(cluster))
  468.     return true;
  469.  
  470.     if (cluster->last_refresh() == 0)
  471.     return true;
  472.  
  473.     MapRef ref;
  474.     for (DispNode* dn = disp_graph->first(ref); 
  475.      dn != 0;
  476.      dn = disp_graph->next(ref))
  477.     {
  478.     if (dn->clustered() == cluster->disp_nr() &&
  479.         dn->last_refresh() > cluster->last_refresh())
  480.         return true;
  481.     }
  482.  
  483.     return false;
  484. }
  485.  
  486.  
  487. //----------------------------------------------------------------------------
  488. // Counters
  489. //-----------------------------------------------------------------------------
  490.  
  491. // Count the number of data displays
  492. int DataDisp::count_data_displays()
  493. {
  494.     int count = 0;
  495.  
  496.     MapRef ref;
  497.     for (DispNode* dn = disp_graph->first(ref); 
  498.      dn != 0;
  499.      dn = disp_graph->next(ref))
  500.     {
  501.     if (!dn->is_user_command() && !dn->deferred())
  502.         count++;
  503.     }
  504.  
  505.     return count;
  506. }
  507.  
  508. // Get all display numbers
  509. void DataDisp::get_all_display_numbers(IntArray& numbers)
  510. {
  511.     MapRef ref;
  512.     for (DispNode* dn = disp_graph->first(ref); 
  513.      dn != 0;
  514.      dn = disp_graph->next(ref))
  515.     {
  516.     if (!dn->deferred())
  517.         numbers += dn->disp_nr();
  518.     }
  519. }
  520.  
  521. // Get all clusters
  522. void DataDisp::get_all_clusters(IntArray& numbers)
  523. {
  524.     MapRef ref;
  525.     for (DispNode* dn = disp_graph->first(ref); 
  526.      dn != 0;
  527.      dn = disp_graph->next(ref))
  528.     {
  529.     if (is_cluster(dn))
  530.         numbers += dn->disp_nr();
  531.     }
  532. }
  533.  
  534.  
  535.  
  536. //-----------------------------------------------------------------------------
  537. // Button Callbacks
  538. //-----------------------------------------------------------------------------
  539.  
  540. void DataDisp::dereferenceCB(Widget w, XtPointer client_data, 
  541.                  XtPointer call_data)
  542. {
  543.     set_last_origin(w);
  544.  
  545.     DispNode *disp_node_arg   = selected_node();
  546.     DispValue *disp_value_arg = selected_value();
  547.     if (disp_node_arg == 0 || disp_value_arg == 0)
  548.     {
  549.     newCB(w, client_data, call_data);
  550.     return;
  551.     }
  552.  
  553.     string display_expression = disp_value_arg->dereferenced_name();
  554.     disp_value_arg->dereference();
  555.     disp_node_arg->refresh();
  556.  
  557.     string depends_on;
  558.     if (gdb->recording())
  559.     depends_on = disp_node_arg->name();
  560.     else
  561.     depends_on = itostring(disp_node_arg->disp_nr());
  562.  
  563.     new_display(display_expression, 0, depends_on, false, false, w);
  564. }
  565.  
  566. // Replace node by its dereferenced variant
  567. void DataDisp::dereferenceInPlaceCB(Widget w, XtPointer, XtPointer)
  568. {
  569.     DispNode *disp_node_arg   = selected_node();
  570.     DispValue *disp_value_arg = selected_value();
  571.     if (disp_node_arg == 0 || disp_value_arg == 0)
  572.     return;
  573.  
  574.     string display_expression = disp_value_arg->dereferenced_name();
  575.  
  576.     static BoxPoint p;
  577.     p = disp_node_arg->pos();
  578.     new_display(display_expression, &p, "", false, false, w);
  579.  
  580.     IntArray nrs;
  581.     nrs += disp_node_arg->disp_nr();
  582.     delete_display(nrs, w);
  583. }
  584.  
  585. void DataDisp::dereferenceArgCB(Widget w, XtPointer client_data, 
  586.                 XtPointer call_data)
  587. {
  588.     if (selected_value() != 0)
  589.     {
  590.     dereferenceCB(w, client_data, call_data);
  591.     return;
  592.     }
  593.  
  594.     new_display(deref(source_arg->get_string()), 0, "", false, false, w);
  595. }
  596.  
  597. void DataDisp::toggleDetailCB(Widget dialog,
  598.                   XtPointer client_data,
  599.                   XtPointer call_data)
  600. {
  601.     if (gdb->recording())
  602.     {
  603.     showDetailCB(dialog, client_data, call_data);
  604.     return;
  605.     }
  606.  
  607.     int depth = (int)(long)client_data;
  608.  
  609.     set_last_origin(dialog);
  610.  
  611.     IntArray disable_nrs;
  612.     IntArray enable_nrs;
  613.  
  614.     bool changed = false;
  615.     MapRef ref;
  616.     for (DispNode* dn = disp_graph->first(ref); 
  617.      dn != 0;
  618.      dn = disp_graph->next(ref))
  619.     {
  620.     if (is_cluster(dn))
  621.         continue;
  622.  
  623.     if (selected(dn))
  624.     {
  625.         DispValue *dv = dn->selected_value();
  626.         if (dv == 0)
  627.         dv = dn->value();
  628.  
  629.         if (dv == 0 || dn->disabled() || dv->collapsedAll() > 0)
  630.         {
  631.         if (dv != 0)
  632.         {
  633.             // Expand this value
  634.             dv->collapseAll();
  635.             dv->expandAll(depth);
  636.         }
  637.  
  638.         if (dn->disabled())
  639.         {
  640.             // Enable display
  641.             enable_nrs += dn->disp_nr();
  642.         }
  643.         else
  644.         {
  645.             dn->refresh();
  646.             changed = true;
  647.         }
  648.         }
  649.         else
  650.         {
  651.         // Collapse this value
  652.         dv->collapse();
  653.  
  654.         if (dv == dn->value() && dn->enabled())
  655.         {
  656.             // Disable display
  657.             disable_nrs += dn->disp_nr();
  658.         }
  659.         else
  660.         {
  661.             dn->refresh();
  662.             changed = true;
  663.         }
  664.         }
  665.     }
  666.     }
  667.  
  668.     if (enable_nrs.size() > 0)
  669.     enable_display(enable_nrs, dialog);
  670.     else if (disable_nrs.size() > 0)
  671.     disable_display(disable_nrs, dialog);
  672.  
  673.     if (changed)
  674.     refresh_graph_edit();
  675. }
  676.  
  677. void DataDisp::showDetailCB (Widget dialog, XtPointer client_data, XtPointer)
  678. {
  679.     int depth = (int)(long)client_data;
  680.     show(dialog, depth, 0);
  681. }
  682.  
  683. void DataDisp::showMoreDetailCB(Widget dialog, XtPointer client_data, 
  684.                 XtPointer)
  685. {
  686.     int more = (int)(long)client_data;
  687.     show(dialog, 0, more);
  688. }
  689.  
  690. void DataDisp::show(Widget dialog, int depth, int more)
  691. {
  692.     set_last_origin(dialog);
  693.  
  694.     if (gdb->recording())
  695.     {
  696.     gdb_command("graph enable display " + source_arg->get_string());
  697.     return;
  698.     }
  699.  
  700.     IntArray disp_nrs;
  701.  
  702.     bool changed = false;
  703.     MapRef ref;
  704.     for (DispNode* dn = disp_graph->first(ref); 
  705.      dn != 0;
  706.      dn = disp_graph->next(ref))
  707.     {
  708.     if (selected(dn))
  709.     {
  710.         if (dn->disabled())
  711.         {
  712.         // Enable display
  713.         disp_nrs += dn->disp_nr();
  714.         }
  715.         
  716.         DispValue *dv = dn->selected_value();
  717.         if (dv == 0)
  718.         dv = dn->value();
  719.         if (dv == 0)
  720.         continue;
  721.  
  722.         if (more != 0)
  723.         depth = dv->heightExpanded() + more;
  724.  
  725.         if (depth > 0 || dv->collapsedAll() > 0)
  726.         {
  727.         dv->collapseAll();
  728.         dv->expandAll(depth);
  729.         dn->refresh();
  730.  
  731.         // Mark as enabled right now; this way, the
  732.         // `enable display' command won't re-expand it.
  733.         dn->enable();
  734.         changed = true;
  735.         }
  736.     }
  737.     }
  738.  
  739.     enable_display(disp_nrs, dialog);
  740.  
  741.     if (changed)
  742.     refresh_graph_edit();
  743. }
  744.  
  745.  
  746.  
  747. void DataDisp::hideDetailCB (Widget dialog, XtPointer, XtPointer)
  748. {
  749.     set_last_origin(dialog);
  750.  
  751.     if (gdb->recording())
  752.     {
  753.     gdb_command("graph disable display " + source_arg->get_string());
  754.     return;
  755.     }
  756.  
  757.     IntArray disp_nrs;
  758.  
  759.     bool changed = false;
  760.     MapRef ref;
  761.     for (DispNode* dn = disp_graph->first(ref); 
  762.      dn != 0;
  763.      dn = disp_graph->next(ref))
  764.     {
  765.     if (selected(dn))
  766.     {
  767.         DispValue *dv = dn->selected_value();
  768.         if (dv == 0)
  769.         dv = dn->value();
  770.  
  771.         if ((dv == 0 || dv == dn->value()) && dn->enabled())
  772.         {
  773.         // Disable display
  774.         disp_nrs += dn->disp_nr();
  775.         }
  776.  
  777.         if (dv != 0 && dv->expanded())
  778.         {
  779.         dv->collapse();
  780.         dn->refresh();
  781.         changed = true;
  782.         }
  783.     }
  784.     }
  785.  
  786.     disable_display(disp_nrs, dialog);
  787.  
  788.     if (changed)
  789.     refresh_graph_edit();
  790. }
  791.  
  792.  
  793. void DataDisp::toggle_rotate(DispValue *dv, bool all)
  794. {
  795.     if (dv == 0)
  796.     return;
  797.  
  798.     if (dv->horizontal_aligned())
  799.     dv->align_vertical();
  800.     else
  801.     dv->align_horizontal();
  802.  
  803.     if (all)
  804.     for (int i = 0; i < dv->nchildren(); i++)
  805.         toggle_rotate(dv->child(i), all);
  806. }
  807.  
  808. void DataDisp::rotateCB(Widget w, XtPointer client_data, XtPointer)
  809. {
  810.     bool rotate_all = bool(client_data);
  811.  
  812.     set_last_origin(w);
  813.  
  814.     DispNode *disp_node_arg   = selected_node();
  815.     DispValue *disp_value_arg = selected_value();
  816.     if (disp_node_arg == 0 || disp_value_arg == 0)
  817.     return;
  818.  
  819.     toggle_rotate(disp_value_arg, rotate_all);
  820.  
  821.     if (disp_value_arg->type() == Simple)
  822.     {
  823.     // We have rotated a scalar value in a plot.  Replot.
  824.     if (disp_node_arg->clustered())
  825.     {
  826.         DispNode *cluster = disp_graph->get(disp_node_arg->clustered());
  827.         if (cluster != 0 && cluster->value() != 0)
  828.         cluster->value()->replot();
  829.     }
  830.     else if (disp_node_arg->value() != 0)
  831.     {
  832.         disp_node_arg->value()->replot();
  833.     }
  834.     }
  835.  
  836.     disp_node_arg->refresh();
  837.  
  838.     refresh_graph_edit();
  839. }
  840.  
  841. void DataDisp::toggleDisableCB (Widget dialog, XtPointer, XtPointer)
  842. {
  843.     set_last_origin(dialog);
  844.     IntArray disp_nrs;
  845.  
  846.     bool do_enable  = true;
  847.     bool do_disable = true;
  848.  
  849.     MapRef ref;
  850.     for (DispNode* dn = disp_graph->first(ref); 
  851.      dn != 0;
  852.      dn = disp_graph->next(ref))
  853.     {
  854.     if (selected(dn))
  855.     {
  856.         disp_nrs += dn->disp_nr();
  857.         if (dn->enabled())
  858.         do_enable = false;
  859.         if (dn->disabled())
  860.         do_disable = false;
  861.     }
  862.     }
  863.  
  864.     if (do_enable)
  865.     enable_display(disp_nrs, dialog);
  866.     else if (do_disable)
  867.     disable_display(disp_nrs, dialog);
  868. }
  869.  
  870. void DataDisp::select_with_all_descendants(GraphNode *node)
  871. {
  872.     bool selected = node->selected();
  873.  
  874.     DispNode *dn = ptr_cast(DispNode, node);
  875.     if (dn != 0)
  876.     dn->select(0);
  877.  
  878.     if (!selected)
  879.     {
  880.     node->selected() = true;
  881.     
  882.     for (GraphEdge *edge = node->firstFrom();
  883.          edge != 0; edge = node->nextFrom(edge))
  884.         select_with_all_descendants(edge->to());
  885.     }
  886. }
  887.  
  888. void DataDisp::select_with_all_ancestors(GraphNode *node)
  889. {
  890.     bool selected = node->selected();
  891.  
  892.     DispNode *dn = ptr_cast(DispNode, node);
  893.     if (dn != 0)
  894.     dn->select(0);
  895.  
  896.     if (!selected)
  897.     {
  898.     node->selected() = true;
  899.     
  900.     for (GraphEdge *edge = node->firstTo();
  901.          edge != 0; edge = node->nextTo(edge))
  902.         select_with_all_ancestors(edge->from());
  903.     }
  904. }
  905.  
  906. // Upon deletion, select the ancestor and all siblings
  907. void DataDisp::deleteCB (Widget dialog, XtPointer client_data, XtPointer)
  908. {
  909.     set_last_origin(dialog);
  910.  
  911.     IntArray disp_nrs;
  912.     VarArray<GraphNode *> ancestors;
  913.     VarArray<GraphNode *> descendants;
  914.  
  915.     bool delete_from_display_part = bool((int)(long)client_data);
  916.  
  917.     MapRef ref;
  918.     for (DispNode* dn = disp_graph->first(ref); 
  919.      dn != 0;
  920.      dn = disp_graph->next(ref))
  921.     {
  922.     DispValue *dv = dn->selected_value();
  923.     if (selected(dn) && (delete_from_display_part || dv == 0))
  924.     {
  925.         disp_nrs += dn->disp_nr();
  926.  
  927.         // Select all ancestors
  928.         GraphEdge *edge;
  929.         for (edge = dn->firstTo(); edge != 0; edge = dn->nextTo(edge))
  930.         {
  931.         GraphNode *ancestor = edge->from();
  932.         while (ancestor->isHint())
  933.             ancestor = ancestor->firstTo()->from();
  934.  
  935.         ancestors += ancestor;
  936.         }
  937.  
  938.         // Select all descendants
  939.         for (edge = dn->firstFrom(); edge != 0; edge = dn->nextFrom(edge))
  940.         {
  941.         GraphNode *descendant = edge->to();
  942.         while (descendant->isHint())
  943.             descendant = descendant->firstFrom()->to();
  944.  
  945.         descendants += descendant;
  946.         }
  947.     }
  948.     }
  949.  
  950.     int i;
  951.     for (i = 0; i < ancestors.size(); i++)
  952.     select_with_all_descendants(ancestors[i]);
  953.     for (i = 0; i < descendants.size(); i++)
  954.     select_with_all_ancestors(descendants[i]);
  955.  
  956.     delete_display(disp_nrs, dialog);
  957. }
  958.  
  959.  
  960. void DataDisp::refreshCB(Widget w, XtPointer, XtPointer)
  961. {
  962.     // Unmerge all displays
  963.     MapRef ref;
  964.     for (int k = disp_graph->first_nr(ref); 
  965.      k != 0;
  966.      k = disp_graph->next_nr(ref))
  967.     {
  968.     unmerge_display(k);
  969.     }
  970.  
  971.     // Refresh them
  972.     refresh_display(w);
  973. }
  974.  
  975. void DataDisp::selectAllCB(Widget w, XtPointer, XtPointer)
  976. {
  977.     // StatusDelay d("Selecting all displays");
  978.  
  979.     set_last_origin(w);
  980.     XtCallActionProc(graph_edit, 
  981.              "select-all", (XEvent *)0, (String *)0, 0);
  982.     refresh_graph_edit();
  983. }
  984.  
  985. void DataDisp::unselectAllCB(Widget w, XtPointer, XtPointer)
  986. {
  987.     // StatusDelay d("Unselecting all displays");
  988.  
  989.     set_last_origin(w);
  990.     XtCallActionProc(graph_edit, 
  991.              "unselect-all", (XEvent *)0, (String *)0, 0);
  992.     refresh_graph_edit();
  993. }
  994.  
  995. void DataDisp::enableCB(Widget w, XtPointer, XtPointer)
  996. {
  997.     set_last_origin(w);
  998.  
  999.     IntArray disp_nrs;
  1000.  
  1001.     MapRef ref;
  1002.     for (DispNode* dn = disp_graph->first(ref); 
  1003.      dn != 0;
  1004.      dn = disp_graph->next(ref))
  1005.     {
  1006.     if (selected(dn) && dn->disabled())
  1007.     {
  1008.         disp_nrs += dn->disp_nr();
  1009.     }
  1010.     }
  1011.  
  1012.     enable_display(disp_nrs, w);
  1013. }
  1014.  
  1015. void DataDisp::disableCB(Widget w, XtPointer, XtPointer)
  1016. {
  1017.     set_last_origin(w);
  1018.  
  1019.     IntArray disp_nrs;
  1020.  
  1021.     MapRef ref;
  1022.     for (DispNode* dn = disp_graph->first(ref); 
  1023.      dn != 0;
  1024.      dn = disp_graph->next(ref))
  1025.     {
  1026.     if (selected(dn) && dn->enabled())
  1027.     {
  1028.         disp_nrs += dn->disp_nr();
  1029.     }
  1030.     }
  1031.  
  1032.     disable_display(disp_nrs, w);
  1033. }
  1034.  
  1035.  
  1036. void DataDisp::shortcutCB(Widget w, XtPointer client_data, XtPointer)
  1037. {
  1038.     int number = ((int)(long)client_data) - 1;
  1039.  
  1040.     assert (number >= 0);
  1041.     assert (number < shortcut_exprs.size());
  1042.  
  1043.     set_last_origin(w);
  1044.  
  1045.     string expr = shortcut_exprs[number];
  1046.  
  1047.     string depends_on = "";
  1048.     DispNode *disp_node_arg   = selected_node();
  1049.     DispValue *disp_value_arg = selected_value();
  1050.     if (disp_node_arg != 0 
  1051.     && disp_value_arg != 0
  1052.     && !disp_node_arg->hidden())
  1053.     {
  1054.     if (gdb->recording())
  1055.         depends_on = disp_node_arg->name();
  1056.     else
  1057.         depends_on = itostring(disp_node_arg->disp_nr());
  1058.     }
  1059.     
  1060.     string arg = source_arg->get_string();
  1061.  
  1062.     // Avoid multiple /format specifications
  1063.     if (arg.contains('/', 0) && expr.contains('/', 0))
  1064.     arg = arg.after(rxwhite);
  1065.  
  1066.     expr.gsub("()", arg);
  1067.  
  1068.     new_display(expr, 0, depends_on, false, false, w);
  1069. }
  1070.  
  1071. // Set shortcut menu to expressions EXPRS
  1072. void DataDisp::set_shortcut_menu(const StringArray& exprs,
  1073.                  const StringArray& labels)
  1074. {
  1075.     shortcut_labels = labels;
  1076.     shortcut_exprs  = exprs;
  1077.  
  1078.     while (shortcut_labels.size() < exprs.size())
  1079.     shortcut_labels += "";
  1080.  
  1081. #if 0
  1082.     if (exprs.size() > shortcut_items)
  1083.     {
  1084.     post_warning("Shortcut menu capacity exceeded.",
  1085.              "too_many_shortcuts_warning", last_origin);
  1086.     }
  1087. #endif
  1088.  
  1089.     for (int i = 0; i < shortcut_items; i++)
  1090.     {
  1091.     Widget popup1_item = shortcut_popup1[i].widget;
  1092.     Widget popup2_item = shortcut_popup2[i].widget;
  1093.     Widget menu_item   = shortcut_menu  [i].widget;
  1094.  
  1095.     if (i < exprs.size())
  1096.     {
  1097.         string& expr  = shortcut_exprs[i];
  1098.         string& label = shortcut_labels[i];
  1099.  
  1100.         if (label == "")
  1101.         label = "Display " + expr;
  1102.  
  1103.         set_label(popup1_item, label);
  1104.         set_label(popup2_item, label);
  1105.         set_label(menu_item,   label);
  1106.  
  1107.         XtManageChild(popup1_item);
  1108.         XtManageChild(popup2_item);
  1109.         XtManageChild(menu_item);
  1110.     }
  1111.     else
  1112.     {
  1113.         // Unmanage widgets
  1114.         XtUnmanageChild(popup1_item);
  1115.         XtUnmanageChild(popup2_item);
  1116.         XtUnmanageChild(menu_item);
  1117.     }
  1118.     }
  1119.  
  1120.     refresh_args();
  1121. }
  1122.  
  1123. // Add one expr to shortcut menus
  1124. void DataDisp::add_shortcut_expr(const string& expr)
  1125. {
  1126.     // Insert as first item in SHORTCUT_EXPRS
  1127.     shortcut_exprs  += string("");
  1128.     shortcut_labels += string("");
  1129.     for (int i = shortcut_exprs.size() - 1; i > 0; i--)
  1130.     {
  1131.     shortcut_exprs[i]  = shortcut_exprs[i - 1];
  1132.     shortcut_labels[i] = shortcut_labels[i - 1];
  1133.     }
  1134.  
  1135.     shortcut_exprs[0]  = expr;
  1136.     shortcut_labels[0] = "";
  1137.  
  1138.     set_shortcut_menu(shortcut_exprs, shortcut_labels);
  1139.     refresh_button_editor();
  1140.     refresh_args();
  1141. }
  1142.  
  1143. MString DataDisp::shortcut_help(Widget w)
  1144. {
  1145.     for (int i = 0; i < shortcut_items; i++)
  1146.     {
  1147.     if (w == shortcut_menu  [i].widget ||
  1148.         w == shortcut_popup1[i].widget ||
  1149.         w == shortcut_popup2[i].widget)
  1150.     {
  1151.         MString ret = rm("Display ");
  1152.         string expr = shortcut_exprs[i];
  1153.  
  1154.         while (expr.contains("()"))
  1155.         {
  1156.         ret += tt(expr.before("()"));
  1157.         ret += bf("()");
  1158.         expr = expr.after("()");
  1159.         }
  1160.         ret += tt(expr);
  1161.         return ret;
  1162.     }
  1163.     }
  1164.  
  1165.     return MString(0, true);    // Not found
  1166. }
  1167.  
  1168.  
  1169. //-----------------------------------------------------------------------------
  1170. // Count displays
  1171. //-----------------------------------------------------------------------------
  1172.  
  1173. struct DataDispCount {
  1174.     int all;            // Total # of displays
  1175.     int visible;        // # of non-hidden displays
  1176.     int selected;        // # of selected displays
  1177.     int selected_expanded;    // # of selected and expanded displays
  1178.     int selected_collapsed;    // # of selected and collapsed displays
  1179.     int selected_clustered;     // # of selected clustered data displays
  1180.     int selected_unclustered;   // # of selected unclustered data displays
  1181.     int selected_titles;    // # of selected titles (no display parts)
  1182.  
  1183.     DataDispCount(DispGraph *disp_graph);
  1184. };
  1185.  
  1186. DataDispCount::DataDispCount(DispGraph *disp_graph)
  1187.     : all(0), visible(0), selected(0),
  1188.       selected_expanded(0),
  1189.       selected_collapsed(0),
  1190.       selected_clustered(0),
  1191.       selected_unclustered(0),
  1192.       selected_titles(0)
  1193. {
  1194.  
  1195.     MapRef ref;
  1196.     for (DispNode* dn = disp_graph->first(ref); 
  1197.      dn != 0;
  1198.      dn = disp_graph->next(ref))
  1199.     {
  1200.     all++;
  1201.  
  1202.     if (!dn->hidden())
  1203.         visible++;
  1204.  
  1205.     if (DataDisp::selected(dn))
  1206.     {
  1207.         selected++;
  1208.  
  1209.         if (dn->deferred())
  1210.         {
  1211.         selected_titles++;
  1212.         }
  1213.         else
  1214.         {
  1215.         DispValue *dv = dn->selected_value();
  1216.         if (dv == 0 || dv == dn->value())
  1217.             selected_titles++;
  1218.  
  1219.         if (!dn->is_user_command() && !dn->clustered())
  1220.             selected_unclustered++;
  1221.         if (!dn->is_user_command() && dn->clustered())
  1222.             selected_clustered++;
  1223.  
  1224.         if (dn->disabled())
  1225.         {
  1226.             selected_collapsed++;
  1227.         }
  1228.         else
  1229.         {
  1230.             if (dv == 0)
  1231.             dv = dn->value();
  1232.  
  1233.             if (dv != 0)
  1234.             {
  1235.             selected_expanded  += int(dv->expanded());
  1236.             selected_collapsed += dv->collapsedAll();
  1237.             }
  1238.         }
  1239.         }
  1240.     }
  1241.     }
  1242. }
  1243.  
  1244.  
  1245. //-----------------------------------------------------------------------------
  1246. // Double click callback
  1247. //-----------------------------------------------------------------------------
  1248.  
  1249. void DataDisp::DoubleClickCB(Widget w, XtPointer, XtPointer call_data)
  1250. {
  1251.     GraphEditPreSelectionInfo *info = (GraphEditPreSelectionInfo *)call_data;
  1252.  
  1253.     if (!info->double_click)
  1254.     return;            // Single click
  1255.  
  1256.     if (info->node == 0)
  1257.     return;            // Double-click on background
  1258.  
  1259.     DispNode *disp_node_arg = ptr_cast(DispNode, info->node);
  1260.     if (disp_node_arg == 0)
  1261.     disp_node_arg = selected_node();
  1262.     if (disp_node_arg == 0)
  1263.     return;
  1264.  
  1265.     XEvent *ev = info->event;
  1266.     bool control = (ev != 0 && 
  1267.             (ev->type == ButtonPress || ev->type == ButtonRelease) &&
  1268.             (ev->xbutton.state & ControlMask) != 0);
  1269.  
  1270.     // Do the right thing
  1271.     if (disp_node_arg->disabled())
  1272.     {
  1273.     showMoreDetailCB(w, XtPointer(1), 0); // Show 1 level more
  1274.     }
  1275.     else
  1276.     {
  1277.     DispValue *disp_value_arg = disp_node_arg->selected_value();
  1278.     if (disp_value_arg == 0)
  1279.         return;            // No selected value within node
  1280.  
  1281.     DataDispCount count(disp_graph);
  1282.     
  1283.     if (disp_value_arg->type() == Pointer && !disp_value_arg->collapsed())
  1284.     {
  1285.         // Dereference
  1286.         if (control)
  1287.         dereferenceInPlaceCB(w, XtPointer(true), 0);
  1288.         else
  1289.         dereferenceCB(w, 0, 0);
  1290.     }
  1291.     else if (count.selected_collapsed > 0)
  1292.     {
  1293.         // Show 1 level more
  1294.         showMoreDetailCB(w, XtPointer(1), 0);
  1295.     }
  1296.     else
  1297.     {
  1298.         // Hide all
  1299.         hideDetailCB(w, XtPointer(-1), 0);
  1300.     }
  1301.     }
  1302.  
  1303.     // Don't do the default action
  1304.     info->doit = False;
  1305. }
  1306.  
  1307.  
  1308. //-----------------------------------------------------------------------------
  1309. // Popup menu callbacks
  1310. //-----------------------------------------------------------------------------
  1311.  
  1312. void DataDisp::popup_new_argCB (Widget    display_dialog,
  1313.                 XtPointer client_data,
  1314.                 XtPointer)
  1315. {
  1316.     set_last_origin(display_dialog);
  1317.  
  1318.     BoxPoint *p = (BoxPoint *) client_data;
  1319.     new_display(source_arg->get_string(), p, "", false, false, display_dialog);
  1320. }
  1321.  
  1322.  
  1323. void DataDisp::popup_newCB (Widget    display_dialog,
  1324.                 XtPointer client_data,
  1325.                 XtPointer)
  1326. {
  1327.     set_last_origin(display_dialog);
  1328.  
  1329.     BoxPoint *p = (BoxPoint *) client_data;
  1330.     new_displayCD(display_dialog, *p);
  1331. }
  1332.  
  1333.  
  1334.  
  1335.  
  1336. //-----------------------------------------------------------------------------
  1337. // Entering new Data Displays
  1338. //-----------------------------------------------------------------------------
  1339.  
  1340. class NewDisplayInfo {
  1341. public:
  1342.     string display_expression;
  1343.     string scope;
  1344.     StringArray display_expressions;
  1345.     BoxPoint point;
  1346.     BoxPoint *point_ptr;
  1347.     string depends_on;
  1348.     Widget origin;
  1349.     Widget shortcut;
  1350.     Widget text;
  1351.     bool verbose;
  1352.     bool prompt;
  1353.     bool constant;
  1354.     DeferMode deferred;
  1355.     bool clustered;
  1356.     bool plotted;
  1357.  
  1358.     NewDisplayInfo()
  1359.     : display_expression(),
  1360.       scope(),
  1361.       display_expressions(),
  1362.       point(),
  1363.       point_ptr(0),
  1364.       depends_on(),
  1365.       origin(0),
  1366.       shortcut(0),
  1367.       text(0),
  1368.       verbose(false),
  1369.       prompt(false),
  1370.       constant(false),
  1371.       deferred(DeferNever),
  1372.       clustered(false),
  1373.       plotted(false)
  1374.     {}
  1375.  
  1376.     ~NewDisplayInfo()
  1377.     {}
  1378.  
  1379. private:
  1380.     NewDisplayInfo(const NewDisplayInfo&)
  1381.     : display_expression(),
  1382.       scope(),
  1383.       display_expressions(),
  1384.       point(),
  1385.       point_ptr(0),
  1386.       depends_on(),
  1387.       origin(0),
  1388.       shortcut(0),
  1389.       text(0),
  1390.       verbose(false),
  1391.       prompt(false),
  1392.       constant(false),
  1393.       deferred(DeferNever),
  1394.       clustered(false),
  1395.       plotted(false)
  1396.     {
  1397.     assert(0);
  1398.     }
  1399.     NewDisplayInfo& operator = (const NewDisplayInfo&)
  1400.     {
  1401.     assert(0); return *this;
  1402.     }
  1403. };
  1404.  
  1405. void DataDisp::new_displayDCB (Widget dialog, XtPointer client_data, XtPointer)
  1406. {
  1407.     set_last_origin(dialog);
  1408.  
  1409.     NewDisplayInfo *info = (NewDisplayInfo *)client_data;
  1410.  
  1411.     char *inp = XmTextFieldGetString(info->text);
  1412.     string expr(inp);
  1413.     XtFree(inp);
  1414.  
  1415.     strip_leading_space(expr);
  1416.     strip_trailing_space(expr);
  1417.  
  1418.     if (expr != "")
  1419.     {
  1420.     new_display(expr, info->point_ptr, info->depends_on, info->clustered,
  1421.             info->plotted, info->origin);
  1422.  
  1423.     if (info->shortcut != 0 && XmToggleButtonGetState(info->shortcut))
  1424.     {
  1425.         // Add expression to shortcut menu
  1426.         expr.gsub("()", "( )");
  1427.         if (expr != info->display_expression)
  1428.         expr.gsub(info->display_expression, string("()"));
  1429.         add_shortcut_expr(expr);
  1430.     }
  1431.     }
  1432. }
  1433.  
  1434. Widget DataDisp::create_display_dialog(Widget parent, String name,
  1435.                        NewDisplayInfo& info)
  1436. {
  1437.     Arg args[10];
  1438.     int arg = 0;
  1439.  
  1440.     Widget dialog = verify(XmCreatePromptDialog(find_shell(parent),
  1441.                         name, args, arg));
  1442.     Delay::register_shell(dialog);
  1443.  
  1444.     if (lesstif_version <= 79)
  1445.     XtUnmanageChild(XmSelectionBoxGetChild(dialog, XmDIALOG_APPLY_BUTTON));
  1446.     XtUnmanageChild(XmSelectionBoxGetChild(dialog, XmDIALOG_TEXT));
  1447.     XtUnmanageChild(XmSelectionBoxGetChild(dialog, XmDIALOG_SELECTION_LABEL));
  1448.  
  1449.     XtAddCallback(dialog, XmNhelpCallback, ImmediateHelpCB, NULL);
  1450.     XtAddCallback(dialog, XmNokCallback, new_displayDCB, XtPointer(&info));
  1451.  
  1452.     arg = 0;
  1453.     XtSetArg(args[arg], XmNmarginWidth,  0); arg++;
  1454.     XtSetArg(args[arg], XmNmarginHeight, 0); arg++;
  1455.     XtSetArg(args[arg], XmNborderWidth,  0); arg++;
  1456.     XtSetArg(args[arg], XmNadjustMargin, False); arg++;
  1457.     Widget box = verify(XmCreateRowColumn(dialog, "box", args, arg));
  1458.     XtManageChild(box);
  1459.  
  1460.     arg = 0;
  1461.     XtSetArg(args[arg], XmNalignment, XmALIGNMENT_BEGINNING); arg++;
  1462.     Widget label = verify(XmCreateLabel(box, "label", args, arg));
  1463.     XtManageChild(label);
  1464.  
  1465.     arg = 0;
  1466.     info.text = verify(CreateComboBox(box, "text", args, arg));
  1467.     XtManageChild(info.text);
  1468.  
  1469.     tie_combo_box_to_history(info.text, display_history_filter);
  1470.  
  1471.     arg = 0;
  1472.     XtSetArg(args[arg], XmNmarginWidth,  0); arg++;
  1473.     XtSetArg(args[arg], XmNmarginHeight, 0); arg++;
  1474.     XtSetArg(args[arg], XmNborderWidth,  0); arg++;
  1475.     XtSetArg(args[arg], XmNadjustMargin, False); arg++;
  1476.     XtSetArg(args[arg], XmNorientation, XmHORIZONTAL); arg++;
  1477.     Widget box2 = verify(XmCreateRowColumn(box, "box2", args, arg));
  1478.     XtManageChild(box2);
  1479.  
  1480.     arg = 0;
  1481.     XtSetArg(args[arg], XmNalignment, XmALIGNMENT_BEGINNING); arg++;
  1482.     info.shortcut = verify(XmCreateToggleButton(box2, "shortcut", args, arg));
  1483.     XtManageChild(info.shortcut);
  1484.  
  1485.     Widget display = verify(XmCreateLabel(box2, "display", args, arg));
  1486.     XtManageChild(display);
  1487.     Widget menu = verify(XmCreateLabel(box2, "menu", args, arg));
  1488.     XtManageChild(menu);
  1489.  
  1490.     return dialog;
  1491. }
  1492.  
  1493. // Enter a new Display at BOX_POINT
  1494. void DataDisp::new_displayCD (Widget w, BoxPoint box_point)
  1495. {
  1496.     static NewDisplayInfo info;
  1497.     if (info.point_ptr == 0)
  1498.     info.point_ptr = new BoxPoint;
  1499.     info.origin = w;
  1500.  
  1501.     static Widget new_display_dialog = 
  1502.     create_display_dialog(w, "new_display_dialog", info);
  1503.  
  1504.     XmToggleButtonSetState(info.shortcut, False, False);
  1505.  
  1506.     *(info.point_ptr) = box_point;
  1507.     info.display_expression = source_arg->get_string();
  1508.     XmTextSetString(info.text, info.display_expression);
  1509.  
  1510.     manage_and_raise(new_display_dialog);
  1511. }
  1512.  
  1513. // Create a new display
  1514. void DataDisp::newCB(Widget w, XtPointer, XtPointer)
  1515. {
  1516.     set_last_origin(w);
  1517.     new_displayCD(w);
  1518. }
  1519.  
  1520. // Create a new dependent display
  1521. void DataDisp::dependentCB(Widget w, XtPointer client_data, 
  1522.                XtPointer call_data)
  1523. {
  1524.     set_last_origin(w);
  1525.  
  1526.     DispNode *disp_node_arg   = selected_node();
  1527.     DispValue *disp_value_arg = selected_value();
  1528.     if (disp_node_arg == 0 
  1529.     || disp_value_arg == 0
  1530.     || disp_node_arg->hidden())
  1531.     {
  1532.     newCB(w, client_data, call_data);
  1533.     return;
  1534.     }
  1535.  
  1536.     static NewDisplayInfo info;
  1537.     if (gdb->recording())
  1538.     info.depends_on = disp_node_arg->name();
  1539.     else
  1540.     info.depends_on = itostring(disp_node_arg->disp_nr());
  1541.  
  1542.     info.origin = w;
  1543.  
  1544.     static Widget dependent_display_dialog = 
  1545.     create_display_dialog(w, "dependent_display_dialog", info);
  1546.  
  1547.     XmToggleButtonSetState(info.shortcut, True, False);
  1548.  
  1549.     info.display_expression = disp_value_arg->full_name();
  1550.     XmTextSetString(info.text, info.display_expression);
  1551.     manage_and_raise(dependent_display_dialog);
  1552. }
  1553.  
  1554. void DataDisp::displayArgCB(Widget w, XtPointer client_data, 
  1555.                 XtPointer call_data)
  1556. {
  1557.     bool check_pointer = bool((int)(long)client_data);
  1558.  
  1559.     if (check_pointer)
  1560.     {
  1561.     DispValue *disp_value_arg = selected_value();
  1562.  
  1563.     if (disp_value_arg != 0 && disp_value_arg->type() == Pointer)
  1564.     {
  1565.         // Dereference selected pointer
  1566.         dereferenceCB(w, client_data, call_data);
  1567.         return;
  1568.     }
  1569.     }
  1570.  
  1571.     // Create new display
  1572.     string arg = source_arg->get_string();
  1573.  
  1574.     string depends_on = "";
  1575.     DispNode *disp_node_arg = selected_node();
  1576.     if (disp_node_arg != 0)
  1577.     {
  1578.     if (gdb->recording())
  1579.         depends_on = disp_node_arg->name();
  1580.     else
  1581.         depends_on = itostring(disp_node_arg->disp_nr());
  1582.     }
  1583.  
  1584.     new_display(arg, 0, depends_on, false, false, w);
  1585. }
  1586.  
  1587. void DataDisp::plotArgCB(Widget w, XtPointer, XtPointer)
  1588. {
  1589.     DispValue *disp_value_arg = selected_value();
  1590.     if (disp_value_arg != 0)
  1591.     {
  1592.     // Plot selected value
  1593.     disp_value_arg->plot();
  1594.     return;
  1595.     }
  1596.  
  1597.     // Create new display and plot it
  1598.     string arg = source_arg->get_string();
  1599.     new_display(arg, 0, "", false, true, w);
  1600. }
  1601.  
  1602. void DataDisp::plotHistoryCB(Widget w, XtPointer, XtPointer)
  1603. {
  1604.     // Create new display and plot its history
  1605.     string arg = "`graph history " + source_arg->get_string() + "`";
  1606.     new_display(arg, 0, "", false, true, w);
  1607. }
  1608.  
  1609. void DataDisp::deleteArgCB(Widget dialog, XtPointer client_data, 
  1610.                XtPointer call_data)
  1611. {
  1612.     DataDispCount count(disp_graph);
  1613.  
  1614.     if (count.selected_titles > 0)
  1615.     {
  1616.     // Delete selected displays
  1617.     deleteCB(dialog, client_data, call_data);
  1618.     }
  1619.     else
  1620.     {
  1621.     // Delete argument
  1622.     delete_display(source_arg->get_string());
  1623.     }
  1624. }
  1625.  
  1626.  
  1627. //-----------------------------------------------------------------------------
  1628. // Redraw graph and update display list
  1629. //-----------------------------------------------------------------------------
  1630.  
  1631. struct GraphEditState {
  1632.     Boolean autoLayout;
  1633.     Boolean snapToGrid;
  1634. };
  1635.  
  1636. void DataDisp::refresh_graph_edit(bool silent)
  1637. {
  1638.     // Save current graph editor state
  1639.     static GraphEditState state;
  1640.  
  1641.     XtVaGetValues(graph_edit,
  1642.           XtNautoLayout, &state.autoLayout,
  1643.           XtNsnapToGrid, &state.snapToGrid,
  1644.           NULL);
  1645.  
  1646.     if (refresh_graph_edit_timer == 0)
  1647.     {
  1648.     refresh_graph_edit_timer = 
  1649.         XtAppAddTimeOut(XtWidgetToApplicationContext(graph_edit),
  1650.                 0, RefreshGraphEditCB, XtPointer(&state));
  1651.     }
  1652.  
  1653.     refresh_builtin_user_displays();
  1654.     refresh_args();
  1655.     refresh_display_list(silent);
  1656. }
  1657.  
  1658. void DataDisp::RefreshGraphEditCB(XtPointer client_data, XtIntervalId *id)
  1659. {
  1660.     (void) id;            // Use it
  1661.     assert(*id == refresh_graph_edit_timer);
  1662.     refresh_graph_edit_timer = 0;
  1663.  
  1664.     static GraphEditState state;
  1665.  
  1666.     XtVaGetValues(graph_edit,
  1667.           XtNautoLayout, &state.autoLayout,
  1668.           XtNsnapToGrid, &state.snapToGrid,
  1669.           NULL);
  1670.  
  1671.     const GraphEditState& old_state = *((GraphEditState *) client_data);
  1672.  
  1673.     static Graph *dummy = new Graph;
  1674.  
  1675.     XtVaSetValues(graph_edit,
  1676.           XtNautoLayout, old_state.autoLayout,
  1677.           XtNsnapToGrid, old_state.snapToGrid,
  1678.           XtNgraph, dummy,
  1679.           NULL);
  1680.     XtVaSetValues(graph_edit,
  1681.           XtNgraph, (Graph *)disp_graph,
  1682.           NULL);
  1683.     XtVaSetValues(graph_edit,
  1684.           XtNautoLayout, state.autoLayout,
  1685.           XtNsnapToGrid, state.snapToGrid,
  1686.           NULL);
  1687. }
  1688.  
  1689. // ***************************************************************************
  1690. //
  1691. inline int DataDisp::getDispNrAtPoint (BoxPoint point)
  1692. {
  1693.     GraphNode* gn = graphEditGetNodeAtPoint (graph_edit, point);
  1694.     if (gn == 0)
  1695.     return 0;
  1696.  
  1697.     BoxGraphNode* bgn = ptr_cast (BoxGraphNode, gn);
  1698.     if (bgn == 0)
  1699.     return 0;
  1700.  
  1701.     return disp_graph->get_nr (bgn);
  1702. }
  1703.  
  1704.  
  1705. //-----------------------------------------------------------------------------
  1706. // Make buttons sensitive or insensitive
  1707. //-----------------------------------------------------------------------------
  1708.  
  1709. void DataDisp::no_displaysHP (void*, void* , void* call_data)
  1710. {
  1711.     bool empty = bool(call_data);
  1712.  
  1713.     set_sensitive (graph_popup[GraphItms::Refresh].widget,
  1714.            (!empty && gdb->isReadyWithPrompt()));
  1715. }
  1716.  
  1717.  
  1718. //-----------------------------------------------------------------------------
  1719. // Unselect nodes when selection is lost
  1720. //-----------------------------------------------------------------------------
  1721.  
  1722. bool DataDisp::lose_selection = true;
  1723.  
  1724. void DataDisp::SelectionLostCB(Widget, XtPointer, XtPointer)
  1725. {
  1726.     if (!lose_selection)
  1727.     return;
  1728.  
  1729.     // Selection lost - clear all highlights
  1730.     bool changed = false;
  1731.     for (GraphNode *gn = disp_graph->firstNode();
  1732.      gn != 0; gn = disp_graph->nextNode(gn))
  1733.     {
  1734.     if (gn->selected())
  1735.     {
  1736.         gn->selected() = false;
  1737.         changed = true;
  1738.         graphEditRedrawNode(graph_edit, gn);
  1739.     }
  1740.     }
  1741.  
  1742.     if (changed)
  1743.     {
  1744.     refresh_args();
  1745.     refresh_display_list();
  1746.     }
  1747. }
  1748.  
  1749. //-----------------------------------------------------------------------------
  1750. // Action procs
  1751. //----------------------------------------------------------------------------
  1752.  
  1753. void DataDisp::graph_dereferenceAct (Widget w, XEvent*, String*, Cardinal*)
  1754. {
  1755.     dereferenceCB(w, 0, 0);
  1756. }
  1757.  
  1758. void DataDisp::graph_detailAct (Widget w, XEvent *, 
  1759.                 String *params, Cardinal *num_params)
  1760. {
  1761.     int depth = -1;
  1762.     if (params != 0 && num_params != 0 && *num_params >= 1)
  1763.     depth = atoi(params[0]);
  1764.  
  1765.     toggleDetailCB(w, XtPointer(depth), 0);
  1766. }
  1767.  
  1768. void DataDisp::graph_rotateAct (Widget w, XEvent*, String*, Cardinal*)
  1769. {
  1770.     rotateCB(w, XtPointer(false), 0);
  1771. }
  1772.  
  1773. void DataDisp::graph_dependentAct (Widget w, XEvent*, String*, Cardinal*)
  1774. {
  1775.     dependentCB(w, 0, 0);
  1776. }
  1777.  
  1778.  
  1779. Time DataDisp::last_select_time = 0;
  1780.  
  1781. // The GraphEdit actions with some data display magic prepended
  1782. void DataDisp::call_selection_proc(Widget w,
  1783.                    String name,
  1784.                    XEvent* event,
  1785.                    String* args,
  1786.                    Cardinal num_args,
  1787.                    SelectionMode mode)
  1788. {
  1789.     // Let multi-clicks pass right through
  1790.     Time t = time(event);
  1791.     if (Time(t - last_select_time) > Time(XtGetMultiClickTime(XtDisplay(w))))
  1792.     set_args(point(event), mode);
  1793.     last_select_time = t;
  1794.  
  1795.     XtCallActionProc(w, name, event, args, num_args);
  1796. }
  1797.  
  1798. void DataDisp::graph_selectAct (Widget, XEvent* event, String* args, 
  1799.                 Cardinal* num_args)
  1800. {
  1801.     call_selection_proc(graph_edit, "select", event, args, *num_args, 
  1802.             SetSelection);
  1803. }
  1804.  
  1805. void DataDisp::graph_select_or_moveAct (Widget, XEvent* event, String* args, 
  1806.                     Cardinal* num_args)
  1807. {
  1808.     call_selection_proc(graph_edit, "select-or-move", event, args, *num_args,
  1809.             SetSelection);
  1810. }
  1811.  
  1812. void DataDisp::graph_extendAct (Widget, XEvent* event, String* args, 
  1813.                 Cardinal* num_args)
  1814. {
  1815.     call_selection_proc(graph_edit, "extend", event, args, *num_args,
  1816.             ExtendSelection);
  1817. }
  1818.  
  1819. void DataDisp::graph_extend_or_moveAct (Widget, XEvent* event, String* args, 
  1820.                     Cardinal* num_args)
  1821. {
  1822.     call_selection_proc(graph_edit, "extend-or-move", event, args, *num_args,
  1823.             ExtendSelection);
  1824. }
  1825.  
  1826. void DataDisp::graph_toggleAct (Widget, XEvent* event, String* args, 
  1827.                 Cardinal* num_args)
  1828. {
  1829.     call_selection_proc(graph_edit, "toggle", event, args, *num_args,
  1830.             ToggleSelection);
  1831. }
  1832.  
  1833. void DataDisp::graph_toggle_or_moveAct (Widget, XEvent* event, String* args, 
  1834.                     Cardinal* num_args)
  1835. {
  1836.     call_selection_proc(graph_edit, "toggle-or-move", event, args, *num_args,
  1837.             ToggleSelection);
  1838. }
  1839.  
  1840. void DataDisp::graph_popupAct (Widget, XEvent* event, String *args, 
  1841.                    Cardinal *num_args)
  1842. {
  1843.     static BoxPoint* p = 0;
  1844.     if (p == 0)
  1845.     {
  1846.     p = new BoxPoint;
  1847.  
  1848.     MMaddCallbacks(graph_popup,     XtPointer(p));
  1849.     MMaddCallbacks(node_popup,      XtPointer(p));
  1850.     MMaddCallbacks(shortcut_popup1, XtPointer(p));
  1851.  
  1852.     MMaddHelpCallback(graph_popup,     ImmediateHelpCB);
  1853.     MMaddHelpCallback(node_popup,      ImmediateHelpCB);
  1854.     MMaddHelpCallback(shortcut_popup1, ImmediateHelpCB);
  1855.     }
  1856.     *p = point(event);
  1857.  
  1858.     set_args(*p, SetSelection);
  1859.  
  1860.     string arg = "";
  1861.     if (num_args != 0 && *num_args > 0)
  1862.     arg = downcase(args[0]);
  1863.  
  1864.     Widget popup = 0;
  1865.     if (arg == "graph" || selected_node() == 0)
  1866.     popup = graph_popup_w;
  1867.     else if (arg == "shortcut" 
  1868.          || (arg == "" && event->xbutton.state & ShiftMask))
  1869.     popup = shortcut_popup_w;
  1870.     else if (arg == "node" || arg == "")
  1871.     popup = node_popup_w;
  1872.     else
  1873.     cerr << "graph-popup: bad argument " << quote(arg) << "\n";
  1874.  
  1875.     if (popup != 0)
  1876.     {
  1877.     XmMenuPosition(popup, &event->xbutton);
  1878.     XtManageChild(popup);
  1879.     }
  1880. }
  1881.  
  1882. void DataDisp::set_args(BoxPoint p, SelectionMode mode)
  1883. {
  1884.     DispNode*  disp_node   = 0;
  1885.     DispValue* disp_value  = 0;
  1886.  
  1887.     bool was_selected = false;
  1888.  
  1889.     int disp_nr = getDispNrAtPoint(p);
  1890.     if (disp_nr)
  1891.     {
  1892.     disp_node = disp_graph->get (disp_nr);
  1893.     disp_value = (DispValue *)disp_node->box()->data(p);
  1894.  
  1895.     was_selected = selected(disp_node) && disp_value == 0;
  1896.  
  1897.     switch (mode)
  1898.     {
  1899.     case ExtendSelection:
  1900.     case ToggleSelection:
  1901.         if (disp_node == selected_node()
  1902.         && disp_node->selected_value() != 0
  1903.         && disp_value != disp_node->selected_value())
  1904.         {
  1905.         // Add another value in this node.  We can't do this,
  1906.         // so toggle the entire node.
  1907.         disp_node->selected() = false;
  1908.         disp_node->select(0);
  1909.         graphEditRedrawNode(graph_edit, disp_node);
  1910.         break;
  1911.         }
  1912.         // FALL THROUGH
  1913.  
  1914.     case SetSelection:
  1915.         if (disp_value != disp_node->selected_value())
  1916.         {
  1917.         disp_node->select(disp_value);
  1918.         graphEditRedrawNode(graph_edit, disp_node);
  1919.         }
  1920.         break;
  1921.     }
  1922.     }
  1923.  
  1924.     if (mode == SetSelection)
  1925.     {
  1926.     // Clear other highlights and selections
  1927.     MapRef ref;
  1928.     for (DispNode* dn = disp_graph->first(ref); 
  1929.          dn != 0;
  1930.          dn = disp_graph->next(ref))
  1931.     {
  1932.         if (dn != disp_node)
  1933.         {
  1934.         bool redraw = false;
  1935.  
  1936.         if (!was_selected)
  1937.         {
  1938.             if (!redraw)
  1939.             redraw = dn->selected();
  1940.             dn->selected() = false;
  1941.         }
  1942.  
  1943.         if (!redraw)
  1944.             redraw = (dn->highlight() != 0);
  1945.         dn->select(0);
  1946.  
  1947.         if (redraw)
  1948.             graphEditRedrawNode(graph_edit, dn);
  1949.         }
  1950.     }
  1951.     }
  1952.  
  1953.     refresh_args(true);
  1954.     refresh_display_list();
  1955. }
  1956.  
  1957. DispNode *DataDisp::selected_node()
  1958. {
  1959.     DispNode *selection = 0;
  1960.  
  1961.     // Check for selected nodes
  1962.     MapRef ref;
  1963.     for (DispNode *dn = disp_graph->first(ref); 
  1964.      dn != 0; dn = disp_graph->next(ref))
  1965.     {
  1966.     if (!selected(dn))
  1967.         continue;
  1968.  
  1969.     if (selection == 0)
  1970.     {
  1971.         // First node found
  1972.         selection = dn;
  1973.     }
  1974.     else if (selection == dn)
  1975.     {
  1976.         // Already found
  1977.     }
  1978.     else if (is_cluster(dn))
  1979.     {
  1980.         if (selection->clustered() != dn->disp_nr())
  1981.         return 0;    // Node is unclustered or clustered elsewhere
  1982.  
  1983.         // Select cluster
  1984.         selection = dn;
  1985.     }
  1986.     else if (is_cluster(selection))
  1987.     {
  1988.         if (dn->clustered() != selection->disp_nr())
  1989.         return 0;    // Node is unclustered or clustered elsewhere
  1990.  
  1991.         // Cluster remains selected
  1992.     }
  1993.     else
  1994.     {
  1995.         return 0;        // Differing nodes
  1996.     }
  1997.     }
  1998.  
  1999.     return selection;
  2000. }
  2001.  
  2002. DispValue *DataDisp::selected_value()
  2003. {
  2004.     DispNode *dn = selected_node();
  2005.     if (dn == 0)
  2006.     return 0;
  2007.     if (is_cluster(dn))
  2008.     return dn->value();
  2009.  
  2010.     DispValue *dv = dn->selected_value();
  2011.     if (dv != 0)
  2012.     return dv;
  2013.  
  2014.     // We treat the selected node just like the selected top value
  2015.     return dn->value();
  2016. }
  2017.  
  2018. // Select DV (and nothing else)
  2019. void DataDisp::select(DispValue *dv)
  2020. {
  2021.     bool changed = false;
  2022.  
  2023.     MapRef ref;
  2024.     for (DispNode *dn = disp_graph->first(ref); 
  2025.      dn != 0; dn = disp_graph->next(ref))
  2026.     {
  2027.     if (dn->clustered())
  2028.         continue;
  2029.  
  2030.     // Check whether DV occurs in DN
  2031.     dn->select(dv);
  2032.  
  2033.     if (dn->highlight() != 0)
  2034.     {
  2035.         if (!dn->selected())
  2036.         {
  2037.         // Found it
  2038.         dn->selected() = true;
  2039.         changed = true;
  2040.         }
  2041.     }
  2042.     else
  2043.     {
  2044.         if (dn->selected())
  2045.         {
  2046.         // Did not find it
  2047.         dn->selected() = false;
  2048.         changed = true;
  2049.         }
  2050.  
  2051.         dn->select(0);
  2052.     }
  2053.     }
  2054.  
  2055.     if (changed)
  2056.     {
  2057.     refresh_args();
  2058.     refresh_graph_edit();
  2059.     }
  2060. }
  2061.  
  2062. void DataDisp::refresh_args(bool update_arg)
  2063. {
  2064.     if (update_arg)
  2065.     arg_needs_update = true;
  2066.  
  2067.     if (refresh_args_timer == 0)
  2068.     {
  2069.     refresh_args_timer = 
  2070.         XtAppAddTimeOut(XtWidgetToApplicationContext(graph_edit),
  2071.                 0, RefreshArgsCB, XtPointer(graph_edit));
  2072.     }
  2073.  
  2074.     // Synchronize node selection with cluster: if cluster is
  2075.     // selected, select all contained nodes, too.
  2076.     MapRef ref;
  2077.     for (DispNode *dn = disp_graph->first(ref); 
  2078.      dn != 0;
  2079.      dn = disp_graph->next(ref))
  2080.     {
  2081.     if (!dn->clustered())
  2082.         continue;
  2083.  
  2084.     DispNode *cluster = disp_graph->get(dn->clustered());
  2085.     if (cluster == 0)
  2086.         continue;
  2087.  
  2088.     Box *old_highlight = dn->highlight();
  2089.     bool old_selected  = dn->selected();
  2090.  
  2091.     dn->selected() = false;
  2092.     if (cluster->selected())
  2093.     {
  2094.         // Cluster is selected -- select display, too
  2095.         if (cluster->selected_value() == 0 ||
  2096.         cluster->selected_value() == cluster->value())
  2097.         {
  2098.         // Entire cluster is selected
  2099.         dn->selected() = true;
  2100.         dn->select(0);
  2101.         }
  2102.         else
  2103.         {
  2104.         // Part of cluster is selected
  2105.         dn->select(cluster->selected_value());
  2106.         if (dn->highlight() != 0)
  2107.         {
  2108.             // Found selected value in display
  2109.             dn->selected() = true;
  2110.  
  2111.             if (dn->selected_value() == dn->value())
  2112.             {
  2113.             // Top value is selected
  2114.             dn->select(0);
  2115.             }
  2116.         }
  2117.         }
  2118.     }
  2119.  
  2120.     if (dn->selected() != old_selected || dn->highlight() != old_highlight)
  2121.     {
  2122.         graphEditRedrawNode(graph_edit, dn);
  2123.     }
  2124.     }
  2125. }
  2126.  
  2127. void DataDisp::RefreshArgsCB(XtPointer, XtIntervalId *timer_id)
  2128. {
  2129.     (void) timer_id;        // Use it
  2130.     assert(*timer_id == refresh_args_timer);
  2131.     refresh_args_timer = 0;
  2132.  
  2133.     DataDispCount count(disp_graph);
  2134.  
  2135.     if (count.selected > 1)
  2136.     {
  2137.     // Clear all local highlights
  2138.     MapRef ref;
  2139.     for (DispNode* dn = disp_graph->first(ref); 
  2140.          dn != 0;
  2141.          dn = disp_graph->next(ref))
  2142.     {
  2143.         bool redraw = (dn->highlight() != 0);
  2144.  
  2145.         dn->select(0);
  2146.         if (redraw)
  2147.         graphEditRedrawNode(graph_edit, dn);
  2148.     }
  2149.     }
  2150.  
  2151.     DispNode *disp_node_arg   = selected_node();
  2152.     DispValue *disp_value_arg = selected_value();
  2153.  
  2154.     // New ()
  2155.     set_sensitive(graph_popup[GraphItms::NewArg].widget, !source_arg->empty());
  2156.  
  2157.     // Refresh (), Select All ()
  2158.     set_sensitive(graph_popup[GraphItms::Refresh].widget,   count.all > 0);
  2159.     set_sensitive(graph_popup[GraphItms::SelectAll].widget, count.visible > 0);
  2160.  
  2161.     bool dereference_ok = false;
  2162.     bool rotate_ok      = false;
  2163.     bool rotate_plot_ok = false;
  2164.  
  2165.     if (disp_node_arg != 0 && disp_value_arg != 0)
  2166.     {
  2167.     // We have selected a single node
  2168.     switch (disp_value_arg->type())
  2169.     {
  2170.     case Simple:
  2171.         rotate_plot_ok = disp_value_arg->has_plot_alignment();
  2172.         break;
  2173.  
  2174.     case Text:
  2175.     case Reference:
  2176.         break;
  2177.  
  2178.     case Pointer:
  2179.         dereference_ok = true;
  2180.         break;
  2181.  
  2182.     case Array:
  2183.         rotate_ok = disp_value_arg->expanded();
  2184.         break;
  2185.  
  2186.     case Sequence:
  2187.     case List:
  2188.     case Struct:
  2189.         break;
  2190.  
  2191.     case UnknownType:
  2192.         assert(0);
  2193.         abort();
  2194.     }
  2195.     }
  2196.  
  2197.     // Earlier state
  2198.     bool undoing = undo_buffer.showing_earlier_state();
  2199.  
  2200.     // Argument
  2201.     bool arg_ok  = false;
  2202.     bool plot_ok = false;
  2203.     string arg;
  2204.     if (disp_node_arg != 0)
  2205.     {
  2206.     if (disp_value_arg != 0)
  2207.     {
  2208.         arg = disp_value_arg->full_name();
  2209.         arg_ok = true;
  2210.         plot_ok = disp_value_arg->can_plot();
  2211.     }
  2212.     }
  2213.     else
  2214.     {
  2215.     // No node selected
  2216.     arg = source_arg->get_string();
  2217.     arg_ok = (arg != "") && !is_file_pos(arg);
  2218.     plot_ok = arg_ok && !undoing;
  2219.     }
  2220.  
  2221.     // New
  2222. #if 0
  2223.     if (count.selected_titles > 0)
  2224.     {
  2225.     set_label(graph_cmd_area[CmdItms::New].widget,
  2226.           "Undisplay ()", UNDISPLAY_ICON);
  2227.     }
  2228.     else
  2229. #endif
  2230.     if (dereference_ok)
  2231.     {
  2232.     string label("Display " + deref(arg, "()"));
  2233.     set_label(graph_cmd_area[CmdItms::New].widget, label, DISPREF_ICON);
  2234.     }
  2235.     else
  2236.     {
  2237.     set_label(graph_cmd_area[CmdItms::New].widget,
  2238.           "Display ()", DISPLAY_ICON);
  2239.     }
  2240.  
  2241.     bool recording = gdb->recording() && emptyCommandQueue();
  2242.     bool record_ok = recording && arg_ok;
  2243.  
  2244.     set_sensitive(shortcut_menu[ShortcutItms::New2].widget, 
  2245.           arg_ok && !undoing);
  2246.     set_sensitive(graph_cmd_area[CmdItms::New].widget, arg_ok && !undoing);
  2247.     set_sensitive(display_area[DisplayItms::New].widget, !undoing);
  2248.  
  2249.     // Dereference
  2250.     set_sensitive(node_popup[NodeItms::Dereference].widget,
  2251.           dereference_ok && !undoing);
  2252.     set_sensitive(shortcut_menu[ShortcutItms::Dereference2].widget,
  2253.           (record_ok || dereference_ok || 
  2254.           (count.selected == 0 && arg_ok)) && !undoing);
  2255.     set_sensitive(graph_cmd_area[CmdItms::Dereference].widget,
  2256.           (dereference_ok || (count.selected == 0 && arg_ok)) &&
  2257.           !undoing);
  2258.     set_sensitive(display_area[DisplayItms::Dereference].widget,
  2259.           dereference_ok && !undoing);
  2260.  
  2261.     // Plot
  2262.     bool arg_is_displayed = (display_number(source_arg->get_string()) != 0);
  2263.     bool can_delete_arg = (count.selected == 0 && arg_is_displayed || 
  2264.                record_ok || 
  2265.                count.selected_titles > 0);
  2266.     set_sensitive(graph_cmd_area[CmdItms::Plot].widget, plot_ok);
  2267.     set_sensitive(plot_menu[PlotItms::History].widget, can_delete_arg);
  2268.  
  2269.     // Rotate
  2270.     set_sensitive(node_popup[NodeItms::Rotate].widget,       
  2271.           rotate_ok || rotate_plot_ok);
  2272.     set_sensitive(graph_cmd_area[CmdItms::Rotate].widget,    
  2273.           rotate_ok || rotate_plot_ok);
  2274.     set_sensitive(rotate_menu[RotateItms::RotateAll].widget, rotate_ok);
  2275.  
  2276.     // Show/Hide Detail
  2277.     if (recording)
  2278.     {
  2279.     // Recording
  2280.     set_label(node_popup[NodeItms::Detail].widget, "Show All");
  2281.     set_label(graph_cmd_area[CmdItms::Detail].widget, 
  2282.           "Show ()", SHOW_ICON);
  2283.     set_sensitive(node_popup[NodeItms::Detail].widget, record_ok);
  2284.     set_sensitive(graph_cmd_area[CmdItms::Detail].widget, record_ok);
  2285.     }
  2286.     else if (count.selected_expanded > 0 && count.selected_collapsed == 0)
  2287.     {
  2288.     // Only expanded displays selected
  2289.     set_label(node_popup[NodeItms::Detail].widget, "Hide All");
  2290.     set_label(graph_cmd_area[CmdItms::Detail].widget, 
  2291.           "Hide ()", HIDE_ICON);
  2292.     set_sensitive(node_popup[NodeItms::Detail].widget, true);
  2293.     set_sensitive(graph_cmd_area[CmdItms::Detail].widget, true);
  2294.     }
  2295.     else if (count.selected_collapsed > 0)
  2296.     {
  2297.     // Some collapsed displays selected
  2298.     set_label(node_popup[NodeItms::Detail].widget, "Show All");
  2299.     set_label(graph_cmd_area[CmdItms::Detail].widget, 
  2300.           "Show ()", SHOW_ICON);
  2301.     set_sensitive(node_popup[NodeItms::Detail].widget, true);
  2302.     set_sensitive(graph_cmd_area[CmdItms::Detail].widget, true);
  2303.     }
  2304.     else
  2305.     {
  2306.     // Expanded as well as collapsed displays selected
  2307.     set_sensitive(node_popup[NodeItms::Detail].widget, false);
  2308.     set_sensitive(graph_cmd_area[CmdItms::Detail].widget, false);
  2309.     }
  2310.  
  2311.     set_sensitive(display_area[DisplayItms::ShowDetail].widget, 
  2312.           record_ok || count.selected_collapsed > 0);
  2313.     set_sensitive(display_area[DisplayItms::HideDetail].widget, 
  2314.           record_ok || count.selected_expanded > 0);
  2315.  
  2316.     set_sensitive(detail_menu[DetailItms::ShowMore].widget, 
  2317.           record_ok || count.selected_collapsed > 0);
  2318.     set_sensitive(detail_menu[DetailItms::ShowJust].widget, 
  2319.           record_ok || count.selected > 0);
  2320.     set_sensitive(detail_menu[DetailItms::ShowDetail].widget, 
  2321.           record_ok || count.selected_collapsed > 0);
  2322.     set_sensitive(detail_menu[DetailItms::HideDetail].widget, 
  2323.           record_ok || count.selected_expanded > 0);
  2324.  
  2325.     // Delete
  2326.     set_sensitive(graph_cmd_area[CmdItms::Delete].widget, can_delete_arg);
  2327.     set_sensitive(display_area[DisplayItms::Delete].widget,
  2328.           count.selected > 0);
  2329.  
  2330.     // Set
  2331.     bool can_set = gdb->has_assign_command() && !undoing;
  2332.     bool set_node_ok = 
  2333.     disp_node_arg != 0 && 
  2334.     (!disp_node_arg->is_user_command() || 
  2335.      disp_value_arg != 0 && disp_value_arg != disp_node_arg->value());
  2336.     bool set_arg_ok = (disp_node_arg == 0 && arg_ok && !is_user_command(arg));
  2337.  
  2338.     set_sensitive(graph_cmd_area[CmdItms::Set].widget,
  2339.           can_set && (set_arg_ok || set_node_ok));
  2340.     set_sensitive(display_area[DisplayItms::Set].widget,
  2341.           can_set && (set_arg_ok || set_node_ok));
  2342.     set_sensitive(node_popup[NodeItms::Set].widget, 
  2343.           can_set && set_node_ok);
  2344.  
  2345.     // Cluster
  2346.     if (count.selected_unclustered > 0 || count.selected_clustered == 0)
  2347.     {
  2348.     set_label(delete_menu[DeleteItms::Cluster].widget, "Cluster ()");
  2349.     set_sensitive(delete_menu[DeleteItms::Cluster].widget, 
  2350.               count.selected_unclustered > 0);
  2351.     }
  2352.     else
  2353.     {
  2354.     set_label(delete_menu[DeleteItms::Cluster].widget, "Uncluster ()");
  2355.     set_sensitive(delete_menu[DeleteItms::Cluster].widget, true);
  2356.     }
  2357.  
  2358.     // Shortcut menu
  2359.     for (int i = 0; i < shortcut_items && i < shortcut_exprs.size(); i++)
  2360.     {
  2361.     const string& expr = shortcut_exprs[i];
  2362.     bool sens = false;
  2363.     if (!expr.contains("()"))
  2364.         sens = true;    // Argument not needed
  2365.     else if (arg_ok)
  2366.         sens = true;    // We have an argument
  2367.     else if (count.selected == 0)
  2368.         sens = false;    // Nothing selected
  2369.     else if (disp_value_arg != 0)
  2370.         sens = true;    // Exactly one value selected
  2371.      else if (disp_node_arg != 0)
  2372.         sens = true;    // Exactly one expression selected
  2373.  
  2374.     if (undoing)
  2375.         sens = false;
  2376.  
  2377.     set_sensitive(shortcut_popup1[i].widget, sens);
  2378.     set_sensitive(shortcut_popup2[i].widget, sens);
  2379.     set_sensitive(shortcut_menu  [i].widget, sens);
  2380.     }
  2381.  
  2382.     // Argument field
  2383.     if (arg_needs_update)
  2384.     {
  2385.     if (count.selected > 0)
  2386.     {
  2387.         string arg;
  2388.         if (disp_value_arg)
  2389.         {
  2390.         arg = disp_value_arg->full_name();
  2391.         source_arg->set_string(arg);
  2392.         }
  2393.         else if (disp_node_arg)
  2394.         {
  2395.         arg = disp_node_arg->name();
  2396.         source_arg->set_string(arg);
  2397.         }
  2398.     }
  2399.     arg_needs_update = false;
  2400.     }
  2401.  
  2402.     // Set selection.
  2403.     // If the entire graph is selected, include position info, too.
  2404.     bool include_position = (count.selected >= count.visible);
  2405.     ostrstream os;
  2406.     get_selection(os, include_position);
  2407.     string cmd(os);
  2408.  
  2409.     // Setting the string causes the selection to be lost.  By setting
  2410.     // LOSE_SELECTION, we make sure the associated callbacks return
  2411.     // immediately.
  2412.     lose_selection = false;
  2413.     XmTextSetString(graph_selection_w, (char *)cmd);
  2414.     lose_selection = true;
  2415.  
  2416.     Time tm = XtLastTimestampProcessed(XtDisplay(graph_selection_w));
  2417.  
  2418.     if (cmd == "")
  2419.     {
  2420.     // Nothing selected - clear selection explicitly
  2421.     XmTextClearSelection(graph_selection_w, tm);
  2422.     }
  2423.     else
  2424.     {
  2425.     // Own the selection
  2426.     XmTextSetSelection(graph_selection_w, 
  2427.                0, XmTextGetLastPosition(graph_selection_w), tm);
  2428.     }
  2429. }
  2430.  
  2431.  
  2432. // The maximum display number when saving states
  2433. int DataDisp::max_display_number = 99;
  2434.  
  2435. // Get scopes in SCOPES
  2436. bool DataDisp::get_scopes(StringArray& scopes)
  2437. {
  2438.     // Fetch current backtrace and store scopes in SCOPES
  2439.     string backtrace = gdb_question(gdb->where_command(), -1, true);
  2440.     while (backtrace != "")
  2441.     {
  2442.     string scope = get_scope(backtrace);
  2443.     if (scope != "")
  2444.         scopes += scope;
  2445.     backtrace = backtrace.after('\n');
  2446.     }
  2447.  
  2448.     return scopes.size() > 0;
  2449. }
  2450.  
  2451. // Write commands to restore frame #TARGET_FRAME in OS
  2452. void DataDisp::write_frame_command(ostream& os, int& current_frame, 
  2453.                    int target_frame)
  2454. {
  2455.     if (target_frame != current_frame)
  2456.     {
  2457.     os << "graph ";
  2458.     if (gdb->has_frame_command())
  2459.     {
  2460.         // Issue `frame' command
  2461.         os << gdb->frame_command(target_frame) << "\n";
  2462.     }
  2463.     else
  2464.     {
  2465.         // Use `up' and `down' commands
  2466.         int offset = current_frame - target_frame;
  2467.         if (offset == -1)
  2468.         os << "up";
  2469.         else if (offset < 0)
  2470.         os << "up " << -offset;
  2471.         else if (offset == 1)
  2472.         os << "down";
  2473.         else if (offset > 0)
  2474.         os << "down " << offset;
  2475.     }
  2476.  
  2477.     current_frame = target_frame;
  2478.     }
  2479. }
  2480.  
  2481. // Write commands to restore scope of DN in OS
  2482. void DataDisp::write_restore_scope_command(ostream& os,
  2483.                        int& current_frame,
  2484.                        const StringArray& scopes,
  2485.                        DispNode *dn,
  2486.                        bool& ok)
  2487. {
  2488.     if (dn->deferred())
  2489.     {
  2490.     // No need to restore frame for a deferred node
  2491.     return;
  2492.     }
  2493.     if (dn->is_user_command())
  2494.     {
  2495.     // No need to restore frame for user displays
  2496.     return;
  2497.     }
  2498.  
  2499.     int target_frame = -1;
  2500.  
  2501.     if (dn->scope() == "")
  2502.     {
  2503.     // No scope - maybe a global?
  2504.     target_frame = scopes.size() - 1;    // Return to main frame
  2505.     }
  2506.     else
  2507.     {
  2508.     // Search scope in backtrace
  2509.     for (int i = 0; i < scopes.size(); i++)
  2510.         if (scopes[i] == dn->scope())
  2511.         {
  2512.         target_frame = i;
  2513.         break;
  2514.         }
  2515.     }
  2516.  
  2517.     if (target_frame < 0)
  2518.     {
  2519.     // Not in current backtrace - deferring display
  2520.     MString msg;
  2521.     msg += rm("Deferring display ");
  2522.     msg += rm(itostring(dn->disp_nr()) + ": ");
  2523.     msg += tt(dn->name());
  2524.  
  2525.     if (dn->scope() != "")
  2526.     {
  2527.        msg += rm(" because ");
  2528.        msg += tt(dn->scope());
  2529.        msg += rm(" is not in current backtrace");
  2530.     }
  2531.  
  2532.     set_status_mstring(msg);
  2533.  
  2534.     // OK remains set here - this is no fatal error
  2535.     (void) ok;
  2536.  
  2537.     return;
  2538.     }
  2539.  
  2540.     write_frame_command(os, current_frame, target_frame);
  2541. }
  2542.  
  2543.  
  2544. void DataDisp::get_node_state(ostream& os, DispNode *dn, bool include_position)
  2545. {
  2546.     os << "graph ";
  2547.     if (dn->plotted())
  2548.     os << "plot ";
  2549.     else
  2550.     os << "display ";
  2551.     os << dn->name();
  2552.  
  2553.     // Write cluster
  2554.     if (dn->clustered())
  2555.     os << " clustered";
  2556.  
  2557.     // Write position
  2558.     if (include_position)
  2559.     {
  2560.     BoxPoint pos = dn->pos();
  2561.  
  2562.     if (pos.isValid())
  2563.     {
  2564.         if (bump_displays && is_cluster(dn))
  2565.         {
  2566.         // When this cluster will be restored, it will be
  2567.         // empty first, but later additions will bump it
  2568.         // to a new position.  Compensate for this.
  2569.         static DispNode empty_cluster(-1, dn->name(), 
  2570.                           dn->scope(), "No displays.", 
  2571.                           false);
  2572.  
  2573.         BoxPoint offset = 
  2574.             (dn->box()->size() - empty_cluster.box()->size()) / 2;
  2575.             
  2576.         pos = graphEditFinalPosition(graph_edit, pos - offset);
  2577.         }
  2578.  
  2579.         os << " at " << pos;
  2580.     }
  2581.     }
  2582.  
  2583.     // Write dependency
  2584.     string depends_on = "";
  2585.     if (dn->deferred())
  2586.     {
  2587.     depends_on = dn->depends_on();
  2588.     }
  2589.     else
  2590.     {
  2591.     for (GraphEdge *edge = dn->firstTo();
  2592.          edge != 0; edge = dn->nextTo(edge))
  2593.     {
  2594.         DispNode *ancestor = ptr_cast(DispNode, edge->from());
  2595.         if (ancestor != 0)
  2596.         {
  2597.         depends_on = ancestor->name();
  2598.         break;
  2599.         }
  2600.     }
  2601.     }
  2602.     if (depends_on != "")
  2603.     os << " dependent on " << depends_on;
  2604.  
  2605.     // Write scope
  2606.     if (dn->scope() != "")
  2607.     os << " now or when in " << dn->scope();
  2608.  
  2609.     os << '\n';
  2610. }
  2611.  
  2612. bool DataDisp::get_state(ostream& os,
  2613.              bool restore_state,
  2614.              bool include_position,
  2615.              const StringArray& scopes,
  2616.              int target_frame)
  2617. {
  2618.     // Sort displays by number, such that old displays appear before
  2619.     // newer ones.
  2620.  
  2621.     // Note: this fails with the negative numbers of user-defined
  2622.     // displays; a topological sort would make more sense here. (FIXME)
  2623.     IntArray nrs;
  2624.     MapRef ref;
  2625.     for (DispNode* dn = disp_graph->first(ref); 
  2626.      dn != 0;
  2627.      dn = disp_graph->next(ref))
  2628.     {
  2629.     if (restore_state || selected(dn))
  2630.         nrs += dn->disp_nr();
  2631.     }
  2632.     sort(nrs, absolute_le);
  2633.  
  2634.     bool ok = true;
  2635.     if (restore_state && scopes.size() == 0 && need_core_to_restore())
  2636.     {
  2637.     set_status("Cannot get current backtrace");
  2638.     ok = false;
  2639.     }
  2640.  
  2641.     // When restoring, we'll be at the lowest frame (#0).
  2642.     int current_frame = 0;
  2643.  
  2644.     for (int i = 0; i < nrs.size(); i++)
  2645.     {
  2646.     DispNode *dn = disp_graph->get(nrs[i]);
  2647.     if (dn == 0)
  2648.         continue;
  2649.  
  2650.     if (restore_state && scopes.size() > 0)
  2651.         write_restore_scope_command(os, current_frame, scopes, dn, ok);
  2652.  
  2653.     get_node_state(os, dn, include_position);
  2654.     }
  2655.  
  2656.     // That's it: return to target frame...
  2657.     write_frame_command(os, current_frame, target_frame);
  2658.  
  2659.     // ... and refresh the graph.
  2660.     if (restore_state && nrs.size() > 0)
  2661.     os << refresh_display_cmd() << "\n";
  2662.  
  2663.     return ok;
  2664. }
  2665.  
  2666.  
  2667. // Return true if a core dump is needed to restore displays
  2668. bool DataDisp::need_core_to_restore()
  2669. {
  2670.     MapRef ref;
  2671.     for (DispNode *dn = disp_graph->first(ref);
  2672.      dn != 0;
  2673.      dn = disp_graph->next(ref))
  2674.     {
  2675.     if (!dn->deferred() && dn->scope() != "")
  2676.         return true;
  2677.     }
  2678.  
  2679.     return false;
  2680. }
  2681.  
  2682. // Reset all
  2683. void DataDisp::reset_done(const string& answer, void *)
  2684. {
  2685.     // Nothing special yet
  2686.     (void) answer;
  2687. }
  2688.  
  2689. void DataDisp::reset()
  2690. {
  2691.     // Clear all data displays
  2692.     IntArray display_nrs;
  2693.     MapRef ref;
  2694.     for (DispNode* dn = disp_graph->first(ref); 
  2695.      dn != 0;
  2696.      dn = disp_graph->next(ref))
  2697.     {
  2698.     display_nrs += dn->disp_nr();
  2699.     }
  2700.  
  2701.     if (display_nrs.size() > 0)
  2702.     {
  2703.     Command c(delete_display_cmd(display_nrs));
  2704.     c.verbose  = false;
  2705.     c.prompt   = false;
  2706.     c.check    = true;
  2707.     c.priority = COMMAND_PRIORITY_INIT;
  2708.     c.callback = reset_done;
  2709.     gdb_command(c);
  2710.     }
  2711. }
  2712.  
  2713.  
  2714. // Return number of display aliased by NODE
  2715. int DataDisp::alias_display_nr(GraphNode *node)
  2716. {
  2717.     if (!node->isHint())
  2718.     return 0;
  2719.     AliasGraphEdge *edge = ptr_cast(AliasGraphEdge, node->firstTo());
  2720.     if (edge == 0)
  2721.     return 0;
  2722.  
  2723.     return edge->disp_nr();
  2724. }
  2725.  
  2726. // Update graph editor selection after a change in the display editor
  2727. void DataDisp::UpdateGraphEditorSelectionCB(Widget, XtPointer, XtPointer)
  2728. {
  2729.     IntArray display_nrs;
  2730.     getItemNumbers(display_list_w, display_nrs);
  2731.  
  2732.     // Update graph editor selection
  2733.     MapRef ref;
  2734.     DispNode *dn;
  2735.     for (dn = disp_graph->first(ref); dn != 0; dn = disp_graph->next(ref))
  2736.     {
  2737.     int display_nr = dn->disp_nr();
  2738.  
  2739.     bool select = false;
  2740.     for (int i = 0; i < display_nrs.size(); i++)
  2741.     {
  2742.         if (display_nr == display_nrs[i])
  2743.         {
  2744.         select = true;
  2745.         break;
  2746.         }
  2747.     }
  2748.  
  2749.     if (dn->clustered())
  2750.     {
  2751.         // Synchronize nodes with cluster
  2752.         DispNode *cluster = disp_graph->get(dn->clustered());
  2753.         if (cluster != 0 && cluster->selected() && 
  2754.         cluster->selected_value() == 0)
  2755.         {
  2756.         // All cluster nodes are selected
  2757.         select = true;
  2758.         dn->select();
  2759.         }
  2760.     }
  2761.  
  2762.     if (select != dn->selected())
  2763.     {
  2764.         dn->selected() = select;
  2765.         graphEditRedrawNode(graph_edit, dn);
  2766.     }
  2767.  
  2768.     if (dn->hidden())
  2769.     {
  2770.         // Synchronize hint nodes with this alias node
  2771.         for (GraphNode *node = disp_graph->firstNode();
  2772.          node != 0;
  2773.          node = disp_graph->nextNode(node))
  2774.         {
  2775.         if (alias_display_nr(node) == display_nr)
  2776.         {
  2777.             if (node->selected() != dn->selected())
  2778.             {
  2779.             node->selected() = dn->selected();
  2780.             graphEditRedrawNode(graph_edit, node);
  2781.             }
  2782.         }
  2783.         }
  2784.     }
  2785.     }
  2786.  
  2787.     // Update cluster selection
  2788.     for (dn = disp_graph->first(ref); dn != 0; dn = disp_graph->next(ref))
  2789.     {
  2790.     // Clear all local cluster selections
  2791.     if (is_cluster(dn) && dn->selected_value() != 0)
  2792.     {
  2793.         dn->select();
  2794.         graphEditRedrawNode(graph_edit, dn);
  2795.     }
  2796.     }
  2797.  
  2798.     // Reset local cluster selections
  2799.     for (dn = disp_graph->first(ref); dn != 0; dn = disp_graph->next(ref))
  2800.     {
  2801.     if (!dn->selected())
  2802.         continue;
  2803.     if (!dn->clustered())
  2804.         continue;
  2805.  
  2806.     DispNode *cluster = disp_graph->get(dn->clustered());
  2807.  
  2808.     if (cluster == 0)
  2809.         continue;        // No such cluster
  2810.  
  2811.     if (cluster->selected() && cluster->selected_value() == 0)
  2812.         continue;        // Entire cluster selected
  2813.  
  2814.     DispValue *dv = cluster->value();
  2815.     if (dv == 0)
  2816.         continue;
  2817.  
  2818.     // Find the display numbers in this cluster
  2819.     IntArray cluster_children;
  2820.     MapRef ref;
  2821.     for (DispNode *dn2 = disp_graph->first(ref); 
  2822.          dn2 != 0; dn2 = disp_graph->next(ref))
  2823.     {
  2824.         if (dn2->clustered() == cluster->disp_nr())
  2825.         cluster_children += dn2->disp_nr();
  2826.     }
  2827.     sort(cluster_children);
  2828.  
  2829.     // The number of children of the main cluster List should be
  2830.     // the same as the number of displays we just found.
  2831.     assert(dv->nchildren() == cluster_children.size());
  2832.  
  2833.     for (int i = 0; i < cluster_children.size(); i++)
  2834.     {
  2835.         if (cluster_children[i] == dn->disp_nr())
  2836.         {
  2837.         // Got it
  2838.         cluster->selected() = true;
  2839.         if (cluster->selected_value() == 0)
  2840.         {
  2841.             // Select this child
  2842.             cluster->select(dv->child(i));
  2843.         }
  2844.         else
  2845.         {
  2846.             // Multiple nodes selected -- select them all
  2847.             cluster->select(0);
  2848.         }
  2849.         break;
  2850.         }
  2851.     }
  2852.  
  2853.     graphEditRedrawNode(graph_edit, cluster);
  2854.     }
  2855.  
  2856.     refresh_args(true);
  2857.     refresh_display_list();
  2858. }
  2859.  
  2860. // Update display editor selection after a change in the graph editor
  2861. void DataDisp::UpdateDisplayEditorSelectionCB(Widget, XtPointer, XtPointer)
  2862. {
  2863.     // Synchronize alias nodes with hint nodes
  2864.     for (GraphNode *node = disp_graph->firstNode();
  2865.      node != 0;
  2866.      node = disp_graph->nextNode(node))
  2867.     {
  2868.     int nr = alias_display_nr(node);
  2869.     if (nr < 0)
  2870.         continue;
  2871.  
  2872.     DispNode *dn = disp_graph->get(nr);
  2873.     if (dn == 0)
  2874.         continue;
  2875.  
  2876.     if (node->selected() != dn->selected())
  2877.     {
  2878.         dn->selected() = node->selected();
  2879.         graphEditRedrawNode(graph_edit, dn);
  2880.     }
  2881.     }
  2882.  
  2883.     refresh_args(true);
  2884.     refresh_display_list();
  2885. }
  2886.  
  2887.  
  2888. //-----------------------------------------------------------------------
  2889. // Sorting nodes for layout
  2890. //-----------------------------------------------------------------------
  2891.  
  2892. void DataDisp::CompareNodesCB(Widget, XtPointer, XtPointer call_data)
  2893. {
  2894.     GraphEditCompareNodesInfo *info = (GraphEditCompareNodesInfo *)call_data;
  2895.  
  2896.     BoxGraphNode *node1 = ptr_cast(BoxGraphNode, info->node1);
  2897.     BoxGraphNode *node2 = ptr_cast(BoxGraphNode, info->node2);
  2898.  
  2899.     DispNode *disp1 = 0;
  2900.     DispNode *disp2 = 0;
  2901.  
  2902.     if (node1 != 0 && node2 != 0)
  2903.     {
  2904.     int nr1 = disp_graph->get_nr(node1);
  2905.     int nr2 = disp_graph->get_nr(node2);
  2906.  
  2907.     disp1 = disp_graph->get(nr1);
  2908.     disp2 = disp_graph->get(nr2);
  2909.     }
  2910.  
  2911.     if (disp1 != 0 && disp2 != 0)
  2912.     {
  2913.     info->result = smart_compare(disp1->name(), disp2->name());
  2914.     }
  2915.     else
  2916.     {
  2917.     if (disp1 != 0)
  2918.     {
  2919.         // Known nodes are ``larger'' than unknown nodes
  2920.         info->result = 1;
  2921.     }
  2922.     else if (disp2 != 0)
  2923.     {
  2924.         // Known nodes are ``larger'' than unknown nodes
  2925.         info->result = -1;
  2926.     }
  2927.     else
  2928.     {
  2929.         // Comparing the pointer values will keep pointers constant
  2930.         info->result = long(info->node1) - long(info->node2);
  2931.     }
  2932.     }
  2933.  
  2934. #if LOG_COMPARE
  2935.     if (disp1 && disp2)
  2936.     {
  2937.     clog << "Comparing " << disp1->name() 
  2938.          << " and " << disp2->name() << " yields " << info->result << "\n";
  2939.     }
  2940.     else
  2941.     {
  2942.     clog << "Cannot compare: unknown nodes\n";
  2943.     }
  2944. #endif
  2945. }
  2946.  
  2947.  
  2948. //-----------------------------------------------------------------------
  2949. // Handle GDB input / output
  2950. //-----------------------------------------------------------------------
  2951.  
  2952. //-----------------------------------------------------------------------------
  2953. // Create new Display(s)
  2954. //-----------------------------------------------------------------------------
  2955.  
  2956. #if RUNTIME_REGEX
  2957. static regex rxmore_than_one ("\\[-?[0-9]+\\.\\.-?[0-9]+\\]");
  2958. #endif
  2959.  
  2960. void DataDisp::again_new_displaySQ (XtPointer client_data, XtIntervalId *)
  2961. {
  2962.     NewDisplayInfo *info = (NewDisplayInfo *)client_data;
  2963.     new_displaySQ(info->display_expression, info->scope, info->point_ptr, 
  2964.           info->depends_on, info->deferred, info->clustered,
  2965.           info->plotted, info->origin, info->verbose, info->prompt);
  2966.     delete info;
  2967. }
  2968.  
  2969. int DataDisp::display_number(const string& name, bool verbose)
  2970. {
  2971.     int nr = disp_graph->get_by_name(name);
  2972.  
  2973.     if (nr == 0)
  2974.     {
  2975.     if (verbose)
  2976.         post_gdb_message("No display named " + quote(name) + ".\n");
  2977.     return 0;
  2978.     }
  2979.  
  2980.     DispNode *dn = disp_graph->get(nr);
  2981.     if (dn == 0)
  2982.     {
  2983.     if (verbose)
  2984.         post_gdb_message("No display number " + itostring(nr) + ".\n");
  2985.     return 0;
  2986.     }
  2987.  
  2988.     return nr;
  2989. }
  2990.  
  2991. void DataDisp::get_display_numbers(const string& name, IntArray& numbers)
  2992. {
  2993.     MapRef ref;
  2994.     for (DispNode* dn = disp_graph->first(ref); dn != 0;
  2995.      dn = disp_graph->next(ref))
  2996.     {
  2997.     if (dn->name() == name)
  2998.         numbers += dn->disp_nr();
  2999.     }
  3000. }
  3001.  
  3002. void DataDisp::new_displaySQ (string display_expression,
  3003.                   string scope, BoxPoint *p,
  3004.                   string depends_on,
  3005.                   DeferMode deferred, 
  3006.                   bool clustered, bool plotted,
  3007.                   Widget origin, bool verbose, bool do_prompt)
  3008. {
  3009.     // Check arguments
  3010.     if (deferred != DeferAlways && depends_on != "")
  3011.     {
  3012.     int depend_nr = display_number(depends_on, verbose);
  3013.     if (depend_nr == 0)
  3014.         return;
  3015.     }
  3016.  
  3017.     NewDisplayInfo *info = new NewDisplayInfo;
  3018.     info->display_expression = display_expression;
  3019.     info->scope              = scope;
  3020.     info->verbose            = verbose;
  3021.     info->prompt             = do_prompt;
  3022.     info->deferred           = deferred;
  3023.     info->clustered          = clustered;
  3024.     info->plotted            = plotted;
  3025.  
  3026.     if (p != 0)
  3027.     {
  3028.     info->point = *p;
  3029.     info->point_ptr = &info->point;
  3030.     }
  3031.     else
  3032.     {
  3033.     info->point = BoxPoint();
  3034.     info->point_ptr = 0;
  3035.     }
  3036.     info->depends_on = depends_on;
  3037.     info->origin     = origin;
  3038.  
  3039.     static Delay *reading_delay = 0;
  3040.     if (!DispBox::vsllib_initialized)
  3041.     {
  3042.     // We don't have the VSL library yet.  Try again later.
  3043.     if (VSLLib::background != 0)
  3044.     {
  3045.         reading_delay = new StatusDelay("Reading VSL library");
  3046.  
  3047.         // Disable background processing
  3048.         VSLLib::background = 0;
  3049.     }
  3050.  
  3051.     // As soon as the VSL library will be completely read, we
  3052.     // shall enter the main DDD event loop and get called again.
  3053.     XtAppAddTimeOut(XtWidgetToApplicationContext(graph_edit),
  3054.             100, again_new_displaySQ, info);
  3055.     return;
  3056.     }
  3057.     delete reading_delay;
  3058.     reading_delay = 0;
  3059.  
  3060.     if (origin)
  3061.     set_last_origin(origin);
  3062.  
  3063.     if (display_expression == "")
  3064.     return;
  3065.  
  3066.     if (deferred == DeferAlways)
  3067.     {
  3068.     // Create deferred display now
  3069.     DispNode *dn = new_deferred_node(display_expression, scope, 
  3070.                      info->point, depends_on, 
  3071.                      info->clustered, info->plotted);
  3072.  
  3073.     // Insert deferred node into graph
  3074.     disp_graph->insert(dn->disp_nr(), dn);
  3075.  
  3076.     if (do_prompt)
  3077.         prompt();
  3078.  
  3079.     delete info;
  3080.  
  3081.     refresh_display_list();
  3082.     }
  3083.     else if (is_user_command(display_expression))
  3084.     {
  3085.     // User-defined display
  3086.     string cmd = user_command(display_expression);
  3087.     if (is_builtin_user_command(cmd))
  3088.     {
  3089.         info->constant = true;
  3090.         string answer = builtin_user_command(cmd);
  3091.         new_user_displayOQC(answer, info);
  3092.     }
  3093.     else
  3094.     {
  3095.         gdb_command(cmd, last_origin, new_user_displayOQC, info);
  3096.     }
  3097.     }
  3098.     else
  3099.     {
  3100.     // Data display
  3101.     if (display_expression.contains (rxmore_than_one))
  3102.     {
  3103.         new_data_displaysSQA (display_expression, info);
  3104.         return;
  3105.     }
  3106.  
  3107.     if (gdb->display_prints_values())
  3108.     {
  3109.         gdb_command(gdb->display_command(display_expression),
  3110.             last_origin, new_data_displayOQC, info);
  3111.     }
  3112.     else
  3113.     {
  3114.         gdb_command(gdb->display_command(display_expression),
  3115.             last_origin, OQCProc(0), (void *)0);
  3116.         gdb_command(gdb->print_command(display_expression, true),
  3117.              last_origin, new_data_displayOQC, info);
  3118.     }
  3119.     }
  3120. }
  3121.  
  3122. // Get display number and name from ANSWER; store them in NR and NAME
  3123. void DataDisp::read_number_and_name(string& answer, string& nr, string& name)
  3124. {
  3125.     nr   = "";
  3126.     name = "";
  3127.  
  3128.     if (gdb->has_numbered_displays())
  3129.     {
  3130.     nr = read_disp_nr_str(answer, gdb);
  3131.     if (nr != "")
  3132.         name = read_disp_name(answer, gdb);
  3133.     }
  3134.     else
  3135.     {
  3136.     name = read_disp_name(answer, gdb);
  3137.     if (gdb->has_display_command())
  3138.     {
  3139.         // Fetch number from `display' output
  3140.         string ans = gdb_question(gdb->display_command(), -1);
  3141.         int index  = ans.index(name + "\n", -1);
  3142.         if (index > 0)
  3143.         {
  3144.         while (index > 0 && ans[index - 1] != '\n')
  3145.             index--;
  3146.         ans = ans.from(index);
  3147.         int n = get_nr(ans);
  3148.         nr = itostring(n);
  3149.         }
  3150.  
  3151.         if (nr == "")
  3152.         {
  3153.         // Could not determine number
  3154.         post_warning("Could not determine number of display " 
  3155.                  + quote(name), 
  3156.                  "no_display_number_warning", last_origin);
  3157.         }
  3158.     }
  3159.     
  3160.     if (nr == "")
  3161.     {
  3162.         // Assign a default number
  3163.         nr = itostring(next_ddd_display_number++);
  3164.     }
  3165.     }
  3166. }
  3167.  
  3168. string DataDisp::new_display_cmd(const string& display_expression, 
  3169.                  BoxPoint *p,
  3170.                  const string& depends_on, 
  3171.                  bool clustered, bool plotted)
  3172. {
  3173.     string cmd = "graph ";
  3174.     if (plotted)
  3175.     cmd += "plot ";
  3176.     else
  3177.     cmd += "display ";
  3178.     cmd += display_expression;
  3179.  
  3180.     if (clustered)
  3181.     cmd += " clustered ";
  3182.     if (p != 0 && *p != BoxPoint())
  3183.     cmd += " at (" + itostring((*p)[X]) + ", " + itostring((*p)[Y]) + ")";
  3184.     if (depends_on != "")
  3185.     cmd += " dependent on " + depends_on;
  3186.  
  3187.     return cmd;
  3188. }
  3189.  
  3190.  
  3191. //-----------------------------------------------------------------------------
  3192. // Built-in user commands
  3193. //-----------------------------------------------------------------------------
  3194.  
  3195. #define HOOK_PREFIX  "<?"
  3196. #define HOOK_POSTFIX ">"
  3197.  
  3198.  
  3199. bool DataDisp::is_builtin_user_command(const string& cmd)
  3200. {
  3201.     if (cmd == CLUSTER_COMMAND)
  3202.     return true;
  3203.  
  3204.     return false;
  3205. }
  3206.  
  3207. string DataDisp::builtin_user_command(const string& cmd, DispNode *node)
  3208. {
  3209.     if (cmd == CLUSTER_COMMAND)
  3210.     {
  3211.     MapRef ref;
  3212.     IntArray clustered_displays;
  3213.     for (DispNode* dn = disp_graph->first(ref); 
  3214.          dn != 0;
  3215.          dn = disp_graph->next(ref))
  3216.     {
  3217.         if (!dn->clustered())
  3218.         continue;
  3219.         if (dn->is_user_command())
  3220.         continue;
  3221.         if (dn->deferred())
  3222.         continue;
  3223.         if (!dn->active())
  3224.         continue;
  3225.         if (node != 0 && dn->clustered() != node->disp_nr())
  3226.         continue;
  3227.         if (node == 0 && dn->clustered() != -next_ddd_display_number)
  3228.         continue;
  3229.  
  3230.         clustered_displays += dn->disp_nr();
  3231.     }
  3232.  
  3233.     sort(clustered_displays);
  3234.  
  3235.     ostrstream os;
  3236.     if (clustered_displays.size() == 0)
  3237.     {
  3238.         os << "No displays.\n";
  3239.     }
  3240.     else
  3241.     {
  3242.         for (int i = 0; i < clustered_displays.size(); i++)
  3243.         {
  3244.         DispNode *dn = disp_graph->get(clustered_displays[i]);
  3245.         os << dn->name() << " = " HOOK_PREFIX 
  3246.            << dn->disp_nr() << HOOK_POSTFIX "\n";
  3247.         }
  3248.     }
  3249.  
  3250.     return string(os);
  3251.     }
  3252.  
  3253.     return NO_GDB_ANSWER;
  3254. }
  3255.  
  3256. // This function is called to update displays in clusters
  3257. DispValue *DataDisp::update_hook(string& value)
  3258. {
  3259.     if (!value.contains(HOOK_PREFIX, 0))
  3260.     return 0;
  3261.  
  3262.     value = value.after(HOOK_PREFIX);
  3263.     int nr = atoi(value.chars());
  3264.     value = value.after(HOOK_POSTFIX);
  3265.  
  3266.     DispNode *dn = disp_graph->get(nr);
  3267.     if (dn == 0 || dn->value() == 0)
  3268.     return 0;        // Ignore
  3269.  
  3270.     // Share the clustered DispValue with the original display
  3271.     return dn->value()->link();
  3272. }
  3273.  
  3274. void DataDisp::refresh_builtin_user_displays()
  3275. {
  3276.     DispValue::value_hook = update_hook;
  3277.  
  3278.     ProgressMeter *s = 0;
  3279.  
  3280.     MapRef ref;
  3281.     for (DispNode* dn = disp_graph->first(ref); 
  3282.      dn != 0;
  3283.      dn = disp_graph->next(ref))
  3284.     {
  3285.     if (!dn->is_user_command())
  3286.         continue;
  3287.  
  3288.     const string& cmd = dn->user_command();
  3289.     string answer = NO_GDB_ANSWER;
  3290.  
  3291.     if (is_internal_command(cmd))
  3292.     {
  3293.         if (s == 0)
  3294.         s = new ProgressMeter("Updating histories");
  3295.  
  3296.         answer = internal_command(cmd);
  3297.     } 
  3298.     else if (is_builtin_user_command(cmd))
  3299.     {
  3300.         if (is_cluster(dn) && !needs_refresh(dn))
  3301.         continue;
  3302.  
  3303.         if (s == 0)
  3304.         s = new ProgressMeter("Updating clusters");
  3305.  
  3306.         answer = builtin_user_command(cmd, dn);
  3307.     }
  3308.     else
  3309.     {
  3310.         continue;
  3311.     }
  3312.  
  3313.     if (answer != NO_GDB_ANSWER && dn->update(answer))
  3314.     {
  3315.         // Clear old local selection
  3316.         dn->select(0);
  3317.     }
  3318.  
  3319.     dn->refresh();
  3320.     graphEditRedrawNode(graph_edit, dn);
  3321.     }
  3322.  
  3323.     delete s;
  3324.  
  3325.     DispValue::value_hook = 0;
  3326. }
  3327.  
  3328.  
  3329. //-----------------------------------------------------------------------------
  3330. // Open and close data window
  3331. //-----------------------------------------------------------------------------
  3332.  
  3333. void DataDisp::open_data_window()
  3334. {
  3335.     // Make sure graph is visible
  3336.     gdbOpenDataWindowCB(graph_edit, 0, 0);
  3337. }
  3338.  
  3339. void DataDisp::close_data_window()
  3340. {
  3341.     if (app_data.separate_data_window)
  3342.     {
  3343.     // Don't close a separate data window.
  3344.     }
  3345.     else
  3346.     {
  3347.     gdbCloseDataWindowCB(graph_edit, 0, 0);
  3348.     }
  3349. }
  3350.  
  3351. //-----------------------------------------------------------------------------
  3352. // Create new data and user nodes
  3353. //-----------------------------------------------------------------------------
  3354.  
  3355. DispNode *DataDisp::new_data_node(const string& given_name,
  3356.                   const string& scope,
  3357.                   const string& answer,
  3358.                   bool plotted)
  3359. {
  3360.     string value = answer;
  3361.  
  3362.     string nr_s;
  3363.     string display_name;
  3364.     read_number_and_name(value, nr_s, display_name);
  3365.  
  3366.     gdb->munch_value(value, display_name);
  3367.  
  3368.     int nr = get_nr(nr_s);
  3369.     if (nr == 0 || display_name == "")
  3370.     {
  3371.     post_gdb_message(answer, true, last_origin);
  3372.     return 0;
  3373.     }
  3374.  
  3375.     strip_space(value);
  3376.  
  3377.     // Naming a data display after the GDB display name causes trouble
  3378.     // when displaying functions: `display tree_test' creates a
  3379.     // display named `tree_test(void)', and while `print tree_test'
  3380.     // works fine, `print tree_test(void)' fails.  We may use quotes,
  3381.     // as in `print 'tree_test(void)'', but it is too hard to
  3382.     // determine where quotes are needed, and where not - just
  3383.     // consider `print tree_test(42)'.  Hence, if a function call
  3384.     // occurs in an expression, we use the name specified by the user,
  3385.     // not the name supplied by GDB.
  3386.  
  3387.     // Upon some occasions, GDB gives names like 
  3388.     // `{<text variable, no debug info>} 0x2270 <main>'.  In such cases,
  3389.     // also use the user-given name instead.
  3390.  
  3391.     // If the user quoted some part of a name, as in
  3392.     // `tree->date.'_vptr.'[0]', also prefer the user-given name,
  3393.     // since the quotes will be removed in the GDB output.
  3394. #if RUNTIME_REGEX
  3395.     static regex rxfunction_call("[a-zA-Z0-9_$][(]");
  3396. #endif
  3397.     string title = display_name;
  3398.     if (title.contains(rxfunction_call) || 
  3399.     title.contains('{') || 
  3400.     title.contains('}') || 
  3401.     given_name.contains('\''))
  3402.     title = given_name;
  3403.  
  3404.     bool disabling_occurred = false;
  3405.     if (is_disabling(value, gdb))
  3406.     {
  3407.     string error_msg = get_disp_value_str(value, gdb);
  3408.     post_gdb_message(error_msg, true, last_origin);
  3409.     value = "";
  3410.     disabling_occurred = true;
  3411.     }
  3412.  
  3413.     ProgressMeter s("Creating display");
  3414.     s.total   = value.length();
  3415.     s.current = value.length();
  3416.  
  3417.     DispNode *dn = new DispNode(nr, title, scope, value, plotted);
  3418.  
  3419.     if (plotted && (dn->value() == 0 || dn->value()->can_plot() == 0))
  3420.     {
  3421.     post_gdb_message("Nothing to plot.", true, last_origin);
  3422.  
  3423.     if (gdb->has_display_command())
  3424.     {
  3425.         gdb_command("undisplay " + itostring(dn->disp_nr()), 
  3426.             last_origin, OQCProc(0));
  3427.     }
  3428.  
  3429.     delete dn;
  3430.     return 0;
  3431.     }
  3432.  
  3433.     if (disabling_occurred)
  3434.     {
  3435.     dn->disable();
  3436.     dn->make_active();
  3437.     }
  3438.  
  3439.     open_data_window();
  3440.  
  3441.     undo_buffer.add_display(title, value);
  3442.     undo_buffer.add_command(delete_display_cmd(title), true);
  3443.  
  3444.     return dn;
  3445. }
  3446.  
  3447. DispNode *DataDisp::new_user_node(const string& name,
  3448.                   const string& /* scope */,
  3449.                   const string& answer,
  3450.                   bool plotted)
  3451. {
  3452.     // Assign a default number
  3453.     int nr = -(next_ddd_display_number++);
  3454.  
  3455.     ProgressMeter s("Creating status display");
  3456.     s.total   = answer.length();
  3457.     s.current = answer.length();
  3458.  
  3459.     // Set cluster update hook
  3460.     if (name == "`" CLUSTER_COMMAND "`")
  3461.     DispValue::value_hook = update_hook;
  3462.  
  3463.     // User displays work regardless of scope
  3464.     static const string scope = "";
  3465.  
  3466.     DispNode *dn = new DispNode(nr, name, scope, answer, plotted);
  3467.     DispValue::value_hook = 0;
  3468.  
  3469.     if (plotted && (dn->value() == 0 || dn->value()->can_plot() == 0))
  3470.     {
  3471.     post_gdb_message("Nothing to plot.", true, last_origin);
  3472.     delete dn;
  3473.     return 0;
  3474.     }
  3475.  
  3476.     open_data_window();
  3477.  
  3478.     if (!is_cluster(dn))
  3479.     {
  3480.     undo_buffer.add_display(name, answer);
  3481.     undo_buffer.add_command(delete_display_cmd(name), true);
  3482.     }
  3483.  
  3484.     return dn;
  3485. }
  3486.  
  3487. DispNode *DataDisp::new_deferred_node(const string& expr, const string& scope,
  3488.                       const BoxPoint& pos,
  3489.                       const string& depends_on,
  3490.                       bool clustered, bool plotted)
  3491. {
  3492.     // Assign a default number
  3493.     int nr = -(next_ddd_display_number++);
  3494.  
  3495.     // A `dummy' answer (never shown)
  3496.     string answer = "<deferred>";
  3497.  
  3498.     MString msg = rm("Creating deferred display " + itostring(nr) + ": ") + 
  3499.     tt(expr) + rm(" (scope ") + tt(scope) + rm(")");
  3500.     set_status_mstring(msg);
  3501.  
  3502.     DispNode *dn = new DispNode(nr, expr, scope, answer, plotted);
  3503.     dn->deferred() = true;
  3504.     if (clustered)
  3505.     dn->cluster(-1);
  3506.     dn->make_inactive();
  3507.     dn->depends_on() = depends_on;
  3508.     dn->plotted() = plotted;
  3509.     dn->moveTo(pos);
  3510.  
  3511.     undo_buffer.add_display(expr, answer);
  3512.     undo_buffer.add_command(delete_display_cmd(expr), true);
  3513.  
  3514.     return dn;
  3515. }
  3516.  
  3517.  
  3518.  
  3519. // Create new data display from ANSWER
  3520. void DataDisp::new_data_displayOQC (const string& answer, void* data)
  3521. {
  3522.     NewDisplayInfo *info = (NewDisplayInfo *)data;
  3523.  
  3524.     if (answer == NO_GDB_ANSWER)
  3525.     {
  3526.     delete info;        // Command was canceled
  3527.     return;
  3528.     }
  3529.  
  3530.     if (answer == "")
  3531.     {
  3532.     if (gdb->has_display_command())
  3533.     {
  3534.         // No display output (GDB bug).  Refresh displays explicitly.
  3535.         gdb_command(gdb->display_command(), last_origin,
  3536.             new_data_display_extraOQC, data);
  3537.     }
  3538.     else
  3539.     {
  3540.         delete info;
  3541.     }
  3542.     return;
  3543.     }
  3544.  
  3545.     if (!contains_display(answer, gdb) || !is_valid(answer, gdb))
  3546.     {
  3547.     if (info->deferred == DeferIfNeeded)
  3548.     {
  3549.         // Create deferred display now
  3550.         DispNode *dn = new_deferred_node(info->display_expression,
  3551.                          info->scope,
  3552.                          info->point, info->depends_on,
  3553.                          info->clustered, info->plotted);
  3554.         
  3555.         // Insert deferred node into graph
  3556.         disp_graph->insert(dn->disp_nr(), dn);
  3557.         
  3558.         if (info->prompt)
  3559.         prompt();
  3560.  
  3561.         refresh_display_list();
  3562.     }
  3563.     else
  3564.     {
  3565.         if (info->verbose)
  3566.         post_gdb_message(answer, info->prompt, last_origin);
  3567.     }
  3568.  
  3569.     delete info;
  3570.     return;
  3571.     }
  3572.  
  3573.     // Unselect all nodes
  3574.     for (GraphNode *gn = disp_graph->firstNode();
  3575.      gn != 0; gn = disp_graph->nextNode(gn))
  3576.     {
  3577.     gn->selected() = false;
  3578.     }
  3579.  
  3580.     // Create new DispNode
  3581.     string ans = answer;
  3582.     DispNode *dn = new_data_node(info->display_expression,
  3583.                  info->scope, ans, info->plotted);
  3584.     if (dn == 0)
  3585.     {
  3586.     // Display could not be created
  3587.     if (info->deferred == DeferIfNeeded)
  3588.     {
  3589.         // Create deferred display now
  3590.         dn = new_deferred_node(info->display_expression, info->scope,
  3591.                    info->point, info->depends_on,
  3592.                    info->clustered, info->plotted);
  3593.         
  3594.         // Insert deferred node into graph
  3595.         disp_graph->insert(dn->disp_nr(), dn);
  3596.         
  3597.         if (info->prompt)
  3598.         prompt();
  3599.  
  3600.         refresh_display_list();
  3601.     }
  3602.  
  3603.     delete info;
  3604.     return;
  3605.     }
  3606.  
  3607.     // Insert node into graph
  3608.     int depend_nr = disp_graph->get_by_name(info->depends_on);
  3609.     insert_data_node(dn, depend_nr, info->clustered, info->plotted);
  3610.  
  3611.     // Determine position
  3612.     BoxPoint box_point = info->point;
  3613.     if (box_point == BoxPoint())
  3614.     box_point = disp_graph->default_pos(dn, graph_edit, depend_nr);
  3615.     dn->moveTo(box_point);
  3616.     select_node(dn, depend_nr);
  3617.  
  3618.     refresh_addr(dn);
  3619.     refresh_graph_edit();
  3620.  
  3621.     if (info->prompt)
  3622.     prompt();
  3623.  
  3624.     delete info;
  3625. }
  3626.  
  3627. // Create new user display from ANSWER
  3628. void DataDisp::new_user_displayOQC (const string& answer, void* data)
  3629. {
  3630.     NewDisplayInfo *info = (NewDisplayInfo *)data;
  3631.  
  3632.     if (answer == NO_GDB_ANSWER)
  3633.     {
  3634.     delete info;        // Command was canceled
  3635.     return;
  3636.     }
  3637.  
  3638.     // Unselect all nodes
  3639.     for (GraphNode *gn = disp_graph->firstNode();
  3640.      gn != 0; gn = disp_graph->nextNode(gn))
  3641.     {
  3642.     gn->selected() = false;
  3643.     }
  3644.  
  3645.     // Create new user node and issue `disabling' messages
  3646.     string ans = answer;
  3647.     DispNode *dn = new_user_node(info->display_expression, info->scope, 
  3648.                  ans, info->plotted);
  3649.     if (dn != 0)
  3650.     {
  3651.     dn->constant() = info->constant;
  3652.  
  3653.     // Insert into graph
  3654.     int depend_nr = disp_graph->get_by_name(info->depends_on);
  3655.     disp_graph->insert(dn->disp_nr(), dn, depend_nr);
  3656.  
  3657.     // Plot new node
  3658.     if (dn->plotted() && dn->value() != 0)
  3659.         dn->value()->plot();
  3660.  
  3661.     // Determine new position
  3662.     BoxPoint box_point = info->point;
  3663.     if (box_point == BoxPoint())
  3664.         box_point = disp_graph->default_pos(dn, graph_edit, depend_nr);
  3665.     dn->moveTo(box_point);
  3666.     select_node(dn, depend_nr);
  3667.  
  3668.     refresh_addr(dn);
  3669.     refresh_graph_edit();
  3670.     update_infos();
  3671.  
  3672.     if (info->prompt)
  3673.         prompt();
  3674.     }
  3675.  
  3676.     delete info;
  3677. }
  3678.  
  3679. // Create new display value from `display' output
  3680. void DataDisp::new_data_display_extraOQC (const string& answer, void* data)
  3681. {
  3682.     NewDisplayInfo *info = (NewDisplayInfo *)data;
  3683.  
  3684.     if (answer == NO_GDB_ANSWER)
  3685.     {
  3686.     delete info;        // Command was canceled
  3687.     return;
  3688.     }
  3689.  
  3690.     // The new display is the first one
  3691.     string ans = answer;
  3692.     string display = read_next_display(ans, gdb);
  3693.  
  3694.     if (display != "")
  3695.     new_data_displayOQC(display, data);
  3696. }
  3697.  
  3698.  
  3699. //-----------------------------------------------------------------------------
  3700. // Create multiple displays, using the [FROM..TO] syntax
  3701. //-----------------------------------------------------------------------------
  3702.  
  3703. void DataDisp::new_data_displaysSQA (string display_expression,
  3704.                      void *data)
  3705. {
  3706.     NewDisplayInfo *info = (NewDisplayInfo *)data;
  3707.     assert (display_expression.contains (rxmore_than_one));
  3708.  
  3709.     // Create individual display expressions and process entire array
  3710.     string prefix  = display_expression.before(rxmore_than_one);
  3711.     string postfix = display_expression.after(rxmore_than_one);
  3712.     string range   = display_expression.from(rxmore_than_one);
  3713.     range.del("[");
  3714.     int start = ::get_nr(range);
  3715.     range = range.after("..");
  3716.     int stop = ::get_nr(range);
  3717.  
  3718.     if (start > stop)
  3719.     {
  3720.     post_error("Invalid range in " + quote(display_expression), 
  3721.            "invalid_range_error");
  3722.     delete info;
  3723.     return;
  3724.     }
  3725.  
  3726.     assert (stop >= start);
  3727.  
  3728.     StringArray display_cmds;
  3729.     StringArray print_cmds;
  3730.  
  3731.     for (int i = start; i < stop + 1; i++)
  3732.     {
  3733.     string expr = prefix + "[" + itostring (i) + "]" + postfix;
  3734.     info->display_expressions += expr;
  3735.     display_cmds              += gdb->display_command(expr);
  3736.     print_cmds                += gdb->print_command(expr);
  3737.     }
  3738.  
  3739.     VoidArray dummy;
  3740.     while (dummy.size() < display_cmds.size())
  3741.     dummy += (void *)0;
  3742.  
  3743.     bool ok = true;
  3744.     if (gdb->display_prints_values())
  3745.     {
  3746.     ok = gdb->send_qu_array (display_cmds, dummy, display_cmds.size(),
  3747.                  new_data_displaysOQAC, info);
  3748.     }
  3749.     else
  3750.     {
  3751.     for (int i = 0; i < display_cmds.size(); i++)
  3752.         gdb_question(display_cmds[i]);
  3753.  
  3754.     ok = gdb->send_qu_array (print_cmds, dummy, print_cmds.size(),
  3755.                  new_data_displaysOQAC, info);
  3756.     }
  3757.     if (!ok)
  3758.     post_gdb_busy(last_origin);
  3759. }
  3760.  
  3761. void DataDisp::new_data_displaysOQAC (const StringArray& answers,
  3762.                       const VoidArray& /* qu_datas */,
  3763.                       void*  data)
  3764. {
  3765.     int count = answers.size();
  3766.  
  3767.     // Unselect all nodes
  3768.     for (GraphNode *gn = disp_graph->firstNode();
  3769.      gn != 0; gn = disp_graph->nextNode(gn))
  3770.     {
  3771.     gn->selected() = false;
  3772.     }
  3773.  
  3774.     NewDisplayInfo *info = (NewDisplayInfo *)data;
  3775.  
  3776.     // Create and select new nodes
  3777.     int depend_nr = disp_graph->get_by_name(info->depends_on);
  3778.     for (int i = 0; i < count; i++)
  3779.     {
  3780.     string answer = answers[i];
  3781.  
  3782.     if (!contains_display(answer, gdb))
  3783.     {
  3784.         // Looks like an error message
  3785.         if (info->verbose)
  3786.         post_gdb_message(answer, info->prompt, last_origin);
  3787.     }
  3788.     else
  3789.     {
  3790.         // Create new display and remember disabling message
  3791.         string var = info->display_expressions[i];
  3792.         gdb->munch_value(answer, var);
  3793.         DispNode *dn = 
  3794.         new_data_node(var, info->scope, answer, info->plotted);
  3795.         if (dn == 0)
  3796.         continue;
  3797.  
  3798.         // Insert into graph
  3799.         insert_data_node(dn, depend_nr, info->clustered, info->plotted);
  3800.  
  3801.         // Set position
  3802.         BoxPoint box_point = info->point;
  3803.         if (box_point == BoxPoint())
  3804.         box_point = disp_graph->default_pos(dn, graph_edit, depend_nr);
  3805.  
  3806.         dn->moveTo(box_point);
  3807.         dn->selected() = true;
  3808.     }
  3809.     }
  3810.  
  3811.     refresh_addr();
  3812.     refresh_graph_edit();
  3813.  
  3814.     if (info->prompt)
  3815.     prompt();
  3816.  
  3817.     delete info;
  3818. }
  3819.  
  3820. // Insert DN into graph, possibly clustering it
  3821. void DataDisp::insert_data_node(DispNode *dn, int depend_nr, 
  3822.                 bool clustered, bool plotted)
  3823. {
  3824.     // Insert into graph
  3825.     disp_graph->insert(dn->disp_nr(), dn, depend_nr);
  3826.     if (plotted)
  3827.     {
  3828.     dn->plotted() = true;
  3829.     if (dn->value() != 0)
  3830.         dn->value()->plot();
  3831.     }
  3832.  
  3833.     // Check for clusters
  3834.     if (!clustered && !cluster_displays)
  3835.     return;
  3836.     if (dn->is_user_command())
  3837.     return;
  3838.     if (depend_nr != 0)
  3839.     return;
  3840.  
  3841.     // Insert into current cluster
  3842.     dn->cluster(current_cluster());
  3843. }
  3844.  
  3845. // Create a new cluster and return its number
  3846. int DataDisp::new_cluster()
  3847. {
  3848.     gdb_command("graph display `" CLUSTER_COMMAND "`", last_origin, 0);
  3849.     return -next_ddd_display_number;
  3850. }
  3851.  
  3852. // Return a cluster number; create a new cluster if necessary
  3853. int DataDisp::current_cluster()
  3854. {
  3855.     // Use last cluster or create a new one
  3856.     IntArray all_clusters;
  3857.     get_all_clusters(all_clusters);
  3858.     sort(all_clusters);
  3859.  
  3860.     if (all_clusters.size() > 0)
  3861.     return all_clusters[0];
  3862.     else
  3863.     return new_cluster();
  3864. }
  3865.  
  3866.  
  3867. //-----------------------------------------------------------------------------
  3868. // Refresh graph
  3869. //-----------------------------------------------------------------------------
  3870.  
  3871. class RefreshInfo {
  3872. public:
  3873.     bool verbose;
  3874.     bool prompt;
  3875.     IntArray display_nrs;
  3876.  
  3877.     RefreshInfo()
  3878.     : verbose(false), prompt(false), display_nrs()
  3879.     {}
  3880.  
  3881.     ~RefreshInfo()
  3882.     {}
  3883.  
  3884. private:
  3885.     RefreshInfo(const RefreshInfo&)
  3886.     : verbose(false), prompt(false), display_nrs()
  3887.     {
  3888.     assert(0);
  3889.     }
  3890.     RefreshInfo& operator = (const RefreshInfo&)
  3891.     {
  3892.     assert(0); return *this;
  3893.     }
  3894. };
  3895.  
  3896. int DataDisp::add_refresh_data_commands(StringArray& cmds)
  3897. {
  3898.     int initial_size = cmds.size();
  3899.  
  3900.     if (gdb->display_prints_values())
  3901.     cmds += gdb->display_command();
  3902.     else
  3903.     {
  3904.     MapRef ref;
  3905.     for (DispNode* dn = disp_graph->first(ref); 
  3906.          dn != 0;
  3907.          dn = disp_graph->next(ref))
  3908.     {
  3909.         if (!dn->is_user_command() && !dn->deferred())
  3910.         {
  3911.         string cmd = gdb->print_command(dn->name());
  3912.         while (cmd != "")
  3913.         {
  3914.             string line = cmd;
  3915.             if (line.contains('\n'))
  3916.             line = line.before('\n');
  3917.             cmd = cmd.after('\n');
  3918.             cmds += line;
  3919.         }
  3920.         }
  3921.     }
  3922.     }
  3923.  
  3924.     return cmds.size() - initial_size;
  3925. }
  3926.  
  3927. int DataDisp::add_refresh_user_commands(StringArray& cmds)
  3928. {
  3929.     int initial_size = cmds.size();
  3930.  
  3931.     MapRef ref;
  3932.     for (DispNode* dn = disp_graph->first(ref); 
  3933.      dn != 0;
  3934.      dn = disp_graph->next(ref))
  3935.     {
  3936.     if (dn->is_user_command() && dn->enabled() && 
  3937.         !dn->deferred() && !dn->constant())
  3938.     {
  3939.         const string& cmd = dn->user_command();
  3940.         if (!is_internal_command(cmd))
  3941.         cmds += cmd;
  3942.     }
  3943.     }
  3944.  
  3945.     return cmds.size() - initial_size;
  3946. }
  3947.  
  3948. string DataDisp::refresh_display_cmd()
  3949. {
  3950.     return "graph refresh";
  3951. }
  3952.  
  3953. #define PROCESS_INFO_DISPLAY 0
  3954. #define PROCESS_DATA         1
  3955. #define PROCESS_USER         2
  3956. #define PROCESS_ADDR         3
  3957.  
  3958. void DataDisp::refresh_displaySQ(Widget origin, bool verbose, bool do_prompt)
  3959. {
  3960.     if (origin)
  3961.     set_last_origin(origin);
  3962.  
  3963.     // Some sanitizing actions...
  3964.     make_sane();
  3965.  
  3966.     // Now for the refreshments.  Process all displays.
  3967.     StringArray cmds;
  3968.     VoidArray dummy;
  3969.  
  3970.     if (gdb->has_info_display_command())
  3971.     cmds += gdb->info_display_command();
  3972.     while (dummy.size() < cmds.size())
  3973.     dummy += (void *)PROCESS_INFO_DISPLAY;
  3974.  
  3975.     add_refresh_data_commands(cmds);
  3976.     while (dummy.size() < cmds.size())
  3977.     dummy += (void *)PROCESS_DATA;
  3978.  
  3979.     add_refresh_user_commands(cmds);
  3980.     while (dummy.size() < cmds.size())
  3981.     dummy += (void *)PROCESS_USER;
  3982.  
  3983.     add_refresh_addr_commands(cmds);
  3984.     while (dummy.size() < cmds.size())
  3985.     dummy += (void *)PROCESS_ADDR;
  3986.  
  3987.     static RefreshInfo info;
  3988.     info.verbose = verbose;
  3989.     info.prompt  = do_prompt;
  3990.  
  3991.     bool ok = gdb->send_qu_array(cmds, dummy, cmds.size(), 
  3992.                  refresh_displayOQAC, (void *)&info);
  3993.  
  3994.     if (!ok || cmds.size() == 0)
  3995.     {
  3996.     // Simply redraw display
  3997.     refresh_graph_edit();
  3998.     if (do_prompt)
  3999.         prompt();
  4000.     }
  4001. }
  4002.  
  4003. void DataDisp::refresh_displayOQAC (const StringArray& answers,
  4004.                     const VoidArray& qu_datas,
  4005.                     void*  data)
  4006. {
  4007.     int count = answers.size();
  4008.  
  4009.     string data_answers;
  4010.     int data_answers_seen = 0;
  4011.     StringArray user_answers;
  4012.     StringArray addr_answers;
  4013.  
  4014.     RefreshInfo *info = (RefreshInfo *)data;
  4015.  
  4016.     for (int i = 0; i < count; i++)
  4017.     {
  4018.     switch ((int)(long)qu_datas[i])
  4019.     {
  4020.     case PROCESS_INFO_DISPLAY:
  4021.         // Process 'info display' output (delete displays if necessary)
  4022.         process_info_display(answers[i]);
  4023.         break;
  4024.  
  4025.     case PROCESS_DATA:
  4026.         data_answers += answers[i];
  4027.         data_answers_seen++;
  4028.         break;
  4029.  
  4030.     case PROCESS_USER:
  4031.         user_answers += answers[i];
  4032.         break;
  4033.  
  4034.     case PROCESS_ADDR:
  4035.         addr_answers += answers[i];
  4036.         break;
  4037.  
  4038.     default:
  4039.         assert(0);
  4040.         break;
  4041.     }
  4042.     }
  4043.  
  4044.     // Process `display', user command, and addr command output
  4045.     if (data_answers_seen > 0)
  4046.     {
  4047.     bool disabling_occurred = false;
  4048.     process_displays(data_answers, disabling_occurred);
  4049.  
  4050.     // If we had a `disabling' message, refresh displays once more
  4051.     if (disabling_occurred)
  4052.     {
  4053.         refresh_displaySQ(0, info->verbose, info->prompt);
  4054.         info->prompt = false;    // No more prompts
  4055.     }
  4056.     }
  4057.  
  4058.     if (user_answers.size() > 0)
  4059.     process_user(user_answers);
  4060.  
  4061.     if (addr_answers.size() > 0)
  4062.     {
  4063.     force_check_aliases = true;
  4064.     process_addr(addr_answers);
  4065.     }
  4066.  
  4067.     if (info->prompt)
  4068.     prompt();
  4069. }
  4070.  
  4071.  
  4072.  
  4073. //-----------------------------------------------------------------------------
  4074. // Disabling Displays
  4075. //-----------------------------------------------------------------------------
  4076.  
  4077. // Convert A to a space-separated string
  4078. string DataDisp::numbers(IntArray& a)
  4079. {
  4080.     sort(a);
  4081.  
  4082.     string ret;
  4083.     for (int i = 0; i < a.size(); i++)
  4084.     {
  4085.     if (i > 0)
  4086.         ret += " ";
  4087.     ret += itostring(a[i]);
  4088.     }
  4089.  
  4090.     return ret;
  4091. }
  4092.  
  4093. // Sort and verify the display numbers in DISPLAY_NRS
  4094. bool DataDisp::sort_and_check(IntArray& display_nrs)
  4095. {
  4096.     bool ok = true;
  4097.     sort(display_nrs);
  4098.  
  4099.     for (int i = 0; i < display_nrs.size(); i++)
  4100.     {
  4101.     DispNode *dn = disp_graph->get(display_nrs[i]);
  4102.     if (dn == 0)
  4103.     {
  4104.         post_gdb_message("No display number " 
  4105.                  + itostring(display_nrs[i]) + ".\n");
  4106.         display_nrs[i] = 0;
  4107.         ok = false;
  4108.     }
  4109.     }
  4110.  
  4111.     return ok;
  4112. }
  4113.  
  4114. // For all nodes in DISPLAY_NRS, add their aliases
  4115. void DataDisp::add_aliases(IntArray& display_nrs)
  4116. {
  4117.     MapRef ref;
  4118.     for (DispNode* dn = disp_graph->first(ref); 
  4119.      dn != 0;
  4120.      dn = disp_graph->next(ref))
  4121.     {
  4122.     if (dn->hidden())
  4123.     {
  4124.         bool have_alias = false;
  4125.         bool need_alias = false;
  4126.  
  4127.         for (int i = 0; i < display_nrs.size(); i++)
  4128.         {
  4129.         if (display_nrs[i] == dn->disp_nr())
  4130.             have_alias = true;
  4131.         if (display_nrs[i] == dn->alias_of)
  4132.             need_alias = true;
  4133.         }
  4134.  
  4135.         if (need_alias && !have_alias)
  4136.         display_nrs += dn->disp_nr();
  4137.     }
  4138.     }
  4139. }
  4140.  
  4141. string DataDisp::disable_display_cmd(IntArray& display_nrs)
  4142. {
  4143.     add_aliases(display_nrs);
  4144.  
  4145.     if (display_nrs.size() > 0)
  4146.     return "graph disable display " + numbers(display_nrs);
  4147.     else
  4148.     return "";
  4149. }
  4150.  
  4151. void DataDisp::disable_displaySQ(IntArray& display_nrs, bool verbose, 
  4152.                  bool do_prompt)
  4153. {
  4154.     bool ok = sort_and_check(display_nrs);
  4155.     if (!ok)
  4156.     do_prompt = false;
  4157.  
  4158.     int disabled_data_displays = 0;
  4159.     int i;
  4160.     string cmd = "disable display";
  4161.     for (i = 0; i < display_nrs.size(); i++)
  4162.     {
  4163.     if (gdb->has_disable_display_command() && display_nrs[i] > 0)
  4164.     {
  4165.         cmd += " " + itostring(display_nrs[i]);
  4166.         disabled_data_displays++;
  4167.     }
  4168.     }
  4169.  
  4170.     if (disabled_data_displays > 0)
  4171.     {
  4172.     static RefreshInfo info;
  4173.     info.verbose = verbose;
  4174.     info.prompt  = do_prompt;
  4175.  
  4176.     gdb_command(cmd, last_origin, disable_displayOQC, (void *)&info);
  4177.     }
  4178.  
  4179.     int disabled_user_displays = 0;
  4180.     for (i = 0; i < display_nrs.size(); i++)
  4181.     {
  4182.     DispNode *dn = disp_graph->get(display_nrs[i]);
  4183.     if (dn != 0 && dn->enabled())
  4184.     {
  4185.         dn->disable();
  4186.         disabled_user_displays++;
  4187.     }
  4188.     }
  4189.  
  4190.     if (disabled_data_displays == 0)
  4191.     {
  4192.     if (disabled_user_displays > 0)
  4193.         refresh_graph_edit();
  4194.  
  4195.     if (do_prompt)
  4196.         prompt();
  4197.     }
  4198. }
  4199.  
  4200. void DataDisp::disable_displayOQC (const string& answer, void *data)
  4201. {
  4202.     if (answer == NO_GDB_ANSWER)
  4203.     return;            // Command was canceled
  4204.  
  4205.     RefreshInfo *info = (RefreshInfo *)data;
  4206.  
  4207.     if (info->verbose)
  4208.     post_gdb_message(answer, info->prompt);
  4209.     if (info->prompt)
  4210.     prompt();
  4211.  
  4212.     refresh_graph_edit();
  4213. }
  4214.  
  4215.  
  4216. //-----------------------------------------------------------------------------
  4217. // Enable Displays
  4218. //-----------------------------------------------------------------------------
  4219.  
  4220. string DataDisp::enable_display_cmd(IntArray& display_nrs)
  4221. {
  4222.     add_aliases(display_nrs);
  4223.  
  4224.     if (display_nrs.size() > 0)
  4225.     return "graph enable display " + numbers(display_nrs);
  4226.     else
  4227.     return "";
  4228. }
  4229.  
  4230. void DataDisp::enable_displaySQ(IntArray& display_nrs, bool verbose, 
  4231.                  bool do_prompt)
  4232. {
  4233.     bool ok = sort_and_check(display_nrs);
  4234.     if (!ok)
  4235.     do_prompt = false;
  4236.  
  4237.     int enabled_data_displays = 0;
  4238.     int i;
  4239.     string cmd = "enable display";
  4240.     for (i = 0; i < display_nrs.size(); i++)
  4241.     {
  4242.     if (gdb->has_enable_display_command() && display_nrs[i] > 0)
  4243.     {
  4244.         cmd += " " + itostring(display_nrs[i]);
  4245.         enabled_data_displays++;
  4246.     }
  4247.     }
  4248.  
  4249.     // Have GDB enable data displays
  4250.     if (enabled_data_displays > 0)
  4251.     {
  4252.     static RefreshInfo info;
  4253.     info.verbose = verbose;
  4254.     info.prompt  = do_prompt;
  4255.  
  4256.     gdb_command(cmd, last_origin, enable_displayOQC, (void *)&info);
  4257.     }
  4258.  
  4259.     // Handle user displays
  4260.     int enabled_user_displays = 0;
  4261.     for (i = 0; i < display_nrs.size(); i++)
  4262.     {
  4263.     DispNode *dn = disp_graph->get(display_nrs[i]);
  4264.     if (dn != 0 && dn->is_user_command() && 
  4265.         dn->disabled() && !dn->deferred())
  4266.     {
  4267.         dn->enable();
  4268.         if (dn->value() != 0)
  4269.         dn->value()->expandAll();
  4270.         enabled_user_displays++;
  4271.     }
  4272.     }
  4273.  
  4274.     if (enabled_data_displays == 0)
  4275.     {
  4276.     refresh_graph_edit();
  4277.  
  4278.     if (do_prompt)
  4279.         prompt();
  4280.     }
  4281. }
  4282.  
  4283. void DataDisp::enable_displayOQC (const string& answer, void *data)
  4284. {
  4285.     if (answer == NO_GDB_ANSWER)
  4286.     return;            // Command was canceled
  4287.  
  4288.     RefreshInfo *info = (RefreshInfo *)data;
  4289.  
  4290.     if (info->verbose)
  4291.     post_gdb_message(answer, false);
  4292.  
  4293.     refresh_displaySQ(0, info->verbose, info->prompt);
  4294. }
  4295.  
  4296.  
  4297. //-----------------------------------------------------------------------------
  4298. // Delete Displays
  4299. //-----------------------------------------------------------------------------
  4300.  
  4301. string DataDisp::delete_display_cmd(IntArray& display_nrs)
  4302. {
  4303.     if (app_data.delete_alias_displays)
  4304.     add_aliases(display_nrs);
  4305.  
  4306.     if (display_nrs.size() > 0)
  4307.     return delete_display_cmd(numbers(display_nrs));
  4308.     else
  4309.     return "";
  4310. }
  4311.  
  4312. string DataDisp::delete_display_cmd(const string& name)
  4313. {
  4314.     return "graph undisplay " + name;
  4315. }
  4316.  
  4317. // Return true iff DISPLAY_NRS contains all data displays
  4318. bool DataDisp::all_data_displays(IntArray& display_nrs)
  4319. {
  4320.     // Fetch given data displays
  4321.     IntArray data_display_nrs;
  4322.     int i;
  4323.     for (i = 0; i < display_nrs.size(); i++)
  4324.     if (display_nrs[i] > 0)
  4325.         data_display_nrs += display_nrs[i];
  4326.  
  4327.     if (data_display_nrs.size() < 2)
  4328.     return false;
  4329.  
  4330.     // Fetch existing data displays
  4331.     IntArray all_data_display_nrs;
  4332.  
  4333.     MapRef ref;
  4334.     for (DispNode* dn = disp_graph->first(ref); 
  4335.      dn != 0;
  4336.      dn = disp_graph->next(ref))
  4337.     {
  4338.     if (!dn->deferred() && !dn->is_user_command())
  4339.         all_data_display_nrs += dn->disp_nr();
  4340.     }
  4341.  
  4342.     // Compare
  4343.     if (data_display_nrs.size() != all_data_display_nrs.size())
  4344.     return false;
  4345.  
  4346.     sort(all_data_display_nrs);
  4347.     sort(data_display_nrs);
  4348.  
  4349.     for (i = 0; i < data_display_nrs.size(); i++)
  4350.     if (data_display_nrs[i] != all_data_display_nrs[i])
  4351.         return false;
  4352.  
  4353.     return true;
  4354. }
  4355.  
  4356. void DataDisp::delete_displaySQ(IntArray& display_nrs, bool verbose, 
  4357.                 bool do_prompt)
  4358. {
  4359.     bool ok = sort_and_check(display_nrs);
  4360.     if (!ok)
  4361.     do_prompt = false;
  4362.  
  4363.     string cmd = "undisplay";
  4364.  
  4365.     int deleted_data_displays = 0;
  4366.  
  4367.     if (gdb->type() == GDB && verbose && all_data_displays(display_nrs))
  4368.     {
  4369.     // We want to delete all data displays.  Use GDB `undisplay'
  4370.     // command without args; this will ask for confirmation.
  4371.     deleted_data_displays = display_nrs.size();
  4372.     }
  4373.     else
  4374.     {
  4375.     // Build command
  4376.     for (int i = 0; i < display_nrs.size(); i++)
  4377.     {
  4378.         if (display_nrs[i] > 0)
  4379.         {
  4380.         if (deleted_data_displays++ > 0 && gdb->wants_display_comma())
  4381.             cmd += ",";
  4382.         cmd += " " + itostring(display_nrs[i]);
  4383.         }
  4384.     }
  4385.     }
  4386.  
  4387.     if (deleted_data_displays > 0 && gdb->has_display_command())
  4388.     {
  4389.     static RefreshInfo info;
  4390.     info.verbose     = verbose;
  4391.     info.prompt      = do_prompt;
  4392.     info.display_nrs = display_nrs;
  4393.  
  4394.     Command c(cmd, last_origin, delete_displayOQC, (void *)&info);
  4395.     if (gdb->has_redisplaying_undisplay())
  4396.         c.verbose = false;
  4397.     else
  4398.         c.verbose = verbose;
  4399.     gdb_command(c);
  4400.     }
  4401.     else
  4402.     {
  4403.     deletion_done(display_nrs, do_prompt);
  4404.     }
  4405. }
  4406.  
  4407. void DataDisp::delete_displayOQC (const string& answer, void *data)
  4408. {
  4409.     if (answer == NO_GDB_ANSWER)
  4410.     return;            // Command was canceled
  4411.  
  4412.     RefreshInfo *info = (RefreshInfo *)data;
  4413.  
  4414.     if (gdb->type() == GDB && answer.contains("(y or n)"))
  4415.     {
  4416.     // The `undisplay' command required confirmation.  Since GDBAgent
  4417.     // does not tell us the outcome, we must check the user reply.
  4418.  
  4419.     string reply = lastUserReply();
  4420.     if (!reply.contains('y', 0))
  4421.     {
  4422.         // Deletion was canceled
  4423.         static IntArray empty;
  4424.         info->display_nrs = empty;
  4425.     }
  4426.     }
  4427.  
  4428.     if (gdb->has_redisplaying_undisplay())
  4429.     {
  4430.     string ans = answer;
  4431.  
  4432.     // Upon `undisplay', Sun DBX redisplays remaining displays
  4433.     // with values.  Process them.
  4434.     if (answer != "" && !answer.contains("no such expression"))
  4435.     {
  4436.         bool disabling_occurred;
  4437.         process_displays(ans, disabling_occurred);
  4438.     }
  4439.  
  4440.     // Show remaining output
  4441.     post_gdb_message(ans);
  4442.     }
  4443.  
  4444.     deletion_done(info->display_nrs, info->prompt);
  4445. }
  4446.  
  4447. void DataDisp::deletion_done (IntArray& display_nrs, bool do_prompt)
  4448. {
  4449.     bool unclustered = false;
  4450.  
  4451.     // Build undo command
  4452.     ostrstream undo_commands;
  4453.     int i;
  4454.     for (i = 0; i < display_nrs.size(); i++)
  4455.     {
  4456.     int nr = display_nrs[i];
  4457.     DispNode *node = disp_graph->get(nr);
  4458.     if (node == 0)
  4459.         continue;        // Already deleted or bad number
  4460.     if (is_cluster(node))
  4461.         continue;        // Saving clusters is a bad idea
  4462.  
  4463.     // Save current state
  4464.     get_node_state(undo_commands, node, true);
  4465.     }
  4466.  
  4467.     string u = string(undo_commands);
  4468.     if (u != "")
  4469.     undo_buffer.add_command(u, true);
  4470.  
  4471.     // Delete nodes
  4472.     for (i = 0; i < display_nrs.size(); i++)
  4473.     {
  4474.     int nr = display_nrs[i];
  4475.  
  4476.     // Delete node from graph
  4477.     DispNode *node = disp_graph->get(nr);
  4478.     if (node == 0)
  4479.         continue;        // Already deleted or bad number
  4480.  
  4481.     if (node->clustered())
  4482.     {
  4483.         // Deleting a clustered node:
  4484.         // force its cluster to be redisplayed
  4485.         DispNode *cluster = disp_graph->get(node->clustered());
  4486.         if (cluster != 0)
  4487.         cluster->set_last_refresh();
  4488.     }
  4489.  
  4490.     if (is_cluster(node))
  4491.     {
  4492.         // Deleting a cluster: uncluster all contained nodes
  4493.         MapRef ref;
  4494.         for (DispNode* dn = disp_graph->first(ref); 
  4495.          dn != 0; dn = disp_graph->next(ref))
  4496.         {
  4497.         if (dn->clustered() == nr)
  4498.         {
  4499.             disp_graph->uncluster(dn);
  4500.             dn->selected() = true;
  4501.             unclustered = true;
  4502.         }
  4503.         }
  4504.     }
  4505.  
  4506.     // Delete the node itself
  4507.     disp_graph->del(nr);
  4508.     }
  4509.  
  4510.     if (display_nrs.size() > 0)
  4511.     {
  4512.     // Refresh arguments
  4513.     if (unclustered)
  4514.         refresh_args();
  4515.  
  4516.     // Refresh editor
  4517.     refresh_graph_edit();
  4518.  
  4519.     // Refresh addresses now
  4520.     force_check_aliases = true;
  4521.     refresh_addr();
  4522.     }
  4523.  
  4524.     if (disp_graph->firstVisibleNode() == 0)
  4525.     {
  4526.     // Deleted last visible display
  4527.     if (app_data.auto_close_data_window)
  4528.     {
  4529.         close_data_window();
  4530.     }
  4531.     }
  4532.  
  4533.     if (do_prompt)
  4534.     prompt();
  4535.  
  4536.     update_infos();
  4537. }
  4538.  
  4539.  
  4540. //-----------------------------------------------------------------------------
  4541. // Handle output of 'info display'
  4542. //-----------------------------------------------------------------------------
  4543.  
  4544. void DataDisp::process_info_display(string& info_display_answer,
  4545.                     bool defer_deleted)
  4546. {
  4547.     int disp_nr;
  4548.     StringMap info_disp_string_map;
  4549.     string *strptr;
  4550.     int max_disp_nr = 0;
  4551.  
  4552.     string next_disp_info = 
  4553.     read_first_disp_info (info_display_answer, gdb);
  4554.     while (next_disp_info != "")
  4555.     {
  4556.     disp_nr = get_positive_nr (next_disp_info);
  4557.     if (disp_nr >= 0)
  4558.     {
  4559.         max_disp_nr = max(max_disp_nr, disp_nr);
  4560.  
  4561.         if (disp_graph->contains(disp_nr)) 
  4562.         {
  4563.         // This is a DDD display.
  4564.         strptr = new string(get_info_disp_str(next_disp_info, gdb));
  4565.         info_disp_string_map.insert (disp_nr, strptr);
  4566.         }
  4567.     }
  4568.     next_disp_info = 
  4569.         read_next_disp_info(info_display_answer, gdb);
  4570.     }
  4571.     next_gdb_display_number = max(next_gdb_display_number, max_disp_nr + 1);
  4572.  
  4573.     // Process DDD displays
  4574.  
  4575.     // Part 1.  Update existing display values.
  4576.     IntArray deleted_displays;
  4577.     bool changed = false;
  4578.     MapRef ref;
  4579.     for (DispNode* dn = disp_graph->first(ref);
  4580.      dn != 0; 
  4581.      dn = disp_graph->next(ref))
  4582.     {
  4583.     if (!dn->is_user_command() && !dn->deferred())
  4584.     {
  4585.         string *disp_info = info_disp_string_map.get(dn->disp_nr());
  4586.         
  4587.         if (disp_info == 0)
  4588.         {
  4589.         // The DDD display is not contained in the GDB
  4590.         // `display' output.  This happens if the debuggee has
  4591.         // changed; in this case, GDB deletes all displays.
  4592.         // If DEFER_DELETED is set, we simply defer the
  4593.         // existing displays such that they can be restored
  4594.         // later.
  4595.         deleted_displays += dn->disp_nr();
  4596.         }
  4597.         else
  4598.         {
  4599.         // Update values
  4600.         if (disp_is_disabled(*disp_info, gdb))
  4601.         {
  4602.             if (dn->enabled())
  4603.             {
  4604.             dn->disable();
  4605.             changed = true;
  4606.             }
  4607.         }
  4608.         else
  4609.         {
  4610.             if (dn->disabled())
  4611.             {
  4612.             changed = true;
  4613.             }
  4614.         }
  4615.  
  4616.         delete disp_info;
  4617.         info_disp_string_map.del(dn->disp_nr());
  4618.         }
  4619.     }
  4620.     }
  4621.  
  4622.     assert(info_disp_string_map.length() == 0);
  4623.  
  4624.  
  4625.     // Part 2.  Defer deleted displays.
  4626.     sort(deleted_displays);
  4627.  
  4628.     // Give an appropriate message
  4629.     if (defer_deleted && deleted_displays.size() >= 1)
  4630.     {
  4631.     MString msg = rm("Deferring display");
  4632.     if (deleted_displays.size() >= 2)
  4633.         msg += rm("s");
  4634.     msg += rm(" ");
  4635.  
  4636.     for (int i = 0; i < deleted_displays.size(); i++)
  4637.     {
  4638.         if (i > 0)
  4639.         {
  4640.         if (deleted_displays.size() == 2)
  4641.             msg += rm(" and ");
  4642.         else if (i == deleted_displays.size() - 1)
  4643.             msg += rm(", and ");
  4644.         else
  4645.             msg += rm(", ");
  4646.         }
  4647.         msg += rm(itostring(deleted_displays[i]));
  4648.     }
  4649.  
  4650.     msg += rm(" because ");
  4651.     if (deleted_displays.size() >= 2)
  4652.         msg += rm("they have");
  4653.     else
  4654.         msg += rm("it has");
  4655.     msg += rm(" been deleted by " + gdb->title());
  4656.  
  4657.     set_status_mstring(msg);
  4658.     }
  4659.  
  4660.     if (defer_deleted)
  4661.     {
  4662.     // Create new deferred displays
  4663.     for (int i = 0; i < deleted_displays.size(); i++)
  4664.     {
  4665.         DispNode *dn = disp_graph->get(deleted_displays[i]);
  4666.  
  4667.         // Fetch old position and dependent info
  4668.         BoxPoint pos = dn->pos();
  4669.  
  4670.         string depends_on = "";
  4671.         for (GraphEdge *edge = dn->firstTo();
  4672.          edge != 0; edge = dn->nextTo(edge))
  4673.         {
  4674.         BoxGraphNode *ancestor = ptr_cast(BoxGraphNode, edge->from());
  4675.         if (ancestor != 0)
  4676.         {
  4677.             int depnr = disp_graph->get_nr(ancestor);
  4678.             DispNode *depnode = disp_graph->get(depnr);
  4679.             if (depnode != 0)
  4680.             {
  4681.             depends_on = depnode->name();
  4682.             break;
  4683.             }
  4684.         }
  4685.         }
  4686.  
  4687.         // Create new deferred node
  4688.         new_displaySQ(dn->name(), dn->scope(), &pos,
  4689.               depends_on, DeferIfNeeded, 
  4690.               dn->clustered(), dn->plotted(),
  4691.               0, false, false);
  4692.     }
  4693.     }
  4694.  
  4695.     // Delete remaining (= undeferred) displays
  4696.     for (int i = 0; i < deleted_displays.size(); i++)
  4697.     {
  4698.     disp_graph->del(deleted_displays[i]);
  4699.     changed = true;
  4700.     }
  4701.  
  4702.     if (deleted_displays.size() >= 1)
  4703.     {
  4704.     force_check_aliases = true;
  4705.     refresh_addr();
  4706.     }
  4707.  
  4708.     if (changed)
  4709.     refresh_graph_edit();
  4710.  
  4711.     refresh_display_list();
  4712. }
  4713.  
  4714.  
  4715.  
  4716. //-----------------------------------------------------------------------------
  4717. // Process `display' output
  4718. //-----------------------------------------------------------------------------
  4719.  
  4720. string DataDisp::process_displays(string& displays,
  4721.                   bool& disabling_occurred)
  4722. {
  4723.     string not_my_displays;
  4724.     disabling_occurred = false;
  4725.  
  4726.     strip_space(displays);
  4727.     if (displays.length() == 0)
  4728.     {
  4729.     bool have_displays = false;
  4730.     MapRef ref;
  4731.     for (DispNode* dn = disp_graph->first(ref); 
  4732.          !have_displays && dn != 0;
  4733.          dn = disp_graph->next(ref))
  4734.     {
  4735.         have_displays = (!dn->is_user_command() && dn->active());
  4736.     }
  4737.  
  4738.     if (!have_displays)
  4739.         return "";        // No data and no displays
  4740.     }
  4741.  
  4742.     ProgressMeter s("Updating displays");
  4743.  
  4744.     // Store graph displays in DISP_STRING_MAP; return all other
  4745.     // (text) displays as well as error messages
  4746.     int disp_nr = 0;
  4747.     StringMap disp_string_map;
  4748.  
  4749. #if LOG_DISPLAYS
  4750.     clog << "Updating displays " << quote(displays) << "...\n";
  4751. #endif
  4752.  
  4753.     string next_display = read_next_display (displays, gdb);
  4754.     while (next_display != "") 
  4755.     {
  4756. #if LOG_DISPLAYS
  4757.         clog << "Updating display " << quote(next_display);
  4758. #endif
  4759.     if (gdb->has_numbered_displays())
  4760.     {
  4761.         disp_nr = get_positive_nr (next_display);
  4762.     }
  4763.     else
  4764.     {
  4765.         disp_nr = 0;
  4766.         string disp_name = next_display;
  4767.         disp_name = read_disp_name(disp_name, gdb);
  4768.         if (disp_name != "")
  4769.         {
  4770.         MapRef ref;
  4771.         for (DispNode* dn = disp_graph->first(ref); 
  4772.              dn != 0;
  4773.              dn = disp_graph->next(ref))
  4774.         {
  4775.             if (dn->name() == disp_name)
  4776.             {
  4777.             disp_nr = dn->disp_nr();
  4778.             break;
  4779.             }
  4780.         }
  4781.         }
  4782.     }
  4783.  
  4784. #if LOG_DISPLAYS
  4785.     clog << " (number " << disp_nr << ")\n";
  4786. #endif
  4787.  
  4788.     if (is_disabling (next_display, gdb))
  4789.     {
  4790.         // A display was disabled: record this and try again
  4791.         disabling_occurred = true;
  4792.         DispNode *dn = disp_graph->get(disp_nr);
  4793.         if (disp_nr >= 0 && dn != 0)
  4794.         {
  4795.         string error_msg = get_disp_value_str(next_display, gdb);
  4796.         post_gdb_message(error_msg);
  4797.         dn->make_active();
  4798.         dn->disable();
  4799.         }
  4800.         else
  4801.         {
  4802.         not_my_displays = next_display; // Memorize this one only
  4803.         }
  4804.  
  4805.         // Clear DISP_STRING_MAP and try again
  4806.         disp_string_map.delete_all_contents();
  4807.  
  4808.         return not_my_displays;
  4809.     }
  4810.  
  4811.     if (!is_valid(next_display, gdb))
  4812.     {
  4813.         // Display is not active
  4814.     }
  4815.     else if (disp_nr >= 0 && disp_graph->contains(disp_nr))
  4816.     {
  4817.         string *strptr = new string(get_disp_value_str(next_display, gdb));
  4818.         disp_string_map.insert(disp_nr, strptr);
  4819.         s.total += strptr->length();
  4820.     }
  4821.     else 
  4822.     {
  4823.         not_my_displays += next_display + '\n';
  4824.     }
  4825.  
  4826.     next_display = read_next_display (displays, gdb);
  4827.     }
  4828.  
  4829.     // Process own displays
  4830.     bool changed   = false;
  4831.     bool activated = false;
  4832.  
  4833.     // Change `active' status.  This must be done before updating
  4834.     // values, since inactive nodes must not be bumped after a resize.
  4835.     MapRef ref;
  4836.     int k;
  4837.     for (k = disp_graph->first_nr(ref); k != 0; k = disp_graph->next_nr(ref))
  4838.     {
  4839.     DispNode *dn = disp_graph->get(k);
  4840.     if (dn->is_user_command() || dn->deferred())
  4841.         continue;
  4842.  
  4843.     if (disp_string_map.contains(k))
  4844.     {
  4845.         if (disp_graph->make_active(dn))
  4846.         {
  4847.         // Now active
  4848.         changed = activated = true;
  4849.         }
  4850.     }
  4851.     else
  4852.     {
  4853.         // Node is no more part of `display' output
  4854.         if (disp_graph->make_inactive(dn))
  4855.         {
  4856.         // Now inactive
  4857.         changed = true;
  4858.         }
  4859.     }
  4860.     }
  4861.  
  4862.     // Update values
  4863.     for (k = disp_graph->first_nr(ref); k != 0; k = disp_graph->next_nr(ref))
  4864.     {
  4865.     DispNode* dn = disp_graph->get(k);
  4866.     if (dn->is_user_command() || dn->deferred())
  4867.         continue;
  4868.  
  4869.     if (!disp_string_map.contains(k))
  4870.     {
  4871.         undo_buffer.remove_display(dn->name());
  4872.         continue;
  4873.     }
  4874.  
  4875.     // Update existing node
  4876.     string *strptr = disp_string_map.get(k);
  4877.     s.current = strptr->length();
  4878.  
  4879.     undo_buffer.add_display(dn->name(), *strptr);
  4880.  
  4881.     if (dn->update(*strptr))
  4882.     {
  4883.         // New value
  4884.         changed = true;
  4885.     }
  4886.     if (*strptr != "" && !(strptr->matches(rxwhite)))
  4887.     {
  4888.         // After the `display' output, more info followed
  4889.         // (e.g. the returned value when `finish'ing)
  4890.         not_my_displays += strptr->after(rxwhite);
  4891.     }
  4892.  
  4893.     s.base += s.current;
  4894.  
  4895.     delete strptr;
  4896.     disp_string_map.del(k);
  4897.     }
  4898.  
  4899.     assert (disp_string_map.length() == 0);
  4900.     if (activated)
  4901.     {
  4902.     force_check_aliases = true;
  4903.     refresh_addr();
  4904.     }
  4905.  
  4906.     if (changed)
  4907.     refresh_graph_edit();
  4908.  
  4909.     return not_my_displays;
  4910. }
  4911.  
  4912.  
  4913. //-----------------------------------------------------------------------------
  4914. // Undo stuff
  4915. //-----------------------------------------------------------------------------
  4916.  
  4917. void DataDisp::update_displays(const StringArray& displays, 
  4918.                    const StringArray& values,
  4919.                    const StringArray& addrs)
  4920. {
  4921.     assert(displays.size() == values.size());
  4922.     assert(displays.size() == addrs.size());
  4923.  
  4924.     if (displays.size() == 0)
  4925.     {
  4926.     bool have_displays = false;
  4927.     MapRef ref;
  4928.     for (DispNode* dn = disp_graph->first(ref); 
  4929.          !have_displays && dn != 0;
  4930.          dn = disp_graph->next(ref))
  4931.     {
  4932.         have_displays = dn->active();
  4933.     }
  4934.  
  4935.     if (!have_displays)
  4936.         return;        // No data and no displays
  4937.     }
  4938.  
  4939.     bool changed      = false;
  4940.     bool addr_changed = false;
  4941.  
  4942.     // Check `active' status
  4943.     MapRef ref;
  4944.     for (DispNode *dn = disp_graph->first(ref);
  4945.      dn != 0; dn = disp_graph->next(ref))
  4946.     {
  4947.     if (is_cluster(dn))
  4948.         continue;
  4949.     if (dn->deferred())
  4950.         continue;
  4951.  
  4952.     bool found = false;
  4953.     for (int i = 0; !found && i < displays.size(); i++)
  4954.         found = (displays[i] == dn->name());
  4955.  
  4956.     if (found)
  4957.     {
  4958.         if (!dn->active())
  4959.         {
  4960.         disp_graph->make_active(dn);
  4961.         changed = true;
  4962.         }
  4963.     }
  4964.     else
  4965.     {
  4966.         if (dn->active())
  4967.         {
  4968.         disp_graph->make_inactive(dn);
  4969.         changed = true;
  4970.         }
  4971.     }
  4972.     }
  4973.  
  4974.     ProgressMeter s("Restoring displays");
  4975.     int i;
  4976.     for (i = 0; i < values.size(); i++)
  4977.     s.total += values[i].length();
  4978.  
  4979.     // Update values
  4980.     for (i = 0; i < displays.size(); i++)
  4981.     {
  4982.     const string& name  = displays[i];
  4983.     const string& value = values[i];
  4984.     const string& addr  = addrs[i];
  4985.  
  4986.     MapRef ref;
  4987.     for (DispNode *dn = disp_graph->first(ref);
  4988.          dn != 0; dn = disp_graph->next(ref))
  4989.     {
  4990.         if (dn->name() != name)
  4991.         continue;
  4992.         if (dn->deferred())
  4993.         continue;
  4994.  
  4995.         s.current = value.length();
  4996.  
  4997.         string v = value;
  4998.         if (dn->update(v))
  4999.         changed = true;
  5000.  
  5001.         if (dn->addr() != addr)
  5002.         {
  5003.         dn->set_addr(addr);
  5004.         addr_changed = true;
  5005.         }
  5006.  
  5007.         s.base += s.current;
  5008.     }
  5009.     }
  5010.  
  5011.     bool suppressed = false;
  5012.     if (addr_changed)
  5013.     suppressed = check_aliases();
  5014.  
  5015.     if (changed)
  5016.     refresh_graph_edit();
  5017.  
  5018.     if (addr_changed)
  5019.     refresh_display_list(suppressed);
  5020. }
  5021.  
  5022. // Restore sane state after undoing / redoing
  5023. void DataDisp::make_sane()
  5024. {
  5025.     // Activate all user displays.  Undo may leave them deactivated.
  5026.     MapRef ref;
  5027.     for (DispNode* dn = disp_graph->first(ref); 
  5028.      dn != 0; dn = disp_graph->next(ref))
  5029.     {
  5030.     if (dn->is_user_command())
  5031.         dn->make_active();
  5032.     }
  5033. }
  5034.  
  5035. //-----------------------------------------------------------------------------
  5036. // Handle output of user commands
  5037. //-----------------------------------------------------------------------------
  5038.  
  5039. void DataDisp::process_user (StringArray& answers)
  5040. {
  5041.     if (answers.size() == 0)
  5042.     return;
  5043.  
  5044.     ProgressMeter s("Updating status displays");
  5045.  
  5046.     int i;
  5047.     for (i = 0; i < answers.size(); i++)
  5048.     s.total += answers[i].length();
  5049.  
  5050.     i = 0;
  5051.     bool changed = false;
  5052.     MapRef ref;
  5053.     for (int k = disp_graph->first_nr(ref); 
  5054.          k != 0 && i < answers.size();
  5055.          k = disp_graph->next_nr(ref))
  5056.     {
  5057.     DispNode* dn = disp_graph->get(k);
  5058.  
  5059.     if (dn->is_user_command() && dn->enabled() && 
  5060.         !dn->deferred() && !dn->constant())
  5061.     {
  5062.         string answer = answers[i++];
  5063.  
  5064.         undo_buffer.add_display(dn->name(), answer);
  5065.  
  5066.         s.current = answer.length();
  5067.  
  5068.         if (dn->update(answer))
  5069.         changed = true;
  5070.  
  5071.         s.base += s.current;
  5072.     }
  5073.     }
  5074.  
  5075.     if (changed)
  5076.     refresh_graph_edit();
  5077. }
  5078.  
  5079.  
  5080.  
  5081. //-----------------------------------------------------------------------------
  5082. // Handle change of current scope
  5083. //-----------------------------------------------------------------------------
  5084.  
  5085. bool DataDisp::need_scope()
  5086. {
  5087.     MapRef ref;
  5088.     for (DispNode* dn = disp_graph->first(ref); 
  5089.      dn != 0;
  5090.      dn = disp_graph->next(ref))
  5091.     {
  5092.     if (dn->deferred())
  5093.         return true;
  5094.     }
  5095.  
  5096.     return false;
  5097. }
  5098.  
  5099. void DataDisp::process_scope(const string& scope)
  5100. {
  5101.     // Fetch deferred displays that are in current scope
  5102.     IntArray deferred_displays;
  5103.     MapRef ref;
  5104.     for (DispNode* dn = disp_graph->first(ref); 
  5105.      dn != 0;
  5106.      dn = disp_graph->next(ref))
  5107.     {
  5108.     if (dn->deferred() && dn->scope() == scope)
  5109.         deferred_displays += dn->disp_nr();
  5110.     }
  5111.  
  5112.     if (deferred_displays.size() > 0)
  5113.     {
  5114.     // Enable these deferred displays.
  5115.     sort(deferred_displays, absolute_le);
  5116.  
  5117.     MString msg = rm("Enabling deferred display");
  5118.     if (deferred_displays.size() >= 2)
  5119.         msg += rm("s");
  5120.     msg += rm(" ");
  5121.  
  5122.     int i;
  5123.     for (i = 0; i < deferred_displays.size(); i++)
  5124.     {
  5125.         if (i > 0)
  5126.         {
  5127.         if (deferred_displays.size() == 2)
  5128.             msg += rm(" and ");
  5129.         else if (i == deferred_displays.size() - 1)
  5130.             msg += rm(", and ");
  5131.         else
  5132.             msg += rm(", ");
  5133.         }
  5134.         msg += rm(itostring(deferred_displays[i]));
  5135.     }
  5136.     set_status_mstring(msg);
  5137.  
  5138.     for (i = 0; i < deferred_displays.size(); i++)
  5139.     {
  5140.         DispNode *dn = disp_graph->get(deferred_displays[i]);
  5141.         assert(dn != 0 && dn->deferred());
  5142.  
  5143.         BoxPoint pos = dn->pos();
  5144.         Command c(new_display_cmd(dn->name(), &pos, dn->depends_on(),
  5145.                       dn->clustered(), dn->plotted()));
  5146.         c.verbose = false;
  5147.         c.prompt  = false;
  5148.         gdb_command(c);
  5149.     }
  5150.  
  5151.     for (i = 0; i < deferred_displays.size(); i++)
  5152.     {
  5153.         disp_graph->del(deferred_displays[i]);
  5154.     }
  5155.     }
  5156. }
  5157.  
  5158.  
  5159.  
  5160. //----------------------------------------------------------------------------
  5161. // Display Editor
  5162. //----------------------------------------------------------------------------
  5163.  
  5164. // Sort LABELS and SELECTED
  5165. static void sort(string *labels, bool *selected, int size)
  5166. {
  5167.     // Shell sort -- simple and fast
  5168.     int h = 1;
  5169.     do {
  5170.     h = h * 3 + 1;
  5171.     } while (h <= size);
  5172.     do {
  5173.     h /= 3;
  5174.     for (int i = h; i < size; i++)
  5175.     {
  5176.         string v = labels[i];
  5177.         bool   b = selected[i];
  5178.         int    j;
  5179.         for (j = i; 
  5180.          j >= h && get_positive_nr(labels[j - h]) > get_positive_nr(v);
  5181.          j -= h)
  5182.         {
  5183.         labels[j]   = labels[j - h];
  5184.         selected[j] = selected[j - h];
  5185.         }
  5186.         if (i != j)
  5187.         {
  5188.         labels[j]   = v;
  5189.         selected[j] = b;
  5190.         }
  5191.     }
  5192.     } while (h != 1);
  5193. }
  5194.  
  5195. static string fmt(string s, unsigned size)
  5196. {
  5197.     if (s.length() > size)
  5198.     s = s.before(int(size));
  5199.     else if (s.length() < size)
  5200.     s += replicate(' ', size - s.length());
  5201.  
  5202.     assert(s.length() == size);
  5203.     return s;
  5204. }
  5205.  
  5206. static int max_width(const StringArray& s)
  5207. {
  5208.     int w = 0;
  5209.  
  5210.     for (int i = 0; i < s.size(); i++)
  5211.     w = max(w, s[i].length());
  5212.  
  5213.     return w;
  5214. }
  5215.  
  5216. // Create labels for the list
  5217. void DataDisp::refresh_display_list(bool silent)
  5218. {
  5219.     if (display_list_w == 0)
  5220.     return;
  5221.  
  5222.     int number_of_displays = disp_graph->count_all();
  5223.  
  5224.     StringArray nums;
  5225.     StringArray states;
  5226.     StringArray exprs;
  5227.     StringArray scopes;
  5228.     StringArray addrs;
  5229.  
  5230.     if (number_of_displays > 0)
  5231.     {
  5232.     // Add titles
  5233.     nums   += "Num";
  5234.     states += "State";
  5235.     exprs  += "Expression";
  5236.     scopes += "Scope";
  5237.     addrs  += "Address";
  5238.     }
  5239.     else
  5240.     {
  5241.     nums   += "";
  5242.     states += "";
  5243.     exprs  += "";
  5244.     scopes += "";
  5245.     addrs  += "";
  5246.     }
  5247.  
  5248.     MapRef ref;
  5249.     int k;
  5250.     for (k = disp_graph->first_nr(ref); k != 0; k = disp_graph->next_nr(ref))
  5251.     {
  5252.     DispNode* dn = disp_graph->get(k);
  5253.  
  5254.     nums += itostring(dn->disp_nr()) + ":";
  5255.  
  5256.     if (dn->deferred())
  5257.         states += "deferred";
  5258.     else if (!dn->active())
  5259.         states += "not active";
  5260.     else if (dn->clustered())
  5261.         states += "clustered";
  5262.     else if (dn->hidden() && dn->alias_of != 0)
  5263.         states += "alias of " + itostring(dn->alias_of);
  5264.     else if (dn->enabled())
  5265.         states += "enabled";
  5266.     else
  5267.         states += "disabled";
  5268.     
  5269.     exprs  += dn->name();
  5270.     scopes += dn->scope();
  5271.     addrs  += dn->addr();
  5272.     }
  5273.  
  5274.     int nums_width   = max_width(nums);
  5275.     int exprs_width  = max_width(exprs)  + 1;
  5276.     int states_width = max_width(states) + 1;
  5277.     int scopes_width = max_width(scopes) + 1;
  5278.     int addrs_width  = max_width(addrs);
  5279.  
  5280.     string *label_list  = new string[number_of_displays + 1];
  5281.     bool *selected_list = new bool[number_of_displays + 1];
  5282.  
  5283.     // Set titles
  5284.     int display_count = 0;
  5285.     string line;
  5286.     if (number_of_displays > 0)
  5287.     {
  5288.     line = fmt(nums[display_count], nums_width) 
  5289.         + " " + fmt(exprs[display_count], exprs_width)
  5290.         + " " + fmt(states[display_count], states_width)
  5291.         + " " + fmt(scopes[display_count], scopes_width);
  5292.     if (detect_aliases)
  5293.         line += " " + fmt(addrs[display_count], addrs_width);
  5294.     }
  5295.     else
  5296.     {
  5297.     line = "No displays.                           ";
  5298.     }
  5299.     label_list   [display_count] = line;
  5300.     selected_list[display_count] = false;
  5301.     display_count++;
  5302.  
  5303.     int selected_displays = 0;    // Number of selected displays
  5304.     int index_selected    = -1;    // Index of single selected display
  5305.  
  5306.     // Set contents
  5307.     for (k = disp_graph->first_nr(ref); k != 0; k = disp_graph->next_nr(ref))
  5308.     {
  5309.     DispNode* dn = disp_graph->get(k);
  5310.     line = fmt(nums[display_count], nums_width) 
  5311.         + " " + fmt(exprs[display_count], exprs_width)
  5312.         + " " + fmt(states[display_count], states_width)
  5313.         + " " + fmt(scopes[display_count], scopes_width);
  5314.     if (detect_aliases)
  5315.         line += " " + fmt(addrs[display_count], addrs_width);
  5316.  
  5317.     bool select = selected(dn);
  5318.  
  5319.     label_list   [display_count] = line;
  5320.     selected_list[display_count] = select;
  5321.  
  5322.     if (select)
  5323.     {
  5324.         selected_displays++;
  5325.         index_selected = display_count;
  5326.     }
  5327.  
  5328.     display_count++;
  5329.     }
  5330.  
  5331.     sort(label_list + 1, selected_list + 1, display_count - 1);
  5332.  
  5333.     setLabelList(display_list_w, label_list, selected_list, display_count, 
  5334.          number_of_displays > 0, false);
  5335.  
  5336.     if (!silent)
  5337.     {
  5338.     // Setup status line
  5339.     MString msg;
  5340.  
  5341.     if (selected_displays == 1)
  5342.     {
  5343.         // Show info about single selected display
  5344.         DispNode *dn = selected_node();
  5345.         DispValue *dv = 0;
  5346.         if (dn != 0)
  5347.         {
  5348.         if (dn->disabled())
  5349.             dv = dn->value();
  5350.         else
  5351.             dv = dn->selected_value();
  5352.         }
  5353.  
  5354.         if (dv != 0)
  5355.         {
  5356.         DataDispCount count(disp_graph);
  5357.  
  5358.         // Value within display selected
  5359.         msg = rm("In display " + nums[index_selected] + " ");
  5360.  
  5361.         string title = dv->full_name();
  5362.         // shorten(title, DispBox::max_display_title_length);
  5363.         msg += tt(title);
  5364.         msg += rm(" (double-click to ");
  5365.         if (dv->type() == Pointer && !dv->collapsed())
  5366.             msg += rm("dereference");
  5367.         else if (count.selected_collapsed > 0)
  5368.             msg += rm("show more");
  5369.         else
  5370.             msg += rm("hide");
  5371.  
  5372.         msg += rm(")");
  5373.         }
  5374.         else
  5375.         {
  5376.         // Display selected
  5377.         msg = rm("Display " + nums[index_selected] + " ");
  5378.  
  5379.         string title = exprs[index_selected];
  5380.         // shorten(title, DispBox::max_display_title_length);
  5381.         msg += tt(title);
  5382.  
  5383.         msg += rm(" (" + states[index_selected]);
  5384.         if (scopes[index_selected] != "")
  5385.         {
  5386.             msg += rm(", scope ");
  5387.             msg += tt(scopes[index_selected]);
  5388.         }
  5389.  
  5390.         if (detect_aliases && addrs[index_selected] != "")
  5391.         {
  5392.             msg += rm(", address ");
  5393.             msg += tt(addrs[index_selected]);
  5394.         }
  5395.  
  5396.         msg += rm(")");
  5397.         }
  5398.  
  5399.         set_status_mstring(msg);
  5400.     }
  5401.     else if (selected_displays > 1)
  5402.     {
  5403.         // Show info about multiple selected displays
  5404.         msg = rm("Displays ");
  5405.         IntArray displays;
  5406.         for (k = disp_graph->first_nr(ref); k != 0; 
  5407.          k = disp_graph->next_nr(ref))
  5408.         {
  5409.         DispNode* dn = disp_graph->get(k);
  5410.         if (selected(dn))
  5411.             displays += dn->disp_nr();
  5412.         }
  5413.  
  5414.         sort(displays);
  5415.         assert(displays.size() == selected_displays);
  5416.  
  5417.         for (k = 0; k < displays.size(); k++)
  5418.         {
  5419.         if (k > 0)
  5420.         {
  5421.             if (displays.size() == 2)
  5422.             msg += rm(" and ");
  5423.             else if (k == displays.size() - 1)
  5424.             msg += rm(", and ");
  5425.             else
  5426.             msg += rm(", ");
  5427.         }
  5428.         msg += rm(itostring(displays[k]));
  5429.         }
  5430.         msg += rm(" (" + itostring(displays.size()) 
  5431.                   + " displays)");
  5432.  
  5433.         set_status_mstring(msg);
  5434.     }
  5435.     }
  5436.  
  5437.     delete[] label_list;
  5438.     delete[] selected_list;
  5439. }
  5440.  
  5441.  
  5442. void DataDisp::EditDisplaysCB(Widget, XtPointer, XtPointer)
  5443. {
  5444.     manage_and_raise(edit_displays_dialog_w);
  5445. }
  5446.  
  5447.  
  5448. //----------------------------------------------------------------------------
  5449. // Value Editor
  5450. //----------------------------------------------------------------------------
  5451.  
  5452. struct SetInfo {
  5453.     string name;        // The variable to be set
  5454.     Widget text;        // The widget containing the value
  5455.     Widget dialog;        // The prompt dialog used
  5456.     bool running;        // True if a command has been submitted
  5457. };
  5458.  
  5459. void DataDisp::DeleteSetInfoCB(Widget, XtPointer client_data, XtPointer)
  5460. {
  5461.     SetInfo *info = (SetInfo *)client_data;
  5462.     info->dialog = 0;
  5463.     info->text   = 0;
  5464.  
  5465.     if (info->running)
  5466.     {
  5467.     // The command is still running - don't delete info now
  5468.     }
  5469.     else
  5470.     {
  5471.     delete info;
  5472.     }
  5473. }
  5474.  
  5475. void DataDisp::setCB(Widget w, XtPointer, XtPointer)
  5476. {
  5477.     if (!gdb->has_assign_command())
  5478.     return;
  5479.  
  5480.     string name;
  5481.     DispValue *disp_value = selected_value();
  5482.     if (disp_value != 0)
  5483.     name = disp_value->full_name();
  5484.     else
  5485.     name = source_arg->get_string();
  5486.  
  5487.     bool can_set = (name != "") && !is_file_pos(name);
  5488.     if (!can_set)
  5489.     return;
  5490.  
  5491.     string value = gdbValue(name);
  5492.     if (value == NO_GDB_ANSWER)
  5493.     {
  5494.     value = "";        // GDB is busy - don't show old value
  5495.     }
  5496.     else if (!is_valid(value, gdb))
  5497.     {
  5498.     post_gdb_message(value);
  5499.     value = "";        // Variable cannot be accessed
  5500.     }
  5501.     value = assignment_value(value);
  5502.  
  5503.     // Make sure the old value is saved in the history
  5504.     add_to_history(gdb->assign_command(name, value));
  5505.  
  5506.     SetInfo *info = new SetInfo;
  5507.     info->name = name;
  5508.     info->running = false;
  5509.  
  5510.     Arg args[10];
  5511.     int arg = 0;
  5512.  
  5513.     XtSetArg(args[arg], XmNdeleteResponse, XmDESTROY); arg++;
  5514.     XtSetArg(args[arg], XmNautoUnmanage,   False);     arg++;
  5515.     info->dialog = 
  5516.     verify(XmCreatePromptDialog(find_shell(w), "set_dialog", args, arg));
  5517.  
  5518.     Delay::register_shell(info->dialog);
  5519.  
  5520.     XtAddCallback(info->dialog, XmNdestroyCallback, 
  5521.           DeleteSetInfoCB, XtPointer(info));
  5522.  
  5523.     if (lesstif_version <= 79)
  5524.     XtUnmanageChild(XmSelectionBoxGetChild(info->dialog,
  5525.                            XmDIALOG_APPLY_BUTTON));
  5526.     XtUnmanageChild(XmSelectionBoxGetChild(info->dialog, 
  5527.                        XmDIALOG_TEXT));
  5528.     XtUnmanageChild(XmSelectionBoxGetChild(info->dialog, 
  5529.                        XmDIALOG_SELECTION_LABEL));
  5530.  
  5531.     arg = 0;
  5532.     XtSetArg(args[arg], XmNmarginWidth,  0); arg++;
  5533.     XtSetArg(args[arg], XmNmarginHeight, 0); arg++;
  5534.     XtSetArg(args[arg], XmNborderWidth,  0); arg++;
  5535.     XtSetArg(args[arg], XmNadjustMargin, False); arg++;
  5536.     Widget box = verify(XmCreateRowColumn(info->dialog, "box", args, arg));
  5537.     XtManageChild(box);
  5538.  
  5539.     arg = 0;
  5540.     MString prompt = bf("Set value of ") + tt(name);
  5541.     XtSetArg(args[arg], XmNalignment, XmALIGNMENT_BEGINNING); arg++;
  5542.     XtSetArg(args[arg], XmNlabelString, prompt.xmstring());   arg++;
  5543.     Widget label = verify(XmCreateLabel(box, "label", args, arg));
  5544.     XtManageChild(label);
  5545.  
  5546.     arg = 0;
  5547.     XtSetArg(args[arg], XmNvalue, value.chars()); arg++;
  5548.     info->text = verify(CreateComboBox(box, "text", args, arg));
  5549.     XtManageChild(info->text);
  5550.  
  5551.     tie_combo_box_to_history(info->text, set_history_filter);
  5552.  
  5553.     XtAddCallback(info->dialog, XmNokCallback,     setDCB, XtPointer(info));
  5554.     XtAddCallback(info->dialog, XmNapplyCallback,  setDCB, XtPointer(info));
  5555.     XtAddCallback(info->dialog, XmNhelpCallback,   ImmediateHelpCB, 0);
  5556.  
  5557.     XtAddCallback(info->dialog, XmNcancelCallback,
  5558.           DestroyThisCB, XtPointer(info->dialog));
  5559.  
  5560.     Widget apply = XmSelectionBoxGetChild(info->dialog, XmDIALOG_APPLY_BUTTON);
  5561.     XtManageChild(apply);
  5562.     manage_and_raise(info->dialog);
  5563. }
  5564.  
  5565. void DataDisp::SetDone(const string& complete_answer, void *qu_data)
  5566. {
  5567.     SetInfo *info = (SetInfo *)qu_data;
  5568.     info->running = false;
  5569.  
  5570.     if (info->dialog == 0)
  5571.     {
  5572.     // Dialog has been destroyed while the command was in the queue
  5573.     delete info;
  5574.     return;
  5575.     }
  5576.  
  5577.     if (complete_answer == NO_GDB_ANSWER)
  5578.     return;            // Command was canceled - keep dialog open
  5579.     if (!is_valid(complete_answer, gdb))
  5580.     return;            // Bad value - keep dialog open
  5581.  
  5582.     // All done - pop down dialog
  5583.     XtDestroyWidget(info->dialog);
  5584. }
  5585.  
  5586. void DataDisp::setDCB(Widget, XtPointer client_data, XtPointer call_data)
  5587. {
  5588.     SetInfo *info = (SetInfo *)client_data;
  5589.  
  5590.     if (info->running)
  5591.     return;            // Already running with a value
  5592.  
  5593.     XmSelectionBoxCallbackStruct *cbs = 
  5594.     (XmSelectionBoxCallbackStruct *)call_data;
  5595.  
  5596.     String value_s = XmTextFieldGetString(info->text);
  5597.     string value(value_s);
  5598.     XtFree(value_s);
  5599.  
  5600.     Command c(gdb->assign_command(info->name, value), last_origin);
  5601.     if (cbs->reason != XmCR_APPLY)
  5602.     {
  5603.     // We've pressed OK => destroy widget as soon as command completes.
  5604.  
  5605.     info->running = true;
  5606.     c.callback    = SetDone;
  5607.     c.data        = XtPointer(info);
  5608.     }
  5609.     gdb_command(c);
  5610. }
  5611.  
  5612.  
  5613. //----------------------------------------------------------------------------
  5614. // Helpers for user displays
  5615. //-----------------------------------------------------------------------------
  5616.  
  5617. bool DataDisp::have_user_display(const string& name)
  5618. {
  5619.     MapRef ref;
  5620.     for (DispNode* dn = disp_graph->first(ref); 
  5621.      dn != 0;
  5622.      dn = disp_graph->next(ref))
  5623.     {
  5624.     if (dn->user_command() == name)
  5625.         return true;
  5626.     }
  5627.  
  5628.     return false;
  5629. }
  5630.  
  5631. void DataDisp::new_user_display(const string& name)
  5632. {
  5633.     // Check for duplicates
  5634.     if (have_user_display(name))
  5635.     return;
  5636.  
  5637.     gdb_command("graph display `" + name + "`", last_origin);
  5638. }
  5639.  
  5640. void DataDisp::delete_user_display(const string& name)
  5641. {
  5642.     IntArray killme;
  5643.  
  5644.     MapRef ref;
  5645.     for (DispNode* dn = disp_graph->first(ref); 
  5646.      dn != 0;
  5647.      dn = disp_graph->next(ref))
  5648.     {
  5649.     if (dn->user_command() == name)
  5650.     {
  5651.         killme += dn->disp_nr();
  5652.     }
  5653.     }
  5654.  
  5655.     delete_display(killme);
  5656.  
  5657.     refresh_graph_edit();
  5658. }
  5659.  
  5660.  
  5661. //----------------------------------------------------------------------------
  5662. // Language changed - re-label buttons
  5663. //----------------------------------------------------------------------------
  5664.  
  5665. void DataDisp::language_changedHP(Agent *source, void *, void *)
  5666. {
  5667.     GDBAgent *gdb = ptr_cast(GDBAgent, source);
  5668.     (void) gdb;            // Use it
  5669.     assert(gdb != 0);
  5670.  
  5671.     string arg = source_arg->get_string();
  5672.     if (selected_value() != 0)
  5673.     arg = selected_value()->full_name();
  5674.  
  5675.     string label("Display " + deref(arg, "()"));
  5676.  
  5677.     set_label(shortcut_menu[ShortcutItms::Dereference2].widget, label);
  5678.     set_label(node_popup[NodeItms::Dereference].widget, label);
  5679.     set_label(display_area[DisplayItms::Dereference].widget, label);
  5680.     set_label(graph_cmd_area[CmdItms::Dereference].widget, label);
  5681. }
  5682.  
  5683.  
  5684.  
  5685.  
  5686. //----------------------------------------------------------------------------
  5687. // Titles
  5688. //----------------------------------------------------------------------------
  5689.  
  5690. // Refresh titles after change in APP_DATA
  5691. void DataDisp::refresh_titles()
  5692. {
  5693.     bool changed = disp_graph->refresh_titles();
  5694.     if (changed)
  5695.     refresh_graph_edit();
  5696. }
  5697.  
  5698.  
  5699.  
  5700. //----------------------------------------------------------------------------
  5701. // Display Clustering
  5702. //----------------------------------------------------------------------------
  5703.  
  5704. // Set whether aliases are to be detected
  5705. void DataDisp::set_cluster_displays(bool value)
  5706. {
  5707.     if (value == cluster_displays)
  5708.     return;
  5709.  
  5710.     cluster_displays = value;
  5711.  
  5712.     if (cluster_displays)
  5713.     {
  5714.     // Cluster all independent data displays
  5715.     int target_cluster = 0;
  5716.  
  5717.     MapRef ref;
  5718.     for (DispNode *dn = disp_graph->first(ref); 
  5719.          dn != 0; dn = disp_graph->next(ref))
  5720.     {
  5721.         if (dn->is_user_command())
  5722.         continue;    // No data display
  5723.  
  5724.         if (dn->firstTo() != 0 && dn->firstTo()->from() != dn)
  5725.         continue;    // Dependent display
  5726.  
  5727.         if (dn->clustered())
  5728.         continue;    // Already clustered
  5729.  
  5730.         if (target_cluster == 0)
  5731.         target_cluster = current_cluster();
  5732.         disp_graph->cluster(dn, target_cluster);
  5733.     }
  5734.  
  5735.     if (target_cluster != 0)
  5736.         refresh_graph_edit();
  5737.     }
  5738.     else
  5739.     {
  5740.     // Uncluster all
  5741.     IntArray all_clusters;
  5742.     get_all_clusters(all_clusters);
  5743.  
  5744.     IntArray killme;
  5745.  
  5746.     for (int i = 0; i < all_clusters.size(); i++)
  5747.     {
  5748.         DispNode *cluster = disp_graph->get(all_clusters[i]);
  5749.         if (cluster != 0)
  5750.         {
  5751.         // Delete cluster
  5752.         killme += all_clusters[i];
  5753.         }
  5754.     }
  5755.  
  5756.     if (killme.size() > 0)
  5757.     {
  5758.         delete_display(killme);
  5759.         refresh_graph_edit();
  5760.     }
  5761.     }
  5762. }
  5763.  
  5764. void DataDisp::toggleClusterSelectedCB(Widget w, XtPointer client_data, 
  5765.                        XtPointer call_data)
  5766. {
  5767.     DataDispCount count(disp_graph);
  5768.  
  5769.     if (count.selected_unclustered > 0)
  5770.     {
  5771.     clusterSelectedCB(w, client_data, call_data);
  5772.     }
  5773.     else
  5774.     {
  5775.     unclusterSelectedCB(w, client_data, call_data);
  5776.     }
  5777. }
  5778.  
  5779. // Uncluster selected nodes (and clusters)
  5780. void DataDisp::unclusterSelectedCB(Widget, XtPointer, XtPointer)
  5781. {
  5782.     // Uncluster selected nodes
  5783.     MapRef ref;
  5784.     for (DispNode* dn = disp_graph->first(ref); 
  5785.      dn != 0;
  5786.      dn = disp_graph->next(ref))
  5787.     {
  5788.     if (selected(dn) && dn->clustered())
  5789.     {
  5790.         // Force cluster to be redisplayed
  5791.         DispNode *cluster = disp_graph->get(dn->clustered());
  5792.         if (cluster != 0)
  5793.         cluster->set_last_refresh();
  5794.  
  5795.         // Uncluster display
  5796.         disp_graph->uncluster(dn);
  5797.     }
  5798.     }
  5799.  
  5800.     // Delete selected clusters
  5801.     IntArray all_clusters;
  5802.     get_all_clusters(all_clusters);
  5803.  
  5804.     IntArray killme;
  5805.     for (int i = 0; i < all_clusters.size(); i++)
  5806.     {
  5807.     DispNode *cluster = disp_graph->get(all_clusters[i]);
  5808.     if (cluster != 0 && selected(cluster))
  5809.     {
  5810.         // Delete cluster
  5811.         killme += all_clusters[i];
  5812.     }
  5813.     }
  5814.  
  5815.     delete_display(killme);
  5816.     refresh_args();
  5817.     refresh_graph_edit();
  5818. }
  5819.  
  5820. // Cluster selected nodes into a new cluster
  5821. void DataDisp::clusterSelectedCB(Widget, XtPointer, XtPointer)
  5822. {
  5823.     int target_cluster = 0;
  5824.     IntArray all_clusters;
  5825.     get_all_clusters(all_clusters);
  5826.  
  5827.     // If we have a selected cluster, choose this one as a target
  5828.     for (int i = 0; i < all_clusters.size(); i++)
  5829.     {
  5830.     DispNode *cluster = disp_graph->get(all_clusters[i]);
  5831.     if (cluster != 0 && selected(cluster))
  5832.     {
  5833.         target_cluster = all_clusters[i];
  5834.         break;
  5835.     }
  5836.     }
  5837.  
  5838.     if (target_cluster == 0)
  5839.     {
  5840.     // No target cluster selected - make a new one
  5841.     target_cluster = new_cluster();
  5842.     }
  5843.  
  5844.     // Cluster all selected displays into the current one
  5845.     MapRef ref;
  5846.     for (DispNode* dn = disp_graph->first(ref); 
  5847.      dn != 0;
  5848.      dn = disp_graph->next(ref))
  5849.     {
  5850.     if (!dn->is_user_command() && selected(dn))
  5851.         disp_graph->cluster(dn, target_cluster);
  5852.     }
  5853.  
  5854.     refresh_graph_edit();
  5855. }
  5856.  
  5857.  
  5858. //----------------------------------------------------------------------------
  5859. // Alias Detection
  5860. //----------------------------------------------------------------------------
  5861.  
  5862. // True iff aliases are to be checked regardless of address changes
  5863. bool DataDisp::force_check_aliases = false;
  5864.  
  5865. // Set whether aliases are to be detected
  5866. void DataDisp::set_detect_aliases(bool value)
  5867. {
  5868.     if (value == detect_aliases)
  5869.     return;
  5870.  
  5871.     detect_aliases = value;
  5872.     if (detect_aliases)
  5873.     {
  5874.     // Re-check for aliases
  5875.     force_check_aliases = true;
  5876.     refresh_addr();
  5877.     }
  5878.     else
  5879.     {
  5880.     bool changed = false;
  5881.  
  5882.     MapRef ref;
  5883.     for (int k = disp_graph->first_nr(ref); 
  5884.          k != 0; 
  5885.          k = disp_graph->next_nr(ref))
  5886.     {
  5887.         // Unmerge all displays
  5888.         changed = unmerge_display(k) || changed;
  5889.     }
  5890.  
  5891.     if (changed)
  5892.         refresh_graph_edit();
  5893.     }
  5894. }
  5895.  
  5896. // Add address-printing commands to CMDS
  5897. int DataDisp::add_refresh_addr_commands(StringArray& cmds, DispNode *dn)
  5898. {
  5899.     if (!detect_aliases)
  5900.     return 0;
  5901.  
  5902.     int initial_size = cmds.size();
  5903.  
  5904.     if (dn != 0)
  5905.     {
  5906.      if (dn->active() && !dn->is_user_command())
  5907.     {
  5908.         string addr = gdb->address_expr(dn->name());
  5909.         if (addr != "")
  5910.         cmds += gdb->print_command(addr);
  5911.     }
  5912.     }
  5913.     else
  5914.     {
  5915.     MapRef ref;
  5916.     for (dn = disp_graph->first(ref); 
  5917.          dn != 0;
  5918.          dn = disp_graph->next(ref))
  5919.     {
  5920.         add_refresh_addr_commands(cmds, dn);
  5921.     }
  5922.     }
  5923.  
  5924.     return cmds.size() - initial_size;
  5925. }
  5926.  
  5927. // Refresh all addresses
  5928. void DataDisp::refresh_addr(DispNode *dn)
  5929. {
  5930.     if (refresh_addr_timer != 0)
  5931.     {
  5932.     XtRemoveTimeOut(refresh_addr_timer);
  5933.     refresh_addr_timer = 0;
  5934.     dn = 0;
  5935.     }
  5936.  
  5937.     RefreshAddrCB(XtPointer(dn), (XtIntervalId *)0);
  5938. }
  5939.  
  5940. void DataDisp::RefreshAddrCB(XtPointer client_data, XtIntervalId *id)
  5941. {
  5942.     if (id != 0)
  5943.     {
  5944.     assert (*id == refresh_addr_timer);
  5945.     refresh_addr_timer = 0;
  5946.     }
  5947.  
  5948.     DispNode *dn = (DispNode *)client_data;
  5949.  
  5950.     bool ok = false;
  5951.     bool sent = false;
  5952.     if (gdb->isReadyWithPrompt())
  5953.     {
  5954.     StringArray cmds;
  5955.     VoidArray dummy;
  5956.  
  5957.     add_refresh_addr_commands(cmds, dn);
  5958.     if (cmds.size() > 0)
  5959.     {
  5960.         while (dummy.size() < cmds.size())
  5961.         dummy += (void *)PROCESS_ADDR;
  5962.  
  5963.         static RefreshInfo info;
  5964.         info.verbose = false;
  5965.         info.prompt  = false;
  5966.         ok = gdb->send_qu_array(cmds, dummy, cmds.size(), 
  5967.                     refresh_displayOQAC, (void *)&info);
  5968.  
  5969.         sent = cmds.size() > 0;
  5970.     }
  5971.     else
  5972.     {
  5973.         // No refreshing commands - rely on addresses as read
  5974.         bool suppressed = check_aliases();
  5975.         force_check_aliases = false;
  5976.         refresh_display_list(suppressed);
  5977.         ok = true;
  5978.     }
  5979.     }
  5980.  
  5981.     if (!ok)
  5982.     {
  5983.     // Commands not sent - try again in 50 ms
  5984.     refresh_addr_timer = 
  5985.         XtAppAddTimeOut(XtWidgetToApplicationContext(graph_edit),
  5986.                 50, RefreshAddrCB, client_data);
  5987.     }
  5988.  
  5989.     if (sent)
  5990.     {
  5991.     // At least one command sent - disable redisplay until we have
  5992.     // processed all addresses
  5993.     graphEditEnableRedisplay(graph_edit, False);
  5994.     }
  5995. }
  5996.  
  5997. // Handle output of addr commands
  5998. void DataDisp::process_addr (StringArray& answers)
  5999. {
  6000.     int i = 0;
  6001.  
  6002.     bool changed = false;
  6003.  
  6004.     MapRef ref;
  6005.     for (DispNode* dn = disp_graph->first(ref); 
  6006.      dn != 0 && i < answers.size();
  6007.      dn = disp_graph->next(ref))
  6008.     {
  6009.     if (dn->active() && !dn->is_user_command())
  6010.     {
  6011.         string addr = answers[i++];
  6012.  
  6013.         if (addr.contains('(', 0) || addr.contains('{', 0))
  6014.         {
  6015.         // Skip type prefix
  6016.         read_token(addr);
  6017.         }
  6018.  
  6019.         addr = addr.from(rxaddress);
  6020.         addr = addr.through(rxaddress);
  6021.  
  6022.         undo_buffer.add_display_address(dn->name(), addr);
  6023.  
  6024.         if (dn->addr() != addr)
  6025.         {
  6026.         dn->set_addr(addr);
  6027.         changed = true;
  6028.         }
  6029.     }
  6030.     }
  6031.  
  6032.     bool suppressed = false;
  6033.     if (changed || force_check_aliases)
  6034.     {
  6035.     suppressed = check_aliases();
  6036.     force_check_aliases = false;
  6037.     }
  6038.  
  6039.     // Re-enable redisplay
  6040.     graphEditEnableRedisplay(graph_edit, True);
  6041.  
  6042.     if (changed)
  6043.     refresh_display_list(suppressed);
  6044. }
  6045.  
  6046. // Check for aliases after change; return true iff displays were suppressed
  6047. bool DataDisp::check_aliases()
  6048. {
  6049.     if (!detect_aliases)
  6050.     return false;
  6051.  
  6052.     // Group displays into equivalence classes depending on their
  6053.     // address and their structure.
  6054.  
  6055.     // EQUIVALENCES is an assoc table classed according to addresses.
  6056.     // Each entry is a list of tables.  Each table contains
  6057.     // structurally equivalent display numbers.
  6058.  
  6059.     // If the `typedAliases' resource is `off', all displays
  6060.     // go into one category, regardless of structure.
  6061.  
  6062.     StringIntArrayArrayAssoc equivalences;
  6063.  
  6064.     MapRef ref;
  6065.     for (int k = disp_graph->first_nr(ref); 
  6066.          k != 0; 
  6067.          k = disp_graph->next_nr(ref))
  6068.     {
  6069.     DispNode *dn = disp_graph->get(k);
  6070.     if (dn->value() == 0)
  6071.         continue;
  6072.  
  6073.     if (dn != 0 && dn->alias_ok())
  6074.     {
  6075.         IntArrayArray& list = equivalences[dn->addr()];
  6076.  
  6077.         // Search for structurally equivalent entries in DISPLAY_TABLE.
  6078.         bool added = false;
  6079.         for (int i = 0; !added && i < list.size(); i++)
  6080.         {
  6081.         IntArray& displays = list[i];
  6082.         assert (displays.size() > 0);
  6083.  
  6084.         DispNode *d1 = disp_graph->get(displays[0]);
  6085.         if (d1->value() == 0)
  6086.             continue;
  6087.  
  6088.         if (!app_data.typed_aliases ||
  6089.             dn->value()->structurally_equal(d1->value()))
  6090.         {
  6091.             displays += k;
  6092.             added = true;
  6093.         }
  6094.         }
  6095.  
  6096.         if (!added)
  6097.         {
  6098.         IntArray new_displays;
  6099.         new_displays += k;
  6100.         list += new_displays;
  6101.         }
  6102.     }
  6103.     }
  6104.  
  6105.     // Merge displays with identical address.
  6106.     bool changed    = false;
  6107.     bool suppressed = false;
  6108.  
  6109.     for (StringIntArrayArrayAssocIter iter(equivalences); iter.ok(); iter++)
  6110.     {
  6111.     string addr = iter.key();
  6112.     IntArrayArray& list = iter.value();
  6113.     assert(list.size() > 0);
  6114.  
  6115.     for (int i = 0; i < list.size(); i++)
  6116.     {
  6117.         IntArray& displays = list[i];
  6118.         assert(displays.size() > 0);
  6119.  
  6120.         if (addr == "" || displays.size() == 1)
  6121.         {
  6122.         // No address or just one display -- unmerge them
  6123.         for (int k = 0; k < displays.size(); k++)
  6124.             changed = unmerge_display(displays[k]) || changed;
  6125.         }
  6126.         else
  6127.         {
  6128.         // Multiple displays at one location
  6129.         merge_displays(displays, changed, suppressed);
  6130.         }
  6131.     }
  6132.     }
  6133.  
  6134.     if (changed)
  6135.     refresh_graph_edit(suppressed);
  6136.  
  6137.     return suppressed;
  6138. }
  6139.  
  6140. // Return last change, or INT_MAX if hidden
  6141. int DataDisp::last_change_of_disp_nr(int disp_nr)
  6142. {
  6143.     DispNode *dn = disp_graph->get(disp_nr);
  6144.     assert(dn != 0);
  6145.  
  6146.     if (dn->hidden())
  6147.     return INT_MAX;
  6148.  
  6149.     return dn->last_change();
  6150. }
  6151.  
  6152. // Sort DISP_NRS according to the last change
  6153. void DataDisp::sort_last_change(IntArray& disp_nrs)
  6154. {
  6155.     // Shell sort -- simple and fast
  6156.     int h = 1;
  6157.     do {
  6158.     h = h * 3 + 1;
  6159.     } while (h <= disp_nrs.size());
  6160.     do {
  6161.     h /= 3;
  6162.     for (int i = h; i < disp_nrs.size(); i++)
  6163.     {
  6164.         int v = disp_nrs[i];
  6165.         int j;
  6166.         for (j = i; j >= h && last_change_of_disp_nr(disp_nrs[j - h]) > 
  6167.                           last_change_of_disp_nr(v); j -= h)
  6168.         disp_nrs[j] = disp_nrs[j - h];
  6169.         if (i != j)
  6170.         disp_nrs[j] = v;
  6171.     }
  6172.     } while (h != 1);
  6173. }
  6174.  
  6175. // Merge displays in DISPLAYS.  Set CHANGED iff changed.  Set
  6176. // SUPPRESSED if displays were suppressed.
  6177. void DataDisp::merge_displays(IntArray displays,
  6178.                   bool& changed, bool& suppressed)
  6179. {
  6180.     assert(displays.size() > 0);
  6181.  
  6182.     // Hide all aliases except the node which has changed least recently.
  6183.     sort_last_change(displays);
  6184.  
  6185.     int i;
  6186. #if 0
  6187.     for (i = 0; i < displays.size(); i++)
  6188.     {
  6189.     clog << "Last change of display " << displays[i]
  6190.          << ": " << last_change_of_disp_nr(displays[i]) << "\n";
  6191.     }
  6192. #endif
  6193.  
  6194.     DispNode *d0 = disp_graph->get(displays[0]);
  6195.     if (d0->active() && d0->hidden())
  6196.     {
  6197.     // All aliases are hidden.  Make sure we see at least the
  6198.     // least recently changed one.
  6199.     changed = unmerge_display(displays[0]) || changed;
  6200.     }
  6201.  
  6202.     IntArray suppressed_displays;
  6203.     for (i = 1; i < displays.size(); i++)
  6204.     {
  6205.     int disp_nr = displays[i];
  6206.     DispNode *dn = disp_graph->get(disp_nr);
  6207.  
  6208.     if (!dn->active())
  6209.         continue;        // Out of scope
  6210.  
  6211.     bool hidden = dn->hidden();
  6212.  
  6213.     if (!hidden && dn->firstTo() == 0)
  6214.     {
  6215.         // There is no edge pointing at this node.  Don't merge it
  6216.         // because it would simply disappear otherwise.
  6217.         changed = unmerge_display(disp_nr) || changed;
  6218.     }
  6219.     else
  6220.     {
  6221.         bool c = disp_graph->alias(graph_edit, displays[0], disp_nr);
  6222.         if (c)
  6223.         {
  6224.         if (!hidden)
  6225.             suppressed_displays += disp_nr;
  6226.         changed = true;
  6227.         }
  6228.     }
  6229.     }
  6230.  
  6231.     if (suppressed_displays.size() > 0)
  6232.     {
  6233.     suppressed = true;
  6234.  
  6235.     sort(suppressed_displays);
  6236.  
  6237.     // Some displays have been suppressed.  Generate appropriate message.
  6238.     MString msg = rm("Suppressing ");
  6239.  
  6240.     if (suppressed_displays.size() == 1)
  6241.     {
  6242.         DispNode *node = disp_graph->get(suppressed_displays[0]);
  6243.         msg += rm("display " + itostring(node->disp_nr()) + ": ");
  6244.         msg += tt(node->name());
  6245.     }
  6246.     else if (suppressed_displays.size() == 2)
  6247.     {
  6248.         msg += rm("displays "
  6249.               + itostring(suppressed_displays[0])
  6250.               + " and "
  6251.               + itostring(suppressed_displays[1]));
  6252.     }
  6253.     else
  6254.     {
  6255.         msg += rm("displays ");
  6256.         for (i = 1; i < suppressed_displays.size(); i++)
  6257.         {
  6258.         if (i == suppressed_displays.size() - 1)
  6259.             msg += rm(", and ");
  6260.         else if (i > 1)
  6261.             msg += rm(", ");
  6262.         msg += rm(itostring(suppressed_displays[i]));
  6263.         }
  6264.     }
  6265.  
  6266.     if (suppressed_displays.size() == 1)
  6267.         msg += rm(" because it is an alias");
  6268.     else
  6269.         msg += rm(" because they are aliases");
  6270.  
  6271.     DispNode *of = disp_graph->get(displays[0]);
  6272.     msg += rm(" of display " + itostring(of->disp_nr()) + ": ");
  6273.     msg += tt(of->name());
  6274.  
  6275.     set_status_mstring(msg);
  6276.     }
  6277. }
  6278.  
  6279. bool DataDisp::unmerge_display(int disp_nr)
  6280. {
  6281.     return disp_graph->unalias(disp_nr);
  6282. }
  6283.  
  6284. void DataDisp::PreLayoutCB(Widget w, XtPointer, XtPointer)
  6285. {
  6286.     if (detect_aliases)
  6287.     {
  6288.     // Don't redisplay while or after layouting
  6289.     graphEditEnableRedisplay(w, False);
  6290.     }
  6291. }
  6292.  
  6293. // Re-enable aliases after layouting
  6294. void DataDisp::PostLayoutCB(Widget w, XtPointer, XtPointer)
  6295. {
  6296.     if (detect_aliases)
  6297.     {
  6298.     // Unmerge and re-merge all displays
  6299.     MapRef ref;
  6300.     for (int k = disp_graph->first_nr(ref); 
  6301.          k != 0; 
  6302.          k = disp_graph->next_nr(ref))
  6303.     {
  6304.         unmerge_display(k);
  6305.     }
  6306.     check_aliases();
  6307.  
  6308.     // Okay - we can redisplay now
  6309.     graphEditEnableRedisplay(w, True);
  6310.     refresh_graph_edit();
  6311.     }
  6312. }
  6313.  
  6314. // True iff we have some selection
  6315. bool DataDisp::have_selection()
  6316. {
  6317.     MapRef ref;
  6318.     for (DispNode* dn = disp_graph->first(ref);
  6319.      dn != 0;
  6320.      dn = disp_graph->next(ref))
  6321.     {
  6322.     if (dn->selected())
  6323.         return true;
  6324.     }
  6325.     return false;
  6326. }
  6327.  
  6328. // Select node, copying selection state from NR
  6329. void DataDisp::select_node(DispNode *dn, int nr)
  6330. {
  6331.     dn->selected() = true;
  6332.     if (nr == 0)
  6333.     return;
  6334.  
  6335.     DispNode *src = disp_graph->get(nr);
  6336.     if (src == 0)
  6337.     return;
  6338.     
  6339.     dn->copy_selection_state(*src);
  6340.     refresh_args(true);
  6341. }
  6342.  
  6343.  
  6344. //----------------------------------------------------------------------------
  6345. // Bumper
  6346. //----------------------------------------------------------------------------
  6347.  
  6348. bool DataDisp::bump_displays = true;
  6349.  
  6350. static bool Yes(RegionGraphNode *, const BoxSize&)
  6351. {
  6352.     return true;
  6353. }
  6354.  
  6355. // This one is called whenever NODE is to be resized to NEWSIZE
  6356. bool DataDisp::bump(RegionGraphNode *node, const BoxSize& newSize)
  6357. {
  6358.     if (!bump_displays)
  6359.     return true;        // Okay
  6360.  
  6361.     if (node->pos() == BoxPoint())
  6362.     return true;        // No valid position yet
  6363.  
  6364.     DispNode *dn = ptr_cast(DispNode, node);
  6365.     if (dn != 0 && (!dn->active() || dn->clustered()))
  6366.     return true;        // Clustered or inactive
  6367.  
  6368.     const GraphGC& gc = graphEditGetGraphGC(graph_edit);
  6369.     BoxRegion oldRegion = node->region(gc);
  6370.  
  6371.     // Do the resize, but don't get called recursively
  6372.     RegionGraphNode::ResizeCB = Yes;
  6373.     node->resize(newSize);
  6374.     RegionGraphNode::ResizeCB = bump;
  6375.  
  6376.     // Let origin remain constant
  6377.     node->moveTo(node->originToPos(oldRegion.origin(), gc));
  6378.  
  6379.     // Move all nodes that are right or below NODE such that their
  6380.     // distance to NODE remains constant.
  6381.  
  6382.     // DELTA is the difference between old and new size
  6383.     BoxSize delta  = node->space(gc) - oldRegion.space();
  6384.  
  6385.     // NODE_ORIGIN is the (old) upper left corner of NODE
  6386.     // BoxPoint node_origin = oldRegion.origin();
  6387.  
  6388.     // BUMPER is the (old) lower right corner of NODE
  6389.     BoxPoint node_bumper = oldRegion.origin() + oldRegion.space();
  6390.  
  6391.     for (GraphNode *r = disp_graph->firstNode(); 
  6392.      r != 0; r = disp_graph->nextNode(r))
  6393.     {
  6394.     if (r == node)
  6395.         continue;
  6396.  
  6397.     // If R is inactive or clustered, don't bump it
  6398.     DispNode *rn = ptr_cast(DispNode, r);
  6399.     if (rn != 0 && (!rn->active() || rn->clustered()))
  6400.         continue;
  6401.  
  6402.     // If ORIGIN (the upper left corner of R) is right of BUMPER,
  6403.     // move R DELTA units to the right.  If it is below BUMPER,
  6404.     // move R DELTA units down.
  6405.  
  6406.     BoxPoint r_origin = r->origin(gc);
  6407.     // BoxPoint r_bumper = r->origin(gc) + r->space(gc);
  6408.  
  6409.     BoxPoint r_pos = r->pos();
  6410.  
  6411.     if (r_origin[X] > node_bumper[X])
  6412.         r_pos[X] += delta[X];
  6413.     if (r_origin[Y] > node_bumper[Y])
  6414.         r_pos[Y] += delta[Y];
  6415.  
  6416.     r->moveTo(r_pos);
  6417.     }
  6418.  
  6419.     // All is done - don't use default behavior.
  6420.     return false;
  6421. }
  6422.  
  6423.  
  6424.  
  6425. //----------------------------------------------------------------------------
  6426. // Constructor
  6427. //----------------------------------------------------------------------------
  6428.  
  6429. DataDisp::DataDisp(Widget parent, Widget& data_buttons_w)
  6430. {
  6431.     XtAppContext app_context = XtWidgetToApplicationContext(parent);
  6432.  
  6433.     registerOwnConverters();
  6434.  
  6435.     // Init globals
  6436.     StringBox::fontTable      = new FontTable (XtDisplay(parent));
  6437.     DispBox::vsllib_name      = app_data.vsl_library;
  6438.     DispBox::vsllib_path      = app_data.vsl_path;
  6439.     DispBox::vsllib_base_defs = app_data.vsl_base_defs;
  6440.     DispBox::vsllib_defs      = app_data.vsl_defs;
  6441.  
  6442.     // Create graph
  6443.     disp_graph = new DispGraph();
  6444.     disp_graph->addHandler(DispGraph_Empty, no_displaysHP);
  6445.  
  6446.     // Create graph toolbar
  6447.     unsigned char label_type = XmSTRING;
  6448.     if (app_data.button_captions || app_data.button_images)
  6449.     label_type = XmPIXMAP;
  6450.  
  6451.     Widget arg_label = 0;
  6452.     if (graph_cmd_w == 0 && !app_data.toolbars_at_bottom)
  6453.     {
  6454.     graph_cmd_w = create_toolbar(parent, "graph", 
  6455.                      graph_cmd_area, 0, arg_label, graph_arg,
  6456.                      label_type);
  6457.     }
  6458.  
  6459.     // Add buttons
  6460.     if (data_buttons_w == 0 && !app_data.toolbars_at_bottom)
  6461.     data_buttons_w = 
  6462.         make_buttons(parent, "data_buttons", app_data.data_buttons);
  6463.  
  6464.     // Create graph editor
  6465.     Arg args[10];
  6466.     int arg = 0;
  6467.     XtSetArg (args[arg], XtNgraph, (Graph *)disp_graph); arg++;
  6468.  
  6469.     if (app_data.panned_graph_editor)
  6470.     {
  6471.     graph_edit = createPannedGraphEdit(parent, "graph_edit", args, arg);
  6472.     graph_form_w = pannerOfGraphEdit(graph_edit);
  6473.     }
  6474.     else
  6475.     {
  6476.     graph_edit = createScrolledGraphEdit(parent, "graph_edit", args, arg);
  6477.     graph_form_w = scrollerOfGraphEdit(graph_edit);
  6478.     }
  6479.  
  6480.     set_last_origin(graph_edit);
  6481.  
  6482.     // Add actions
  6483.     XtAppAddActions (app_context, actions, XtNumber (actions));
  6484.     XtManageChild (graph_edit);
  6485.  
  6486.     // Create buttons
  6487.     registerOwnConverters();
  6488.  
  6489.     if (graph_cmd_w == 0)
  6490.     {
  6491.     graph_cmd_w = create_toolbar(parent, "graph", 
  6492.                      graph_cmd_area, 0, arg_label, graph_arg,
  6493.                      label_type);
  6494.     }
  6495.  
  6496.     if (arg_label != 0)
  6497.     {
  6498.     XtAddCallback(arg_label, XmNactivateCallback,
  6499.               SelectionLostCB, XtPointer(0));
  6500.     XtAddCallback(arg_label, XmNactivateCallback, 
  6501.               ClearTextFieldCB, graph_arg->text());
  6502.     }
  6503.  
  6504.     // Create (unmanaged) selection widget
  6505.     graph_selection_w =
  6506.     verify(XmCreateText(graph_cmd_w, "graph_selection", NULL, 0));
  6507.     XtAddCallback(graph_selection_w, XmNlosePrimaryCallback, 
  6508.           SelectionLostCB, XtPointer(0));
  6509. }
  6510.  
  6511. void DataDisp::create_shells()
  6512. {
  6513.     Arg args[10];
  6514.     Cardinal arg = 0;
  6515.  
  6516.     // Create menus
  6517.     graph_popup_w = 
  6518.     MMcreatePopupMenu(graph_edit, "graph_popup", graph_popup);
  6519.     InstallButtonTips(graph_popup_w);
  6520.  
  6521.     node_popup_w = 
  6522.     MMcreatePopupMenu(graph_edit, "node_popup", node_popup);
  6523.     InstallButtonTips(node_popup_w);
  6524.  
  6525.     shortcut_popup_w = 
  6526.     MMcreatePopupMenu(graph_edit, "shortcut_popup", shortcut_popup1);
  6527.     InstallButtonTips(shortcut_popup_w);
  6528.  
  6529.     disp_graph->callHandlers();
  6530.  
  6531.     // Create display editor
  6532.     arg = 0;
  6533.     XtSetArg(args[arg], XmNvisibleItemCount, 0); arg++;
  6534.     edit_displays_dialog_w =
  6535.     verify(createTopLevelSelectionDialog(find_shell(graph_edit), 
  6536.                          "edit_displays_dialog", 
  6537.                          args, arg));
  6538.     Delay::register_shell(edit_displays_dialog_w);
  6539.  
  6540.     XtUnmanageChild(XmSelectionBoxGetChild(edit_displays_dialog_w,
  6541.                        XmDIALOG_TEXT));
  6542.     XtUnmanageChild(XmSelectionBoxGetChild(edit_displays_dialog_w,
  6543.                        XmDIALOG_CANCEL_BUTTON));
  6544.     XtUnmanageChild(XmSelectionBoxGetChild(edit_displays_dialog_w,
  6545.                        XmDIALOG_APPLY_BUTTON));
  6546.     XtUnmanageChild(XmSelectionBoxGetChild(edit_displays_dialog_w,
  6547.                        XmDIALOG_SELECTION_LABEL));
  6548.     XtUnmanageChild(XmSelectionBoxGetChild(edit_displays_dialog_w,
  6549.                        XmDIALOG_LIST_LABEL));
  6550.  
  6551.     display_list_w = 
  6552.     XmSelectionBoxGetChild(edit_displays_dialog_w, XmDIALOG_LIST);
  6553.  
  6554.     if (app_data.flat_dialog_buttons)
  6555.     {
  6556.     for (MMDesc *item = display_area; item != 0 && item->name != 0; item++)
  6557.     {
  6558.         if ((item->type & MMTypeMask) == MMPush)
  6559.         item->type = (MMFlatPush | (item->type & ~MMTypeMask));
  6560.     }
  6561.     }
  6562.  
  6563.     Widget buttons = verify(MMcreateWorkArea(edit_displays_dialog_w, 
  6564.                          "buttons", display_area));
  6565.     XtVaSetValues(buttons,
  6566.           XmNmarginWidth,     0, 
  6567.           XmNmarginHeight,    0, 
  6568.           XmNborderWidth,     0,
  6569.           XmNshadowThickness, 0, 
  6570.           XmNspacing,         0,
  6571.           NULL);
  6572.  
  6573.     MMaddCallbacks (display_area);
  6574.     MMaddHelpCallback(display_area, ImmediateHelpCB);
  6575.     register_menu_shell(display_area);
  6576.  
  6577.     // Add widget callbacks
  6578.     XtAddCallback(graph_edit, XtNpreSelectionCallback,
  6579.           DoubleClickCB, XtPointer(this));
  6580.     XtAddCallback(graph_edit, XtNselectionChangedCallback,
  6581.           UpdateDisplayEditorSelectionCB, XtPointer(this));
  6582.     XtAddCallback(graph_edit, XtNcompareNodesCallback,
  6583.           CompareNodesCB, XtPointer(this));
  6584.     XtAddCallback(graph_edit, XtNpreLayoutCallback,
  6585.           PreLayoutCB, XtPointer(this));
  6586.     XtAddCallback(graph_edit, XtNpostLayoutCallback,
  6587.           PostLayoutCB, XtPointer(this));
  6588.  
  6589.     if (display_list_w != 0)
  6590.     {
  6591.     XtAddCallback(display_list_w,
  6592.               XmNsingleSelectionCallback,
  6593.               UpdateGraphEditorSelectionCB,
  6594.               0);
  6595.     XtAddCallback(display_list_w,
  6596.               XmNmultipleSelectionCallback,
  6597.               UpdateGraphEditorSelectionCB,
  6598.               0);
  6599.     XtAddCallback(display_list_w,
  6600.               XmNextendedSelectionCallback,
  6601.               UpdateGraphEditorSelectionCB,
  6602.               0);
  6603.     XtAddCallback(display_list_w,
  6604.               XmNbrowseSelectionCallback,
  6605.               UpdateGraphEditorSelectionCB,
  6606.               0);
  6607.     }
  6608.  
  6609.     if (edit_displays_dialog_w != 0)
  6610.     {
  6611.     XtAddCallback(edit_displays_dialog_w,
  6612.               XmNokCallback,
  6613.               UnmanageThisCB,
  6614.               edit_displays_dialog_w);
  6615.     XtAddCallback(edit_displays_dialog_w,
  6616.               XmNhelpCallback,
  6617.               ImmediateHelpCB,
  6618.               0);
  6619.     }
  6620.  
  6621.     // Add graph callbacks
  6622.     RegionGraphNode::ResizeCB = bump;
  6623.  
  6624.     // Reset argument field and display editor buttons
  6625.     set_args();
  6626. }
  6627.