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.
275 lines
8.3 KiB
275 lines
8.3 KiB
|
|
/***************************************************************************
|
|
file_cmds.c - define file command related functions
|
|
-------------------
|
|
begin : Sat Jan 19 2002
|
|
copyright : (C) 2002 by Keith Isdale
|
|
email : k_isdale@tpg.com.au
|
|
***************************************************************************/
|
|
|
|
/***************************************************************************
|
|
* *
|
|
* This program is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
***************************************************************************/
|
|
|
|
#include <stdio.h>
|
|
#include <libxml/tree.h>
|
|
#include <libxml/catalog.h>
|
|
|
|
#include "xsldbg.h"
|
|
#include "debugXSL.h"
|
|
#include "files.h"
|
|
#include "options.h"
|
|
#include "utils.h"
|
|
#include "xsldbgthread.h"
|
|
|
|
static char buffer[500];
|
|
|
|
/**
|
|
* xslDbgEntities:
|
|
*
|
|
* Print list of entites found
|
|
*
|
|
* Returns 1 on sucess,
|
|
* 0 otherwise
|
|
*/
|
|
int
|
|
xslDbgEntities(void)
|
|
{
|
|
int result = 0;
|
|
|
|
if (filesEntityList()) {
|
|
int entityIndex;
|
|
entityInfoPtr entInfo;
|
|
|
|
if (getThreadtqStatus() == XSLDBG_MSG_THREAD_RUN) {
|
|
/* notify that we are starting new list of entity names */
|
|
notifyListStart(XSLDBG_MSG_ENTITIY_CHANGED);
|
|
for (entityIndex = 0;
|
|
entityIndex < arrayListCount(filesEntityList());
|
|
entityIndex++) {
|
|
entInfo = (entityInfoPtr) arrayListGet(filesEntityList(),
|
|
entityIndex);
|
|
if (entInfo)
|
|
notifyListQueue(entInfo);
|
|
|
|
}
|
|
notifyListSend();
|
|
result = 1;
|
|
} else {
|
|
for (entityIndex = 0;
|
|
entityIndex < arrayListCount(filesEntityList());
|
|
entityIndex++) {
|
|
entInfo = (entityInfoPtr) arrayListGet(filesEntityList(),
|
|
entityIndex);
|
|
if (entInfo) {
|
|
/* display identifier of an XML entity */
|
|
xsldbgGenericErrorFunc(i18n("Entity %1 ").tqarg(xsldbgText(entInfo->SystemID)));
|
|
if (entInfo->PublicID)
|
|
xsldbgGenericErrorFunc(xsldbgText(entInfo->PublicID));
|
|
xsldbgGenericErrorFunc("\n");
|
|
}
|
|
}
|
|
if (arrayListCount(filesEntityList()) == 0) {
|
|
xsldbgGenericErrorFunc(i18n("No external General Parsed entities present.\n"));
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("\tTotal of %n entity found.", "\tTotal of %n entities found.", arrayListCount(filesEntityList())) + TQString("\n"));
|
|
}
|
|
|
|
result = 1;
|
|
}
|
|
}
|
|
return result;
|
|
}
|
|
|
|
|
|
/**
|
|
* xslDbgSystem:
|
|
* @arg : Is valid
|
|
*
|
|
* Print what a system file @arg maps to via the current xml catalog
|
|
*
|
|
* Returns 1 on sucess,
|
|
* 0 otherwise
|
|
*/
|
|
int
|
|
xslDbgSystem(const xmlChar * arg)
|
|
{
|
|
int result = 0;
|
|
xmlChar *name;
|
|
|
|
if (!arg || (xmlStrlen(arg) == 0)) {
|
|
#ifdef WITH_XSLDBG_DEBUG_PROCESS
|
|
xsltGenericError(xsltGenericErrorContext,
|
|
"Error: NULL argument provided\n");
|
|
#endif
|
|
return result;
|
|
}
|
|
|
|
name = xmlCatalogResolveSystem(arg);
|
|
if (getThreadtqStatus() == XSLDBG_MSG_THREAD_RUN) {
|
|
if (name) {
|
|
notifyXsldbgApp(XSLDBG_MSG_RESOLVE_CHANGE, name);
|
|
result = 1;
|
|
xmlFree(name);
|
|
} else {
|
|
notifyXsldbgApp(XSLDBG_MSG_RESOLVE_CHANGE, "");
|
|
xsldbgGenericErrorFunc(i18n("SystemID \"%1\" was not found in current catalog.\n").tqarg(xsldbgText(arg)));
|
|
}
|
|
} else {
|
|
if (name) {
|
|
xsldbgGenericErrorFunc(i18n("SystemID \"%1\" maps to: \"%2\"\n").tqarg(xsldbgText(arg)).tqarg(xsldbgText(name)));
|
|
xmlFree(name);
|
|
result = 1;
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("SystemID \"%1\" was not found in current catalog.\n").tqarg(xsldbgText(arg)));
|
|
}
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|
|
|
|
/**
|
|
* xslDbgPublic:
|
|
* @arg : Is valid
|
|
*
|
|
* Print what a public ID @arg maps to via the current xml catalog
|
|
*
|
|
* Returns 1 on sucess,
|
|
* 0 otherwise
|
|
*/
|
|
int
|
|
xslDbgPublic(const xmlChar * arg)
|
|
{
|
|
int result = 0;
|
|
xmlChar *name;
|
|
|
|
if (!arg || (xmlStrlen(arg) == 0)) {
|
|
#ifdef WITH_XSLDBG_DEBUG_PROCESS
|
|
xsltGenericError(xsltGenericErrorContext,
|
|
"Error: NULL argument provided\n");
|
|
#endif
|
|
return result;
|
|
}
|
|
|
|
name = xmlCatalogResolvePublic(arg);
|
|
if (getThreadtqStatus() == XSLDBG_MSG_THREAD_RUN) {
|
|
if (name) {
|
|
notifyXsldbgApp(XSLDBG_MSG_RESOLVE_CHANGE, name);
|
|
result = 1;
|
|
xmlFree(name);
|
|
} else {
|
|
notifyXsldbgApp(XSLDBG_MSG_RESOLVE_CHANGE, "");
|
|
xsldbgGenericErrorFunc(i18n("PublicID \"%1\" was not found in current catalog.\n").tqarg(xsldbgText(arg)));
|
|
}
|
|
} else {
|
|
if (name) {
|
|
xsldbgGenericErrorFunc(i18n("PublicID \"%1\" maps to: \"%2\"\n").tqarg(xsldbgText(arg)).tqarg(xsldbgText(name)));
|
|
xmlFree(name);
|
|
result = 1;
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("PublicID \"%1\" was not found in current catalog.\n").tqarg(xsldbgText(arg)));
|
|
}
|
|
xsltGenericError(xsltGenericErrorContext, "%s", buffer);
|
|
}
|
|
return result;
|
|
}
|
|
|
|
|
|
/**
|
|
* xslDbgEncoding:
|
|
* @arg: Is valid encoding supported by libxml2
|
|
*
|
|
* Set current encoding to use for output to standard output
|
|
*
|
|
* Returns 1 on sucess,
|
|
* 0 otherwise
|
|
*/
|
|
int
|
|
xslDbgEncoding(xmlChar * arg)
|
|
{
|
|
int result = 0;
|
|
xmlChar *opts[2];
|
|
|
|
if (!arg) {
|
|
#ifdef WITH_XSLDBG_DEBUG_PROCESS
|
|
xsltGenericError(xsltGenericErrorContext,
|
|
"Error: NULL argument provided\n");
|
|
#endif
|
|
return result;
|
|
}
|
|
|
|
if (splitString(arg, 1, opts) == 1) {
|
|
if (filesSetEncoding((char *) opts[0])) {
|
|
optionsSetStringOption(OPTIONS_ENCODING, opts[0]);
|
|
result = 1;
|
|
}
|
|
} else
|
|
xsldbgGenericErrorFunc(i18n("Error: Missing arguments for the command %1.\n").tqarg("encoding"));
|
|
return result;
|
|
}
|
|
|
|
|
|
/**
|
|
* xslDbgShellOutput:
|
|
* @arg : Is valid, either a local file name which will be expanded
|
|
* if needed, or a "file://" protocol URI
|
|
*
|
|
* Set the output file name to use
|
|
*
|
|
* Returns 1 on success,
|
|
* 0 otherwise
|
|
*/
|
|
int xslDbgShellOutput(const xmlChar *arg)
|
|
{
|
|
int result = 0;
|
|
if (arg && (xmlStrLen(arg) > 0)){
|
|
if (!xmlStrnCmp(arg, "file:/", 6)){
|
|
/* convert URI to local file name */
|
|
xmlChar *outputFileName = filesURItoFileName(arg);
|
|
if (outputFileName){
|
|
optionsSetStringOption(OPTIONS_OUTPUT_FILE_NAME,
|
|
outputFileName);
|
|
notifyXsldbgApp(XSLDBG_MSG_FILE_CHANGED, 0L);
|
|
xmlFree(outputFileName);
|
|
result = 1;
|
|
}
|
|
} else if (xmlStrEqual(arg, (xmlChar*)"-")) {
|
|
optionsSetStringOption(OPTIONS_OUTPUT_FILE_NAME,
|
|
NULL);
|
|
notifyXsldbgApp(XSLDBG_MSG_FILE_CHANGED, 0L);
|
|
result = 1;
|
|
} else if (!xmlStrnCmp(arg, "ftp://", 6) || !xmlStrnCmp(arg, "http://", 7)){
|
|
xsldbgGenericErrorFunc(i18n("Error: Invalid arguments for the command %1.\n").tqarg("output"));
|
|
return 0;
|
|
} else {
|
|
/* assume that we were provided a local file name
|
|
* that may need expanding
|
|
*/
|
|
xmlChar *expandedName = filesExpandName(arg);
|
|
|
|
// The output file must not be the same as our SOURCE or DATA file
|
|
if (expandedName &&
|
|
(!xmlStrEqual(optionsGetStringOption(OPTIONS_SOURCE_FILE_NAME), expandedName)) &&
|
|
(!xmlStrEqual(optionsGetStringOption(OPTIONS_DATA_FILE_NAME), expandedName)) ){
|
|
optionsSetStringOption(OPTIONS_OUTPUT_FILE_NAME, expandedName);
|
|
notifyXsldbgApp(XSLDBG_MSG_FILE_CHANGED, 0L);
|
|
xmlFree(expandedName);
|
|
result = 1;
|
|
}else{
|
|
xsldbgGenericErrorFunc(i18n("Error: Invalid arguments for the command %1.\n").tqarg("output"));
|
|
}
|
|
}
|
|
} else {
|
|
xsldbgGenericErrorFunc(i18n("Error: Missing arguments for the command %1.\n").tqarg("output"));
|
|
}
|
|
|
|
return result;
|
|
}
|
|
|