Initial checkin of lldb code from internal Apple repo.
git-svn-id: https://llvm.org/svn/llvm-project/llvdb/trunk@105619 91177308-0d34-0410-b5e6-96231b3b80d8
diff --git a/source/Commands/CommandObjectSet.cpp b/source/Commands/CommandObjectSet.cpp
new file mode 100644
index 0000000..46ad049
--- /dev/null
+++ b/source/Commands/CommandObjectSet.cpp
@@ -0,0 +1,153 @@
+//===-- CommandObjectSet.cpp ------------------------------------*- C++ -*-===//
+//
+// The LLVM Compiler Infrastructure
+//
+// This file is distributed under the University of Illinois Open Source
+// License. See LICENSE.TXT for details.
+//
+//===----------------------------------------------------------------------===//
+
+#include "CommandObjectSet.h"
+
+// C Includes
+// C++ Includes
+// Other libraries and framework includes
+// Project includes
+#include "lldb/Interpreter/CommandInterpreter.h"
+#include "lldb/Interpreter/CommandReturnObject.h"
+
+using namespace lldb;
+using namespace lldb_private;
+
+//-------------------------------------------------------------------------
+// CommandObjectSet
+//-------------------------------------------------------------------------
+
+CommandObjectSet::CommandObjectSet () :
+ CommandObject ("set",
+ "Allows the user to set or change the value of a single debugger setting variable.",
+ "set <setting_name> <value>")
+{
+}
+
+CommandObjectSet::~CommandObjectSet()
+{
+}
+
+
+bool
+CommandObjectSet::Execute
+(
+ Args& command,
+ CommandContext *context,
+ CommandInterpreter *interpreter,
+ CommandReturnObject &result
+)
+{
+ CommandInterpreter::VariableMap::iterator pos;
+
+ const int argc = command.GetArgumentCount();
+
+ if (argc < 1)
+ {
+ result.AppendError ("'set' takes at least two arguments");
+ result.SetStatus (eReturnStatusFailed);
+ return false;
+ }
+
+ const char *var_name = command.GetArgumentAtIndex(0);
+ const char *var_value = command.GetArgumentAtIndex(1);
+
+ if (var_name == NULL || var_name[0] == '\0')
+ {
+ result.AppendError ("'set' command requires a valid variable name; No value supplied");
+ result.SetStatus (eReturnStatusFailed);
+ }
+ else if (var_value == NULL || var_value[0] == '\0')
+ {
+ // No value given: Check to see if we're trying to clear an array.
+ StateVariable *var = interpreter->GetStateVariable (var_name);
+ if (var != NULL
+ && var->GetType() == StateVariable::eTypeStringArray)
+ {
+ var->ArrayClearValues();
+ result.SetStatus (eReturnStatusSuccessFinishNoResult);
+ }
+ else
+ {
+ result.AppendError ("'set' command requires a valid variable value; No value supplied");
+ result.SetStatus (eReturnStatusFailed);
+ }
+ }
+ else
+ {
+ StateVariable *var = interpreter->GetStateVariable(var_name);
+ if (var == NULL)
+ {
+ result.AppendErrorWithFormat ("'%s' is not a settable internal variable.\n", var_name);
+ result.SetStatus (eReturnStatusFailed);
+ }
+ else
+ {
+ result.SetStatus (eReturnStatusSuccessFinishNoResult);
+ if (var->GetType() == StateVariable::eTypeBoolean)
+ {
+ bool success = false;
+ bool new_value = Args::StringToBoolean (var_value, false, &success);
+
+ if (success)
+ {
+ result.SetStatus(eReturnStatusSuccessFinishResult);
+ if (!var->HasVerifyFunction() || var->VerifyValue (interpreter, (void *) &new_value, result))
+ var->SetBoolValue (new_value);
+ }
+ else
+ {
+ result.AppendErrorWithFormat ("Invalid boolean string '%s'.\n", var_value);
+ result.SetStatus (eReturnStatusFailed);
+ }
+ }
+ else if (var->GetType() == StateVariable::eTypeInteger)
+ {
+ bool success = false;
+ int new_value = Args::StringToSInt32(var_value, -1, 0, &success);
+
+ if (success)
+ {
+ result.SetStatus(eReturnStatusSuccessFinishResult);
+ if (!var->HasVerifyFunction() || var->VerifyValue (interpreter, (void *) &new_value, result))
+ var->SetIntValue (new_value);
+ }
+ else
+ {
+ result.AppendErrorWithFormat ("Invalid boolean string '%s'.\n", var_value);
+ result.SetStatus (eReturnStatusFailed);
+ }
+ }
+ else if (var->GetType() == StateVariable::eTypeString)
+ {
+ if (!var->HasVerifyFunction() || var->VerifyValue (interpreter, (void *) var_value, result))
+ var->SetStringValue (var_value);
+ }
+ else if (var->GetType() == StateVariable::eTypeStringArray)
+ {
+ if (var_value == NULL || var_value[0] == '\0')
+ var->ArrayClearValues ();
+ else
+ {
+ command.Shift(); // shift off variable name
+ var->ArrayClearValues(); // clear the old values
+ var->GetArgs().AppendArguments (command); // set the new values.
+ }
+ }
+ else
+ {
+ result.AppendErrorWithFormat ("Variable '%s' has unrecognized type.\n",
+ var->GetName());
+ result.SetStatus (eReturnStatusFailed);
+ }
+ }
+ }
+ return result.Succeeded();
+}
+