You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2003 lines
58 KiB
2003 lines
58 KiB
// **************************************************************************
|
|
// begin : Sun Aug 8 1999
|
|
// copyright : (C) 1999 by John Birch
|
|
// email : jbb@tdevelop.org
|
|
// **************************************************************************
|
|
|
|
// **************************************************************************
|
|
// * *
|
|
// * This program is free software; you can redistribute it and/or modify *
|
|
// * it under the terms of the GNU General Public License as published by *
|
|
// * the Free Software Foundation; either version 2 of the License, or *
|
|
// * (at your option) any later version. *
|
|
// * *
|
|
// **************************************************************************
|
|
|
|
#include "variablewidget.h"
|
|
#include "gdbparser.h"
|
|
#include "gdbcommand.h"
|
|
#include "gdbbreakpointwidget.h"
|
|
|
|
#include <kdebug.h>
|
|
#include <kpopupmenu.h>
|
|
#include <klineedit.h>
|
|
#include <tdeversion.h>
|
|
#include <kiconloader.h>
|
|
|
|
#include <tqheader.h>
|
|
#include <tqlabel.h>
|
|
#include <tqlayout.h>
|
|
#include <tqhbox.h>
|
|
#include <tqpainter.h>
|
|
#include <tqpushbutton.h>
|
|
#include <tqregexp.h>
|
|
#include <tqcursor.h>
|
|
#include <tqwhatsthis.h>
|
|
#include <klocale.h>
|
|
|
|
#include <tqpoint.h>
|
|
#include <tqclipboard.h>
|
|
#include <kapplication.h>
|
|
#include <kmessagebox.h>
|
|
|
|
#include <cctype>
|
|
#include <set>
|
|
#include <typeinfo>
|
|
#include <cctype>
|
|
|
|
/** The variables widget is passive, and is invoked by the rest of the
|
|
code via two main slots:
|
|
- slotDbgtqStatus
|
|
- slotCurrentFrame
|
|
|
|
The first is received the program status changes and the second is
|
|
recieved after current frame in the debugger can possibly changes.
|
|
|
|
The widget has a list item for each frame/thread combination, with
|
|
variables as tqchildren. However, at each moment only one item is shown.
|
|
When handling the slotCurrentFrame, we check if variables for the
|
|
current frame are available. If yes, we simply show the corresponding item.
|
|
Otherwise, we fetch the new data from debugger.
|
|
|
|
Fetching the data is done by emitting the produceVariablesInfo signal.
|
|
In response, we get slotParametersReady and slotLocalsReady signal,
|
|
in that order.
|
|
|
|
The data is parsed and changed variables are highlighted. After that,
|
|
we 'trim' variable items that were not reported by gdb -- that is, gone
|
|
out of scope.
|
|
*/
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
namespace GDBDebugger
|
|
{
|
|
|
|
VariableWidget::VariableWidget(GDBController* controller,
|
|
GDBBreakpointWidget* breakpointWidget,
|
|
TQWidget *parent, const char *name)
|
|
: TQWidget(parent, name)
|
|
{
|
|
setIcon(SmallIcon("math_brace"));
|
|
setCaption(i18n("Variable Tree"));
|
|
|
|
varTree_ = new VariableTree(this, controller, breakpointWidget);
|
|
|
|
watchVarEditor_ = new KHistoryCombo( this,
|
|
"var-to-watch editor");
|
|
|
|
TQHBoxLayout* buttons = new TQHBoxLayout();
|
|
|
|
buttons->addStretch();
|
|
|
|
TQPushButton *evalButton = new TQPushButton(i18n("&Evaluate"), this );
|
|
buttons->addWidget(evalButton);
|
|
|
|
TQPushButton *addButton = new TQPushButton(i18n("&Watch"), this );
|
|
buttons->addWidget(addButton);
|
|
|
|
TQVBoxLayout *topLayout = new TQVBoxLayout(this, 2);
|
|
topLayout->addWidget(varTree_, 10);
|
|
topLayout->addWidget(watchVarEditor_);
|
|
topLayout->addItem(buttons);
|
|
|
|
|
|
connect( addButton, TQT_SIGNAL(clicked()), TQT_SLOT(slotAddWatchVariable()) );
|
|
connect( evalButton, TQT_SIGNAL(clicked()), TQT_SLOT(slotEvaluateExpression()) );
|
|
|
|
connect( watchVarEditor_, TQT_SIGNAL(returnPressed()),
|
|
TQT_SLOT(slotEvaluateExpression()) );
|
|
|
|
connect(controller, TQT_SIGNAL(event(GDBController::event_t)),
|
|
varTree_, TQT_SLOT(slotEvent(GDBController::event_t)));
|
|
|
|
|
|
// Setup help items.
|
|
|
|
TQWhatsThis::add(this, i18n(
|
|
"<b>Variable tree</b><p>"
|
|
"The variable tree allows you to see the values of local "
|
|
"variables and arbitrary expressions."
|
|
"<p>Local variables are displayed automatically and are updated "
|
|
"as you step through your program. "
|
|
"For each expression you enter, you can either evaluate it once, "
|
|
"or \"watch\" it (make it auto-updated). Expressions that are not "
|
|
"auto-updated can be updated manually from the context menu. "
|
|
"Expressions can be renamed to more descriptive names by clicking "
|
|
"on the name column."
|
|
"<p>To change the value of a variable or an expression, "
|
|
"click on the value."));
|
|
|
|
TQWhatsThis::add(watchVarEditor_,
|
|
i18n("<b>Expression entry</b>"
|
|
"<p>Type in expression to evaluate."));
|
|
|
|
TQWhatsThis::add(evalButton,
|
|
i18n("Evaluate the expression."));
|
|
|
|
TQWhatsThis::add(addButton,
|
|
i18n("Evaluate the expression and "
|
|
"auto-update the value when stepping."));
|
|
}
|
|
|
|
void VariableWidget::slotAddWatchVariable()
|
|
{
|
|
// TQString watchVar(watchVarEntry_->text());
|
|
TQString watchVar(watchVarEditor_->currentText());
|
|
if (!watchVar.isEmpty())
|
|
{
|
|
slotAddWatchVariable(watchVar);
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void VariableWidget::slotAddWatchVariable(const TQString &ident)
|
|
{
|
|
if (!ident.isEmpty())
|
|
{
|
|
watchVarEditor_->addToHistory(ident);
|
|
varTree_->slotAddWatchVariable(ident);
|
|
watchVarEditor_->clearEdit();
|
|
}
|
|
}
|
|
|
|
void VariableWidget::slotEvaluateExpression()
|
|
{
|
|
TQString exp(watchVarEditor_->currentText());
|
|
if (!exp.isEmpty())
|
|
{
|
|
slotEvaluateExpression(exp);
|
|
}
|
|
}
|
|
|
|
void VariableWidget::slotEvaluateExpression(const TQString &ident)
|
|
{
|
|
if (!ident.isEmpty())
|
|
{
|
|
watchVarEditor_->addToHistory(ident);
|
|
varTree_->slotEvaluateExpression(ident);
|
|
watchVarEditor_->clearEdit();
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void VariableWidget::focusInEvent(TQFocusEvent */*e*/)
|
|
{
|
|
varTree_->setFocus();
|
|
}
|
|
|
|
|
|
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
VariableTree::VariableTree(VariableWidget *parent,
|
|
GDBController* controller,
|
|
GDBBreakpointWidget* breakpointWidget,
|
|
const char *name)
|
|
: KListView(parent, name),
|
|
TQToolTip( viewport() ),
|
|
controller_(controller),
|
|
breakpointWidget_(breakpointWidget),
|
|
activeFlag_(0),
|
|
recentExpressions_(0),
|
|
currentFrameItem(0),
|
|
activePopup_(0)
|
|
{
|
|
setRootIsDecorated(true);
|
|
setAllColumnsShowFocus(true);
|
|
setSorting(-1);
|
|
TQListView::setSelectionMode(TQListView::Single);
|
|
|
|
// Note: it might be reasonable to set width of value
|
|
// column to 10 characters ('0x12345678'), and rely on
|
|
// tooltips for showing larger values. Currently, both
|
|
// columns will get roughly equal width.
|
|
addColumn(i18n("Variable"));
|
|
addColumn(i18n("Value"));
|
|
// setResizeMode(AllColumns);
|
|
|
|
connect( this, TQT_SIGNAL(contextMenu(KListView*, TQListViewItem*, const TQPoint&)),
|
|
TQT_SLOT(slotContextMenu(KListView*, TQListViewItem*)) );
|
|
connect( this, TQT_SIGNAL(itemRenamed( TQListViewItem*, int, const TQString&)),
|
|
this, TQT_SLOT(slotItemRenamed( TQListViewItem*, int, const TQString&)));
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
VariableTree::~VariableTree()
|
|
{
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void VariableTree::slotContextMenu(KListView *, TQListViewItem *item)
|
|
{
|
|
if (!item)
|
|
return;
|
|
|
|
setSelected(item, true); // Need to select this item.
|
|
|
|
if (item->parent())
|
|
{
|
|
KPopupMenu popup(this);
|
|
KPopupMenu format(this);
|
|
|
|
int idRemember = -2;
|
|
int idRemove = -2;
|
|
int idReevaluate = -2;
|
|
int idWatch = -2;
|
|
|
|
int idNatural = -2;
|
|
int idHex = -2;
|
|
int idDecimal = -2;
|
|
int idCharacter = -2;
|
|
int idBinary = -2;
|
|
|
|
#define MAYBE_DISABLE(id) if (!var->isAlive()) popup.setItemEnabled(id, false)
|
|
|
|
VarItem* var;
|
|
if ((var = dynamic_cast<VarItem*>(item)))
|
|
{
|
|
popup.insertTitle(var->gdbExpression());
|
|
|
|
|
|
format.setCheckable(true);
|
|
idNatural = format.insertItem(i18n("Natural"),
|
|
(int)VarItem::natural);
|
|
format.setAccel(TQt::Key_N, idNatural);
|
|
idHex = format.insertItem(i18n("Hexadecimal"),
|
|
(int)VarItem::hexadecimal);
|
|
format.setAccel(TQt::Key_X, idHex);
|
|
idDecimal = format.insertItem(i18n("Decimal"),
|
|
(int)VarItem::decimal);
|
|
format.setAccel(TQt::Key_D, idDecimal);
|
|
idCharacter = format.insertItem(i18n("Character"),
|
|
(int)VarItem::character);
|
|
format.setAccel(TQt::Key_C, idCharacter);
|
|
idBinary = format.insertItem(i18n("Binary"),
|
|
(int)VarItem::binary);
|
|
format.setAccel(TQt::Key_T, idBinary);
|
|
|
|
|
|
format.setItemChecked((int)(var->format()), true);
|
|
|
|
int id = popup.insertItem(i18n("Format"), &format);
|
|
MAYBE_DISABLE(id);
|
|
}
|
|
|
|
|
|
TQListViewItem* root = findRoot(item);
|
|
|
|
if (root != recentExpressions_)
|
|
{
|
|
idRemember = popup.insertItem(
|
|
SmallIcon("pencil"), i18n("Remember Value"));
|
|
MAYBE_DISABLE(idRemember);
|
|
}
|
|
|
|
if (dynamic_cast<WatchRoot*>(root)) {
|
|
idRemove = popup.insertItem(
|
|
SmallIcon("editdelete"), i18n("Remove Watch Variable") );
|
|
popup.setAccel(TQt::Key_Delete, idRemove);
|
|
} else if (root != recentExpressions_) {
|
|
idWatch = popup.insertItem(
|
|
i18n("Watch Variable"));
|
|
MAYBE_DISABLE(idWatch);
|
|
}
|
|
if (root == recentExpressions_) {
|
|
idReevaluate = popup.insertItem(
|
|
SmallIcon("reload"), i18n("Reevaluate Expression") );
|
|
MAYBE_DISABLE(idReevaluate);
|
|
idRemove = popup.insertItem(
|
|
SmallIcon("editdelete"), i18n("Remove Expression") );
|
|
popup.setAccel(TQt::Key_Delete, idRemove);
|
|
}
|
|
|
|
if (var)
|
|
{
|
|
popup.insertItem( i18n("Data write breakpoint"), idToggleWatch );
|
|
popup.setItemEnabled(idToggleWatch, false);
|
|
}
|
|
|
|
int idCopyToClipboard = popup.insertItem(
|
|
SmallIcon("editcopy"), i18n("Copy Value") );
|
|
popup.setAccel(TQt::CTRL + TQt::Key_C, idCopyToClipboard);
|
|
|
|
activePopup_ = &popup;
|
|
/* This code can be executed when debugger is stopped,
|
|
and we invoke popup menu on a var under "recent expressions"
|
|
just to delete it. */
|
|
if (var && var->isAlive() && !controller()->stateIsOn(s_dbgNotStarted))
|
|
controller_->addCommand(
|
|
new GDBCommand(
|
|
TQString("-data-evaluate-expression &%1")
|
|
.tqarg(var->gdbExpression()),
|
|
this,
|
|
&VariableTree::handleAddressComputed,
|
|
true /*handles error*/));
|
|
|
|
|
|
int res = popup.exec(TQCursor::pos());
|
|
|
|
activePopup_ = 0;
|
|
|
|
|
|
if (res == idNatural || res == idHex || res == idDecimal
|
|
|| res == idCharacter || res == idBinary)
|
|
{
|
|
// Change format.
|
|
VarItem* var_item = static_cast<VarItem*>(item);
|
|
var_item->setFormat(static_cast<VarItem::format_t>(res));
|
|
}
|
|
else if (res == idRemember)
|
|
{
|
|
if (VarItem *item = dynamic_cast<VarItem*>(currentItem()))
|
|
{
|
|
((VariableWidget*)parent())->
|
|
slotEvaluateExpression(item->gdbExpression());
|
|
}
|
|
}
|
|
else if (res == idWatch)
|
|
{
|
|
if (VarItem *item = dynamic_cast<VarItem*>(currentItem()))
|
|
{
|
|
((VariableWidget*)parent())->
|
|
slotAddWatchVariable(item->gdbExpression());
|
|
}
|
|
}
|
|
else if (res == idRemove)
|
|
delete item;
|
|
else if (res == idCopyToClipboard)
|
|
{
|
|
copyToClipboard(item);
|
|
}
|
|
else if (res == idToggleWatch)
|
|
{
|
|
if (VarItem *item = dynamic_cast<VarItem*>(currentItem()))
|
|
emit toggleWatchpoint(item->gdbExpression());
|
|
}
|
|
else if (res == idReevaluate)
|
|
{
|
|
if (VarItem* item = dynamic_cast<VarItem*>(currentItem()))
|
|
{
|
|
item->recreate();
|
|
}
|
|
}
|
|
}
|
|
else if (item == recentExpressions_)
|
|
{
|
|
KPopupMenu popup(this);
|
|
popup.insertTitle(i18n("Recent Expressions"));
|
|
int idRemove = popup.insertItem(
|
|
SmallIcon("editdelete"), i18n("Remove All"));
|
|
int idReevaluate = popup.insertItem(
|
|
SmallIcon("reload"), i18n("Reevaluate All"));
|
|
if (controller()->stateIsOn(s_dbgNotStarted))
|
|
popup.setItemEnabled(idReevaluate, false);
|
|
int res = popup.exec(TQCursor::pos());
|
|
|
|
if (res == idRemove)
|
|
{
|
|
delete recentExpressions_;
|
|
recentExpressions_ = 0;
|
|
}
|
|
else if (res == idReevaluate)
|
|
{
|
|
for(TQListViewItem* child = recentExpressions_->firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->recreate();
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void VariableTree::slotEvent(GDBController::event_t event)
|
|
{
|
|
switch(event)
|
|
{
|
|
case GDBController::program_exited:
|
|
case GDBController::debugger_exited:
|
|
{
|
|
// Remove all locals.
|
|
TQListViewItem *child = firstChild();
|
|
|
|
while (child) {
|
|
TQListViewItem *nextChild = child->nextSibling();
|
|
|
|
// don't remove the watch root, or 'recent expressions' root.
|
|
if (!(dynamic_cast<WatchRoot*> (child))
|
|
&& child != recentExpressions_)
|
|
{
|
|
delete child;
|
|
}
|
|
child = nextChild;
|
|
}
|
|
currentFrameItem = 0;
|
|
|
|
if (recentExpressions_)
|
|
{
|
|
for(TQListViewItem* child = recentExpressions_->firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->unhookFromGdb();
|
|
}
|
|
}
|
|
|
|
if (WatchRoot* w = findWatch())
|
|
{
|
|
for(TQListViewItem* child = w->firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->unhookFromGdb();
|
|
}
|
|
}
|
|
|
|
break;
|
|
}
|
|
|
|
case GDBController::program_state_changed:
|
|
|
|
// Fall-through intended.
|
|
|
|
case GDBController::thread_or_frame_changed:
|
|
{
|
|
VarFrameRoot *frame = demand_frame_root(
|
|
controller_->currentFrame(), controller_->currentThread());
|
|
|
|
if (frame->isOpen())
|
|
{
|
|
updateCurrentFrame();
|
|
}
|
|
else
|
|
{
|
|
frame->setDirty();
|
|
}
|
|
}
|
|
break;
|
|
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
|
|
void VariableTree::updateCurrentFrame()
|
|
{
|
|
// In GDB 6.4, the -stack-list-locals command is broken.
|
|
// If there's any local reference variable which is not
|
|
// initialized yet, for example because it's in the middle
|
|
// of function, gdb will still print it and try to dereference
|
|
// it. If the address in not accessible, the MI command will
|
|
// exit with an error, and we won't be able to see *any*
|
|
// locals. A patch is submitted:
|
|
// http://sourceware.org/ml/gdb-patches/2006-04/msg00069.html
|
|
// but we need to work with 6.4, not with some future version. So,
|
|
// we just -stack-list-locals to get just names of the locals,
|
|
// but not their values.
|
|
// We'll fetch values separately:
|
|
|
|
controller_->addCommand(
|
|
new GDBCommand(TQString("-stack-list-arguments 0 %1 %2")
|
|
.tqarg(controller_->currentFrame())
|
|
.tqarg(controller_->currentFrame())
|
|
.ascii(),
|
|
this,
|
|
&VariableTree::argumentsReady));
|
|
|
|
|
|
controller_->addCommand(
|
|
new GDBCommand("-stack-list-locals 0",
|
|
this,
|
|
&VariableTree::localsReady));
|
|
|
|
}
|
|
|
|
|
|
// **************************************************************************
|
|
|
|
void VariableTree::slotAddWatchVariable(const TQString &watchVar)
|
|
{
|
|
VarItem *varItem = 0;
|
|
varItem = new VarItem(findWatch(), watchVar);
|
|
}
|
|
|
|
void VariableTree::slotEvaluateExpression(const TQString &expression)
|
|
{
|
|
if (recentExpressions_ == 0)
|
|
{
|
|
recentExpressions_ = new TrimmableItem(this);
|
|
recentExpressions_->setText(0, "Recent");
|
|
recentExpressions_->setOpen(true);
|
|
}
|
|
|
|
VarItem *varItem = new VarItem(recentExpressions_,
|
|
expression,
|
|
true /* freeze */);
|
|
varItem->setRenameEnabled(0, 1);
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
TQListViewItem *VariableTree::findRoot(TQListViewItem *item) const
|
|
{
|
|
while (item->parent())
|
|
item = item->parent();
|
|
|
|
return item;
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
VarFrameRoot *VariableTree::findFrame(int frameNo, int threadNo) const
|
|
{
|
|
TQListViewItem *sibling = firstChild();
|
|
|
|
// frames only exist on th top level so we only need to
|
|
// check the siblings
|
|
while (sibling) {
|
|
VarFrameRoot *frame = dynamic_cast<VarFrameRoot*> (sibling);
|
|
if (frame && frame->matchDetails(frameNo, threadNo))
|
|
return frame;
|
|
|
|
sibling = sibling->nextSibling();
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
WatchRoot *VariableTree::findWatch()
|
|
{
|
|
TQListViewItem *sibling = firstChild();
|
|
|
|
while (sibling) {
|
|
if (WatchRoot *watch = dynamic_cast<WatchRoot*> (sibling))
|
|
return watch;
|
|
|
|
sibling = sibling->nextSibling();
|
|
}
|
|
|
|
return new WatchRoot(this);
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
TQListViewItem *VariableTree::lastChild() const
|
|
{
|
|
TQListViewItem *child = firstChild();
|
|
if (child)
|
|
while (TQListViewItem *nextChild = child->nextSibling())
|
|
child = nextChild;
|
|
|
|
return child;
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void VariableTree::maybeTip(const TQPoint &p)
|
|
{
|
|
VarItem * item = dynamic_cast<VarItem*>( itemAt( p ) );
|
|
if ( item )
|
|
{
|
|
TQRect r = tqitemRect( item );
|
|
if ( r.isValid() )
|
|
tip( r, item->tipText() );
|
|
}
|
|
}
|
|
|
|
class ValueSpecialRepresentationCommand : public TQObject, public CliCommand
|
|
{
|
|
public:
|
|
ValueSpecialRepresentationCommand(VarItem* item, const TQString& command)
|
|
: CliCommand(command.ascii(),
|
|
this,
|
|
&ValueSpecialRepresentationCommand::handleReply,
|
|
true),
|
|
item_(item)
|
|
{}
|
|
|
|
private:
|
|
|
|
VarItem* item_;
|
|
|
|
void handleReply(const TQValueVector<TQString>& lines)
|
|
{
|
|
TQString s;
|
|
for(unsigned i = 1; i < lines.count(); ++i)
|
|
s += lines[i];
|
|
item_->updateSpecialRepresentation(s.local8Bit());
|
|
}
|
|
};
|
|
|
|
void VariableTree::slotVarobjNameChanged(
|
|
const TQString& from, const TQString& to)
|
|
{
|
|
if (!from.isEmpty())
|
|
varobj2varitem.erase(from);
|
|
|
|
if (!to.isEmpty())
|
|
varobj2varitem[to] =
|
|
const_cast<VarItem*>(
|
|
static_cast<const VarItem*>(sender()));
|
|
}
|
|
|
|
|
|
|
|
VarFrameRoot* VariableTree::demand_frame_root(int frameNo, int threadNo)
|
|
{
|
|
VarFrameRoot *frame = findFrame(frameNo, threadNo);
|
|
if (!frame)
|
|
{
|
|
frame = new VarFrameRoot(this, frameNo, threadNo);
|
|
frame->setFrameName(i18n("Locals"));
|
|
// Make sure "Locals" item is always the top item, before
|
|
// "watch" and "recent experessions" items.
|
|
this->takeItem(frame);
|
|
this->insertItem(frame);
|
|
frame->setOpen(true);
|
|
}
|
|
return frame;
|
|
}
|
|
|
|
void VariableTree::argumentsReady(const GDBMI::ResultRecord& r)
|
|
{
|
|
const GDBMI::Value& args = r["stack-args"][0]["args"];
|
|
|
|
fetch_time.start();
|
|
|
|
locals_and_arguments.clear();
|
|
for(unsigned i = 0; i < args.size(); ++i)
|
|
{
|
|
locals_and_arguments.push_back(args[i].literal());
|
|
}
|
|
}
|
|
|
|
void VariableTree::localsReady(const GDBMI::ResultRecord& r)
|
|
{
|
|
const GDBMI::Value& locals = r["locals"];
|
|
|
|
for(unsigned i = 0; i < locals.size(); ++i)
|
|
{
|
|
TQString val = locals[i].literal();
|
|
|
|
// Check ada internal variables like <R45b>, <L23R> ...
|
|
bool is_ada_variable = (val[0] == '<' && val[val.length() - 1] == '>');
|
|
|
|
if (!is_ada_variable)
|
|
{
|
|
locals_and_arguments.push_back(val);
|
|
}
|
|
}
|
|
|
|
controller_->addCommand(new CliCommand("info frame",
|
|
this,
|
|
&VariableTree::frameIdReady));
|
|
}
|
|
|
|
void VariableTree::frameIdReady(const TQValueVector<TQString>& lines)
|
|
{
|
|
//kdDebug(9012) << "localAddresses: " << lines[1] << "\n";
|
|
|
|
TQString frame_info;
|
|
for(unsigned i = 1; i < lines.size(); ++i)
|
|
frame_info += lines[i];
|
|
|
|
kdDebug(9012) << "frame info: " << frame_info << "\n";
|
|
frame_info.replace('\n', "");
|
|
|
|
static TQRegExp frame_base_rx("frame at 0x([0-9a-fA-F]*)");
|
|
static TQRegExp frame_code_rx("saved [a-zA-Z0-9]* 0x([0-9a-fA-F]*)");
|
|
|
|
int i = frame_base_rx.search(frame_info);
|
|
int i2 = frame_code_rx.search(frame_info);
|
|
|
|
bool frameIdChanged = false;
|
|
|
|
VarFrameRoot *frame = demand_frame_root(
|
|
controller_->currentFrame(), controller_->currentThread());
|
|
|
|
if (frame != currentFrameItem)
|
|
{
|
|
if (currentFrameItem)
|
|
{
|
|
currentFrameItem->setVisible(false);
|
|
}
|
|
}
|
|
currentFrameItem = frame;
|
|
currentFrameItem->setVisible(true);
|
|
|
|
|
|
if (i != -1 && i2 != -1)
|
|
{
|
|
unsigned long long new_frame_base =
|
|
frame_base_rx.cap(1).toULongLong(0, 16);
|
|
unsigned long long new_code_address =
|
|
frame_code_rx.cap(1).toULongLong(0, 16);
|
|
kdDebug(9012) << "Frame base = " << TQString::number(new_frame_base, 16)
|
|
<< " code = " << TQString::number(new_code_address, 16)
|
|
<< "\n";
|
|
kdDebug(9012) << "Previous frame " <<
|
|
TQString::number(frame->currentFrameBase, 16)
|
|
<< " code = " << TQString::number(
|
|
frame->currentFrameCodeAddress, 16)
|
|
<< "\n";
|
|
|
|
frameIdChanged = (new_frame_base != frame->currentFrameBase ||
|
|
new_code_address != frame->currentFrameCodeAddress);
|
|
|
|
frame->currentFrameBase = new_frame_base;
|
|
frame->currentFrameCodeAddress = new_code_address;
|
|
}
|
|
else
|
|
{
|
|
KMessageBox::information(
|
|
0,
|
|
"<b>Can't get frame id</b>"
|
|
"Could not found frame id from output of 'info frame'. "
|
|
"Further debugging can be unreliable. ",
|
|
i18n("Internal error"), "gdb_error");
|
|
}
|
|
|
|
if (frameIdChanged)
|
|
{
|
|
// Remove all variables.
|
|
// FIXME: probably, need to do this in all frames.
|
|
TQListViewItem* child = frame->firstChild();
|
|
TQListViewItem* next;
|
|
for(; child; child = next)
|
|
{
|
|
next = child->nextSibling();
|
|
delete child;
|
|
}
|
|
}
|
|
|
|
setUpdatesEnabled(false);
|
|
|
|
std::set<TQListViewItem*> alive;
|
|
|
|
for(unsigned i = 0; i < locals_and_arguments.size(); ++i)
|
|
{
|
|
TQString name = locals_and_arguments[i];
|
|
|
|
// See if we've got VarItem for this one already.
|
|
VarItem* var = 0;
|
|
for(TQListViewItem *child = frame->firstChild();
|
|
child;
|
|
child = child->nextSibling())
|
|
{
|
|
if (child->text(VarNameCol) == name)
|
|
{
|
|
var = dynamic_cast<VarItem*>(child);
|
|
break;
|
|
}
|
|
}
|
|
if (!var)
|
|
{
|
|
var = new VarItem(frame, name);
|
|
}
|
|
alive.insert(var);
|
|
|
|
var->clearHighlight();
|
|
}
|
|
|
|
// Remove VarItems that don't correspond to any local
|
|
// variables any longer. Perform type/address updates
|
|
// for others.
|
|
for(TQListViewItem* child = frame->firstChild(); child;)
|
|
{
|
|
TQListViewItem* current = child;
|
|
child = current->nextSibling();
|
|
if (!alive.count(current))
|
|
delete current;
|
|
else
|
|
static_cast<VarItem*>(current)->recreateLocallyMaybe();
|
|
}
|
|
|
|
for(TQListViewItem* child = findWatch()->firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
VarItem* var = static_cast<VarItem*>(child);
|
|
var->clearHighlight();
|
|
// For watched expressions, we don't have an easy way
|
|
// to check if their meaning is still the same, so
|
|
// unconditionally recreate them.
|
|
var->recreate();
|
|
}
|
|
|
|
// Note: can't use --all-values in this command, because gdb will
|
|
// die if there's any uninitialized variable. Ouch!
|
|
controller_->addCommand(new GDBCommand(
|
|
"-var-update *",
|
|
this,
|
|
&VariableTree::handleVarUpdate));
|
|
|
|
controller_->addCommand(new SentinelCommand(
|
|
this,
|
|
&VariableTree::variablesFetchDone));
|
|
}
|
|
|
|
void VariableTree::handleVarUpdate(const GDBMI::ResultRecord& r)
|
|
{
|
|
const GDBMI::Value& changed = r["changelist"];
|
|
|
|
std::set<TQString> names_to_update;
|
|
|
|
for(unsigned i = 0; i < changed.size(); ++i)
|
|
{
|
|
const GDBMI::Value& c = changed[i];
|
|
|
|
TQString name = c["name"].literal();
|
|
if (c.hasField("in_scope") && c["in_scope"].literal() == "false")
|
|
continue;
|
|
|
|
names_to_update.insert(name);
|
|
}
|
|
|
|
TQMap<TQString, VarItem*>::iterator i, e;
|
|
for (i = varobj2varitem.begin(), e = varobj2varitem.end(); i != e; ++i)
|
|
{
|
|
if (names_to_update.count(i.key())
|
|
|| i.data()->updateUnconditionally())
|
|
{
|
|
i.data()->updateValue();
|
|
}
|
|
}
|
|
}
|
|
|
|
void VarItem::handleCliPrint(const TQValueVector<TQString>& lines)
|
|
{
|
|
static TQRegExp r("(\\$[0-9]+)");
|
|
if (lines.size() >= 2)
|
|
{
|
|
int i = r.search(lines[1]);
|
|
if (i == 0)
|
|
{
|
|
controller_->addCommand(
|
|
new GDBCommand(TQString("-var-create %1 * \"%2\"")
|
|
.tqarg(varobjName_)
|
|
.tqarg(r.cap(1)),
|
|
this,
|
|
&VarItem::varobjCreated,
|
|
// On initial create, errors get reported
|
|
// by generic code. After then, errors
|
|
// are swallowed by varobjCreated.
|
|
initialCreation_ ? false : true));
|
|
}
|
|
else
|
|
{
|
|
// FIXME: merge all output lines together.
|
|
// FIXME: add 'debuggerError' to debuggerpart.
|
|
KMessageBox::information(
|
|
0,
|
|
i18n("<b>Debugger error</b><br>") + lines[1],
|
|
i18n("Debugger error"), "gdb_error");
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void VariableTree::variablesFetchDone()
|
|
{
|
|
// During parsing of fetched variable values, we might have issued
|
|
// extra command to handle 'special values', like TQString.
|
|
// We don't want to enable updates just yet, because this will cause
|
|
// flicker, so add a sentinel command just to enable updates.
|
|
//
|
|
// We need this intermediate hook because commands for special
|
|
// representation are issues when responses to orginary fetch
|
|
// values commands are received, so we can add sentinel command after
|
|
// special representation fetch only when commands for ordinary
|
|
// fetch are all executed.
|
|
controller_->addCommand(new SentinelCommand(
|
|
this,
|
|
&VariableTree::fetchSpecialValuesDone));
|
|
|
|
}
|
|
|
|
void VariableTree::fetchSpecialValuesDone()
|
|
{
|
|
// FIXME: can currentFrame_ or currentThread_ change between
|
|
// start of var fetch and call of 'variablesFetchDone'?
|
|
VarFrameRoot *frame = demand_frame_root(
|
|
controller_->currentFrame(), controller_->currentThread());
|
|
|
|
// frame->trim();
|
|
|
|
frame->needLocals_ = false;
|
|
|
|
setUpdatesEnabled(true);
|
|
triggerUpdate();
|
|
|
|
kdDebug(9012) << "Time to fetch variables: " << fetch_time.elapsed() <<
|
|
"ms\n";
|
|
}
|
|
|
|
void
|
|
VariableTree::slotItemRenamed(TQListViewItem* item, int col, const TQString& text)
|
|
{
|
|
if (col == ValueCol)
|
|
{
|
|
VarItem* v = dynamic_cast<VarItem*>(item);
|
|
Q_ASSERT(v);
|
|
if (v)
|
|
{
|
|
v->setValue(text);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void VariableTree::keyPressEvent(TQKeyEvent* e)
|
|
{
|
|
if (VarItem* item = dynamic_cast<VarItem*>(currentItem()))
|
|
{
|
|
TQString text = e->text();
|
|
|
|
if (text == "n" || text == "x" || text == "d" || text == "c"
|
|
|| text == "t")
|
|
{
|
|
item->setFormat(
|
|
item->formatFromGdbModifier(text[0].latin1()));
|
|
}
|
|
|
|
if (e->key() == TQt::Key_Delete)
|
|
{
|
|
TQListViewItem* root = findRoot(item);
|
|
|
|
if (dynamic_cast<WatchRoot*>(root) || root == recentExpressions_)
|
|
{
|
|
delete item;
|
|
}
|
|
}
|
|
|
|
if (e->key() == TQt::Key_C && e->state() == TQt::ControlButton)
|
|
{
|
|
copyToClipboard(item);
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void VariableTree::copyToClipboard(TQListViewItem* item)
|
|
{
|
|
TQClipboard *qb = KApplication::tqclipboard();
|
|
TQString text = item->text( 1 );
|
|
|
|
qb->setText( text, TQClipboard::Clipboard );
|
|
}
|
|
|
|
void VariableTree::handleAddressComputed(const GDBMI::ResultRecord& r)
|
|
{
|
|
if (r.reason == "error")
|
|
{
|
|
// Not lvalue, leave item disabled.
|
|
return;
|
|
}
|
|
|
|
if (activePopup_)
|
|
{
|
|
activePopup_->setItemEnabled(idToggleWatch, true);
|
|
|
|
unsigned long long address = r["value"].literal().toULongLong(0, 16);
|
|
if (breakpointWidget_->hasWatchpointForAddress(address))
|
|
{
|
|
activePopup_->setItemChecked(idToggleWatch, true);
|
|
}
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
TrimmableItem::TrimmableItem(VariableTree *parent)
|
|
: KListViewItem (parent, parent->lastChild())
|
|
{
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
TrimmableItem::TrimmableItem(TrimmableItem *parent)
|
|
: KListViewItem (parent, parent->lastChild())
|
|
{
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
TrimmableItem::~TrimmableItem()
|
|
{
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void TrimmableItem::paintCell(TQPainter *p, const TQColorGroup &cg,
|
|
int column, int width, int align)
|
|
{
|
|
if ( !p )
|
|
return;
|
|
// make toplevel item (watch and frame items) names bold
|
|
if (column == 0 && !parent())
|
|
{
|
|
TQFont f = p->font();
|
|
f.setBold(true);
|
|
p->setFont(f);
|
|
}
|
|
TQListViewItem::paintCell( p, cg, column, width, align );
|
|
}
|
|
|
|
TQListViewItem *TrimmableItem::lastChild() const
|
|
{
|
|
TQListViewItem *child = firstChild();
|
|
if (child)
|
|
while (TQListViewItem *nextChild = child->nextSibling())
|
|
child = nextChild;
|
|
|
|
return child;
|
|
}
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
int VarItem::varobjIndex = 0;
|
|
|
|
VarItem::VarItem(TrimmableItem *parent,
|
|
const TQString& expression,
|
|
bool frozen)
|
|
: TrimmableItem (parent),
|
|
expression_(expression),
|
|
highlight_(false),
|
|
oldSpecialRepresentationSet_(false),
|
|
format_(natural),
|
|
numChildren_(0),
|
|
tqchildrenFetched_(false),
|
|
updateUnconditionally_(false),
|
|
frozen_(frozen),
|
|
initialCreation_(true),
|
|
baseClassMember_(false),
|
|
alive_(true)
|
|
{
|
|
connect(this, TQT_SIGNAL(varobjNameChange(const TQString&, const TQString&)),
|
|
varTree(),
|
|
TQT_SLOT(slotVarobjNameChanged(const TQString&, const TQString&)));
|
|
|
|
|
|
// User might have entered format together with expression: like
|
|
// /x i1+i2
|
|
// If we do nothing, it will be impossible to watch the variable in
|
|
// different format, as we'll just add extra format specifier.
|
|
// So:
|
|
// - detect initial value of format_
|
|
// - remove the format specifier from the string.
|
|
|
|
static TQRegExp explicit_format("^\\s*/(.)\\s*(.*)");
|
|
if (explicit_format.search(expression_) == 0)
|
|
{
|
|
format_ = formatFromGdbModifier(explicit_format.cap(1)[0].latin1());
|
|
expression_ = explicit_format.cap(2);
|
|
}
|
|
|
|
setText(VarNameCol, expression_);
|
|
// Allow to change variable name by editing.
|
|
setRenameEnabled(ValueCol, true);
|
|
|
|
// Need to store this locally, since varTree() is 0 in
|
|
// destructor.
|
|
controller_ = varTree()->controller();
|
|
|
|
createVarobj();
|
|
}
|
|
|
|
VarItem::VarItem(TrimmableItem *parent, const GDBMI::Value& varobj,
|
|
format_t format, bool baseClassMember)
|
|
: TrimmableItem (parent),
|
|
highlight_(false),
|
|
oldSpecialRepresentationSet_(false),
|
|
format_(format),
|
|
numChildren_(0),
|
|
tqchildrenFetched_(false),
|
|
updateUnconditionally_(false),
|
|
frozen_(false),
|
|
initialCreation_(false),
|
|
baseClassMember_(baseClassMember),
|
|
alive_(true)
|
|
{
|
|
connect(this, TQT_SIGNAL(varobjNameChange(const TQString&, const TQString&)),
|
|
varTree(),
|
|
TQT_SLOT(slotVarobjNameChanged(const TQString&, const TQString&)));
|
|
|
|
expression_ = varobj["exp"].literal();
|
|
varobjName_ = varobj["name"].literal();
|
|
|
|
varobjNameChange("", varobjName_);
|
|
|
|
setText(VarNameCol, displayName());
|
|
|
|
// Allow to change variable name by editing.
|
|
setRenameEnabled(ValueCol, true);
|
|
|
|
controller_ = varTree()->controller();
|
|
|
|
// Set type and tqchildren.
|
|
originalValueType_ = varobj["type"].literal();
|
|
numChildren_ = varobj["numchild"].literal().toInt();
|
|
setExpandable(numChildren_ != 0);
|
|
|
|
|
|
// Get the initial value.
|
|
updateValue();
|
|
}
|
|
|
|
void VarItem::createVarobj()
|
|
{
|
|
TQString old = varobjName_;
|
|
varobjName_ = TQString("KDEV%1").tqarg(varobjIndex++);
|
|
emit varobjNameChange(old, varobjName_);
|
|
|
|
if (frozen_)
|
|
{
|
|
// MI has no way to freeze a variable object. So, we
|
|
// issue print command that returns $NN convenience
|
|
// variable and we create variable object from that.
|
|
controller_->addCommand(
|
|
new CliCommand(
|
|
TQString("print %1").tqarg(expression_),
|
|
this,
|
|
&VarItem::handleCliPrint));
|
|
}
|
|
else
|
|
{
|
|
controller_->addCommand(
|
|
new CliCommand(
|
|
TQString("print /x &%1").tqarg(expression_),
|
|
this,
|
|
&VarItem::handleCurrentAddress,
|
|
true));
|
|
|
|
controller_->addCommand(
|
|
// Need to quote expression, otherwise gdb won't like
|
|
// spaces inside it.
|
|
new GDBCommand(TQString("-var-create %1 * \"%2\"")
|
|
.tqarg(varobjName_)
|
|
.tqarg(expression_),
|
|
this,
|
|
&VarItem::varobjCreated,
|
|
initialCreation_ ? false : true));
|
|
}
|
|
}
|
|
|
|
void VarItem::varobjCreated(const GDBMI::ResultRecord& r)
|
|
{
|
|
// If we've tried to recreate varobj (for example for watched expression)
|
|
// after step, and it's no longer valid, it's fine.
|
|
if (r.reason == "error")
|
|
{
|
|
varobjName_ = "";
|
|
return;
|
|
}
|
|
setAliveRecursively(true);
|
|
|
|
TQString oldType = originalValueType_;
|
|
originalValueType_ = r["type"].literal();
|
|
if (!oldType.isEmpty() && oldType != originalValueType_)
|
|
{
|
|
// Type changed, the tqchildren might be no longer valid,
|
|
// so delete them.
|
|
for(TQListViewItem* child = firstChild(); child; )
|
|
{
|
|
TQListViewItem* cur = child;
|
|
child = child->nextSibling();
|
|
delete cur;
|
|
}
|
|
}
|
|
|
|
if (r.hasField("exp"))
|
|
expression_ = r["exp"].literal();
|
|
numChildren_ = r["numchild"].literal().toInt();
|
|
setExpandable(numChildren_ != 0);
|
|
currentAddress_ = lastObtainedAddress_;
|
|
|
|
setVarobjName(varobjName_);
|
|
}
|
|
|
|
void VarItem::setVarobjName(const TQString& name)
|
|
{
|
|
if (varobjName_ != name)
|
|
emit varobjNameChange(varobjName_, name);
|
|
|
|
varobjName_ = name;
|
|
|
|
if (format_ != natural)
|
|
{
|
|
controller_->addCommand(
|
|
new GDBCommand(TQString("-var-set-format \"%1\" %2")
|
|
.tqarg(varobjName_).tqarg(varobjFormatName())));
|
|
}
|
|
|
|
// Get the initial value.
|
|
updateValue();
|
|
|
|
if (isOpen())
|
|
{
|
|
// This regets tqchildren list.
|
|
setOpen(true);
|
|
}
|
|
}
|
|
|
|
void VarItem::valueDone(const GDBMI::ResultRecord& r)
|
|
{
|
|
if (r.reason == "done")
|
|
{
|
|
TQString s = GDBParser::getGDBParser()->undecorateValue(
|
|
r["value"].literal());
|
|
|
|
if (format_ == character)
|
|
{
|
|
TQString encoded = s;
|
|
bool ok;
|
|
int value = s.toInt(&ok);
|
|
if (ok)
|
|
{
|
|
char c = (char)value;
|
|
encoded += " '";
|
|
if (std::isprint(c))
|
|
encoded += c;
|
|
else {
|
|
// Try common escape characters.
|
|
static char backslashed[] = {'a', 'b', 'f', 'n',
|
|
'r', 't', 'v', '0'};
|
|
static char represented[] = "\a\b\f\n\r\t\v";
|
|
|
|
const char* ix = strchr (represented, c);
|
|
if (ix) {
|
|
encoded += "\\";
|
|
encoded += backslashed[ix - represented];
|
|
}
|
|
else
|
|
encoded += "\\" + s;
|
|
}
|
|
encoded += "'";
|
|
s = encoded;
|
|
}
|
|
}
|
|
|
|
if (format_ == binary)
|
|
{
|
|
// For binary format, split the value at 4-bit boundaries
|
|
static TQRegExp r("^[01]+$");
|
|
int i = r.search(s);
|
|
if (i == 0)
|
|
{
|
|
TQString split;
|
|
for(unsigned i = 0; i < s.length(); ++i)
|
|
{
|
|
// For string 11111, we should split it as
|
|
// 1 1111, not as 1111 1.
|
|
|
|
// 0 is past the end character
|
|
int distance = i - s.length();
|
|
|
|
if (distance % 4 == 0 && !split.isEmpty())
|
|
split.append(' ');
|
|
split.append(s[i]);
|
|
}
|
|
s = split;
|
|
}
|
|
}
|
|
|
|
setText(ValueCol, s);
|
|
}
|
|
else
|
|
{
|
|
TQString s = r["msg"].literal();
|
|
// Error response.
|
|
if (s.startsWith("Cannot access memory"))
|
|
{
|
|
s = "(inaccessible)";
|
|
setExpandable(false);
|
|
}
|
|
else
|
|
{
|
|
setExpandable(numChildren_ != 0);
|
|
}
|
|
setText(ValueCol, s);
|
|
}
|
|
}
|
|
|
|
void VarItem::createChildren(const GDBMI::ResultRecord& r,
|
|
bool tqchildren_of_fake)
|
|
{
|
|
const GDBMI::Value& tqchildren = r["tqchildren"];
|
|
|
|
/* In order to figure out which variable objects correspond
|
|
to base class subobject, we first must detect if *this
|
|
is a structure type. We use present of 'public'/'private'/'protected'
|
|
fake child as an indicator. */
|
|
bool structureType = false;
|
|
if (!tqchildren_of_fake && tqchildren.size() > 0)
|
|
{
|
|
TQString exp = tqchildren[0]["exp"].literal();
|
|
bool ok = false;
|
|
exp.toInt(&ok);
|
|
if (!ok || exp[0] != '*')
|
|
{
|
|
structureType = true;
|
|
}
|
|
}
|
|
|
|
for (unsigned i = 0; i < tqchildren.size(); ++i)
|
|
{
|
|
TQString exp = tqchildren[i]["exp"].literal();
|
|
// For artificial accessibility nodes,
|
|
// fetch their tqchildren.
|
|
if (exp == "public" || exp == "protected" || exp == "private")
|
|
{
|
|
TQString name = tqchildren[i]["name"].literal();
|
|
controller_->addCommand(new GDBCommand(
|
|
"-var-list-tqchildren \"" +
|
|
name + "\"",
|
|
this,
|
|
&VarItem::tqchildrenOfFakesDone));
|
|
}
|
|
else
|
|
{
|
|
/* All tqchildren of structures that are not artifical
|
|
are base subobjects. */
|
|
bool baseObject = structureType;
|
|
|
|
VarItem* existing = 0;
|
|
for(TQListViewItem* child = firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
VarItem* v = static_cast<VarItem*>(child);
|
|
kdDebug(9012) << "Child exp : " << v->expression_ <<
|
|
" new exp " << exp << "\n";
|
|
|
|
if (v->expression_ == exp)
|
|
{
|
|
existing = v;
|
|
}
|
|
}
|
|
if (existing)
|
|
{
|
|
existing->setVarobjName(tqchildren[i]["name"].literal());
|
|
}
|
|
else
|
|
{
|
|
kdDebug(9012) << "Creating new varobj "
|
|
<< exp << " " << baseObject << "\n";
|
|
// Propagate format from parent.
|
|
VarItem* v = 0;
|
|
v = new VarItem(this, tqchildren[i], format_, baseObject);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
|
|
void VarItem::tqchildrenDone(const GDBMI::ResultRecord& r)
|
|
{
|
|
createChildren(r, false);
|
|
tqchildrenFetched_ = true;
|
|
}
|
|
|
|
void VarItem::tqchildrenOfFakesDone(const GDBMI::ResultRecord& r)
|
|
{
|
|
createChildren(r, true);
|
|
}
|
|
|
|
void VarItem::handleCurrentAddress(const TQValueVector<TQString>& lines)
|
|
{
|
|
lastObtainedAddress_ = "";
|
|
if (lines.count() > 1)
|
|
{
|
|
static TQRegExp r("\\$\\d+ = ([^\n]*)");
|
|
int i = r.search(lines[1]);
|
|
if (i == 0)
|
|
{
|
|
lastObtainedAddress_ = r.cap(1);
|
|
kdDebug(9012) << "new address " << lastObtainedAddress_ << "\n";
|
|
}
|
|
}
|
|
}
|
|
|
|
void VarItem::handleType(const TQValueVector<TQString>& lines)
|
|
{
|
|
bool recreate = false;
|
|
|
|
if (lastObtainedAddress_ != currentAddress_)
|
|
{
|
|
kdDebug(9012) << "Address changed from " << currentAddress_
|
|
<< " to " << lastObtainedAddress_ << "\n";
|
|
recreate = true;
|
|
}
|
|
else
|
|
{
|
|
// FIXME: add error diagnostic.
|
|
if (lines.count() > 1)
|
|
{
|
|
static TQRegExp r("type = ([^\n]*)");
|
|
int i = r.search(lines[1]);
|
|
if (i == 0)
|
|
{
|
|
kdDebug(9012) << "found type: " << r.cap(1) << "\n";
|
|
kdDebug(9012) << "original Type: " << originalValueType_ << "\n";
|
|
|
|
if (r.cap(1) != originalValueType_)
|
|
{
|
|
recreate = true;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (recreate)
|
|
{
|
|
this->recreate();
|
|
}
|
|
}
|
|
|
|
TQString VarItem::displayName() const
|
|
{
|
|
if (expression_[0] != '*')
|
|
return expression_;
|
|
|
|
if (const VarItem* parent =
|
|
dynamic_cast<const VarItem*>(TrimmableItem::parent()))
|
|
{
|
|
return "*" + parent->displayName();
|
|
}
|
|
else
|
|
{
|
|
return expression_;
|
|
}
|
|
}
|
|
|
|
void VarItem::setAliveRecursively(bool enable)
|
|
{
|
|
setEnabled(enable);
|
|
alive_ = true;
|
|
|
|
for(TQListViewItem* child = firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->setAliveRecursively(enable);
|
|
}
|
|
}
|
|
|
|
|
|
VarItem::~VarItem()
|
|
{
|
|
unhookFromGdb();
|
|
}
|
|
|
|
TQString VarItem::gdbExpression() const
|
|
{
|
|
// The expression for this item can be either:
|
|
// - number, for array element
|
|
// - identifier, for member,
|
|
// - ***intentifier, for derefenreced pointer.
|
|
const VarItem* parent = dynamic_cast<const VarItem*>(TrimmableItem::parent());
|
|
|
|
bool ok = false;
|
|
expression_.toInt(&ok);
|
|
if (ok)
|
|
{
|
|
// Array, parent always exists.
|
|
return parent->gdbExpression() + "[" + expression_ + "]";
|
|
}
|
|
else if (expression_[0] == '*')
|
|
{
|
|
if (parent)
|
|
{
|
|
// For MI, expression_ can be "*0" (meaing
|
|
// references 0-th element of some array).
|
|
// So, we really need to get to the parent to computed the right
|
|
// gdb expression.
|
|
return "*" + parent->gdbExpression();
|
|
}
|
|
else
|
|
{
|
|
// Parent can be null for watched expressions. In that case,
|
|
// expression_ should be a valid C++ expression.
|
|
return expression_;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
if (parent)
|
|
/* This is varitem corresponds to a base suboject,
|
|
the expression should cast parent to the base's
|
|
type. */
|
|
if (baseClassMember_)
|
|
return "((" + expression_ + ")" + parent->gdbExpression() + ")";
|
|
else
|
|
return parent->gdbExpression() + "." + expression_;
|
|
else
|
|
return expression_;
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
|
|
// FIXME: we have two method to set VarItem: this one
|
|
// and updateValue below. That's bad, must have just one.
|
|
void VarItem::setText(int column, const TQString &data)
|
|
{
|
|
TQString strData=data;
|
|
|
|
if (column == ValueCol) {
|
|
TQString oldValue(text(column));
|
|
if (!oldValue.isEmpty()) // Don't highlight new items
|
|
{
|
|
highlight_ = (oldValue != TQString(data));
|
|
}
|
|
}
|
|
|
|
TQListViewItem::setText(column, strData);
|
|
}
|
|
|
|
void VarItem::clearHighlight()
|
|
{
|
|
highlight_ = false;
|
|
|
|
for(TQListViewItem* child = firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->clearHighlight();
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
void VarItem::updateValue()
|
|
{
|
|
if (handleSpecialTypes())
|
|
{
|
|
// 1. Gdb never includes structures in output from -var-update
|
|
// 2. Even if it did, the internal state of object can be
|
|
// arbitrary complex and gdb can't detect if pretty-printed
|
|
// value remains the same.
|
|
// So, we need to reload value on each step.
|
|
updateUnconditionally_ = true;
|
|
return;
|
|
}
|
|
updateUnconditionally_ = false;
|
|
|
|
controller_->addCommand(
|
|
new GDBCommand(
|
|
"-var-evaluate-expression \"" + varobjName_ + "\"",
|
|
this,
|
|
&VarItem::valueDone,
|
|
true /* handle error */));
|
|
}
|
|
|
|
void VarItem::setValue(const TQString& new_value)
|
|
{
|
|
controller_->addCommand(
|
|
new GDBCommand(TQString("-var-assign \"%1\" %2").tqarg(varobjName_)
|
|
.tqarg(new_value)));
|
|
|
|
// And immediately reload it from gdb,
|
|
// so that it's display format is the one gdb uses,
|
|
// not the one user has typed. Otherwise, on the next
|
|
// step, the visible value might change and be highlighted
|
|
// as changed, which is bogus.
|
|
updateValue();
|
|
}
|
|
|
|
void VarItem::updateSpecialRepresentation(const TQString& xs)
|
|
{
|
|
TQString s(xs);
|
|
if (s[0] == '$')
|
|
{
|
|
int i = s.find('=');
|
|
if (i != -1)
|
|
s = s.mid(i+2);
|
|
}
|
|
|
|
// A hack to nicely display TQStrings. The content of TQString is tqunicode
|
|
// for for ASCII only strings we get ascii character mixed with \000.
|
|
// Remove those \000 now.
|
|
|
|
// This is not very nice, becuse we're doing this unconditionally
|
|
// and this method can be called twice: first with data that gdb sends
|
|
// for a variable, and second after we request the string data. In theory
|
|
// the data sent by gdb might contain \000 that should not be translated.
|
|
//
|
|
// What's even worse, ideally we should convert the string data from
|
|
// gdb into a TQString again, handling all other escapes and composing
|
|
// one TQChar from two characters from gdb. But to do that, we *should*
|
|
// now if the data if generic gdb value, and result of request for string
|
|
// data. Fixing is is for later.
|
|
s.replace( TQRegExp("\\\\000|\\\\0"), "" );
|
|
|
|
// FIXME: for now, assume that all special representations are
|
|
// just strings.
|
|
|
|
s = GDBParser::getGDBParser()->undecorateValue(s);
|
|
|
|
setText(ValueCol, s);
|
|
// On the first stop, when VarItem was just created,
|
|
// don't show it in red.
|
|
if (oldSpecialRepresentationSet_)
|
|
highlight_ = (oldSpecialRepresentation_ != s);
|
|
else
|
|
highlight_ = false;
|
|
|
|
oldSpecialRepresentationSet_ = true;
|
|
oldSpecialRepresentation_ = s;
|
|
}
|
|
|
|
void VarItem::recreateLocallyMaybe()
|
|
{
|
|
controller_->addCommand(
|
|
new CliCommand(
|
|
TQString("print /x &%1").tqarg(expression_),
|
|
this,
|
|
&VarItem::handleCurrentAddress,
|
|
true));
|
|
|
|
controller_->addCommand(
|
|
new CliCommand(
|
|
TQString("whatis %1").tqarg(expression_),
|
|
this,
|
|
&VarItem::handleType));
|
|
}
|
|
|
|
void VarItem::recreate()
|
|
{
|
|
unhookFromGdb();
|
|
|
|
initialCreation_ = false;
|
|
createVarobj();
|
|
}
|
|
|
|
|
|
// **************************************************************************
|
|
|
|
void VarItem::setOpen(bool open)
|
|
{
|
|
TQListViewItem::setOpen(open);
|
|
|
|
if (open && !tqchildrenFetched_)
|
|
{
|
|
controller_->addCommand(new GDBCommand(
|
|
"-var-list-tqchildren \"" + varobjName_ + "\"",
|
|
this,
|
|
&VarItem::tqchildrenDone));
|
|
}
|
|
}
|
|
|
|
bool VarItem::handleSpecialTypes()
|
|
{
|
|
kdDebug(9012) << "handleSpecialTypes: " << originalValueType_ << "\n";
|
|
if (originalValueType_.isEmpty())
|
|
return false;
|
|
|
|
static TQRegExp qstring("^(const)?[ ]*TQString[ ]*&?$");
|
|
|
|
if (qstring.exactMatch(originalValueType_)) {
|
|
|
|
VariableTree* varTree = static_cast<VariableTree*>(listView());
|
|
if( !varTree->controller() )
|
|
return false;
|
|
varTree->controller()->addCommand(
|
|
new ResultlessCommand(TQString("print $kdev_d=%1.d")
|
|
.tqarg(gdbExpression()),
|
|
true /* ignore error */));
|
|
|
|
if (varTree->controller()->qtVersion() >= 4)
|
|
varTree->controller()->addCommand(
|
|
new ResultlessCommand(TQString("print $kdev_s=$kdev_d.size"),
|
|
true));
|
|
else
|
|
varTree->controller()->addCommand(
|
|
new ResultlessCommand(TQString("print $kdev_s=$kdev_d.len"),
|
|
true));
|
|
|
|
varTree->controller()->addCommand(
|
|
new ResultlessCommand(
|
|
TQString("print $kdev_s= ($kdev_s > 0)? ($kdev_s > 100 ? 200 : 2*$kdev_s) : 0"),
|
|
true));
|
|
|
|
if (varTree->controller()->qtVersion() >= 4)
|
|
varTree->controller()->addCommand(
|
|
new ValueSpecialRepresentationCommand(
|
|
this, "print ($kdev_s>0) ? (*((char*)&$kdev_d.data[0])@$kdev_s) : \"\""));
|
|
else
|
|
varTree->controller()->addCommand(
|
|
new ValueSpecialRepresentationCommand(
|
|
this, "print ($kdev_s>0) ? (*((char*)&$kdev_d.tqunicode[0])@$kdev_s) : \"\""));
|
|
|
|
return true;
|
|
}
|
|
|
|
return false;
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
VarItem::format_t VarItem::format() const
|
|
{
|
|
return format_;
|
|
}
|
|
|
|
void VarItem::setFormat(format_t f)
|
|
{
|
|
if (f == format_)
|
|
return;
|
|
|
|
format_ = f;
|
|
|
|
if (numChildren_)
|
|
{
|
|
// If variable has tqchildren, change format for tqchildren.
|
|
// - for structures, that's clearly right
|
|
// - for arrays, that's clearly right
|
|
// - for pointers, this can be confusing, but nobody ever wants to
|
|
// see the pointer in decimal!
|
|
for(TQListViewItem* child = firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->setFormat(f);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
controller_->addCommand(
|
|
new GDBCommand(TQString("-var-set-format \"%1\" %2")
|
|
.tqarg(varobjName_).tqarg(varobjFormatName())));
|
|
|
|
updateValue();
|
|
}
|
|
}
|
|
|
|
VarItem::format_t VarItem::formatFromGdbModifier(char c) const
|
|
{
|
|
format_t nf;
|
|
switch(c)
|
|
{
|
|
case 'n': // Not quite gdb modifier, but used in our UI.
|
|
nf = natural; break;
|
|
case 'x':
|
|
nf = hexadecimal; break;
|
|
case 'd':
|
|
nf = decimal; break;
|
|
case 'c':
|
|
nf = character; break;
|
|
case 't':
|
|
nf = binary; break;
|
|
default:
|
|
nf = natural; break;
|
|
}
|
|
return nf;
|
|
}
|
|
|
|
TQString VarItem::varobjFormatName() const
|
|
{
|
|
switch(format_)
|
|
{
|
|
case natural:
|
|
return "natural";
|
|
break;
|
|
|
|
case hexadecimal:
|
|
return "hexadecimal";
|
|
break;
|
|
|
|
case decimal:
|
|
return "decimal";
|
|
break;
|
|
|
|
// Note: gdb does not support 'character' natively,
|
|
// so we'll generate appropriate representation
|
|
// ourselfs.
|
|
case character:
|
|
return "decimal";
|
|
break;
|
|
|
|
case binary:
|
|
return "binary";
|
|
break;
|
|
}
|
|
return "<undefined>";
|
|
}
|
|
|
|
|
|
// **************************************************************************
|
|
|
|
// Overridden to highlight the changed items
|
|
void VarItem::paintCell(TQPainter *p, const TQColorGroup &cg,
|
|
int column, int width, int align)
|
|
{
|
|
if ( !p )
|
|
return;
|
|
|
|
// Draw values in fixed font. For example, when there are several
|
|
// pointer variables, it's nicer if they are aligned -- it allows
|
|
// to easy see the diferrence between the pointers.
|
|
if (column == ValueCol)
|
|
{
|
|
p->setFont(KGlobalSettings::fixedFont());
|
|
}
|
|
|
|
if (!alive_)
|
|
{
|
|
/* Draw this as disabled. */
|
|
TQListViewItem::paintCell(p, varTree()->TQWidget::tqpalette().disabled(),
|
|
column, width, align);
|
|
}
|
|
else
|
|
{
|
|
if (column == ValueCol && highlight_)
|
|
{
|
|
TQColorGroup hl_cg( cg.foreground(), cg.background(), cg.light(),
|
|
cg.dark(), cg.mid(), red, cg.base());
|
|
TQListViewItem::paintCell( p, hl_cg, column, width, align );
|
|
} else
|
|
TQListViewItem::paintCell( p, cg, column, width, align );
|
|
}
|
|
}
|
|
|
|
|
|
VariableTree* VarItem::varTree() const
|
|
{
|
|
return static_cast<VariableTree*>(listView());
|
|
}
|
|
|
|
void VarItem::unhookFromGdb()
|
|
{
|
|
// Unhook tqchildren first, so that child varitems are deleted
|
|
// before parent. Strictly speaking, we can avoid calling
|
|
// -var-delete on child varitems, but that's a bit cheesy,
|
|
for(TQListViewItem* child = firstChild();
|
|
child; child = child->nextSibling())
|
|
{
|
|
static_cast<VarItem*>(child)->unhookFromGdb();
|
|
}
|
|
|
|
alive_ = false;
|
|
tqchildrenFetched_ = false;
|
|
|
|
emit varobjNameChange(varobjName_, "");
|
|
|
|
if (!controller_->stateIsOn(s_dbgNotStarted) && !varobjName_.isEmpty())
|
|
{
|
|
controller_->addCommand(
|
|
new GDBCommand(
|
|
TQString("-var-delete \"%1\"").tqarg(varobjName_)));
|
|
}
|
|
|
|
varobjName_ = "";
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
TQString VarItem::tipText() const
|
|
{
|
|
const unsigned int maxTooltipSize = 70;
|
|
TQString tip = text( ValueCol );
|
|
|
|
if (tip.length() > maxTooltipSize)
|
|
tip = tip.mid(0, maxTooltipSize - 1 ) + " [...]";
|
|
|
|
if (!tip.isEmpty())
|
|
tip += "\n" + originalValueType_;
|
|
|
|
return tip;
|
|
}
|
|
|
|
bool VarItem::updateUnconditionally() const
|
|
{
|
|
return updateUnconditionally_;
|
|
}
|
|
|
|
bool VarItem::isAlive() const
|
|
{
|
|
return alive_;
|
|
}
|
|
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
VarFrameRoot::VarFrameRoot(VariableTree *parent, int frameNo, int threadNo)
|
|
: TrimmableItem (parent),
|
|
needLocals_(false),
|
|
frameNo_(frameNo),
|
|
threadNo_(threadNo),
|
|
currentFrameBase((unsigned long long)-1),
|
|
currentFrameCodeAddress((unsigned long long)-1)
|
|
{
|
|
setExpandable(true);
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
VarFrameRoot::~VarFrameRoot()
|
|
{
|
|
}
|
|
|
|
void VarFrameRoot::setOpen(bool open)
|
|
{
|
|
bool frameOpened = ( isOpen()==false && open==true );
|
|
TQListViewItem::setOpen(open);
|
|
|
|
if (frameOpened && needLocals_)
|
|
{
|
|
needLocals_ = false;
|
|
VariableTree* parent = static_cast<VariableTree*>(listView());
|
|
parent->updateCurrentFrame();
|
|
}
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
bool VarFrameRoot::matchDetails(int frameNo, int threadNo)
|
|
{
|
|
return frameNo == frameNo_ && threadNo == threadNo_;
|
|
}
|
|
|
|
void VarFrameRoot::setDirty()
|
|
{
|
|
needLocals_ = true;
|
|
}
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
WatchRoot::WatchRoot(VariableTree *parent)
|
|
: TrimmableItem(parent)
|
|
{
|
|
setText(0, i18n("Watch"));
|
|
setOpen(true);
|
|
}
|
|
|
|
// **************************************************************************
|
|
|
|
WatchRoot::~WatchRoot()
|
|
{
|
|
}
|
|
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
// **************************************************************************
|
|
|
|
}
|
|
|
|
|
|
#include "variablewidget.moc"
|
|
|