Added c-api for iterators

# After 4 Month work and endless discussions...

1 files changed, 107 insertions, 0 deletions

diff --git a/Zend/zend_iterators.c b/Zend/zend_iterators.c
new file mode 100755
index 0000000000..73f8903f29
--- /dev/null
+++ b/Zend/zend_iterators.c
@@ -0,0 +1,107 @@
+/*
+   +----------------------------------------------------------------------+
+   | Zend Engine                                                          |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1998-2003 Zend Technologies Ltd. (http://www.zend.com) |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.00 of the Zend license,     |
+   | that is bundled with this package in the file LICENSE, and is        | 
+   | available through the world-wide-web at the following url:           |
+   | http://www.zend.com/license/2_00.txt.                                |
+   | If you did not receive a copy of the Zend license and are unable to  |
+   | obtain it through the world-wide-web, please send a note to          |
+   | license@zend.com so we can mail you a copy immediately.              |
+   +----------------------------------------------------------------------+
+   | Author: Wez Furlong <wez@thebrainroom.com>                           |
+   |         Marcus Boerger <helly@php.net>                               |
+   +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#include "zend.h"
+#include "zend_API.h"
+
+static zend_class_entry zend_iterator_class_entry;
+
+static zend_class_entry *iter_handler_get_ce(zval *object TSRMLS_DC)
+{
+	return &zend_iterator_class_entry;
+}
+
+static zend_object_handlers iterator_object_handlers = {
+	ZEND_OBJECTS_STORE_HANDLERS,
+	NULL, /* prop read */
+	NULL, /* prop write */
+	NULL, /* read dim */
+	NULL, /* write dim */
+	NULL,
+	NULL, /* get */
+	NULL, /* set */
+	NULL, /* isset */
+	NULL, /* unset */
+	NULL, /* dim unset */
+	NULL, /* props get */
+	NULL, /* method get */
+	NULL, /* call */
+	NULL, /* get ctor */
+	iter_handler_get_ce,
+	NULL, /* get class name */
+	NULL, /* compare */
+	NULL  /* cast */
+};
+
+ZEND_API void zend_register_iterator_wrapper(TSRMLS_D)
+{
+	INIT_CLASS_ENTRY(zend_iterator_class_entry, "__iterator_wrapper", NULL);
+}
+
+static void iter_wrapper_dtor(void *object, zend_object_handle handle TSRMLS_DC)
+{
+	zend_object_iterator *iter = (zend_object_iterator*)object;
+	iter->funcs->dtor(iter TSRMLS_CC);
+}
+
+ZEND_API zval *zend_iterator_wrap(zend_object_iterator *iter TSRMLS_DC)
+{
+	zval *wrapped;
+	
+	MAKE_STD_ZVAL(wrapped);
+	Z_TYPE_P(wrapped) = IS_OBJECT;
+	wrapped->value.obj.handle = zend_objects_store_put(iter, iter_wrapper_dtor, NULL TSRMLS_CC);
+	wrapped->value.obj.handlers = &iterator_object_handlers;
+
+	return wrapped;
+}
+
+ZEND_API enum zend_object_iterator_kind zend_iterator_unwrap(
+	zval *array_ptr, zend_object_iterator **iter TSRMLS_DC)
+{
+	zend_class_entry *ce;
+
+	switch (Z_TYPE_P(array_ptr)) {
+		case IS_OBJECT:
+			ce = Z_OBJCE_P(array_ptr);
+			if (ce == &zend_iterator_class_entry) {
+				*iter = (zend_object_iterator *)zend_object_store_get_object(array_ptr TSRMLS_CC);
+				return ZEND_ITER_OBJECT;
+			}
+			return ZEND_ITER_INVALID;
+			
+		case IS_ARRAY:
+			*iter = NULL;
+			return HASH_OF(array_ptr) ? ZEND_ITER_PLAIN_ARRAY : ZEND_ITER_INVALID;
+			
+		default:
+			*iter = NULL;
+			return ZEND_ITER_INVALID;
+	}
+}
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */