diff options
author | Dimitry Andric <dim@FreeBSD.org> | 2019-12-20 19:53:05 +0000 |
---|---|---|
committer | Dimitry Andric <dim@FreeBSD.org> | 2019-12-20 19:53:05 +0000 |
commit | 0b57cec536236d46e3dba9bd041533462f33dbb7 (patch) | |
tree | 56229dbdbbf76d18580f72f789003db17246c8d9 /contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp | |
parent | 718ef55ec7785aae63f98f8ca05dc07ed399c16d (diff) |
Notes
Diffstat (limited to 'contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp')
-rw-r--r-- | contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp | 705 |
1 files changed, 0 insertions, 705 deletions
diff --git a/contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp b/contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp deleted file mode 100644 index 29e4ab695522..000000000000 --- a/contrib/llvm/tools/lldb/source/Commands/CommandObjectExpression.cpp +++ /dev/null @@ -1,705 +0,0 @@ -//===-- CommandObjectExpression.cpp -----------------------------*- C++ -*-===// -// -// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. -// See https://llvm.org/LICENSE.txt for license information. -// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception -// -//===----------------------------------------------------------------------===// - -#include "llvm/ADT/STLExtras.h" -#include "llvm/ADT/StringRef.h" - -#include "CommandObjectExpression.h" -#include "lldb/Core/Debugger.h" -#include "lldb/Core/Value.h" -#include "lldb/Core/ValueObjectVariable.h" -#include "lldb/DataFormatters/ValueObjectPrinter.h" -#include "lldb/Expression/DWARFExpression.h" -#include "lldb/Expression/REPL.h" -#include "lldb/Expression/UserExpression.h" -#include "lldb/Host/Host.h" -#include "lldb/Host/OptionParser.h" -#include "lldb/Interpreter/CommandInterpreter.h" -#include "lldb/Interpreter/CommandReturnObject.h" -#include "lldb/Interpreter/OptionArgParser.h" -#include "lldb/Symbol/ObjectFile.h" -#include "lldb/Symbol/Variable.h" -#include "lldb/Target/Language.h" -#include "lldb/Target/Process.h" -#include "lldb/Target/StackFrame.h" -#include "lldb/Target/Target.h" -#include "lldb/Target/Thread.h" - -using namespace lldb; -using namespace lldb_private; - -CommandObjectExpression::CommandOptions::CommandOptions() : OptionGroup() {} - -CommandObjectExpression::CommandOptions::~CommandOptions() = default; - -static constexpr OptionEnumValueElement g_description_verbosity_type[] = { - {eLanguageRuntimeDescriptionDisplayVerbosityCompact, "compact", - "Only show the description string"}, - {eLanguageRuntimeDescriptionDisplayVerbosityFull, "full", - "Show the full output, including persistent variable's name and type"} }; - -static constexpr OptionEnumValues DescriptionVerbosityTypes() { - return OptionEnumValues(g_description_verbosity_type); -} - -static constexpr OptionDefinition g_expression_options[] = { - // clang-format off - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "all-threads", 'a', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeBoolean, "Should we run all threads if the execution doesn't complete on one thread."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "ignore-breakpoints", 'i', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeBoolean, "Ignore breakpoint hits while running expressions"}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "timeout", 't', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeUnsignedInteger, "Timeout value (in microseconds) for running the expression."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "unwind-on-error", 'u', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeBoolean, "Clean up program state if the expression causes a crash, or raises a signal. " - "Note, unlike gdb hitting a breakpoint is controlled by another option (-i)."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "debug", 'g', OptionParser::eNoArgument, nullptr, {}, 0, eArgTypeNone, "When specified, debug the JIT code by setting a breakpoint on the first instruction " - "and forcing breakpoints to not be ignored (-i0) and no unwinding to happen on error (-u0)."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "language", 'l', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeLanguage, "Specifies the Language to use when parsing the expression. If not set the target.language " - "setting is used." }, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "apply-fixits", 'X', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeLanguage, "If true, simple fix-it hints will be automatically applied to the expression." }, - {LLDB_OPT_SET_1, false, "description-verbosity", 'v', OptionParser::eOptionalArgument, nullptr, DescriptionVerbosityTypes(), 0, eArgTypeDescriptionVerbosity, "How verbose should the output of this expression be, if the object description is asked for."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "top-level", 'p', OptionParser::eNoArgument, nullptr, {}, 0, eArgTypeNone, "Interpret the expression as a complete translation unit, without injecting it into the local " - "context. Allows declaration of persistent, top-level entities without a $ prefix."}, - {LLDB_OPT_SET_1 | LLDB_OPT_SET_2, false, "allow-jit", 'j', OptionParser::eRequiredArgument, nullptr, {}, 0, eArgTypeBoolean, "Controls whether the expression can fall back to being JITted if it's not supported by " - "the interpreter (defaults to true)."} - // clang-format on -}; - -Status CommandObjectExpression::CommandOptions::SetOptionValue( - uint32_t option_idx, llvm::StringRef option_arg, - ExecutionContext *execution_context) { - Status error; - - const int short_option = GetDefinitions()[option_idx].short_option; - - switch (short_option) { - case 'l': - language = Language::GetLanguageTypeFromString(option_arg); - if (language == eLanguageTypeUnknown) - error.SetErrorStringWithFormat( - "unknown language type: '%s' for expression", - option_arg.str().c_str()); - break; - - case 'a': { - bool success; - bool result; - result = OptionArgParser::ToBoolean(option_arg, true, &success); - if (!success) - error.SetErrorStringWithFormat( - "invalid all-threads value setting: \"%s\"", - option_arg.str().c_str()); - else - try_all_threads = result; - } break; - - case 'i': { - bool success; - bool tmp_value = OptionArgParser::ToBoolean(option_arg, true, &success); - if (success) - ignore_breakpoints = tmp_value; - else - error.SetErrorStringWithFormat( - "could not convert \"%s\" to a boolean value.", - option_arg.str().c_str()); - break; - } - - case 'j': { - bool success; - bool tmp_value = OptionArgParser::ToBoolean(option_arg, true, &success); - if (success) - allow_jit = tmp_value; - else - error.SetErrorStringWithFormat( - "could not convert \"%s\" to a boolean value.", - option_arg.str().c_str()); - break; - } - - case 't': - if (option_arg.getAsInteger(0, timeout)) { - timeout = 0; - error.SetErrorStringWithFormat("invalid timeout setting \"%s\"", - option_arg.str().c_str()); - } - break; - - case 'u': { - bool success; - bool tmp_value = OptionArgParser::ToBoolean(option_arg, true, &success); - if (success) - unwind_on_error = tmp_value; - else - error.SetErrorStringWithFormat( - "could not convert \"%s\" to a boolean value.", - option_arg.str().c_str()); - break; - } - - case 'v': - if (option_arg.empty()) { - m_verbosity = eLanguageRuntimeDescriptionDisplayVerbosityFull; - break; - } - m_verbosity = (LanguageRuntimeDescriptionDisplayVerbosity) - OptionArgParser::ToOptionEnum( - option_arg, GetDefinitions()[option_idx].enum_values, 0, error); - if (!error.Success()) - error.SetErrorStringWithFormat( - "unrecognized value for description-verbosity '%s'", - option_arg.str().c_str()); - break; - - case 'g': - debug = true; - unwind_on_error = false; - ignore_breakpoints = false; - break; - - case 'p': - top_level = true; - break; - - case 'X': { - bool success; - bool tmp_value = OptionArgParser::ToBoolean(option_arg, true, &success); - if (success) - auto_apply_fixits = tmp_value ? eLazyBoolYes : eLazyBoolNo; - else - error.SetErrorStringWithFormat( - "could not convert \"%s\" to a boolean value.", - option_arg.str().c_str()); - break; - } - - default: - error.SetErrorStringWithFormat("invalid short option character '%c'", - short_option); - break; - } - - return error; -} - -void CommandObjectExpression::CommandOptions::OptionParsingStarting( - ExecutionContext *execution_context) { - auto process_sp = - execution_context ? execution_context->GetProcessSP() : ProcessSP(); - if (process_sp) { - ignore_breakpoints = process_sp->GetIgnoreBreakpointsInExpressions(); - unwind_on_error = process_sp->GetUnwindOnErrorInExpressions(); - } else { - ignore_breakpoints = true; - unwind_on_error = true; - } - - show_summary = true; - try_all_threads = true; - timeout = 0; - debug = false; - language = eLanguageTypeUnknown; - m_verbosity = eLanguageRuntimeDescriptionDisplayVerbosityCompact; - auto_apply_fixits = eLazyBoolCalculate; - top_level = false; - allow_jit = true; -} - -llvm::ArrayRef<OptionDefinition> -CommandObjectExpression::CommandOptions::GetDefinitions() { - return llvm::makeArrayRef(g_expression_options); -} - -CommandObjectExpression::CommandObjectExpression( - CommandInterpreter &interpreter) - : CommandObjectRaw( - interpreter, "expression", "Evaluate an expression on the current " - "thread. Displays any returned value " - "with LLDB's default formatting.", - "", eCommandProcessMustBePaused | eCommandTryTargetAPILock), - IOHandlerDelegate(IOHandlerDelegate::Completion::Expression), - m_option_group(), m_format_options(eFormatDefault), - m_repl_option(LLDB_OPT_SET_1, false, "repl", 'r', "Drop into REPL", false, - true), - m_command_options(), m_expr_line_count(0), m_expr_lines() { - SetHelpLong( - R"( -Single and multi-line expressions: - -)" - " The expression provided on the command line must be a complete expression \ -with no newlines. To evaluate a multi-line expression, \ -hit a return after an empty expression, and lldb will enter the multi-line expression editor. \ -Hit return on an empty line to end the multi-line expression." - - R"( - -Timeouts: - -)" - " If the expression can be evaluated statically (without running code) then it will be. \ -Otherwise, by default the expression will run on the current thread with a short timeout: \ -currently .25 seconds. If it doesn't return in that time, the evaluation will be interrupted \ -and resumed with all threads running. You can use the -a option to disable retrying on all \ -threads. You can use the -t option to set a shorter timeout." - R"( - -User defined variables: - -)" - " You can define your own variables for convenience or to be used in subsequent expressions. \ -You define them the same way you would define variables in C. If the first character of \ -your user defined variable is a $, then the variable's value will be available in future \ -expressions, otherwise it will just be available in the current expression." - R"( - -Continuing evaluation after a breakpoint: - -)" - " If the \"-i false\" option is used, and execution is interrupted by a breakpoint hit, once \ -you are done with your investigation, you can either remove the expression execution frames \ -from the stack with \"thread return -x\" or if you are still interested in the expression result \ -you can issue the \"continue\" command and the expression evaluation will complete and the \ -expression result will be available using the \"thread.completed-expression\" key in the thread \ -format." - - R"( - -Examples: - - expr my_struct->a = my_array[3] - expr -f bin -- (index * 8) + 5 - expr unsigned int $foo = 5 - expr char c[] = \"foo\"; c[0])"); - - CommandArgumentEntry arg; - CommandArgumentData expression_arg; - - // Define the first (and only) variant of this arg. - expression_arg.arg_type = eArgTypeExpression; - expression_arg.arg_repetition = eArgRepeatPlain; - - // There is only one variant this argument could be; put it into the argument - // entry. - arg.push_back(expression_arg); - - // Push the data for the first argument into the m_arguments vector. - m_arguments.push_back(arg); - - // Add the "--format" and "--gdb-format" - m_option_group.Append(&m_format_options, - OptionGroupFormat::OPTION_GROUP_FORMAT | - OptionGroupFormat::OPTION_GROUP_GDB_FMT, - LLDB_OPT_SET_1); - m_option_group.Append(&m_command_options); - m_option_group.Append(&m_varobj_options, LLDB_OPT_SET_ALL, - LLDB_OPT_SET_1 | LLDB_OPT_SET_2); - m_option_group.Append(&m_repl_option, LLDB_OPT_SET_ALL, LLDB_OPT_SET_3); - m_option_group.Finalize(); -} - -CommandObjectExpression::~CommandObjectExpression() = default; - -Options *CommandObjectExpression::GetOptions() { return &m_option_group; } - -int CommandObjectExpression::HandleCompletion(CompletionRequest &request) { - EvaluateExpressionOptions options; - options.SetCoerceToId(m_varobj_options.use_objc); - options.SetLanguage(m_command_options.language); - options.SetExecutionPolicy(lldb_private::eExecutionPolicyNever); - options.SetAutoApplyFixIts(false); - options.SetGenerateDebugInfo(false); - - // We need a valid execution context with a frame pointer for this - // completion, so if we don't have one we should try to make a valid - // execution context. - if (m_interpreter.GetExecutionContext().GetFramePtr() == nullptr) - m_interpreter.UpdateExecutionContext(nullptr); - - // This didn't work, so let's get out before we start doing things that - // expect a valid frame pointer. - if (m_interpreter.GetExecutionContext().GetFramePtr() == nullptr) - return 0; - - ExecutionContext exe_ctx(m_interpreter.GetExecutionContext()); - - Target *target = exe_ctx.GetTargetPtr(); - - if (!target) - target = GetDummyTarget(); - - if (!target) - return 0; - - unsigned cursor_pos = request.GetRawCursorPos(); - llvm::StringRef code = request.GetRawLine(); - - const std::size_t original_code_size = code.size(); - - // Remove the first token which is 'expr' or some alias/abbreviation of that. - code = llvm::getToken(code).second.ltrim(); - OptionsWithRaw args(code); - code = args.GetRawPart(); - - // The position where the expression starts in the command line. - assert(original_code_size >= code.size()); - std::size_t raw_start = original_code_size - code.size(); - - // Check if the cursor is actually in the expression string, and if not, we - // exit. - // FIXME: We should complete the options here. - if (cursor_pos < raw_start) - return 0; - - // Make the cursor_pos again relative to the start of the code string. - assert(cursor_pos >= raw_start); - cursor_pos -= raw_start; - - auto language = exe_ctx.GetFrameRef().GetLanguage(); - - Status error; - lldb::UserExpressionSP expr(target->GetUserExpressionForLanguage( - code, llvm::StringRef(), language, UserExpression::eResultTypeAny, - options, nullptr, error)); - if (error.Fail()) - return 0; - - expr->Complete(exe_ctx, request, cursor_pos); - return request.GetNumberOfMatches(); -} - -static lldb_private::Status -CanBeUsedForElementCountPrinting(ValueObject &valobj) { - CompilerType type(valobj.GetCompilerType()); - CompilerType pointee; - if (!type.IsPointerType(&pointee)) - return Status("as it does not refer to a pointer"); - if (pointee.IsVoidType()) - return Status("as it refers to a pointer to void"); - return Status(); -} - -bool CommandObjectExpression::EvaluateExpression(llvm::StringRef expr, - Stream *output_stream, - Stream *error_stream, - CommandReturnObject *result) { - // Don't use m_exe_ctx as this might be called asynchronously after the - // command object DoExecute has finished when doing multi-line expression - // that use an input reader... - ExecutionContext exe_ctx(m_interpreter.GetExecutionContext()); - - Target *target = exe_ctx.GetTargetPtr(); - - if (!target) - target = GetDummyTarget(); - - if (target) { - lldb::ValueObjectSP result_valobj_sp; - bool keep_in_memory = true; - StackFrame *frame = exe_ctx.GetFramePtr(); - - EvaluateExpressionOptions options; - options.SetCoerceToId(m_varobj_options.use_objc); - options.SetUnwindOnError(m_command_options.unwind_on_error); - options.SetIgnoreBreakpoints(m_command_options.ignore_breakpoints); - options.SetKeepInMemory(keep_in_memory); - options.SetUseDynamic(m_varobj_options.use_dynamic); - options.SetTryAllThreads(m_command_options.try_all_threads); - options.SetDebug(m_command_options.debug); - options.SetLanguage(m_command_options.language); - options.SetExecutionPolicy( - m_command_options.allow_jit - ? EvaluateExpressionOptions::default_execution_policy - : lldb_private::eExecutionPolicyNever); - - bool auto_apply_fixits; - if (m_command_options.auto_apply_fixits == eLazyBoolCalculate) - auto_apply_fixits = target->GetEnableAutoApplyFixIts(); - else - auto_apply_fixits = m_command_options.auto_apply_fixits == eLazyBoolYes; - - options.SetAutoApplyFixIts(auto_apply_fixits); - - if (m_command_options.top_level) - options.SetExecutionPolicy(eExecutionPolicyTopLevel); - - // If there is any chance we are going to stop and want to see what went - // wrong with our expression, we should generate debug info - if (!m_command_options.ignore_breakpoints || - !m_command_options.unwind_on_error) - options.SetGenerateDebugInfo(true); - - if (m_command_options.timeout > 0) - options.SetTimeout(std::chrono::microseconds(m_command_options.timeout)); - else - options.SetTimeout(llvm::None); - - ExpressionResults success = target->EvaluateExpression( - expr, frame, result_valobj_sp, options, &m_fixed_expression); - - // We only tell you about the FixIt if we applied it. The compiler errors - // will suggest the FixIt if it parsed. - if (error_stream && !m_fixed_expression.empty() && - target->GetEnableNotifyAboutFixIts()) { - if (success == eExpressionCompleted) - error_stream->Printf( - " Fix-it applied, fixed expression was: \n %s\n", - m_fixed_expression.c_str()); - } - - if (result_valobj_sp) { - Format format = m_format_options.GetFormat(); - - if (result_valobj_sp->GetError().Success()) { - if (format != eFormatVoid) { - if (format != eFormatDefault) - result_valobj_sp->SetFormat(format); - - if (m_varobj_options.elem_count > 0) { - Status error(CanBeUsedForElementCountPrinting(*result_valobj_sp)); - if (error.Fail()) { - result->AppendErrorWithFormat( - "expression cannot be used with --element-count %s\n", - error.AsCString("")); - result->SetStatus(eReturnStatusFailed); - return false; - } - } - - DumpValueObjectOptions options(m_varobj_options.GetAsDumpOptions( - m_command_options.m_verbosity, format)); - options.SetVariableFormatDisplayLanguage( - result_valobj_sp->GetPreferredDisplayLanguage()); - - result_valobj_sp->Dump(*output_stream, options); - - if (result) - result->SetStatus(eReturnStatusSuccessFinishResult); - } - } else { - if (result_valobj_sp->GetError().GetError() == - UserExpression::kNoResult) { - if (format != eFormatVoid && GetDebugger().GetNotifyVoid()) { - error_stream->PutCString("(void)\n"); - } - - if (result) - result->SetStatus(eReturnStatusSuccessFinishResult); - } else { - const char *error_cstr = result_valobj_sp->GetError().AsCString(); - if (error_cstr && error_cstr[0]) { - const size_t error_cstr_len = strlen(error_cstr); - const bool ends_with_newline = - error_cstr[error_cstr_len - 1] == '\n'; - if (strstr(error_cstr, "error:") != error_cstr) - error_stream->PutCString("error: "); - error_stream->Write(error_cstr, error_cstr_len); - if (!ends_with_newline) - error_stream->EOL(); - } else { - error_stream->PutCString("error: unknown error\n"); - } - - if (result) - result->SetStatus(eReturnStatusFailed); - } - } - } - } else { - error_stream->Printf("error: invalid execution context for expression\n"); - return false; - } - - return true; -} - -void CommandObjectExpression::IOHandlerInputComplete(IOHandler &io_handler, - std::string &line) { - io_handler.SetIsDone(true); - // StreamSP output_stream = - // io_handler.GetDebugger().GetAsyncOutputStream(); - // StreamSP error_stream = io_handler.GetDebugger().GetAsyncErrorStream(); - StreamFileSP output_sp(io_handler.GetOutputStreamFile()); - StreamFileSP error_sp(io_handler.GetErrorStreamFile()); - - EvaluateExpression(line.c_str(), output_sp.get(), error_sp.get()); - if (output_sp) - output_sp->Flush(); - if (error_sp) - error_sp->Flush(); -} - -bool CommandObjectExpression::IOHandlerIsInputComplete(IOHandler &io_handler, - StringList &lines) { - // An empty lines is used to indicate the end of input - const size_t num_lines = lines.GetSize(); - if (num_lines > 0 && lines[num_lines - 1].empty()) { - // Remove the last empty line from "lines" so it doesn't appear in our - // resulting input and return true to indicate we are done getting lines - lines.PopBack(); - return true; - } - return false; -} - -void CommandObjectExpression::GetMultilineExpression() { - m_expr_lines.clear(); - m_expr_line_count = 0; - - Debugger &debugger = GetCommandInterpreter().GetDebugger(); - bool color_prompt = debugger.GetUseColor(); - const bool multiple_lines = true; // Get multiple lines - IOHandlerSP io_handler_sp( - new IOHandlerEditline(debugger, IOHandler::Type::Expression, - "lldb-expr", // Name of input reader for history - llvm::StringRef(), // No prompt - llvm::StringRef(), // Continuation prompt - multiple_lines, color_prompt, - 1, // Show line numbers starting at 1 - *this, nullptr)); - - StreamFileSP output_sp(io_handler_sp->GetOutputStreamFile()); - if (output_sp) { - output_sp->PutCString( - "Enter expressions, then terminate with an empty line to evaluate:\n"); - output_sp->Flush(); - } - debugger.PushIOHandler(io_handler_sp); -} - -static EvaluateExpressionOptions -GetExprOptions(ExecutionContext &ctx, - CommandObjectExpression::CommandOptions command_options) { - command_options.OptionParsingStarting(&ctx); - - // Default certain settings for REPL regardless of the global settings. - command_options.unwind_on_error = false; - command_options.ignore_breakpoints = false; - command_options.debug = false; - - EvaluateExpressionOptions expr_options; - expr_options.SetUnwindOnError(command_options.unwind_on_error); - expr_options.SetIgnoreBreakpoints(command_options.ignore_breakpoints); - expr_options.SetTryAllThreads(command_options.try_all_threads); - - if (command_options.timeout > 0) - expr_options.SetTimeout(std::chrono::microseconds(command_options.timeout)); - else - expr_options.SetTimeout(llvm::None); - - return expr_options; -} - -bool CommandObjectExpression::DoExecute(llvm::StringRef command, - CommandReturnObject &result) { - m_fixed_expression.clear(); - auto exe_ctx = GetCommandInterpreter().GetExecutionContext(); - m_option_group.NotifyOptionParsingStarting(&exe_ctx); - - if (command.empty()) { - GetMultilineExpression(); - return result.Succeeded(); - } - - OptionsWithRaw args(command); - llvm::StringRef expr = args.GetRawPart(); - - if (args.HasArgs()) { - if (!ParseOptionsAndNotify(args.GetArgs(), result, m_option_group, exe_ctx)) - return false; - - if (m_repl_option.GetOptionValue().GetCurrentValue()) { - Target *target = m_interpreter.GetExecutionContext().GetTargetPtr(); - if (target) { - // Drop into REPL - m_expr_lines.clear(); - m_expr_line_count = 0; - - Debugger &debugger = target->GetDebugger(); - - // Check if the LLDB command interpreter is sitting on top of a REPL - // that launched it... - if (debugger.CheckTopIOHandlerTypes(IOHandler::Type::CommandInterpreter, - IOHandler::Type::REPL)) { - // the LLDB command interpreter is sitting on top of a REPL that - // launched it, so just say the command interpreter is done and - // fall back to the existing REPL - m_interpreter.GetIOHandler(false)->SetIsDone(true); - } else { - // We are launching the REPL on top of the current LLDB command - // interpreter, so just push one - bool initialize = false; - Status repl_error; - REPLSP repl_sp(target->GetREPL(repl_error, m_command_options.language, - nullptr, false)); - - if (!repl_sp) { - initialize = true; - repl_sp = target->GetREPL(repl_error, m_command_options.language, - nullptr, true); - if (!repl_error.Success()) { - result.SetError(repl_error); - return result.Succeeded(); - } - } - - if (repl_sp) { - if (initialize) { - repl_sp->SetEvaluateOptions( - GetExprOptions(exe_ctx, m_command_options)); - repl_sp->SetFormatOptions(m_format_options); - repl_sp->SetValueObjectDisplayOptions(m_varobj_options); - } - - IOHandlerSP io_handler_sp(repl_sp->GetIOHandler()); - - io_handler_sp->SetIsDone(false); - - debugger.PushIOHandler(io_handler_sp); - } else { - repl_error.SetErrorStringWithFormat( - "Couldn't create a REPL for %s", - Language::GetNameForLanguageType(m_command_options.language)); - result.SetError(repl_error); - return result.Succeeded(); - } - } - } - } - // No expression following options - else if (expr.empty()) { - GetMultilineExpression(); - return result.Succeeded(); - } - } - - Target *target = GetSelectedOrDummyTarget(); - if (EvaluateExpression(expr, &(result.GetOutputStream()), - &(result.GetErrorStream()), &result)) { - - if (!m_fixed_expression.empty() && target->GetEnableNotifyAboutFixIts()) { - CommandHistory &history = m_interpreter.GetCommandHistory(); - // FIXME: Can we figure out what the user actually typed (e.g. some alias - // for expr???) - // If we can it would be nice to show that. - std::string fixed_command("expression "); - if (args.HasArgs()) { - // Add in any options that might have been in the original command: - fixed_command.append(args.GetArgStringWithDelimiter()); - fixed_command.append(m_fixed_expression); - } else - fixed_command.append(m_fixed_expression); - history.AppendString(fixed_command); - } - // Increment statistics to record this expression evaluation success. - target->IncrementStats(StatisticKind::ExpressionSuccessful); - return true; - } - - // Increment statistics to record this expression evaluation failure. - target->IncrementStats(StatisticKind::ExpressionFailure); - result.SetStatus(eReturnStatusFailed); - return false; -} |