You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2119 lines
65 KiB
2119 lines
65 KiB
|
|
/***************************************************************************
|
|
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").tqarg(xsldbgText(&arg[offset])));
|
|
return result;
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n(" template: \"%1\"\n").tqarg(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_TQUIT; */
|
|
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").tqarg("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").tqarg("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 (getThreadtqStatus() == 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 tqchildren.", list->nodesetval->nodeNr).tqarg(xsldbgText(arg)) + TQString("\n"));
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("Warning: XPath %1 is an empty Node Set.\n").tqarg(xsldbgText(arg)));
|
|
}
|
|
break;
|
|
|
|
default:
|
|
xmlShellPrintXPathError(list->type, (char *) arg);
|
|
}
|
|
xmlXPathFreeObject(list);
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("Error: XPath %1 was not found.\n").tqarg(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 (getThreadtqStatus() == 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\"").tqarg(depth).tqarg(xsldbgText(rootCopy->match)).tqarg(xsldbgText(rootModeTemp)));
|
|
else
|
|
/* display information about the current XSLT template */
|
|
xsldbgGenericErrorFunc(i18n("#%1 template: \"%2\" mode: \"%3\"").tqarg(depth).tqarg(xsldbgText(rootNameTemp)).tqarg(xsldbgText(rootModeTemp)));
|
|
/* display where we are in the source/document file */
|
|
xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").tqarg(xsldbgUrl(curUrl)).tqarg(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: \"\"").tqarg(depth));
|
|
/* display where we are in the source/document file */
|
|
xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").tqarg(xsldbgUrl(curUrl)).tqarg(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\"").tqarg(depth - 1).tqarg(xsldbgText(nameTemp)).tqarg(xsldbgText(modeTemp)));
|
|
if (callPointItem->info->url)
|
|
/* display where we are in the source/document file */
|
|
xsldbgGenericErrorFunc(i18n(" in file \"%1\" at line %2\n").tqarg(xsldbgUrl(callPointItem->info->url)).tqarg(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 (getThreadtqStatus() == 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\"").tqarg(templateDepth).tqarg(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").tqarg(xsldbgUrl(callPointItem->info->url)).tqarg(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").tqarg(xsldbgText(root->match)).tqarg(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").tqarg(xsldbgText(nameTemp)).tqarg(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").tqarg(xsldbgText(root->match)).tqarg(xsldbgText(modeTemp));
|
|
else
|
|
message = i18n("\nReached template: \"%1\" mode: \"%2\"\n").tqarg(xsldbgText(nameTemp)).tqarg(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 ((getThreadtqStatus() == 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").tqarg(xsldbgUrl(breakUri)).tqarg(xmlGetLineNo(ctxt->node));
|
|
else
|
|
messageTxt = i18n("Breakpoint at text node in file \"%1\".\n").tqarg(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_TQUIT)) {
|
|
if (getThreadtqStatus() != 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_TQUIT_CMD:
|
|
/* allow the stylesheet to exit */
|
|
xslDebugStatus = DEBUG_TQUIT;
|
|
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 (getThreadtqStatus() != 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 (getThreadtqStatus() == 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").tqarg(xsldbgUrl(tempBaseName)).tqarg(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_TQUIT;
|
|
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_TQUIT;
|
|
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").tqarg("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").tqarg("public"));
|
|
}
|
|
}
|
|
break;
|
|
|
|
case DEBUG_ENCODING_CMD:
|
|
cmdResult = xslDbgEncoding(arg);
|
|
break;
|
|
|
|
case DEBUG_VALIDATE_CMD:
|
|
xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled.\n").tqarg("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").tqarg("write"));
|
|
cmdResult = 0;
|
|
/*
|
|
* xmlShellWrite(ctxt, arg, NULL, NULL);
|
|
*/
|
|
break;
|
|
|
|
case DEBUG_FREE_CMD:
|
|
xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled.\n").tqarg("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").tqarg(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").tqarg("lang"));
|
|
cmdResult = 0;
|
|
}
|
|
#else
|
|
xsldbgGenericErrorFunc(i18n("Warning: The %1 command is disabled\n").tqarg("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").tqarg("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").tqarg(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").tqarg(xsldbgUrl(ctxt->node->doc->URL)).tqarg(xmlGetLineNo(ctxt->node)));
|
|
else
|
|
xsldbgGenericErrorFunc(i18n("Breakpoint at text node in file \"%1\".\n").tqarg(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);
|
|
}
|