keys.c File Reference

#include "libxslt.h"
#include <string.h>
#include <libxml/xmlmemory.h>
#include <libxml/tree.h>
#include <libxml/valid.h>
#include <libxml/hash.h>
#include <libxml/xmlerror.h>
#include <libxml/parserInternals.h>
#include <libxml/xpathInternals.h>
#include <libxml/xpath.h>
#include "xslt.h"
#include "xsltInternals.h"
#include "xsltutils.h"
#include "imports.h"
#include "templates.h"
#include "keys.h"

Include dependency graph for keys.c:

Go to the source code of this file.

Macros
#define	IN_LIBXSLT

Functions
: the key name or NULL
xsltGetKey: @ctxt: an XSLT transformation context @nameURI: the name URI or NULL @value: the key value to look for Looks up a key of the in current source doc (the document info on @ctxt->document). Computes the key if not already done for the current source doc. Returns the nodeset resulting from the query or NULL
static int	xsltInitDocKeyTable (xsltTransformContextPtr ctxt, const xmlChar *name, const xmlChar *nameURI)
static xsltKeyDefPtr	xsltNewKeyDef (const xmlChar *name, const xmlChar *nameURI)
static void	xsltFreeKeyDef (xsltKeyDefPtr keyd)
static void	xsltFreeKeyDefList (xsltKeyDefPtr keyd)
static xsltKeyTablePtr	xsltNewKeyTable (const xmlChar *name, const xmlChar *nameURI)
static void	xsltFreeNodeSetEntry (void *payload, const xmlChar *name ATTRIBUTE_UNUSED)
static void	xsltFreeKeyTable (xsltKeyTablePtr keyt)
static void	xsltFreeKeyTableList (xsltKeyTablePtr keyt)
void	xsltFreeKeys (xsltStylesheetPtr style)
static int	skipString (const xmlChar *cur, int end)
static int	skipPredicate (const xmlChar *cur, int end)
int	xsltAddKey (xsltStylesheetPtr style, const xmlChar *name, const xmlChar *nameURI, const xmlChar *match, const xmlChar *use, xmlNodePtr inst)
xmlNodeSetPtr	xsltGetKey (xsltTransformContextPtr ctxt, const xmlChar *name, const xmlChar *nameURI, const xmlChar *value)
int	xsltInitAllDocKeys (xsltTransformContextPtr ctxt)
int	xsltInitCtxtKey (xsltTransformContextPtr ctxt, xsltDocumentPtr idoc, xsltKeyDefPtr keyDef)
void	xsltInitCtxtKeys (xsltTransformContextPtr ctxt, xsltDocumentPtr idoc)
void	xsltFreeDocumentKeys (xsltDocumentPtr idoc)

Macro Definition Documentation

IN_LIBXSLT

#define IN_LIBXSLT

Definition at line 12 of file keys.c.

Function Documentation

skipPredicate()

static int skipPredicate ( const xmlChar *  cur, int  end  )

static

skipPredicate: @cur: the current pointer @end: the current offset

skip a predicate

Returns the byte after the predicate or -1 in case of error

Definition at line 243 of file keys.c.

                                           {
    int level = 0;
 
    if ((cur == NULL) || (end < 0)) return(-1);
    if (cur[end] != '[') return(end);
    end++;
    while (cur[end] != 0) {
        if ((cur[end] == '\'') || (cur[end] == '"')) {
        end = skipString(cur, end);
        if (end <= 0)
            return(-1);
        continue;
    } else if (cur[end] == '[') {
            level += 1;
    } else if (cur[end] == ']') {
            if (level == 0)
            return(end + 1);
            level -= 1;
        }
    end++;
    }
    return(-1);
}

Referenced by xsltAddKey().

skipString()

static int skipString ( const xmlChar *  cur, int  end  )

static

skipString: @cur: the current pointer @end: the current offset

skip a string delimited by " or '

Returns the byte after the string or -1 in case of error

Definition at line 218 of file keys.c.

                                        {
    xmlChar limit;
 
    if ((cur == NULL) || (end < 0)) return(-1);
    if ((cur[end] == '\'') || (cur[end] == '"')) limit = cur[end];
    else return(end);
    end++;
    while (cur[end] != 0) {
        if (cur[end] == limit)
        return(end + 1);
    end++;
    }
    return(-1);
}

Referenced by skipPredicate().

xsltAddKey()

int xsltAddKey	(	xsltStylesheetPtr	style,
		const xmlChar *	name,
		const xmlChar *	nameURI,
		const xmlChar *	match,
		const xmlChar *	use,
		xmlNodePtr	inst
	)

Definition at line 281 of file keys.c.

                                            {
    xsltKeyDefPtr key;
    xmlChar *pattern = NULL;
    int current, end, start, i = 0;
 
    if ((style == NULL) || (name == NULL) || (match == NULL) || (use == NULL))
    return(-1);
 
#ifdef WITH_XSLT_DEBUG_KEYS
    xsltGenericDebug(xsltGenericDebugContext,
    "Add key %s, match %s, use %s\n", name, match, use);
#endif
 
    key = xsltNewKeyDef(name, nameURI);
    if (key == NULL)
        return(-1);
    key->match = xmlStrdup(match);
    key->use = xmlStrdup(use);
    key->inst = inst;
    key->nsList = xmlGetNsList(inst->doc, inst);
    if (key->nsList != NULL) {
        while (key->nsList[i] != NULL)
        i++;
    }
    key->nsNr = i;
 
    /*
     * Split the | and register it as as many keys
     */
    current = end = 0;
    while (match[current] != 0) {
    start = current;
    while (xmlIsBlank_ch(match[current]))
        current++;
    end = current;
    while ((match[end] != 0) && (match[end] != '|')) {
        if (match[end] == '[') {
            end = skipPredicate(match, end);
        if (end <= 0) {
            xsltTransformError(NULL, style, inst,
                "xsl:key : 'match' pattern is malformed: %s",
                key->match);
            if (style != NULL) style->errors++;
            goto error;
        }
        } else
        end++;
    }
    if (current == end) {
        xsltTransformError(NULL, style, inst,
                   "xsl:key : 'match' pattern is empty\n");
        if (style != NULL) style->errors++;
        goto error;
    }
    if (match[start] != '/') {
        pattern = xmlStrcat(pattern, (xmlChar *)"//");
        if (pattern == NULL) {
        if (style != NULL) style->errors++;
        goto error;
        }
    }
    pattern = xmlStrncat(pattern, &match[start], end - start);
    if (pattern == NULL) {
        if (style != NULL) style->errors++;
        goto error;
    }
 
    if (match[end] == '|') {
        pattern = xmlStrcat(pattern, (xmlChar *)"|");
        end++;
    }
    current = end;
    }
    if (pattern == NULL) {
        xsltTransformError(NULL, style, inst,
                           "xsl:key : 'match' pattern is empty\n");
        if (style != NULL) style->errors++;
        goto error;
    }
#ifdef WITH_XSLT_DEBUG_KEYS
    xsltGenericDebug(xsltGenericDebugContext,
    "   resulting pattern %s\n", pattern);
#endif
    /*
    * XSLT-1: "It is an error for the value of either the use
    *  attribute or the match attribute to contain a
    *  VariableReference."
    * TODO: We should report a variable-reference at compile-time.
    *   Maybe a search for "$", if it occurs outside of quotation
    *   marks, could be sufficient.
    */
#ifdef XML_XPATH_NOVAR
    key->comp = xsltXPathCompileFlags(style, pattern, XML_XPATH_NOVAR);
#else
    key->comp = xsltXPathCompile(style, pattern);
#endif
    if (key->comp == NULL) {
    xsltTransformError(NULL, style, inst,
        "xsl:key : 'match' pattern compilation failed '%s'\n",
                 pattern);
    if (style != NULL) style->errors++;
    }
#ifdef XML_XPATH_NOVAR
    key->usecomp = xsltXPathCompileFlags(style, use, XML_XPATH_NOVAR);
#else
    key->usecomp = xsltXPathCompile(style, use);
#endif
    if (key->usecomp == NULL) {
    xsltTransformError(NULL, style, inst,
        "xsl:key : 'use' expression compilation failed '%s'\n",
                 use);
    if (style != NULL) style->errors++;
    }
 
    /*
     * Sometimes the stylesheet writer use the order to ease the
     * resolution of keys when they are dependant, keep the provided
     * order so add the new one at the end.
     */
    if (style->keys == NULL) {
    style->keys = key;
    } else {
        xsltKeyDefPtr prev = style->keys;
 
    while (prev->next != NULL)
        prev = prev->next;
 
    prev->next = key;
    }
    key->next = NULL;
    key = NULL;
 
error:
    if (pattern != NULL)
    xmlFree(pattern);
    if (key != NULL)
        xsltFreeKeyDef(key);
    return(0);
}

Referenced by xsltParseStylesheetKey().

xsltFreeDocumentKeys()

void xsltFreeDocumentKeys

(

xsltDocumentPtr

idoc

)

xsltFreeDocumentKeys: @idoc: a XSLT document

Free the keys associated to a document

Definition at line 931 of file keys.c.

                                           {
    if (idoc != NULL)
        xsltFreeKeyTableList(idoc->keys);
}

Referenced by xsltFreeDocuments(), xsltFreeRVTs(), xsltFreeStyleDocuments(), xsltReleaseRVT(), and xsltTransformCacheFree().

xsltFreeKeyDef()

static void xsltFreeKeyDef ( xsltKeyDefPtr  keyd )

static

xsltFreeKeyDef: @keyd: an XSLT key definition

Free up the memory allocated by @keyd

Definition at line 81 of file keys.c.

                                   {
    if (keyd == NULL)
    return;
    if (keyd->comp != NULL)
    xmlXPathFreeCompExpr(keyd->comp);
    if (keyd->usecomp != NULL)
    xmlXPathFreeCompExpr(keyd->usecomp);
    if (keyd->name != NULL)
    xmlFree(keyd->name);
    if (keyd->nameURI != NULL)
    xmlFree(keyd->nameURI);
    if (keyd->match != NULL)
    xmlFree(keyd->match);
    if (keyd->use != NULL)
    xmlFree(keyd->use);
    if (keyd->nsList != NULL)
        xmlFree(keyd->nsList);
    memset(keyd, -1, sizeof(xsltKeyDef));
    xmlFree(keyd);
}

Referenced by xsltAddKey(), and xsltFreeKeyDefList().

xsltFreeKeyDefList()

static void xsltFreeKeyDefList ( xsltKeyDefPtr  keyd )

static

xsltFreeKeyDefList: @keyd: an XSLT key definition list

Free up the memory allocated by all the elements of @keyd

Definition at line 109 of file keys.c.

                                       {
    xsltKeyDefPtr cur;
 
    while (keyd != NULL) {
    cur = keyd;
    keyd = keyd->next;
    xsltFreeKeyDef(cur);
    }
}

Referenced by xsltFreeKeys().

xsltFreeKeys()

void xsltFreeKeys

(

xsltStylesheetPtr

style

)

xsltFreeKeys: @style: an XSLT stylesheet

Free up the memory used by XSLT keys in a stylesheet

Definition at line 203 of file keys.c.

                                      {
    if (style->keys)
    xsltFreeKeyDefList((xsltKeyDefPtr) style->keys);
}

Referenced by xsltFreeStylesheet().

xsltFreeKeyTable()

static void xsltFreeKeyTable ( xsltKeyTablePtr  keyt )

static

xsltFreeKeyTable: @keyt: an XSLT key table

Free up the memory allocated by @keyt

Definition at line 159 of file keys.c.

                                       {
    if (keyt == NULL)
    return;
    if (keyt->name != NULL)
    xmlFree(keyt->name);
    if (keyt->nameURI != NULL)
    xmlFree(keyt->nameURI);
    if (keyt->keys != NULL)
    xmlHashFree(keyt->keys, xsltFreeNodeSetEntry);
    memset(keyt, -1, sizeof(xsltKeyTable));
    xmlFree(keyt);
}

Referenced by xsltFreeKeyTableList().

xsltFreeKeyTableList()

static void xsltFreeKeyTableList ( xsltKeyTablePtr  keyt )

static

xsltFreeKeyTableList: @keyt: an XSLT key table list

Free up the memory allocated by all the elements of @keyt

Definition at line 179 of file keys.c.

                                           {
    xsltKeyTablePtr cur;
 
    while (keyt != NULL) {
    cur = keyt;
    keyt = keyt->next;
    xsltFreeKeyTable(cur);
    }
}

Referenced by xsltFreeDocumentKeys().

xsltFreeNodeSetEntry()

static void xsltFreeNodeSetEntry ( void *  payload, const xmlChar *name  ATTRIBUTE_UNUSED  )

static

Definition at line 148 of file keys.c.

                                                                          {
    xmlXPathFreeNodeSet((xmlNodeSetPtr) payload);
}

Referenced by xsltFreeKeyTable().

xsltGetKey()

xmlNodeSetPtr xsltGetKey	(	xsltTransformContextPtr	ctxt,
		const xmlChar *	name,
		const xmlChar *	nameURI,
		const xmlChar *	value
	)

Definition at line 437 of file keys.c.

                                                     {
    xmlNodeSetPtr ret;
    xsltKeyTablePtr table;
    int init_table = 0;
 
    if ((ctxt == NULL) || (name == NULL) || (value == NULL) ||
    (ctxt->document == NULL))
    return(NULL);
 
#ifdef WITH_XSLT_DEBUG_KEYS
    xsltGenericDebug(xsltGenericDebugContext,
    "Get key %s, value %s\n", name, value);
#endif
 
    /*
     * keys are computed only on-demand on first key access for a document
     */
    if ((ctxt->document->nbKeysComputed < ctxt->nbKeys) &&
        (ctxt->keyInitLevel == 0)) {
        /*
     * If non-recursive behaviour, just try to initialize all keys
     */
    if (xsltInitAllDocKeys(ctxt))
        return(NULL);
    }
 
retry:
    table = (xsltKeyTablePtr) ctxt->document->keys;
    while (table != NULL) {
    if (((nameURI != NULL) == (table->nameURI != NULL)) &&
        xmlStrEqual(table->name, name) &&
        xmlStrEqual(table->nameURI, nameURI))
    {
        ret = (xmlNodeSetPtr)xmlHashLookup(table->keys, value);
        return(ret);
    }
    table = table->next;
    }
 
    if ((ctxt->keyInitLevel != 0) && (init_table == 0)) {
        /*
     * Apparently one key is recursive and this one is needed,
     * initialize just it, that time and retry
     */
        xsltInitDocKeyTable(ctxt, name, nameURI);
    init_table = 1;
    goto retry;
    }
 
    return(NULL);
}

Referenced by xsltKeyFunction(), and xsltTestStepMatch().

xsltInitAllDocKeys()

int xsltInitAllDocKeys

(

xsltTransformContextPtr

ctxt

)

xsltInitAllDocKeys: @ctxt: transformation context

INTERNAL ROUTINE ONLY

Check if any keys on the current document need to be computed

Returns 0 in case of success, -1 in case of failure

Definition at line 555 of file keys.c.

{
    xsltStylesheetPtr style;
    xsltKeyDefPtr keyd;
    xsltKeyTablePtr table;
 
    if (ctxt == NULL)
    return(-1);
 
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitAllDocKeys %d %d\n",
        ctxt->document->nbKeysComputed, ctxt->nbKeys);
#endif
 
    if (ctxt->document->nbKeysComputed == ctxt->nbKeys)
    return(0);
 
 
    /*
    * TODO: This could be further optimized
    */
    style = ctxt->style;
    while (style) {
    keyd = (xsltKeyDefPtr) style->keys;
    while (keyd != NULL) {
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "Init key %s\n", keyd->name);
#endif
        /*
        * Check if keys with this QName have been already
        * computed.
        */
        table = (xsltKeyTablePtr) ctxt->document->keys;
        while (table) {
        if (((keyd->nameURI != NULL) == (table->nameURI != NULL)) &&
            xmlStrEqual(keyd->name, table->name) &&
            xmlStrEqual(keyd->nameURI, table->nameURI))
        {
            break;
        }
        table = table->next;
        }
        if (table == NULL) {
        /*
        * Keys with this QName have not been yet computed.
        */
        xsltInitDocKeyTable(ctxt, keyd->name, keyd->nameURI);
        }
        keyd = keyd->next;
    }
    style = xsltNextImport(style);
    }
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitAllDocKeys: done\n");
#endif
    return(0);
}

Referenced by xsltComputeAllKeys(), and xsltGetKey().

xsltInitCtxtKey()

int xsltInitCtxtKey	(	xsltTransformContextPtr	ctxt,
		xsltDocumentPtr	idoc,
		xsltKeyDefPtr	keyDef
	)

xsltInitCtxtKey: @ctxt: an XSLT transformation context @idoc: the document information (holds key values) @keyDef: the key definition

Computes the key tables this key and for the current input document.

Returns: 0 on success, -1 on error

Multiple key definitions for the same name are allowed, so we must check if the key is already present for this doc

If the key was not previously defined, create it now and chain it to the list of keys for the doc

Definition at line 624 of file keys.c.

{
    int i, len, k;
    xmlNodeSetPtr matchList = NULL, keylist;
    xmlXPathObjectPtr matchRes = NULL, useRes = NULL;
    xmlChar *str = NULL;
    xsltKeyTablePtr table;
    xmlNodePtr oldInst, cur;
    xmlNodePtr oldContextNode;
    xsltDocumentPtr oldDocInfo;
    int oldXPPos, oldXPSize;
    xmlNodePtr oldXPNode;
    xmlDocPtr oldXPDoc;
    int oldXPNsNr;
    xmlNsPtr *oldXPNamespaces;
    xmlXPathContextPtr xpctxt;
 
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitCtxtKey %s : %d\n", keyDef->name, ctxt->keyInitLevel);
#endif
 
    if ((keyDef->comp == NULL) || (keyDef->usecomp == NULL))
    return(-1);
 
    /*
     * Detect recursive keys
     */
    if (ctxt->keyInitLevel > ctxt->nbKeys) {
#ifdef WITH_XSLT_DEBUG_KEYS
    XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,
               xsltGenericDebug(xsltGenericDebugContext,
               "xsltInitCtxtKey: key definition of %s is recursive\n",
               keyDef->name));
#endif
    xsltTransformError(ctxt, NULL, keyDef->inst,
        "Key definition for %s is recursive\n", keyDef->name);
    ctxt->state = XSLT_STATE_STOPPED;
        return(-1);
    }
    ctxt->keyInitLevel++;
 
    xpctxt = ctxt->xpathCtxt;
    idoc->nbKeysComputed++;
    /*
    * Save context state.
    */
    oldInst = ctxt->inst;
    oldDocInfo = ctxt->document;
    oldContextNode = ctxt->node;
 
    oldXPNode = xpctxt->node;
    oldXPDoc = xpctxt->doc;
    oldXPPos = xpctxt->proximityPosition;
    oldXPSize = xpctxt->contextSize;
    oldXPNsNr = xpctxt->nsNr;
    oldXPNamespaces = xpctxt->namespaces;
 
    /*
    * Set up contexts.
    */
    ctxt->document = idoc;
    ctxt->node = (xmlNodePtr) idoc->doc;
    ctxt->inst = keyDef->inst;
 
    xpctxt->doc = idoc->doc;
    xpctxt->node = (xmlNodePtr) idoc->doc;
    /* TODO : clarify the use of namespaces in keys evaluation */
    xpctxt->namespaces = keyDef->nsList;
    xpctxt->nsNr = keyDef->nsNr;
 
    /*
    * Evaluate the 'match' expression of the xsl:key.
    * TODO: The 'match' is a *pattern*.
    */
    matchRes = xmlXPathCompiledEval(keyDef->comp, xpctxt);
    if (matchRes == NULL) {
 
#ifdef WITH_XSLT_DEBUG_KEYS
    XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext,
         "xsltInitCtxtKey: %s evaluation failed\n", keyDef->match));
#endif
    xsltTransformError(ctxt, NULL, keyDef->inst,
        "Failed to evaluate the 'match' expression.\n");
    ctxt->state = XSLT_STATE_STOPPED;
    goto error;
    } else {
    if (matchRes->type == XPATH_NODESET) {
        matchList = matchRes->nodesetval;
 
#ifdef WITH_XSLT_DEBUG_KEYS
        if (matchList != NULL)
        XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext,
             "xsltInitCtxtKey: %s evaluates to %d nodes\n",
                 keyDef->match, matchList->nodeNr));
#endif
    } else {
        /*
        * Is not a node set, but must be.
        */
#ifdef WITH_XSLT_DEBUG_KEYS
        XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext,
         "xsltInitCtxtKey: %s is not a node set\n", keyDef->match));
#endif
        xsltTransformError(ctxt, NULL, keyDef->inst,
        "The 'match' expression did not evaluate to a node set.\n");
        ctxt->state = XSLT_STATE_STOPPED;
        goto error;
    }
    }
    if ((matchList == NULL) || (matchList->nodeNr <= 0))
    goto exit;
 
    table = (xsltKeyTablePtr) idoc->keys;
    while (table != NULL) {
        if (xmlStrEqual(table->name, keyDef->name) &&
        (((keyDef->nameURI == NULL) && (table->nameURI == NULL)) ||
         ((keyDef->nameURI != NULL) && (table->nameURI != NULL) &&
          (xmlStrEqual(table->nameURI, keyDef->nameURI)))))
        break;
    table = table->next;
    }
    if (table == NULL) {
        table = xsltNewKeyTable(keyDef->name, keyDef->nameURI);
        if (table == NULL)
        goto error;
        table->next = idoc->keys;
        idoc->keys = table;
    }
 
    /*
    * SPEC XSLT 1.0 (XSLT 2.0 does not clarify the context size!)
    * "...the use attribute of the xsl:key element is evaluated with x as
    "  the current node and with a node list containing just x as the
    *  current node list"
    */
    xpctxt->contextSize = 1;
    xpctxt->proximityPosition = 1;
 
    for (i = 0; i < matchList->nodeNr; i++) {
    cur = matchList->nodeTab[i];
    if (! IS_XSLT_REAL_NODE(cur))
        continue;
        ctxt->node = cur;
    xpctxt->node = cur;
    /*
    * Process the 'use' of the xsl:key.
    * SPEC XSLT 1.0:
    * "The use attribute is an expression specifying the values of
    *  the key; the expression is evaluated once for each node that
    *  matches the pattern."
    */
    if (useRes != NULL)
        xmlXPathFreeObject(useRes);
    useRes = xmlXPathCompiledEval(keyDef->usecomp, xpctxt);
    if (useRes == NULL) {
        xsltTransformError(ctxt, NULL, keyDef->inst,
        "Failed to evaluate the 'use' expression.\n");
        ctxt->state = XSLT_STATE_STOPPED;
        break;
    }
    if (useRes->type == XPATH_NODESET) {
        if ((useRes->nodesetval != NULL) &&
        (useRes->nodesetval->nodeNr != 0))
        {
        len = useRes->nodesetval->nodeNr;
        str = xmlXPathCastNodeToString(useRes->nodesetval->nodeTab[0]);
        } else {
        continue;
        }
    } else {
        len = 1;
        if (useRes->type == XPATH_STRING) {
        /*
        * Consume the string value.
        */
        str = useRes->stringval;
        useRes->stringval = NULL;
        } else {
        str = xmlXPathCastToString(useRes);
        }
    }
    /*
    * Process all strings.
    */
    k = 0;
    while (1) {
        if (str == NULL)
        goto next_string;
 
#ifdef WITH_XSLT_DEBUG_KEYS
        XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext,
        "xsl:key : node associated to ('%s', '%s')\n", keyDef->name, str));
#endif
 
        keylist = xmlHashLookup(table->keys, str);
        if (keylist == NULL) {
        keylist = xmlXPathNodeSetCreate(cur);
        if (keylist == NULL)
            goto error;
        if (xmlHashAddEntry(table->keys, str, keylist) < 0) {
                    xmlXPathFreeNodeSet(keylist);
                    goto error;
                }
        } else {
        /*
        * TODO: How do we know if this function failed?
        */
        xmlXPathNodeSetAdd(keylist, cur);
        }
            xsltSetSourceNodeFlags(ctxt, cur, XSLT_SOURCE_NODE_HAS_KEY);
        xmlFree(str);
        str = NULL;
 
next_string:
        k++;
        if (k >= len)
        break;
        str = xmlXPathCastNodeToString(useRes->nodesetval->nodeTab[k]);
    }
    }
 
exit:
error:
    ctxt->keyInitLevel--;
    /*
    * Restore context state.
    */
    xpctxt->node = oldXPNode;
    xpctxt->doc = oldXPDoc;
    xpctxt->nsNr = oldXPNsNr;
    xpctxt->namespaces = oldXPNamespaces;
    xpctxt->proximityPosition = oldXPPos;
    xpctxt->contextSize = oldXPSize;
 
    ctxt->node = oldContextNode;
    ctxt->document = oldDocInfo;
    ctxt->inst = oldInst;
 
    if (str)
    xmlFree(str);
    if (useRes != NULL)
    xmlXPathFreeObject(useRes);
    if (matchRes != NULL)
    xmlXPathFreeObject(matchRes);
    return(0);
}

Referenced by xsltInitCtxtKeys(), and xsltInitDocKeyTable().

xsltInitCtxtKeys()

void xsltInitCtxtKeys	(	xsltTransformContextPtr	ctxt,
		xsltDocumentPtr	idoc
	)

xsltInitCtxtKeys: @ctxt: an XSLT transformation context @idoc: a document info

Computes all the keys tables for the current input document. Should be done before global varibales are initialized. NOTE: Not used anymore in the refactored code.

Definition at line 890 of file keys.c.

                                                                     {
    xsltStylesheetPtr style;
    xsltKeyDefPtr keyDef;
 
    if ((ctxt == NULL) || (idoc == NULL))
    return;
 
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitCtxtKeys on document\n");
#endif
 
#ifdef WITH_XSLT_DEBUG_KEYS
    if ((idoc->doc != NULL) && (idoc->doc->URL != NULL))
    XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext, "Initializing keys on %s\n",
             idoc->doc->URL));
#endif
    style = ctxt->style;
    while (style != NULL) {
    keyDef = (xsltKeyDefPtr) style->keys;
    while (keyDef != NULL) {
        xsltInitCtxtKey(ctxt, idoc, keyDef);
 
        keyDef = keyDef->next;
    }
 
    style = xsltNextImport(style);
    }
 
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitCtxtKeys on document: done\n");
#endif
 
}

xsltInitDocKeyTable()

static int xsltInitDocKeyTable ( xsltTransformContextPtr  ctxt, const xmlChar *  name, const xmlChar *  nameURI  )

static

xsltInitDocKeyTable:

INTERNAL ROUTINE ONLY

Check if any keys on the current document need to be computed

Definition at line 499 of file keys.c.

{
    xsltStylesheetPtr style;
    xsltKeyDefPtr keyd = NULL;
    int found = 0;
 
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitDocKeyTable %s\n", name);
#endif
 
    style = ctxt->style;
    while (style != NULL) {
    keyd = (xsltKeyDefPtr) style->keys;
    while (keyd != NULL) {
        if (((keyd->nameURI != NULL) ==
         (nameURI != NULL)) &&
        xmlStrEqual(keyd->name, name) &&
        xmlStrEqual(keyd->nameURI, nameURI))
        {
        xsltInitCtxtKey(ctxt, ctxt->document, keyd);
        if (ctxt->document->nbKeysComputed == ctxt->nbKeys)
            return(0);
        found = 1;
        }
        keyd = keyd->next;
    }
    style = xsltNextImport(style);
    }
    if (found == 0) {
#ifdef WITH_XSLT_DEBUG_KEYS
    XSLT_TRACE(ctxt,XSLT_TRACE_KEYS,xsltGenericDebug(xsltGenericDebugContext,
         "xsltInitDocKeyTable: did not found %s\n", name));
#endif
    xsltTransformError(ctxt, NULL, keyd? keyd->inst : NULL,
        "Failed to find key definition for %s\n", name);
    ctxt->state = XSLT_STATE_STOPPED;
        return(-1);
    }
#ifdef KEY_INIT_DEBUG
fprintf(stderr, "xsltInitDocKeyTable %s done\n", name);
#endif
    return(0);
}

Referenced by xsltGetKey(), and xsltInitAllDocKeys().

xsltNewKeyDef()

static xsltKeyDefPtr xsltNewKeyDef ( const xmlChar *  name, const xmlChar *  nameURI  )

static

Definition at line 56 of file keys.c.

                                                           {
    xsltKeyDefPtr cur;
 
    cur = (xsltKeyDefPtr) xmlMalloc(sizeof(xsltKeyDef));
    if (cur == NULL) {
    xsltTransformError(NULL, NULL, NULL,
        "xsltNewKeyDef : malloc failed\n");
    return(NULL);
    }
    memset(cur, 0, sizeof(xsltKeyDef));
    if (name != NULL)
    cur->name = xmlStrdup(name);
    if (nameURI != NULL)
    cur->nameURI = xmlStrdup(nameURI);
    cur->nsList = NULL;
    return(cur);
}

Referenced by xsltAddKey().

xsltNewKeyTable()

static xsltKeyTablePtr xsltNewKeyTable ( const xmlChar *  name, const xmlChar *  nameURI  )

static

Definition at line 129 of file keys.c.

                                                             {
    xsltKeyTablePtr cur;
 
    cur = (xsltKeyTablePtr) xmlMalloc(sizeof(xsltKeyTable));
    if (cur == NULL) {
    xsltTransformError(NULL, NULL, NULL,
        "xsltNewKeyTable : malloc failed\n");
    return(NULL);
    }
    memset(cur, 0, sizeof(xsltKeyTable));
    if (name != NULL)
    cur->name = xmlStrdup(name);
    if (nameURI != NULL)
    cur->nameURI = xmlStrdup(nameURI);
    cur->keys = xmlHashCreate(0);
    return(cur);
}

Referenced by xsltInitCtxtKey().