15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/* 25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * dynamic.c: Implementation of the EXSLT -- Dynamic module 35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * References: 55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * http://www.exslt.org/dyn/dyn.html 65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * See Copyright for the status of this software. 85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Authors: 105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Mark Vakoc <mark_vakoc@jdedwards.com> 115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Thomas Broyer <tbroyer@ltgt.net> 125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * TODO: 145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * elements: 155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * functions: 165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * min 175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * max 185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * sum 195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * map 205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * closure 215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#define IN_LIBEXSLT 245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "libexslt/libexslt.h" 255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#if defined(WIN32) && !defined (__CYGWIN__) && (!__MINGW32__) 275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <win32config.h> 285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else 295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "config.h" 305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif 315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxml/tree.h> 335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxml/xpath.h> 345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxml/xpathInternals.h> 355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxslt/xsltconfig.h> 375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxslt/xsltutils.h> 385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxslt/xsltInternals.h> 395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include <libxslt/extensions.h> 405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "exslt.h" 425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/** 445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * exsltDynEvaluateFunction: 455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * @ctxt: an XPath parser context 465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * @nargs: the number of arguments 475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Evaluates the string as an XPath expression and returns the result 495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * value, which may be a boolean, number, string, node set, result tree 505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * fragment or external object. 515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static void 545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)exsltDynEvaluateFunction(xmlXPathParserContextPtr ctxt, int nargs) { 555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlChar *str = NULL; 565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathObjectPtr ret = NULL; 575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (ctxt == NULL) 595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (nargs != 1) { 615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltPrintErrorContext(xsltXPathGetTransformContext(ctxt), NULL, NULL); 625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltGenericError(xsltGenericErrorContext, 635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "dyn:evalute() : invalid number of args %d\n", nargs); 645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->error = XPATH_INVALID_ARITY; 655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) str = xmlXPathPopString(ctxt); 685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) /* return an empty node-set if an empty string is passed in */ 695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (!str||!xmlStrlen(str)) { 705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (str) xmlFree(str); 715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) valuePush(ctxt,xmlXPathNewNodeSet(NULL)); 725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ret = xmlXPathEval(str,ctxt->context); 755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (ret) 765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) valuePush(ctxt,ret); 775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) else { 785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltGenericError(xsltGenericErrorContext, 795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "dyn:evaluate() : unable to evaluate expression '%s'\n",str); 805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) valuePush(ctxt,xmlXPathNewNodeSet(NULL)); 815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlFree(str); 835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/** 875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * exsltDynMapFunction: 885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * @ctxt: an XPath parser context 895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * @nargs: the number of arguments 905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Evaluates the string as an XPath expression and returns the result 925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * value, which may be a boolean, number, string, node set, result tree 935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * fragment or external object. 945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)static void 975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)exsltDynMapFunction(xmlXPathParserContextPtr ctxt, int nargs) 985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){ 995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlChar *str = NULL; 1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNodeSetPtr nodeset = NULL; 1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltTransformContextPtr tctxt; 1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathCompExprPtr comp = NULL; 1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathObjectPtr ret = NULL; 1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlDocPtr oldDoc, container = NULL; 1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNodePtr oldNode; 1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int oldContextSize; 1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int oldProximityPosition; 1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) int i, j; 1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (nargs != 2) { 1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathSetArityError(ctxt); 1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) str = xmlXPathPopString(ctxt); 1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (xmlXPathCheckError(ctxt)) { 1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathSetTypeError(ctxt); 1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 1195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) nodeset = xmlXPathPopNodeSet(ctxt); 1225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (xmlXPathCheckError(ctxt)) { 1235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathSetTypeError(ctxt); 1245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 1255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (str == NULL || !xmlStrlen(str) || !(comp = xmlXPathCompile(str))) { 1275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (nodeset != NULL) 1285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathFreeNodeSet(nodeset); 1295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (str != NULL) 1305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlFree(str); 1315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) valuePush(ctxt, xmlXPathNewNodeSet(NULL)); 1325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 1335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ret = xmlXPathNewNodeSet(NULL); 1365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (ret == NULL) { 1375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltGenericError(xsltGenericErrorContext, 1385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "exsltDynMapFunction: ret == NULL\n"); 1395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) goto cleanup; 1405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) oldDoc = ctxt->context->doc; 1435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) oldNode = ctxt->context->node; 1445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) oldContextSize = ctxt->context->contextSize; 1455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) oldProximityPosition = ctxt->context->proximityPosition; 1465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) /** 1485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * since we really don't know we're going to be adding node(s) 1495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * down the road we create the RVT regardless 1505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 1515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) tctxt = xsltXPathGetTransformContext(ctxt); 1525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (tctxt == NULL) { 1535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltTransformError(xsltXPathGetTransformContext(ctxt), NULL, NULL, 1545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "dyn:map : internal error tctxt == NULL\n"); 1555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) goto cleanup; 1565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) container = xsltCreateRVT(tctxt); 1585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (container == NULL) { 1595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltTransformError(tctxt, NULL, NULL, 1605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "dyn:map : internal error container == NULL\n"); 1615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) goto cleanup; 1625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 1635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltRegisterLocalRVT(tctxt, container); 1645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (nodeset && nodeset->nodeNr > 0) { 1655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathNodeSetSort(nodeset); 1665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->contextSize = nodeset->nodeNr; 1675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->proximityPosition = 0; 1685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) for (i = 0; i < nodeset->nodeNr; i++) { 1695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathObjectPtr subResult = NULL; 1705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->proximityPosition++; 1725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->node = nodeset->nodeTab[i]; 1735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->doc = nodeset->nodeTab[i]->doc; 1745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 1755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) subResult = xmlXPathCompiledEval(comp, ctxt->context); 1765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (subResult != NULL) { 1775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) switch (subResult->type) { 1785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) case XPATH_NODESET: 1795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (subResult->nodesetval != NULL) 1805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) for (j = 0; j < subResult->nodesetval->nodeNr; 1815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) j++) 1825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathNodeSetAdd(ret->nodesetval, 1835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) subResult->nodesetval-> 1845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) nodeTab[j]); 1855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 1865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) case XPATH_BOOLEAN: 1875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (container != NULL) { 1885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNodePtr cur = 1895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewChild((xmlNodePtr) container, NULL, 1905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "boolean", 1915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST (subResult-> 1925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) boolval ? "true" : "")); 1935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (cur != NULL) { 1945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur->ns = 1955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewNs(cur, 1965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST 1975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "http://exslt.org/common", 1985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "exsl"); 1995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathNodeSetAddUnique(ret->nodesetval, 2005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur); 2015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltExtensionInstructionResultRegister(tctxt, ret); 2035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 2055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) case XPATH_NUMBER: 2065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (container != NULL) { 2075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlChar *val = 2085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathCastNumberToString(subResult-> 2095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) floatval); 2105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNodePtr cur = 2115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewChild((xmlNodePtr) container, NULL, 2125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "number", val); 2135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (val != NULL) 2145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlFree(val); 2155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (cur != NULL) { 2175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur->ns = 2185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewNs(cur, 2195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST 2205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "http://exslt.org/common", 2215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "exsl"); 2225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathNodeSetAddUnique(ret->nodesetval, 2235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur); 2245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltExtensionInstructionResultRegister(tctxt, ret); 2265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 2285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) case XPATH_STRING: 2295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (container != NULL) { 2305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNodePtr cur = 2315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewChild((xmlNodePtr) container, NULL, 2325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "string", 2335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) subResult->stringval); 2345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (cur != NULL) { 2355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur->ns = 2365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlNewNs(cur, 2375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST 2385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) "http://exslt.org/common", 2395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) BAD_CAST "exsl"); 2405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathNodeSetAddUnique(ret->nodesetval, 2415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cur); 2425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltExtensionInstructionResultRegister(tctxt, ret); 2445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 2465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) default: 2475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) break; 2485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathFreeObject(subResult); 2505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) } 2535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->doc = oldDoc; 2545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->node = oldNode; 2555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->contextSize = oldContextSize; 2565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) ctxt->context->proximityPosition = oldProximityPosition; 2575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) cleanup: 2605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) /* restore the xpath context */ 2615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (comp != NULL) 2625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathFreeCompExpr(comp); 2635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (nodeset != NULL) 2645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlXPathFreeNodeSet(nodeset); 2655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) if (str != NULL) 2665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xmlFree(str); 2675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) valuePush(ctxt, ret); 2685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) return; 2695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 2705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/** 2735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * exsltDynRegister: 2745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * 2755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Registers the EXSLT - Dynamic module 2765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */ 2775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)void 2795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)exsltDynRegister (void) { 2805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltRegisterExtModuleFunction ((const xmlChar *) "evaluate", 2815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) EXSLT_DYNAMIC_NAMESPACE, 2825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) exsltDynEvaluateFunction); 2835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) xsltRegisterExtModuleFunction ((const xmlChar *) "map", 2845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) EXSLT_DYNAMIC_NAMESPACE, 2855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) exsltDynMapFunction); 2865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) 2875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)} 288