preproc.h File Reference

#include <libxml/tree.h>
#include "xsltexports.h"
#include "xsltInternals.h"

Include dependency graph for preproc.h:

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Functions
XSLTPUBFUN xsltElemPreCompPtr XSLTCALL	xsltDocumentComp (xsltStylesheetPtr style, xmlNodePtr inst, xsltTransformFunction function)
XSLTPUBFUN void XSLTCALL	xsltStylePreCompute (xsltStylesheetPtr style, xmlNodePtr inst)
XSLTPUBFUN void XSLTCALL	xsltFreeStylePreComps (xsltStylesheetPtr style)

Variables
XSLTPUBVAR const xmlChar *	xsltExtMarker

Function Documentation

xsltDocumentComp()

XSLTPUBFUN xsltElemPreCompPtr XSLTCALL xsltDocumentComp	(	xsltStylesheetPtr	style,
		xmlNodePtr	inst,
		xsltTransformFunction function	ATTRIBUTE_UNUSED
	)

xsltDocumentComp: @style: the XSLT stylesheet @inst: the instruction in the stylesheet @function: unused

Pre process an XSLT-1.1 document element

Returns a precompiled data structure for the element

Definition at line 508 of file preproc.c.

                                                          {
#ifdef XSLT_REFACTORED
    xsltStyleItemDocumentPtr comp;
#else
    xsltStylePreCompPtr comp;
#endif
    const xmlChar *filename = NULL;
 
    /*
    * As of 2006-03-30, this function is currently defined in Libxslt
    * to be used for:
    * (in libxslt/extra.c)
    * "output" in XSLT_SAXON_NAMESPACE
    * "write" XSLT_XALAN_NAMESPACE
    * "document" XSLT_XT_NAMESPACE
    * "document" XSLT_NAMESPACE (from the abandoned old working
    *                            draft of XSLT 1.1)
    * (in libexslt/common.c)
    * "document" in EXSLT_COMMON_NAMESPACE
    */
#ifdef XSLT_REFACTORED
    comp = (xsltStyleItemDocumentPtr)
    xsltNewStylePreComp(style, XSLT_FUNC_DOCUMENT);
#else
    comp = xsltNewStylePreComp(style, XSLT_FUNC_DOCUMENT);
#endif
 
    if (comp == NULL)
    return (NULL);
    comp->inst = inst;
    comp->ver11 = 0;
 
    if (xmlStrEqual(inst->name, (const xmlChar *) "output")) {
#ifdef WITH_XSLT_DEBUG_EXTRA
    xsltGenericDebug(xsltGenericDebugContext,
        "Found saxon:output extension\n");
#endif
    /*
    * The element "output" is in the namespace XSLT_SAXON_NAMESPACE
    *   (http://icl.com/saxon)
    * The @file is in no namespace; it is an AVT.
    *   (http://www.computerwizards.com/saxon/doc/extensions.html#saxon:output)
    *
    * TODO: Do we need not to check the namespace here?
    */
    filename = xsltEvalStaticAttrValueTemplate(style, inst,
             (const xmlChar *)"file",
             NULL, &comp->has_filename);
    } else if (xmlStrEqual(inst->name, (const xmlChar *) "write")) {
#ifdef WITH_XSLT_DEBUG_EXTRA
    xsltGenericDebug(xsltGenericDebugContext,
        "Found xalan:write extension\n");
#endif
    /* the filename need to be interpreted */
    /*
    * TODO: Is "filename need to be interpreted" meant to be a todo?
    *   Where will be the filename of xalan:write be processed?
    *
    * TODO: Do we need not to check the namespace here?
    *   The extension ns is "http://xml.apache.org/xalan/redirect".
    *   See http://xml.apache.org/xalan-j/extensionslib.html.
    */
    } else if (xmlStrEqual(inst->name, (const xmlChar *) "document")) {
    if (inst->ns != NULL) {
        if (xmlStrEqual(inst->ns->href, XSLT_NAMESPACE)) {
        /*
        * Mark the instruction as being of
        * XSLT version 1.1 (abandoned).
        */
        comp->ver11 = 1;
#ifdef WITH_XSLT_DEBUG_EXTRA
        xsltGenericDebug(xsltGenericDebugContext,
            "Found xslt11:document construct\n");
#endif
        } else {
        if (xmlStrEqual(inst->ns->href,
            (const xmlChar *)"http://exslt.org/common")) {
            /* EXSLT. */
#ifdef WITH_XSLT_DEBUG_EXTRA
            xsltGenericDebug(xsltGenericDebugContext,
            "Found exslt:document extension\n");
#endif
        } else if (xmlStrEqual(inst->ns->href, XSLT_XT_NAMESPACE)) {
            /* James Clark's XT. */
#ifdef WITH_XSLT_DEBUG_EXTRA
            xsltGenericDebug(xsltGenericDebugContext,
            "Found xt:document extension\n");
#endif
        }
        }
    }
    /*
    * The element "document" is used in conjunction with the
    * following namespaces:
    *
    * 1) XSLT_NAMESPACE (http://www.w3.org/1999/XSL/Transform version 1.1)
    *    <!ELEMENT xsl:document %template;>
    *    <!ATTLIST xsl:document
    *       href %avt; #REQUIRED
    *    @href is an AVT
    *    IMPORTANT: xsl:document was in the abandoned XSLT 1.1 draft,
    *    it was removed and isn't available in XSLT 1.1 anymore.
    *    In XSLT 2.0 it was renamed to xsl:result-document.
    *
    *   All other attributes are identical to the attributes
    *   on xsl:output
    *
    * 2) EXSLT_COMMON_NAMESPACE (http://exslt.org/common)
    *    <exsl:document
    *       href = { uri-reference }
    *    TODO: is @href is an AVT?
    *
    * 3) XSLT_XT_NAMESPACE (http://www.jclark.com/xt)
    *     Example: <xt:document method="xml" href="myFile.xml">
    *    TODO: is @href is an AVT?
    *
    * In all cases @href is in no namespace.
    */
    filename = xsltEvalStaticAttrValueTemplate(style, inst,
        (const xmlChar *)"href", NULL, &comp->has_filename);
    }
    if (!comp->has_filename) {
    goto error;
    }
    comp->filename = filename;
 
error:
    return ((xsltElemPreCompPtr) comp);
}

Referenced by xsltRegisterAllExtras(), and xsltStylePreCompute().

xsltFreeStylePreComps()

XSLTPUBFUN void XSLTCALL xsltFreeStylePreComps

(

xsltStylesheetPtr

style

)

xsltFreeStylePreComps: @style: an XSLT transformation context

Free up the memory allocated by all precomputed blocks

Definition at line 1937 of file preproc.c.

                                               {
    xsltElemPreCompPtr cur, next;
 
    if (style == NULL)
    return;
 
    cur = style->preComps;
    while (cur != NULL) {
    next = cur->next;
    if (cur->type == XSLT_FUNC_EXTENSION)
        cur->free(cur);
    else
        xsltFreeStylePreComp((xsltStylePreCompPtr) cur);
    cur = next;
    }
}

Referenced by xsltFreeStylesheet().

xsltStylePreCompute()

XSLTPUBFUN void XSLTCALL xsltStylePreCompute	(	xsltStylesheetPtr	style,
		xmlNodePtr	inst
	)

xsltStylePreCompute: @style: the XSLT stylesheet @inst: the instruction in the stylesheet

Precompute an XSLT stylesheet element

Definition at line 2177 of file preproc.c.

                                                              {
    /*
    * URGENT TODO: Normally inst->psvi Should never be reserved here,
    *   BUT: since if we include the same stylesheet from
    *   multiple imports, then the stylesheet will be parsed
    *   again. We simply must not try to compute the stylesheet again.
    * TODO: Get to the point where we don't need to query the
    *   namespace- and local-name of the node, but can evaluate this
    *   using cctxt->style->inode->category;
    */
    if ((inst == NULL) || (inst->type != XML_ELEMENT_NODE) ||
        (inst->psvi != NULL))
    return;
 
    if (IS_XSLT_ELEM(inst)) {
    xsltStylePreCompPtr cur;
 
    if (IS_XSLT_NAME(inst, "apply-templates")) {
        xsltCheckInstructionElement(style, inst);
        xsltApplyTemplatesComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "with-param")) {
        xsltCheckParentElement(style, inst, BAD_CAST "apply-templates",
                               BAD_CAST "call-template");
        xsltWithParamComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "value-of")) {
        xsltCheckInstructionElement(style, inst);
        xsltValueOfComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "copy")) {
        xsltCheckInstructionElement(style, inst);
        xsltCopyComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "copy-of")) {
        xsltCheckInstructionElement(style, inst);
        xsltCopyOfComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "if")) {
        xsltCheckInstructionElement(style, inst);
        xsltIfComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "when")) {
        xsltCheckParentElement(style, inst, BAD_CAST "choose", NULL);
        xsltWhenComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "choose")) {
        xsltCheckInstructionElement(style, inst);
        xsltChooseComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "for-each")) {
        xsltCheckInstructionElement(style, inst);
        xsltForEachComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "apply-imports")) {
        xsltCheckInstructionElement(style, inst);
        xsltApplyImportsComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "attribute")) {
        xmlNodePtr parent = inst->parent;
 
        if ((parent == NULL) ||
            (parent->type != XML_ELEMENT_NODE) || (parent->ns == NULL) ||
        ((parent->ns != inst->ns) &&
         (!xmlStrEqual(parent->ns->href, inst->ns->href))) ||
        (!xmlStrEqual(parent->name, BAD_CAST "attribute-set"))) {
        xsltCheckInstructionElement(style, inst);
        }
        xsltAttributeComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "element")) {
        xsltCheckInstructionElement(style, inst);
        xsltElementComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "text")) {
        xsltCheckInstructionElement(style, inst);
        xsltTextComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "sort")) {
        xsltCheckParentElement(style, inst, BAD_CAST "apply-templates",
                               BAD_CAST "for-each");
        xsltSortComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "comment")) {
        xsltCheckInstructionElement(style, inst);
        xsltCommentComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "number")) {
        xsltCheckInstructionElement(style, inst);
        xsltNumberComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "processing-instruction")) {
        xsltCheckInstructionElement(style, inst);
        xsltProcessingInstructionComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "call-template")) {
        xsltCheckInstructionElement(style, inst);
        xsltCallTemplateComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "param")) {
        if (xsltCheckTopLevelElement(style, inst, 0) == 0)
            xsltCheckInstructionElement(style, inst);
        xsltParamComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "variable")) {
        if (xsltCheckTopLevelElement(style, inst, 0) == 0)
            xsltCheckInstructionElement(style, inst);
        xsltVariableComp(style, inst);
    } else if (IS_XSLT_NAME(inst, "otherwise")) {
        xsltCheckParentElement(style, inst, BAD_CAST "choose", NULL);
        xsltCheckInstructionElement(style, inst);
        return;
    } else if (IS_XSLT_NAME(inst, "template")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "output")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "preserve-space")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "strip-space")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if ((IS_XSLT_NAME(inst, "stylesheet")) ||
               (IS_XSLT_NAME(inst, "transform"))) {
        xmlNodePtr parent = inst->parent;
 
        if ((parent == NULL) || (parent->type != XML_DOCUMENT_NODE)) {
        xsltTransformError(NULL, style, inst,
            "element %s only allowed only as root element\n",
                   inst->name);
        style->errors++;
        }
        return;
    } else if (IS_XSLT_NAME(inst, "key")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "message")) {
        xsltCheckInstructionElement(style, inst);
        return;
    } else if (IS_XSLT_NAME(inst, "attribute-set")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "namespace-alias")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "include")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "import")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "decimal-format")) {
        xsltCheckTopLevelElement(style, inst, 1);
        return;
    } else if (IS_XSLT_NAME(inst, "fallback")) {
        xsltCheckInstructionElement(style, inst);
        return;
    } else if (IS_XSLT_NAME(inst, "document")) {
        xsltCheckInstructionElement(style, inst);
        inst->psvi = (void *) xsltDocumentComp(style, inst,
                xsltDocumentElem);
    } else if ((style == NULL) || (style->forwards_compatible == 0)) {
        xsltTransformError(NULL, style, inst,
         "xsltStylePreCompute: unknown xsl:%s\n", inst->name);
        if (style != NULL) style->warnings++;
    }
 
    cur = (xsltStylePreCompPtr) inst->psvi;
    /*
    * A ns-list is build for every XSLT item in the
    * node-tree. This is needed for XPath expressions.
    */
    if (cur != NULL) {
        int i = 0;
 
        cur->nsList = xmlGetNsList(inst->doc, inst);
            if (cur->nsList != NULL) {
        while (cur->nsList[i] != NULL)
            i++;
        }
        cur->nsNr = i;
    }
    } else {
    inst->psvi =
        (void *) xsltPreComputeExtModuleElement(style, inst);
 
    /*
     * Unknown element, maybe registered at the context
     * level. Mark it for later recognition.
     */
    if (inst->psvi == NULL)
        inst->psvi = (void *) xsltExtMarker;
    }
}

Referenced by xsltParseGlobalParam(), xsltParseGlobalVariable(), xsltParseStylesheetAttributeSet(), and xsltParseTemplateContent().

Variable Documentation

xsltExtMarker

XSLTPUBVAR const xmlChar* xsltExtMarker

Definition at line 25 of file preproc.h.