diff options
Diffstat (limited to 'kxsldbg/kxsldbgpart/libxsldbg/debugXSL.cpp')
| -rw-r--r-- | kxsldbg/kxsldbgpart/libxsldbg/debugXSL.cpp | 2118 |
1 files changed, 0 insertions, 2118 deletions
diff --git a/kxsldbg/kxsldbgpart/libxsldbg/debugXSL.cpp b/kxsldbg/kxsldbgpart/libxsldbg/debugXSL.cpp deleted file mode 100644 index df63cdb2..00000000 --- a/kxsldbg/kxsldbgpart/libxsldbg/debugXSL.cpp +++ /dev/null @@ -1,2118 +0,0 @@ - -/*************************************************************************** - debugXSL.c - debugger commands to use - ------------------- - begin : Sun Sep 16 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. * - * * - ***************************************************************************/ - -/* - * Orinal file : debugXML.c : This is a set of routines used for - * debugging the tree produced by the XML parser. - * - * New file : shell.c : Debug support version - * - * See Copyright for the status of this software. - * - * Daniel Veillard <daniel@veillard.com> - * - * Permission obtained to modify the LGPL'd code and extend to include breakpoints, inspections of - * stylesheet source, xml data, stylesheet variables - */ - -#ifdef WIN32 -#include <wtypes.h> -#include <winbase.h> /* needed fort the sleep function */ -#endif - -#include "xsldbg.h" -#include "files.h" -#include "cmds.h" /* list of command Id's */ -#include "debug.h" -#include "debugXSL.h" -#include "options.h" -#include "breakpoint.h" -#include "help.h" -#include <stdlib.h> -#include <libxslt/transform.h> /* needed by source command */ -#include <libxslt/xsltInternals.h> -#include <libxml/debugXML.h> -#include <stdio.h> - -/* language change support */ -#ifdef LOCALE_PREFIX -#include <locale.h> -#endif - -#include "xsldbgmsg.h" -#include "xsldbgthread.h" /* for get thread status */ -#include "xsldbgio.h" - -/* current template being processed */ -xsltTemplatePtr rootCopy; - -/* how may items have been printed */ -int printCount; - -/* used to sending small amounts data when xsldbg runs as a thread */ -xmlChar messageBuffer[2000]; - -/* To achieve the same fucntionality of a next command - we first do a step, then a step up */ -int nextCommandActive = 0; - -/* Do we print the values for watches each time the debugger stops */ -int showWatchesActive = 1; - -extern FILE *terminalIO; - -int xsldbgStop = 0; -int xsldbgValidateBreakpoints = BREAKPOINTS_NEED_VALIDATION; -int xsldbgHasLineNumberFix; -bool xsldbgReachedFirstTemplate = false; - -/* valid commands of xslDbgShell */ -const char *commandNames[] = { - "help", - - "bye", - "exit", - "quit", - - "step", - "stepup", - "stepdown", - "next", /* next ie step over template function call*/ - "continue", - "run", - - "templates", - "where", - "frame", - "stylesheets", - - "break", - "showbreak", - "delete", - "enable", - "disable", - - "ls", - "dir", - "du", - "cat", - "print", - "pwd", - "dump", - "base", - - "globals", - "locals", - /* "cat", already listed */ - "source", - "data", - "output", /* output file name */ - "cd", - - /* file related */ - /* "output", already listed */ - "entities", - "system", - "public", - "encoding", - "validate", - "load", - "save", - "write", - "free", - - /* Operating system related */ - "chdir", - "shell", - "tty", - - /* libxslt parameter related */ - "addparam", - "delparam", - "showparam", - "setoption", - "options", - - /* extra options */ - "trace", - "walk", - "addwatch", - "delwatch", - "showwatch", - - /* searching */ - "search", - - /*variable value change */ - "set", - - /* language change */ - "lang", - - NULL /* Indicate the end of list */ -}; - -/* valid commands of xslShell in there alternative|shorter format */ -const char *shortCommandNames[] = { - "h", - - "bye", - "exit", - "q", /*quit */ - - "s", /* step */ - "up", /*stepup */ - "down", /* stepdown */ - "n", /* next ie step over function call*/ - "c", /* continue */ - "r", /* run */ - - "t", /* templates */ - "w", /* where */ - "f", - "style", - - "b", /* break */ - "show", - "d", /* delete */ - "e", /* enabled */ - "disable", - - "ls", - "dir", - "du", - "cat", - "print", - "pwd", - "dump", - "base", - - "globals", - "locals", - /* "cat", already listed */ - "source", - "data", - "o", /* output file name */ - "cd", - - - /* file related */ - /* "output", already listed */ - "ent", /* entities command */ - "sys", /* sytem command */ - "pub", /* public command */ - "encoding", - "validate", - "load", - "save", - "write", - "free", - - /* Operating system related */ - "chdir", - "shell", - "tty", - - /* libxslt parameter related */ - "addparam", - "delparam", - "showparam", - "setoption", - "options", - - /* extra options/commands */ - "trace", - "walk", - "watch", - "delwatch", - "watches", - - /* searching */ - "search", - - /*variable value change */ - "set", - - /* language change */ - "lang", - - NULL /* Indicate the end of list */ -}; - - -/* some convenient short cuts when using cd command*/ -const char *cdShortCuts[] = { - "<<", - ">>", - "<-", - "->", - NULL /* indicate end of list */ -}; - -/* what to replace shortcuts with */ -const char *cdAlternative[] = { - "preceding-sibling::node()", - "following-sibling::node()", - "ancestor::node()", - "descendant::node()", - NULL /* indicate end of list */ -}; - -/* what enum to use for shortcuts */ -enum ShortcutsEnum { - DEBUG_PREV_SIBLING = 200, - DEBUG_NEXT_SIBLING, - DEBUG_ANCESTOR_NODE, - DEBUG_DESCENDANT_NODE -}; - - - -#include <libxml/xpathInternals.h> - -#include <libxslt/extra.h> -#include <string.h> -#ifdef HAVE_STDLIB_H -#include <stdlib.h> -#endif -#ifdef HAVE_STRING_H -#include <string.h> -#endif - - -#include <libxml/xmlmemory.h> -#include <libxml/tree.h> -#include <libxml/parser.h> -#include <libxml/valid.h> -#include <libxml/debugXML.h> -#include <libxml/HTMLtree.h> -#include <libxml/HTMLparser.h> - - -/* ----------------------------------------- - Private function declarations for debugXSL.c - -------------------------------------------*/ - - -/* xslDbgCd : - * Change directories - * @styleCtxt : current stylesheet context - * @ctxt : current shell context - * @arg : path to change to - * @source : is valid - * - * Returns 1 on success, - * 0 otherwise - */ -int xslDbgCd(xsltTransformContextPtr styleCtxt, xmlShellCtxtPtr ctxt, - xmlChar * arg, xmlNodePtr source); - - -/** - * xslDbgPrintCallStack: - * @arg : the number of frame to print, NULL if all items - * - * Print all items found on the callStack - * - * Returns 1 on success, - * 0 otherwise - */ -int xslDbgPrintCallStack(const xmlChar * arg); - - -/** - * xslDbgSleep: - * @delay : the number of microseconds to delay exection by - * - * Delay execution by a specified number of microseconds. On some system - * this will not be at all accurate. - */ -void xslDbgSleep(long delay); - - -/** - * xslDbgWalkContinue: - * - * Delay execution for time as indicated by OPTION_WALK_SPEED - * Can only be called from within shellPrompt! - * OPTION_WALK_SPEED != WALKSPEED_STOP - * - * Returns 1 if walk is to continue, - * 0 otherwise - */ -int xslDbgWalkContinue(void); - - - -/** - * addBreakPointNode: - * @payload : valid breakPointPtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addBreakPointNode(void *payload, void *data, - xmlChar * name); - - -/** - * addSourceNode: - * @payload : valid xsltStylesheetPtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addSourceNode(void *payload, void *data, - xmlChar * name); - - -/** - * addTemplateNode: - * @payload : valid xsltTemplatePtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addTemplateNode(void *payload, void *data, - xmlChar * name); - -/** - * addGlobalNode: - * @payload : valid xmlNodePtr of global variable - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addGlobalNode(void *payload, void *data, - xmlChar * name); - -/** - * addLocalNode: - * @payload : valid xmlNodePtr of local variable - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addLocalNode(void *payload, void *data, - xmlChar * name); - - -/** - * addIncludeNode: - * @payload : valid xmlNodePtr of include instuction - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void - addIncludeNode(void *payload, void *data, - xmlChar * name); - - - -/** - * addCallStackItems: - * - * Convert call stack items into format needed, and add to search dataBase - */ -void - addCallStackItems(void); - - -/** - * shellPrompt: - * @source: The current stylesheet instruction being executed - * @doc: The current document node being processed - * @filename: Not used - * @input: The function to call to when reading commands from stdio - * @output: Where to put the results - * @styleCtxt: Is valid - * - * Present to the user the xsldbg shell - */ -void shellPrompt(xmlNodePtr source, xmlNodePtr doc, - xmlChar * filename, - xmlShellReadlineFunc input, - FILE * output, xsltTransformContextPtr styleCtxt); - -/* ------------------------------------- - End private functions ----------------------------------------*/ - - - -/** - * debugXSLGetTemplate: - * - * Return the last template node found, if an - * - * Returns The last template node found, if any - */ -xsltTemplatePtr -debugXSLGetTemplate(void) -{ - return rootCopy; -} - - -/**************************************************************** - * * - * The XSL shell related functions * - * * - ****************************************************************/ - - -/* xslDbgCd : - * Change directories - * @styleCtxt : current stylesheet context - * @ctxt : current shell context - * @arg : path to change to and in UTF-8 - * @source : is valid - * - * Returns 1 on success, - * 0 otherwise - */ -int -xslDbgCd(xsltTransformContextPtr styleCtxt, xmlShellCtxtPtr ctxt, - xmlChar * arg, xmlNodePtr source) -{ - xmlXPathObjectPtr list = NULL; - int result = 0; - int offset = 2; /* in some cases I'm only interested after first two chars */ - - if (!ctxt) { - xsldbgGenericErrorFunc(i18n("Error: Debugger has no files loaded. Try reloading files.\n")); - return result; - } - - if (arg == NULL) - arg = (xmlChar *) ""; - if (arg[0] == 0) { - ctxt->node = (xmlNodePtr) ctxt->doc; - } else { - if ((arg[0] == '-') && (xmlStrLen(arg) > 2)) { - if (styleCtxt) { - if (arg[1] == 't') { - xmlNodePtr templateNode; - - /* quickly find a template */ - /* skip any white spaces */ - while (_IS_BLANK(arg[offset])) - offset++; - - templateNode = - findTemplateNode(styleCtxt->style, &arg[offset]); - if (!templateNode) { - xsldbgGenericErrorFunc(i18n("Error: The XSLT template named \"%1\" was not found.\n").arg(xsldbgText(&arg[offset]))); - return result; - } else { - xsldbgGenericErrorFunc(i18n(" template: \"%1\"\n").arg(xsldbgText(&arg[offset]))); - ctxt->node = templateNode; - result = 1; - return result; - } - } else if (arg[1] == 's') { - /*quickly switch to another stylesheet node */ - xmlXPathContextPtr pctxt; - - if (source) { - pctxt = xmlXPathNewContext(source->doc); - if (pctxt == NULL) { - xmlFree(ctxt); - /* xslDebugStatus = DEBUG_QUIT; */ - return result; - } - if (!xmlXPathNsLookup(pctxt, (xmlChar *) "xsl")) - xmlXPathRegisterNs(pctxt, (xmlChar *) "xsl", - XSLT_NAMESPACE); - list = - xmlXPathEval((xmlChar *) & arg[offset], pctxt); - if (pctxt) { - xmlFree(pctxt); - } - } else { - xsldbgGenericErrorFunc(i18n("Error: Unable to cd. No stylesheet loaded.\n")); - } - } else { - xsldbgGenericErrorFunc(i18n("Error: Unknown arguments to the command %1.\n").arg("cd")); - } - } else - xsldbgGenericErrorFunc(i18n("Error: Unable to cd. No stylesheet loaded.\n")); - } else { - xmlNodePtr savenode; - - if (styleCtxt) { - savenode = styleCtxt->xpathCtxt->node; - ctxt->pctxt->node = ctxt->node; - styleCtxt->xpathCtxt->node = ctxt->node; - if (!xmlXPathNsLookup(ctxt->pctxt, (xmlChar *) "xsl")) - xmlXPathRegisterNs(ctxt->pctxt, (xmlChar *) "xsl", - XSLT_NAMESPACE); - list = xmlXPathEval((xmlChar *) arg, styleCtxt->xpathCtxt); - styleCtxt->xpathCtxt->node = savenode; - } else if (ctxt->pctxt) { - if (!xmlXPathNsLookup(ctxt->pctxt, (xmlChar *) "xsl")) - xmlXPathRegisterNs(ctxt->pctxt, (xmlChar *) "xsl", - XSLT_NAMESPACE); - list = xmlXPathEval((xmlChar *) arg, ctxt->pctxt); - } else { - xsldbgGenericErrorFunc(i18n("Error: Invalid arguments to the command %1.\n").arg("cd")); - } - } - - if (list != NULL) { - switch (list->type) { - case XPATH_NODESET: - if (list->nodesetval) { - if (list->nodesetval->nodeNr == 1) { - ctxt->node = list->nodesetval->nodeTab[0]; - /* tell the application about the new line - * number we are looking at */ - if (getThreadStatus() == XSLDBG_MSG_THREAD_RUN) { - int breakpoint = 0; - - xsldbgUpdateFileDetails(ctxt->node); - notifyXsldbgApp(XSLDBG_MSG_LINE_CHANGED, - &breakpoint); - } - result = 1; - } else - xsldbgGenericErrorFunc(i18n("Warning: XPath %1 is a Node Set with %n child.", "Warning: XPath %1 is a Node Set with %n children.", list->nodesetval->nodeNr).arg(xsldbgText(arg)) + TQString("\n")); - } else { - xsldbgGenericErrorFunc(i18n("Warning: XPath %1 is an empty Node Set.\n").arg(xsldbgText(arg))); - } - break; - - default: - xmlShellPrintXPathError(list->type, (char *) arg); - } - xmlXPathFreeObject(list); - } else { - xsldbgGenericErrorFunc(i18n("Error: XPath %1 was not found.\n").arg(xsldbgText(arg))); - } - if (ctxt->pctxt) - ctxt->pctxt->node = NULL; - } - return result; -} - - -/** - * xslDbgPrintCallStack: - * @arg : the number of frame to print, NULL if all items - * - * Print all items found on the callStack - * - * Returns 1 on success, - * 0 otherwise - */ -int -xslDbgPrintCallStack(const xmlChar * arg) -{ - int depth = 0; - int result = 1; - callPointPtr callPointItem; - - if (arg == NULL) { - if (getThreadStatus() == XSLDBG_MSG_THREAD_RUN) { - notifyListStart(XSLDBG_MSG_CALLSTACK_CHANGED); - /* we send the oldest frame stack first */ - for (depth = 1; depth <= callStackGetDepth(); depth++) { - callPointItem = callStackGet(depth); - if (callPointItem && callPointItem->info) { - notifyListQueue(callPointItem); - } - } - notifyListSend(); - } else { - xmlChar *nameTemp, *modeTemp; - for (depth = callStackGetDepth(); depth >= 1; depth--) { - callPointItem = callStackGet(depth); - nameTemp = NULL; - modeTemp = NULL; - if (callPointItem && callPointItem->info) { - if (depth == callStackGetDepth()) { - xmlChar *curUrl = xsldbgUrl(); - long curLine = xsldbgLineNo(); - /* if possible list the current location */ - if (rootCopy && (rootCopy->match || rootCopy->name) - && curUrl) { - xmlChar *rootNameTemp, *rootModeTemp; - rootNameTemp = fullTQName(rootCopy->nameURI, rootCopy->name); - rootModeTemp = fullTQName(rootCopy->modeURI, rootCopy->mode); - if (rootNameTemp && rootModeTemp){ - if (rootCopy->match) - /* display information about the current XSLT template */ - xsldbgGenericErrorFunc(i18n("#%1 template: \"%2\" mode: \"%3\"").arg(depth).arg(xsldbgText(rootCopy->match)).arg(xsldbgText(rootModeTemp))); - else - /* display information about the current XSLT template */ - xsldbgGenericErrorFunc(i18n("#%1 template: \"%2\" mode: \"%3\"").arg(depth).arg(xsldbgText(rootNameTemp)).arg(xsldbgText(rootModeTemp))); - /* display where we are in the source/document file */ - xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").arg(xsldbgUrl(curUrl)).arg(curLine)); - }else{ - xsldbgGenericErrorFunc(i18n("Error: Out of memory.\n")); - result = 0; - } - if (rootNameTemp){ - xmlFree(rootNameTemp); - rootNameTemp = NULL; - } - if (rootModeTemp){ - xmlFree(rootModeTemp); - rootModeTemp = NULL; - } - } else if (curUrl) { - /* display information about the current XSLT template */ - xsldbgGenericErrorFunc(i18n("#%1 template: \"LIBXSLT_DEFAULT\" mode: \"\"").arg(depth)); - /* display where we are in the source/document file */ - xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").arg(xsldbgUrl(curUrl)).arg(curLine)); - } - if (curUrl) - xmlFree(curUrl); - - } - nameTemp = fullTQName(callPointItem->info->templateURI, - callPointItem->info->templateName); - modeTemp = fullTQName(callPointItem->info->modeURI, - callPointItem->info->modeName); - if (nameTemp && modeTemp){ - /* display information about the current XSLT template */ - xsldbgGenericErrorFunc(i18n("#%1 template: \"%2\" mode: \"%3\"").arg(depth - 1).arg(xsldbgText(nameTemp)).arg(xsldbgText(modeTemp))); - if (callPointItem->info->url) - /* display where we are in the source/document file */ - xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").arg(xsldbgUrl(callPointItem->info->url)).arg(callPointItem->lineNo)); - else - xsldbgGenericErrorFunc("\n"); - }else{ - xsldbgGenericErrorFunc(i18n("Error: Out of memory.\n")); - result = 0; - } - if (nameTemp){ - xmlFree(nameTemp); - nameTemp = NULL; - } - if(modeTemp){ - xmlFree(modeTemp); - modeTemp = NULL; - } - - } else { -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Call stack item not found at depth %d : xslDbgPrintCallStack\n", depth); -#endif - result = 0; - break; - } - } - if (callStackGetDepth() == 0) - xsldbgGenericErrorFunc(i18n("\tNo items in call stack.\n")); - else - xsldbgGenericErrorFunc("\n"); - } - } else { - long templateDepth = atol((char *) arg); - - - if (getThreadStatus() == XSLDBG_MSG_THREAD_RUN) { - /* should never happen but just in case, when running as a - * thread always provide NO params to the where command */ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Notification of a frame not supported\n"); -#endif - result = 0; - return result; - } - - if (templateDepth >= 0) { - callPointItem = callStackGet(templateDepth + 1); - if (callPointItem && callPointItem->info) { - /* display information about the current XSLT template */ - xsldbgGenericErrorFunc(i18n("#%1 template: \"%2\"").arg(templateDepth).arg(xsldbgText(callPointItem->info->templateName))); - /* should alays be present but .. */ - if (callPointItem->info->url) - /* display where we are in the source/document file */ - xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").arg(xsldbgUrl(callPointItem->info->url)).arg(callPointItem->lineNo)); - else - xsldbgGenericErrorFunc("\n"); - } else { -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Call stack item not found at templateDepth %d : xslDbgPrintCallStack\n", depth); -#endif - result = 0; - } - } - } - return result; -} - - -/** - * xslDbgSleep: - * @delay : the number of microseconds to delay exection by - * - * Delay execution by a specified number of microseconds. On some system - * this will not be at all accurate. - */ -void -xslDbgSleep(long delay) -{ -#ifdef HAVE_USLEEP - usleep(delay); -#else -#ifdef WIN32 - Sleep(delay / 1000); -#else - /* try to delay things by doing a lot of floating point - * multiplication - */ - long loop1, loop2; - float f1 = 1.0000001, f2; - - for (loop1 = 0; loop1 < 100000 * delay; loop1++) - for (loop2 = 0; loop2 < 100000; loop2++) { - f2 = f1 * f1; - } -#endif -#endif -} - - -/** - * xslDbgWalkContinue: - * - * Delay execution for time as indicated by OPTION_WALK_SPEED - * Can only be called from within shellPrompt! - * OPTION_WALK_SPEED != WALKSPEED_STOP - * - * Returns 1 if walk is to continue, - * 0 otherwise - */ -int -xslDbgWalkContinue(void) -{ - int result = 0, speed = optionsGetIntOption(OPTIONS_WALK_SPEED); - - /* We need to ensure that output is realy sent. Otherwise - * walking using xemacs under WIN32 will not work */ - fflush(stderr); - - switch (speed) { - case WALKSPEED_1: - case WALKSPEED_2: - case WALKSPEED_3: - case WALKSPEED_4: - case WALKSPEED_5: - case WALKSPEED_6: - case WALKSPEED_7: - case WALKSPEED_8: - case WALKSPEED_9: - /* see options.h for defintion of WALKDAY */ - xslDbgSleep(speed * WALKDELAY); - result = 1; - break; - - default: /* stop walking */ - optionsSetIntOption(OPTIONS_WALK_SPEED, WALKSPEED_STOP); - xslDebugStatus = DEBUG_STOP; - break; - } - - return result; -} - - -/** - * addBreakPointNode: - * @payload : valid breakPointPtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addBreakPointNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = searchBreakPointNode((breakPointPtr) payload); - - searchAdd(node); -} - - -/** - * addSourceNode: - * @payload : valid xsltStylesheetPtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addSourceNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = searchSourceNode((xsltStylesheetPtr) payload); - - searchAdd(node); -} - - -/** - * addTemplateNode: - * @payload : valid xsltTemplatePtr - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addTemplateNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = - searchTemplateNode(((xsltTemplatePtr) payload)->elem); - searchAdd(node); -} - - -/** - * addGlobalNode: - * @payload : valid xmlNodePtr of global variable - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addGlobalNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = searchGlobalNode((xmlNodePtr) payload); - - searchAdd(node); -} - - -/** - * addLocalNode: - * @payload : valid xmlNodePtr of local variable - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addLocalNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = searchLocalNode((xmlNodePtr) payload); - - searchAdd(node); -} - - -/** - * addIncludeNode: - * @payload : valid xmlNodePtr of include instuction - * @data : not used - * @name : not used - * - * Convert payload into format needed, and add to search dataBase - */ -void -addIncludeNode(void *payload, void *data, - xmlChar * name) -{ - Q_UNUSED(data); - Q_UNUSED(name); - xmlNodePtr node = searchIncludeNode((xmlNodePtr) payload); - - searchAdd(node); -} - - -/** - * addCallStackItems: - * - * Convert call stack items into format needed, and add to search dataBase - */ -void -addCallStackItems(void) -{ - callPointPtr item; - xmlNodePtr node; - int depth; - - for (depth = callStackGetDepth(); depth > 0; depth--) { - item = callStackGet(depth); - if (item) { - node = searchCallStackNode(item); - if (node) - searchAdd(node); - } - } -} - - -/** - * updateSearchData: - * @styleCtxt: Not used - * @style: Is valid - * @data: Not used but MUST be NULL for the moment - * @variableTypes: What types of variables to look - * - * Update the searchDatabase - * - * Returns 1 on success, - * 0 otherwise - */ -int -updateSearchData(xsltTransformContextPtr styleCtxt, - xsltStylesheetPtr style, - void *data, VariableTypeEnum variableTypes) -{ - Q_UNUSED(styleCtxt); - Q_UNUSED(variableTypes); - int result = 0; - - if (!style) { -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Unable to update search database no stylesheet loaded\n"); -#endif - return result; - } - searchEmpty(); - xsldbgGenericErrorFunc(i18n("Information: Updating search database. This may take a while...\n")); - /* add items to the search dataBase */ - addCallStackItems(); - xsldbgGenericErrorFunc(i18n("Information: Looking for breakpoints.\n")); - walkBreakPoints((xmlHashScanner) addBreakPointNode, data); - xsldbgGenericErrorFunc(i18n("Information: Looking for imports and top-level stylesheets.\n")); - walkStylesheets((xmlHashScanner) addSourceNode, data, style); - xsldbgGenericErrorFunc(i18n("Information: Looking for xsl:includes.\n")); - walkIncludeInst((xmlHashScanner) addIncludeNode, data, style); - xsldbgGenericErrorFunc(i18n("Information: Looking for templates.\n")); - walkTemplates((xmlHashScanner) addTemplateNode, data, style); - xsldbgGenericErrorFunc(i18n("Information: Looking for global variables.\n")); - walkGlobals((xmlHashScanner) addGlobalNode, data, style); - xsldbgGenericErrorFunc(i18n("Information: Looking for local variables.\n")); - walkLocals((xmlHashScanner) addLocalNode, data, style); - xsldbgGenericErrorFunc(i18n("Information: Formatting output.\n")); - - result = searchSave(NULL); - return result; -} - - -/** - * debugXSLBreak: - * @templ: The source node being executed - * @node: The data node being processed - * @root: The template being applied to "node" - * @ctxt: The transform context for stylesheet being processed - * - * A break point has been found so pass control to user - */ -void -debugXSLBreak(xmlNodePtr templ, xmlNodePtr node, xsltTemplatePtr root, - xsltTransformContextPtr ctxt) -{ - xmlDocPtr tempDoc = NULL; - xmlNodePtr tempNode = NULL; - rootCopy = root; - static const xmlChar *lastTemplate = NULL; - xmlBufferPtr buffer = xmlBufferCreate(); - static char mybuff[6] = " 0\n\x0"; - - if (ctxt && templ && root && !xsldbgReachedFirstTemplate) - xsldbgReachedFirstTemplate = true; - - if (templ == NULL) { - tempDoc = xmlNewDoc((xmlChar *) "1.0"); - if (!tempDoc) - return; - tempNode = xmlNewNode(NULL, (xmlChar *) "xsldbg_default_node"); - if (!tempNode) { - xmlFreeDoc(tempDoc); - return; - } - xmlAddChild((xmlNodePtr) tempDoc, tempNode); - templ = tempNode; - } - - if (node == NULL) - node = (xmlNodePtr) filesGetMainDoc(); - - if (node == NULL) { - tempDoc = xmlNewDoc((xmlChar *) "1.0"); - if (!tempDoc) - return; - tempNode = xmlNewNode(NULL, (xmlChar *) "xsldbg_default_node"); - if (!tempNode) { - xmlFreeDoc(tempDoc); - return; - } - xmlAddChild((xmlNodePtr) tempDoc, tempNode); - node = tempNode; - } - if (root) { - xmlChar *nameTemp = NULL, *modeTemp = NULL; - nameTemp = fullTQName(root->nameURI, root->name); - modeTemp = fullTQName(root->modeURI, root->mode); - if (!nextCommandActive){ - /* we only want messages if we are not - in the process of completing the next command */ - if (terminalIO == NULL) { - - if (root->match){ - xsldbgGenericErrorFunc(i18n("\nReached template: \"%1\" mode: \"%2\"\n").arg(xsldbgText(root->match)).arg(xsldbgText(modeTemp))); - if (lastTemplate != root->match && buffer){ - xmlBufferCCat(buffer, "\nreached matched template:"); - xmlBufferCat(buffer, root->match); - xmlBufferCCat(buffer, mybuff); - xsltCopyTextString(ctxt, ctxt->insert,xmlBufferContent(buffer),0); - mybuff[1]++; - lastTemplate = root->match; - } - }else{ - xsldbgGenericErrorFunc(i18n("\nReached template: \"%1\" mode: \"%2\"\n").arg(xsldbgText(nameTemp)).arg(xsldbgText(modeTemp))); - if (lastTemplate != root->name && buffer){ - xmlBufferCCat(buffer, "\nreached named template:"); - xmlBufferCat(buffer,root->match); - xmlBufferCCat(buffer,mybuff); - xsltCopyTextString(ctxt, ctxt->insert,xmlBufferContent(buffer),0); - mybuff[1]++; - lastTemplate = root->name; - } - - } - if (buffer) - xmlBufferFree(buffer); - } else { - if ((xslDebugStatus == DEBUG_TRACE) || - (xslDebugStatus == DEBUG_WALK)) { - TQString message; - if (root->match) - message = i18n("\nReached template: \"%1\" mode: \"%2\"\n").arg(xsldbgText(root->match)).arg(xsldbgText(modeTemp)); - else - message = i18n("\nReached template: \"%1\" mode: \"%2\"\n").arg(xsldbgText(nameTemp)).arg(xsldbgText(modeTemp)); - fprintf(terminalIO, "%s", message.local8Bit().data()); - } - } - } - if (nameTemp) - xmlFree(nameTemp); - if (modeTemp) - xmlFree(modeTemp); - } - - shellPrompt(templ, node, (xmlChar *) "index.xsl", - (xmlShellReadlineFunc) xslDbgShellReadline, stdout, ctxt); - if (tempDoc) - xmlFreeDoc(tempDoc); -} - - -/* Highly modified function based on xmlShell */ - -/** - * shellPrompt: - * @source: The current stylesheet instruction being executed - * @doc: The current document node being processed - * @filename: Not used - * @input: The function to call to when reading commands from stdio - * @output: Where to put the results - * @styleCtxt: Is valid - * - * Present to the user the xsldbg shell - */ -void -shellPrompt(xmlNodePtr source, xmlNodePtr doc, xmlChar * filename, - xmlShellReadlineFunc input, FILE * output, - xsltTransformContextPtr styleCtxt) -{ - xmlChar prompt[DEBUG_BUFFER_SIZE] = "/ > "; - xmlChar *cmdline = NULL, *cur; - int nbargs = 0; - int loadedFiles = 0; - int commandId = -1; /* stores what was the last - * command id entered by user */ - xmlChar command[DEBUG_BUFFER_SIZE]; /* holds the command user entered */ - xmlChar arg[DEBUG_BUFFER_SIZE]; /* holds any extra arguments to - * command entered */ - xmlChar dir[DEBUG_BUFFER_SIZE]; /* temporary buffer used by where - * and pwd commands */ - int cmdResult; /* result of last command */ - int shortCutId = -1; /* used by cd command */ - int i; - static int showSource = 1; /* Do we first show source or data ? */ - xmlChar *baseUri = NULL; /* for used for included xml entities */ - const xmlChar *breakUri; - - /* for convenience keep track of which node was last - * selected of source and doc */ - xmlNodePtr lastSourceNode, lastDocNode; - - - xmlShellCtxtPtr ctxt; - int exitShell = 0; /* Indicate when to exit xslShell */ - - if (source == NULL){ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Source NULL in shellPrompt\n"); -#endif - return; - } - if (doc == NULL){ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: doc NULL in shellPrompt\n"); -#endif - return; - } - if (filename == NULL){ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: fileName NULL in shellPrompt\n"); -#endif - return; - } - if (input == NULL){ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Input function NULL in shellPrompt\n"); -#endif - return; - } - if (output == NULL){ -#ifdef WITH_XSLDBG_DEBUG_PROCESS - xsltGenericError(xsltGenericErrorContext, - "Error: Output NULL in shellPrompt\n"); -#endif - return; - } - ctxt = (xmlShellCtxtPtr) xmlMalloc(sizeof(xmlShellCtxt)); - if (ctxt == NULL){ - xsldbgGenericErrorFunc(i18n("Error: Out of memory.\n")); - return; - } - - /* flag that we've received control */ - debugGotControl(1); - ctxt->loaded = 0; - lastSourceNode = source; - lastDocNode = doc; - /* show the doc or source first? */ - if (showSource) { - ctxt->doc = source->doc; - ctxt->node = source; - xsldbgUpdateFileDetails(source); - } else { - ctxt->doc = doc->doc; - ctxt->node = (xmlNodePtr) doc; - xsldbgUpdateFileDetails((xmlNodePtr) doc); - } - - ctxt->input = input; - ctxt->output = output; - ctxt->filename = (char *) xmlStrdup((xmlChar *) filename); - - - if (xsldbgStop == 1){ - xslDebugStatus = DEBUG_STOP; - optionsSetIntOption(OPTIONS_TRACE, TRACE_OFF); - optionsSetIntOption(OPTIONS_WALK_SPEED, WALKSPEED_STOP); - xsldbgStop = 0; - } - - /* let any listener know that we got to a new line */ - if (xslDebugStatus != DEBUG_TRACE) { - /* don't send notify message if we are tracing stylesheet */ - int breakpoint = 1; - - notifyXsldbgApp(XSLDBG_MSG_LINE_CHANGED, &breakpoint); - } - - - /* If using a thread and the thread is running then we don't need to - * send this as the application will see the XSLDBG_MSG_LINE_CHANGED message */ - if ((getThreadStatus() == XSLDBG_MSG_THREAD_NOTUSED) || - (xslDebugStatus == DEBUG_TRACE)) { - TQString messageTxt; - if (!nextCommandActive && ctxt->node && ctxt->node && ctxt->node->doc - && ctxt->node->doc->URL) { - if (!showSource) { - baseUri = filesGetBaseUri(ctxt->node); - if (baseUri != NULL) - breakUri = baseUri; - else - breakUri = ctxt->node->doc->URL; - } else - breakUri = ctxt->node->doc->URL; - - if (xmlGetLineNo(ctxt->node) != -1) - messageTxt = i18n("Breakpoint for file \"%1\" at line %2.\n").arg(xsldbgUrl(breakUri)).arg(xmlGetLineNo(ctxt->node)); - else - messageTxt = i18n("Breakpoint at text node in file \"%1\".\n").arg(xsldbgUrl(breakUri)); - if (baseUri != NULL) { - xmlFree(baseUri); - baseUri = NULL; - } - - if (((xslDebugStatus == DEBUG_TRACE) || - (xslDebugStatus == DEBUG_WALK)) && (terminalIO != NULL)) - fprintf(terminalIO, "%s", messageTxt.utf8().data()); - else - xsldbgGenericErrorFunc(messageTxt); - - } - } - if ((showWatchesActive && (xslDebugStatus == DEBUG_TRACE)) || - (xslDebugStatus == DEBUG_WALK)){ - ctxt->pctxt = xmlXPathNewContext(ctxt->doc); - if (ctxt->pctxt) { - xslDbgShellShowWatches(styleCtxt, ctxt, 0); - xsldbgGenericErrorFunc("\n"); - xmlXPathFreeContext(ctxt->pctxt); - ctxt->pctxt = NULL; - } - } - - if (xslDebugStatus == DEBUG_TRACE) { - if (ctxt->filename) - xmlFree(ctxt->filename); - xmlFree(ctxt); - return; /* All done. Trace next instruction/node */ - } - if (xslDebugStatus == DEBUG_WALK) { - if (xslDbgWalkContinue()) { - if (ctxt->filename) - xmlFree(ctxt->filename); - xmlFree(ctxt); - return; /* All done. Walk to next instruction/node */ - } - } - - ctxt->pctxt = xmlXPathNewContext(ctxt->doc); - if (ctxt->pctxt == NULL) { - xmlFree(ctxt); - xsldbgGenericErrorFunc(i18n("Error: Out of memory.\n")); - return; - } - - if (showWatchesActive){ - xslDbgShellShowWatches(styleCtxt, ctxt, 0); - xsldbgGenericErrorFunc("\n"); - } - - while (!exitShell && (xslDebugStatus != DEBUG_QUIT)) { - if (getThreadStatus() != XSLDBG_MSG_THREAD_RUN) { - if (ctxt->node == (xmlNodePtr) ctxt->doc) - snprintf((char *) prompt, DEBUG_BUFFER_SIZE - 1, - "(xsldbg) %s > ", "/"); - else if ((ctxt->node->name) && (ctxt->node->ns)) - snprintf((char *) prompt, DEBUG_BUFFER_SIZE - 1, - "(xsldbg) %s:%s > ", ctxt->node->ns->prefix, - ctxt->node->name); - else if (ctxt->node->name) - snprintf((char *) prompt, DEBUG_BUFFER_SIZE - 1, - "(xsldbg) %s > ", ctxt->node->name); - - else - snprintf((char *) prompt, DEBUG_BUFFER_SIZE - 1, - "(xsldbg) ? > "); - - prompt[sizeof(prompt) - 1] = 0; - - /* - * Get a new command line - */ - if (nextCommandActive && (xslDebugStatus == DEBUG_STEP)) - /* we are processing the "next command" do the next - part of the command which is the up command */ - cmdline = xmlStrdup((xmlChar*)"up"); - else - cmdline = (xmlChar *) ctxt->input((char *) prompt); - if (cmdline && (optionsGetIntOption(OPTIONS_UTF8_INPUT) == 0)) { - /* we are getting encoded characters from the command line - * so decode them into UTF-8 */ - xmlChar *tempResult = filesDecode(cmdline); - - if (tempResult) { - xmlFree(cmdline); - cmdline = tempResult; - } - } - } else { - /* don't need a prompt for running as when running as a thread */ - xmlStrCpy(messageBuffer, ""); - if (nextCommandActive && (xslDebugStatus == DEBUG_STEP)) - /* we are processing the "next command" do the next - part of the command which is the up command */ - cmdline = xmlStrdup((xmlChar*)"up"); - else - cmdline = (xmlChar *) ctxt->input((char *) messageBuffer); - } - - if (cmdline == NULL) - break; - - /* don't allow next command to be active more than at one breakpoint */ - if (nextCommandActive) - nextCommandActive = 0; - - notifyXsldbgApp(XSLDBG_MSG_PROCESSING_INPUT, NULL); - - /* remove leading/trailing blanks */ - trimString(cmdline); - - /* - * Parse the command itself - */ - cur = cmdline; - nbargs = 0; - while ((*cur == ' ') || (*cur == '\t')) - cur++; - i = 0; - while ((*cur != ' ') && (*cur != '\t') && - (*cur != '\n') && (*cur != '\r')) { - if (*cur == 0) - break; - command[i++] = *cur++; - } - command[i] = 0; - if (i == 0) - continue; - nbargs++; - - /* - * Parse the argument - */ - while ((*cur == ' ') || (*cur == '\t')) - cur++; - i = 0; - while ((*cur != '\n') && (*cur != '\r') && (*cur != 0)) { - if (*cur == 0) - break; - arg[i++] = *cur++; - } - arg[i] = 0; - if (i != 0) - nbargs++; - - - commandId = lookupName(command, (xmlChar **) commandNames); - /* try command shorts if command is not found */ - if (commandId < 0) - commandId = - lookupName(command, (xmlChar **) shortCommandNames); - - cmdResult = -1; /* flag that it contains no result */ - /* - * start interpreting the command - */ - switch (commandId + DEBUG_HELP_CMD) { - /* --- Help related commands --- */ - case DEBUG_HELP_CMD: - cmdResult = helpTop(arg); - if (!cmdResult) - xsldbgGenericErrorFunc(i18n("Unable to print local help. Online help can be found at http://xsldbg.sourceforge.net/docs/index.html.\n")); - break; - - - /* --- Running related commands --- */ - case DEBUG_BYE_CMD: - case DEBUG_EXIT_CMD: - case DEBUG_QUIT_CMD: - /* allow the stylesheet to exit */ - xslDebugStatus = DEBUG_QUIT; - exitShell++; - cmdResult = 1; - break; - - case DEBUG_NEXT_CMD: - xslDebugStatus = DEBUG_STEP; - exitShell++; - cmdResult = 1; - /* Do the the next part of this command - which is the up command */ - nextCommandActive = 1; - break; - - case DEBUG_STEP_CMD: - xslDebugStatus = DEBUG_STEP; - exitShell++; - cmdResult = 1; - break; - - case DEBUG_STEPUP_CMD: - { - xmlChar *noOfFrames = arg; - - /* skip until next space character */ - while (*noOfFrames && (*noOfFrames != ' ')) { - noOfFrames++; - } - cmdResult = xslDbgShellFrameBreak(noOfFrames, 1); - exitShell++; - } - break; - - case DEBUG_STEPDOWN_CMD: - { - xmlChar *noOfFrames = arg; - - /* skip until next space character */ - while (*noOfFrames && (*noOfFrames != ' ')) { - noOfFrames++; - } - cmdResult = xslDbgShellFrameBreak(noOfFrames, 0); - exitShell++; - } - break; - - /* continue to next break point */ - case DEBUG_CONT_CMD: - xslDebugStatus = DEBUG_CONT; - exitShell++; - cmdResult = 1; - break; - - /* restart */ - case DEBUG_RUN_CMD: - xslDebugStatus = DEBUG_RUN_RESTART; - exitShell++; - cmdResult = 1; - break; - - - /* --- Template related commands --- */ - case DEBUG_TEMPLATES_CMD: - { - int allFiles = 1, verbose = 1; - - if (xmlStrLen(arg) && (xmlStrCmp(arg, "this") == 0)) { - allFiles = 0; - } - - /* be verbose when printing template names */ - /* if args is not empty then print names this stylesheet */ - cmdResult = - xslDbgShellPrintTemplateNames(styleCtxt, ctxt, arg, - verbose, allFiles); - break; - } - - - case DEBUG_WHERE_CMD: - /* Print the current working directory as well */ - xslDbgPrintCallStack(NULL); - if (getThreadStatus() != XSLDBG_MSG_THREAD_RUN) { - if (!xmlShellPwd(ctxt, (char *) dir, ctxt->node, NULL)){ - xsldbgGenericErrorFunc((const char*)dir); - xsldbgGenericErrorFunc("\n"); - } - } - cmdResult = 1; - - break; - - case DEBUG_FRAME_CMD: - cmdResult = xslDbgPrintCallStack(arg); - break; - - case DEBUG_STYLESHEETS_CMD: - cmdResult = xslDbgShellPrintStyleSheets(arg); - break; - - /* --- Break point related commands --- */ - case DEBUG_BREAK_CMD: - if (xmlStrLen(arg)) { - if (styleCtxt) - cmdResult = - xslDbgShellBreak(arg, styleCtxt->style, - styleCtxt); - else - cmdResult = xslDbgShellBreak(arg, NULL, styleCtxt); - } else { - /* select current node to break at */ - xmlChar buff[100]; - xmlChar *tempBaseName = filesGetBaseUri(ctxt->node); - if (tempBaseName){ - snprintf((char *) buff, sizeof(buff), "-l %s %ld", - tempBaseName, - xmlGetLineNo(ctxt->node)); - xmlFree(tempBaseName); - } - if (styleCtxt) - cmdResult = - xslDbgShellBreak(buff, styleCtxt->style, - styleCtxt); - else - cmdResult = - xslDbgShellBreak(buff, NULL, styleCtxt); - } - - break; - - case DEBUG_SHOWBREAK_CMD: - if (getThreadStatus() == XSLDBG_MSG_THREAD_RUN) { - notifyListStart(XSLDBG_MSG_BREAKPOINT_CHANGED); - walkBreakPoints((xmlHashScanner) - xslDbgShellPrintBreakPoint, NULL); - notifyListSend(); - } else { - xsldbgGenericErrorFunc("\n"); - printCount = 0; /* printCount will get updated by - * xslDbgShellPrintBreakPoint */ - - walkBreakPoints((xmlHashScanner) - xslDbgShellPrintBreakPoint, NULL); - if (printCount == 0) - xsldbgGenericErrorFunc(i18n("\nNo breakpoints are set for the file.\n")); - else - xsldbgGenericErrorFunc(i18n("\tTotal of %n breakpoint present.","\tTotal of %n breakpoints present.", printCount) + TQString("\n")); - } - cmdResult = 1; - break; - - case DEBUG_DELETE_CMD: - if (xmlStrLen(arg)) - cmdResult = xslDbgShellDelete((xmlChar *) arg); - else { - breakPointPtr breakPtr = NULL; - xmlChar* tempBaseName = filesGetBaseUri(ctxt->node); - - if (tempBaseName){ - breakPtr = - breakPointGet(tempBaseName, - xmlGetLineNo(ctxt->node)); - xmlFree(tempBaseName); - } - if (!breakPtr || !breakPointDelete(breakPtr)) { - xsldbgGenericErrorFunc(i18n("Error: Unable to delete breakpoint.\n")); - cmdResult = 0; - } - } - break; - - case DEBUG_ENABLE_CMD: - if (xmlStrLen(arg)) - cmdResult = - xslDbgShellEnable(arg, XSL_TOGGLE_BREAKPOINT); - else { - breakPointPtr breakPtr = NULL; - xmlChar * tempBaseName = filesGetBaseUri(ctxt->node); - - if (tempBaseName){ - breakPtr = - breakPointGet(tempBaseName, - xmlGetLineNo(ctxt->node)); - xmlFree(tempBaseName); - } - if (!breakPtr || - (!breakPointEnable(breakPtr, !(breakPtr->flags & BREAKPOINT_ENABLED)))) { - xsldbgGenericErrorFunc(i18n("Error: Unable to enable/disable breakpoint.\n")); - cmdResult = 0; - } - } - break; - - case DEBUG_DISABLE_CMD: - if (xmlStrLen(arg)) - cmdResult = xslDbgShellEnable(arg, 0); - else { - breakPointPtr breakPtr = NULL; - xmlChar *tempBaseName = filesGetBaseUri(ctxt->node); - - if (tempBaseName){ - breakPtr = - breakPointGet(tempBaseName, - xmlGetLineNo(ctxt->node)); - xmlFree(tempBaseName); - } - if (!breakPtr || !breakPointEnable(breakPtr, 0)) { - xsldbgGenericErrorFunc(i18n("Error: Unable to enable/disable breakpoint.\n")); - cmdResult = 0; - } - } - break; - - - - /* --- Node view related commands --- */ - case DEBUG_LS_CMD: - cmdResult = xslDbgShellPrintList(ctxt, arg, 0); - break; - - case DEBUG_DIR_CMD: - cmdResult = xslDbgShellPrintList(ctxt, arg, 1); - break; - - case DEBUG_DU_CMD: - xmlShellDu(ctxt, NULL, ctxt->node, NULL); - cmdResult = 1; - break; - - case DEBUG_CAT_CMD: - case DEBUG_PRINT_CMD: - cmdResult = xslDbgShellCat(styleCtxt, ctxt, arg); - break; - - case DEBUG_PWD_CMD: - if (!xmlShellPwd(ctxt, (char *) dir, ctxt->node, NULL)) { - xmlChar* tempBaseName = filesGetBaseUri(ctxt->node); - if(tempBaseName){ - xsldbgGenericErrorFunc("\n"); - xsldbgGenericErrorFunc((char*)dir); - xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2").arg(xsldbgUrl(tempBaseName)).arg(xmlGetLineNo(ctxt->node))); - xmlFree(tempBaseName); - cmdResult = 1; - } - } - if (cmdResult) - xsldbgGenericErrorFunc("\n"); - else - xsldbgGenericErrorFunc(i18n("Error: Unable to print working directory.\n")); - break; - - case DEBUG_DUMP_CMD: - xmlDebugDumpDocument(stdout, ctxt->doc); - cmdResult = 1; - break; - - case DEBUG_BASE_CMD: - xmlShellBase(ctxt, NULL, ctxt->node, NULL); - cmdResult = 1; - break; - - - /* --- Variable related commands --- */ - case DEBUG_GLOBALS_CMD: - if (loadedFiles == 0) - cmdResult = xslDbgShellPrintVariable(styleCtxt, arg, - DEBUG_GLOBAL_VAR); - else { - xsldbgGenericErrorFunc(i18n("Error: Need to use the run command first.\n")); - cmdResult = 0; - } - break; - - case DEBUG_LOCALS_CMD: - if (loadedFiles == 0) - /* if gdb compatability mode is enable print the globals then - * the locals */ - if (optionsGetIntOption(OPTIONS_GDB) == 1) { - cmdResult = - xslDbgShellPrintVariable(styleCtxt, arg, - DEBUG_GLOBAL_VAR); - if (cmdResult == 1) - cmdResult = - xslDbgShellPrintVariable(styleCtxt, arg, - DEBUG_LOCAL_VAR); - } else - cmdResult = - xslDbgShellPrintVariable(styleCtxt, arg, - DEBUG_LOCAL_VAR); - else { - xsldbgGenericErrorFunc(i18n("Error: Need to use the run command first.\n")); - cmdResult = 0; - } - break; - - - /* It's difficult to put the following commands into - * a separe file so they stay here! */ - /* --- Node selection related commands --- */ - case DEBUG_SOURCE_CMD: - cmdResult = 1; /* only one case where this will command fail */ - xsldbgValidateBreakpoints = BREAKPOINTS_NEED_VALIDATION; - if (xmlStrLen(arg) == 0) { - if (ctxt->doc == doc->doc) - lastDocNode = ctxt->node; - ctxt->doc = source->doc; - ctxt->node = lastSourceNode; - if (ctxt->pctxt) - xmlXPathFreeContext(ctxt->pctxt); - ctxt->pctxt = xmlXPathNewContext(ctxt->doc); - showSource = 1; - xsldbgUpdateFileDetails((xmlNodePtr) ctxt->node); - /* let any listener know that we got to a new line */ - notifyXsldbgApp(XSLDBG_MSG_LINE_CHANGED, NULL); - if (ctxt->pctxt == NULL) { - xmlFree(ctxt); - xslDebugStatus = DEBUG_QUIT; - return; - } else - break; - } else { - /* load new stylesheet file, actual loading happens later */ - xmlChar *expandedName = filesExpandName(arg); - - if (expandedName) { - xsldbgGenericErrorFunc(i18n("Load of source deferred. Use the run command.\n")); - - optionsSetStringOption(OPTIONS_SOURCE_FILE_NAME, - expandedName); - notifyXsldbgApp(XSLDBG_MSG_FILE_CHANGED, 0L); - loadedFiles = 1; - xmlFree(expandedName); - cmdResult = 1; - } else { - cmdResult = 0; - } - } - break; - - case DEBUG_DATA_CMD: - cmdResult = 1; /* only one case where this will command fail */ - xsldbgValidateBreakpoints = BREAKPOINTS_NEED_VALIDATION; - if (xmlStrLen(arg) == 0) { - if (ctxt->doc == source->doc) - lastSourceNode = ctxt->node; - ctxt->doc = doc->doc; - ctxt->node = lastDocNode; - if (ctxt->pctxt) - xmlXPathFreeContext(ctxt->pctxt); - ctxt->pctxt = xmlXPathNewContext(ctxt->doc); - showSource = 0; - xsldbgUpdateFileDetails((xmlNodePtr) ctxt->node); - /* let any listener know that we got to a new line */ - notifyXsldbgApp(XSLDBG_MSG_LINE_CHANGED, NULL); - if (ctxt->pctxt == NULL) { - xmlFree(ctxt); - xslDebugStatus = DEBUG_QUIT; - return; - } else - break; - } else { - /* load new xml file actual loading hapens later */ - xmlChar *expandedName = filesExpandName(arg); - - if (expandedName) { - xsldbgGenericErrorFunc(i18n("Load of data file deferred. Use the run command.\n")); - - optionsSetStringOption(OPTIONS_DATA_FILE_NAME, - expandedName); - notifyXsldbgApp(XSLDBG_MSG_FILE_CHANGED, 0L); - loadedFiles = 1; - xmlFree(expandedName); - cmdResult = 1; - } else { - cmdResult = 0; - } - } - break; - - case DEBUG_OUTPUT_CMD: - /* set the output file name to use */ - cmdResult = xslDbgShellOutput(arg); - break; - - case DEBUG_CD_CMD: - /* use dir as a working buffer */ - xmlStrnCpy(dir, arg, 2); - dir[2] = '\0'; - shortCutId = lookupName(dir, (xmlChar **) cdShortCuts); - if (shortCutId >= 0) { - if (xmlStrLen(arg) == 2) { - cmdResult = xslDbgCd(styleCtxt, ctxt, (xmlChar *) - cdAlternative[shortCutId], - source); - } else { - - xmlStrCpy(dir, cdAlternative[shortCutId]); - xmlStrCat(dir, &arg[2]); - cmdResult = xslDbgCd(styleCtxt, ctxt, dir, source); - } - - } else - cmdResult = xslDbgCd(styleCtxt, ctxt, arg, source); - break; - - - /* --- File related commands --- */ - case DEBUG_ENTITIES_CMD: - cmdResult = xslDbgEntities(); - break; - - case DEBUG_SYSTEM_CMD: - /* strip off a single argument. I need to do it this - way because I've already public this API */ - { - xmlChar *systemID; - if (splitString(arg, 1, &systemID) == 1){ - cmdResult = xslDbgSystem(systemID); - }else{ - xsldbgGenericErrorFunc(i18n("Error: Invalid arguments for the command %1.\n").arg("system")); - } - } - break; - - case DEBUG_PUBLIC_CMD: - /* strip off a single argument. I need to do it this - way because I've already public this API */ - { - xmlChar *publicID; - if (splitString(arg, 1, &publicID) == 1){ - cmdResult = xslDbgPublic(publicID); - }else{ - xsldbgGenericErrorFunc(i18n("Error: Invalid arguments for the command %1.\n").arg("public")); - } - } - break; - - case DEBUG_ENCODING_CMD: - cmdResult = xslDbgEncoding(arg); - break; - - case DEBUG_VALIDATE_CMD: - xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled.\n").arg("validate")); - cmdResult = 0; - /* - * xmlShellValidate(ctxt, arg, NULL, NULL); - */ - break; - - case DEBUG_LOAD_CMD: - cmdResult = optionsLoad(); - /* restart xsldbg and activate new configuration */ - if (cmdResult == 1) { - xslDebugStatus = DEBUG_RUN_RESTART; - exitShell++; - } - break; - - case DEBUG_SAVE_CMD: - cmdResult = optionsSave(); - break; - - case DEBUG_WRITE_CMD: - xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled.\n").arg("write")); - cmdResult = 0; - /* - * xmlShellWrite(ctxt, arg, NULL, NULL); - */ - break; - - case DEBUG_FREE_CMD: - xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled.\n").arg("free")); - cmdResult = 0; - /* - * if (arg[0] == 0) { - * xmlMemShow(stdout, 0); - * } else { - * int len = 0; - * sscanf(arg, "%d", &len); - * xmlMemShow(stdout, len); - * } - */ - break; - - - /* operating system related */ - case DEBUG_CHDIR_CMD: - cmdResult = xslDbgShellChangeWd(arg); - break; - - case DEBUG_SHELL_EXEC_CMD: - cmdResult = xslDbgShellExecute(arg, 1); - break; - - - /* libxslt parameter related commands */ - case DEBUG_ADDPARAM_CMD: - cmdResult = xslDbgShellAddParam(arg); - break; - - case DEBUG_DELPARAM_CMD: - cmdResult = xslDbgShellDelParam(arg); - break; - - case DEBUG_SHOWPARAM_CMD: - cmdResult = xslDbgShellShowParam(arg); - break; - - - - /* option related commmands */ - case DEBUG_SETOPTION_CMD: - cmdResult = xslDbgShellSetOption(arg); - break; - - case DEBUG_OPTIONS_CMD: - cmdResult = xslDbgShellOptions(); - break; - - - - /* misc commands */ - case DEBUG_TTY_CMD: - if (openTerminal(arg)) { - /* gdb does to say anything after redirecting its - output */ - if (optionsGetIntOption(OPTIONS_GDB) < 2) - xsldbgGenericErrorFunc(i18n("Opening terminal %1.\n").arg(xsldbgText(arg))); - cmdResult = 1; - } else - cmdResult = 0; - break; - - - /* language selection for messages */ - case DEBUG_LANG_CMD: -#ifdef LOCALE_PREFIX - if (xmlStrlen(arg) > 0){ - setlocale(LC_MESSAGES, (char*)arg); - textdomain("tdewebdev/xsldsbg"); - bindtextdomain("tdewebdev/xsldbg", LOCALE_PREFIX); - cmdResult = 1; - }else{ - xsldbgGenericErrorFunc(i18n("Error: Missing arguments for the command %1.\n").arg("lang")); - cmdResult = 0; - } -#else - xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled\n").arg("lang")); - cmdResult = 1; -#endif - break; - - /* tracing related commands */ - case DEBUG_TRACE_CMD: - if (xslDbgShellTrace(arg)) { - exitShell++; - cmdResult = 1; - } else - cmdResult = 0; - - break; - - case DEBUG_WALK_CMD: - if (xslDbgShellWalk(arg)) { - exitShell++; - cmdResult = 1; - } else - cmdResult = 0; - break; - - case DEBUG_ADDWATCH_CMD: - cmdResult = xslDbgShellAddWatch(arg); - break; - - case DEBUG_DELWATCH_CMD: - cmdResult = xslDbgShellDeleteWatch(arg); - break; - - case DEBUG_SHOWWATCH_CMD: - trimString(arg); - switch (arg[0]){ - case '\0': - cmdResult = xslDbgShellShowWatches(styleCtxt, ctxt, 1); - break; - - case '0': - case '1': - showWatchesActive = arg[0] - '0'; - cmdResult = 1; - break; - - default: - xsldbgGenericErrorFunc(i18n("Error: Invalid arguments for the command %1.\n").arg("showmatch")); - } - break; - - - /* search related commands */ - case DEBUG_SEARCH_CMD: - cmdResult = - xslDbgShellSearch(styleCtxt, filesGetStylesheet(), - arg); - break; - - - - case DEBUG_SET_CMD: - cmdResult = xslDbgShellSetVariable(styleCtxt, arg); - break; - - default: - xsldbgGenericErrorFunc(i18n("Error: Unknown command %1. Try help.\n").arg(xsldbgText(command))); - cmdResult = 0; - } - - /* KDbg likes to get the marker after every command so here it is */ - if ((optionsGetIntOption(OPTIONS_GDB) >1) && optionsGetIntOption(OPTIONS_VERBOSE) && !nextCommandActive - && (commandId != DEBUG_STEPUP_CMD - DEBUG_HELP_CMD)) { - if (ctxt->node && ctxt->node && - ctxt->node->doc && ctxt->node->doc->URL) { - - if (xmlGetLineNo(ctxt->node) != -1) - xsldbgGenericErrorFunc(i18n("Breakpoint for file \"%1\" at line %2.\n").arg(xsldbgUrl(ctxt->node->doc->URL)).arg(xmlGetLineNo(ctxt->node))); - else - xsldbgGenericErrorFunc(i18n("Breakpoint at text node in file \"%1\".\n").arg(xsldbgUrl(ctxt->node->doc->URL))); - } - } - - /* notify any listeners of that the command failed */ - if (cmdResult == 0 && (xmlStrlen(messageBuffer) > 0)) { - snprintf((char *) messageBuffer, sizeof(messageBuffer), - "\nRequest to xsldbg failed:%s\n", cmdline); - notifyTextXsldbgApp(XSLDBG_MSG_TEXTOUT, - (char *) messageBuffer); - } - - xmlFree(cmdline); - cmdline = NULL; - } - - xmlXPathFreeContext(ctxt->pctxt); - - if (ctxt->filename) - xmlFree(ctxt->filename); - - xmlFree(ctxt); - - if (cmdline) - xmlFree(cmdline); -} |