X-Git-Url: https://git.m6w6.name/?a=blobdiff_plain;ds=sidebyside;f=php_propro.c;h=d7232b36b3a4b2025360667ee07f597ac8a9abe9;hb=a675e6fcb7ac533f9035dfe349633dcc2b2cce4f;hp=adf738d1533353952b56dffa05c9def9c9e1022c;hpb=85dc3b9e07c4166ca91b1d70f156c40b097d3b1e;p=m6w6%2Fext-propro diff --git a/php_propro.c b/php_propro.c index adf738d..d7232b3 100644 --- a/php_propro.c +++ b/php_propro.c @@ -18,11 +18,27 @@ #include #include -#include "php_propro.h" +#include "php_propro_api.h" + +#if PHP_VERSION_ID < 50500 +#undef SUCCESS +#undef FAILURE +typedef enum { + SUCCESS = 0, + FAILURE = -1 +} ZEND_RESULT_CODE; +#endif + +#define DEBUG_PROPRO 0 -typedef int STATUS; +#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)); @@ -34,7 +50,7 @@ PHP_PROPRO_API php_property_proxy_t *php_property_proxy_init(zval *container, co 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); @@ -47,12 +63,12 @@ PHP_PROPRO_API void php_property_proxy_free(php_property_proxy_t **proxy) 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); } @@ -61,18 +77,24 @@ static void php_property_proxy_object_free(void *object TSRMLS_DC) { 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; @@ -85,24 +107,99 @@ PHP_PROPRO_API zend_object_value php_property_proxy_object_new_ex(zend_class_ent } 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 = zend_object_store_get_object(object TSRMLS_CC); + php_property_proxy_object_t *obj; + obj = zend_object_store_get_object(object TSRMLS_CC); if (obj->proxy) { if (obj->parent) { zval *parent; @@ -110,7 +207,8 @@ static zval *get_parent_proxied_value(zval *object TSRMLS_DC) 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); + zend_objects_store_add_ref_by_handle( + obj->parent->zv.handle TSRMLS_CC); value = get_proxied_value(parent TSRMLS_CC); zval_ptr_dtor(&parent); } @@ -122,34 +220,48 @@ static zval *get_parent_proxied_value(zval *object TSRMLS_DC) 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); - Z_ADDREF_P(parent_value); - zval_ptr_dtor(&obj->proxy->container); - obj->proxy->container = parent_value; + 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; @@ -166,25 +278,34 @@ static STATUS cast_proxied_value(zval *object, zval *return_value, int type TSRM 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); - Z_ADDREF_P(parent_value); - zval_ptr_dtor(&obj->proxy->container); - obj->proxy->container = parent_value; + 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; } @@ -193,25 +314,35 @@ static void set_proxied_value(zval **object, zval *value TSRMLS_DC) 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); + 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 = get_proxied_value(object TSRMLS_CC); + zval *proxied_value; zval *o = offset; + debug_propro(1, type == BP_VAR_R ? "dim_read" : "dim_read_ref", object, + offset, NULL TSRMLS_CC); + + 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; } @@ -229,29 +360,78 @@ static zval *read_dimension(zval *object, zval *offset, int type TSRMLS_DC) set_proxied_value(&object, proxied_value TSRMLS_CC); } - add_assoc_null_ex(proxied_value, Z_STRVAL_P(o), Z_STRLEN_P(o) + 1); - - proxy = php_property_proxy_init(proxied_value, Z_STRVAL_P(o), Z_STRLEN_P(o) TSRMLS_CC); + 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); + 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); + zend_objects_store_add_ref_by_handle( + proxy_obj->parent->zv.handle TSRMLS_CC); } if (o && o != offset) { zval_ptr_dtor(&o); } + 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) { + zval_ptr_dtor(&o); + } + } + + 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, *o = offset; - if ((proxied_value = get_proxied_value(object TSRMLS_CC))) { + debug_propro(1, "dim_write", object, offset, value TSRMLS_CC); + + proxied_value = get_proxied_value(object TSRMLS_CC); + + if (proxied_value) { convert_to_array(proxied_value); Z_ADDREF_P(proxied_value); } else { @@ -266,9 +446,11 @@ static void write_dimension(zval *object, zval *offset, zval *value TSRMLS_DC) 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); + 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); + zend_hash_next_index_insert(Z_ARRVAL_P(proxied_value), (void *) &value, + sizeof(zval *), NULL); } if (o && o != offset) { @@ -276,11 +458,42 @@ static void write_dimension(zval *object, zval *offset, zval *value TSRMLS_DC) } 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); + } + } + + 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(); @@ -291,10 +504,14 @@ static PHP_METHOD(propro, __construct) { 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); @@ -304,7 +521,7 @@ static PHP_METHOD(propro, __construct) { } 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} }; @@ -312,17 +529,23 @@ static PHP_MINIT_FUNCTION(propro) { 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; }