#include <memory.h>
#include "minidom.h"
-#include "ml_minidom.h"
+
+#define Val_ptr(p) ((value) (p))
+#define Val_option(p,f) ((p != NULL) ? ml_some(f(p)) : Val_unit)
+#define Val_mDOMString(s) (copy_string((char*) (s)))
+#define mDOMString_val(v) ((mDOMStringRef) String_val(v))
static value
ml_some(value v)
CAMLreturn(Val_option(mdom_node_get_name((mDOMNodeRef) node), Val_mDOMString));
}
+value
+ml_node_get_content(value node)
+{
+ CAMLparam1(node);
+ CAMLreturn(Val_option(mdom_node_get_content((mDOMNodeRef) node), Val_mDOMString));
+}
+
value
ml_node_get_ns_uri(value node)
{