diff options
Diffstat (limited to 'contrib/llvm/tools/lldb/tools/lldb-mi/MICmnLLDBDebugSessionInfo.cpp')
| -rw-r--r-- | contrib/llvm/tools/lldb/tools/lldb-mi/MICmnLLDBDebugSessionInfo.cpp | 1312 |
1 files changed, 1312 insertions, 0 deletions
diff --git a/contrib/llvm/tools/lldb/tools/lldb-mi/MICmnLLDBDebugSessionInfo.cpp b/contrib/llvm/tools/lldb/tools/lldb-mi/MICmnLLDBDebugSessionInfo.cpp new file mode 100644 index 0000000..3b7789e --- /dev/null +++ b/contrib/llvm/tools/lldb/tools/lldb-mi/MICmnLLDBDebugSessionInfo.cpp @@ -0,0 +1,1312 @@ +//===-- MICmnLLDBDebugSessionInfo.cpp ---------------------------*- C++ -*-===// +// +// The LLVM Compiler Infrastructure +// +// This file is distributed under the University of Illinois Open Source +// License. See LICENSE.TXT for details. +// +//===----------------------------------------------------------------------===// + +//++ +// File: MICmnLLDBDebugSessionInfo.cpp +// +// Overview: CMICmnLLDBDebugSessionInfo implementation. +// +// Environment: Compilers: Visual C++ 12. +// gcc (Ubuntu/Linaro 4.8.1-10ubuntu9) 4.8.1 +// Libraries: See MIReadmetxt. +// +// Copyright: None. +//-- + +// Third party headers: +#include <lldb/API/SBThread.h> +#ifdef _WIN32 + #include <io.h> // For the ::_access() +#else + #include <unistd.h> // For the ::access() +#endif // _WIN32 +#include <lldb/API/SBBreakpointLocation.h> + +// In-house headers: +#include "MICmnLLDBDebugSessionInfo.h" +#include "MICmnLLDBDebugger.h" +#include "MICmnResources.h" +#include "MICmnMIResultRecord.h" +#include "MICmnMIValueConst.h" +#include "MICmnMIValueList.h" +#include "MICmnMIValueTuple.h" +#include "MICmdData.h" +#include "MICmnLLDBUtilSBValue.h" + +//++ ------------------------------------------------------------------------------------ +// Details: CMICmnLLDBDebugSessionInfo constructor. +// Type: Method. +// Args: None. +// Return: None. +// Throws: None. +//-- +CMICmnLLDBDebugSessionInfo::CMICmnLLDBDebugSessionInfo( void ) +: m_rLldbDebugger( CMICmnLLDBDebugger::Instance().GetTheDebugger() ) +, m_rLlldbListener( CMICmnLLDBDebugger::Instance().GetTheListener() ) +, m_nBrkPointCntMax( INT32_MAX ) +, m_currentSelectedThread( LLDB_INVALID_THREAD_ID ) +, m_constStrSharedDataKeyWkDir( "Working Directory" ) +, m_constStrSharedDataSolibPath( "Solib Path" ) +{ +} + +//++ ------------------------------------------------------------------------------------ +// Details: CMICmnLLDBDebugSessionInfo destructor. +// Type: Overridable. +// Args: None. +// Return: None. +// Throws: None. +//-- +CMICmnLLDBDebugSessionInfo::~CMICmnLLDBDebugSessionInfo( void ) +{ + Shutdown(); +} + +//++ ------------------------------------------------------------------------------------ +// Details: Initialize resources for *this object. +// Type: Method. +// Args: None. +// Return: MIstatus::success - Functionality succeeded. +// MIstatus::failure - Functionality failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::Initialize( void ) +{ + m_clientUsageRefCnt++; + + if( m_bInitialized ) + return MIstatus::success; + + m_currentSelectedThread = LLDB_INVALID_THREAD_ID; + CMICmnLLDBDebugSessionInfoVarObj::VarObjIdResetToZero(); + + m_bInitialized = MIstatus::success; + + return m_bInitialized; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Release resources for *this object. +// Type: Method. +// Args: None. +// Return: MIstatus::success - Functionality succeeded. +// MIstatus::failure - Functionality failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::Shutdown( void ) +{ + if( --m_clientUsageRefCnt > 0 ) + return MIstatus::success; + + if( !m_bInitialized ) + return MIstatus::success; + + bool bOk = MIstatus::success; + CMIUtilString errMsg; + + // Tidy up + bOk = SharedDataDestroy(); + if( !bOk ) + { + errMsg = CMIUtilString::Format( MIRSRC( IDS_DBGSESSION_ERR_SHARED_DATA_RELEASE ) ); + errMsg += "\n"; + } + m_vecActiveThreadId.clear(); + CMICmnLLDBDebugSessionInfoVarObj::VarObjClear(); + + m_bInitialized = false; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Command instances can create and share data between other instances of commands. +// Data can also be assigned by a command and retrieved by LLDB event handler. +// This function takes down those resources build up over the use of the commands. +// This function should be called when the creation and running of command has +// stopped i.e. application shutdown. +// Type: Method. +// Args: None. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::SharedDataDestroy( void ) +{ + m_mapIdToSessionData.Clear(); + m_vecVarObj.clear(); + m_mapBrkPtIdToBrkPtInfo.clear(); + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Record information about a LLDB break point so that is can be recalled in other +// commands or LLDB event handling functions. +// Type: Method. +// Args: vBrkPtId - (R) LLDB break point ID. +// vrBrkPtInfo - (R) Break point information object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::RecordBrkPtInfo( const MIuint vnBrkPtId, const SBrkPtInfo & vrBrkPtInfo ) +{ + MapPairBrkPtIdToBrkPtInfo_t pr( vnBrkPtId, vrBrkPtInfo ); + m_mapBrkPtIdToBrkPtInfo.insert( pr ); + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Retrieve information about a LLDB break point previous recorded either by +// commands or LLDB event handling functions. +// Type: Method. +// Args: vBrkPtId - (R) LLDB break point ID. +// vrwBrkPtInfo - (W) Break point information object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::RecordBrkPtInfoGet( const MIuint vnBrkPtId, SBrkPtInfo & vrwBrkPtInfo ) const +{ + const MapBrkPtIdToBrkPtInfo_t::const_iterator it = m_mapBrkPtIdToBrkPtInfo.find( vnBrkPtId ); + if( it != m_mapBrkPtIdToBrkPtInfo.end() ) + { + vrwBrkPtInfo = (*it).second; + return MIstatus::success; + } + + return MIstatus::failure; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Delete information about a specific LLDB break point object. This function +// should be called when a LLDB break point is deleted. +// Type: Method. +// Args: vBrkPtId - (R) LLDB break point ID. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::RecordBrkPtInfoDelete( const MIuint vnBrkPtId ) +{ + const MapBrkPtIdToBrkPtInfo_t::const_iterator it = m_mapBrkPtIdToBrkPtInfo.find( vnBrkPtId ); + if( it != m_mapBrkPtIdToBrkPtInfo.end() ) + { + m_mapBrkPtIdToBrkPtInfo.erase( it ); + return MIstatus::success; + } + + return MIstatus::failure; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Retrieve the specified thread's frame information. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vThreadIdx - (R) Thread index. +// vwrThreadFrames - (W) Frame data. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetThreadFrames( const SMICmdData & vCmdData, const MIuint vThreadIdx, CMIUtilString & vwrThreadFrames ) +{ + lldb::SBThread thread = m_lldbProcess.GetThreadByIndexID( vThreadIdx ); + const uint32_t nFrames = thread.GetNumFrames(); + if( nFrames == 0 ) + { + // MI print "frame={}" + CMICmnMIValueTuple miValueTuple; + CMICmnMIValueResult miValueResult( "frame", miValueTuple ); + vwrThreadFrames = miValueResult.GetString(); + return MIstatus::success; + } + + // MI print "frame={level=\"%d\",addr=\"0x%08llx\",func=\"%s\",args=[%s],file=\"%s\",fullname=\"%s\",line=\"%d\"},frame={level=\"%d\",addr=\"0x%08llx\",func=\"%s\",args=[%s],file=\"%s\",fullname=\"%s\",line=\"%d\"}, ..." + CMIUtilString strListCommaSeperated; + for( MIuint nLevel = 0; nLevel < nFrames; nLevel++ ) + { + lldb::SBFrame frame = thread.GetFrameAtIndex( nLevel ); + lldb::addr_t pc = 0; + CMIUtilString fnName; + CMIUtilString fileName; + CMIUtilString path; + MIuint nLine = 0; + if( !GetFrameInfo( frame, pc, fnName, fileName, path, nLine ) ) + return MIstatus::failure; + + // Function args + CMICmnMIValueList miValueList( true ); + const MIuint maskVarTypes = 0x1000; + if( !MIResponseFormVariableInfo( frame, maskVarTypes, miValueList ) ) + return MIstatus::failure; + + const MIchar * pUnknown = "??"; + if( fnName != pUnknown ) + { + std::replace( fnName.begin(), fnName.end(), ')', ' ' ); + std::replace( fnName.begin(), fnName.end(), '(', ' ' ); + std::replace( fnName.begin(), fnName.end(), '\'', ' ' ); + } + + CMICmnMIValueTuple miValueTuple; + const CMIUtilString strLevel( CMIUtilString::Format( "%d", nLevel ) ); + const CMICmnMIValueConst miValueConst( strLevel ); + const CMICmnMIValueResult miValueResult( "level", miValueConst ); + miValueTuple.Add( miValueResult ); + if( !MIResponseFormFrameInfo2( pc, miValueList.GetString(), fnName, fileName, path, nLine, miValueTuple ) ) + return MIstatus::failure; + + const CMICmnMIValueResult miValueResult2( "frame", miValueTuple ); + if( nLevel != 0 ) + strListCommaSeperated += ","; + strListCommaSeperated += miValueResult2.GetString(); + } + + vwrThreadFrames = strListCommaSeperated; + + return MIstatus::success; +} + +// Todo: Refactor maybe to so only one function with this name, but not just yet +//++ ------------------------------------------------------------------------------------ +// Details: Retrieve the specified thread's frame information. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vThreadIdx - (R) Thread index. +// vwrThreadFrames - (W) Frame data. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetThreadFrames2( const SMICmdData & vCmdData, const MIuint vThreadIdx, CMIUtilString & vwrThreadFrames ) +{ + lldb::SBThread thread = m_lldbProcess.GetThreadByIndexID( vThreadIdx ); + const uint32_t nFrames = thread.GetNumFrames(); + if( nFrames == 0 ) + { + // MI print "frame={}" + CMICmnMIValueTuple miValueTuple; + CMICmnMIValueResult miValueResult( "frame", miValueTuple ); + vwrThreadFrames = miValueResult.GetString(); + return MIstatus::success; + } + + // MI print "frame={level=\"%d\",addr=\"0x%08llx\",func=\"%s\",args=[%s],file=\"%s\",fullname=\"%s\",line=\"%d\"},frame={level=\"%d\",addr=\"0x%08llx\",func=\"%s\",args=[%s],file=\"%s\",fullname=\"%s\",line=\"%d\"}, ..." + CMIUtilString strListCommaSeperated; + for( MIuint nLevel = 0; nLevel < nFrames; nLevel++ ) + { + lldb::SBFrame frame = thread.GetFrameAtIndex( nLevel ); + lldb::addr_t pc = 0; + CMIUtilString fnName; + CMIUtilString fileName; + CMIUtilString path; + MIuint nLine = 0; + if( !GetFrameInfo( frame, pc, fnName, fileName, path, nLine ) ) + return MIstatus::failure; + + // Function args + CMICmnMIValueList miValueList( true ); + const MIuint maskVarTypes = 0x1000; + if( !MIResponseFormVariableInfo2( frame, maskVarTypes, miValueList ) ) + return MIstatus::failure; + + const MIchar * pUnknown = "??"; + if( fnName != pUnknown ) + { + std::replace( fnName.begin(), fnName.end(), ')', ' ' ); + std::replace( fnName.begin(), fnName.end(), '(', ' ' ); + std::replace( fnName.begin(), fnName.end(), '\'', ' ' ); + } + + CMICmnMIValueTuple miValueTuple; + const CMIUtilString strLevel( CMIUtilString::Format( "%d", nLevel ) ); + const CMICmnMIValueConst miValueConst( strLevel ); + const CMICmnMIValueResult miValueResult( "level", miValueConst ); + miValueTuple.Add( miValueResult ); + if( !MIResponseFormFrameInfo2( pc, miValueList.GetString(), fnName, fileName, path, nLine, miValueTuple ) ) + return MIstatus::failure; + + const CMICmnMIValueResult miValueResult2( "frame", miValueTuple ); + if( nLevel != 0 ) + strListCommaSeperated += ","; + strListCommaSeperated += miValueResult2.GetString(); + } + + vwrThreadFrames = strListCommaSeperated; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Return the resolved file's path for the given file. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vPath - (R) Original path. +// vwrResolvedPath - (W) Resolved path. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::ResolvePath( const SMICmdData & vCmdData, const CMIUtilString & vPath, CMIUtilString & vwrResolvedPath ) +{ + // ToDo: Verify this code as it does not work as vPath is always empty + + CMIUtilString strResolvedPath; + if( !SharedDataRetrieve< CMIUtilString >( m_constStrSharedDataKeyWkDir, strResolvedPath ) ) + { + vwrResolvedPath = ""; + SetErrorDescription( CMIUtilString::Format( MIRSRC( IDS_CMD_ERR_SHARED_DATA_NOT_FOUND ), vCmdData.strMiCmd.c_str(), m_constStrSharedDataKeyWkDir.c_str() ) ); + return MIstatus::failure; + } + + vwrResolvedPath = vPath; + + return ResolvePath( strResolvedPath, vwrResolvedPath ); +} + +//++ ------------------------------------------------------------------------------------ +// Details: Return the resolved file's path for the given file. +// Type: Method. +// Args: vstrUnknown - (R) String assigned to path when resolved path is empty. +// vwrResolvedPath - (RW) The original path overwritten with resolved path. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::ResolvePath( const CMIUtilString & vstrUnknown, CMIUtilString & vwrResolvedPath ) +{ + if( vwrResolvedPath.size() < 1 ) + { + vwrResolvedPath = vstrUnknown; + return MIstatus::success; + } + + bool bOk = MIstatus::success; + + CMIUtilString::VecString_t vecPathFolders; + const MIuint nSplits = vwrResolvedPath.Split( "/", vecPathFolders ); MIunused( nSplits ); + MIuint nFoldersBack = 1; // 1 is just the file (last element of vector) + while( bOk && (vecPathFolders.size() >= nFoldersBack) ) + { + CMIUtilString strTestPath; + MIuint nFoldersToAdd = nFoldersBack; + while( nFoldersToAdd > 0 ) + { + strTestPath += "/"; + strTestPath += vecPathFolders[ vecPathFolders.size() - nFoldersToAdd ]; + nFoldersToAdd--; + } + bool bYesAccessible = false; + bOk = AccessPath( strTestPath, bYesAccessible ); + if( bYesAccessible ) + { + vwrResolvedPath = strTestPath; + return MIstatus::success; + } + else + nFoldersBack++; + } + + // No files exist in the union of working directory and debuginfo path + // Simply use the debuginfo path and let the IDE handle it. + + return bOk; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Determine the given file path exists or not. +// Type: Method. +// Args: vPath - (R) File name path. +// vwbYesAccessible - (W) True - file exists, false = does not exist. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::AccessPath( const CMIUtilString & vPath, bool & vwbYesAccessible ) +{ +#ifdef _WIN32 + vwbYesAccessible = (::_access( vPath.c_str(), 0 ) == 0); +#else + vwbYesAccessible = (::access( vPath.c_str(), 0 ) == 0); +#endif // _WIN32 + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vrThread - (R) LLDB thread object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormThreadInfo( const SMICmdData & vCmdData, const lldb::SBThread & vrThread, CMICmnMIValueTuple & vwrMIValueTuple ) +{ + lldb::SBThread & rThread = const_cast< lldb::SBThread & >( vrThread ); + + CMIUtilString strFrames; + if( !GetThreadFrames( vCmdData, rThread.GetIndexID(), strFrames ) ) + return MIstatus::failure; + + const bool bSuspended = rThread.IsSuspended(); + const lldb::StopReason eReason = rThread.GetStopReason(); + const bool bValidReason = !((eReason == lldb::eStopReasonNone) || (eReason == lldb::eStopReasonInvalid)); + const CMIUtilString strState( (bSuspended || bValidReason) ? "stopped" : "running" ); + + // Add "id" + const CMIUtilString strId( CMIUtilString::Format( "%d", rThread.GetIndexID() ) ); + const CMICmnMIValueConst miValueConst1( strId ); + const CMICmnMIValueResult miValueResult1( "id", miValueConst1 ); + if( !vwrMIValueTuple.Add( miValueResult1 ) ) + return MIstatus::failure; + + // Add "target-id" + const MIchar * pThreadName = rThread.GetName(); + const MIuint len = (pThreadName != nullptr) ? CMIUtilString( pThreadName ).length() : 0; + const bool bHaveName = ((pThreadName != nullptr) && (len > 0) && (len < 32) && CMIUtilString::IsAllValidAlphaAndNumeric( *pThreadName ) ); // 32 is arbitary number + const MIchar * pThrdFmt = bHaveName ? "%s" : "Thread %d"; + CMIUtilString strThread; + if( bHaveName ) + strThread = CMIUtilString::Format( pThrdFmt, pThreadName ); + else + strThread = CMIUtilString::Format( pThrdFmt, rThread.GetIndexID() ); + const CMICmnMIValueConst miValueConst2( strThread ); + const CMICmnMIValueResult miValueResult2( "target-id", miValueConst2 ); + if( !vwrMIValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + + // Add "frame" + const CMICmnMIValueConst miValueConst3( strFrames, true ); + if( !vwrMIValueTuple.Add( miValueConst3, false ) ) + return MIstatus::failure; + + // Add "state" + const CMICmnMIValueConst miValueConst4( strState ); + const CMICmnMIValueResult miValueResult4( "state", miValueConst4 ); + if( !vwrMIValueTuple.Add( miValueResult4 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +// Todo: Refactor maybe to so only one function with this name, but not just yet +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vrThread - (R) LLDB thread object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormThreadInfo3( const SMICmdData & vCmdData, const lldb::SBThread & vrThread, CMICmnMIValueTuple & vwrMIValueTuple ) +{ + lldb::SBThread & rThread = const_cast< lldb::SBThread & >( vrThread ); + + CMIUtilString strFrames; + if( !GetThreadFrames2( vCmdData, rThread.GetIndexID(), strFrames ) ) + return MIstatus::failure; + + const bool bSuspended = rThread.IsSuspended(); + const lldb::StopReason eReason = rThread.GetStopReason(); + const bool bValidReason = !((eReason == lldb::eStopReasonNone) || (eReason == lldb::eStopReasonInvalid)); + const CMIUtilString strState( (bSuspended || bValidReason) ? "stopped" : "running" ); + + // Add "id" + const CMIUtilString strId( CMIUtilString::Format( "%d", rThread.GetIndexID() ) ); + const CMICmnMIValueConst miValueConst1( strId ); + const CMICmnMIValueResult miValueResult1( "id", miValueConst1 ); + if( !vwrMIValueTuple.Add( miValueResult1 ) ) + return MIstatus::failure; + + // Add "target-id" + const MIchar * pThreadName = rThread.GetName(); + const MIuint len = (pThreadName != nullptr) ? CMIUtilString( pThreadName ).length() : 0; + const bool bHaveName = ((pThreadName != nullptr) && (len > 0) && (len < 32) && CMIUtilString::IsAllValidAlphaAndNumeric( *pThreadName ) ); // 32 is arbitary number + const MIchar * pThrdFmt = bHaveName ? "%s" : "Thread %d"; + CMIUtilString strThread; + if( bHaveName ) + strThread = CMIUtilString::Format( pThrdFmt, pThreadName ); + else + strThread = CMIUtilString::Format( pThrdFmt, rThread.GetIndexID() ); + const CMICmnMIValueConst miValueConst2( strThread ); + const CMICmnMIValueResult miValueResult2( "target-id", miValueConst2 ); + if( !vwrMIValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + + // Add "frame" + const CMICmnMIValueConst miValueConst3( strFrames, true ); + if( !vwrMIValueTuple.Add( miValueConst3, false ) ) + return MIstatus::failure; + + // Add "state" + const CMICmnMIValueConst miValueConst4( strState ); + const CMICmnMIValueResult miValueResult4( "state", miValueConst4 ); + if( !vwrMIValueTuple.Add( miValueResult4 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +// Todo: Refactor maybe to so only one function with this name, but not just yet +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vCmdData - (R) A command's information. +// vrThread - (R) LLDB thread object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormThreadInfo2( const SMICmdData & vCmdData, const lldb::SBThread & vrThread, CMICmnMIValueTuple & vwrMIValueTuple ) +{ + lldb::SBThread & rThread = const_cast< lldb::SBThread & >( vrThread ); + + const bool bSuspended = rThread.IsSuspended(); + const lldb::StopReason eReason = rThread.GetStopReason(); + const bool bValidReason = !((eReason == lldb::eStopReasonNone) || (eReason == lldb::eStopReasonInvalid)); + const CMIUtilString strState( (bSuspended || bValidReason) ? "stopped" : "running" ); + + // Add "id" + const CMIUtilString strId( CMIUtilString::Format( "%d", rThread.GetIndexID() ) ); + const CMICmnMIValueConst miValueConst1( strId ); + const CMICmnMIValueResult miValueResult1( "id", miValueConst1 ); + if( !vwrMIValueTuple.Add( miValueResult1 ) ) + return MIstatus::failure; + + // Add "target-id" + const MIchar * pThreadName = rThread.GetName(); + const MIuint len = (pThreadName != nullptr) ? CMIUtilString( pThreadName ).length() : 0; + const bool bHaveName = ((pThreadName != nullptr) && (len > 0) && (len < 32) && CMIUtilString::IsAllValidAlphaAndNumeric( *pThreadName ) ); // 32 is arbitary number + const MIchar * pThrdFmt = bHaveName ? "%s" : "Thread %d"; + CMIUtilString strThread; + if( bHaveName ) + strThread = CMIUtilString::Format( pThrdFmt, pThreadName ); + else + strThread = CMIUtilString::Format( pThrdFmt, rThread.GetIndexID() ); + const CMICmnMIValueConst miValueConst2( strThread ); + const CMICmnMIValueResult miValueResult2( "target-id", miValueConst2 ); + if( !vwrMIValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + + // Add "state" + const CMICmnMIValueConst miValueConst4( strState ); + const CMICmnMIValueResult miValueResult4( "state", miValueConst4 ); + if( !vwrMIValueTuple.Add( miValueResult4 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +// Todo: Refactor maybe to so only one function with this name, but not just yet +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrFrame - (R) LLDB thread object. +// vMaskVarTypes - (R) 0x1000 = arguments, +// 0x0100 = locals, +// 0x0010 = statics, +// 0x0001 = in scope only. +// vwrMIValueList - (W) MI value list object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormVariableInfo2( const lldb::SBFrame & vrFrame, const MIuint vMaskVarTypes, CMICmnMIValueList & vwrMiValueList ) +{ + bool bOk = MIstatus::success; + lldb::SBFrame & rFrame = const_cast< lldb::SBFrame & >( vrFrame ); + + const bool bArg = (vMaskVarTypes & 0x1000); + const bool bLocals = (vMaskVarTypes & 0x0100); + const bool bStatics = (vMaskVarTypes & 0x0010); + const bool bInScopeOnly = (vMaskVarTypes & 0x0001); + lldb::SBValueList listArg = rFrame.GetVariables( bArg, bLocals, bStatics, bInScopeOnly ); + const MIuint nArgs = listArg.GetSize(); + for( MIuint i = 0; bOk && (i < nArgs); i++ ) + { + lldb::SBValue value = listArg.GetValueAtIndex( i ); + const CMICmnLLDBUtilSBValue utilValue( value ); + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + CMICmnMIValueTuple miValueTuple( miValueResult ); + const CMICmnMIValueConst miValueConst2( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + bOk = vwrMiValueList.Add( miValueTuple ); + } + + return bOk; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrFrame - (R) LLDB thread object. +// vMaskVarTypes - (R) 0x1000 = arguments, +// 0x0100 = locals, +// 0x0010 = statics, +// 0x0001 = in scope only. +// vwrMIValueList - (W) MI value list object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormVariableInfo( const lldb::SBFrame & vrFrame, const MIuint vMaskVarTypes, CMICmnMIValueList & vwrMiValueList ) +{ + bool bOk = MIstatus::success; + lldb::SBFrame & rFrame = const_cast< lldb::SBFrame & >( vrFrame ); + + const bool bArg = (vMaskVarTypes & 0x1000); + const bool bLocals = (vMaskVarTypes & 0x0100); + const bool bStatics = (vMaskVarTypes & 0x0010); + const bool bInScopeOnly = (vMaskVarTypes & 0x0001); + const MIuint nMaxRecusiveDepth = 10; + MIuint nCurrentRecursiveDepth = 0; + lldb::SBValueList listArg = rFrame.GetVariables( bArg, bLocals, bStatics, bInScopeOnly ); + const MIuint nArgs = listArg.GetSize(); + for( MIuint i = 0; bOk && (i < nArgs); i++ ) + { + lldb::SBValue value = listArg.GetValueAtIndex( i ); + bOk = GetVariableInfo( nMaxRecusiveDepth, value, false, vwrMiValueList, nCurrentRecursiveDepth ); + } + + return bOk; +} + +// *** Do not refactor this function to be one function with same name as it can break more than +// *** than one stack type command +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrFrame - (R) LLDB thread object. +// vMaskVarTypes - (R) 0x1000 = arguments, +// 0x0100 = locals, +// 0x0010 = statics, +// 0x0001 = in scope only. +// vwrMIValueList - (W) MI value list object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormVariableInfo3( const lldb::SBFrame & vrFrame, const MIuint vMaskVarTypes, CMICmnMIValueList & vwrMiValueList ) +{ + bool bOk = MIstatus::success; + lldb::SBFrame & rFrame = const_cast< lldb::SBFrame & >( vrFrame ); + + const bool bArg = (vMaskVarTypes & 0x1000); + const bool bLocals = (vMaskVarTypes & 0x0100); + const bool bStatics = (vMaskVarTypes & 0x0010); + const bool bInScopeOnly = (vMaskVarTypes & 0x0001); + const MIuint nMaxRecusiveDepth = 10; + MIuint nCurrentRecursiveDepth = 0; + lldb::SBValueList listArg = rFrame.GetVariables( bArg, bLocals, bStatics, bInScopeOnly ); + const MIuint nArgs = listArg.GetSize(); + for( MIuint i = 0; bOk && (i < nArgs); i++ ) + { + lldb::SBValue value = listArg.GetValueAtIndex( i ); + bOk = GetVariableInfo2( nMaxRecusiveDepth, value, false, vwrMiValueList, nCurrentRecursiveDepth ); + } + + return bOk; +} + +// *** Do not refactor this function to be one function with same name as it can break more than +// *** than one stack type command +//++ ------------------------------------------------------------------------------------ +// Details: Extract the value's name and value or recurse into child value object. +// Type: Method. +// Args: vnMaxDepth - (R) The max recursive depth for this function. +// vrValue - (R) LLDB value object. +// vbIsChildValue - (R) True = Value object is a child of a higher Value object, +// - False = Value object not a child. +// vwrMIValueList - (W) MI value list object. +// vnDepth - (RW) The current recursive depth of this function. +// // Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetVariableInfo( const MIuint vnMaxDepth, const lldb::SBValue & vrValue, const bool vbIsChildValue, CMICmnMIValueList & vwrMiValueList, MIuint & vrwnDepth ) +{ + // *** Update GetVariableInfo2() with any code changes here *** + + // Check recursive depth + if( vrwnDepth >= vnMaxDepth ) + return MIstatus::success; + + bool bOk = MIstatus::success; + lldb::SBValue & rValue = const_cast< lldb::SBValue & >( vrValue ); + const CMICmnLLDBUtilSBValue utilValue( vrValue, true ); + CMICmnMIValueTuple miValueTuple; + const MIchar * pName = rValue.GetName(); MIunused( pName ); + const bool bIsPointerType = rValue.GetType().IsPointerType(); + const MIuint nChildren = rValue.GetNumChildren(); + if( nChildren == 0 ) + { + if( vbIsChildValue ) + { + if( utilValue.IsCharType() ) + { + // For char types and try to form text string + const CMICmnMIValueConst miValueConst( utilValue.GetValue().c_str(), true ); + miValueTuple.Add( miValueConst, true ); + } + else + { + // For composite types + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%s = %s", utilValue.GetName().c_str(), utilValue.GetValue().c_str() ), true ); + miValueTuple.Add( miValueConst, true ); + } + return vwrMiValueList.Add( CMICmnMIValueConst( miValueTuple.ExtractContentNoBrackets(), true ) ); + } + else + { + // Basic types + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + const CMICmnMIValueConst miValueConst2( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + return vwrMiValueList.Add( miValueTuple ); + } + } + else if( bIsPointerType && utilValue.IsChildCharType() ) + { + // Append string text to the parent value information + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + + const CMIUtilString & rText( utilValue.GetChildValueCString() ); + if( rText.empty() ) + { + const CMICmnMIValueConst miValueConst( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + else + { + if( utilValue.IsValueUnknown() ) + { + const CMICmnMIValueConst miValueConst( rText ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + else + { + // Note code that has const in will not show the text suffix to the string pointer + // i.e. const char * pMyStr = "blah"; ==> "0x00007000"" <-- Eclipse shows this + // but char * pMyStr = "blah"; ==> "0x00007000" "blah"" <-- Eclipse shows this + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%s %s", utilValue.GetValue().c_str(), rText.c_str() ) ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + } + return vwrMiValueList.Add( miValueTuple ); + } + else if( bIsPointerType ) + { + if( vbIsChildValue ) + { + // For composite types + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%s = %s", utilValue.GetName().c_str(), utilValue.GetValue().c_str() ), true ); + miValueTuple.Add( miValueConst, true ); + return vwrMiValueList.Add( CMICmnMIValueConst( miValueTuple.ExtractContentNoBrackets(), true ) ); + } + else + { + // Basic types + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + const CMICmnMIValueConst miValueConst2( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + return vwrMiValueList.Add( miValueTuple ); + } + } + else + { + // Build parent child composite types + CMICmnMIValueList miValueList( true ); + for( MIuint i = 0; bOk && (i < nChildren); i++ ) + { + lldb::SBValue member = rValue.GetChildAtIndex( i ); + bOk = GetVariableInfo( vnMaxDepth, member, true, miValueList, ++vrwnDepth ); + } + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + const CMICmnMIValueConst miValueConst2( CMIUtilString::Format( "{%s}", miValueList.ExtractContentNoBrackets().c_str() ) ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + return vwrMiValueList.Add( miValueTuple ); + } +} + +// *** Do not refactor this function to be one function with same name as it can break more than +// *** than one stack type command +//++ ------------------------------------------------------------------------------------ +// Details: Extract the value's name and value or recurse into child value object. +// Type: Method. +// Args: vnMaxDepth - (R) The max recursive depth for this function. +// vrValue - (R) LLDB value object. +// vbIsChildValue - (R) True = Value object is a child of a higher Value object, +// - False = Value object not a child. +// vwrMIValueList - (W) MI value list object. +// vnDepth - (RW) The current recursive depth of this function. +// // Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetVariableInfo2( const MIuint vnMaxDepth, const lldb::SBValue & vrValue, const bool vbIsChildValue, CMICmnMIValueList & vwrMiValueList, MIuint & vrwnDepth ) +{ + // *** Update GetVariableInfo() with any code changes here *** + + // Check recursive depth + if( vrwnDepth >= vnMaxDepth ) + return MIstatus::success; + + bool bOk = MIstatus::success; + lldb::SBValue & rValue = const_cast< lldb::SBValue & >( vrValue ); + const CMICmnLLDBUtilSBValue utilValue( vrValue, true ); + CMICmnMIValueTuple miValueTuple; + const MIchar * pName = rValue.GetName(); MIunused( pName ); + const MIuint nChildren = rValue.GetNumChildren(); + if( nChildren == 0 ) + { + if( vbIsChildValue && utilValue.IsCharType() ) + { + // For char types and try to form text string + const CMICmnMIValueConst miValueConst( utilValue.GetValue().c_str(), true ); + miValueTuple.Add( miValueConst, true ); + return vwrMiValueList.Add( CMICmnMIValueConst( miValueTuple.ExtractContentNoBrackets(), true ) ); + } + else + { + // Basic types + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + const CMICmnMIValueConst miValueConst2( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + return vwrMiValueList.Add( miValueTuple ); + } + } + else if( utilValue.IsChildCharType() ) + { + // Append string text to the parent value information + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + + const CMIUtilString & rText( utilValue.GetChildValueCString() ); + if( rText.empty() ) + { + const CMICmnMIValueConst miValueConst( utilValue.GetValue() ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + else + { + if( utilValue.IsValueUnknown() ) + { + const CMICmnMIValueConst miValueConst( rText ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + else + { + // Note code that has const in will not show the text suffix to the string pointer + // i.e. const char * pMyStr = "blah"; ==> "0x00007000"" <-- Eclipse shows this + // but char * pMyStr = "blah"; ==> "0x00007000" "blah"" <-- Eclipse shows this + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%s %s", utilValue.GetValue().c_str(), rText.c_str() ) ); + const CMICmnMIValueResult miValueResult( "value", miValueConst ); + miValueTuple.Add( miValueResult ); + } + } + return vwrMiValueList.Add( miValueTuple ); + } + else + { + // Build parent child composite types + CMICmnMIValueList miValueList( true ); + for( MIuint i = 0; bOk && (i < nChildren); i++ ) + { + lldb::SBValue member = rValue.GetChildAtIndex( i ); + bOk = GetVariableInfo( vnMaxDepth, member, true, miValueList, ++vrwnDepth ); + } + const CMICmnMIValueConst miValueConst( utilValue.GetName() ); + const CMICmnMIValueResult miValueResult( "name", miValueConst ); + miValueTuple.Add( miValueResult ); + const CMICmnMIValueConst miValueConst2( CMIUtilString::Format( "{%s}", miValueList.ExtractContentNoBrackets().c_str() ) ); + const CMICmnMIValueResult miValueResult2( "value", miValueConst2 ); + miValueTuple.Add( miValueResult2 ); + return vwrMiValueList.Add( miValueTuple ); + } +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrThread - (R) LLDB thread object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormFrameInfo( const lldb::SBThread & vrThread, const MIuint vnLevel, CMICmnMIValueTuple & vwrMiValueTuple ) +{ + lldb::SBThread & rThread = const_cast< lldb::SBThread & >( vrThread ); + + lldb::SBFrame frame = rThread.GetFrameAtIndex( vnLevel ); + lldb::addr_t pc = 0; + CMIUtilString fnName; + CMIUtilString fileName; + CMIUtilString path; + MIuint nLine = 0; + if( !GetFrameInfo( frame, pc, fnName, fileName, path, nLine ) ) + return MIstatus::failure; + + // MI print "{level=\"0\",addr=\"0x%08llx\",func=\"%s\",file=\"%s\",fullname=\"%s\",line=\"%d\"}" + const CMIUtilString strLevel( CMIUtilString::Format( "%d", vnLevel ) ); + const CMICmnMIValueConst miValueConst( strLevel ); + const CMICmnMIValueResult miValueResult( "level", miValueConst ); + CMICmnMIValueTuple miValueTuple( miValueResult ); + if( !MIResponseFormFrameInfo( pc, fnName, fileName, path, nLine, miValueTuple ) ) + return MIstatus::failure; + + vwrMiValueTuple = miValueTuple; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Retrieve the frame information from LLDB frame object. +// Type: Method. +// Args: vrFrame - (R) LLDB thread object. +// vPc - (W) Address number. +// vFnName - (W) Function name. +// vFileName - (W) File name text. +// vPath - (W) Full file name and path text. +// vnLine - (W) File line number. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetFrameInfo( const lldb::SBFrame & vrFrame, lldb::addr_t & vwPc, CMIUtilString & vwFnName, CMIUtilString & vwFileName, CMIUtilString & vwPath, MIuint & vwnLine ) +{ + lldb::SBFrame & rFrame = const_cast< lldb::SBFrame & >( vrFrame ); + + static char pBuffer[ MAX_PATH ]; + const MIuint nBytes = rFrame.GetLineEntry().GetFileSpec().GetPath( &pBuffer[ 0 ], sizeof( pBuffer ) ); MIunused( nBytes ); + CMIUtilString strResolvedPath( &pBuffer[ 0 ] ); + const MIchar * pUnkwn = "??"; + if( !ResolvePath( pUnkwn, strResolvedPath ) ) + return MIstatus::failure; + vwPath = strResolvedPath; + + vwPc = rFrame.GetPC(); + + const MIchar * pFnName = rFrame.GetFunctionName(); + vwFnName = (pFnName != nullptr) ? pFnName : pUnkwn; + + const MIchar * pFileName = rFrame.GetLineEntry().GetFileSpec().GetFilename(); + vwFileName = (pFileName != nullptr) ? pFileName : pUnkwn; + + vwnLine = rFrame.GetLineEntry().GetLine(); + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vPc - (R) Address number. +// vFnName - (R) Function name. +// vFileName - (R) File name text. +// vPath - (R) Full file name and path text. +// vnLine - (R) File line number. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormFrameInfo( const lldb::addr_t vPc, const CMIUtilString & vFnName, const CMIUtilString & vFileName, const CMIUtilString & vPath, const MIuint vnLine, CMICmnMIValueTuple & vwrMiValueTuple ) +{ + const CMIUtilString strAddr( CMIUtilString::Format( "0x%08llx", vPc ) ); + const CMICmnMIValueConst miValueConst2( strAddr ); + const CMICmnMIValueResult miValueResult2( "addr", miValueConst2 ); + if( !vwrMiValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst3( vFnName ); + const CMICmnMIValueResult miValueResult3( "func", miValueConst3 ); + if( !vwrMiValueTuple.Add( miValueResult3 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst5( vFileName ); + const CMICmnMIValueResult miValueResult5( "file", miValueConst5 ); + if( !vwrMiValueTuple.Add( miValueResult5 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst6( vPath ); + const CMICmnMIValueResult miValueResult6( "fullname", miValueConst6 ); + if( !vwrMiValueTuple.Add( miValueResult6 ) ) + return MIstatus::failure; + const CMIUtilString strLine( CMIUtilString::Format( "%d", vnLine ) ); + const CMICmnMIValueConst miValueConst7( strLine ); + const CMICmnMIValueResult miValueResult7( "line", miValueConst7 ); + if( !vwrMiValueTuple.Add( miValueResult7 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +// Todo: Refactor maybe to so only one function with this name, but not just yet +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vPc - (R) Address number. +// vArgInfo - (R) Args information in MI response form. +// vFnName - (R) Function name. +// vFileName - (R) File name text. +// vPath - (R) Full file name and path text. +// vnLine - (R) File line number. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormFrameInfo2( const lldb::addr_t vPc, const CMIUtilString & vArgInfo, const CMIUtilString & vFnName, const CMIUtilString & vFileName, const CMIUtilString & vPath, const MIuint vnLine, CMICmnMIValueTuple & vwrMiValueTuple ) +{ + const CMIUtilString strAddr( CMIUtilString::Format( "0x%08llx", vPc ) ); + const CMICmnMIValueConst miValueConst2( strAddr ); + const CMICmnMIValueResult miValueResult2( "addr", miValueConst2 ); + if( !vwrMiValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst3( vFnName ); + const CMICmnMIValueResult miValueResult3( "func", miValueConst3 ); + if( !vwrMiValueTuple.Add( miValueResult3 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst4( vArgInfo, true ); + const CMICmnMIValueResult miValueResult4( "args", miValueConst4 ); + if( !vwrMiValueTuple.Add( miValueResult4 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst5( vFileName ); + const CMICmnMIValueResult miValueResult5( "file", miValueConst5 ); + if( !vwrMiValueTuple.Add( miValueResult5 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst6( vPath ); + const CMICmnMIValueResult miValueResult6( "fullname", miValueConst6 ); + if( !vwrMiValueTuple.Add( miValueResult6 ) ) + return MIstatus::failure; + const CMIUtilString strLine( CMIUtilString::Format( "%d", vnLine ) ); + const CMICmnMIValueConst miValueConst7( strLine ); + const CMICmnMIValueResult miValueResult7( "line", miValueConst7 ); + if( !vwrMiValueTuple.Add( miValueResult7 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrBrkPtInfo - (R) Break point information object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormBrkPtFrameInfo( const SBrkPtInfo & vrBrkPtInfo, CMICmnMIValueTuple & vwrMiValueTuple ) +{ + const CMIUtilString strAddr( CMIUtilString::Format( "0x%08llx", vrBrkPtInfo.m_pc ) ); + const CMICmnMIValueConst miValueConst2( strAddr ); + const CMICmnMIValueResult miValueResult2( "addr", miValueConst2 ); + if( !vwrMiValueTuple.Add( miValueResult2 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst3( vrBrkPtInfo.m_fnName ); + const CMICmnMIValueResult miValueResult3( "func", miValueConst3 ); + if( !vwrMiValueTuple.Add( miValueResult3 ) ) + return MIstatus::failure; + const CMICmnMIValueConst miValueConst5( vrBrkPtInfo.m_fileName ); + const CMICmnMIValueResult miValueResult5( "file", miValueConst5 ); + if( !vwrMiValueTuple.Add( miValueResult5 ) ) + return MIstatus::failure; + const CMIUtilString strN5 = CMIUtilString::Format( "%s/%s", vrBrkPtInfo.m_path.c_str(), vrBrkPtInfo.m_fileName.c_str() ); + const CMICmnMIValueConst miValueConst6( strN5 ); + const CMICmnMIValueResult miValueResult6( "fullname", miValueConst6 ); + if( !vwrMiValueTuple.Add( miValueResult6 ) ) + return MIstatus::failure; + const CMIUtilString strLine( CMIUtilString::Format( "%d", vrBrkPtInfo.m_nLine ) ); + const CMICmnMIValueConst miValueConst7( strLine ); + const CMICmnMIValueResult miValueResult7( "line", miValueConst7 ); + if( !vwrMiValueTuple.Add( miValueResult7 ) ) + return MIstatus::failure; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Form MI partial response by appending more MI value type objects to the +// tuple type object past in. +// Type: Method. +// Args: vrBrkPtInfo - (R) Break point information object. +// vwrMIValueTuple - (W) MI value tuple object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::MIResponseFormBrkPtInfo( const SBrkPtInfo & vrBrkPtInfo, CMICmnMIValueTuple & vwrMiValueTuple ) +{ + // MI print "=breakpoint-modified,bkpt={number=\"%d\",type=\"breakpoint\",disp=\"%s\",enabled=\"%c\",addr=\"0x%08x\", func=\"%s\",file=\"%s\",fullname=\"%s/%s\",line=\"%d\",times=\"%d\",original-location=\"%s\"}" + + // "number=" + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%d", vrBrkPtInfo.m_id ) ); + const CMICmnMIValueResult miValueResult( "number", miValueConst ); + CMICmnMIValueTuple miValueTuple( miValueResult ); + // "type=" + const CMICmnMIValueConst miValueConst2( vrBrkPtInfo.m_strType ); + const CMICmnMIValueResult miValueResult2( "type", miValueConst2 ); + bool bOk = miValueTuple.Add( miValueResult2 ); + // "disp=" + const CMICmnMIValueConst miValueConst3( vrBrkPtInfo.m_bDisp ? "del" : "keep" ); + const CMICmnMIValueResult miValueResult3( "disp", miValueConst3 ); + bOk = bOk && miValueTuple.Add( miValueResult3 ); + // "enabled=" + const CMICmnMIValueConst miValueConst4( vrBrkPtInfo.m_bEnabled ? "y" : "n" ); + const CMICmnMIValueResult miValueResult4( "enabled", miValueConst4 ); + bOk = bOk && miValueTuple.Add( miValueResult4 ); + // "addr=" + // "func=" + // "file=" + // "fullname=" + // "line=" + bOk = bOk && MIResponseFormBrkPtFrameInfo( vrBrkPtInfo, miValueTuple ); + // "pending=" + if( vrBrkPtInfo.m_bPending ) + { + const CMICmnMIValueConst miValueConst( vrBrkPtInfo.m_strOrigLoc ); + const CMICmnMIValueList miValueList( miValueConst ); + const CMICmnMIValueResult miValueResult( "pending", miValueList ); + bOk = bOk && miValueTuple.Add( miValueResult ); + } + if( vrBrkPtInfo.m_bHaveArgOptionThreadGrp ) + { + const CMICmnMIValueConst miValueConst( vrBrkPtInfo.m_strOptThrdGrp ); + const CMICmnMIValueList miValueList( miValueConst ); + const CMICmnMIValueResult miValueResult( "thread-groups", miValueList ); + bOk = bOk && miValueTuple.Add( miValueResult ); + } + // "times=" + const CMICmnMIValueConst miValueConstB( CMIUtilString::Format( "%d", vrBrkPtInfo.m_nTimes ) ); + const CMICmnMIValueResult miValueResultB( "times", miValueConstB ); + bOk = bOk && miValueTuple.Add( miValueResultB ); + // "thread=" + if( vrBrkPtInfo.m_bBrkPtThreadId ) + { + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%d", vrBrkPtInfo.m_nBrkPtThreadId ) ); + const CMICmnMIValueResult miValueResult( "thread", miValueConst ); + bOk = bOk && miValueTuple.Add( miValueResult ); + } + // "cond=" + if( vrBrkPtInfo.m_bCondition ) + { + const CMICmnMIValueConst miValueConst( vrBrkPtInfo.m_strCondition ); + const CMICmnMIValueResult miValueResult( "cond", miValueConst ); + bOk = bOk && miValueTuple.Add( miValueResult ); + } + // "ignore=" + if( vrBrkPtInfo.m_nIgnore != 0 ) + { + const CMICmnMIValueConst miValueConst( CMIUtilString::Format( "%d", vrBrkPtInfo.m_nIgnore ) ); + const CMICmnMIValueResult miValueResult( "ignore", miValueConst ); + bOk = bOk && miValueTuple.Add( miValueResult ); + } + // "original-location=" + const CMICmnMIValueConst miValueConstC( vrBrkPtInfo.m_strOrigLoc ); + const CMICmnMIValueResult miValueResultC( "original-location", miValueConstC ); + bOk = bOk && miValueTuple.Add( miValueResultC ); + + vwrMiValueTuple = miValueTuple; + + return MIstatus::success; +} + +//++ ------------------------------------------------------------------------------------ +// Details: Retrieve breakpoint information and write into the given breakpoint information +// object. Note not all possible information is retrieved and so the information +// object may need to be filled in with more information after calling this +// function. Mainly breakpoint location information of information that is +// unlikely to change. +// Type: Method. +// Args: vBrkPt - (R) LLDB break point object. +// vrBrkPtInfo - (W) Break point information object. +// Return: MIstatus::success - Functional succeeded. +// MIstatus::failure - Functional failed. +// Throws: None. +//-- +bool CMICmnLLDBDebugSessionInfo::GetBrkPtInfo( const lldb::SBBreakpoint & vBrkPt, SBrkPtInfo & vrwBrkPtInfo ) const +{ + lldb::SBBreakpoint & rBrkPt = const_cast< lldb::SBBreakpoint & >( vBrkPt ); + lldb::SBBreakpointLocation brkPtLoc = rBrkPt.GetLocationAtIndex( 0 ); + lldb::SBAddress brkPtAddr = brkPtLoc.GetAddress(); + lldb::SBSymbolContext symbolCntxt = brkPtAddr.GetSymbolContext( lldb::eSymbolContextEverything ); + const MIchar * pUnkwn = "??"; + lldb::SBModule rModule = symbolCntxt.GetModule(); + const MIchar * pModule = rModule.IsValid() ? rModule.GetFileSpec().GetFilename() : pUnkwn; MIunused( pModule ); + const MIchar * pFile = pUnkwn; + const MIchar * pFn = pUnkwn; + const MIchar * pFilePath = pUnkwn; + size_t nLine = 0; + const size_t nAddr = brkPtAddr.GetLoadAddress( m_lldbTarget ); + + lldb::SBCompileUnit rCmplUnit = symbolCntxt.GetCompileUnit(); + if( rCmplUnit.IsValid() ) + { + lldb::SBFileSpec rFileSpec = rCmplUnit.GetFileSpec(); + pFile = rFileSpec.GetFilename(); + pFilePath = rFileSpec.GetDirectory(); + lldb::SBFunction rFn = symbolCntxt.GetFunction(); + if( rFn.IsValid() ) + pFn = rFn.GetName(); + lldb::SBLineEntry rLnEntry = symbolCntxt.GetLineEntry(); + if( rLnEntry.GetLine() > 0 ) + nLine = rLnEntry.GetLine(); + } + + vrwBrkPtInfo.m_id = vBrkPt.GetID(); + vrwBrkPtInfo.m_strType = "breakpoint"; + vrwBrkPtInfo.m_pc = nAddr; + vrwBrkPtInfo.m_fnName = pFn; + vrwBrkPtInfo.m_fileName = pFile; + vrwBrkPtInfo.m_path = pFilePath; + vrwBrkPtInfo.m_nLine = nLine; + vrwBrkPtInfo.m_nTimes = vBrkPt.GetHitCount(); + + return MIstatus::success; +} |
