PHP-7.4 compat
[m6w6/ext-pq] / src / php_pq_object.c
index e6640def71a3dc97422bc7d5403995c75eb94644..b9ce32d5c9dac4bf8c2cac77eadbfc9049fe0891 100644 (file)
 
 #include "php_pq_object.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;
+       zval *object;
+       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);
-
-       if (addref) {
-               Z_ADDREF_P(property);
+       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 member, return_value;
+
+                       ZVAL_STR(&member, pi->name);
+                       ZVAL_ARR(&return_value, arg->ht);
+                       handler->gc(arg->object, arg->pq_obj, &return_value);
+               }
+       } else {
+               zval tmp_prop, *property = NULL;
+
+               property = zend_read_property(arg->pq_obj->zo.ce, arg->object, pi->name->val, pi->name->len, 0, &tmp_prop);
+               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)
+HashTable *php_pq_object_debug_info(zval *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.object = object;
+       arg.pq_obj = PHP_PQ_OBJ(object, NULL);
+       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;
 }
 
-HashTable *php_pq_object_properties(zval *object TSRMLS_DC)
+HashTable *php_pq_object_properties(zval *object)
 {
-       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.ht = zend_get_std_object_handlers()->get_properties(object);
+       arg.object = object;
+       arg.pq_obj = PHP_PQ_OBJ(object, NULL);
+       arg.gc = 0;
 
-       zend_hash_apply_with_arguments(&obj->zo.ce->properties_info TSRMLS_CC, apply_pi_to_ht, 4, ht, object, obj, 1);
+       zend_hash_apply_with_argument(&arg.pq_obj->zo.ce->properties_info, apply_pi_to_ht, &arg);
 
-       return ht;
+       return arg.ht;
+}
+
+HashTable *php_pq_object_get_gc(zval *object, zval **table, int *n)
+{
+       struct apply_pi_to_ht_arg arg = {NULL};
+
+       arg.object = object;
+       arg.pq_obj = PHP_PQ_OBJ(object, NULL);
+       arg.ht = &arg.pq_obj->gc;
+       arg.gc = 1;
+
+       zend_hash_clean(arg.ht);
+       zend_hash_copy(arg.ht, zend_std_get_properties(object), NULL);
+       zend_hash_apply_with_argument(&arg.pq_obj->zo.ce->properties_info, apply_pi_to_ht, &arg);
+
+       *table = NULL;
+       *n = 0;
+
+       return arg.ht;
 }
 
 zend_class_entry *ancestor(zend_class_entry *ce)
@@ -107,42 +166,69 @@ 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)
+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);
+       php_pq_object_t *obj = PHP_PQ_OBJ(object, NULL);
        php_pq_object_prophandler_t *handler;
        zval *return_value = NULL;
 
+       return_value = zend_get_std_object_handlers()->read_property(object, member, type, cache_slot, tmp);
+
        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);
-               }
+               php_error(E_RECOVERABLE_ERROR, "%s not initialized", ancestor(obj->zo.ce)->name->val);
+       } else if (!(handler = zend_hash_find_ptr(obj->prophandler, Z_STR_P(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(object, obj, tmp);
+               zend_get_std_object_handlers()->write_property(object, member, tmp, cache_slot);
+               return_value = tmp;
+
+               /*
+               zval dtor;
+
+               ZVAL_COPY_VALUE(&dtor, return_value);
+
+               ZVAL_ZVAL(return_value, tmp, 0, 0);
+               zval_ptr_dtor(&dtor);
+
+               */
+
+               if (cache_slot) {
+                       *cache_slot = NULL;
+               }
        }
 
        return return_value;
 }
 
-void php_pq_object_write_prop(zval *object, zval *member, zval *value, const zend_literal *key TSRMLS_DC)
+php_pq_object_write_prop_t php_pq_object_write_prop(zval *object, zval *member, zval *value, void **cache_slot)
 {
-       php_pq_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
+       php_pq_object_t *obj = PHP_PQ_OBJ(object, NULL);
        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);
+               zend_get_std_object_handlers()->write_property(object, member, value, cache_slot);
+       } else if ((handler = zend_hash_find_ptr(obj->prophandler, Z_STR_P(member)))) {
                if (handler->write) {
-                       handler->write(object, obj, value TSRMLS_CC);
+                       handler->write(object, obj, value);
                }
        } else {
-               zend_get_std_object_handlers()->write_property(object, member, value, key TSRMLS_CC);
+               zend_get_std_object_handlers()->write_property(object, member, value, cache_slot);
        }
+#if PHP_VERSION_ID >= 70400
+       return value;
+#endif
+}
+
+zval *php_pq_object_get_prop_ptr_null(zval *object, zval *member, int type, void **cache_slot)
+{
+       return NULL;
+}
+
+void php_pq_object_prophandler_dtor(zval *zv) {
+       pefree(Z_PTR_P(zv), 1);
 }