Fix error code checks for Saxon 12.2 API change

ndw · ndw · commit 61d0ad4ed4a9 · 2023-05-07T11:25:24.000+01:00
diff --git a/src/main/java/com/xmlcalabash/functions/SystemProperty.java b/src/main/java/com/xmlcalabash/functions/SystemProperty.java
@@ -91,8 +91,8 @@ public AtomicValue call(XPathContext xPathContext, Sequence[] sequences) throws
                         staticContext.getNamespaceResolver());
                 propertyName = new QName(qpropertyName);
             } catch (XPathException e) {
-                if (e.getErrorCodeLocalPart()==null || e.getErrorCodeLocalPart().equals("FOCA0002")
-                        || e.getErrorCodeLocalPart().equals("FONS0004")) {
+                String local = e.getErrorCodeQName() == null ? null : e.getErrorCodeQName().getLocalPart();
+                if (local == null || "FOCA0002".equals(local) || "FONS0004".equals(local)) {
                     e.setErrorCode("XTDE1390");
                 }
                 throw e;
diff --git a/src/main/java/com/xmlcalabash/library/DefaultStep.java b/src/main/java/com/xmlcalabash/library/DefaultStep.java
@@ -8,6 +8,7 @@
 import com.xmlcalabash.io.WritablePipe;
 import com.xmlcalabash.model.RuntimeValue;
 import com.xmlcalabash.runtime.XAtomicStep;
+import com.xmlcalabash.util.QNameUtils;
 import com.xmlcalabash.util.S9apiUtils;
 import net.sf.saxon.Configuration;
 import net.sf.saxon.lib.NamespaceConstant;
@@ -356,7 +357,7 @@ public Vector<XdmItem> evaluateXPath(XdmNode doc, HashMap<String,NamespaceUri> n
                 Throwable sae = saue.getCause();
                 if (sae instanceof XPathException) {
                     XPathException xe = (XPathException) sae;
-                    if ("http://www.w3.org/2005/xqt-errors".equals(xe.getErrorCodeNamespace()) && "XPDY0002".equals(xe.getErrorCodeLocalPart())) {
+                    if (QNameUtils.hasForm(xe.getErrorCodeQName(), "http://www.w3.org/2005/xqt-errors", "XPDY0002")) {
                         throw XProcException.dynamicError(26,"Expression refers to context when none is available: " + xpath);
                     } else {
                         throw saue;
diff --git a/src/main/java/com/xmlcalabash/library/ValidateWithSCH.java b/src/main/java/com/xmlcalabash/library/ValidateWithSCH.java
@@ -8,6 +8,7 @@
 import com.xmlcalabash.io.WritablePipe;
 import com.xmlcalabash.model.RuntimeValue;
 import com.xmlcalabash.runtime.XAtomicStep;
+import com.xmlcalabash.util.QNameUtils;
 import com.xmlcalabash.util.S9apiUtils;
 import net.sf.saxon.Configuration;
 import net.sf.saxon.lib.ResourceRequest;
@@ -224,7 +225,7 @@ private boolean checkFailedAssert(XdmNode doc) {
                 Throwable sae = saue.getCause();
                 if (sae instanceof XPathException) {
                     XPathException xe = (XPathException) sae;
-                    if (xe.getErrorCodeNamespace() == XProcConstants.NS_XQT_ERRORS && "XPDY0002".equals(xe.getErrorCodeLocalPart())) {
+                    if (QNameUtils.hasForm(xe.getErrorCodeQName(), XProcConstants.NS_XQT_ERRORS, "XPDY0002")) {
                         throw XProcException.dynamicError(26, step.getNode(), "Expression refers to context when none is available: " + xpath);
                     } else {
                         throw saue;
diff --git a/src/main/java/com/xmlcalabash/runtime/XAtomicStep.java b/src/main/java/com/xmlcalabash/runtime/XAtomicStep.java
@@ -24,10 +24,7 @@
 import com.xmlcalabash.model.PipeNameBinding;
 import com.xmlcalabash.model.RuntimeValue;
 import com.xmlcalabash.model.Step;
-import com.xmlcalabash.util.AxisNodes;
-import com.xmlcalabash.util.MessageFormatter;
-import com.xmlcalabash.util.S9apiUtils;
-import com.xmlcalabash.util.TypeUtils;
+import com.xmlcalabash.util.*;
 import net.sf.saxon.om.NamespaceMap;
 import net.sf.saxon.om.NamespaceUri;
 import net.sf.saxon.s9api.Axis;
@@ -706,7 +703,7 @@ protected RuntimeValue computeValue(ComputableValue var) {
             Throwable sae = saue.getCause();
             if (sae instanceof XPathException) {
                 XPathException xe = (XPathException) sae;
-                if ("http://www.w3.org/2005/xqt-errors".equals(xe.getErrorCodeNamespace()) && "XPDY0002".equals(xe.getErrorCodeLocalPart())) {
+                if (QNameUtils.hasForm(xe.getErrorCodeQName(), "http://www.w3.org/2005/xqt-errors", "XPDY0002")) {
                     throw XProcException.dynamicError(26, step.getNode(), "The expression for $" + var.getName() + " refers to the context item.");
                 } else {
                     throw saue;
@@ -828,7 +825,7 @@ protected Vector<XdmItem> evaluateXPath(XdmNode doc, HashMap<String,NamespaceUri
                 Throwable sae = saue.getCause();
                 if (sae instanceof XPathException) {
                     XPathException xe = (XPathException) sae;
-                    if ("http://www.w3.org/2005/xqt-errors".equals(xe.getErrorCodeNamespace()) && "XPDY0002".equals(xe.getErrorCodeLocalPart())) {
+                    if (QNameUtils.hasForm(xe.getErrorCodeQName(), "http://www.w3.org/2005/xqt-errors", "XPDY0002")) {
                         throw XProcException.dynamicError(26, step.getNode(), "Expression refers to context when none is available: " + xpath);
                     } else {
                         throw saue;
diff --git a/src/main/java/com/xmlcalabash/util/AxisNodes.java b/src/main/java/com/xmlcalabash/util/AxisNodes.java
@@ -222,7 +222,7 @@ private boolean useWhen(XdmNode element, String xpath) {
                     Throwable sae = saue.getCause();
                     if (sae instanceof XPathException) {
                         XPathException xe = (XPathException) sae;
-                        if (xe.getErrorCodeNamespace() == XProcConstants.NS_XQT_ERRORS && "XPDY0002".equals(xe.getErrorCodeLocalPart())) {
+                        if (QNameUtils.hasForm(xe.getErrorCodeQName(), XProcConstants.NS_XQT_ERRORS, "XPDY0002")) {
                             throw XProcException.dynamicError(26, element, "Expression refers to context when none is available: " + xpath);
                         } else {
                             throw saue;
diff --git a/src/main/java/com/xmlcalabash/util/QNameUtils.java b/src/main/java/com/xmlcalabash/util/QNameUtils.java
@@ -0,0 +1,14 @@
+package com.xmlcalabash.util;
+
+import net.sf.saxon.om.NamespaceUri;
+import net.sf.saxon.om.StructuredQName;
+
+public class QNameUtils {
+    public static boolean hasForm(StructuredQName qname, String namespace, String localname) {
+        return qname != null && namespace.equals(qname.getNamespaceUri().toString()) && localname.equals(qname.getLocalPart());
+    }
+
+    public static boolean hasForm(StructuredQName qname, NamespaceUri namespace, String localname) {
+        return qname != null && namespace == qname.getNamespaceUri() && localname.equals(qname.getLocalPart());
+    }
+}
