1 files changed, 77 insertions, 0 deletions
diff --git a/kxsldbg/kxsldbgpart/libxsldbg/trace_cmds.cpp b/kxsldbg/kxsldbgpart/libxsldbg/trace_cmds.cpp
new file mode 100644
index 00000000..3893be67
--- /dev/null
+++ b/kxsldbg/kxsldbgpart/libxsldbg/trace_cmds.cpp
@@ -0,0 +1,77 @@
+
+/***************************************************************************
+                          oc_cmds.c  - libxslt parameter commands for xsldbg
+                             -------------------
+    begin                : Wed Nov 21 2001
+    copyright            : (C) 2001 by Keith Isdale
+    email                : k_isdale@tpg.com.au
+ ***************************************************************************/
+
+/***************************************************************************
+ *                                                                         *
+ *   This program is free software; you can redistribute it and/or modify  *
+ *   it under the terms of the GNU General Public License as published by  *
+ *   the Free Software Foundation; either version 2 of the License, or     *
+ *   (at your option) any later version.                                   *
+ *                                                                         *
+ ***************************************************************************/
+
+#include "xsldbg.h"
+#include "debugXSL.h"
+#include "options.h"
+
+
+/* -----------------------------------------
+
+   Tracing related commands
+
+  ------------------------------------------- */
+
+
+/**
+ * xslDbgShellTrace:
+ * @arg: Not used
+ *
+ * Start the tracing of the stylesheet. First need to restart it.
+ *
+ * Returns 1 on success,
+ *         0 otherwise
+ */
+int
+xslDbgShellTrace(xmlChar * arg)
+{
+    Q_UNUSED(arg);
+    xslDebugStatus = DEBUG_RUN_RESTART;
+    optionsSetIntOption(OPTIONS_TRACE, TRACE_ON);
+    return 1;
+}
+
+
+/**
+ * xslDbgShellWalk:
+ * @arg: An interger between 0 and 9 indicate the speed of walk
+ *
+ * Start walking through the stylesheet.
+ *
+ * Returns 1 on success,
+ *         0 otherwise
+ */
+int
+xslDbgShellWalk(xmlChar * arg)
+{
+    int result = 0;
+
+    long speed = WALKSPEED_NORMAL;
+
+    if (xmlStrLen(arg)
+        && (!sscanf((char *) arg, "%ld", &speed) || ((speed < 0) || (speed > 9)))) {
+        xsldbgGenericErrorFunc(i18n("Error: Invalid arguments to command %1.\n").arg("walk"));
+        xsldbgGenericErrorFunc(i18n("Warning: Assuming normal speed.\n"));
+        speed = WALKSPEED_NORMAL;
+    }
+    result = 1;
+    optionsSetIntOption(OPTIONS_WALK_SPEED, speed);
+    xslDebugStatus = DEBUG_WALK;
+
+    return result;
+}