Upgrade to libxml 2.9.2 and libxslt 1.1.28

third_party/libxslt/libxslt/transform.c

 /*
  * transform.c: Implementation of the XSL Transformation 1.0 engine
  *              transform part, i.e. applying a Stylesheet to a document
  *
  * References:
  *   http://www.w3.org/TR/1999/REC-xslt-19991116
  *
  *   Michael Kay "XSLT Programmer's Reference" pp 637-643
  *   Writing Multiple Output Files
  *
  *   XSLT-1.1 Working Draft
  *   http://www.w3.org/TR/xslt11#multiple-output
  *
  * See Copyright for the status of this software.
  *
  * daniel@veillard.com
  */
 
 #define IN_LIBXSLT
 #include "libxslt.h"
 
 #include <string.h>
+#include <stdio.h>
 
 #include <libxml/xmlmemory.h>
 #include <libxml/parser.h>
 #include <libxml/tree.h>
 #include <libxml/valid.h>
 #include <libxml/hash.h>
 #include <libxml/encoding.h>
 #include <libxml/xmlerror.h>
 #include <libxml/xpath.h>
 #include <libxml/parserInternals.h>
@@ skipping 24 matching lines @@
 #define WITH_XSLT_DEBUG_PROCESS
 #endif
 
 #define XSLT_GENERATE_HTML_DOCTYPE
 #ifdef XSLT_GENERATE_HTML_DOCTYPE
 static int xsltGetHTMLIDs(const xmlChar *version, const xmlChar **publicID,
                           const xmlChar **systemID);
 #endif
 
 int xsltMaxDepth = 3000;
+int xsltMaxVars = 15000;
 
 /*
  * Useful macros
  */
 
 #ifndef FALSE
 # define FALSE (0 == 1)
 # define TRUE (!FALSE)
 #endif
 
@@ skipping 41 matching lines @@
     if (ctxt->templMax == 0) {
         ctxt->templMax = 4;
         ctxt->templTab =
             (xsltTemplatePtr *) xmlMalloc(ctxt->templMax *
                                           sizeof(ctxt->templTab[0]));
         if (ctxt->templTab == NULL) {
             xmlGenericError(xmlGenericErrorContext, "malloc failed !\n");
             return (0);
         }
     }
-    if (ctxt->templNr >= ctxt->templMax) {
+    else if (ctxt->templNr >= ctxt->templMax) {
         ctxt->templMax *= 2;
         ctxt->templTab =
             (xsltTemplatePtr *) xmlRealloc(ctxt->templTab,
                                            ctxt->templMax *
                                            sizeof(ctxt->templTab[0]));
         if (ctxt->templTab == NULL) {
             xmlGenericError(xmlGenericErrorContext, "realloc failed !\n");
             return (0);
         }
     }
@@ skipping 103 matching lines @@
 {
     if (ctxt->profMax == 0) {
         ctxt->profMax = 4;
         ctxt->profTab =
             (long *) xmlMalloc(ctxt->profMax * sizeof(ctxt->profTab[0]));
         if (ctxt->profTab == NULL) {
             xmlGenericError(xmlGenericErrorContext, "malloc failed !\n");
             return (0);
         }
     }
-    if (ctxt->profNr >= ctxt->profMax) {
+    else if (ctxt->profNr >= ctxt->profMax) {
         ctxt->profMax *= 2;
         ctxt->profTab =
             (long *) xmlRealloc(ctxt->profTab,
                                 ctxt->profMax * sizeof(ctxt->profTab[0]));
         if (ctxt->profTab == NULL) {
             xmlGenericError(xmlGenericErrorContext, "realloc failed !\n");
             return (0);
         }
     }
     ctxt->profTab[ctxt->profNr] = value;
@@ skipping 18 matching lines @@
     ctxt->profNr--;
     if (ctxt->profNr > 0)
         ctxt->prof = ctxt->profTab[ctxt->profNr - 1];
     else
         ctxt->prof = (long) 0;
     ret = ctxt->profTab[ctxt->profNr];
     ctxt->profTab[ctxt->profNr] = 0;
     return (ret);
 }
 
+static void
+profCallgraphAdd(xsltTemplatePtr templ, xsltTemplatePtr parent)
+{
+    int i;
+
+    if (templ->templMax == 0) {
+        templ->templMax = 4;
+        templ->templCalledTab =
+            (xsltTemplatePtr *) xmlMalloc(templ->templMax *
+                                          sizeof(templ->templCalledTab[0]));
+        templ->templCountTab =
+            (int *) xmlMalloc(templ->templMax *
+                                          sizeof(templ->templCountTab[0]));
+        if (templ->templCalledTab == NULL || templ->templCountTab == NULL) {
+            xmlGenericError(xmlGenericErrorContext, "malloc failed !\n");
+            return;
+        }
+    }
+    else if (templ->templNr >= templ->templMax) {
+        templ->templMax *= 2;
+        templ->templCalledTab =
+            (xsltTemplatePtr *) xmlRealloc(templ->templCalledTab,
+                                           templ->templMax *
+                                           sizeof(templ->templCalledTab[0]));
+        templ->templCountTab =
+            (int *) xmlRealloc(templ->templCountTab,
+                                           templ->templMax *
+                                           sizeof(templ->templCountTab[0]));
+        if (templ->templCalledTab == NULL || templ->templCountTab == NULL) {
+            xmlGenericError(xmlGenericErrorContext, "realloc failed !\n");
+            return;
+        }
+    }
+
+    for (i = 0; i < templ->templNr; i++) {
+        if (templ->templCalledTab[i] == parent) {
+            templ->templCountTab[i]++;
+            break;
+        }
+    }
+    if (i == templ->templNr) {
+        /* not found, add new one */
+        templ->templCalledTab[templ->templNr] = parent;
+        templ->templCountTab[templ->templNr] = 1;
+        templ->templNr++;
+    }
+}
+
+/**
+ * xsltPreCompEval:
+ * @ctxt: transform context
+ * @node: context node
+ * @comp: precompiled expression
+ *
+ * Evaluate a precompiled XPath expression.
+ */
+static xmlXPathObjectPtr
+xsltPreCompEval(xsltTransformContextPtr ctxt, xmlNodePtr node,
+                xsltStylePreCompPtr comp) {
+    xmlXPathObjectPtr res;
+    xmlXPathContextPtr xpctxt;
+    xmlNodePtr oldXPContextNode;
+    xmlNsPtr *oldXPNamespaces;
+    int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
+
+    xpctxt = ctxt->xpathCtxt;
+    oldXPContextNode = xpctxt->node;
+    oldXPProximityPosition = xpctxt->proximityPosition;
+    oldXPContextSize = xpctxt->contextSize;
+    oldXPNsNr = xpctxt->nsNr;
+    oldXPNamespaces = xpctxt->namespaces;
+
+    xpctxt->node = node;
+#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
+
+    res = xmlXPathCompiledEval(comp->comp, xpctxt);
+
+    xpctxt->node = oldXPContextNode;
+    xpctxt->proximityPosition = oldXPProximityPosition;
+    xpctxt->contextSize = oldXPContextSize;
+    xpctxt->nsNr = oldXPNsNr;
+    xpctxt->namespaces = oldXPNamespaces;
+
+    return(res);
+}
+
+/**
+ * xsltPreCompEvalToBoolean:
+ * @ctxt: transform context
+ * @node: context node
+ * @comp: precompiled expression
+ *
+ * Evaluate a precompiled XPath expression as boolean.
+ */
+static int
+xsltPreCompEvalToBoolean(xsltTransformContextPtr ctxt, xmlNodePtr node,
+                         xsltStylePreCompPtr comp) {
+    int res;
+    xmlXPathContextPtr xpctxt;
+    xmlNodePtr oldXPContextNode;
+    xmlNsPtr *oldXPNamespaces;
+    int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
+
+    xpctxt = ctxt->xpathCtxt;
+    oldXPContextNode = xpctxt->node;
+    oldXPProximityPosition = xpctxt->proximityPosition;
+    oldXPContextSize = xpctxt->contextSize;
+    oldXPNsNr = xpctxt->nsNr;
+    oldXPNamespaces = xpctxt->namespaces;
+
+    xpctxt->node = node;
+#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
+
+    res = xmlXPathCompiledEvalToBoolean(comp->comp, xpctxt);
+
+    xpctxt->node = oldXPContextNode;
+    xpctxt->proximityPosition = oldXPProximityPosition;
+    xpctxt->contextSize = oldXPContextSize;
+    xpctxt->nsNr = oldXPNsNr;
+    xpctxt->namespaces = oldXPNamespaces;
+
+    return(res);
+}
+
 /************************************************************************
  *                                                                      *
  *                      XInclude default settings                       *
  *                                                                      *
  ************************************************************************/
 
 static int xsltDoXIncludeDefault = 0;
 
 /**
  * xsltSetXIncludeDefault:
@@ skipping 148 matching lines @@
     cur->templTab = (xsltTemplatePtr *)
                 xmlMalloc(10 * sizeof(xsltTemplatePtr));
     if (cur->templTab == NULL) {
         xsltTransformError(NULL, NULL, (xmlNodePtr) doc,
                 "xsltNewTransformContext: out of memory\n");
         goto internal_err;
     }
     cur->templNr = 0;
     cur->templMax = 5;
     cur->templ = NULL;
+    cur->maxTemplateDepth = xsltMaxDepth;
 
     /*
      * initialize the variables stack
      */
     cur->varsTab = (xsltStackElemPtr *)
                 xmlMalloc(10 * sizeof(xsltStackElemPtr));
     if (cur->varsTab == NULL) {
         xmlGenericError(xmlGenericErrorContext,
                 "xsltNewTransformContext: out of memory\n");
         goto internal_err;
     }
     cur->varsNr = 0;
     cur->varsMax = 10;
     cur->vars = NULL;
     cur->varsBase = 0;
+    cur->maxTemplateVars = xsltMaxVars;
 
     /*
      * the profiling stack is not initialized by default
      */
     cur->profTab = NULL;
     cur->profNr = 0;
     cur->profMax = 0;
     cur->prof = 0;
 
     cur->style = style;
@@ skipping 235 matching lines @@
     if (string == NULL)
         return(NULL);
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_COPY_TEXT,xsltGenericDebug(xsltGenericDebugContext,
                      "xsltCopyTextString: copy text %s\n",
                      string));
 #endif
 
     /*
-    * Play save and reset the merging mechanism for every new
+    * Play safe and reset the merging mechanism for every new
     * target node.
     */
     if ((target == NULL) || (target->children == NULL)) {
         ctxt->lasttext = NULL;
     }
 
     /* handle coalescing of text nodes here */
     len = xmlStrlen(string);
     if ((ctxt->type == XSLT_OUTPUT_XML) &&
         (ctxt->style->cdataSection != NULL) &&
@@ skipping 2188 matching lines @@
 #endif
 
     if (list == NULL)
         return;
     CHECK_STOPPED;
 
     /*
     * Check for infinite recursion: stop if the maximum of nested templates
     * is excceeded. Adjust xsltMaxDepth if you need more.
     */
-    if (((ctxt->templNr >= xsltMaxDepth) ||
-        (ctxt->varsNr >= 5 * xsltMaxDepth)))
+    if (ctxt->templNr >= ctxt->maxTemplateDepth)
     {
         xsltTransformError(ctxt, NULL, list,
             "xsltApplyXSLTTemplate: A potential infinite template recursion "
             "was detected.\n"
             "You can adjust xsltMaxDepth (--maxdepth) in order to "
             "raise the maximum number of nested template calls and "
             "variables/params (currently set to %d).\n",
-            xsltMaxDepth);
+            ctxt->maxTemplateDepth);
         xsltDebug(ctxt, contextNode, list, NULL);
         return;
     }
 
+    if (ctxt->varsNr >= ctxt->maxTemplateVars)
+        {
+        xsltTransformError(ctxt, NULL, list,
+            "xsltApplyXSLTTemplate: A potential infinite template recursion "
+            "was detected.\n"
+            "You can adjust maxTemplateVars (--maxvars) in order to "
+            "raise the maximum number of variables/params (currently set to %d).\n",
+            ctxt->maxTemplateVars);
+        xsltDebug(ctxt, contextNode, list, NULL);
+        return;
+        }
+
     oldUserFragmentTop = ctxt->tmpRVT;
     ctxt->tmpRVT = NULL;
     oldLocalFragmentTop = ctxt->localRVT;
 
     /*
     * Initiate a distinct scope of local params/variables.
     */
     oldVarsBase = ctxt->varsBase;
     ctxt->varsBase = ctxt->varsNr;
 
     ctxt->node = contextNode;
     if (ctxt->profile) {
         templ->nbCalls++;
         start = xsltTimestamp();
         profPush(ctxt, 0);
+        profCallgraphAdd(templ, ctxt->templ);
     }
     /*
     * Push the xsl:template declaration onto the stack.
     */
     templPush(ctxt, templ);
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     if (templ->name != NULL)
         XSLT_TRACE(ctxt,XSLT_TRACE_APPLY_TEMPLATE,xsltGenericDebug(xsltGenericDebugContext,
         "applying xsl:template '%s'\n", templ->name));
@@ skipping 246 matching lines @@
     xmlDocPtr oldOutput;
     xmlNodePtr oldInsert, root;
     const char *oldOutputFile;
     xsltOutputType oldType;
     xmlChar *URL = NULL;
     const xmlChar *method;
     const xmlChar *doctypePublic;
     const xmlChar *doctypeSystem;
     const xmlChar *version;
     const xmlChar *encoding;
+    int redirect_write_append = 0;
 
     if ((ctxt == NULL) || (node == NULL) || (inst == NULL) || (comp == NULL))
         return;
 
     if (comp->filename == NULL) {
 
         if (xmlStrEqual(inst->name, (const xmlChar *) "output")) {
             /*
             * The element "output" is in the namespace XSLT_SAXON_NAMESPACE
             *   (http://icl.com/saxon)
@@ skipping 395 matching lines @@
             XSLT_GET_IMPORT_PTR(doctypePublic, style, doctypePublic)
                 XSLT_GET_IMPORT_PTR(doctypeSystem, style, doctypeSystem)
                 if (((doctypePublic != NULL) || (doctypeSystem != NULL)))
                 res->intSubset = xmlCreateIntSubset(res, doctype,
                                                     doctypePublic,
                                                     doctypeSystem);
         }
     }
 
     /*
-     * Save the result
+     * Calls to redirect:write also take an optional attribute append.
+     * Attribute append="true|yes" which will attempt to simply append
+     * to an existing file instead of always opening a new file. The
+     * default behavior of always overwriting the file still happens
+     * if we do not specify append.
+     * Note that append use will forbid use of remote URI target.
      */
-    ret = xsltSaveResultToFilename((const char *) filename,
-                                   res, style, 0);
+    prop = xsltEvalAttrValueTemplate(ctxt, inst, (const xmlChar *)"append",
+                                     NULL);
+    if (prop != NULL) {
+        if (xmlStrEqual(prop, (const xmlChar *) "true") ||
+            xmlStrEqual(prop, (const xmlChar *) "yes")) {
+            style->omitXmlDeclaration = 1;
+            redirect_write_append = 1;
+        } else
+            style->omitXmlDeclaration = 0;
+        xmlFree(prop);
+    }
+
+    if (redirect_write_append) {
+        FILE *f;
+
+        f = fopen((const char *) filename, "ab");
+        if (f == NULL) {
+            ret = -1;
+        } else {
+            ret = xsltSaveResultToFile(f, res, style);
+            fclose(f);
+        }
+    } else {
+        ret = xsltSaveResultToFilename((const char *) filename, res, style, 0);
+    }
     if (ret < 0) {
         xsltTransformError(ctxt, NULL, inst,
                          "xsltDocumentElem: unable to save to %s\n",
                          filename);
         ctxt->state = XSLT_STATE_ERROR;
 #ifdef WITH_XSLT_DEBUG_EXTRA
     } else {
         xsltGenericDebug(xsltGenericDebugContext,
                          "Wrote %d bytes to %s\n", ret, filename);
 #endif
@@ skipping 246 matching lines @@
             goto error;
         }
         if (xmlValidateQName(prop, 0)) {
             xsltTransformError(ctxt, NULL, inst,
                 "xsl:element: The effective name '%s' is not a "
                 "valid QName.\n", prop);
             /* we fall through to catch any further errors, if possible */
         }
         name = xsltSplitQName(ctxt->dict, prop, &prefix);
         xmlFree(prop);
-        if ((prefix != NULL) &&
-            (!xmlStrncasecmp(prefix, (xmlChar *)"xml", 3)))
-        {
-            /*
-            * TODO: Should we really disallow an "xml" prefix?
-            */
-            goto error;
-        }
     } else {
         /*
         * The "name" value was static.
         */
 #ifdef XSLT_REFACTORED
         prefix = comp->nsPrefix;
         name = comp->name;
 #else
         name = xsltSplitQName(ctxt->dict, comp->name, &prefix);
 #endif
@@ skipping 34 matching lines @@
             tmpNsName = xsltEvalAttrValueTemplate(ctxt, inst,
                 (const xmlChar *) "namespace", XSLT_NAMESPACE);
             /*
             * SPEC XSLT 1.0:
             *  "If the string is empty, then the expanded-name of the
             *  attribute has a null namespace URI."
             */
             if ((tmpNsName != NULL) && (tmpNsName[0] != 0))
                 nsName = xmlDictLookup(ctxt->dict, BAD_CAST tmpNsName, -1);
             xmlFree(tmpNsName);
-        };
+        }
+
+        if (xmlStrEqual(nsName, BAD_CAST "http://www.w3.org/2000/xmlns/")) {
+            xsltTransformError(ctxt, NULL, inst,
+                "xsl:attribute: Namespace http://www.w3.org/2000/xmlns/ "
+                "forbidden.\n");
+            goto error;
+        }
+        if (xmlStrEqual(nsName, XML_XML_NAMESPACE)) {
+            prefix = BAD_CAST "xml";
+        } else if (xmlStrEqual(prefix, BAD_CAST "xml")) {
+            prefix = NULL;
+        }
     } else {
         xmlNsPtr ns;
         /*
         * SPEC XSLT 1.0:
         *  "If the namespace attribute is not present, then the QName is
         *  expanded into an expanded-name using the namespace declarations
         *  in effect for the xsl:element element, including any default
         *  namespace declaration.
         */
         ns = xmlSearchNs(inst->doc, inst, prefix);
         if (ns == NULL) {
             /*
             * TODO: Check this in the compilation layer in case it's a
             * static value.
             */
-            if (prefix != NULL) {
-                xsltTransformError(ctxt, NULL, inst,
-                    "xsl:element: The QName '%s:%s' has no "
-                    "namespace binding in scope in the stylesheet; "
-                    "this is an error, since the namespace was not "
-                    "specified by the instruction itself.\n", prefix, name);
-            }
+            if (prefix != NULL) {
+                xsltTransformError(ctxt, NULL, inst,
+                    "xsl:element: The QName '%s:%s' has no "
+                    "namespace binding in scope in the stylesheet; "
+                    "this is an error, since the namespace was not "
+                    "specified by the instruction itself.\n", prefix, name);
+            }
         } else
             nsName = ns->href;
     }
     /*
     * Find/create a matching ns-decl in the result tree.
     */
     if (nsName != NULL) {
-        copy->ns = xsltGetSpecialNamespace(ctxt, inst, nsName, prefix, copy);
+        if (xmlStrEqual(prefix, BAD_CAST "xmlns")) {
+            /* Don't use a prefix of "xmlns" */
+            xmlChar *pref = xmlStrdup(BAD_CAST "ns_1");
+
+            copy->ns = xsltGetSpecialNamespace(ctxt, inst, nsName, pref, copy);
+
+            xmlFree(pref);
+        } else {
+            copy->ns = xsltGetSpecialNamespace(ctxt, inst, nsName, prefix,
+                copy);
+        }
     } else if ((copy->parent != NULL) &&
         (copy->parent->type == XML_ELEMENT_NODE) &&
         (copy->parent->ns != NULL))
     {
         /*
         * "Undeclare" the default namespace.
         */
         xsltGetSpecialNamespace(ctxt, inst, NULL, NULL, copy);
     }
 
@@ skipping 152 matching lines @@
 xsltCopyOf(xsltTransformContextPtr ctxt, xmlNodePtr node,
                    xmlNodePtr inst, xsltStylePreCompPtr castedComp) {
 #ifdef XSLT_REFACTORED
     xsltStyleItemCopyOfPtr comp = (xsltStyleItemCopyOfPtr) castedComp;
 #else
     xsltStylePreCompPtr comp = castedComp;
 #endif
     xmlXPathObjectPtr res = NULL;
     xmlNodeSetPtr list = NULL;
     int i;
-    xmlDocPtr oldXPContextDoc;
-    xmlNsPtr *oldXPNamespaces;
-    xmlNodePtr oldXPContextNode;
-    int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
-    xmlXPathContextPtr xpctxt;
 
     if ((ctxt == NULL) || (node == NULL) || (inst == NULL))
         return;
     if ((comp == NULL) || (comp->select == NULL) || (comp->comp == NULL)) {
         xsltTransformError(ctxt, NULL, inst,
              "xsl:copy-of : compilation failed\n");
         return;
     }
 
      /*
@@ skipping 15 matching lines @@
     */
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_COPY_OF,xsltGenericDebug(xsltGenericDebugContext,
          "xsltCopyOf: select %s\n", comp->select));
 #endif
 
     /*
     * Evaluate the "select" expression.
     */
-    xpctxt = ctxt->xpathCtxt;
-    oldXPContextDoc = xpctxt->doc;
-    oldXPContextNode = xpctxt->node;
-    oldXPProximityPosition = xpctxt->proximityPosition;
-    oldXPContextSize = xpctxt->contextSize;
-    oldXPNsNr = xpctxt->nsNr;
-    oldXPNamespaces = xpctxt->namespaces;
-
-    xpctxt->node = node;
-    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;
-    }
-
-    res = xmlXPathCompiledEval(comp->comp, xpctxt);
-
-    xpctxt->doc = oldXPContextDoc;
-    xpctxt->node = oldXPContextNode;
-    xpctxt->contextSize = oldXPContextSize;
-    xpctxt->proximityPosition = oldXPProximityPosition;
-    xpctxt->nsNr = oldXPNsNr;
-    xpctxt->namespaces = oldXPNamespaces;
+    res = xsltPreCompEval(ctxt, node, comp);
 
     if (res != NULL) {
         if (res->type == XPATH_NODESET) {
             /*
             * Node-set
             * --------
             */
 #ifdef WITH_XSLT_DEBUG_PROCESS
             XSLT_TRACE(ctxt,XSLT_TRACE_COPY_OF,xsltGenericDebug(xsltGenericDebugContext,
                  "xsltCopyOf: result is a node set\n"));
@@ skipping 88 matching lines @@
 void
 xsltValueOf(xsltTransformContextPtr ctxt, xmlNodePtr node,
                    xmlNodePtr inst, xsltStylePreCompPtr castedComp)
 {
 #ifdef XSLT_REFACTORED
     xsltStyleItemValueOfPtr comp = (xsltStyleItemValueOfPtr) castedComp;
 #else
     xsltStylePreCompPtr comp = castedComp;
 #endif
     xmlXPathObjectPtr res = NULL;
-    xmlNodePtr copy = NULL;
     xmlChar *value = NULL;
-    xmlDocPtr oldXPContextDoc;
-    xmlNsPtr *oldXPNamespaces;
-    xmlNodePtr oldXPContextNode;
-    int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
-    xmlXPathContextPtr xpctxt;
 
     if ((ctxt == NULL) || (node == NULL) || (inst == NULL))
         return;
 
     if ((comp == NULL) || (comp->select == NULL) || (comp->comp == NULL)) {
         xsltTransformError(ctxt, NULL, inst,
             "Internal error in xsltValueOf(): "
             "The XSLT 'value-of' instruction was not compiled.\n");
         return;
     }
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_VALUE_OF,xsltGenericDebug(xsltGenericDebugContext,
          "xsltValueOf: select %s\n", comp->select));
 #endif
 
-    xpctxt = ctxt->xpathCtxt;
-    oldXPContextDoc = xpctxt->doc;
-    oldXPContextNode = xpctxt->node;
-    oldXPProximityPosition = xpctxt->proximityPosition;
-    oldXPContextSize = xpctxt->contextSize;
-    oldXPNsNr = xpctxt->nsNr;
-    oldXPNamespaces = xpctxt->namespaces;
-
-    xpctxt->node = node;
-    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;
-    }
-
-    res = xmlXPathCompiledEval(comp->comp, xpctxt);
-
-    xpctxt->doc = oldXPContextDoc;
-    xpctxt->node = oldXPContextNode;
-    xpctxt->contextSize = oldXPContextSize;
-    xpctxt->proximityPosition = oldXPProximityPosition;
-    xpctxt->nsNr = oldXPNsNr;
-    xpctxt->namespaces = oldXPNamespaces;
+    res = xsltPreCompEval(ctxt, node, comp);
 
     /*
     * Cast the XPath object to string.
     */
     if (res != NULL) {
         value = xmlXPathCastToString(res);
         if (value == NULL) {
             xsltTransformError(ctxt, NULL, inst,
                 "Internal error in xsltValueOf(): "
                 "failed to cast an XPath object to string.\n");
             ctxt->state = XSLT_STATE_STOPPED;
             goto error;
         }
         if (value[0] != 0) {
-            copy = xsltCopyTextString(ctxt,
-                ctxt->insert, value, comp->noescape);
+            xsltCopyTextString(ctxt, ctxt->insert, value, comp->noescape);
         }
     } else {
         xsltTransformError(ctxt, NULL, inst,
             "XPath evaluation returned no result.\n");
         ctxt->state = XSLT_STATE_STOPPED;
         goto error;
     }
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     if (value) {
@@ skipping 20 matching lines @@
  */
 void
 xsltNumber(xsltTransformContextPtr ctxt, xmlNodePtr node,
            xmlNodePtr inst, xsltStylePreCompPtr castedComp)
 {
 #ifdef XSLT_REFACTORED
     xsltStyleItemNumberPtr comp = (xsltStyleItemNumberPtr) castedComp;
 #else
     xsltStylePreCompPtr comp = castedComp;
 #endif
+    xmlXPathContextPtr xpctxt;
+    xmlNsPtr *oldXPNamespaces;
+    int oldXPNsNr;
+
     if (comp == NULL) {
         xsltTransformError(ctxt, NULL, inst,
              "xsl:number : compilation failed\n");
         return;
     }
 
     if ((ctxt == NULL) || (node == NULL) || (inst == NULL) || (comp == NULL))
         return;
 
     comp->numdata.doc = inst->doc;
     comp->numdata.node = inst;
 
+    xpctxt = ctxt->xpathCtxt;
+    oldXPNsNr = xpctxt->nsNr;
+    oldXPNamespaces = xpctxt->namespaces;
+
+#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
+
     xsltNumberFormat(ctxt, &comp->numdata, node);
+
+    xpctxt->nsNr = oldXPNsNr;
+    xpctxt->namespaces = oldXPNamespaces;
 }
 
 /**
  * xsltApplyImports:
  * @ctxt:  an XSLT transformation context
  * @contextNode:  the current node in the source tree.
  * @inst:  the element node of the XSLT 'apply-imports' instruction
  * @comp:  the compiled instruction
  *
  * Process the XSLT apply-imports element.
@@ skipping 173 matching lines @@
 #ifdef XSLT_REFACTORED
     xsltStyleItemApplyTemplatesPtr comp =
         (xsltStyleItemApplyTemplatesPtr) castedComp;
 #else
     xsltStylePreCompPtr comp = castedComp;
 #endif
     int i;
     xmlNodePtr cur, delNode = NULL, oldContextNode;
     xmlNodeSetPtr list = NULL, oldList;
     xsltStackElemPtr withParams = NULL;
-    int oldXPProximityPosition, oldXPContextSize, oldXPNsNr;
+    int oldXPProximityPosition, oldXPContextSize;
     const xmlChar *oldMode, *oldModeURI;
     xmlDocPtr oldXPDoc;
     xsltDocumentPtr oldDocInfo;
     xmlXPathContextPtr xpctxt;
-    xmlNsPtr *oldXPNamespaces;
 
     if (comp == NULL) {
         xsltTransformError(ctxt, NULL, inst,
              "xsl:apply-templates : compilation failed\n");
         return;
     }
     if ((ctxt == NULL) || (node == NULL) || (inst == NULL) || (comp == NULL))
         return;
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
@@ skipping 13 matching lines @@
     oldList = ctxt->nodeList;
 
     /*
      * The xpath context size and proximity position, as
      * well as the xpath and context documents, may be changed
      * so we save their initial state and will restore on exit
      */
     oldXPContextSize = xpctxt->contextSize;
     oldXPProximityPosition = xpctxt->proximityPosition;
     oldXPDoc = xpctxt->doc;
-    oldXPNsNr = xpctxt->nsNr;
-    oldXPNamespaces = xpctxt->namespaces;
 
     /*
     * Set up contexts.
     */
     ctxt->mode = comp->mode;
     ctxt->modeURI = comp->modeURI;
 
     if (comp->select != NULL) {
         xmlXPathObjectPtr res = NULL;
 
         if (comp->comp == NULL) {
             xsltTransformError(ctxt, NULL, inst,
                  "xsl:apply-templates : compilation failed\n");
             goto error;
         }
 #ifdef WITH_XSLT_DEBUG_PROCESS
         XSLT_TRACE(ctxt,XSLT_TRACE_APPLY_TEMPLATES,xsltGenericDebug(xsltGenericDebugContext,
              "xsltApplyTemplates: select %s\n", comp->select));
 #endif
 
-        /*
-        * Set up XPath.
-        */
-        xpctxt->node = node; /* Set the "context node" */
-#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
-        res = xmlXPathCompiledEval(comp->comp, xpctxt);
+        res = xsltPreCompEval(ctxt, node, comp);
 
-        xpctxt->contextSize = oldXPContextSize;
-        xpctxt->proximityPosition = oldXPProximityPosition;
         if (res != NULL) {
             if (res->type == XPATH_NODESET) {
                 list = res->nodesetval; /* consume the node set */
                 res->nodesetval = NULL;
             } else {
                 xsltTransformError(ctxt, NULL, inst,
                     "The 'select' expression did not evaluate to a "
                     "node set.\n");
                 ctxt->state = XSLT_STATE_STOPPED;
                 xmlXPathFreeObject(res);
@@ skipping 46 matching lines @@
             effectiveDocInfo = list->nodeTab[0]->doc->_private;
         }
 #endif
     } else {
         /*
          * Build an XPath node set with the children
          */
         list = xmlXPathNodeSetCreate(NULL);
         if (list == NULL)
             goto error;
-        cur = node->children;
+        if (node->type != XML_NAMESPACE_DECL)
+            cur = node->children;
+        else
+            cur = NULL;
         while (cur != NULL) {
             switch (cur->type) {
                 case XML_TEXT_NODE:
                     if ((IS_BLANK_NODE(cur)) &&
                         (cur->parent != NULL) &&
                         (cur->parent->type == XML_ELEMENT_NODE) &&
                         (ctxt->style->stripSpaces != NULL)) {
                         const xmlChar *val;
 
                         if (cur->parent->ns != NULL) {
@@ skipping 28 matching lines @@
                     xmlXPathNodeSetAddUnique(list, cur);
                     break;
                 case XML_DTD_NODE:
                     /* Unlink the DTD, it's still reachable
                      * using doc->intSubset */
                     if (cur->next != NULL)
                         cur->next->prev = cur->prev;
                     if (cur->prev != NULL)
                         cur->prev->next = cur->next;
                     break;
+                case XML_NAMESPACE_DECL:
+                    break;
                 default:
 #ifdef WITH_XSLT_DEBUG_PROCESS
                     XSLT_TRACE(ctxt,XSLT_TRACE_APPLY_TEMPLATES,xsltGenericDebug(xsltGenericDebugContext,
                      "xsltApplyTemplates: skipping cur type %d\n",
                                      cur->type));
 #endif
                     delNode = cur;
             }
             cur = cur->next;
             if (delNode != NULL) {
@@ skipping 142 matching lines @@
     /*
     * Free the parameter list.
     */
     if (withParams != NULL)
         xsltFreeStackElemList(withParams);
     if (list != NULL)
         xmlXPathFreeNodeSet(list);
     /*
     * Restore context states.
     */
-    xpctxt->nsNr = oldXPNsNr;
-    xpctxt->namespaces = oldXPNamespaces;
     xpctxt->doc = oldXPDoc;
     xpctxt->contextSize = oldXPContextSize;
     xpctxt->proximityPosition = oldXPProximityPosition;
 
     ctxt->document = oldDocInfo;
     ctxt->nodeList = oldList;
     ctxt->node = oldContextNode;
     ctxt->mode = oldMode;
     ctxt->modeURI = oldModeURI;
 }
@@ skipping 35 matching lines @@
 #else
     if ((! IS_XSLT_ELEM(cur)) || (! IS_XSLT_NAME(cur, "when"))) {
         xsltTransformError(ctxt, NULL, inst,
              "xsl:choose: xsl:when expected first\n");
         return;
     }
 #endif
 
     {
         int testRes = 0, res = 0;
-        xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
-        xmlDocPtr oldXPContextDoc = xpctxt->doc;
-        int oldXPProximityPosition = xpctxt->proximityPosition;
-        int oldXPContextSize = xpctxt->contextSize;
-        xmlNsPtr *oldXPNamespaces = xpctxt->namespaces;
-        int oldXPNsNr = xpctxt->nsNr;
 
 #ifdef XSLT_REFACTORED
         xsltStyleItemWhenPtr wcomp = NULL;
 #else
         xsltStylePreCompPtr wcomp = NULL;
 #endif
 
         /*
         * Process xsl:when ---------------------------------------------------
         */
@@ skipping 16 matching lines @@
                 * TODO: Isn't comp->templ always NULL for xsl:choose?
                 */
                 xslHandleDebugger(cur, contextNode, NULL, ctxt);
             }
 #endif
 #ifdef WITH_XSLT_DEBUG_PROCESS
             XSLT_TRACE(ctxt,XSLT_TRACE_CHOOSE,xsltGenericDebug(xsltGenericDebugContext,
                 "xsltChoose: test %s\n", wcomp->test));
 #endif
 
-            xpctxt->node = contextNode;
-            xpctxt->doc = oldXPContextDoc;
-            xpctxt->proximityPosition = oldXPProximityPosition;
-            xpctxt->contextSize = oldXPContextSize;
-
-#ifdef XSLT_REFACTORED
-            if (wcomp->inScopeNs != NULL) {
-                xpctxt->namespaces = wcomp->inScopeNs->list;
-                xpctxt->nsNr = wcomp->inScopeNs->xpathNumber;
-            } else {
-                xpctxt->namespaces = NULL;
-                xpctxt->nsNr = 0;
-            }
-#else
-            xpctxt->namespaces = wcomp->nsList;
-            xpctxt->nsNr = wcomp->nsNr;
-#endif
-
-
 #ifdef XSLT_FAST_IF
-            res = xmlXPathCompiledEvalToBoolean(wcomp->comp, xpctxt);
+            res = xsltPreCompEvalToBoolean(ctxt, contextNode, wcomp);
 
             if (res == -1) {
                 ctxt->state = XSLT_STATE_STOPPED;
                 goto error;
             }
             testRes = (res == 1) ? 1 : 0;
 
 #else /* XSLT_FAST_IF */
 
-            res = xmlXPathCompiledEval(wcomp->comp, xpctxt);
+            res = xsltPreCompEval(ctxt, cotextNode, wcomp);
 
             if (res != NULL) {
                 if (res->type != XPATH_BOOLEAN)
                     res = xmlXPathConvertBoolean(res);
                 if (res->type == XPATH_BOOLEAN)
                     testRes = res->boolval;
                 else {
 #ifdef WITH_XSLT_DEBUG_PROCESS
                     XSLT_TRACE(ctxt,XSLT_TRACE_CHOOSE,xsltGenericDebug(xsltGenericDebugContext,
                         "xsltChoose: test didn't evaluate to a boolean\n"));
@@ skipping 28 matching lines @@
             if (xslDebugStatus != XSLT_DEBUG_NONE)
                 xslHandleDebugger(cur, contextNode, NULL, ctxt);
 #endif
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
             XSLT_TRACE(ctxt,XSLT_TRACE_CHOOSE,xsltGenericDebug(xsltGenericDebugContext,
                 "evaluating xsl:otherwise\n"));
 #endif
             goto test_is_true;
         }
-        xpctxt->node = contextNode;
-        xpctxt->doc = oldXPContextDoc;
-        xpctxt->proximityPosition = oldXPProximityPosition;
-        xpctxt->contextSize = oldXPContextSize;
-        xpctxt->namespaces = oldXPNamespaces;
-        xpctxt->nsNr = oldXPNsNr;
         goto exit;
 
 test_is_true:
 
-        xpctxt->node = contextNode;
-        xpctxt->doc = oldXPContextDoc;
-        xpctxt->proximityPosition = oldXPProximityPosition;
-        xpctxt->contextSize = oldXPContextSize;
-        xpctxt->namespaces = oldXPNamespaces;
-        xpctxt->nsNr = oldXPNsNr;
         goto process_sequence;
     }
 
 process_sequence:
 
     /*
     * Instantiate the sequence constructor.
     */
     xsltApplySequenceConstructor(ctxt, ctxt->node, cur->children,
         NULL);
@@ skipping 33 matching lines @@
         return;
     }
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_IF,xsltGenericDebug(xsltGenericDebugContext,
          "xsltIf: test %s\n", comp->test));
 #endif
 
 #ifdef XSLT_FAST_IF
     {
-        xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
-        xmlDocPtr oldXPContextDoc = xpctxt->doc;
-        xmlNsPtr *oldXPNamespaces = xpctxt->namespaces;
-        xmlNodePtr oldXPContextNode = xpctxt->node;
-        int oldXPProximityPosition = xpctxt->proximityPosition;
-        int oldXPContextSize = xpctxt->contextSize;
-        int oldXPNsNr = xpctxt->nsNr;
         xmlDocPtr oldLocalFragmentTop = ctxt->localRVT;
 
-        xpctxt->node = contextNode;
-        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;
-        }
-        /*
-        * This XPath function is optimized for boolean results.
-        */
-        res = xmlXPathCompiledEvalToBoolean(comp->comp, xpctxt);
+        res = xsltPreCompEvalToBoolean(ctxt, contextNode, comp);
 
         /*
         * Cleanup fragments created during evaluation of the
         * "select" expression.
         */
         if (oldLocalFragmentTop != ctxt->localRVT)
             xsltReleaseLocalRVTs(ctxt, oldLocalFragmentTop);
-
-        xpctxt->doc = oldXPContextDoc;
-        xpctxt->node = oldXPContextNode;
-        xpctxt->contextSize = oldXPContextSize;
-        xpctxt->proximityPosition = oldXPProximityPosition;
-        xpctxt->nsNr = oldXPNsNr;
-        xpctxt->namespaces = oldXPNamespaces;
     }
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_IF,xsltGenericDebug(xsltGenericDebugContext,
         "xsltIf: test evaluate to %d\n", res));
 #endif
 
     if (res == -1) {
         ctxt->state = XSLT_STATE_STOPPED;
         goto error;
     }
     if (res == 1) {
         /*
         * Instantiate the sequence constructor of xsl:if.
         */
         xsltApplySequenceConstructor(ctxt,
             contextNode, inst->children, NULL);
     }
 
 #else /* XSLT_FAST_IF */
     {
-        xmlXPathObjectPtr xpobj = NULL;
         /*
         * OLD CODE:
         */
-        {
-            xmlXPathContextPtr xpctxt = ctxt->xpathCtxt;
-            xmlDocPtr oldXPContextDoc = xpctxt->doc;
-            xmlNsPtr *oldXPNamespaces = xpctxt->namespaces;
-            xmlNodePtr oldXPContextNode = xpctxt->node;
-            int oldXPProximityPosition = xpctxt->proximityPosition;
-            int oldXPContextSize = xpctxt->contextSize;
-            int oldXPNsNr = xpctxt->nsNr;
-
-            xpctxt->node = contextNode;
-            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;
-            }
-
-            /*
-            * This XPath function is optimized for boolean results.
-            */
-            xpobj = xmlXPathCompiledEval(comp->comp, xpctxt);
-
-            xpctxt->doc = oldXPContextDoc;
-            xpctxt->node = oldXPContextNode;
-            xpctxt->contextSize = oldXPContextSize;
-            xpctxt->proximityPosition = oldXPProximityPosition;
-            xpctxt->nsNr = oldXPNsNr;
-            xpctxt->namespaces = oldXPNamespaces;
-        }
+        xmlXPathObjectPtr xpobj = xsltPreCompEval(ctxt, contextNode, comp);
         if (xpobj != NULL) {
             if (xpobj->type != XPATH_BOOLEAN)
                 xpobj = xmlXPathConvertBoolean(xpobj);
             if (xpobj->type == XPATH_BOOLEAN) {
                 res = xpobj->boolval;
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
                 XSLT_TRACE(ctxt,XSLT_TRACE_IF,xsltGenericDebug(xsltGenericDebugContext,
                     "xsltIf: test evaluate to %d\n", res));
 #endif
@@ skipping 86 matching lines @@
     /*
     * The "current template rule" is cleared for the instantiation of
     * xsl:for-each.
     */
     oldCurTemplRule = ctxt->currentTemplateRule;
     ctxt->currentTemplateRule = NULL;
 
     oldXPDoc = xpctxt->doc;
     oldXPProximityPosition = xpctxt->proximityPosition;
     oldXPContextSize = xpctxt->contextSize;
-    /*
-    * Set up XPath.
-    */
-    xpctxt->node = contextNode;
-#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
 
     /*
     * Evaluate the 'select' expression.
     */
-    res = xmlXPathCompiledEval(comp->comp, ctxt->xpathCtxt);
+    res = xsltPreCompEval(ctxt, contextNode, comp);
 
     if (res != NULL) {
         if (res->type == XPATH_NODESET)
             list = res->nodesetval;
         else {
             xsltTransformError(ctxt, NULL, inst,
                 "The 'select' expression does not evaluate to a node set.\n");
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
             XSLT_TRACE(ctxt,XSLT_TRACE_FOR_EACH,xsltGenericDebug(xsltGenericDebugContext,
@@ skipping 10 matching lines @@
 
     if ((list == NULL) || (list->nodeNr <= 0))
         goto exit;
 
 #ifdef WITH_XSLT_DEBUG_PROCESS
     XSLT_TRACE(ctxt,XSLT_TRACE_FOR_EACH,xsltGenericDebug(xsltGenericDebugContext,
         "xsltForEach: select evaluates to %d nodes\n", list->nodeNr));
 #endif
 
     /*
-    * Restore XPath states for the "current node".
-    */
-    xpctxt->contextSize = oldXPContextSize;
-    xpctxt->proximityPosition = oldXPProximityPosition;
-    xpctxt->node = contextNode;
-
-    /*
     * Set the list; this has to be done already here for xsltDoSortFunction().
     */
     ctxt->nodeList = list;
     /*
     * Handle xsl:sort instructions and skip them for further processing.
     * BUG TODO: We are not using namespaced potentially defined on the
     * xsl:sort element; XPath expression might fail.
     */
     curInst = inst->children;
     if (IS_XSLT_ELEM(curInst) && IS_XSLT_NAME(curInst, "sort")) {
@@ skipping 887 matching lines @@
                            XSLT_NAMESPACE,
                            (xsltTransformFunction) xsltDebug);
     xsltRegisterExtElement(ctxt, (const xmlChar *) "otherwise",
                            XSLT_NAMESPACE,
                            (xsltTransformFunction) xsltDebug);
     xsltRegisterExtElement(ctxt, (const xmlChar *) "fallback",
                            XSLT_NAMESPACE,
                            (xsltTransformFunction) xsltDebug);
 
 }