ocaml 3.09 transition

[helm.git] / helm / minidom / minidom.c

diff --git a/helm/minidom/minidom.c b/helm/minidom/minidom.c
index ef0d1f34b31bef65c7b95921ab98b15212b079a9..93cae440dcddbcc67d396fe29c99a587332524ed 100644 (file)
--- a/helm/minidom/minidom.c
+++ b/helm/minidom/minidom.c
@@ -23,8 +23,8 @@
 
 #include <config.h>
 #include <glib.h>
-#include <parser.h>
-#include <parserInternals.h>
+#include <libxml/parser.h>
+#include <libxml/parserInternals.h>
 
 #include "minidom.h"
 
@@ -258,6 +258,19 @@ mdom_node_has_attribute(mDOMNodeRef node, mDOMConstStringRef name)
 #endif /* HAVE_LIBXML2 */
 }
 
+gboolean
+mdom_node_has_attribute_ns(mDOMNodeRef node, mDOMConstStringRef name, mDOMConstStringRef uri)
+{
+  g_return_val_if_fail(node != NULL, FALSE);
+  g_return_val_if_fail(name != NULL, FALSE);
+  g_return_val_if_fail(uri != NULL, FALSE);
+#ifdef HAVE_LIBXML2
+  return (xmlHasNsProp(node, name, uri) != NULL) ? TRUE : FALSE;
+#else
+  return FALSE;
+#endif /* HAVE_LIBXML2 */
+}
+
 mDOMStringRef
 mdom_node_get_content(mDOMNodeRef node)
 {