130fdc8d8SChris Lattner //===-- CommandObjectFrame.cpp ----------------------------------*- C++ -*-===//
230fdc8d8SChris Lattner //
330fdc8d8SChris Lattner //                     The LLVM Compiler Infrastructure
430fdc8d8SChris Lattner //
530fdc8d8SChris Lattner // This file is distributed under the University of Illinois Open Source
630fdc8d8SChris Lattner // License. See LICENSE.TXT for details.
730fdc8d8SChris Lattner //
830fdc8d8SChris Lattner //===----------------------------------------------------------------------===//
930fdc8d8SChris Lattner 
1030fdc8d8SChris Lattner #include "CommandObjectFrame.h"
1130fdc8d8SChris Lattner 
1230fdc8d8SChris Lattner // C Includes
1330fdc8d8SChris Lattner // C++ Includes
1430fdc8d8SChris Lattner // Other libraries and framework includes
1530fdc8d8SChris Lattner // Project includes
1640af72e1SJim Ingham #include "lldb/Interpreter/Args.h"
1730fdc8d8SChris Lattner #include "lldb/Core/Debugger.h"
1830fdc8d8SChris Lattner #include "lldb/Core/Timer.h"
196611103cSGreg Clayton #include "lldb/Core/Debugger.h"
2030fdc8d8SChris Lattner #include "lldb/Interpreter/CommandInterpreter.h"
2130fdc8d8SChris Lattner #include "lldb/Interpreter/CommandReturnObject.h"
2230fdc8d8SChris Lattner #include "lldb/Target/Process.h"
2330fdc8d8SChris Lattner #include "lldb/Target/StackFrame.h"
2430fdc8d8SChris Lattner #include "lldb/Target/Thread.h"
2530fdc8d8SChris Lattner 
2630fdc8d8SChris Lattner #include "CommandObjectThread.h"
2730fdc8d8SChris Lattner 
2830fdc8d8SChris Lattner using namespace lldb;
2930fdc8d8SChris Lattner using namespace lldb_private;
3030fdc8d8SChris Lattner 
3130fdc8d8SChris Lattner #pragma mark CommandObjectFrameInfo
3230fdc8d8SChris Lattner 
3330fdc8d8SChris Lattner //-------------------------------------------------------------------------
3430fdc8d8SChris Lattner // CommandObjectFrameInfo
3530fdc8d8SChris Lattner //-------------------------------------------------------------------------
3630fdc8d8SChris Lattner 
3730fdc8d8SChris Lattner class CommandObjectFrameInfo : public CommandObject
3830fdc8d8SChris Lattner {
3930fdc8d8SChris Lattner public:
4030fdc8d8SChris Lattner 
4130fdc8d8SChris Lattner     CommandObjectFrameInfo () :
4230fdc8d8SChris Lattner     CommandObject ("frame info",
4330fdc8d8SChris Lattner                    "Lists information about the currently selected frame in the current thread.",
4430fdc8d8SChris Lattner                    "frame info",
4530fdc8d8SChris Lattner                    eFlagProcessMustBeLaunched | eFlagProcessMustBePaused)
4630fdc8d8SChris Lattner     {
4730fdc8d8SChris Lattner     }
4830fdc8d8SChris Lattner 
4930fdc8d8SChris Lattner     ~CommandObjectFrameInfo ()
5030fdc8d8SChris Lattner     {
5130fdc8d8SChris Lattner     }
5230fdc8d8SChris Lattner 
5330fdc8d8SChris Lattner     bool
546611103cSGreg Clayton     Execute (CommandInterpreter &interpreter,
556611103cSGreg Clayton              Args& command,
5630fdc8d8SChris Lattner              CommandReturnObject &result)
5730fdc8d8SChris Lattner     {
586611103cSGreg Clayton         ExecutionContext exe_ctx(interpreter.GetDebugger().GetExecutionContext());
5930fdc8d8SChris Lattner         if (exe_ctx.frame)
6030fdc8d8SChris Lattner         {
6130fdc8d8SChris Lattner             exe_ctx.frame->Dump (&result.GetOutputStream(), true);
6230fdc8d8SChris Lattner             result.GetOutputStream().EOL();
6330fdc8d8SChris Lattner             result.SetStatus (eReturnStatusSuccessFinishResult);
6430fdc8d8SChris Lattner         }
6530fdc8d8SChris Lattner         else
6630fdc8d8SChris Lattner         {
6730fdc8d8SChris Lattner             result.AppendError ("no current frame");
6830fdc8d8SChris Lattner             result.SetStatus (eReturnStatusFailed);
6930fdc8d8SChris Lattner         }
7030fdc8d8SChris Lattner         return result.Succeeded();
7130fdc8d8SChris Lattner     }
7230fdc8d8SChris Lattner };
7330fdc8d8SChris Lattner 
7430fdc8d8SChris Lattner #pragma mark CommandObjectFrameSelect
7530fdc8d8SChris Lattner 
7630fdc8d8SChris Lattner //-------------------------------------------------------------------------
7730fdc8d8SChris Lattner // CommandObjectFrameSelect
7830fdc8d8SChris Lattner //-------------------------------------------------------------------------
7930fdc8d8SChris Lattner 
8030fdc8d8SChris Lattner class CommandObjectFrameSelect : public CommandObject
8130fdc8d8SChris Lattner {
8230fdc8d8SChris Lattner public:
8330fdc8d8SChris Lattner 
8430fdc8d8SChris Lattner     CommandObjectFrameSelect () :
8530fdc8d8SChris Lattner     CommandObject ("frame select",
8630fdc8d8SChris Lattner                    "Select the current frame by index in the current thread.",
8730fdc8d8SChris Lattner                    "frame select <frame-index>",
8830fdc8d8SChris Lattner                    eFlagProcessMustBeLaunched | eFlagProcessMustBePaused)
8930fdc8d8SChris Lattner     {
9030fdc8d8SChris Lattner     }
9130fdc8d8SChris Lattner 
9230fdc8d8SChris Lattner     ~CommandObjectFrameSelect ()
9330fdc8d8SChris Lattner     {
9430fdc8d8SChris Lattner     }
9530fdc8d8SChris Lattner 
9630fdc8d8SChris Lattner     bool
976611103cSGreg Clayton     Execute (CommandInterpreter &interpreter,
986611103cSGreg Clayton              Args& command,
9930fdc8d8SChris Lattner              CommandReturnObject &result)
10030fdc8d8SChris Lattner     {
1016611103cSGreg Clayton         ExecutionContext exe_ctx (interpreter.GetDebugger().GetExecutionContext());
10230fdc8d8SChris Lattner         if (exe_ctx.thread)
10330fdc8d8SChris Lattner         {
10430fdc8d8SChris Lattner             if (command.GetArgumentCount() == 1)
10530fdc8d8SChris Lattner             {
10630fdc8d8SChris Lattner                 const char *frame_idx_cstr = command.GetArgumentAtIndex(0);
10730fdc8d8SChris Lattner 
10830fdc8d8SChris Lattner                 const uint32_t num_frames = exe_ctx.thread->GetStackFrameCount();
10930fdc8d8SChris Lattner                 const uint32_t frame_idx = Args::StringToUInt32 (frame_idx_cstr, UINT32_MAX, 0);
11030fdc8d8SChris Lattner                 if (frame_idx < num_frames)
11130fdc8d8SChris Lattner                 {
112*2976d00aSJim Ingham                     exe_ctx.thread->SetSelectedFrameByIndex (frame_idx);
113*2976d00aSJim Ingham                     exe_ctx.frame = exe_ctx.thread->GetSelectedFrame ().get();
11430fdc8d8SChris Lattner 
11530fdc8d8SChris Lattner                     if (exe_ctx.frame)
11630fdc8d8SChris Lattner                     {
11730fdc8d8SChris Lattner                         if (DisplayFrameForExecutionContext (exe_ctx.thread,
11830fdc8d8SChris Lattner                                                              exe_ctx.frame,
11930fdc8d8SChris Lattner                                                              interpreter,
12030fdc8d8SChris Lattner                                                              result.GetOutputStream(),
12130fdc8d8SChris Lattner                                                              true,
12230fdc8d8SChris Lattner                                                              true,
12330fdc8d8SChris Lattner                                                              3,
12430fdc8d8SChris Lattner                                                              3))
12530fdc8d8SChris Lattner                         {
12630fdc8d8SChris Lattner                             result.SetStatus (eReturnStatusSuccessFinishResult);
12730fdc8d8SChris Lattner                             return result.Succeeded();
12830fdc8d8SChris Lattner                         }
12930fdc8d8SChris Lattner                     }
13030fdc8d8SChris Lattner                 }
13130fdc8d8SChris Lattner                 if (frame_idx == UINT32_MAX)
13230fdc8d8SChris Lattner                     result.AppendErrorWithFormat ("Invalid frame index: %s.\n", frame_idx_cstr);
13330fdc8d8SChris Lattner                 else
13430fdc8d8SChris Lattner                     result.AppendErrorWithFormat ("Frame index (%u) out of range.\n", frame_idx);
13530fdc8d8SChris Lattner             }
13630fdc8d8SChris Lattner             else
13730fdc8d8SChris Lattner             {
13830fdc8d8SChris Lattner                 result.AppendError ("invalid arguments");
13930fdc8d8SChris Lattner                 result.AppendErrorWithFormat ("Usage: %s\n", m_cmd_syntax.c_str());
14030fdc8d8SChris Lattner             }
14130fdc8d8SChris Lattner         }
14230fdc8d8SChris Lattner         else
14330fdc8d8SChris Lattner         {
14430fdc8d8SChris Lattner             result.AppendError ("no current thread");
14530fdc8d8SChris Lattner         }
14630fdc8d8SChris Lattner         result.SetStatus (eReturnStatusFailed);
14730fdc8d8SChris Lattner         return false;
14830fdc8d8SChris Lattner     }
14930fdc8d8SChris Lattner };
15030fdc8d8SChris Lattner 
15130fdc8d8SChris Lattner #pragma mark CommandObjectMultiwordFrame
15230fdc8d8SChris Lattner 
15330fdc8d8SChris Lattner //-------------------------------------------------------------------------
15430fdc8d8SChris Lattner // CommandObjectMultiwordFrame
15530fdc8d8SChris Lattner //-------------------------------------------------------------------------
15630fdc8d8SChris Lattner 
1576611103cSGreg Clayton CommandObjectMultiwordFrame::CommandObjectMultiwordFrame (CommandInterpreter &interpreter) :
15830fdc8d8SChris Lattner     CommandObjectMultiword ("frame",
15930fdc8d8SChris Lattner                             "A set of commands for operating on the current thread's frames.",
16030fdc8d8SChris Lattner                             "frame <subcommand> [<subcommand-options>]")
16130fdc8d8SChris Lattner {
1626611103cSGreg Clayton     LoadSubCommand (interpreter, "info",   CommandObjectSP (new CommandObjectFrameInfo ()));
1636611103cSGreg Clayton     LoadSubCommand (interpreter, "select", CommandObjectSP (new CommandObjectFrameSelect ()));
16430fdc8d8SChris Lattner }
16530fdc8d8SChris Lattner 
16630fdc8d8SChris Lattner CommandObjectMultiwordFrame::~CommandObjectMultiwordFrame ()
16730fdc8d8SChris Lattner {
16830fdc8d8SChris Lattner }
16930fdc8d8SChris Lattner 
170