another patch from Richard Jinks for substring conformance update of the

* xpath.c: another patch from Richard Jinks for substring conformance
* test/XPath/expr/floats test/XPath/expr/strings
  result/XPath/expr/floats result/XPath/expr/strings: update of the
  test suite to check those.
Daniel

ChangeLog

@@ -1,3 +1,10 @@
+Wed Apr 10 18:12:52 CEST 2002 Daniel Veillard <daniel@veillard.com>
+
+	* xpath.c: another patch from Richard Jinks for substring conformance
+	* test/XPath/expr/floats test/XPath/expr/strings
+	  result/XPath/expr/floats result/XPath/expr/strings: update of the
+	  test suite to check those.
+
 Wed Apr 10 13:29:49 CEST 2002 Daniel Veillard <daniel@veillard.com>
 
 	* xpath.c: patch from Richard Jinks for .x float parsing.

result/XPath/expr/floats

@@ -15,6 +15,14 @@ Object is a number : 1.23
 Expression: 0.123
 Object is a number : 0.123
 
+========================
+Expression: 4.
+Object is a number : 4
+
+========================
+Expression: .4
+Object is a number : 0.4
+
 ========================
 Expression: 1.23e3
 Object is a number : 1230

result/XPath/expr/strings

@@ -75,6 +75,22 @@ Object is a string : 234
 Expression: substring("12345",0,3)
 Object is a string : 12
 
+========================
+Expression: substring("12345", 0 div 0, 3)
+Object is a string : 
+
+========================
+Expression: substring("12345", 1, 0 div 0)
+Object is a string : 
+
+========================
+Expression: substring("12345", -42, 1 div 0)
+Object is a string : 12345
+
+========================
+Expression: substring("12345", -1 div 0, 1 div 0)
+Object is a string : 
+
 ========================
 Expression: string-length("")
 Object is a number : 0

test/XPath/expr/floats

@@ -2,6 +2,8 @@
 123
 1.23
 0.123
+4.
+.4
 1.23e3
 1.23e-3
 1 div 0

test/XPath/expr/strings

@@ -17,5 +17,9 @@ substring("12345",2,3)
 substring("12345",2)
 substring("12345",1.5,2.6)
 substring("12345",0,3)
+substring("12345", 0 div 0, 3)
+substring("12345", 1, 0 div 0)
+substring("12345", -42, 1 div 0)
+substring("12345", -1 div 0, 1 div 0)
 string-length("")
 string-length("titi")

xpath.c

@@ -6152,6 +6152,11 @@ xmlXPathSubstringFunction(xmlXPathParserContextPtr ctxt, int nargs) {
     if (nargs != 3)
 	le = m;
 
+    /* Need to check for the special cases where either 
+     * the index is NaN, the length is NaN, or both
+     * arguments are infinity (relying on Inf + -Inf = NaN)
+     */
+    if (!xmlXPathIsNaN(in + le)) {
         /*
          * To meet our requirements, initial index calculations
          * must be done before we convert to integer format
@@ -6180,6 +6185,11 @@ xmlXPathSubstringFunction(xmlXPathParserContextPtr ctxt, int nargs) {
         l -= i;
 
         ret = xmlUTF8Strsub(str->stringval, i, l);
+    }
+    else {
+        ret = NULL;
+    }
+
     if (ret == NULL)
 	valuePush(ctxt, xmlXPathNewCString(""));
     else {