Changeset 1198 for code/branches/console/src/core/CommandExecutor.cc

Timestamp:

Apr 27, 2008, 10:22:32 PM (16 years ago)

Author:

landauf

Message:

CommandExecutor uses Tcl

File:

• code/branches/console/src/core/CommandExecutor.cc (modified) (2 diffs)

code/branches/console/src/core/CommandExecutor.cc

@@ -36 +36 @@
 #include "Executor.h"
 #include "ConfigValueContainer.h"
+#include "TclBind.h"
 
 #define COMMAND_EXECUTOR_KEYWORD_SET_CONFIG_VALUE "set"
@@ -379 +380 @@
     }
 
-    bool CommandExecutor::execute(const std::string& command)
-    {
-        if ((CommandExecutor::getEvaluation().processedCommand_ != command) || (CommandExecutor::getEvaluation().state_ == CS_Uninitialized))
-            CommandExecutor::parse(command);
-
-        return CommandExecutor::execute(CommandExecutor::getEvaluation());
+    bool CommandExecutor::execute(const std::string& command, bool useTcl)
+    {
+        if (useTcl)
+        {
+            return TclBind::eval(command);
+        }
+        else
+        {
+            if ((CommandExecutor::getEvaluation().processedCommand_ != command) || (CommandExecutor::getEvaluation().state_ == CS_Uninitialized))
+                CommandExecutor::parse(command);
+
+            return CommandExecutor::execute(CommandExecutor::getEvaluation());
+        }
     }