1 #define IN_LIBEXSLT 2 #include "libexslt/libexslt.h" 3 4 #if defined(WIN32) && !defined (__CYGWIN__) && (!__MINGW32__) 5 #include <win32config.h> 6 #else 7 #include "config.h" 8 #endif 9 10 #include <libxml/tree.h> 11 #include <libxml/xpath.h> 12 #include <libxml/xpathInternals.h> 13 14 #include <libxslt/xsltutils.h> 15 #include <libxslt/xsltInternals.h> 16 #include <libxslt/extensions.h> 17 18 #include "exslt.h" 19 20 /** 21 * exsltSetsDifferenceFunction: 22 * @ctxt: an XPath parser context 23 * @nargs: the number of arguments 24 * 25 * Wraps #xmlXPathDifference for use by the XPath processor 26 */ 27 static void 28 exsltSetsDifferenceFunction (xmlXPathParserContextPtr ctxt, int nargs) { 29 xmlNodeSetPtr arg1, arg2, ret; 30 31 if (nargs != 2) { 32 xmlXPathSetArityError(ctxt); 33 return; 34 } 35 36 arg2 = xmlXPathPopNodeSet(ctxt); 37 if (xmlXPathCheckError(ctxt)) { 38 xmlXPathSetTypeError(ctxt); 39 return; 40 } 41 42 arg1 = xmlXPathPopNodeSet(ctxt); 43 if (xmlXPathCheckError(ctxt)) { 44 xmlXPathSetTypeError(ctxt); 45 return; 46 } 47 48 ret = xmlXPathDifference(arg1, arg2); 49 50 if (ret != arg1) 51 xmlXPathFreeNodeSet(arg1); 52 xmlXPathFreeNodeSet(arg2); 53 54 xmlXPathReturnNodeSet(ctxt, ret); 55 } 56 57 /** 58 * exsltSetsIntersectionFunction: 59 * @ctxt: an XPath parser context 60 * @nargs: the number of arguments 61 * 62 * Wraps #xmlXPathIntersection for use by the XPath processor 63 */ 64 static void 65 exsltSetsIntersectionFunction (xmlXPathParserContextPtr ctxt, int nargs) { 66 xmlNodeSetPtr arg1, arg2, ret; 67 68 if (nargs != 2) { 69 xmlXPathSetArityError(ctxt); 70 return; 71 } 72 73 arg2 = xmlXPathPopNodeSet(ctxt); 74 if (xmlXPathCheckError(ctxt)) { 75 xmlXPathSetTypeError(ctxt); 76 return; 77 } 78 79 arg1 = xmlXPathPopNodeSet(ctxt); 80 if (xmlXPathCheckError(ctxt)) { 81 xmlXPathSetTypeError(ctxt); 82 return; 83 } 84 85 ret = xmlXPathIntersection(arg1, arg2); 86 87 xmlXPathFreeNodeSet(arg1); 88 xmlXPathFreeNodeSet(arg2); 89 90 xmlXPathReturnNodeSet(ctxt, ret); 91 } 92 93 /** 94 * exsltSetsDistinctFunction: 95 * @ctxt: an XPath parser context 96 * @nargs: the number of arguments 97 * 98 * Wraps #xmlXPathDistinct for use by the XPath processor 99 */ 100 static void 101 exsltSetsDistinctFunction (xmlXPathParserContextPtr ctxt, int nargs) { 102 xmlXPathObjectPtr obj; 103 xmlNodeSetPtr ns, ret; 104 int boolval = 0; 105 void *user = NULL; 106 107 if (nargs != 1) { 108 xmlXPathSetArityError(ctxt); 109 return; 110 } 111 112 if (ctxt->value != NULL) { 113 boolval = ctxt->value->boolval; 114 user = ctxt->value->user; 115 ctxt->value->boolval = 0; 116 ctxt->value->user = NULL; 117 } 118 ns = xmlXPathPopNodeSet(ctxt); 119 if (xmlXPathCheckError(ctxt)) 120 return; 121 122 /* !!! must be sorted !!! */ 123 ret = xmlXPathDistinctSorted(ns); 124 125 if (ret != ns) 126 xmlXPathFreeNodeSet(ns); 127 128 obj = xmlXPathWrapNodeSet(ret); 129 obj->user = user; 130 obj->boolval = boolval; 131 valuePush((ctxt), obj); 132 } 133 134 /** 135 * exsltSetsHasSameNodesFunction: 136 * @ctxt: an XPath parser context 137 * @nargs: the number of arguments 138 * 139 * Wraps #xmlXPathHasSameNodes for use by the XPath processor 140 */ 141 static void 142 exsltSetsHasSameNodesFunction (xmlXPathParserContextPtr ctxt, 143 int nargs) { 144 xmlNodeSetPtr arg1, arg2; 145 int ret; 146 147 if (nargs != 2) { 148 xmlXPathSetArityError(ctxt); 149 return; 150 } 151 152 arg2 = xmlXPathPopNodeSet(ctxt); 153 if (xmlXPathCheckError(ctxt)) { 154 xmlXPathSetTypeError(ctxt); 155 return; 156 } 157 158 arg1 = xmlXPathPopNodeSet(ctxt); 159 if (xmlXPathCheckError(ctxt)) { 160 xmlXPathSetTypeError(ctxt); 161 return; 162 } 163 164 ret = xmlXPathHasSameNodes(arg1, arg2); 165 166 xmlXPathFreeNodeSet(arg1); 167 xmlXPathFreeNodeSet(arg2); 168 169 xmlXPathReturnBoolean(ctxt, ret); 170 } 171 172 /** 173 * exsltSetsLeadingFunction: 174 * @ctxt: an XPath parser context 175 * @nargs: the number of arguments 176 * 177 * Wraps #xmlXPathLeading for use by the XPath processor 178 */ 179 static void 180 exsltSetsLeadingFunction (xmlXPathParserContextPtr ctxt, int nargs) { 181 xmlNodeSetPtr arg1, arg2, ret; 182 183 if (nargs != 2) { 184 xmlXPathSetArityError(ctxt); 185 return; 186 } 187 188 arg2 = xmlXPathPopNodeSet(ctxt); 189 if (xmlXPathCheckError(ctxt)) { 190 xmlXPathSetTypeError(ctxt); 191 return; 192 } 193 194 arg1 = xmlXPathPopNodeSet(ctxt); 195 if (xmlXPathCheckError(ctxt)) { 196 xmlXPathSetTypeError(ctxt); 197 return; 198 } 199 200 /* If the second node set is empty, then the first node set is 201 * returned. 202 */ 203 if (xmlXPathNodeSetIsEmpty(arg2)) { 204 xmlXPathReturnNodeSet(ctxt, arg1); 205 206 xmlXPathFreeNodeSet(arg2); 207 208 return; 209 } 210 /* !!! must be sorted */ 211 ret = xmlXPathNodeLeadingSorted(arg1, xmlXPathNodeSetItem(arg2, 0)); 212 213 xmlXPathFreeNodeSet(arg1); 214 xmlXPathFreeNodeSet(arg2); 215 216 xmlXPathReturnNodeSet(ctxt, ret); 217 } 218 219 /** 220 * exsltSetsTrailingFunction: 221 * @ctxt: an XPath parser context 222 * @nargs: the number of arguments 223 * 224 * Wraps #xmlXPathTrailing for use by the XPath processor 225 */ 226 static void 227 exsltSetsTrailingFunction (xmlXPathParserContextPtr ctxt, int nargs) { 228 xmlNodeSetPtr arg1, arg2, ret; 229 230 if (nargs != 2) { 231 xmlXPathSetArityError(ctxt); 232 return; 233 } 234 235 arg2 = xmlXPathPopNodeSet(ctxt); 236 if (xmlXPathCheckError(ctxt)) { 237 xmlXPathSetTypeError(ctxt); 238 return; 239 } 240 241 arg1 = xmlXPathPopNodeSet(ctxt); 242 if (xmlXPathCheckError(ctxt)) { 243 xmlXPathSetTypeError(ctxt); 244 return; 245 } 246 247 /* If the second node set is empty, then the first node set is 248 * returned. 249 */ 250 if (xmlXPathNodeSetIsEmpty(arg2)) { 251 xmlXPathReturnNodeSet(ctxt, arg1); 252 253 xmlXPathFreeNodeSet(arg2); 254 255 return; 256 } 257 /* !!! mist be sorted */ 258 ret = xmlXPathNodeTrailingSorted(arg1, xmlXPathNodeSetItem(arg2, 0)); 259 260 xmlXPathFreeNodeSet(arg1); 261 xmlXPathFreeNodeSet(arg2); 262 263 xmlXPathReturnNodeSet(ctxt, ret); 264 } 265 266 /** 267 * exsltSetsRegister: 268 * 269 * Registers the EXSLT - Sets module 270 */ 271 272 void 273 exsltSetsRegister (void) { 274 xsltRegisterExtModuleFunction ((const xmlChar *) "difference", 275 EXSLT_SETS_NAMESPACE, 276 exsltSetsDifferenceFunction); 277 xsltRegisterExtModuleFunction ((const xmlChar *) "intersection", 278 EXSLT_SETS_NAMESPACE, 279 exsltSetsIntersectionFunction); 280 xsltRegisterExtModuleFunction ((const xmlChar *) "distinct", 281 EXSLT_SETS_NAMESPACE, 282 exsltSetsDistinctFunction); 283 xsltRegisterExtModuleFunction ((const xmlChar *) "has-same-node", 284 EXSLT_SETS_NAMESPACE, 285 exsltSetsHasSameNodesFunction); 286 xsltRegisterExtModuleFunction ((const xmlChar *) "leading", 287 EXSLT_SETS_NAMESPACE, 288 exsltSetsLeadingFunction); 289 xsltRegisterExtModuleFunction ((const xmlChar *) "trailing", 290 EXSLT_SETS_NAMESPACE, 291 exsltSetsTrailingFunction); 292 } 293 294 /** 295 * exsltSetsXpathCtxtRegister: 296 * 297 * Registers the EXSLT - Sets module for use outside XSLT 298 */ 299 int 300 exsltSetsXpathCtxtRegister (xmlXPathContextPtr ctxt, const xmlChar *prefix) 301 { 302 if (ctxt 303 && prefix 304 && !xmlXPathRegisterNs(ctxt, 305 prefix, 306 (const xmlChar *) EXSLT_SETS_NAMESPACE) 307 && !xmlXPathRegisterFuncNS(ctxt, 308 (const xmlChar *) "difference", 309 (const xmlChar *) EXSLT_SETS_NAMESPACE, 310 exsltSetsDifferenceFunction) 311 && !xmlXPathRegisterFuncNS(ctxt, 312 (const xmlChar *) "intersection", 313 (const xmlChar *) EXSLT_SETS_NAMESPACE, 314 exsltSetsIntersectionFunction) 315 && !xmlXPathRegisterFuncNS(ctxt, 316 (const xmlChar *) "distinct", 317 (const xmlChar *) EXSLT_SETS_NAMESPACE, 318 exsltSetsDistinctFunction) 319 && !xmlXPathRegisterFuncNS(ctxt, 320 (const xmlChar *) "has-same-node", 321 (const xmlChar *) EXSLT_SETS_NAMESPACE, 322 exsltSetsHasSameNodesFunction) 323 && !xmlXPathRegisterFuncNS(ctxt, 324 (const xmlChar *) "leading", 325 (const xmlChar *) EXSLT_SETS_NAMESPACE, 326 exsltSetsLeadingFunction) 327 && !xmlXPathRegisterFuncNS(ctxt, 328 (const xmlChar *) "trailing", 329 (const xmlChar *) EXSLT_SETS_NAMESPACE, 330 exsltSetsTrailingFunction)) { 331 return 0; 332 } 333 return -1; 334 } 335
