forked from OSchip/llvm-project
493 lines
15 KiB
C++
493 lines
15 KiB
C++
//===-- SBCommandInterpreter.cpp --------------------------------*- C++ -*-===//
|
|
//
|
|
// The LLVM Compiler Infrastructure
|
|
//
|
|
// This file is distributed under the University of Illinois Open Source
|
|
// License. See LICENSE.TXT for details.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "lldb/lldb-types.h"
|
|
#include "lldb/Core/SourceManager.h"
|
|
#include "lldb/Core/Listener.h"
|
|
#include "lldb/Interpreter/CommandInterpreter.h"
|
|
#include "lldb/Interpreter/CommandObjectMultiword.h"
|
|
#include "lldb/Interpreter/CommandReturnObject.h"
|
|
#include "lldb/Target/Target.h"
|
|
|
|
#include "lldb/API/SBBroadcaster.h"
|
|
#include "lldb/API/SBCommandReturnObject.h"
|
|
#include "lldb/API/SBCommandInterpreter.h"
|
|
#include "lldb/API/SBProcess.h"
|
|
#include "lldb/API/SBTarget.h"
|
|
#include "lldb/API/SBListener.h"
|
|
#include "lldb/API/SBStream.h"
|
|
#include "lldb/API/SBStringList.h"
|
|
|
|
using namespace lldb;
|
|
using namespace lldb_private;
|
|
|
|
class CommandPluginInterfaceImplementation : public CommandObjectParsed
|
|
{
|
|
public:
|
|
CommandPluginInterfaceImplementation (CommandInterpreter &interpreter,
|
|
const char *name,
|
|
lldb::SBCommandPluginInterface* backend,
|
|
const char *help = NULL,
|
|
const char *syntax = NULL,
|
|
uint32_t flags = 0) :
|
|
CommandObjectParsed (interpreter, name, help, syntax, flags),
|
|
m_backend(backend) {}
|
|
|
|
virtual bool
|
|
IsRemovable() { return true; }
|
|
|
|
protected:
|
|
virtual bool
|
|
DoExecute (Args& command, CommandReturnObject &result)
|
|
{
|
|
SBCommandReturnObject sb_return(&result);
|
|
SBCommandInterpreter sb_interpreter(&m_interpreter);
|
|
SBDebugger debugger_sb(m_interpreter.GetDebugger().shared_from_this());
|
|
bool ret = m_backend->DoExecute (debugger_sb,(char**)command.GetArgumentVector(), sb_return);
|
|
sb_return.Release();
|
|
return ret;
|
|
}
|
|
lldb::SBCommandPluginInterface* m_backend;
|
|
};
|
|
|
|
SBCommandInterpreter::SBCommandInterpreter (CommandInterpreter *interpreter) :
|
|
m_opaque_ptr (interpreter)
|
|
{
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter::SBCommandInterpreter (interpreter=%p)"
|
|
" => SBCommandInterpreter(%p)", interpreter, m_opaque_ptr);
|
|
}
|
|
|
|
SBCommandInterpreter::SBCommandInterpreter(const SBCommandInterpreter &rhs) :
|
|
m_opaque_ptr (rhs.m_opaque_ptr)
|
|
{
|
|
}
|
|
|
|
const SBCommandInterpreter &
|
|
SBCommandInterpreter::operator = (const SBCommandInterpreter &rhs)
|
|
{
|
|
m_opaque_ptr = rhs.m_opaque_ptr;
|
|
return *this;
|
|
}
|
|
|
|
SBCommandInterpreter::~SBCommandInterpreter ()
|
|
{
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::IsValid() const
|
|
{
|
|
return m_opaque_ptr != NULL;
|
|
}
|
|
|
|
|
|
bool
|
|
SBCommandInterpreter::CommandExists (const char *cmd)
|
|
{
|
|
if (cmd && m_opaque_ptr)
|
|
return m_opaque_ptr->CommandExists (cmd);
|
|
return false;
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::AliasExists (const char *cmd)
|
|
{
|
|
if (cmd && m_opaque_ptr)
|
|
return m_opaque_ptr->AliasExists (cmd);
|
|
return false;
|
|
}
|
|
|
|
lldb::ReturnStatus
|
|
SBCommandInterpreter::HandleCommand (const char *command_line, SBCommandReturnObject &result, bool add_to_history)
|
|
{
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::HandleCommand (command=\"%s\", SBCommandReturnObject(%p), add_to_history=%i)",
|
|
m_opaque_ptr, command_line, result.get(), add_to_history);
|
|
|
|
result.Clear();
|
|
if (command_line && m_opaque_ptr)
|
|
{
|
|
TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget());
|
|
Mutex::Locker api_locker;
|
|
if (target_sp)
|
|
api_locker.Lock(target_sp->GetAPIMutex());
|
|
m_opaque_ptr->HandleCommand (command_line, add_to_history ? eLazyBoolYes : eLazyBoolNo, result.ref());
|
|
}
|
|
else
|
|
{
|
|
result->AppendError ("SBCommandInterpreter or the command line is not valid");
|
|
result->SetStatus (eReturnStatusFailed);
|
|
}
|
|
|
|
// We need to get the value again, in case the command disabled the log!
|
|
log = lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API);
|
|
if (log)
|
|
{
|
|
SBStream sstr;
|
|
result.GetDescription (sstr);
|
|
log->Printf ("SBCommandInterpreter(%p)::HandleCommand (command=\"%s\", SBCommandReturnObject(%p): %s, add_to_history=%i) => %i",
|
|
m_opaque_ptr, command_line, result.get(), sstr.GetData(), add_to_history, result.GetStatus());
|
|
}
|
|
|
|
return result.GetStatus();
|
|
}
|
|
|
|
int
|
|
SBCommandInterpreter::HandleCompletion (const char *current_line,
|
|
const char *cursor,
|
|
const char *last_char,
|
|
int match_start_point,
|
|
int max_return_elements,
|
|
SBStringList &matches)
|
|
{
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
int num_completions = 0;
|
|
|
|
// Sanity check the arguments that are passed in:
|
|
// cursor & last_char have to be within the current_line.
|
|
if (current_line == NULL || cursor == NULL || last_char == NULL)
|
|
return 0;
|
|
|
|
if (cursor < current_line || last_char < current_line)
|
|
return 0;
|
|
|
|
size_t current_line_size = strlen (current_line);
|
|
if (cursor - current_line > current_line_size || last_char - current_line > current_line_size)
|
|
return 0;
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::HandleCompletion (current_line=\"%s\", cursor at: %lld, last char at: %lld, match_start_point: %d, max_return_elements: %d)",
|
|
m_opaque_ptr, current_line, (uint64_t) (cursor - current_line), (uint64_t) (last_char - current_line), match_start_point, max_return_elements);
|
|
|
|
if (m_opaque_ptr)
|
|
{
|
|
lldb_private::StringList lldb_matches;
|
|
num_completions = m_opaque_ptr->HandleCompletion (current_line, cursor, last_char, match_start_point,
|
|
max_return_elements, lldb_matches);
|
|
|
|
SBStringList temp_list (&lldb_matches);
|
|
matches.AppendList (temp_list);
|
|
}
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::HandleCompletion - Found %d completions.", m_opaque_ptr, num_completions);
|
|
|
|
return num_completions;
|
|
}
|
|
|
|
int
|
|
SBCommandInterpreter::HandleCompletion (const char *current_line,
|
|
uint32_t cursor_pos,
|
|
int match_start_point,
|
|
int max_return_elements,
|
|
lldb::SBStringList &matches)
|
|
{
|
|
const char *cursor = current_line + cursor_pos;
|
|
const char *last_char = current_line + strlen (current_line);
|
|
return HandleCompletion (current_line, cursor, last_char, match_start_point, max_return_elements, matches);
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::HasCommands ()
|
|
{
|
|
if (m_opaque_ptr)
|
|
return m_opaque_ptr->HasCommands();
|
|
return false;
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::HasAliases ()
|
|
{
|
|
if (m_opaque_ptr)
|
|
return m_opaque_ptr->HasAliases();
|
|
return false;
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::HasAliasOptions ()
|
|
{
|
|
if (m_opaque_ptr)
|
|
return m_opaque_ptr->HasAliasOptions ();
|
|
return false;
|
|
}
|
|
|
|
SBProcess
|
|
SBCommandInterpreter::GetProcess ()
|
|
{
|
|
SBProcess sb_process;
|
|
ProcessSP process_sp;
|
|
if (m_opaque_ptr)
|
|
{
|
|
TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget());
|
|
if (target_sp)
|
|
{
|
|
Mutex::Locker api_locker(target_sp->GetAPIMutex());
|
|
process_sp = target_sp->GetProcessSP();
|
|
sb_process.SetSP(process_sp);
|
|
}
|
|
}
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::GetProcess () => SBProcess(%p)",
|
|
m_opaque_ptr, process_sp.get());
|
|
|
|
|
|
return sb_process;
|
|
}
|
|
|
|
SBDebugger
|
|
SBCommandInterpreter::GetDebugger ()
|
|
{
|
|
SBDebugger sb_debugger;
|
|
if (m_opaque_ptr)
|
|
sb_debugger.reset(m_opaque_ptr->GetDebugger().shared_from_this());
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::GetDebugger () => SBDebugger(%p)",
|
|
m_opaque_ptr, sb_debugger.get());
|
|
|
|
|
|
return sb_debugger;
|
|
}
|
|
|
|
CommandInterpreter *
|
|
SBCommandInterpreter::get ()
|
|
{
|
|
return m_opaque_ptr;
|
|
}
|
|
|
|
CommandInterpreter &
|
|
SBCommandInterpreter::ref ()
|
|
{
|
|
assert (m_opaque_ptr);
|
|
return *m_opaque_ptr;
|
|
}
|
|
|
|
void
|
|
SBCommandInterpreter::reset (lldb_private::CommandInterpreter *interpreter)
|
|
{
|
|
m_opaque_ptr = interpreter;
|
|
}
|
|
|
|
void
|
|
SBCommandInterpreter::SourceInitFileInHomeDirectory (SBCommandReturnObject &result)
|
|
{
|
|
result.Clear();
|
|
if (m_opaque_ptr)
|
|
{
|
|
TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget());
|
|
Mutex::Locker api_locker;
|
|
if (target_sp)
|
|
api_locker.Lock(target_sp->GetAPIMutex());
|
|
m_opaque_ptr->SourceInitFile (false, result.ref());
|
|
}
|
|
else
|
|
{
|
|
result->AppendError ("SBCommandInterpreter is not valid");
|
|
result->SetStatus (eReturnStatusFailed);
|
|
}
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::SourceInitFileInHomeDirectory (&SBCommandReturnObject(%p))",
|
|
m_opaque_ptr, result.get());
|
|
|
|
}
|
|
|
|
void
|
|
SBCommandInterpreter::SourceInitFileInCurrentWorkingDirectory (SBCommandReturnObject &result)
|
|
{
|
|
result.Clear();
|
|
if (m_opaque_ptr)
|
|
{
|
|
TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget());
|
|
Mutex::Locker api_locker;
|
|
if (target_sp)
|
|
api_locker.Lock(target_sp->GetAPIMutex());
|
|
m_opaque_ptr->SourceInitFile (true, result.ref());
|
|
}
|
|
else
|
|
{
|
|
result->AppendError ("SBCommandInterpreter is not valid");
|
|
result->SetStatus (eReturnStatusFailed);
|
|
}
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::SourceInitFileInCurrentWorkingDirectory (&SBCommandReturnObject(%p))",
|
|
m_opaque_ptr, result.get());
|
|
}
|
|
|
|
SBBroadcaster
|
|
SBCommandInterpreter::GetBroadcaster ()
|
|
{
|
|
LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API));
|
|
|
|
SBBroadcaster broadcaster (m_opaque_ptr, false);
|
|
|
|
if (log)
|
|
log->Printf ("SBCommandInterpreter(%p)::GetBroadcaster() => SBBroadcaster(%p)",
|
|
m_opaque_ptr, broadcaster.get());
|
|
|
|
return broadcaster;
|
|
}
|
|
|
|
const char *
|
|
SBCommandInterpreter::GetBroadcasterClass ()
|
|
{
|
|
return Communication::GetStaticBroadcasterClass().AsCString();
|
|
}
|
|
|
|
const char *
|
|
SBCommandInterpreter::GetArgumentTypeAsCString (const lldb::CommandArgumentType arg_type)
|
|
{
|
|
return CommandObject::GetArgumentTypeAsCString (arg_type);
|
|
}
|
|
|
|
const char *
|
|
SBCommandInterpreter::GetArgumentDescriptionAsCString (const lldb::CommandArgumentType arg_type)
|
|
{
|
|
return CommandObject::GetArgumentDescriptionAsCString (arg_type);
|
|
}
|
|
|
|
bool
|
|
SBCommandInterpreter::SetCommandOverrideCallback (const char *command_name,
|
|
lldb::CommandOverrideCallback callback,
|
|
void *baton)
|
|
{
|
|
if (command_name && command_name[0] && m_opaque_ptr)
|
|
{
|
|
std::string command_name_str (command_name);
|
|
CommandObject *cmd_obj = m_opaque_ptr->GetCommandObjectForCommand(command_name_str);
|
|
if (cmd_obj)
|
|
{
|
|
assert(command_name_str.empty());
|
|
cmd_obj->SetOverrideCallback (callback, baton);
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
|
|
#ifndef LLDB_DISABLE_PYTHON
|
|
|
|
// Defined in the SWIG source file
|
|
extern "C" void
|
|
init_lldb(void);
|
|
|
|
#else
|
|
|
|
extern "C" void init_lldb(void);
|
|
|
|
// Usually defined in the SWIG source file, but we have sripting disabled
|
|
extern "C" void
|
|
init_lldb(void)
|
|
{
|
|
}
|
|
|
|
#endif
|
|
|
|
void
|
|
SBCommandInterpreter::InitializeSWIG ()
|
|
{
|
|
static bool g_initialized = false;
|
|
if (!g_initialized)
|
|
{
|
|
g_initialized = true;
|
|
#ifndef LLDB_DISABLE_PYTHON
|
|
ScriptInterpreter::InitializeInterpreter (init_lldb);
|
|
#endif
|
|
}
|
|
}
|
|
|
|
lldb::SBCommand
|
|
SBCommandInterpreter::AddMultiwordCommand (const char* name, const char* help)
|
|
{
|
|
CommandObjectMultiword *new_command = new CommandObjectMultiword(*m_opaque_ptr,name,help);
|
|
new_command->SetRemovable (true);
|
|
lldb::CommandObjectSP new_command_sp(new_command);
|
|
if (new_command_sp && m_opaque_ptr->AddUserCommand(name, new_command_sp, true))
|
|
return lldb::SBCommand(new_command_sp);
|
|
return lldb::SBCommand();
|
|
}
|
|
|
|
lldb::SBCommand
|
|
SBCommandInterpreter::AddCommand (const char* name, lldb::SBCommandPluginInterface* impl, const char* help)
|
|
{
|
|
lldb::CommandObjectSP new_command_sp;
|
|
new_command_sp.reset(new CommandPluginInterfaceImplementation(*m_opaque_ptr,name,impl,help));
|
|
|
|
if (new_command_sp && m_opaque_ptr->AddUserCommand(name, new_command_sp, true))
|
|
return lldb::SBCommand(new_command_sp);
|
|
return lldb::SBCommand();
|
|
}
|
|
|
|
SBCommand::SBCommand ()
|
|
{}
|
|
|
|
SBCommand::SBCommand (lldb::CommandObjectSP cmd_sp) : m_opaque_sp (cmd_sp)
|
|
{}
|
|
|
|
bool
|
|
SBCommand::IsValid ()
|
|
{
|
|
return (bool)m_opaque_sp;
|
|
}
|
|
|
|
const char*
|
|
SBCommand::GetName ()
|
|
{
|
|
if (IsValid ())
|
|
return m_opaque_sp->GetCommandName ();
|
|
return NULL;
|
|
}
|
|
|
|
const char*
|
|
SBCommand::GetHelp ()
|
|
{
|
|
if (IsValid ())
|
|
return m_opaque_sp->GetHelp ();
|
|
return NULL;
|
|
}
|
|
|
|
lldb::SBCommand
|
|
SBCommand::AddMultiwordCommand (const char* name, const char* help)
|
|
{
|
|
if (!IsValid ())
|
|
return lldb::SBCommand();
|
|
if (m_opaque_sp->IsMultiwordObject() == false)
|
|
return lldb::SBCommand();
|
|
CommandObjectMultiword *new_command = new CommandObjectMultiword(m_opaque_sp->GetCommandInterpreter(),name,help);
|
|
new_command->SetRemovable (true);
|
|
lldb::CommandObjectSP new_command_sp(new_command);
|
|
if (new_command_sp && m_opaque_sp->LoadSubCommand(name,new_command_sp))
|
|
return lldb::SBCommand(new_command_sp);
|
|
return lldb::SBCommand();
|
|
}
|
|
|
|
lldb::SBCommand
|
|
SBCommand::AddCommand (const char* name, lldb::SBCommandPluginInterface *impl, const char* help)
|
|
{
|
|
if (!IsValid ())
|
|
return lldb::SBCommand();
|
|
if (m_opaque_sp->IsMultiwordObject() == false)
|
|
return lldb::SBCommand();
|
|
lldb::CommandObjectSP new_command_sp;
|
|
new_command_sp.reset(new CommandPluginInterfaceImplementation(m_opaque_sp->GetCommandInterpreter(),name,impl,help));
|
|
if (new_command_sp && m_opaque_sp->LoadSubCommand(name,new_command_sp))
|
|
return lldb::SBCommand(new_command_sp);
|
|
return lldb::SBCommand();
|
|
}
|
|
|