1 files changed, 84 insertions, 0 deletions
diff --git a/javascript/duktape/node_list.c b/javascript/duktape/node_list.c
new file mode 100644
index 000000000..c127c2468
--- /dev/null
+++ b/javascript/duktape/node_list.c
@@ -0,0 +1,84 @@
+/* DO NOT USE, DODGY EXAMPLE FOR VINCE */
+
+#include "utils/log.h"
+
+#include <dom/dom.h>
+
+#include "javascript/dukky.h"
+
+DUKKY_FUNC_INIT(node_list, struct dom_nodelist *nodes)
+{
+	LOG("Initialise %p (priv=%p)", duk_get_heapptr(ctx, 0), priv);
+	priv->nodes = nodes;
+	dom_nodelist_ref(nodes);
+}
+
+DUKKY_FUNC_FINI(node_list)
+{
+	/* do any node_list finalisation here, priv ptr exists */
+	LOG("Finalise %p", duk_get_heapptr(ctx, 0));
+	dom_nodelist_unref(priv->nodes);
+}
+
+static DUKKY_FUNC(node_list, __constructor)
+{
+	DUKKY_CREATE_PRIVATE(node_list);
+	DUKKY_FUNC_T(node_list, __init)(ctx, priv, duk_get_pointer(ctx, 1));
+	duk_pop(ctx);
+	return 1;
+}
+
+static DUKKY_FUNC(node_list, __destructor)
+{
+	DUKKY_SAFE_GET_PRIVATE(node_list, 0);
+	DUKKY_FUNC_T(node_list, __fini)(ctx, priv);
+	free(priv);
+	return 0;
+}
+
+static DUKKY_GETTER(node_list, length)
+{
+	DUKKY_GET_METHOD_PRIVATE(node_list);
+	dom_exception err;
+	unsigned long len;
+	
+	err = dom_nodelist_get_length(priv->nodes, &len);
+	
+	if (err != DOM_NO_ERR) return 0; /* coerced to undefined */
+	
+	duk_push_uint(ctx, (duk_uint_t)len);
+	return 1;
+}
+
+static DUKKY_FUNC(node_list, item)
+{
+	DUKKY_GET_METHOD_PRIVATE(node_list);
+	unsigned long i = duk_to_uint(ctx, 0);
+	dom_exception err;
+	dom_node *node;
+	
+	LOG("Looking up %u in %p", i, priv->nodes);
+	
+	err = dom_nodelist_item(priv->nodes, i, &node);
+	
+	if (err != DOM_NO_ERR) return 0; /* coerced to undefied */
+	
+	dukky_push_node(ctx, node);
+	dom_node_unref(node);
+	
+	return 1;
+}
+
+/** TODO: ARRAY-LIKE behaviour missing */
+
+DUKKY_FUNC(node_list, __proto)
+{
+	/* Populate node_list's prototypical functionality */
+	DUKKY_POPULATE_READONLY_PROPERTY(node_list, length);
+	DUKKY_ADD_METHOD(node_list, item, 1);
+	/* Set this prototype's prototype (left-parent)*/
+	/* And the initialiser/finalizer */
+	DUKKY_SET_DESTRUCTOR(0, node_list);
+	DUKKY_SET_CONSTRUCTOR(0, node_list, 1);
+	return 1; /* The proto object */
+}