reactos/dll/3rdparty/libxslt/variables.c
Hermès Bélusca-Maïto b819608ed8 Create a branch for console restructuration work.
svn path=/branches/condrv_restructure/; revision=63104
2014-05-02 14:13:40 +00:00

2301 lines
60 KiB
C

/*
* variables.c: Implementation of the variable storage and lookup
*
* Reference:
* http://www.w3.org/TR/1999/REC-xslt-19991116
*
* See Copyright for the status of this software.
*
* daniel@veillard.com
*/
#include "precomp.h"
#ifdef WITH_XSLT_DEBUG
#define WITH_XSLT_DEBUG_VARIABLE
#endif
#ifdef XSLT_REFACTORED
const xmlChar *xsltDocFragFake = (const xmlChar *) " fake node libxslt";
#endif
const xmlChar *xsltComputingGlobalVarMarker =
(const xmlChar *) " var/param being computed";
#define XSLT_VAR_GLOBAL 1<<0
#define XSLT_VAR_IN_SELECT 1<<1
#define XSLT_TCTXT_VARIABLE(c) ((xsltStackElemPtr) (c)->contextVariable)
/************************************************************************
* *
* Result Value Tree (Result Tree Fragment) interfaces *
* *
************************************************************************/
/**
* xsltCreateRVT:
* @ctxt: an XSLT transformation context
*
* Creates a Result Value Tree
* (the XSLT 1.0 term for this is "Result Tree Fragment")
*
* Returns the result value tree or NULL in case of API or internal errors.
*/
xmlDocPtr
xsltCreateRVT(xsltTransformContextPtr ctxt)
{
xmlDocPtr container;
/*
* Question: Why is this function public?
* Answer: It is called by the EXSLT module.
*/
if (ctxt == NULL)
return(NULL);
/*
* Reuse a RTF from the cache if available.
*/
if (ctxt->cache->RVT) {
container = ctxt->cache->RVT;
ctxt->cache->RVT = (xmlDocPtr) container->next;
/* clear the internal pointers */
container->next = NULL;
container->prev = NULL;
if (ctxt->cache->nbRVT > 0)
ctxt->cache->nbRVT--;
#ifdef XSLT_DEBUG_PROFILE_CACHE
ctxt->cache->dbgReusedRVTs++;
#endif
return(container);
}
container = xmlNewDoc(NULL);
if (container == NULL)
return(NULL);
container->dict = ctxt->dict;
xmlDictReference(container->dict);
XSLT_MARK_RES_TREE_FRAG(container);
container->doc = container;
container->parent = NULL;
return(container);
}
/**
* xsltRegisterTmpRVT:
* @ctxt: an XSLT transformation context
* @RVT: a result value tree (Result Tree Fragment)
*
* Registers the result value tree (XSLT 1.0 term: Result Tree Fragment)
* in the garbage collector.
* The fragment will be freed at the exit of the currently
* instantiated xsl:template.
* Obsolete; this function might produce massive memory overhead,
* since the fragment is only freed when the current xsl:template
* exits. Use xsltRegisterLocalRVT() instead.
*
* Returns 0 in case of success and -1 in case of API or internal errors.
*/
int
xsltRegisterTmpRVT(xsltTransformContextPtr ctxt, xmlDocPtr RVT)
{
if ((ctxt == NULL) || (RVT == NULL))
return(-1);
/*
* We'll restrict the lifetime of user-created fragments
* insinde an xsl:variable and xsl:param to the lifetime of the
* var/param itself.
*/
if (ctxt->contextVariable != NULL) {
RVT->next = (xmlNodePtr) XSLT_TCTXT_VARIABLE(ctxt)->fragment;
XSLT_TCTXT_VARIABLE(ctxt)->fragment = RVT;
return(0);
}
RVT->next = (xmlNodePtr) ctxt->tmpRVT;
if (ctxt->tmpRVT != NULL)
ctxt->tmpRVT->prev = (xmlNodePtr) RVT;
ctxt->tmpRVT = RVT;
return(0);
}
/**
* xsltRegisterLocalRVT:
* @ctxt: an XSLT transformation context
* @RVT: a result value tree (Result Tree Fragment; xmlDocPtr)
*
* Registers a result value tree (XSLT 1.0 term: Result Tree Fragment)
* in the RVT garbage collector.
* The fragment will be freed when the instruction which created the
* fragment exits.
*
* Returns 0 in case of success and -1 in case of API or internal errors.
*/
int
xsltRegisterLocalRVT(xsltTransformContextPtr ctxt,
xmlDocPtr RVT)
{
if ((ctxt == NULL) || (RVT == NULL))
return(-1);
/*
* When evaluating "select" expressions of xsl:variable
* and xsl:param, we need to bind newly created tree fragments
* to the variable itself; otherwise the tragment will be
* freed before we leave the scope of a var.
*/
if ((ctxt->contextVariable != NULL) &&
(XSLT_TCTXT_VARIABLE(ctxt)->flags & XSLT_VAR_IN_SELECT))
{
RVT->next = (xmlNodePtr) XSLT_TCTXT_VARIABLE(ctxt)->fragment;
XSLT_TCTXT_VARIABLE(ctxt)->fragment = RVT;
return(0);
}
/*
* Store the fragment in the scope of the current instruction.
* If not reference by a returning instruction (like EXSLT's function),
* then this fragment will be freed, when the instruction exits.
*/
RVT->next = (xmlNodePtr) ctxt->localRVT;
if (ctxt->localRVT != NULL)
ctxt->localRVT->prev = (xmlNodePtr) RVT;
ctxt->localRVT = RVT;
/*
* We need to keep track of the first registered fragment
* for extension instructions which return fragments
* (e.g. EXSLT'S function), in order to let
* xsltExtensionInstructionResultFinalize() clear the
* preserving flag on the fragments.
*/
if (ctxt->localRVTBase == NULL)
ctxt->localRVTBase = RVT;
return(0);
}
/**
* xsltExtensionInstructionResultFinalize:
* @ctxt: an XSLT transformation context
*
* Finalizes the data (e.g. result tree fragments) created
* within a value-returning process (e.g. EXSLT's function).
* Tree fragments marked as being returned by a function are
* set to normal state, which means that the fragment garbage
* collector will free them after the function-calling process exits.
*
* Returns 0 in case of success and -1 in case of API or internal errors.
*/
int
xsltExtensionInstructionResultFinalize(xsltTransformContextPtr ctxt)
{
xmlDocPtr cur;
if (ctxt == NULL)
return(-1);
if (ctxt->localRVTBase == NULL)
return(0);
/*
* Enable remaining local tree fragments to be freed
* by the fragment garbage collector.
*/
cur = ctxt->localRVTBase;
do {
cur->psvi = NULL;
cur = (xmlDocPtr) cur->next;
} while (cur != NULL);
return(0);
}
/**
* xsltExtensionInstructionResultRegister:
* @ctxt: an XSLT transformation context
* @obj: an XPath object to be inspected for result tree fragments
*
* Marks the result of a value-returning extension instruction
* in order to avoid it being garbage collected before the
* extension instruction exits.
* Note that one still has to additionally register any newly created
* tree fragments (via xsltCreateRVT()) with xsltRegisterLocalRVT().
*
* Returns 0 in case of success and -1 in case of error.
*/
int
xsltExtensionInstructionResultRegister(xsltTransformContextPtr ctxt,
xmlXPathObjectPtr obj)
{
int i;
xmlNodePtr cur;
xmlDocPtr doc;
if ((ctxt == NULL) || (obj == NULL))
return(-1);
/*
* OPTIMIZE TODO: If no local variables/params and no local tree
* fragments were created, then we don't need to analyse the XPath
* objects for tree fragments.
*/
if ((obj->type != XPATH_NODESET) && (obj->type != XPATH_XSLT_TREE))
return(0);
if ((obj->nodesetval == NULL) || (obj->nodesetval->nodeNr == 0))
return(0);
for (i = 0; i < obj->nodesetval->nodeNr; i++) {
cur = obj->nodesetval->nodeTab[i];
if (cur->type == XML_NAMESPACE_DECL) {
/*
* The XPath module sets the owner element of a ns-node on
* the ns->next field.
*/
if ((((xmlNsPtr) cur)->next != NULL) &&
(((xmlNsPtr) cur)->next->type == XML_ELEMENT_NODE))
{
cur = (xmlNodePtr) ((xmlNsPtr) cur)->next;
doc = cur->doc;
} else {
xsltTransformError(ctxt, NULL, ctxt->inst,
"Internal error in "
"xsltExtensionInstructionResultRegister(): "
"Cannot retrieve the doc of a namespace node.\n");
goto error;
}
} else {
doc = cur->doc;
}
if (doc == NULL) {
xsltTransformError(ctxt, NULL, ctxt->inst,
"Internal error in "
"xsltExtensionInstructionResultRegister(): "
"Cannot retrieve the doc of a node.\n");
goto error;
}
if (doc->name && (doc->name[0] == ' ')) {
/*
* This is a result tree fragment.
* We'll use the @psvi field for reference counting.
* TODO: How do we know if this is a value of a
* global variable or a doc acquired via the
* document() function?
*/
doc->psvi = (void *) ((long) 1);
}
}
return(0);
error:
return(-1);
}
/**
* xsltReleaseRVT:
* @ctxt: an XSLT transformation context
* @RVT: a result value tree (Result Tree Fragment)
*
* Either frees the RVT (which is an xmlDoc) or stores
* it in the context's cache for later reuse.
*/
void
xsltReleaseRVT(xsltTransformContextPtr ctxt, xmlDocPtr RVT)
{
if (RVT == NULL)
return;
if (ctxt && (ctxt->cache->nbRVT < 40)) {
/*
* Store the Result Tree Fragment.
* Free the document info.
*/
if (RVT->_private != NULL) {
xsltFreeDocumentKeys((xsltDocumentPtr) RVT->_private);
xmlFree(RVT->_private);
RVT->_private = NULL;
}
/*
* Clear the document tree.
* REVISIT TODO: Do we expect ID/IDREF tables to be existent?
*/
if (RVT->children != NULL) {
xmlFreeNodeList(RVT->children);
RVT->children = NULL;
RVT->last = NULL;
}
if (RVT->ids != NULL) {
xmlFreeIDTable((xmlIDTablePtr) RVT->ids);
RVT->ids = NULL;
}
if (RVT->refs != NULL) {
xmlFreeRefTable((xmlRefTablePtr) RVT->refs);
RVT->refs = NULL;
}
/*
* Reset the reference counter.
*/
RVT->psvi = 0;
RVT->next = (xmlNodePtr) ctxt->cache->RVT;
ctxt->cache->RVT = RVT;
ctxt->cache->nbRVT++;
#ifdef XSLT_DEBUG_PROFILE_CACHE
ctxt->cache->dbgCachedRVTs++;
#endif
return;
}
/*
* Free it.
*/
if (RVT->_private != NULL) {
xsltFreeDocumentKeys((xsltDocumentPtr) RVT->_private);
xmlFree(RVT->_private);
}
xmlFreeDoc(RVT);
}
/**
* xsltRegisterPersistRVT:
* @ctxt: an XSLT transformation context
* @RVT: a result value tree (Result Tree Fragment)
*
* Register the result value tree (XSLT 1.0 term: Result Tree Fragment)
* in the fragment garbage collector.
* The fragment will be freed when the transformation context is
* freed.
*
* Returns 0 in case of success and -1 in case of error.
*/
int
xsltRegisterPersistRVT(xsltTransformContextPtr ctxt, xmlDocPtr RVT)
{
if ((ctxt == NULL) || (RVT == NULL)) return(-1);
RVT->next = (xmlNodePtr) ctxt->persistRVT;
if (ctxt->persistRVT != NULL)
ctxt->persistRVT->prev = (xmlNodePtr) RVT;
ctxt->persistRVT = RVT;
return(0);
}
/**
* xsltFreeRVTs:
* @ctxt: an XSLT transformation context
*
* Frees all registered result value trees (Result Tree Fragments)
* of the transformation. Internal function; should not be called
* by user-code.
*/
void
xsltFreeRVTs(xsltTransformContextPtr ctxt)
{
xmlDocPtr cur, next;
if (ctxt == NULL)
return;
/*
* Local fragments.
*/
cur = ctxt->localRVT;
while (cur != NULL) {
next = (xmlDocPtr) cur->next;
if (cur->_private != NULL) {
xsltFreeDocumentKeys(cur->_private);
xmlFree(cur->_private);
}
xmlFreeDoc(cur);
cur = next;
}
ctxt->localRVT = NULL;
/*
* User-created per-template fragments.
*/
cur = ctxt->tmpRVT;
while (cur != NULL) {
next = (xmlDocPtr) cur->next;
if (cur->_private != NULL) {
xsltFreeDocumentKeys(cur->_private);
xmlFree(cur->_private);
}
xmlFreeDoc(cur);
cur = next;
}
ctxt->tmpRVT = NULL;
/*
* Global fragments.
*/
cur = ctxt->persistRVT;
while (cur != NULL) {
next = (xmlDocPtr) cur->next;
if (cur->_private != NULL) {
xsltFreeDocumentKeys(cur->_private);
xmlFree(cur->_private);
}
xmlFreeDoc(cur);
cur = next;
}
ctxt->persistRVT = NULL;
}
/************************************************************************
* *
* Module interfaces *
* *
************************************************************************/
/**
* xsltNewStackElem:
*
* Create a new XSLT ParserContext
*
* Returns the newly allocated xsltParserStackElem or NULL in case of error
*/
static xsltStackElemPtr
xsltNewStackElem(xsltTransformContextPtr ctxt)
{
xsltStackElemPtr ret;
/*
* Reuse a stack item from the cache if available.
*/
if (ctxt && ctxt->cache->stackItems) {
ret = ctxt->cache->stackItems;
ctxt->cache->stackItems = ret->next;
ret->next = NULL;
ctxt->cache->nbStackItems--;
#ifdef XSLT_DEBUG_PROFILE_CACHE
ctxt->cache->dbgReusedVars++;
#endif
return(ret);
}
ret = (xsltStackElemPtr) xmlMalloc(sizeof(xsltStackElem));
if (ret == NULL) {
xsltTransformError(NULL, NULL, NULL,
"xsltNewStackElem : malloc failed\n");
return(NULL);
}
memset(ret, 0, sizeof(xsltStackElem));
ret->context = ctxt;
return(ret);
}
/**
* xsltCopyStackElem:
* @elem: an XSLT stack element
*
* Makes a copy of the stack element
*
* Returns the copy of NULL
*/
static xsltStackElemPtr
xsltCopyStackElem(xsltStackElemPtr elem) {
xsltStackElemPtr cur;
cur = (xsltStackElemPtr) xmlMalloc(sizeof(xsltStackElem));
if (cur == NULL) {
xsltTransformError(NULL, NULL, NULL,
"xsltCopyStackElem : malloc failed\n");
return(NULL);
}
memset(cur, 0, sizeof(xsltStackElem));
cur->context = elem->context;
cur->name = elem->name;
cur->nameURI = elem->nameURI;
cur->select = elem->select;
cur->tree = elem->tree;
cur->comp = elem->comp;
return(cur);
}
/**
* xsltFreeStackElem:
* @elem: an XSLT stack element
*
* Free up the memory allocated by @elem
*/
static void
xsltFreeStackElem(xsltStackElemPtr elem) {
if (elem == NULL)
return;
if (elem->value != NULL)
xmlXPathFreeObject(elem->value);
/*
* Release the list of temporary Result Tree Fragments.
*/
if (elem->fragment) {
xmlDocPtr cur;
while (elem->fragment != NULL) {
cur = elem->fragment;
elem->fragment = (xmlDocPtr) cur->next;
if (elem->context &&
(cur->psvi == (void *) ((long) 1)))
{
/*
* This fragment is a result of an extension instruction
* (e.g. XSLT's function) and needs to be preserved until
* the instruction exits.
* Example: The fragment of the variable must not be freed
* since it is returned by the EXSLT function:
* <f:function name="foo">
* <xsl:variable name="bar">
* <bar/>
* </xsl:variable>
* <f:result select="$bar"/>
* </f:function>
*
*/
xsltRegisterLocalRVT(elem->context, cur);
} else {
xsltReleaseRVT((xsltTransformContextPtr) elem->context,
cur);
}
}
}
/*
* Cache or free the variable structure.
*/
if (elem->context && (elem->context->cache->nbStackItems < 50)) {
/*
* Store the item in the cache.
*/
xsltTransformContextPtr ctxt = elem->context;
memset(elem, 0, sizeof(xsltStackElem));
elem->context = ctxt;
elem->next = ctxt->cache->stackItems;
ctxt->cache->stackItems = elem;
ctxt->cache->nbStackItems++;
#ifdef XSLT_DEBUG_PROFILE_CACHE
ctxt->cache->dbgCachedVars++;
#endif
return;
}
xmlFree(elem);
}
/**
* xsltFreeStackElemList:
* @elem: an XSLT stack element
*
* Free up the memory allocated by @elem
*/
void
xsltFreeStackElemList(xsltStackElemPtr elem) {
xsltStackElemPtr next;
while (elem != NULL) {
next = elem->next;
xsltFreeStackElem(elem);
elem = next;
}
}
/**
* xsltStackLookup:
* @ctxt: an XSLT transformation context
* @name: the local part of the name
* @nameURI: the URI part of the name
*
* Locate an element in the stack based on its name.
*/
#if 0 /* TODO: Those seem to have been used for debugging. */
static int stack_addr = 0;
static int stack_cmp = 0;
#endif
static xsltStackElemPtr
xsltStackLookup(xsltTransformContextPtr ctxt, const xmlChar *name,
const xmlChar *nameURI) {
int i;
xsltStackElemPtr cur;
if ((ctxt == NULL) || (name == NULL) || (ctxt->varsNr == 0))
return(NULL);
/*
* Do the lookup from the top of the stack, but
* don't use params being computed in a call-param
* First lookup expects the variable name and URI to
* come from the disctionnary and hence pointer comparison.
*/
for (i = ctxt->varsNr; i > ctxt->varsBase; i--) {
cur = ctxt->varsTab[i-1];
while (cur != NULL) {
if ((cur->name == name) && (cur->nameURI == nameURI)) {
#if 0
stack_addr++;
#endif
return(cur);
}
cur = cur->next;
}
}
/*
* Redo the lookup with interned string compares
* to avoid string compares.
*/
name = xmlDictLookup(ctxt->dict, name, -1);
if (nameURI != NULL)
nameURI = xmlDictLookup(ctxt->dict, nameURI, -1);
for (i = ctxt->varsNr; i > ctxt->varsBase; i--) {
cur = ctxt->varsTab[i-1];
while (cur != NULL) {
if ((cur->name == name) && (cur->nameURI == nameURI)) {
#if 0
stack_cmp++;
#endif
return(cur);
}
cur = cur->next;
}
}
return(NULL);
}
#ifdef XSLT_REFACTORED
#else
/**
* xsltCheckStackElem:
* @ctxt: xn XSLT transformation context
* @name: the variable name
* @nameURI: the variable namespace URI
*
* Checks whether a variable or param is already defined.
*
* URGENT TODO: Checks for redefinition of vars/params should be
* done only at compilation time.
*
* Returns 1 if variable is present, 2 if param is present, 3 if this
* is an inherited param, 0 if not found, -1 in case of failure.
*/
static int
xsltCheckStackElem(xsltTransformContextPtr ctxt, const xmlChar *name,
const xmlChar *nameURI) {
xsltStackElemPtr cur;
if ((ctxt == NULL) || (name == NULL))
return(-1);
cur = xsltStackLookup(ctxt, name, nameURI);
if (cur == NULL)
return(0);
if (cur->comp != NULL) {
if (cur->comp->type == XSLT_FUNC_WITHPARAM)
return(3);
else if (cur->comp->type == XSLT_FUNC_PARAM)
return(2);
}
return(1);
}
#endif /* XSLT_REFACTORED */
/**
* xsltAddStackElem:
* @ctxt: xn XSLT transformation context
* @elem: a stack element
*
* Push an element (or list) onto the stack.
* In case of a list, each member will be pushed into
* a seperate slot; i.e. there's always 1 stack entry for
* 1 stack element.
*
* Returns 0 in case of success, -1 in case of failure.
*/
static int
xsltAddStackElem(xsltTransformContextPtr ctxt, xsltStackElemPtr elem)
{
if ((ctxt == NULL) || (elem == NULL))
return(-1);
do {
if (ctxt->varsMax == 0) {
ctxt->varsMax = 10;
ctxt->varsTab =
(xsltStackElemPtr *) xmlMalloc(ctxt->varsMax *
sizeof(ctxt->varsTab[0]));
if (ctxt->varsTab == NULL) {
xmlGenericError(xmlGenericErrorContext, "malloc failed !\n");
return (-1);
}
}
if (ctxt->varsNr >= ctxt->varsMax) {
ctxt->varsMax *= 2;
ctxt->varsTab =
(xsltStackElemPtr *) xmlRealloc(ctxt->varsTab,
ctxt->varsMax *
sizeof(ctxt->varsTab[0]));
if (ctxt->varsTab == NULL) {
xmlGenericError(xmlGenericErrorContext, "realloc failed !\n");
return (-1);
}
}
ctxt->varsTab[ctxt->varsNr++] = elem;
ctxt->vars = elem;
elem = elem->next;
} while (elem != NULL);
return(0);
}
/**
* xsltAddStackElemList:
* @ctxt: xn XSLT transformation context
* @elems: a stack element list
*
* Push an element list onto the stack.
*
* Returns 0 in case of success, -1 in case of failure.
*/
int
xsltAddStackElemList(xsltTransformContextPtr ctxt, xsltStackElemPtr elems)
{
return(xsltAddStackElem(ctxt, elems));
}
/************************************************************************
* *
* Module interfaces *
* *
************************************************************************/
/**
* xsltEvalVariable:
* @ctxt: the XSLT transformation context
* @variable: the variable or parameter item
* @comp: the compiled XSLT instruction
*
* Evaluate a variable value.
*
* Returns the XPath Object value or NULL in case of error
*/
static xmlXPathObjectPtr
xsltEvalVariable(xsltTransformContextPtr ctxt, xsltStackElemPtr variable,
xsltStylePreCompPtr castedComp)
{
#ifdef XSLT_REFACTORED
xsltStyleItemVariablePtr comp =
(xsltStyleItemVariablePtr) castedComp;
#else
xsltStylePreCompPtr comp = castedComp;
#endif
xmlXPathObjectPtr result = NULL;
xmlNodePtr oldInst;
if ((ctxt == NULL) || (variable == NULL))
return(NULL);
/*
* A variable or parameter are evaluated on demand; thus the
* context (of XSLT and XPath) need to be temporarily adjusted and
* restored on exit.
*/
oldInst = ctxt->inst;
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Evaluating variable '%s'\n", variable->name));
#endif
if (variable->select != NULL) {
xmlXPathCompExprPtr xpExpr = NULL;
xmlDocPtr oldXPDoc;
xmlNodePtr oldXPContextNode;
int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
xmlNsPtr *oldXPNamespaces;
xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
xsltStackElemPtr oldVar = ctxt->contextVariable;
if ((comp != NULL) && (comp->comp != NULL)) {
xpExpr = comp->comp;
} else {
xpExpr = xmlXPathCompile(variable->select);
}
if (xpExpr == NULL)
return(NULL);
/*
* Save context states.
*/
oldXPDoc = xpctxt->doc;
oldXPContextNode = xpctxt->node;
oldXPProximityPosition = xpctxt->proximityPosition;
oldXPContextSize = xpctxt->contextSize;
oldXPNamespaces = xpctxt->namespaces;
oldXPNsNr = xpctxt->nsNr;
xpctxt->node = ctxt->node;
/*
* OPTIMIZE TODO: Lame try to set the context doc.
* Get rid of this somehow in xpath.c.
*/
if ((ctxt->node->type != XML_NAMESPACE_DECL) &&
ctxt->node->doc)
xpctxt->doc = ctxt->node->doc;
/*
* BUG TODO: The proximity position and the context size will
* potentially be wrong.
* Example:
* <xsl:template select="foo">
* <xsl:variable name="pos" select="position()"/>
* <xsl:for-each select="bar">
* <xsl:value-of select="$pos"/>
* </xsl:for-each>
* </xsl:template>
* Here the proximity position and context size are changed
* to the context of <xsl:for-each select="bar">, but
* the variable needs to be evaluated in the context of
* <xsl:template select="foo">.
*/
if (comp != NULL) {
#ifdef XSLT_REFACTORED
if (comp->inScopeNs != NULL) {
xpctxt->namespaces = comp->inScopeNs->list;
xpctxt->nsNr = comp->inScopeNs->xpathNumber;
} else {
xpctxt->namespaces = NULL;
xpctxt->nsNr = 0;
}
#else
xpctxt->namespaces = comp->nsList;
xpctxt->nsNr = comp->nsNr;
#endif
} else {
xpctxt->namespaces = NULL;
xpctxt->nsNr = 0;
}
/*
* We need to mark that we are "selecting" a var's value;
* if any tree fragments are created inside the expression,
* then those need to be stored inside the variable; otherwise
* we'll eventually free still referenced fragments, before
* we leave the scope of the variable.
*/
ctxt->contextVariable = variable;
variable->flags |= XSLT_VAR_IN_SELECT;
result = xmlXPathCompiledEval(xpExpr, xpctxt);
variable->flags ^= XSLT_VAR_IN_SELECT;
/*
* Restore Context states.
*/
ctxt->contextVariable = oldVar;
xpctxt->doc = oldXPDoc;
xpctxt->node = oldXPContextNode;
xpctxt->contextSize = oldXPContextSize;
xpctxt->proximityPosition = oldXPProximityPosition;
xpctxt->namespaces = oldXPNamespaces;
xpctxt->nsNr = oldXPNsNr;
if ((comp == NULL) || (comp->comp == NULL))
xmlXPathFreeCompExpr(xpExpr);
if (result == NULL) {
xsltTransformError(ctxt, NULL,
(comp != NULL) ? comp->inst : NULL,
"Failed to evaluate the expression of variable '%s'.\n",
variable->name);
ctxt->state = XSLT_STATE_STOPPED;
#ifdef WITH_XSLT_DEBUG_VARIABLE
#ifdef LIBXML_DEBUG_ENABLED
} else {
if ((xsltGenericDebugContext == stdout) ||
(xsltGenericDebugContext == stderr))
xmlXPathDebugDumpObject((FILE *)xsltGenericDebugContext,
result, 0);
#endif
#endif
}
} else {
if (variable->tree == NULL) {
result = xmlXPathNewCString("");
} else {
if (variable->tree) {
xmlDocPtr container;
xmlNodePtr oldInsert;
xmlDocPtr oldOutput;
xsltStackElemPtr oldVar = ctxt->contextVariable;
/*
* Generate a result tree fragment.
*/
container = xsltCreateRVT(ctxt);
if (container == NULL)
goto error;
/*
* NOTE: Local Result Tree Fragments of params/variables
* are not registered globally anymore; the life-time
* is not directly dependant of the param/variable itself.
*
* OLD: xsltRegisterTmpRVT(ctxt, container);
*/
/*
* Attach the Result Tree Fragment to the variable;
* when the variable is freed, it will also free
* the Result Tree Fragment.
*/
variable->fragment = container;
oldOutput = ctxt->output;
oldInsert = ctxt->insert;
ctxt->output = container;
ctxt->insert = (xmlNodePtr) container;
ctxt->contextVariable = variable;
/*
* Process the sequence constructor (variable->tree).
* The resulting tree will be held by @container.
*/
xsltApplyOneTemplate(ctxt, ctxt->node, variable->tree,
NULL, NULL);
ctxt->contextVariable = oldVar;
ctxt->insert = oldInsert;
ctxt->output = oldOutput;
result = xmlXPathNewValueTree((xmlNodePtr) container);
}
if (result == NULL) {
result = xmlXPathNewCString("");
} else {
/*
* Freeing is not handled there anymore.
* QUESTION TODO: What does the above comment mean?
*/
result->boolval = 0;
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
#ifdef LIBXML_DEBUG_ENABLED
if ((xsltGenericDebugContext == stdout) ||
(xsltGenericDebugContext == stderr))
xmlXPathDebugDumpObject((FILE *)xsltGenericDebugContext,
result, 0);
#endif
#endif
}
}
error:
ctxt->inst = oldInst;
return(result);
}
/**
* xsltEvalGlobalVariable:
* @elem: the variable or parameter
* @ctxt: the XSLT transformation context
*
* Evaluates a the value of a global xsl:variable or
* xsl:param declaration.
*
* Returns the XPath Object value or NULL in case of error
*/
static xmlXPathObjectPtr
xsltEvalGlobalVariable(xsltStackElemPtr elem, xsltTransformContextPtr ctxt)
{
xmlXPathObjectPtr result = NULL;
xmlNodePtr oldInst;
const xmlChar* oldVarName;
#ifdef XSLT_REFACTORED
xsltStyleBasicItemVariablePtr comp;
#else
xsltStylePreCompPtr comp;
#endif
if ((ctxt == NULL) || (elem == NULL))
return(NULL);
if (elem->computed)
return(elem->value);
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Evaluating global variable %s\n", elem->name));
#endif
#ifdef WITH_DEBUGGER
if ((ctxt->debugStatus != XSLT_DEBUG_NONE) &&
elem->comp && elem->comp->inst)
xslHandleDebugger(elem->comp->inst, NULL, NULL, ctxt);
#endif
oldInst = ctxt->inst;
#ifdef XSLT_REFACTORED
comp = (xsltStyleBasicItemVariablePtr) elem->comp;
#else
comp = elem->comp;
#endif
oldVarName = elem->name;
elem->name = xsltComputingGlobalVarMarker;
/*
* OPTIMIZE TODO: We should consider instantiating global vars/params
* on-demand. The vars/params don't need to be evaluated if never
* called; and in the case of global params, if values for such params
* are provided by the user.
*/
if (elem->select != NULL) {
xmlXPathCompExprPtr xpExpr = NULL;
xmlDocPtr oldXPDoc;
xmlNodePtr oldXPContextNode;
int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
xmlNsPtr *oldXPNamespaces;
xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
if ((comp != NULL) && (comp->comp != NULL)) {
xpExpr = comp->comp;
} else {
xpExpr = xmlXPathCompile(elem->select);
}
if (xpExpr == NULL)
goto error;
if (comp != NULL)
ctxt->inst = comp->inst;
else
ctxt->inst = NULL;
/*
* SPEC XSLT 1.0:
* "At top-level, the expression or template specifying the
* variable value is evaluated with the same context as that used
* to process the root node of the source document: the current
* node is the root node of the source document and the current
* node list is a list containing just the root node of the source
* document."
*/
/*
* Save context states.
*/
oldXPDoc = xpctxt->doc;
oldXPContextNode = xpctxt->node;
oldXPProximityPosition = xpctxt->proximityPosition;
oldXPContextSize = xpctxt->contextSize;
oldXPNamespaces = xpctxt->namespaces;
oldXPNsNr = xpctxt->nsNr;
xpctxt->node = ctxt->initialContextNode;
xpctxt->doc = ctxt->initialContextDoc;
xpctxt->contextSize = 1;
xpctxt->proximityPosition = 1;
if (comp != NULL) {
#ifdef XSLT_REFACTORED
if (comp->inScopeNs != NULL) {
xpctxt->namespaces = comp->inScopeNs->list;
xpctxt->nsNr = comp->inScopeNs->xpathNumber;
} else {
xpctxt->namespaces = NULL;
xpctxt->nsNr = 0;
}
#else
xpctxt->namespaces = comp->nsList;
xpctxt->nsNr = comp->nsNr;
#endif
} else {
xpctxt->namespaces = NULL;
xpctxt->nsNr = 0;
}
result = xmlXPathCompiledEval(xpExpr, xpctxt);
/*
* Restore Context states.
*/
xpctxt->doc = oldXPDoc;
xpctxt->node = oldXPContextNode;
xpctxt->contextSize = oldXPContextSize;
xpctxt->proximityPosition = oldXPProximityPosition;
xpctxt->namespaces = oldXPNamespaces;
xpctxt->nsNr = oldXPNsNr;
if ((comp == NULL) || (comp->comp == NULL))
xmlXPathFreeCompExpr(xpExpr);
if (result == NULL) {
if (comp == NULL)
xsltTransformError(ctxt, NULL, NULL,
"Evaluating global variable %s failed\n", elem->name);
else
xsltTransformError(ctxt, NULL, comp->inst,
"Evaluating global variable %s failed\n", elem->name);
ctxt->state = XSLT_STATE_STOPPED;
#ifdef WITH_XSLT_DEBUG_VARIABLE
#ifdef LIBXML_DEBUG_ENABLED
} else {
if ((xsltGenericDebugContext == stdout) ||
(xsltGenericDebugContext == stderr))
xmlXPathDebugDumpObject((FILE *)xsltGenericDebugContext,
result, 0);
#endif
#endif
}
} else {
if (elem->tree == NULL) {
result = xmlXPathNewCString("");
} else {
xmlDocPtr container;
xmlNodePtr oldInsert;
xmlDocPtr oldOutput, oldXPDoc;
/*
* Generate a result tree fragment.
*/
container = xsltCreateRVT(ctxt);
if (container == NULL)
goto error;
/*
* Let the lifetime of the tree fragment be handled by
* the Libxslt's garbage collector.
*/
xsltRegisterPersistRVT(ctxt, container);
oldOutput = ctxt->output;
oldInsert = ctxt->insert;
oldXPDoc = ctxt->xpathCtxt->doc;
ctxt->output = container;
ctxt->insert = (xmlNodePtr) container;
ctxt->xpathCtxt->doc = ctxt->initialContextDoc;
/*
* Process the sequence constructor.
*/
xsltApplyOneTemplate(ctxt, ctxt->node, elem->tree, NULL, NULL);
ctxt->xpathCtxt->doc = oldXPDoc;
ctxt->insert = oldInsert;
ctxt->output = oldOutput;
result = xmlXPathNewValueTree((xmlNodePtr) container);
if (result == NULL) {
result = xmlXPathNewCString("");
} else {
result->boolval = 0; /* Freeing is not handled there anymore */
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
#ifdef LIBXML_DEBUG_ENABLED
if ((xsltGenericDebugContext == stdout) ||
(xsltGenericDebugContext == stderr))
xmlXPathDebugDumpObject((FILE *)xsltGenericDebugContext,
result, 0);
#endif
#endif
}
}
error:
elem->name = oldVarName;
ctxt->inst = oldInst;
if (result != NULL) {
elem->value = result;
elem->computed = 1;
}
return(result);
}
/**
* xsltEvalGlobalVariables:
* @ctxt: the XSLT transformation context
*
* Evaluates all global variables and parameters of a stylesheet.
* For internal use only. This is called at start of a transformation.
*
* Returns 0 in case of success, -1 in case of error
*/
int
xsltEvalGlobalVariables(xsltTransformContextPtr ctxt) {
xsltStackElemPtr elem;
xsltStylesheetPtr style;
if ((ctxt == NULL) || (ctxt->document == NULL))
return(-1);
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Registering global variables\n"));
#endif
/*
* Walk the list from the stylesheets and populate the hash table
*/
style = ctxt->style;
while (style != NULL) {
elem = style->variables;
#ifdef WITH_XSLT_DEBUG_VARIABLE
if ((style->doc != NULL) && (style->doc->URL != NULL)) {
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Registering global variables from %s\n",
style->doc->URL));
}
#endif
while (elem != NULL) {
xsltStackElemPtr def;
/*
* Global variables are stored in the variables pool.
*/
def = (xsltStackElemPtr)
xmlHashLookup2(ctxt->globalVars,
elem->name, elem->nameURI);
if (def == NULL) {
def = xsltCopyStackElem(elem);
xmlHashAddEntry2(ctxt->globalVars,
elem->name, elem->nameURI, def);
} else if ((elem->comp != NULL) &&
(elem->comp->type == XSLT_FUNC_VARIABLE)) {
/*
* Redefinition of variables from a different stylesheet
* should not generate a message.
*/
if ((elem->comp->inst != NULL) &&
(def->comp != NULL) && (def->comp->inst != NULL) &&
(elem->comp->inst->doc == def->comp->inst->doc))
{
xsltTransformError(ctxt, style, elem->comp->inst,
"Global variable %s already defined\n", elem->name);
if (style != NULL) style->errors++;
}
}
elem = elem->next;
}
style = xsltNextImport(style);
}
/*
* This part does the actual evaluation
*/
xmlHashScan(ctxt->globalVars,
(xmlHashScanner) xsltEvalGlobalVariable, ctxt);
return(0);
}
/**
* xsltRegisterGlobalVariable:
* @style: the XSLT transformation context
* @name: the variable name
* @ns_uri: the variable namespace URI
* @sel: the expression which need to be evaluated to generate a value
* @tree: the subtree if sel is NULL
* @comp: the precompiled value
* @value: the string value if available
*
* Register a new variable value. If @value is NULL it unregisters
* the variable
*
* Returns 0 in case of success, -1 in case of error
*/
static int
xsltRegisterGlobalVariable(xsltStylesheetPtr style, const xmlChar *name,
const xmlChar *ns_uri, const xmlChar *sel,
xmlNodePtr tree, xsltStylePreCompPtr comp,
const xmlChar *value) {
xsltStackElemPtr elem, tmp;
if (style == NULL)
return(-1);
if (name == NULL)
return(-1);
if (comp == NULL)
return(-1);
#ifdef WITH_XSLT_DEBUG_VARIABLE
if (comp->type == XSLT_FUNC_PARAM)
xsltGenericDebug(xsltGenericDebugContext,
"Defining global param %s\n", name);
else
xsltGenericDebug(xsltGenericDebugContext,
"Defining global variable %s\n", name);
#endif
elem = xsltNewStackElem(NULL);
if (elem == NULL)
return(-1);
elem->comp = comp;
elem->name = xmlDictLookup(style->dict, name, -1);
elem->select = xmlDictLookup(style->dict, sel, -1);
if (ns_uri)
elem->nameURI = xmlDictLookup(style->dict, ns_uri, -1);
elem->tree = tree;
tmp = style->variables;
if (tmp == NULL) {
elem->next = NULL;
style->variables = elem;
} else {
while (tmp != NULL) {
if ((elem->comp->type == XSLT_FUNC_VARIABLE) &&
(tmp->comp->type == XSLT_FUNC_VARIABLE) &&
(xmlStrEqual(elem->name, tmp->name)) &&
((elem->nameURI == tmp->nameURI) ||
(xmlStrEqual(elem->nameURI, tmp->nameURI))))
{
xsltTransformError(NULL, style, comp->inst,
"redefinition of global variable %s\n", elem->name);
style->errors++;
}
if (tmp->next == NULL)
break;
tmp = tmp->next;
}
elem->next = NULL;
tmp->next = elem;
}
if (value != NULL) {
elem->computed = 1;
elem->value = xmlXPathNewString(value);
}
return(0);
}
/**
* xsltProcessUserParamInternal
*
* @ctxt: the XSLT transformation context
* @name: a null terminated parameter name
* @value: a null terminated value (may be an XPath expression)
* @eval: 0 to treat the value literally, else evaluate as XPath expression
*
* If @eval is 0 then @value is treated literally and is stored in the global
* parameter/variable table without any change.
*
* Uf @eval is 1 then @value is treated as an XPath expression and is
* evaluated. In this case, if you want to pass a string which will be
* interpreted literally then it must be enclosed in single or double quotes.
* If the string contains single quotes (double quotes) then it cannot be
* enclosed single quotes (double quotes). If the string which you want to
* be treated literally contains both single and double quotes (e.g. Meet
* at Joe's for "Twelfth Night" at 7 o'clock) then there is no suitable
* quoting character. You cannot use &apos; or &quot; inside the string
* because the replacement of character entities with their equivalents is
* done at a different stage of processing. The solution is to call
* xsltQuoteUserParams or xsltQuoteOneUserParam.
*
* This needs to be done on parsed stylesheets before starting to apply
* transformations. Normally this will be called (directly or indirectly)
* only from xsltEvalUserParams, xsltEvalOneUserParam, xsltQuoteUserParams,
* or xsltQuoteOneUserParam.
*
* Returns 0 in case of success, -1 in case of error
*/
static
int
xsltProcessUserParamInternal(xsltTransformContextPtr ctxt,
const xmlChar * name,
const xmlChar * value,
int eval) {
xsltStylesheetPtr style;
const xmlChar *prefix;
const xmlChar *href;
xmlXPathCompExprPtr xpExpr;
xmlXPathObjectPtr result;
xsltStackElemPtr elem;
int res;
void *res_ptr;
if (ctxt == NULL)
return(-1);
if (name == NULL)
return(0);
if (value == NULL)
return(0);
style = ctxt->style;
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Evaluating user parameter %s=%s\n", name, value));
#endif
/*
* Name lookup
*/
name = xsltSplitQName(ctxt->dict, name, &prefix);
href = NULL;
if (prefix != NULL) {
xmlNsPtr ns;
ns = xmlSearchNs(style->doc, xmlDocGetRootElement(style->doc),
prefix);
if (ns == NULL) {
xsltTransformError(ctxt, style, NULL,
"user param : no namespace bound to prefix %s\n", prefix);
href = NULL;
} else {
href = ns->href;
}
}
if (name == NULL)
return (-1);
res_ptr = xmlHashLookup2(ctxt->globalVars, name, href);
if (res_ptr != 0) {
xsltTransformError(ctxt, style, NULL,
"Global parameter %s already defined\n", name);
}
if (ctxt->globalVars == NULL)
ctxt->globalVars = xmlHashCreate(20);
/*
* do not overwrite variables with parameters from the command line
*/
while (style != NULL) {
elem = ctxt->style->variables;
while (elem != NULL) {
if ((elem->comp != NULL) &&
(elem->comp->type == XSLT_FUNC_VARIABLE) &&
(xmlStrEqual(elem->name, name)) &&
(xmlStrEqual(elem->nameURI, href))) {
return(0);
}
elem = elem->next;
}
style = xsltNextImport(style);
}
style = ctxt->style;
elem = NULL;
/*
* Do the evaluation if @eval is non-zero.
*/
result = NULL;
if (eval != 0) {
xpExpr = xmlXPathCompile(value);
if (xpExpr != NULL) {
xmlDocPtr oldXPDoc;
xmlNodePtr oldXPContextNode;
int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
xmlNsPtr *oldXPNamespaces;
xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
/*
* Save context states.
*/
oldXPDoc = xpctxt->doc;
oldXPContextNode = xpctxt->node;
oldXPProximityPosition = xpctxt->proximityPosition;
oldXPContextSize = xpctxt->contextSize;
oldXPNamespaces = xpctxt->namespaces;
oldXPNsNr = xpctxt->nsNr;
/*
* SPEC XSLT 1.0:
* "At top-level, the expression or template specifying the
* variable value is evaluated with the same context as that used
* to process the root node of the source document: the current
* node is the root node of the source document and the current
* node list is a list containing just the root node of the source
* document."
*/
xpctxt->doc = ctxt->initialContextDoc;
xpctxt->node = ctxt->initialContextNode;
xpctxt->contextSize = 1;
xpctxt->proximityPosition = 1;
/*
* There is really no in scope namespace for parameters on the
* command line.
*/
xpctxt->namespaces = NULL;
xpctxt->nsNr = 0;
result = xmlXPathCompiledEval(xpExpr, xpctxt);
/*
* Restore Context states.
*/
xpctxt->doc = oldXPDoc;
xpctxt->node = oldXPContextNode;
xpctxt->contextSize = oldXPContextSize;
xpctxt->proximityPosition = oldXPProximityPosition;
xpctxt->namespaces = oldXPNamespaces;
xpctxt->nsNr = oldXPNsNr;
xmlXPathFreeCompExpr(xpExpr);
}
if (result == NULL) {
xsltTransformError(ctxt, style, NULL,
"Evaluating user parameter %s failed\n", name);
ctxt->state = XSLT_STATE_STOPPED;
return(-1);
}
}
/*
* If @eval is 0 then @value is to be taken literally and result is NULL
*
* If @eval is not 0, then @value is an XPath expression and has been
* successfully evaluated and result contains the resulting value and
* is not NULL.
*
* Now create an xsltStackElemPtr for insertion into the context's
* global variable/parameter hash table.
*/
#ifdef WITH_XSLT_DEBUG_VARIABLE
#ifdef LIBXML_DEBUG_ENABLED
if ((xsltGenericDebugContext == stdout) ||
(xsltGenericDebugContext == stderr))
xmlXPathDebugDumpObject((FILE *)xsltGenericDebugContext,
result, 0);
#endif
#endif
elem = xsltNewStackElem(NULL);
if (elem != NULL) {
elem->name = name;
elem->select = xmlDictLookup(ctxt->dict, value, -1);
if (href != NULL)
elem->nameURI = xmlDictLookup(ctxt->dict, href, -1);
elem->tree = NULL;
elem->computed = 1;
if (eval == 0) {
elem->value = xmlXPathNewString(value);
}
else {
elem->value = result;
}
}
/*
* Global parameters are stored in the XPath context variables pool.
*/
res = xmlHashAddEntry2(ctxt->globalVars, name, href, elem);
if (res != 0) {
xsltFreeStackElem(elem);
xsltTransformError(ctxt, style, NULL,
"Global parameter %s already defined\n", name);
}
return(0);
}
/**
* xsltEvalUserParams:
*
* @ctxt: the XSLT transformation context
* @params: a NULL terminated array of parameters name/value tuples
*
* Evaluate the global variables of a stylesheet. This needs to be
* done on parsed stylesheets before starting to apply transformations.
* Each of the parameters is evaluated as an XPath expression and stored
* in the global variables/parameter hash table. If you want your
* parameter used literally, use xsltQuoteUserParams.
*
* Returns 0 in case of success, -1 in case of error
*/
int
xsltEvalUserParams(xsltTransformContextPtr ctxt, const char **params) {
int indx = 0;
const xmlChar *name;
const xmlChar *value;
if (params == NULL)
return(0);
while (params[indx] != NULL) {
name = (const xmlChar *) params[indx++];
value = (const xmlChar *) params[indx++];
if (xsltEvalOneUserParam(ctxt, name, value) != 0)
return(-1);
}
return 0;
}
/**
* xsltQuoteUserParams:
*
* @ctxt: the XSLT transformation context
* @params: a NULL terminated arry of parameters names/values tuples
*
* Similar to xsltEvalUserParams, but the values are treated literally and
* are * *not* evaluated as XPath expressions. This should be done on parsed
* stylesheets before starting to apply transformations.
*
* Returns 0 in case of success, -1 in case of error.
*/
int
xsltQuoteUserParams(xsltTransformContextPtr ctxt, const char **params) {
int indx = 0;
const xmlChar *name;
const xmlChar *value;
if (params == NULL)
return(0);
while (params[indx] != NULL) {
name = (const xmlChar *) params[indx++];
value = (const xmlChar *) params[indx++];
if (xsltQuoteOneUserParam(ctxt, name, value) != 0)
return(-1);
}
return 0;
}
/**
* xsltEvalOneUserParam:
* @ctxt: the XSLT transformation context
* @name: a null terminated string giving the name of the parameter
* @value: a null terminated string giving the XPath expression to be evaluated
*
* This is normally called from xsltEvalUserParams to process a single
* parameter from a list of parameters. The @value is evaluated as an
* XPath expression and the result is stored in the context's global
* variable/parameter hash table.
*
* To have a parameter treated literally (not as an XPath expression)
* use xsltQuoteUserParams (or xsltQuoteOneUserParam). For more
* details see description of xsltProcessOneUserParamInternal.
*
* Returns 0 in case of success, -1 in case of error.
*/
int
xsltEvalOneUserParam(xsltTransformContextPtr ctxt,
const xmlChar * name,
const xmlChar * value) {
return xsltProcessUserParamInternal(ctxt, name, value,
1 /* xpath eval ? */);
}
/**
* xsltQuoteOneUserParam:
* @ctxt: the XSLT transformation context
* @name: a null terminated string giving the name of the parameter
* @value: a null terminated string giving the parameter value
*
* This is normally called from xsltQuoteUserParams to process a single
* parameter from a list of parameters. The @value is stored in the
* context's global variable/parameter hash table.
*
* Returns 0 in case of success, -1 in case of error.
*/
int
xsltQuoteOneUserParam(xsltTransformContextPtr ctxt,
const xmlChar * name,
const xmlChar * value) {
return xsltProcessUserParamInternal(ctxt, name, value,
0 /* xpath eval ? */);
}
/**
* xsltBuildVariable:
* @ctxt: the XSLT transformation context
* @comp: the precompiled form
* @tree: the tree if select is NULL
*
* Computes a new variable value.
*
* Returns the xsltStackElemPtr or NULL in case of error
*/
static xsltStackElemPtr
xsltBuildVariable(xsltTransformContextPtr ctxt,
xsltStylePreCompPtr castedComp,
xmlNodePtr tree)
{
#ifdef XSLT_REFACTORED
xsltStyleBasicItemVariablePtr comp =
(xsltStyleBasicItemVariablePtr) castedComp;
#else
xsltStylePreCompPtr comp = castedComp;
#endif
xsltStackElemPtr elem;
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Building variable %s", comp->name));
if (comp->select != NULL)
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
" select %s", comp->select));
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext, "\n"));
#endif
elem = xsltNewStackElem(ctxt);
if (elem == NULL)
return(NULL);
elem->comp = (xsltStylePreCompPtr) comp;
elem->name = comp->name;
elem->select = comp->select;
elem->nameURI = comp->ns;
elem->tree = tree;
elem->value = xsltEvalVariable(ctxt, elem,
(xsltStylePreCompPtr) comp);
if (elem->value != NULL)
elem->computed = 1;
return(elem);
}
/**
* xsltRegisterVariable:
* @ctxt: the XSLT transformation context
* @comp: the compiled XSLT-variable (or param) instruction
* @tree: the tree if select is NULL
* @isParam: indicates if this is a parameter
*
* Computes and registers a new variable.
*
* Returns 0 in case of success, -1 in case of error
*/
static int
xsltRegisterVariable(xsltTransformContextPtr ctxt,
xsltStylePreCompPtr castedComp,
xmlNodePtr tree, int isParam)
{
#ifdef XSLT_REFACTORED
xsltStyleBasicItemVariablePtr comp =
(xsltStyleBasicItemVariablePtr) castedComp;
#else
xsltStylePreCompPtr comp = castedComp;
int present;
#endif
xsltStackElemPtr variable;
#ifdef XSLT_REFACTORED
/*
* REFACTORED NOTE: Redefinitions of vars/params are checked
* at compilation time in the refactored code.
* xsl:with-param parameters are checked in xsltApplyXSLTTemplate().
*/
#else
present = xsltCheckStackElem(ctxt, comp->name, comp->ns);
if (isParam == 0) {
if ((present != 0) && (present != 3)) {
/* TODO: report QName. */
xsltTransformError(ctxt, NULL, comp->inst,
"XSLT-variable: Redefinition of variable '%s'.\n", comp->name);
return(0);
}
} else if (present != 0) {
if ((present == 1) || (present == 2)) {
/* TODO: report QName. */
xsltTransformError(ctxt, NULL, comp->inst,
"XSLT-param: Redefinition of parameter '%s'.\n", comp->name);
return(0);
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"param %s defined by caller\n", comp->name));
#endif
return(0);
}
#endif /* else of XSLT_REFACTORED */
variable = xsltBuildVariable(ctxt, (xsltStylePreCompPtr) comp, tree);
xsltAddStackElem(ctxt, variable);
return(0);
}
/**
* xsltGlobalVariableLookup:
* @ctxt: the XSLT transformation context
* @name: the variable name
* @ns_uri: the variable namespace URI
*
* Search in the Variable array of the context for the given
* variable value.
*
* Returns the value or NULL if not found
*/
static xmlXPathObjectPtr
xsltGlobalVariableLookup(xsltTransformContextPtr ctxt, const xmlChar *name,
const xmlChar *ns_uri) {
xsltStackElemPtr elem;
xmlXPathObjectPtr ret = NULL;
/*
* Lookup the global variables in XPath global variable hash table
*/
if ((ctxt->xpathCtxt == NULL) || (ctxt->globalVars == NULL))
return(NULL);
elem = (xsltStackElemPtr)
xmlHashLookup2(ctxt->globalVars, name, ns_uri);
if (elem == NULL) {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"global variable not found %s\n", name));
#endif
return(NULL);
}
/*
* URGENT TODO: Move the detection of recursive definitions
* to compile-time.
*/
if (elem->computed == 0) {
if (elem->name == xsltComputingGlobalVarMarker) {
xsltTransformError(ctxt, NULL, elem->comp->inst,
"Recursive definition of %s\n", name);
return(NULL);
}
ret = xsltEvalGlobalVariable(elem, ctxt);
} else
ret = elem->value;
return(xmlXPathObjectCopy(ret));
}
/**
* xsltVariableLookup:
* @ctxt: the XSLT transformation context
* @name: the variable name
* @ns_uri: the variable namespace URI
*
* Search in the Variable array of the context for the given
* variable value.
*
* Returns the value or NULL if not found
*/
xmlXPathObjectPtr
xsltVariableLookup(xsltTransformContextPtr ctxt, const xmlChar *name,
const xmlChar *ns_uri) {
xsltStackElemPtr elem;
if (ctxt == NULL)
return(NULL);
elem = xsltStackLookup(ctxt, name, ns_uri);
if (elem == NULL) {
return(xsltGlobalVariableLookup(ctxt, name, ns_uri));
}
if (elem->computed == 0) {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"uncomputed variable %s\n", name));
#endif
elem->value = xsltEvalVariable(ctxt, elem, NULL);
elem->computed = 1;
}
if (elem->value != NULL)
return(xmlXPathObjectCopy(elem->value));
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"variable not found %s\n", name));
#endif
return(NULL);
}
/**
* xsltParseStylesheetCallerParam:
* @ctxt: the XSLT transformation context
* @inst: the xsl:with-param instruction element
*
* Processes an xsl:with-param instruction at transformation time.
* The value is compute, but not recorded.
* NOTE that this is also called with an *xsl:param* element
* from exsltFuncFunctionFunction().
*
* Returns the new xsltStackElemPtr or NULL
*/
xsltStackElemPtr
xsltParseStylesheetCallerParam(xsltTransformContextPtr ctxt, xmlNodePtr inst)
{
#ifdef XSLT_REFACTORED
xsltStyleBasicItemVariablePtr comp;
#else
xsltStylePreCompPtr comp;
#endif
xmlNodePtr tree = NULL; /* The first child node of the instruction or
the instruction itself. */
xsltStackElemPtr param = NULL;
if ((ctxt == NULL) || (inst == NULL) || (inst->type != XML_ELEMENT_NODE))
return(NULL);
#ifdef XSLT_REFACTORED
comp = (xsltStyleBasicItemVariablePtr) inst->psvi;
#else
comp = (xsltStylePreCompPtr) inst->psvi;
#endif
if (comp == NULL) {
xsltTransformError(ctxt, NULL, inst,
"Internal error in xsltParseStylesheetCallerParam(): "
"The XSLT 'with-param' instruction was not compiled.\n");
return(NULL);
}
if (comp->name == NULL) {
xsltTransformError(ctxt, NULL, inst,
"Internal error in xsltParseStylesheetCallerParam(): "
"XSLT 'with-param': The attribute 'name' was not compiled.\n");
return(NULL);
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Handling xsl:with-param %s\n", comp->name));
#endif
if (comp->select == NULL) {
tree = inst->children;
} else {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
" select %s\n", comp->select));
#endif
tree = inst;
}
param = xsltBuildVariable(ctxt, (xsltStylePreCompPtr) comp, tree);
return(param);
}
/**
* xsltParseGlobalVariable:
* @style: the XSLT stylesheet
* @cur: the "variable" element
*
* Parses a global XSLT 'variable' declaration at compilation time
* and registers it
*/
void
xsltParseGlobalVariable(xsltStylesheetPtr style, xmlNodePtr cur)
{
#ifdef XSLT_REFACTORED
xsltStyleItemVariablePtr comp;
#else
xsltStylePreCompPtr comp;
#endif
if ((cur == NULL) || (style == NULL) || (cur->type != XML_ELEMENT_NODE))
return;
#ifdef XSLT_REFACTORED
/*
* Note that xsltStylePreCompute() will be called from
* xslt.c only.
*/
comp = (xsltStyleItemVariablePtr) cur->psvi;
#else
xsltStylePreCompute(style, cur);
comp = (xsltStylePreCompPtr) cur->psvi;
#endif
if (comp == NULL) {
xsltTransformError(NULL, style, cur,
"xsl:variable : compilation failed\n");
return;
}
if (comp->name == NULL) {
xsltTransformError(NULL, style, cur,
"xsl:variable : missing name attribute\n");
return;
}
/*
* Parse the content (a sequence constructor) of xsl:variable.
*/
if (cur->children != NULL) {
#ifdef XSLT_REFACTORED
xsltParseSequenceConstructor(XSLT_CCTXT(style), cur->children);
#else
xsltParseTemplateContent(style, cur);
#endif
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
xsltGenericDebug(xsltGenericDebugContext,
"Registering global variable %s\n", comp->name);
#endif
xsltRegisterGlobalVariable(style, comp->name, comp->ns,
comp->select, cur->children, (xsltStylePreCompPtr) comp,
NULL);
}
/**
* xsltParseGlobalParam:
* @style: the XSLT stylesheet
* @cur: the "param" element
*
* parse an XSLT transformation param declaration and record
* its value.
*/
void
xsltParseGlobalParam(xsltStylesheetPtr style, xmlNodePtr cur) {
#ifdef XSLT_REFACTORED
xsltStyleItemParamPtr comp;
#else
xsltStylePreCompPtr comp;
#endif
if ((cur == NULL) || (style == NULL) || (cur->type != XML_ELEMENT_NODE))
return;
#ifdef XSLT_REFACTORED
/*
* Note that xsltStylePreCompute() will be called from
* xslt.c only.
*/
comp = (xsltStyleItemParamPtr) cur->psvi;
#else
xsltStylePreCompute(style, cur);
comp = (xsltStylePreCompPtr) cur->psvi;
#endif
if (comp == NULL) {
xsltTransformError(NULL, style, cur,
"xsl:param : compilation failed\n");
return;
}
if (comp->name == NULL) {
xsltTransformError(NULL, style, cur,
"xsl:param : missing name attribute\n");
return;
}
/*
* Parse the content (a sequence constructor) of xsl:param.
*/
if (cur->children != NULL) {
#ifdef XSLT_REFACTORED
xsltParseSequenceConstructor(XSLT_CCTXT(style), cur->children);
#else
xsltParseTemplateContent(style, cur);
#endif
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
xsltGenericDebug(xsltGenericDebugContext,
"Registering global param %s\n", comp->name);
#endif
xsltRegisterGlobalVariable(style, comp->name, comp->ns,
comp->select, cur->children, (xsltStylePreCompPtr) comp,
NULL);
}
/**
* xsltParseStylesheetVariable:
* @ctxt: the XSLT transformation context
* @inst: the xsl:variable instruction element
*
* Registers a local XSLT 'variable' instruction at transformation time
* and evaluates its value.
*/
void
xsltParseStylesheetVariable(xsltTransformContextPtr ctxt, xmlNodePtr inst)
{
#ifdef XSLT_REFACTORED
xsltStyleItemVariablePtr comp;
#else
xsltStylePreCompPtr comp;
#endif
if ((inst == NULL) || (ctxt == NULL) || (inst->type != XML_ELEMENT_NODE))
return;
comp = inst->psvi;
if (comp == NULL) {
xsltTransformError(ctxt, NULL, inst,
"Internal error in xsltParseStylesheetVariable(): "
"The XSLT 'variable' instruction was not compiled.\n");
return;
}
if (comp->name == NULL) {
xsltTransformError(ctxt, NULL, inst,
"Internal error in xsltParseStylesheetVariable(): "
"The attribute 'name' was not compiled.\n");
return;
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Registering variable '%s'\n", comp->name));
#endif
xsltRegisterVariable(ctxt, (xsltStylePreCompPtr) comp, inst->children, 0);
}
/**
* xsltParseStylesheetParam:
* @ctxt: the XSLT transformation context
* @cur: the XSLT 'param' element
*
* Registers a local XSLT 'param' declaration at transformation time and
* evaluates its value.
*/
void
xsltParseStylesheetParam(xsltTransformContextPtr ctxt, xmlNodePtr cur)
{
#ifdef XSLT_REFACTORED
xsltStyleItemParamPtr comp;
#else
xsltStylePreCompPtr comp;
#endif
if ((cur == NULL) || (ctxt == NULL) || (cur->type != XML_ELEMENT_NODE))
return;
comp = cur->psvi;
if ((comp == NULL) || (comp->name == NULL)) {
xsltTransformError(ctxt, NULL, cur,
"Internal error in xsltParseStylesheetParam(): "
"The XSLT 'param' declaration was not compiled correctly.\n");
return;
}
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(ctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Registering param %s\n", comp->name));
#endif
xsltRegisterVariable(ctxt, (xsltStylePreCompPtr) comp, cur->children, 1);
}
/**
* xsltFreeGlobalVariables:
* @ctxt: the XSLT transformation context
*
* Free up the data associated to the global variables
* its value.
*/
void
xsltFreeGlobalVariables(xsltTransformContextPtr ctxt) {
xmlHashFree(ctxt->globalVars, (xmlHashDeallocator) xsltFreeStackElem);
}
/**
* xsltXPathVariableLookup:
* @ctxt: a void * but the the XSLT transformation context actually
* @name: the variable name
* @ns_uri: the variable namespace URI
*
* This is the entry point when a varibale is needed by the XPath
* interpretor.
*
* Returns the value or NULL if not found
*/
xmlXPathObjectPtr
xsltXPathVariableLookup(void *ctxt, const xmlChar *name,
const xmlChar *ns_uri) {
xsltTransformContextPtr tctxt;
xmlXPathObjectPtr valueObj = NULL;
if ((ctxt == NULL) || (name == NULL))
return(NULL);
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(((xsltTransformContextPtr)ctxt),XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"Lookup variable '%s'\n", name));
#endif
tctxt = (xsltTransformContextPtr) ctxt;
/*
* Local variables/params ---------------------------------------------
*
* Do the lookup from the top of the stack, but
* don't use params being computed in a call-param
* First lookup expects the variable name and URI to
* come from the disctionnary and hence pointer comparison.
*/
if (tctxt->varsNr != 0) {
int i;
xsltStackElemPtr variable = NULL, cur;
for (i = tctxt->varsNr; i > tctxt->varsBase; i--) {
cur = tctxt->varsTab[i-1];
if ((cur->name == name) && (cur->nameURI == ns_uri)) {
#if 0
stack_addr++;
#endif
variable = cur;
goto local_variable_found;
}
cur = cur->next;
}
/*
* Redo the lookup with interned strings to avoid string comparison.
*
* OPTIMIZE TODO: The problem here is, that if we request a
* global variable, then this will be also executed.
*/
{
const xmlChar *tmpName = name, *tmpNsName = ns_uri;
name = xmlDictLookup(tctxt->dict, name, -1);
if (ns_uri)
ns_uri = xmlDictLookup(tctxt->dict, ns_uri, -1);
if ((tmpName != name) || (tmpNsName != ns_uri)) {
for (i = tctxt->varsNr; i > tctxt->varsBase; i--) {
cur = tctxt->varsTab[i-1];
if ((cur->name == name) && (cur->nameURI == ns_uri)) {
#if 0
stack_cmp++;
#endif
variable = cur;
goto local_variable_found;
}
}
}
}
local_variable_found:
if (variable) {
if (variable->computed == 0) {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(tctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"uncomputed variable '%s'\n", name));
#endif
variable->value = xsltEvalVariable(tctxt, variable, NULL);
variable->computed = 1;
}
if (variable->value != NULL) {
valueObj = xmlXPathObjectCopy(variable->value);
}
return(valueObj);
}
}
/*
* Global variables/params --------------------------------------------
*/
if (tctxt->globalVars) {
valueObj = xsltGlobalVariableLookup(tctxt, name, ns_uri);
}
if (valueObj == NULL) {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(tctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"variable not found '%s'\n", name));
#endif
if (ns_uri) {
xsltTransformError(tctxt, NULL, tctxt->inst,
"Variable '{%s}%s' has not been declared.\n", ns_uri, name);
} else {
xsltTransformError(tctxt, NULL, tctxt->inst,
"Variable '%s' has not been declared.\n", name);
}
} else {
#ifdef WITH_XSLT_DEBUG_VARIABLE
XSLT_TRACE(tctxt,XSLT_TRACE_VARIABLES,xsltGenericDebug(xsltGenericDebugContext,
"found variable '%s'\n", name));
#endif
}
return(valueObj);
}