Implement the bridge to call Tatoo from java. Very slow at the moment.

[tatoo.git] / src / bindings / java / tatoo.h

diff --git a/src/bindings/java/tatoo.h b/src/bindings/java/tatoo.h
new file mode 100644 (file)
index 0000000..f343ca6
--- /dev/null
+++ b/src/bindings/java/tatoo.h
@@ -0,0 +1,27 @@
+#ifndef TATOO_H
+#define TATOO_H
+#pragma once
+
+#include <caml/mlvalues.h>
+
+extern "C" {
+
+CAMLprim value node_getFirstChild(value node);
+CAMLprim value node_getNextSibling(value node);
+CAMLprim value node_getKind(value node);
+CAMLprim value node_getNodeName(value node);
+CAMLprim value node_getPreorder(value node);
+CAMLprim value node_getAttributes(value node);
+
+CAMLprim value nodelist_getLength(value list);
+CAMLprim value nodelist_item(value list, value idx);
+CAMLprim value nodelist_new(value list);
+CAMLprim value nodelist_add(value list, value node);
+
+CAMLprim value namednodemap_getLength(value list);
+CAMLprim value namednodemap_item(value list, value idx);
+
+CAMLprim value getNull(value unit);
+}
+
+#endif