mirror of
https://github.com/reactos/reactos.git
synced 2025-07-03 03:01:24 +00:00
Create a branch for cmake bringup.
svn path=/branches/cmake-bringup/; revision=48236
This commit is contained in:
Amine Khaldi
parent
a28e798006
commit
c424146e2c
20602 changed files with 0 additions and 1140137 deletions
851
dll/3rdparty/libxslt/namespaces.c
vendored
Normal file
851
dll/3rdparty/libxslt/namespaces.c
vendored
Normal file
|
|
@ -0,0 +1,851 @@
|
|||
/*
|
||||
* namespaces.c: Implementation of the XSLT namespaces handling
|
||||
*
|
||||
* Reference:
|
||||
* http://www.w3.org/TR/1999/REC-xslt-19991116
|
||||
*
|
||||
* See Copyright for the status of this software.
|
||||
*
|
||||
* daniel@veillard.com
|
||||
*/
|
||||
|
||||
#define IN_LIBXSLT
|
||||
#include "libxslt.h"
|
||||
|
||||
#include <string.h>
|
||||
|
||||
#ifdef HAVE_SYS_TYPES_H
|
||||
#include <sys/types.h>
|
||||
#endif
|
||||
#ifdef HAVE_MATH_H
|
||||
#include <math.h>
|
||||
#endif
|
||||
#ifdef HAVE_FLOAT_H
|
||||
#include <float.h>
|
||||
#endif
|
||||
#ifdef HAVE_IEEEFP_H
|
||||
#include <ieeefp.h>
|
||||
#endif
|
||||
#ifdef HAVE_NAN_H
|
||||
#include <nan.h>
|
||||
#endif
|
||||
#ifdef HAVE_CTYPE_H
|
||||
#include <ctype.h>
|
||||
#endif
|
||||
#ifndef XSLT_NEED_TRIO
|
||||
#include <stdio.h>
|
||||
#else
|
||||
#include <trio.h>
|
||||
#endif
|
||||
|
||||
#include <libxml/xmlmemory.h>
|
||||
#include <libxml/tree.h>
|
||||
#include <libxml/hash.h>
|
||||
#include <libxml/xmlerror.h>
|
||||
#include <libxml/uri.h>
|
||||
#include "xslt.h"
|
||||
#include "xsltInternals.h"
|
||||
#include "xsltutils.h"
|
||||
#include "namespaces.h"
|
||||
#include "imports.h"
|
||||
|
||||
/************************************************************************
|
||||
* *
|
||||
* Module interfaces *
|
||||
* *
|
||||
************************************************************************/
|
||||
|
||||
#ifdef XSLT_REFACTORED
|
||||
static xsltNsAliasPtr
|
||||
xsltNewNsAlias(xsltCompilerCtxtPtr cctxt)
|
||||
{
|
||||
xsltNsAliasPtr ret;
|
||||
|
||||
if (cctxt == NULL)
|
||||
return(NULL);
|
||||
|
||||
ret = (xsltNsAliasPtr) xmlMalloc(sizeof(xsltNsAlias));
|
||||
if (ret == NULL) {
|
||||
xsltTransformError(NULL, cctxt->style, NULL,
|
||||
"Internal error in xsltNewNsAlias(): Memory allocation failed.\n");
|
||||
cctxt->style->errors++;
|
||||
return(NULL);
|
||||
}
|
||||
memset(ret, 0, sizeof(xsltNsAlias));
|
||||
/*
|
||||
* TODO: Store the item at current stylesheet-level.
|
||||
*/
|
||||
ret->next = cctxt->nsAliases;
|
||||
cctxt->nsAliases = ret;
|
||||
|
||||
return(ret);
|
||||
}
|
||||
#endif /* XSLT_REFACTORED */
|
||||
/**
|
||||
* xsltNamespaceAlias:
|
||||
* @style: the XSLT stylesheet
|
||||
* @node: the xsl:namespace-alias node
|
||||
*
|
||||
* Read the stylesheet-prefix and result-prefix attributes, register
|
||||
* them as well as the corresponding namespace.
|
||||
*/
|
||||
void
|
||||
xsltNamespaceAlias(xsltStylesheetPtr style, xmlNodePtr node)
|
||||
{
|
||||
xmlChar *resultPrefix = NULL;
|
||||
xmlChar *stylePrefix = NULL;
|
||||
xmlNsPtr literalNs = NULL;
|
||||
xmlNsPtr targetNs = NULL;
|
||||
|
||||
#ifdef XSLT_REFACTORED
|
||||
xsltNsAliasPtr alias;
|
||||
|
||||
if ((style == NULL) || (node == NULL))
|
||||
return;
|
||||
|
||||
/*
|
||||
* SPEC XSLT 1.0:
|
||||
* "If a namespace URI is declared to be an alias for multiple
|
||||
* different namespace URIs, then the declaration with the highest
|
||||
* import precedence is used. It is an error if there is more than
|
||||
* one such declaration. An XSLT processor may signal the error;
|
||||
* if it does not signal the error, it must recover by choosing,
|
||||
* from amongst the declarations with the highest import precedence,
|
||||
* the one that occurs last in the stylesheet."
|
||||
*
|
||||
* SPEC TODO: Check for the errors mentioned above.
|
||||
*/
|
||||
/*
|
||||
* NOTE that the XSLT 2.0 also *does* use the NULL namespace if
|
||||
* "#default" is used and there's no default namespace is scope.
|
||||
* I.e., this is *not* an error.
|
||||
* Most XSLT 1.0 implementations work this way.
|
||||
* The XSLT 1.0 spec has nothing to say on the subject.
|
||||
*/
|
||||
/*
|
||||
* Attribute "stylesheet-prefix".
|
||||
*/
|
||||
stylePrefix = xmlGetNsProp(node, (const xmlChar *)"stylesheet-prefix", NULL);
|
||||
if (stylePrefix == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"The attribute 'stylesheet-prefix' is missing.\n");
|
||||
return;
|
||||
}
|
||||
if (xmlStrEqual(stylePrefix, (const xmlChar *)"#default"))
|
||||
literalNs = xmlSearchNs(node->doc, node, NULL);
|
||||
else {
|
||||
literalNs = xmlSearchNs(node->doc, node, stylePrefix);
|
||||
if (literalNs == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"Attribute 'stylesheet-prefix': There's no namespace "
|
||||
"declaration in scope for the prefix '%s'.\n",
|
||||
stylePrefix);
|
||||
goto error;
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Attribute "result-prefix".
|
||||
*/
|
||||
resultPrefix = xmlGetNsProp(node, (const xmlChar *)"result-prefix", NULL);
|
||||
if (resultPrefix == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"The attribute 'result-prefix' is missing.\n");
|
||||
goto error;
|
||||
}
|
||||
if (xmlStrEqual(resultPrefix, (const xmlChar *)"#default"))
|
||||
targetNs = xmlSearchNs(node->doc, node, NULL);
|
||||
else {
|
||||
targetNs = xmlSearchNs(node->doc, node, resultPrefix);
|
||||
|
||||
if (targetNs == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"Attribute 'result-prefix': There's no namespace "
|
||||
"declaration in scope for the prefix '%s'.\n",
|
||||
stylePrefix);
|
||||
goto error;
|
||||
}
|
||||
}
|
||||
/*
|
||||
*
|
||||
* Same alias for multiple different target namespace URIs:
|
||||
* TODO: The one with the highest import precedence is used.
|
||||
* Example:
|
||||
* <xsl:namespace-alias stylesheet-prefix="foo"
|
||||
* result-prefix="bar"/>
|
||||
*
|
||||
* <xsl:namespace-alias stylesheet-prefix="foo"
|
||||
* result-prefix="zar"/>
|
||||
*
|
||||
* Same target namespace URI for multiple different aliases:
|
||||
* All alias-definitions will be used.
|
||||
* Example:
|
||||
* <xsl:namespace-alias stylesheet-prefix="bar"
|
||||
* result-prefix="foo"/>
|
||||
*
|
||||
* <xsl:namespace-alias stylesheet-prefix="zar"
|
||||
* result-prefix="foo"/>
|
||||
* Cases using #default:
|
||||
* <xsl:namespace-alias stylesheet-prefix="#default"
|
||||
* result-prefix="#default"/>
|
||||
* TODO: Has this an effect at all?
|
||||
*
|
||||
* <xsl:namespace-alias stylesheet-prefix="foo"
|
||||
* result-prefix="#default"/>
|
||||
* From namespace to no namespace.
|
||||
*
|
||||
* <xsl:namespace-alias stylesheet-prefix="#default"
|
||||
* result-prefix="foo"/>
|
||||
* From no namespace to namespace.
|
||||
*/
|
||||
|
||||
|
||||
/*
|
||||
* Store the ns-node in the alias-object.
|
||||
*/
|
||||
alias = xsltNewNsAlias(XSLT_CCTXT(style));
|
||||
if (alias == NULL)
|
||||
return;
|
||||
alias->literalNs = literalNs;
|
||||
alias->targetNs = targetNs;
|
||||
XSLT_CCTXT(style)->hasNsAliases = 1;
|
||||
|
||||
|
||||
#else /* XSLT_REFACTORED */
|
||||
const xmlChar *literalNsName;
|
||||
const xmlChar *targetNsName;
|
||||
|
||||
|
||||
if ((style == NULL) || (node == NULL))
|
||||
return;
|
||||
|
||||
stylePrefix = xmlGetNsProp(node, (const xmlChar *)"stylesheet-prefix", NULL);
|
||||
if (stylePrefix == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"namespace-alias: stylesheet-prefix attribute missing\n");
|
||||
return;
|
||||
}
|
||||
resultPrefix = xmlGetNsProp(node, (const xmlChar *)"result-prefix", NULL);
|
||||
if (resultPrefix == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"namespace-alias: result-prefix attribute missing\n");
|
||||
goto error;
|
||||
}
|
||||
|
||||
if (xmlStrEqual(stylePrefix, (const xmlChar *)"#default")) {
|
||||
literalNs = xmlSearchNs(node->doc, node, NULL);
|
||||
if (literalNs == NULL) {
|
||||
literalNsName = NULL;
|
||||
} else
|
||||
literalNsName = literalNs->href; /* Yes - set for nsAlias table */
|
||||
} else {
|
||||
literalNs = xmlSearchNs(node->doc, node, stylePrefix);
|
||||
|
||||
if ((literalNs == NULL) || (literalNs->href == NULL)) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"namespace-alias: prefix %s not bound to any namespace\n",
|
||||
stylePrefix);
|
||||
goto error;
|
||||
} else
|
||||
literalNsName = literalNs->href;
|
||||
}
|
||||
|
||||
/*
|
||||
* When "#default" is used for result, if a default namespace has not
|
||||
* been explicitly declared the special value UNDEFINED_DEFAULT_NS is
|
||||
* put into the nsAliases table
|
||||
*/
|
||||
if (xmlStrEqual(resultPrefix, (const xmlChar *)"#default")) {
|
||||
targetNs = xmlSearchNs(node->doc, node, NULL);
|
||||
if (targetNs == NULL) {
|
||||
targetNsName = UNDEFINED_DEFAULT_NS;
|
||||
} else
|
||||
targetNsName = targetNs->href;
|
||||
} else {
|
||||
targetNs = xmlSearchNs(node->doc, node, resultPrefix);
|
||||
|
||||
if ((targetNs == NULL) || (targetNs->href == NULL)) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"namespace-alias: prefix %s not bound to any namespace\n",
|
||||
resultPrefix);
|
||||
goto error;
|
||||
} else
|
||||
targetNsName = targetNs->href;
|
||||
}
|
||||
/*
|
||||
* Special case: if #default is used for
|
||||
* the stylesheet-prefix (literal namespace) and there's no default
|
||||
* namespace in scope, we'll use style->defaultAlias for this.
|
||||
*/
|
||||
if (literalNsName == NULL) {
|
||||
if (targetNs != NULL) {
|
||||
/*
|
||||
* BUG TODO: Is it not sufficient to have only 1 field for
|
||||
* this, since subsequently alias declarations will
|
||||
* overwrite this.
|
||||
* Example:
|
||||
* <xsl:namespace-alias result-prefix="foo"
|
||||
* stylesheet-prefix="#default"/>
|
||||
* <xsl:namespace-alias result-prefix="bar"
|
||||
* stylesheet-prefix="#default"/>
|
||||
* The mapping for "foo" won't be visible anymore.
|
||||
*/
|
||||
style->defaultAlias = targetNs->href;
|
||||
}
|
||||
} else {
|
||||
if (style->nsAliases == NULL)
|
||||
style->nsAliases = xmlHashCreate(10);
|
||||
if (style->nsAliases == NULL) {
|
||||
xsltTransformError(NULL, style, node,
|
||||
"namespace-alias: cannot create hash table\n");
|
||||
goto error;
|
||||
}
|
||||
xmlHashAddEntry((xmlHashTablePtr) style->nsAliases,
|
||||
literalNsName, (void *) targetNsName);
|
||||
}
|
||||
#endif /* else of XSLT_REFACTORED */
|
||||
|
||||
error:
|
||||
if (stylePrefix != NULL)
|
||||
xmlFree(stylePrefix);
|
||||
if (resultPrefix != NULL)
|
||||
xmlFree(resultPrefix);
|
||||
}
|
||||
|
||||
/**
|
||||
* xsltGetSpecialNamespace:
|
||||
* @ctxt: the transformation context
|
||||
* @invocNode: the invoking node; e.g. a literal result element/attr;
|
||||
* only used for error reports
|
||||
* @nsName: the namespace name (or NULL)
|
||||
* @nsPrefix: the suggested namespace prefix (or NULL)
|
||||
* @target: the result element on which to anchor a namespace
|
||||
*
|
||||
* Find a matching (prefix and ns-name) ns-declaration
|
||||
* for the requested @nsName and @nsPrefix in the result tree.
|
||||
* If none is found then a new ns-declaration will be
|
||||
* added to @resultElem. If, in this case, the given prefix is
|
||||
* already in use, then a ns-declaration with a modified ns-prefix
|
||||
* be we created. Note that this function's priority is to
|
||||
* preserve ns-prefixes; it will only change a prefix if there's
|
||||
* a namespace clash.
|
||||
* If both @nsName and @nsPrefix are NULL, then this will try to
|
||||
* "undeclare" a default namespace by declaring an xmlns="".
|
||||
*
|
||||
* Returns a namespace declaration or NULL.
|
||||
*/
|
||||
xmlNsPtr
|
||||
xsltGetSpecialNamespace(xsltTransformContextPtr ctxt, xmlNodePtr invocNode,
|
||||
const xmlChar *nsName, const xmlChar *nsPrefix,
|
||||
xmlNodePtr target)
|
||||
{
|
||||
xmlNsPtr ns;
|
||||
int prefixOccupied = 0;
|
||||
|
||||
if ((ctxt == NULL) || (target == NULL) ||
|
||||
(target->type != XML_ELEMENT_NODE))
|
||||
return(NULL);
|
||||
|
||||
/*
|
||||
* NOTE: Namespace exclusion and ns-aliasing is performed at
|
||||
* compilation-time in the refactored code; so this need not be done
|
||||
* here (it was in the old code).
|
||||
* NOTE: @invocNode was named @cur in the old code and was documented to
|
||||
* be an input node; since it was only used to anchor an error report
|
||||
* somewhere, we can safely change this to @invocNode, which now
|
||||
* will be the XSLT instruction (also a literal result element/attribute),
|
||||
* which was responsible for this call.
|
||||
*/
|
||||
/*
|
||||
* OPTIMIZE TODO: This all could be optimized by keeping track of
|
||||
* the ns-decls currently in-scope via a specialized context.
|
||||
*/
|
||||
if ((nsPrefix == NULL) && ((nsName == NULL) || (nsName[0] == 0))) {
|
||||
/*
|
||||
* NOTE: the "undeclaration" of the default namespace was
|
||||
* part of the logic of the old xsltGetSpecialNamespace() code,
|
||||
* so we'll keep that mechanism.
|
||||
* Related to the old code: bug #302020:
|
||||
*/
|
||||
/*
|
||||
* OPTIMIZE TODO: This all could be optimized by keeping track of
|
||||
* the ns-decls currently in-scope via a specialized context.
|
||||
*/
|
||||
/*
|
||||
* Search on the result element itself.
|
||||
*/
|
||||
if (target->nsDef != NULL) {
|
||||
ns = target->nsDef;
|
||||
do {
|
||||
if (ns->prefix == NULL) {
|
||||
if ((ns->href != NULL) && (ns->href[0] != 0)) {
|
||||
/*
|
||||
* Raise a namespace normalization error.
|
||||
*/
|
||||
xsltTransformError(ctxt, NULL, invocNode,
|
||||
"Namespace normalization error: Cannot undeclare "
|
||||
"the default namespace, since the default namespace "
|
||||
"'%s' is already declared on the result element "
|
||||
"'%s'.\n", ns->href, target->name);
|
||||
return(NULL);
|
||||
} else {
|
||||
/*
|
||||
* The default namespace was undeclared on the
|
||||
* result element.
|
||||
*/
|
||||
return(NULL);
|
||||
}
|
||||
break;
|
||||
}
|
||||
ns = ns->next;
|
||||
} while (ns != NULL);
|
||||
}
|
||||
if ((target->parent != NULL) &&
|
||||
(target->parent->type == XML_ELEMENT_NODE))
|
||||
{
|
||||
/*
|
||||
* The parent element is in no namespace, so assume
|
||||
* that there is no default namespace in scope.
|
||||
*/
|
||||
if (target->parent->ns == NULL)
|
||||
return(NULL);
|
||||
|
||||
ns = xmlSearchNs(target->doc, target->parent,
|
||||
NULL);
|
||||
/*
|
||||
* Fine if there's no default ns is scope, or if the
|
||||
* default ns was undeclared.
|
||||
*/
|
||||
if ((ns == NULL) || (ns->href == NULL) || (ns->href[0] == 0))
|
||||
return(NULL);
|
||||
|
||||
/*
|
||||
* Undeclare the default namespace.
|
||||
*/
|
||||
xmlNewNs(target, BAD_CAST "", NULL);
|
||||
/* TODO: Check result */
|
||||
return(NULL);
|
||||
}
|
||||
return(NULL);
|
||||
}
|
||||
/*
|
||||
* Handle the XML namespace.
|
||||
* QUESTION: Is this faster than using xmlStrEqual() anyway?
|
||||
*/
|
||||
if ((nsPrefix != NULL) &&
|
||||
(nsPrefix[0] == 'x') && (nsPrefix[1] == 'm') &&
|
||||
(nsPrefix[2] == 'l') && (nsPrefix[3] == 0))
|
||||
{
|
||||
return(xmlSearchNs(target->doc, target, nsPrefix));
|
||||
}
|
||||
/*
|
||||
* First: search on the result element itself.
|
||||
*/
|
||||
if (target->nsDef != NULL) {
|
||||
ns = target->nsDef;
|
||||
do {
|
||||
if ((ns->prefix == NULL) == (nsPrefix == NULL)) {
|
||||
if (ns->prefix == nsPrefix) {
|
||||
if (xmlStrEqual(ns->href, nsName))
|
||||
return(ns);
|
||||
prefixOccupied = 1;
|
||||
break;
|
||||
} else if (xmlStrEqual(ns->prefix, nsPrefix)) {
|
||||
if (xmlStrEqual(ns->href, nsName))
|
||||
return(ns);
|
||||
prefixOccupied = 1;
|
||||
break;
|
||||
}
|
||||
}
|
||||
ns = ns->next;
|
||||
} while (ns != NULL);
|
||||
}
|
||||
if (prefixOccupied) {
|
||||
/*
|
||||
* If the ns-prefix is occupied by an other ns-decl on the
|
||||
* result element, then this means:
|
||||
* 1) The desired prefix is shadowed
|
||||
* 2) There's no way around changing the prefix
|
||||
*
|
||||
* Try a desperate search for an in-scope ns-decl
|
||||
* with a matching ns-name before we use the last option,
|
||||
* which is to recreate the ns-decl with a modified prefix.
|
||||
*/
|
||||
ns = xmlSearchNsByHref(target->doc, target, nsName);
|
||||
if (ns != NULL)
|
||||
return(ns);
|
||||
|
||||
/*
|
||||
* Fallback to changing the prefix.
|
||||
*/
|
||||
} else if ((target->parent != NULL) &&
|
||||
(target->parent->type == XML_ELEMENT_NODE))
|
||||
{
|
||||
/*
|
||||
* Try to find a matching ns-decl in the ancestor-axis.
|
||||
*
|
||||
* Check the common case: The parent element of the current
|
||||
* result element is in the same namespace (with an equal ns-prefix).
|
||||
*/
|
||||
if ((target->parent->ns != NULL) &&
|
||||
((target->parent->ns->prefix != NULL) == (nsPrefix != NULL)))
|
||||
{
|
||||
ns = target->parent->ns;
|
||||
|
||||
if (nsPrefix == NULL) {
|
||||
if (xmlStrEqual(ns->href, nsName))
|
||||
return(ns);
|
||||
} else if (xmlStrEqual(ns->prefix, nsPrefix) &&
|
||||
xmlStrEqual(ns->href, nsName))
|
||||
{
|
||||
return(ns);
|
||||
}
|
||||
}
|
||||
/*
|
||||
* Lookup the remaining in-scope namespaces.
|
||||
*/
|
||||
ns = xmlSearchNs(target->doc, target->parent, nsPrefix);
|
||||
if (ns != NULL) {
|
||||
if (xmlStrEqual(ns->href, nsName))
|
||||
return(ns);
|
||||
/*
|
||||
* Now check for a nasty case: We need to ensure that the new
|
||||
* ns-decl won't shadow a prefix in-use by an existing attribute.
|
||||
* <foo xmlns:a="urn:test:a">
|
||||
* <bar a:a="val-a">
|
||||
* <xsl:attribute xmlns:a="urn:test:b" name="a:b">
|
||||
* val-b</xsl:attribute>
|
||||
* </bar>
|
||||
* </foo>
|
||||
*/
|
||||
if (target->properties) {
|
||||
xmlAttrPtr attr = target->properties;
|
||||
do {
|
||||
if ((attr->ns) &&
|
||||
xmlStrEqual(attr->ns->prefix, nsPrefix))
|
||||
{
|
||||
/*
|
||||
* Bad, this prefix is already in use.
|
||||
* Since we'll change the prefix anyway, try
|
||||
* a search for a matching ns-decl based on the
|
||||
* namespace name.
|
||||
*/
|
||||
ns = xmlSearchNsByHref(target->doc, target, nsName);
|
||||
if (ns != NULL)
|
||||
return(ns);
|
||||
goto declare_new_prefix;
|
||||
}
|
||||
attr = attr->next;
|
||||
} while (attr != NULL);
|
||||
}
|
||||
} else {
|
||||
/*
|
||||
* Either no matching ns-prefix was found or the namespace is
|
||||
* shadowed.
|
||||
* Create a new ns-decl on the current result element.
|
||||
*
|
||||
* Hmm, we could also try to reuse an in-scope
|
||||
* namespace with a matching ns-name but a different
|
||||
* ns-prefix.
|
||||
* What has higher priority?
|
||||
* 1) If keeping the prefix: create a new ns-decl.
|
||||
* 2) If reusal: first lookup ns-names; then fallback
|
||||
* to creation of a new ns-decl.
|
||||
* REVISIT: this currently uses case 1) although
|
||||
* the old way was use xmlSearchNsByHref() and to let change
|
||||
* the prefix.
|
||||
*/
|
||||
#if 0
|
||||
ns = xmlSearchNsByHref(target->doc, target, nsName);
|
||||
if (ns != NULL)
|
||||
return(ns);
|
||||
#endif
|
||||
}
|
||||
/*
|
||||
* Create the ns-decl on the current result element.
|
||||
*/
|
||||
ns = xmlNewNs(target, nsName, nsPrefix);
|
||||
/* TODO: check errors */
|
||||
return(ns);
|
||||
} else {
|
||||
/*
|
||||
* This is either the root of the tree or something weird is going on.
|
||||
*/
|
||||
ns = xmlNewNs(target, nsName, nsPrefix);
|
||||
/* TODO: Check result */
|
||||
return(ns);
|
||||
}
|
||||
|
||||
declare_new_prefix:
|
||||
/*
|
||||
* Fallback: we need to generate a new prefix and declare the namespace
|
||||
* on the result element.
|
||||
*/
|
||||
{
|
||||
xmlChar pref[30];
|
||||
int counter = 1;
|
||||
|
||||
if (nsPrefix == NULL) {
|
||||
nsPrefix = "ns";
|
||||
}
|
||||
|
||||
do {
|
||||
snprintf((char *) pref, 30, "%s_%d", nsPrefix, counter++);
|
||||
ns = xmlSearchNs(target->doc, target, BAD_CAST pref);
|
||||
if (counter > 1000) {
|
||||
xsltTransformError(ctxt, NULL, invocNode,
|
||||
"Internal error in xsltAcquireResultInScopeNs(): "
|
||||
"Failed to compute a unique ns-prefix for the "
|
||||
"generated element");
|
||||
return(NULL);
|
||||
}
|
||||
} while (ns != NULL);
|
||||
ns = xmlNewNs(target, nsName, BAD_CAST pref);
|
||||
/* TODO: Check result */
|
||||
return(ns);
|
||||
}
|
||||
return(NULL);
|
||||
}
|
||||
|
||||
/**
|
||||
* xsltGetNamespace:
|
||||
* @ctxt: a transformation context
|
||||
* @cur: the input node
|
||||
* @ns: the namespace
|
||||
* @out: the output node (or its parent)
|
||||
*
|
||||
* Find a matching (prefix and ns-name) ns-declaration
|
||||
* for the requested @ns->prefix and @ns->href in the result tree.
|
||||
* If none is found then a new ns-declaration will be
|
||||
* added to @resultElem. If, in this case, the given prefix is
|
||||
* already in use, then a ns-declaration with a modified ns-prefix
|
||||
* be we created.
|
||||
*
|
||||
* Called by:
|
||||
* - xsltCopyPropList() (*not* anymore)
|
||||
* - xsltShallowCopyElement()
|
||||
* - xsltCopyTreeInternal() (*not* anymore)
|
||||
* - xsltApplySequenceConstructor() (*not* in the refactored code),
|
||||
* - xsltElement() (*not* anymore)
|
||||
*
|
||||
* Returns a namespace declaration or NULL in case of
|
||||
* namespace fixup failures or API or internal errors.
|
||||
*/
|
||||
xmlNsPtr
|
||||
xsltGetNamespace(xsltTransformContextPtr ctxt, xmlNodePtr cur, xmlNsPtr ns,
|
||||
xmlNodePtr out)
|
||||
{
|
||||
|
||||
if (ns == NULL)
|
||||
return(NULL);
|
||||
|
||||
#ifdef XSLT_REFACTORED
|
||||
/*
|
||||
* Namespace exclusion and ns-aliasing is performed at
|
||||
* compilation-time in the refactored code.
|
||||
* Additionally, aliasing is not intended for non Literal
|
||||
* Result Elements.
|
||||
*/
|
||||
return(xsltGetSpecialNamespace(ctxt, cur, ns->href, ns->prefix, out));
|
||||
#else
|
||||
{
|
||||
xsltStylesheetPtr style;
|
||||
const xmlChar *URI = NULL; /* the replacement URI */
|
||||
|
||||
if ((ctxt == NULL) || (cur == NULL) || (out == NULL))
|
||||
return(NULL);
|
||||
|
||||
style = ctxt->style;
|
||||
while (style != NULL) {
|
||||
if (style->nsAliases != NULL)
|
||||
URI = (const xmlChar *)
|
||||
xmlHashLookup(style->nsAliases, ns->href);
|
||||
if (URI != NULL)
|
||||
break;
|
||||
|
||||
style = xsltNextImport(style);
|
||||
}
|
||||
|
||||
|
||||
if (URI == UNDEFINED_DEFAULT_NS) {
|
||||
return(xsltGetSpecialNamespace(ctxt, cur, NULL, NULL, out));
|
||||
#if 0
|
||||
/*
|
||||
* TODO: Removed, since wrong. If there was no default
|
||||
* namespace in the stylesheet then this must resolve to
|
||||
* the NULL namespace.
|
||||
*/
|
||||
xmlNsPtr dflt;
|
||||
dflt = xmlSearchNs(cur->doc, cur, NULL);
|
||||
if (dflt != NULL)
|
||||
URI = dflt->href;
|
||||
else
|
||||
return NULL;
|
||||
#endif
|
||||
} else if (URI == NULL)
|
||||
URI = ns->href;
|
||||
|
||||
return(xsltGetSpecialNamespace(ctxt, cur, URI, ns->prefix, out));
|
||||
}
|
||||
#endif
|
||||
}
|
||||
|
||||
/**
|
||||
* xsltGetPlainNamespace:
|
||||
* @ctxt: a transformation context
|
||||
* @cur: the input node
|
||||
* @ns: the namespace
|
||||
* @out: the result element
|
||||
*
|
||||
* Obsolete.
|
||||
* *Not* called by any Libxslt/Libexslt function.
|
||||
* Exaclty the same as xsltGetNamespace().
|
||||
*
|
||||
* Returns a namespace declaration or NULL in case of
|
||||
* namespace fixup failures or API or internal errors.
|
||||
*/
|
||||
xmlNsPtr
|
||||
xsltGetPlainNamespace(xsltTransformContextPtr ctxt, xmlNodePtr cur,
|
||||
xmlNsPtr ns, xmlNodePtr out)
|
||||
{
|
||||
return(xsltGetNamespace(ctxt, cur, ns, out));
|
||||
}
|
||||
|
||||
/**
|
||||
* xsltCopyNamespaceList:
|
||||
* @ctxt: a transformation context
|
||||
* @node: the target node
|
||||
* @cur: the first namespace
|
||||
*
|
||||
* Do a copy of an namespace list. If @node is non-NULL the
|
||||
* new namespaces are added automatically. This handles namespaces
|
||||
* aliases.
|
||||
* This function is intended only for *internal* use at
|
||||
* transformation-time for copying ns-declarations of Literal
|
||||
* Result Elements.
|
||||
*
|
||||
* Called by:
|
||||
* xsltCopyTreeInternal() (transform.c)
|
||||
* xsltShallowCopyElem() (transform.c)
|
||||
*
|
||||
* REVISIT: This function won't be used in the refactored code.
|
||||
*
|
||||
* Returns: a new xmlNsPtr, or NULL in case of error.
|
||||
*/
|
||||
xmlNsPtr
|
||||
xsltCopyNamespaceList(xsltTransformContextPtr ctxt, xmlNodePtr node,
|
||||
xmlNsPtr cur) {
|
||||
xmlNsPtr ret = NULL, tmp;
|
||||
xmlNsPtr p = NULL,q;
|
||||
|
||||
if (cur == NULL)
|
||||
return(NULL);
|
||||
if (cur->type != XML_NAMESPACE_DECL)
|
||||
return(NULL);
|
||||
|
||||
/*
|
||||
* One can add namespaces only on element nodes
|
||||
*/
|
||||
if ((node != NULL) && (node->type != XML_ELEMENT_NODE))
|
||||
node = NULL;
|
||||
|
||||
while (cur != NULL) {
|
||||
if (cur->type != XML_NAMESPACE_DECL)
|
||||
break;
|
||||
|
||||
/*
|
||||
* Avoid duplicating namespace declarations in the tree if
|
||||
* a matching declaration is in scope.
|
||||
*/
|
||||
if (node != NULL) {
|
||||
if ((node->ns != NULL) &&
|
||||
(xmlStrEqual(node->ns->prefix, cur->prefix)) &&
|
||||
(xmlStrEqual(node->ns->href, cur->href))) {
|
||||
cur = cur->next;
|
||||
continue;
|
||||
}
|
||||
tmp = xmlSearchNs(node->doc, node, cur->prefix);
|
||||
if ((tmp != NULL) && (xmlStrEqual(tmp->href, cur->href))) {
|
||||
cur = cur->next;
|
||||
continue;
|
||||
}
|
||||
}
|
||||
#ifdef XSLT_REFACTORED
|
||||
/*
|
||||
* Namespace exclusion and ns-aliasing is performed at
|
||||
* compilation-time in the refactored code.
|
||||
*/
|
||||
q = xmlNewNs(node, cur->href, cur->prefix);
|
||||
if (p == NULL) {
|
||||
ret = p = q;
|
||||
} else {
|
||||
p->next = q;
|
||||
p = q;
|
||||
}
|
||||
#else
|
||||
/*
|
||||
* TODO: Remove this if the refactored code gets enabled.
|
||||
*/
|
||||
if (!xmlStrEqual(cur->href, XSLT_NAMESPACE)) {
|
||||
const xmlChar *URI;
|
||||
/* TODO apply cascading */
|
||||
URI = (const xmlChar *) xmlHashLookup(ctxt->style->nsAliases,
|
||||
cur->href);
|
||||
if (URI == UNDEFINED_DEFAULT_NS)
|
||||
continue;
|
||||
if (URI != NULL) {
|
||||
q = xmlNewNs(node, URI, cur->prefix);
|
||||
} else {
|
||||
q = xmlNewNs(node, cur->href, cur->prefix);
|
||||
}
|
||||
if (p == NULL) {
|
||||
ret = p = q;
|
||||
} else {
|
||||
p->next = q;
|
||||
p = q;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
cur = cur->next;
|
||||
}
|
||||
return(ret);
|
||||
}
|
||||
|
||||
/**
|
||||
* xsltCopyNamespace:
|
||||
* @ctxt: a transformation context
|
||||
* @elem: the target element node
|
||||
* @ns: the namespace node
|
||||
*
|
||||
* Copies a namespace node (declaration). If @elem is not NULL,
|
||||
* then the new namespace will be declared on @elem.
|
||||
*
|
||||
* Returns: a new xmlNsPtr, or NULL in case of an error.
|
||||
*/
|
||||
xmlNsPtr
|
||||
xsltCopyNamespace(xsltTransformContextPtr ctxt ATTRIBUTE_UNUSED,
|
||||
xmlNodePtr elem, xmlNsPtr ns)
|
||||
{
|
||||
if ((ns == NULL) || (ns->type != XML_NAMESPACE_DECL))
|
||||
return(NULL);
|
||||
/*
|
||||
* One can add namespaces only on element nodes
|
||||
*/
|
||||
if ((elem != NULL) && (elem->type != XML_ELEMENT_NODE))
|
||||
return(xmlNewNs(NULL, ns->href, ns->prefix));
|
||||
else
|
||||
return(xmlNewNs(elem, ns->href, ns->prefix));
|
||||
}
|
||||
|
||||
|
||||
/**
|
||||
* xsltFreeNamespaceAliasHashes:
|
||||
* @style: an XSLT stylesheet
|
||||
*
|
||||
* Free up the memory used by namespaces aliases
|
||||
*/
|
||||
void
|
||||
xsltFreeNamespaceAliasHashes(xsltStylesheetPtr style) {
|
||||
if (style->nsAliases != NULL)
|
||||
xmlHashFree((xmlHashTablePtr) style->nsAliases, NULL);
|
||||
style->nsAliases = NULL;
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue