/*
- +----------------------------------------------------------------------+
- | PHP Version 5 |
- +----------------------------------------------------------------------+
- | Copyright (c) 1997-2012 The PHP Group |
- +----------------------------------------------------------------------+
- | This source file is subject to version 3.01 of the PHP 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.php.net/license/3_01.txt |
- | If you did not receive a copy of the PHP license and are unable to |
- | obtain it through the world-wide-web, please send a note to |
- | license@php.net so we can mail you a copy immediately. |
- +----------------------------------------------------------------------+
- | Author: |
- +----------------------------------------------------------------------+
+ +--------------------------------------------------------------------+
+ | PECL :: propro |
+ +--------------------------------------------------------------------+
+ | Redistribution and use in source and binary forms, with or without |
+ | modification, are permitted provided that the conditions mentioned |
+ | in the accompanying LICENSE file are met. |
+ +--------------------------------------------------------------------+
+ | Copyright (c) 2013 Michael Wallner <mike@php.net> |
+ +--------------------------------------------------------------------+
*/
-/* $Id$ */
#ifdef HAVE_CONFIG_H
# include "config.h"
#include "php_propro.h"
-typedef int STATUS;
+#if PHP_VERSION_ID < 50500
+typedef enum {
+ SUCCESS = 0,
+ FAILURE = -1
+} ZEND_RESULT_CODE;
+#endif
+
+#define DEBUG_PROPRO 0
+
+#if PHP_VERSION_ID < 50400
+# define object_properties_init(o, ce) \
+ zend_hash_copy(((zend_object *) o)->properties, &(ce->default_properties), \
+ (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval*))
+#endif
-PHP_PROPRO_API php_property_proxy_t *php_property_proxy_init(zval *container, const char *member_str, size_t member_len TSRMLS_DC)
+php_property_proxy_t *php_property_proxy_init(zval *container,
+ const char *member_str, size_t member_len TSRMLS_DC)
{
php_property_proxy_t *proxy = ecalloc(1, sizeof(*proxy));
return proxy;
}
-PHP_PROPRO_API void php_property_proxy_free(php_property_proxy_t **proxy)
+void php_property_proxy_free(php_property_proxy_t **proxy)
{
if (*proxy) {
zval_ptr_dtor(&(*proxy)->container);
static zend_class_entry *php_property_proxy_class_entry;
static zend_object_handlers php_property_proxy_object_handlers;
-PHP_PROPRO_API zend_class_entry *php_property_proxy_get_class_entry(void)
+zend_class_entry *php_property_proxy_get_class_entry(void)
{
return php_property_proxy_class_entry;
}
-PHP_PROPRO_API zend_object_value php_property_proxy_object_new(zend_class_entry *ce TSRMLS_DC)
+zend_object_value php_property_proxy_object_new(zend_class_entry *ce TSRMLS_DC)
{
return php_property_proxy_object_new_ex(ce, NULL, NULL TSRMLS_CC);
}
{
php_property_proxy_object_t *o = object;
+#if DEBUG_PROPRO
+ fprintf(stderr, "#PP %p free\n", o);
+#endif
+
if (o->proxy) {
php_property_proxy_free(&o->proxy);
}
if (o->parent) {
- zend_objects_store_del_ref_by_handle_ex(o->parent->zv.handle, o->parent->zv.handlers TSRMLS_CC);
+ zend_objects_store_del_ref_by_handle_ex(o->parent->zv.handle,
+ o->parent->zv.handlers TSRMLS_CC);
o->parent = NULL;
}
zend_object_std_dtor((zend_object *) o TSRMLS_CC);
efree(o);
}
-PHP_PROPRO_API zend_object_value php_property_proxy_object_new_ex(zend_class_entry *ce, php_property_proxy_t *proxy, php_property_proxy_object_t **ptr TSRMLS_DC)
+zend_object_value php_property_proxy_object_new_ex(zend_class_entry *ce,
+ php_property_proxy_t *proxy, php_property_proxy_object_t **ptr TSRMLS_DC)
{
php_property_proxy_object_t *o;
}
o->proxy = proxy;
- o->zv.handle = zend_objects_store_put(o, NULL, php_property_proxy_object_free, NULL TSRMLS_CC);
+ o->zv.handle = zend_objects_store_put(o, NULL,
+ php_property_proxy_object_free, NULL TSRMLS_CC);
o->zv.handlers = &php_property_proxy_object_handlers;
+#if DEBUG_PROPRO
+ fprintf(stderr, "#PP %p init\n", o);
+#endif
+
return o->zv;
}
+#if DEBUG_PROPRO
+/* we do not really care about TS when debugging */
+static int level = 1;
+static const char space[] = " ";
+static const char *inoutstr[] = {"< return",""," > enter"};
+static void _walk(php_property_proxy_object_t *obj TSRMLS_DC)
+{
+ if (obj) {
+ _walk(obj->parent TSRMLS_CC);
+ fprintf(stderr, ".%s", obj->proxy->member_str);
+ }
+}
+
+static void debug_propro(int inout, const char *f, zval *object, zval *offset,
+ zval *value TSRMLS_DC)
+{
+ php_property_proxy_object_t *obj;
+
+ obj = zend_object_store_get_object(object TSRMLS_CC);
+ fprintf(stderr, "#PP %p %s %s %s ", obj, &space[sizeof(space)-level],
+ inoutstr[inout+1], f);
+
+ level += inout;
+
+ _walk(obj TSRMLS_CC);
+
+ if (*f++=='d'
+ && *f++=='i'
+ && *f++=='m'
+ ) {
+ char *offset_str = "[]";
+ zval *o = offset;
+
+ if (o) {
+ convert_to_string_ex(&o);
+ offset_str = Z_STRVAL_P(o);
+ }
+
+ fprintf(stderr, ".%s", offset_str);
+
+ if (o && o != offset) {
+ zval_ptr_dtor(&o);
+ }
+ }
+ if (value) {
+ const char *t[] = {
+ "NULL",
+ "int",
+ "float",
+ "bool",
+ "Array",
+ "Object",
+ "string",
+ "resource",
+ "const",
+ "const Array",
+ "callable"
+ };
+ fprintf(stderr, " = (%s) ", t[Z_TYPE_P(value)&0xf]);
+ zend_print_flat_zval_r(value TSRMLS_CC);
+ }
+
+ fprintf(stderr, "\n");
+}
+#else
+#define debug_propro(l, f, obj, off, val)
+#endif
+
+static zval *get_parent_proxied_value(zval *object TSRMLS_DC);
static zval *get_proxied_value(zval *object TSRMLS_DC);
static zval *read_dimension(zval *object, zval *offset, int type TSRMLS_DC);
-static STATUS cast_proxied_value(zval *object, zval *return_value, int type TSRMLS_DC);
+static ZEND_RESULT_CODE cast_proxied_value(zval *object, zval *return_value,
+ int type TSRMLS_DC);
static void write_dimension(zval *object, zval *offset, zval *value TSRMLS_DC);
static void set_proxied_value(zval **object, zval *value TSRMLS_DC);
+static zval *get_parent_proxied_value(zval *object TSRMLS_DC)
+{
+ zval *value = NULL;
+ php_property_proxy_object_t *obj;
+
+ obj = zend_object_store_get_object(object TSRMLS_CC);
+ if (obj->proxy) {
+ if (obj->parent) {
+ zval *parent;
+
+ MAKE_STD_ZVAL(parent);
+ parent->type = IS_OBJECT;
+ parent->value.obj = obj->parent->zv;
+ zend_objects_store_add_ref_by_handle(
+ obj->parent->zv.handle TSRMLS_CC);
+ value = get_proxied_value(parent TSRMLS_CC);
+ zval_ptr_dtor(&parent);
+ }
+ }
+
+ return value;
+}
+
static zval *get_proxied_value(zval *object TSRMLS_DC)
{
zval **hash_value, *value = NULL;
- php_property_proxy_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+ php_property_proxy_object_t *obj;
+ ZEND_RESULT_CODE rv;
+
+ obj = zend_object_store_get_object(object TSRMLS_CC);
+ debug_propro(1, "get", object, NULL, NULL TSRMLS_CC);
if (obj->proxy) {
+ if (obj->parent) {
+ zval *parent_value = get_parent_proxied_value(object TSRMLS_CC);
+
+ if (parent_value && parent_value != obj->proxy->container) {
+ Z_ADDREF_P(parent_value);
+ zval_ptr_dtor(&obj->proxy->container);
+ obj->proxy->container = parent_value;
+ }
+ }
switch (Z_TYPE_P(obj->proxy->container)) {
case IS_OBJECT:
- value = zend_read_property(Z_OBJCE_P(obj->proxy->container), obj->proxy->container, obj->proxy->member_str, obj->proxy->member_len, 0 TSRMLS_CC);
+ value = zend_read_property(Z_OBJCE_P(obj->proxy->container),
+ obj->proxy->container, obj->proxy->member_str,
+ obj->proxy->member_len, 0 TSRMLS_CC);
break;
case IS_ARRAY:
- if (SUCCESS == zend_hash_find(Z_ARRVAL_P(obj->proxy->container), obj->proxy->member_str, obj->proxy->member_len + 1, (void *) &hash_value)) {
+ rv = zend_symtable_find(Z_ARRVAL_P(obj->proxy->container),
+ obj->proxy->member_str, obj->proxy->member_len + 1,
+ (void *) &hash_value);
+
+ if (SUCCESS == rv) {
value = *hash_value;
}
break;
}
}
+ debug_propro(-1, "get", object, NULL, value TSRMLS_CC);
+
return value;
}
-static STATUS cast_proxied_value(zval *object, zval *return_value, int type TSRMLS_DC)
+static ZEND_RESULT_CODE cast_proxied_value(zval *object, zval *return_value,
+ int type TSRMLS_DC)
{
zval *proxied_value;
static void set_proxied_value(zval **object, zval *value TSRMLS_DC)
{
- php_property_proxy_object_t *obj = zend_object_store_get_object(*object TSRMLS_CC);
+ php_property_proxy_object_t *obj;
+
+ obj = zend_object_store_get_object(*object TSRMLS_CC);
+ debug_propro(1, "set", *object, NULL, value TSRMLS_CC);
if (obj->proxy) {
+ if (obj->parent) {
+ zval *parent_value = get_parent_proxied_value(*object TSRMLS_CC);
+
+ if (parent_value && parent_value != obj->proxy->container) {
+ Z_ADDREF_P(parent_value);
+ zval_ptr_dtor(&obj->proxy->container);
+ obj->proxy->container = parent_value;
+ }
+ }
+
switch (Z_TYPE_P(obj->proxy->container)) {
case IS_OBJECT:
- zend_update_property(Z_OBJCE_P(obj->proxy->container), obj->proxy->container, obj->proxy->member_str, obj->proxy->member_len, value TSRMLS_CC);
+ zend_update_property(Z_OBJCE_P(obj->proxy->container),
+ obj->proxy->container, obj->proxy->member_str,
+ obj->proxy->member_len, value TSRMLS_CC);
break;
case IS_ARRAY:
Z_ADDREF_P(value);
- zend_symtable_update(Z_ARRVAL_P(obj->proxy->container), obj->proxy->member_str, obj->proxy->member_len + 1, (void *) &value, sizeof(zval *), NULL);
+ zend_symtable_update(Z_ARRVAL_P(obj->proxy->container),
+ obj->proxy->member_str, obj->proxy->member_len + 1,
+ (void *) &value, sizeof(zval *), NULL);
break;
}
MAKE_STD_ZVAL(zparent);
zparent->type = IS_OBJECT;
zparent->value.obj = obj->parent->zv;
+ zend_objects_store_add_ref_by_handle(
+ obj->parent->zv.handle TSRMLS_CC);
set_proxied_value(&zparent, obj->proxy->container TSRMLS_CC);
+ zval_ptr_dtor(&zparent);
}
}
+
+ debug_propro(-1, "set", *object, NULL, NULL TSRMLS_CC);
}
static zval *read_dimension(zval *object, zval *offset, int type TSRMLS_DC)
{
zval *value = NULL;
zval *proxied_value;
+ zval *o = offset;
- if ((proxied_value = get_proxied_value(object TSRMLS_CC))) {
- zval *o = offset;
+ debug_propro(1, type == BP_VAR_R ? "dim_read" : "dim_read_ref", object,
+ offset, NULL TSRMLS_CC);
- convert_to_string_ex(&o);
+ proxied_value = get_proxied_value(object TSRMLS_CC);
+ convert_to_string_ex(&o);
+ if (BP_VAR_R == type && proxied_value) {
if (Z_TYPE_P(proxied_value) == IS_ARRAY) {
zval **hash_value;
- if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o), Z_STRLEN_P(o), (void *) &hash_value)) {
+ ZEND_RESULT_CODE rv = zend_symtable_find(Z_ARRVAL_P(proxied_value),
+ Z_STRVAL_P(o), Z_STRLEN_P(o), (void *) &hash_value);
+
+ if (SUCCESS == rv) {
Z_ADDREF_PP(hash_value);
value = *hash_value;
}
}
+ } else {
+ php_property_proxy_t *proxy;
+ php_property_proxy_object_t *proxy_obj;
- if (!value) {
- zval **hash_value;
-
- SEPARATE_ZVAL(&proxied_value);
+ if (proxied_value) {
convert_to_array(proxied_value);
+ Z_ADDREF_P(proxied_value);
+ } else {
+ MAKE_STD_ZVAL(proxied_value);
+ array_init(proxied_value);
+ set_proxied_value(&object, proxied_value TSRMLS_CC);
+ }
- MAKE_STD_ZVAL(value);
- ZVAL_NULL(value);
- zend_symtable_update(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o), Z_STRLEN_P(o) + 1, (void *) &value, sizeof(zval *), (void *) &hash_value);
- value = *hash_value;
- Z_SET_ISREF_P(value);
+ proxy = php_property_proxy_init(proxied_value, Z_STRVAL_P(o),
+ Z_STRLEN_P(o) TSRMLS_CC);
+ zval_ptr_dtor(&proxied_value);
+ MAKE_STD_ZVAL(value);
+ Z_SET_REFCOUNT_P(value, 0);
+ value->type = IS_OBJECT;
+ value->value.obj = php_property_proxy_object_new_ex(
+ php_property_proxy_get_class_entry(), proxy,
+ &proxy_obj TSRMLS_CC);
+ proxy_obj->parent = zend_object_store_get_object(object TSRMLS_CC);
+ zend_objects_store_add_ref_by_handle(
+ proxy_obj->parent->zv.handle TSRMLS_CC);
+ }
+ if (o && o != offset) {
+ zval_ptr_dtor(&o);
+ }
- set_proxied_value(&object, proxied_value TSRMLS_CC);
+ debug_propro(-1, type == BP_VAR_R ? "dim_read" : "dim_read_ref", object,
+ offset, value TSRMLS_CC);
+
+ return value;
+}
+
+static int has_dimension(zval *object, zval *offset, int check_empty TSRMLS_DC)
+{
+ zval *proxied_value;
+ int exists = 0;
+
+ debug_propro(1, "dim_exists", object, offset, NULL TSRMLS_CC);
+
+ proxied_value = get_proxied_value(object TSRMLS_CC);
+ if (!proxied_value) {
+ exists = 0;
+ } else {
+ zval *o = offset;
+
+ convert_to_string_ex(&o);
+
+ if (Z_TYPE_P(proxied_value) == IS_ARRAY) {
+ zval **zentry;
+ ZEND_RESULT_CODE rv = zend_symtable_find(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o), Z_STRLEN_P(o) + 1, (void *) &zentry);
+
+ if (SUCCESS != rv) {
+ exists = 0;
+ } else {
+ if (check_empty) {
+ exists = Z_TYPE_PP(zentry) != IS_NULL;
+ } else {
+ exists = 1;
+ }
+ }
}
if (o != offset) {
}
}
- return value;
+ debug_propro(-1, "dim_exists", object, offset, NULL TSRMLS_CC);
+
+ return exists;
}
static void write_dimension(zval *object, zval *offset, zval *value TSRMLS_DC)
{
- zval *proxied_value;
+ zval *proxied_value, *o = offset;
- if ((proxied_value = get_proxied_value(object TSRMLS_CC))) {
- zval *o = offset;
+ debug_propro(1, "dim_write", object, offset, value TSRMLS_CC);
- SEPARATE_ZVAL(&proxied_value);
+ proxied_value = get_proxied_value(object TSRMLS_CC);
+
+ if (proxied_value) {
convert_to_array(proxied_value);
+ Z_ADDREF_P(proxied_value);
+ } else {
+ MAKE_STD_ZVAL(proxied_value);
+ array_init(proxied_value);
+ }
- if (Z_REFCOUNT_P(value) > 1) {
- SEPARATE_ZVAL(&value);
- }
- Z_ADDREF_P(value);
+ if (Z_REFCOUNT_P(value) > 1) {
+ SEPARATE_ZVAL(&value);
+ }
+ Z_ADDREF_P(value);
- if (o) {
- convert_to_string_ex(&o);
- zend_symtable_update(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o), Z_STRLEN_P(o) + 1, (void *) &value, sizeof(zval *), NULL);
- } else {
- zend_hash_next_index_insert(Z_ARRVAL_P(proxied_value), (void *) &value, sizeof(zval *), NULL);
+ if (o) {
+ convert_to_string_ex(&o);
+ zend_symtable_update(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o),
+ Z_STRLEN_P(o) + 1, (void *) &value, sizeof(zval *), NULL);
+ } else {
+ zend_hash_next_index_insert(Z_ARRVAL_P(proxied_value), (void *) &value,
+ sizeof(zval *), NULL);
+ }
+
+ if (o && o != offset) {
+ zval_ptr_dtor(&o);
+ }
+
+ set_proxied_value(&object, proxied_value TSRMLS_CC);
+
+ debug_propro(-1, "dim_write", object, offset, proxied_value TSRMLS_CC);
+
+ zval_ptr_dtor(&proxied_value);
+}
+
+static void unset_dimension(zval *object, zval *offset TSRMLS_DC)
+{
+ zval *proxied_value;
+
+ debug_propro(1, "dim_unset", object, offset, NULL TSRMLS_CC);
+
+ proxied_value = get_proxied_value(object TSRMLS_CC);
+
+ if (proxied_value && Z_TYPE_P(proxied_value) == IS_ARRAY) {
+ zval *o = offset;
+ ZEND_RESULT_CODE rv;
+
+ convert_to_string_ex(&o);
+ rv = zend_symtable_del(Z_ARRVAL_P(proxied_value), Z_STRVAL_P(o),
+ Z_STRLEN_P(o) + 1);
+
+ if (SUCCESS == rv) {
+ set_proxied_value(&object, proxied_value TSRMLS_CC);
}
if (o != offset) {
zval_ptr_dtor(&o);
}
-
- set_proxied_value(&object, proxied_value TSRMLS_CC);
}
+
+ debug_propro(-1, "dim_unset", object, offset, proxied_value TSRMLS_CC);
}
ZEND_BEGIN_ARG_INFO_EX(ai_propro_construct, 0, 0, 2)
- ZEND_ARG_INFO(0, object)
+ ZEND_ARG_INFO(1, object)
ZEND_ARG_INFO(0, member)
ZEND_ARG_OBJ_INFO(0, parent, php\\PropertyProxy, 1)
ZEND_END_ARG_INFO();
int member_len;
zend_replace_error_handling(EH_THROW, NULL, &zeh TSRMLS_CC);
- if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zs|O!", &container, &member_str, &member_len, &parent, php_property_proxy_class_entry)) {
- php_property_proxy_object_t *obj = zend_object_store_get_object(getThis() TSRMLS_CC);
-
- obj->proxy = php_property_proxy_init(container, member_str, member_len TSRMLS_CC);
+ if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zs|O!",
+ &container, &member_str, &member_len, &parent,
+ php_property_proxy_class_entry)) {
+ php_property_proxy_object_t *obj;
+
+ obj = zend_object_store_get_object(getThis() TSRMLS_CC);
+ obj->proxy = php_property_proxy_init(container, member_str,
+ member_len TSRMLS_CC);
if (parent) {
zend_objects_store_add_ref(parent TSRMLS_CC);
obj->parent = zend_object_store_get_object(parent TSRMLS_CC);
}
static const zend_function_entry php_property_proxy_method_entry[] = {
- PHP_ME(propro, __construct, ai_propro_construct, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
+ PHP_ME(propro, __construct, ai_propro_construct, ZEND_ACC_PUBLIC)
{0}
};
{
zend_class_entry ce = {0};
- INIT_NS_CLASS_ENTRY(ce, "php", "PropertyProxy", php_property_proxy_method_entry);
- php_property_proxy_class_entry = zend_register_internal_class_ex(&ce, NULL, NULL TSRMLS_CC);
- php_property_proxy_class_entry->create_object = php_property_proxy_object_new;
+ INIT_NS_CLASS_ENTRY(ce, "php", "PropertyProxy",
+ php_property_proxy_method_entry);
+ php_property_proxy_class_entry = zend_register_internal_class_ex(&ce, NULL,
+ NULL TSRMLS_CC);
+ php_property_proxy_class_entry->create_object =
+ php_property_proxy_object_new;
php_property_proxy_class_entry->ce_flags |= ZEND_ACC_FINAL_CLASS;
- memcpy(&php_property_proxy_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
+ memcpy(&php_property_proxy_object_handlers, zend_get_std_object_handlers(),
+ sizeof(zend_object_handlers));
php_property_proxy_object_handlers.set = set_proxied_value;
php_property_proxy_object_handlers.get = get_proxied_value;
php_property_proxy_object_handlers.cast_object = cast_proxied_value;
php_property_proxy_object_handlers.read_dimension = read_dimension;
php_property_proxy_object_handlers.write_dimension = write_dimension;
+ php_property_proxy_object_handlers.has_dimension = has_dimension;
+ php_property_proxy_object_handlers.unset_dimension = unset_dimension;
return SUCCESS;
}