#include <php.h>
#include "php_pq_object.h"
+#include "php_pq_misc.h"
-void php_pq_object_to_zval(void *o, zval **zv TSRMLS_DC)
+void *php_pq_object_create(zend_class_entry *ce, void *intern, size_t obj_size, zend_object_handlers *oh, HashTable *ph)
{
- php_pq_object_t *obj = o;
+ php_pq_object_t *o = ecalloc(1, obj_size + zend_object_properties_size(ce));
- if (!*zv) {
- MAKE_STD_ZVAL(*zv);
- }
+ zend_object_std_init(&o->zo, ce);
+ object_properties_init(&o->zo, ce);
+ o->zo.handlers = oh;
+ o->intern = intern;
+ o->prophandler = ph;
+
+ zend_hash_init(&o->gc, 0, NULL, NULL, 0);
- zend_objects_store_add_ref_by_handle(obj->zv.handle TSRMLS_CC);
+ return o;
+}
+
+void php_pq_object_dtor(zend_object *o)
+{
+ php_pq_object_t *obj = PHP_PQ_OBJ(NULL, o);
- (*zv)->type = IS_OBJECT;
- (*zv)->value.obj = obj->zv;
+ zend_hash_destroy(&obj->gc);
+ zend_object_std_dtor(o);
}
-void php_pq_object_to_zval_no_addref(void *o, zval **zv TSRMLS_DC)
+void php_pq_object_to_zval(void *o, zval *zv)
{
php_pq_object_t *obj = o;
- if (!*zv) {
- MAKE_STD_ZVAL(*zv);
- }
+ ZVAL_OBJ(zv, &obj->zo);
+ Z_ADDREF_P(zv);
+}
- /* no add ref */
+void php_pq_object_to_zval_no_addref(void *o, zval *zv)
+{
+ php_pq_object_t *obj = o;
- (*zv)->type = IS_OBJECT;
- (*zv)->value.obj = obj->zv;
+ ZVAL_OBJ(zv, &obj->zo);
}
-void php_pq_object_addref(void *o TSRMLS_DC)
+void php_pq_object_addref(void *o)
{
php_pq_object_t *obj = o;
- zend_objects_store_add_ref_by_handle(obj->zv.handle TSRMLS_CC);
+#ifdef GC_ADDREF
+ GC_ADDREF(&obj->zo);
+#else
+ ++GC_REFCOUNT(&obj->zo);
+#endif
}
-void php_pq_object_delref(void *o TSRMLS_DC)
+void php_pq_object_delref(void *o)
{
php_pq_object_t *obj = o;
- zend_objects_store_del_ref_by_handle_ex(obj->zv.handle, obj->zv.handlers TSRMLS_CC);
+ zval tmp;
+
+ /* this should gc immediately */
+ ZVAL_OBJ(&tmp, &obj->zo);
+ zval_ptr_dtor(&tmp);
}
-static int apply_pi_to_ht(void *p TSRMLS_DC, int argc, va_list argv, zend_hash_key *key)
+struct apply_pi_to_ht_arg {
+ HashTable *ht;
+ php_pq_object_t *pq_obj;
+ unsigned gc:1;
+};
+
+static int apply_pi_to_ht(zval *p, void *a)
{
- zend_property_info *pi = p;
- HashTable *ht = va_arg(argv, HashTable *);
- zval *object = va_arg(argv, zval *);
- php_pq_object_t *obj = va_arg(argv, php_pq_object_t *);
- int addref = va_arg(argv, int);
- zval *property = zend_read_property(obj->zo.ce, object, pi->name, pi->name_length, 0 TSRMLS_CC);
+ zend_property_info *pi = Z_PTR_P(p);
+ struct apply_pi_to_ht_arg *arg = a;
+
+ if (arg->gc) {
+ php_pq_object_prophandler_t *handler;
+
+ if ((handler = zend_hash_find_ptr(arg->pq_obj->prophandler, pi->name)) && handler->gc) {
+ zval return_value;
- if (addref) {
- Z_ADDREF_P(property);
+ ZVAL_ARR(&return_value, arg->ht);
+ handler->gc(arg->pq_obj, &return_value);
+ }
+ } else {
+ zval tmp_prop, *property;
+#if PHP_VERSION_ID < 80000
+ zval zobj;
+
+ ZVAL_OBJ(&zobj, &arg->pq_obj->zo);
+# if PHP_VERSION_ID < 70100
+ property = zend_read_property(arg->pq_obj->zo.ce, &zobj, pi->name->val, pi->name->len, 0, &tmp_prop);
+# else
+ property = zend_read_property_ex(arg->pq_obj->zo.ce, &zobj, pi->name, 0, &tmp_prop);
+# endif
+#else
+ property = zend_read_property_ex(arg->pq_obj->zo.ce, &arg->pq_obj->zo, pi->name, 0, &tmp_prop);
+#endif
+ zend_hash_update(arg->ht, pi->name, property);
}
- zend_hash_update(ht, pi->name, pi->name_length + 1, (void *) &property, sizeof(zval *), NULL);
return ZEND_HASH_APPLY_KEEP;
}
-HashTable *php_pq_object_debug_info(zval *object, int *temp TSRMLS_DC)
+static inline HashTable *php_pq_object_debug_info_ex(zend_object *object, int *temp)
{
- HashTable *ht;
- php_pq_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+ struct apply_pi_to_ht_arg arg = {NULL};
*temp = 1;
- ALLOC_HASHTABLE(ht);
- ZEND_INIT_SYMTABLE(ht);
+ ALLOC_HASHTABLE(arg.ht);
+ ZEND_INIT_SYMTABLE(arg.ht);
- zend_hash_apply_with_arguments(&obj->zo.ce->properties_info TSRMLS_CC, apply_pi_to_ht, 4, ht, object, obj, 1);
+ arg.pq_obj = PHP_PQ_OBJ(NULL, object);
+ arg.gc = 0;
- return ht;
+ zend_hash_apply_with_argument(&arg.pq_obj->zo.ce->properties_info, apply_pi_to_ht, &arg);
+
+ return arg.ht;
+}
+#if PHP_VERSION_ID >= 80000
+HashTable *php_pq_object_debug_info(zend_object *object, int *temp)
+{
+ return php_pq_object_debug_info_ex(object, temp);
+}
+#else
+HashTable *php_pq_object_debug_info(zval *object, int *temp)
+{
+ return php_pq_object_debug_info_ex(Z_OBJ_P(object), temp);
+}
+#endif
+
+static inline HashTable *php_pq_object_properties_ex(zend_object *object, HashTable *props)
+{
+ struct apply_pi_to_ht_arg arg = {NULL};
+
+ arg.ht = props;
+ arg.pq_obj = PHP_PQ_OBJ(NULL, object);
+ arg.gc = 0;
+
+ zend_hash_apply_with_argument(&arg.pq_obj->zo.ce->properties_info, apply_pi_to_ht, &arg);
+
+ return arg.ht;
+}
+#if PHP_VERSION_ID >= 80000
+HashTable *php_pq_object_properties(zend_object *object)
+{
+ return php_pq_object_properties_ex(object, zend_std_get_properties(object));
+}
+#else
+HashTable *php_pq_object_properties(zval *object)
+{
+ return php_pq_object_properties_ex(Z_OBJ_P(object), zend_std_get_properties(object));
}
+#endif
-HashTable *php_pq_object_properties(zval *object TSRMLS_DC)
+static inline HashTable *php_pq_object_get_gc_ex(zend_object *object, HashTable *props, zval **table, int *n)
{
- HashTable *ht = zend_get_std_object_handlers()->get_properties(object TSRMLS_CC);
- php_pq_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+ struct apply_pi_to_ht_arg arg = {NULL};
+
+ arg.pq_obj = PHP_PQ_OBJ(NULL, object);
+ arg.ht = &arg.pq_obj->gc;
+ arg.gc = 1;
+
+ if (GC_REFCOUNT(arg.ht) == 1) {
+ zend_hash_clean(arg.ht);
+ zend_hash_copy(arg.ht, props, NULL);
+ zend_hash_apply_with_argument(&arg.pq_obj->zo.ce->properties_info, apply_pi_to_ht, &arg);
+ }
- zend_hash_apply_with_arguments(&obj->zo.ce->properties_info TSRMLS_CC, apply_pi_to_ht, 4, ht, object, obj, 1);
+ *table = NULL;
+ *n = 0;
- return ht;
+ return arg.ht;
}
+#if PHP_VERSION_ID >= 80000
+HashTable *php_pq_object_get_gc(zend_object *object, zval **table, int *n)
+{
+ return php_pq_object_get_gc_ex(object, zend_std_get_properties(object), table, n);
+}
+#else
+HashTable *php_pq_object_get_gc(zval *object, zval **table, int *n)
+{
+ return php_pq_object_get_gc_ex(Z_OBJ_P(object), zend_std_get_properties(object), table, n);
+}
+#endif
zend_class_entry *ancestor(zend_class_entry *ce)
{
return ce;
}
-zval *php_pq_object_read_prop(zval *object, zval *member, int type, const zend_literal *key TSRMLS_DC)
+static inline int php_pq_object_read_prop_ex(zend_object *object, zend_string *member, int type, zval *return_value)
{
- php_pq_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+ php_pq_object_t *obj = PHP_PQ_OBJ(NULL, object);
php_pq_object_prophandler_t *handler;
- zval *return_value;
if (!obj->intern) {
- zend_error(E_WARNING, "%s not initialized", ancestor(obj->zo.ce)->name);
- } else if ((SUCCESS == zend_hash_find(obj->prophandler, Z_STRVAL_P(member), Z_STRLEN_P(member)+1, (void *) &handler)) && handler->read) {
- if (type == BP_VAR_R) {
- ALLOC_ZVAL(return_value);
- Z_SET_REFCOUNT_P(return_value, 0);
- Z_UNSET_ISREF_P(return_value);
-
- handler->read(object, obj, return_value TSRMLS_CC);
- } else {
- zend_error(E_ERROR, "Cannot access %s properties by reference or array key/index", ancestor(obj->zo.ce)->name);
- return_value = NULL;
- }
+ php_error(E_RECOVERABLE_ERROR, "%s not initialized", ancestor(obj->zo.ce)->name->val);
+ } else if (!(handler = zend_hash_find_ptr(obj->prophandler, member)) || !handler->read) {
+ /* default handler */
+ } else if (type != BP_VAR_R) {
+ php_error(E_WARNING, "Cannot access %s properties by reference or array key/index", ancestor(obj->zo.ce)->name->val);
} else {
- return_value = zend_get_std_object_handlers()->read_property(object, member, type, key TSRMLS_CC);
+ handler->read(obj, return_value);
+ return SUCCESS;
}
- return return_value;
+ return FAILURE;
}
+#if PHP_VERSION_ID >= 80000
+zval *php_pq_object_read_prop(zend_object *object, zend_string *member, int type, void **cache_slot, zval *tmp)
+{
+ if (SUCCESS != php_pq_object_read_prop_ex(object, member, type, tmp)) {
+ return zend_std_read_property(object, member, type, cache_slot, tmp);
+ }
+
+ zend_std_write_property(object, member, tmp, cache_slot);
-void php_pq_object_write_prop(zval *object, zval *member, zval *value, const zend_literal *key TSRMLS_DC)
+ if (cache_slot) {
+ *cache_slot = NULL;
+ }
+ return tmp;
+}
+#else
+zval *php_pq_object_read_prop(zval *object, zval *member, int type, void **cache_slot, zval *tmp)
{
- php_pq_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+ zend_string *member_str = zval_get_string(member);
+
+ if (SUCCESS != php_pq_object_read_prop_ex(Z_OBJ_P(object), member_str, type, tmp)) {
+ zend_string_release(member_str);
+ return zend_get_std_object_handlers()->read_property(object, member, type, cache_slot, tmp);
+ }
+ zend_string_release(member_str);
+
+ zend_std_write_property(object, member, tmp, cache_slot);
+
+ if (cache_slot) {
+ *cache_slot = NULL;
+ }
+ return tmp;
+}
+#endif
+
+static inline int php_pq_object_write_prop_ex(zend_object *object, zend_string *member, zval *value)
+{
+ php_pq_object_t *obj = PHP_PQ_OBJ(NULL, object);
php_pq_object_prophandler_t *handler;
- if (SUCCESS == zend_hash_find(obj->prophandler, Z_STRVAL_P(member), Z_STRLEN_P(member)+1, (void *) &handler)) {
+ if (!obj->intern) {
+ php_error(E_RECOVERABLE_ERROR, "%s not initialized", ancestor(obj->zo.ce)->name->val);
+ } else if (!(handler = zend_hash_find_ptr(obj->prophandler, member))) {
+ /* default handler */
+ } else {
if (handler->write) {
- handler->write(object, obj, value TSRMLS_CC);
+ handler->write(obj, value);
}
- } else {
- zend_get_std_object_handlers()->write_property(object, member, value, key TSRMLS_CC);
+ return SUCCESS;
+ }
+ return FAILURE;
+}
+#if PHP_VERSION_ID >= 80000
+zval *php_pq_object_write_prop(zend_object *object, zend_string *member, zval *value, void **cache_slot)
+{
+ if (SUCCESS != php_pq_object_write_prop_ex(object, member, value)) {
+ return zend_std_write_property(object, member, value, cache_slot);
+ }
+ return value;
+}
+#elif PHP_VERSION_ID >= 70400
+zval *php_pq_object_write_prop(zval *object, zval *member, zval *value, void **cache_slot)
+{
+ zend_string *member_str = zval_get_string(member);
+ if (SUCCESS != php_pq_object_write_prop_ex(Z_OBJ_P(object), member_str, value)) {
+ value = zend_std_write_property(object, member, value, cache_slot);
+ }
+ zend_string_release(member_str);
+ return value;
+}
+#else
+void php_pq_object_write_prop(zval *object, zval *member, zval *value, void **cache_slot)
+{
+ zend_string *member_str = zval_get_string(member);
+ if (SUCCESS != php_pq_object_write_prop_ex(Z_OBJ_P(object), member_str, value)) {
+ zend_std_write_property(object, member, value, cache_slot);
}
+ zend_string_release(member_str);
+}
+#endif
+
+#if PHP_VERSION_ID >= 80000
+zval *php_pq_object_get_prop_ptr_null(zend_object *object, zend_string *member, int type, void **cache_slot)
+{
+ return NULL;
+}
+#else
+zval *php_pq_object_get_prop_ptr_null(zval *object, zval *member, int type, void **cache_slot)
+{
+ return NULL;
+}
+#endif
+
+void php_pq_object_prophandler_dtor(zval *zv) {
+ pefree(Z_PTR_P(zv), 1);
}