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.
272 lines
7.5 KiB
272 lines
7.5 KiB
/***************************************************************************
|
|
begin : Sun Aug 8 1999
|
|
copyright : (C) 1999 by John Birch
|
|
email : jbb@kdevelop.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. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#ifndef _GDBCOMMAND_H_
|
|
#define _GDBCOMMAND_H_
|
|
|
|
#include <tqobject.h>
|
|
#include <tqstring.h>
|
|
#include <tqvaluevector.h>
|
|
|
|
#include "mi/gdbmi.h"
|
|
#include <tqguardedptr.h>
|
|
|
|
namespace GDBDebugger
|
|
{
|
|
|
|
|
|
class Breakpoint;
|
|
class VarItem;
|
|
class ValueCallback;
|
|
|
|
/**
|
|
* @author John Birch
|
|
*/
|
|
|
|
class GDBCommand
|
|
{
|
|
public:
|
|
GDBCommand(const TQString& command);
|
|
|
|
template<class Handler>
|
|
GDBCommand(const TQString& command,
|
|
Handler* handler_this,
|
|
void (Handler::* handler_method)(const GDBMI::ResultRecord&),
|
|
bool handlesError = false);
|
|
|
|
/* The command that should be sent to gdb.
|
|
This method is virtual so the command can compute this
|
|
dynamically, possibly using results of the previous
|
|
commands.
|
|
If the empty string is returned, nothing is sent. */
|
|
virtual TQString cmdToSend();
|
|
|
|
/* Returns the initial string that was specified in
|
|
ctor invocation. The actual command will be
|
|
determined by cmdToSend above and the return
|
|
value of this method is only used in various
|
|
diagnostic messages emitted before actually
|
|
sending the command. */
|
|
TQString initialString() const;
|
|
|
|
/* Returns true if this is command entered by the user
|
|
and so should be always shown in the gdb output window. */
|
|
virtual bool isUserCommand() const;
|
|
|
|
// If there's a handler for this command, invokes it and returns true.
|
|
// Otherwise, returns false.
|
|
virtual bool invokeHandler(const GDBMI::ResultRecord& r);
|
|
|
|
// Returns 'true' if 'invokeHandler' should be invoked even
|
|
// on MI errors.
|
|
bool handlesError() const;
|
|
|
|
virtual ~GDBCommand();
|
|
|
|
// Called by gdbcontroller for each new output string
|
|
// gdb emits for this command. In MI mode, this includes
|
|
// all "stream" messages, but does not include MI responses.
|
|
void newOutput(const TQString&);
|
|
|
|
const TQValueVector<TQString>& allStreamOutput() const;
|
|
|
|
// True if this command run then target for
|
|
// unspecified period of time -- that is either 'run' or
|
|
// 'continue'.
|
|
bool isRun() const;
|
|
|
|
void setRun(bool run);
|
|
|
|
private:
|
|
TQString command_;
|
|
TQGuardedPtr<TQT_BASE_OBJECT_NAME> handler_this;
|
|
typedef void (TQT_BASE_OBJECT_NAME::* handler_t)(const GDBMI::ResultRecord&);
|
|
handler_t handler_method;
|
|
TQValueVector<TQString> lines;
|
|
bool run;
|
|
|
|
protected: // FIXME: should be private, after I kill the first ctor
|
|
// that is obsolete and no longer necessary.
|
|
bool handlesError_;
|
|
|
|
};
|
|
|
|
class UserCommand : public GDBCommand
|
|
{
|
|
public:
|
|
UserCommand(const TQString& s);
|
|
|
|
bool isUserCommand() const;
|
|
};
|
|
|
|
/** This command is used to change some property of breakpoint.
|
|
It holds a pointer to a Breakpoint object and will substitute
|
|
breakpoint id into the command string.
|
|
|
|
So, the command can be issued before the breakpoint id is know. That
|
|
is, it's possible to queue add + modify pair. The add command will
|
|
set breakpoint id and modify command will use it.
|
|
*/
|
|
class ModifyBreakpointCommand : public GDBCommand
|
|
{
|
|
public:
|
|
/** The 'comamnd' should include a single format specifier "%1" that
|
|
will be replaced with the id of breakpoint.
|
|
*/
|
|
ModifyBreakpointCommand(const TQString& command, const Breakpoint* bp);
|
|
|
|
public: // DbgCommand overrides
|
|
virtual TQString cmdToSend();
|
|
|
|
private:
|
|
const Breakpoint* bp_;
|
|
};
|
|
|
|
/** This is a class for raw CLI commands. Instead of invoking
|
|
user provided hook with MI response, it invokes the a hook
|
|
with lists of strings.
|
|
*/
|
|
class CliCommand : public GDBCommand
|
|
{
|
|
public:
|
|
template<class Handler>
|
|
CliCommand(const TQString& command,
|
|
Handler* handler_this,
|
|
void (Handler::* handler_method)(const TQValueVector<TQString>&),
|
|
bool handlesError = false);
|
|
|
|
|
|
|
|
public: // GDBCommand overrides
|
|
bool invokeHandler(const GDBMI::ResultRecord& r);
|
|
|
|
private:
|
|
TQGuardedPtr<TQT_BASE_OBJECT_NAME> cli_handler_this;
|
|
typedef void (TQT_BASE_OBJECT_NAME::* cli_handler_t)(const TQValueVector<TQString>&);
|
|
cli_handler_t cli_handler_method;
|
|
};
|
|
|
|
/** Command that does nothing and can be just used to invoke
|
|
a user provided handler when all preceeding commands are
|
|
executed.
|
|
*/
|
|
class SentinelCommand : public GDBCommand
|
|
{
|
|
public:
|
|
typedef void (TQT_BASE_OBJECT_NAME::*handler_method_t)();
|
|
|
|
template<class Handler>
|
|
SentinelCommand(Handler* handler_this,
|
|
void (Handler::* handler_method)())
|
|
: GDBCommand(""),
|
|
handler_this(handler_this),
|
|
handler_method(static_cast<handler_method_t>(handler_method))
|
|
{}
|
|
|
|
void invokeHandler()
|
|
{
|
|
(handler_this->*handler_method)();
|
|
}
|
|
|
|
TQString cmdToSend()
|
|
{
|
|
return "";
|
|
}
|
|
|
|
private:
|
|
TQGuardedPtr<TQT_BASE_OBJECT_NAME> handler_this;
|
|
handler_method_t handler_method;
|
|
|
|
};
|
|
|
|
/* Command for which we don't want any reply. */
|
|
class ResultlessCommand : public TQObject, public GDBCommand
|
|
{
|
|
public:
|
|
ResultlessCommand(const TQString& command, bool handlesError = false)
|
|
: GDBCommand(command, this, &ResultlessCommand::handle, handlesError)
|
|
{}
|
|
|
|
private:
|
|
void handle(const GDBMI::ResultRecord&)
|
|
{}
|
|
};
|
|
|
|
class ExpressionValueCommand : public TQObject, public GDBCommand
|
|
{
|
|
public:
|
|
typedef void (TQT_BASE_OBJECT_NAME::*handler_method_t)(const TQString&);
|
|
|
|
template<class Handler>
|
|
ExpressionValueCommand(
|
|
const TQString& expression,
|
|
Handler* handler_this,
|
|
void (Handler::* handler_method)(const TQString&))
|
|
: GDBCommand(("-data-evaluate-expression " + expression).ascii(), this,
|
|
&ExpressionValueCommand::handleResponse),
|
|
handler_this(handler_this),
|
|
handler_method(static_cast<handler_method_t>(handler_method))
|
|
{}
|
|
|
|
void handleResponse(const GDBMI::ResultRecord& r)
|
|
{
|
|
(handler_this->*handler_method)(r["value"].literal());
|
|
}
|
|
|
|
private:
|
|
TQGuardedPtr<TQT_BASE_OBJECT_NAME> handler_this;
|
|
handler_method_t handler_method;
|
|
};
|
|
|
|
|
|
|
|
template<class Handler>
|
|
GDBCommand::GDBCommand(
|
|
const TQString& command,
|
|
Handler* handler_this,
|
|
void (Handler::* handler_method)(const GDBMI::ResultRecord&),
|
|
bool handlesError)
|
|
: command_(command),
|
|
handler_this(handler_this),
|
|
handler_method(static_cast<handler_t>(handler_method)),
|
|
run(false),
|
|
handlesError_(handlesError)
|
|
{
|
|
}
|
|
|
|
template<class Handler>
|
|
CliCommand::CliCommand(
|
|
const TQString& command,
|
|
Handler* handler_this,
|
|
void (Handler::* handler_method)(const TQValueVector<TQString>&),
|
|
bool handlesError)
|
|
: GDBCommand(command.latin1()),
|
|
cli_handler_this(handler_this),
|
|
cli_handler_method(static_cast<cli_handler_t>(handler_method))
|
|
{
|
|
handlesError_ = handlesError;
|
|
}
|
|
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#endif
|