X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-http;a=blobdiff_plain;f=missing.c;h=81d5183f4d376b2abbf182c5062f06d5ff2495a1;hp=bbc4b3ac3b8787114f546b0bbfeaa5a78d4c578b;hb=13197bcea39d3425d021ee9a03e08ae5381ce296;hpb=781c90c0447166dd52ef881ae15751fa466c32fb diff --git a/missing.c b/missing.c index bbc4b3a..81d5183 100644 --- a/missing.c +++ b/missing.c @@ -1,32 +1,330 @@ +/* + +----------------------------------------------------------------------+ + | PECL :: http | + +----------------------------------------------------------------------+ + | This source file is subject to version 3.0 of the PHP license, that | + | is bundled with this package in the file LICENSE, and is available | + | through the world-wide-web at http://www.php.net/license/3_0.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. | + +----------------------------------------------------------------------+ + | Copyright (c) 2004-2005 Michael Wallner | + +----------------------------------------------------------------------+ +*/ + +/* $Id$ */ #include "php.h" #include "missing.h" +#if PHP_MAJOR_VERSION == 5 + +static inline zval *new_zval(int persistent) +{ + zval *z = pemalloc(sizeof(zval), persistent); + INIT_PZVAL(z); + return z; +} + +static inline zval *tmp_zval(void) +{ + zval *z; + ALLOC_ZVAL(z); + z->is_ref = 0; + z->refcount = 0; + return z; +} + +static void dup_zval(zval **z) +{ + zval_add_ref(z); + SEPARATE_ZVAL(z); +} + + +# if PHP_MINOR_VERSION == 0 + int zend_declare_property_double(zend_class_entry *ce, char *name, int name_length, double value, int access_type TSRMLS_DC) { - zval *property; + zval *property = new_zval(ce->type & ZEND_INTERNAL_CLASS); + ZVAL_DOUBLE(property, value); + return zend_declare_property(ce, name, name_length, property, access_type TSRMLS_CC); +} + +void zend_update_property_double(zend_class_entry *scope, zval *object, char *name, int name_length, double value TSRMLS_DC) +{ + zval *tmp = tmp_zval(); + ZVAL_DOUBLE(tmp, value); + zend_update_property(scope, object, name, name_length, tmp TSRMLS_CC); +} + +int zend_declare_property_bool(zend_class_entry *ce, char *name, int name_length, long value, int access_type TSRMLS_DC) +{ + zval *property = new_zval(ce->type & ZEND_INTERNAL_CLASS); + ZVAL_BOOL(property, value); + return zend_declare_property(ce, name, name_length, property, access_type TSRMLS_CC); +} + +void zend_update_property_bool(zend_class_entry *scope, zval *object, char *name, int name_length, long value TSRMLS_DC) +{ + zval *tmp = tmp_zval(); + ZVAL_BOOL(tmp, value); + zend_update_property(scope, object, name, name_length, tmp TSRMLS_CC); +} + +# endif /* PHP_MINOR_VERSION == 0 */ + +int zend_declare_class_constant(zend_class_entry *ce, char *name, size_t name_length, zval *value TSRMLS_DC) +{ + return zend_hash_add(&ce->constants_table, name, name_length, &value, sizeof(zval *), NULL); +} + +int zend_declare_class_constant_long(zend_class_entry *ce, char *name, size_t name_length, long value TSRMLS_DC) +{ + zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS); + ZVAL_LONG(constant, value); + return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC); +} + +int zend_declare_class_constant_bool(zend_class_entry *ce, char *name, size_t name_length, zend_bool value TSRMLS_DC) +{ + zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS); + ZVAL_BOOL(constant, value); + return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC); +} + +int zend_declare_class_constant_double(zend_class_entry *ce, char *name, size_t name_length, double value TSRMLS_DC) +{ + zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS); + ZVAL_DOUBLE(constant, value); + return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC); +} + +int zend_declare_class_constant_string(zend_class_entry *ce, char *name, size_t name_length, char *value TSRMLS_DC) +{ + return zend_declare_class_constant_stringl(ce, name, name_length, value, strlen(value) TSRMLS_CC); +} +int zend_declare_class_constant_stringl(zend_class_entry *ce, char *name, size_t name_length, char *value, size_t value_length TSRMLS_DC) +{ + zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS); if (ce->type & ZEND_INTERNAL_CLASS) { - property = malloc(sizeof(zval)); + ZVAL_STRINGL(constant, zend_strndup(value, value_length), value_length, 0); } else { - ALLOC_ZVAL(property); + ZVAL_STRINGL(constant, value, value_length, 1); } - INIT_PZVAL(property); - ZVAL_DOUBLE(property, value); - return zend_declare_property(ce, name, name_length, property, access_type TSRMLS_CC); + return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC); } -void zend_update_property_double(zend_class_entry *scope, zval *object, char *name, int name_length, double value TSRMLS_DC) +int zend_update_static_property(zend_class_entry *scope, char *name, size_t name_len, zval *value TSRMLS_DC) +{ + int retval; + zval **property = NULL; + zend_class_entry *old_scope = EG(scope); + + EG(scope) = scope; + + if (!(property = zend_std_get_static_property(scope, name, name_len, 0 TSRMLS_CC))) { + retval = FAILURE; + } else if (*property == value) { + retval = SUCCESS; + } else { + value->refcount++; + if (PZVAL_IS_REF(*property)) { + zval_dtor(*property); + (*property)->type = value->type; + (*property)->value = value->value; + + if (value->refcount) { + zval_copy_ctor(*property); + } + } else { + **property = *value; + zval_copy_ctor(*property); + } + retval = SUCCESS; + } + + EG(scope) = old_scope; + + return retval; +} + +int trash(zend_class_entry *scope, char *name, size_t name_len, zval *value TSRMLS_DC) +{ + int retval; + zval **property = NULL; + zend_class_entry *old_scope = EG(scope); + + EG(scope) = scope; + + if (!(property = zend_std_get_static_property(scope, name, name_len, 0 TSRMLS_CC))) { + retval = FAILURE; + } else if (*property == value) { + retval = SUCCESS; + } else if (scope->type & ZEND_INTERNAL_CLASS) { + int refcount; + zend_uchar is_ref; + + refcount = (*property)->refcount; + is_ref = (*property)->is_ref; + + /* clean */ + switch (Z_TYPE_PP(property)) + { + case IS_BOOL: case IS_LONG: case IS_NULL: + break; + + case IS_RESOURCE: + zend_list_delete(Z_LVAL_PP(property)); + break; + + case IS_STRING: case IS_CONSTANT: + free(Z_STRVAL_PP(property)); + break; + + case IS_OBJECT: + if (Z_OBJ_HT_PP(property)->del_ref) { + Z_OBJ_HT_PP(property)->del_ref(*property TSRMLS_CC); + } + break; + + case IS_ARRAY: case IS_CONSTANT_ARRAY: + if (Z_ARRVAL_PP(property) && Z_ARRVAL_PP(property) != &EG(symbol_table)) { + zend_hash_destroy(Z_ARRVAL_PP(property)); + free(Z_ARRVAL_PP(property)); + } + break; + } + + /* copy */ + **property = *value; + + /* ctor */ + switch (Z_TYPE_PP(property)) + { + case IS_BOOL: case IS_LONG: case IS_NULL: + break; + + case IS_RESOURCE: + zend_list_addref(Z_LVAL_PP(property)); + break; + + case IS_STRING: case IS_CONSTANT: + Z_STRVAL_PP(property) = (char *) zend_strndup(Z_STRVAL_PP(property), Z_STRLEN_PP(property)); + break; + + case IS_OBJECT: + if (Z_OBJ_HT_PP(property)->add_ref) { + Z_OBJ_HT_PP(property)->add_ref(*property TSRMLS_CC); + } + break; + + case IS_ARRAY: case IS_CONSTANT_ARRAY: + { + if (Z_ARRVAL_PP(property) != &EG(symbol_table)) { + zval *tmp; + HashTable *old = Z_ARRVAL_PP(property); + + Z_ARRVAL_PP(property) = (HashTable *) malloc(sizeof(HashTable)); + zend_hash_init(Z_ARRVAL_PP(property), 0, NULL, ZVAL_PTR_DTOR, 0); + zend_hash_copy(Z_ARRVAL_PP(property), old, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *)); + } + } + break; + } + + (*property)->refcount = refcount; + (*property)->is_ref = is_ref; + + retval = SUCCESS; + + } else { + if (PZVAL_IS_REF(*property)) { + zval_dtor(*property); + (*property)->type = value->type; + (*property)->value = value->value; + + if (value->refcount) { + zval_copy_ctor(*property); + } + + retval = SUCCESS; + } else { + value->refcount++; + if (PZVAL_IS_REF(value)) { + SEPARATE_ZVAL(&value); + } + + retval = zend_hash_update(scope->static_members, name, name_len, &value, sizeof(zval *), NULL); + } + } + + if (!value->refcount) { + zval_dtor(value); + FREE_ZVAL(value); + } + + EG(scope) = old_scope; + + return retval; +} + +int zend_update_static_property_bool(zend_class_entry *scope, char *name, size_t name_len, zend_bool value TSRMLS_DC) +{ + zval *tmp = tmp_zval(); + ZVAL_BOOL(tmp, value); + return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC); +} + +int zend_update_static_property_long(zend_class_entry *scope, char *name, size_t name_len, long value TSRMLS_DC) { - zval *tmp; + zval *tmp = tmp_zval(); + ZVAL_LONG(tmp, value); + return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC); +} - ALLOC_ZVAL(tmp); - tmp->is_ref = 0; - tmp->refcount = 0; +int zend_update_static_property_double(zend_class_entry *scope, char *name, size_t name_len, double value TSRMLS_DC) +{ + zval *tmp = tmp_zval(); ZVAL_DOUBLE(tmp, value); - zend_update_property(scope, object, name, name_length, tmp TSRMLS_CC); + return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC); +} + +int zend_update_static_property_string(zend_class_entry *scope, char *name, size_t name_len, char *value TSRMLS_DC) +{ + zval *tmp = tmp_zval(); + ZVAL_STRING(tmp, value, 1); + return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC); +} + +int zend_update_static_property_stringl(zend_class_entry *scope, char *name, size_t name_len, char *value, size_t value_len TSRMLS_DC) +{ + zval *tmp = tmp_zval(); + ZVAL_STRINGL(tmp, value, value_len, 1); + return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC); } +void zend_fix_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC) +{ + zend_hash_copy(static_members, ce->static_members, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *)); + zend_hash_destroy(ce->static_members); + zend_hash_init_ex(ce->static_members, 0, NULL, ZVAL_PTR_DTOR, 1, 0); +} + +void zend_init_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC) +{ + zend_hash_copy(ce->static_members, static_members, (copy_ctor_func_t) dup_zval, NULL, sizeof(zval *)); +} + +void zend_clean_static_properties(zend_class_entry *ce TSRMLS_DC) +{ + zend_hash_clean(ce->static_members); +} + +#endif /* PHP_MAJOR_VERSION == 5 */ + /* * Local variables: * tab-width: 4