| //===-- 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/Interpreter/Args.h" |
| #include "lldb/Core/SourceManager.h" |
| #include "lldb/Core/Listener.h" |
| #include "lldb/Interpreter/CommandInterpreter.h" |
| #include "lldb/Interpreter/CommandReturnObject.h" |
| #include "lldb/Target/Target.h" |
| |
| #include "lldb/API/SBBroadcaster.h" |
| #include "lldb/API/SBDebugger.h" |
| #include "lldb/API/SBCommandReturnObject.h" |
| #include "lldb/API/SBSourceManager.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; |
| |
| |
| 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 (m_opaque_ptr) |
| return m_opaque_ptr->CommandExists (cmd); |
| return false; |
| } |
| |
| bool |
| SBCommandInterpreter::AliasExists (const char *cmd) |
| { |
| if (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 (m_opaque_ptr) |
| { |
| TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget()); |
| Mutex::Locker api_locker; |
| if (target_sp) |
| api_locker.Reset(target_sp->GetAPIMutex().GetMutex()); |
| m_opaque_ptr->HandleCommand (command_line, add_to_history, result.ref()); |
| } |
| else |
| { |
| result->AppendError ("SBCommandInterpreter 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) |
| { |
| int num_completions = 0; |
| 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); |
| } |
| return num_completions; |
| } |
| |
| 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 process; |
| if (m_opaque_ptr) |
| { |
| TargetSP target_sp(m_opaque_ptr->GetDebugger().GetSelectedTarget()); |
| if (target_sp) |
| { |
| Mutex::Locker api_locker(target_sp->GetAPIMutex()); |
| process.SetProcess(target_sp->GetProcessSP()); |
| } |
| } |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| |
| if (log) |
| log->Printf ("SBCommandInterpreter(%p)::GetProcess () => SBProcess(%p)", |
| m_opaque_ptr, process.get()); |
| |
| |
| return process; |
| } |
| |
| ssize_t |
| SBCommandInterpreter::WriteToScriptInterpreter (const char *src) |
| { |
| return WriteToScriptInterpreter (src, strlen(src)); |
| } |
| |
| ssize_t |
| SBCommandInterpreter::WriteToScriptInterpreter (const char *src, size_t src_len) |
| { |
| LogSP log(lldb_private::GetLogIfAllCategoriesSet (LIBLLDB_LOG_API)); |
| |
| ssize_t bytes_written = 0; |
| if (m_opaque_ptr && src && src[0]) |
| { |
| ScriptInterpreter *script_interpreter = m_opaque_ptr->GetScriptInterpreter(); |
| if (script_interpreter) |
| bytes_written = ::write (script_interpreter->GetMasterFileDescriptor(), src, src_len); |
| } |
| if (log) |
| log->Printf ("SBCommandInterpreter(%p)::WriteToScriptInterpreter (src=\"%s\", src_len=%zu) => %zi", |
| m_opaque_ptr, src, src_len, bytes_written); |
| |
| return bytes_written; |
| } |
| |
| |
| 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.Reset(target_sp->GetAPIMutex().GetMutex()); |
| 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.Reset(target_sp->GetAPIMutex().GetMutex()); |
| 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::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); |
| } |
| |
| |
| |