git.m6w6.name Git - m6w6/ext-http/blob - missing.c

   1 /*
   2    +----------------------------------------------------------------------+
   3    | PECL :: http                                                         |
   4    +----------------------------------------------------------------------+
   5    | This source file is subject to version 3.0 of the PHP license, that  |
   6    | is bundled with this package in the file LICENSE, and is available   |
   7    | through the world-wide-web at http://www.php.net/license/3_0.txt.    |
   8    | If you did not receive a copy of the PHP license and are unable to   |
   9    | obtain it through the world-wide-web, please send a note to          |
  10    | license@php.net so we can mail you a copy immediately.               |
  11    +----------------------------------------------------------------------+
  12    | Copyright (c) 2004-2005 Michael Wallner <mike@php.net>               |
  13    +----------------------------------------------------------------------+
  14 */
  15
  16 /* $Id$ */
  17
  18 #include "php.h"
  19 #include "missing.h"
  20
  21 #if PHP_MAJOR_VERSION == 5
  22
  23 static inline zval *new_zval(int persistent)
  24 {
  25         zval *z = pemalloc(sizeof(zval), persistent);
  26         INIT_PZVAL(z);
  27         return z;
  28 }
  29
  30 static inline zval *tmp_zval(void)
  31 {
  32         zval *z;
  33         ALLOC_ZVAL(z);
  34         z->is_ref = 0;
  35         z->refcount = 0;
  36         return z;
  37 }
  38
  39 static void dup_zval(zval **z)
  40 {
  41         zval_add_ref(z);
  42         SEPARATE_ZVAL(z);
  43 }
  44
  45
  46 #       if PHP_MINOR_VERSION == 0
  47
  48 int zend_declare_property_double(zend_class_entry *ce, char *name, int name_length, double value, int access_type TSRMLS_DC)
  49 {
  50         zval *property = new_zval(ce->type & ZEND_INTERNAL_CLASS);
  51         ZVAL_DOUBLE(property, value);
  52         return zend_declare_property(ce, name, name_length, property, access_type TSRMLS_CC);
  53 }
  54
  55 void zend_update_property_double(zend_class_entry *scope, zval *object, char *name, int name_length, double value TSRMLS_DC)
  56 {
  57         zval *tmp = tmp_zval();
  58         ZVAL_DOUBLE(tmp, value);
  59         zend_update_property(scope, object, name, name_length, tmp TSRMLS_CC);
  60 }
  61
  62 int zend_declare_property_bool(zend_class_entry *ce, char *name, int name_length, long value, int access_type TSRMLS_DC)
  63 {
  64         zval *property = new_zval(ce->type & ZEND_INTERNAL_CLASS);
  65         ZVAL_BOOL(property, value);
  66         return zend_declare_property(ce, name, name_length, property, access_type TSRMLS_CC);
  67 }
  68
  69 void zend_update_property_bool(zend_class_entry *scope, zval *object, char *name, int name_length, long value TSRMLS_DC)
  70 {
  71         zval *tmp = tmp_zval();
  72         ZVAL_BOOL(tmp, value);
  73         zend_update_property(scope, object, name, name_length, tmp TSRMLS_CC);
  74 }
  75
  76 #       endif /* PHP_MINOR_VERSION == 0 */
  77
  78 int zend_declare_class_constant(zend_class_entry *ce, char *name, size_t name_length, zval *value TSRMLS_DC)
  79 {
  80         return zend_hash_add(&ce->constants_table, name, name_length, &value, sizeof(zval *), NULL);
  81 }
  82
  83 int zend_declare_class_constant_long(zend_class_entry *ce, char *name, size_t name_length, long value TSRMLS_DC)
  84 {
  85         zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS);
  86         ZVAL_LONG(constant, value);
  87         return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
  88 }
  89
  90 int zend_declare_class_constant_bool(zend_class_entry *ce, char *name, size_t name_length, zend_bool value TSRMLS_DC)
  91 {
  92         zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS);
  93         ZVAL_BOOL(constant, value);
  94         return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
  95 }
  96
  97 int zend_declare_class_constant_double(zend_class_entry *ce, char *name, size_t name_length, double value TSRMLS_DC)
  98 {
  99         zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS);
 100         ZVAL_DOUBLE(constant, value);
 101         return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
 102 }
 103
 104 int zend_declare_class_constant_string(zend_class_entry *ce, char *name, size_t name_length, char *value TSRMLS_DC)
 105 {
 106         return zend_declare_class_constant_stringl(ce, name, name_length, value, strlen(value) TSRMLS_CC);
 107 }
 108
 109 int zend_declare_class_constant_stringl(zend_class_entry *ce, char *name, size_t name_length, char *value, size_t value_length TSRMLS_DC)
 110 {
 111         zval *constant = new_zval(ce->type & ZEND_INTERNAL_CLASS);
 112         if (ce->type & ZEND_INTERNAL_CLASS) {
 113                 ZVAL_STRINGL(constant, zend_strndup(value, value_length), value_length, 0);
 114         } else {
 115                 ZVAL_STRINGL(constant, value, value_length, 1);
 116         }
 117         return zend_declare_class_constant(ce, name, name_length, constant TSRMLS_CC);
 118 }
 119
 120 int zend_update_static_property(zend_class_entry *scope, char *name, size_t name_len, zval *value TSRMLS_DC)
 121 {
 122         int retval;
 123         zval **property = NULL;
 124         zend_class_entry *old_scope = EG(scope);
 125
 126         EG(scope) = scope;
 127
 128         if (!(property = zend_std_get_static_property(scope, name, name_len, 0 TSRMLS_CC))) {
 129                 retval = FAILURE;
 130         } else if (*property == value) {
 131                 retval = SUCCESS;
 132         } else {
 133                 if (PZVAL_IS_REF(*property)) {
 134                         zval_dtor(*property);
 135                         (*property)->type = value->type;
 136                         (*property)->value = value->value;
 137
 138                         if (value->refcount) {
 139                                 zval_copy_ctor(*property);
 140                         }
 141                 } else {
 142                         **property = *value;
 143                         zval_copy_ctor(*property);
 144                 }
 145                 retval = SUCCESS;
 146         }
 147
 148         if (!value->refcount) {
 149                 zval_dtor(value);
 150                 FREE_ZVAL(value);
 151         }
 152
 153         EG(scope) = old_scope;
 154
 155         return retval;
 156 }
 157
 158 int trash(zend_class_entry *scope, char *name, size_t name_len, zval *value TSRMLS_DC)
 159 {
 160         int retval;
 161         zval **property = NULL;
 162         zend_class_entry *old_scope = EG(scope);
 163
 164         EG(scope) = scope;
 165
 166         if (!(property = zend_std_get_static_property(scope, name, name_len, 0 TSRMLS_CC))) {
 167                 retval = FAILURE;
 168         } else if (*property == value) {
 169                 retval = SUCCESS;
 170         } else if (scope->type & ZEND_INTERNAL_CLASS) {
 171                 int refcount;
 172                 zend_uchar is_ref;
 173
 174                 refcount = (*property)->refcount;
 175                 is_ref = (*property)->is_ref;
 176
 177                 /* clean */
 178                 switch (Z_TYPE_PP(property))
 179                 {
 180                         case IS_BOOL: case IS_LONG: case IS_NULL:
 181                         break;
 182
 183                         case IS_RESOURCE:
 184                                 zend_list_delete(Z_LVAL_PP(property));
 185                         break;
 186
 187                         case IS_STRING: case IS_CONSTANT:
 188                                 free(Z_STRVAL_PP(property));
 189                         break;
 190
 191                         case IS_OBJECT:
 192                                 if (Z_OBJ_HT_PP(property)->del_ref) {
 193                                         Z_OBJ_HT_PP(property)->del_ref(*property TSRMLS_CC);
 194                                 }
 195                         break;
 196
 197                         case IS_ARRAY: case IS_CONSTANT_ARRAY:
 198                                 if (Z_ARRVAL_PP(property) && Z_ARRVAL_PP(property) != &EG(symbol_table)) {
 199                                         zend_hash_destroy(Z_ARRVAL_PP(property));
 200                                         free(Z_ARRVAL_PP(property));
 201                                 }
 202                         break;
 203                 }
 204
 205                 /* copy */
 206                 **property = *value;
 207
 208                 /* ctor */
 209                 switch (Z_TYPE_PP(property))
 210                 {
 211                         case IS_BOOL: case IS_LONG: case IS_NULL:
 212                         break;
 213
 214                         case IS_RESOURCE:
 215                                 zend_list_addref(Z_LVAL_PP(property));
 216                         break;
 217
 218                         case IS_STRING: case IS_CONSTANT:
 219                                 Z_STRVAL_PP(property) = (char *) zend_strndup(Z_STRVAL_PP(property), Z_STRLEN_PP(property));
 220                         break;
 221
 222                         case IS_OBJECT:
 223                                 if (Z_OBJ_HT_PP(property)->add_ref) {
 224                                         Z_OBJ_HT_PP(property)->add_ref(*property TSRMLS_CC);
 225                                 }
 226                         break;
 227
 228                         case IS_ARRAY: case IS_CONSTANT_ARRAY:
 229                         {
 230                                 if (Z_ARRVAL_PP(property) != &EG(symbol_table)) {
 231                                         zval *tmp;
 232                                         HashTable *old = Z_ARRVAL_PP(property);
 233
 234                                         Z_ARRVAL_PP(property) = (HashTable *) malloc(sizeof(HashTable));
 235                                         zend_hash_init(Z_ARRVAL_PP(property), 0, NULL, ZVAL_PTR_DTOR, 0);
 236                                         zend_hash_copy(Z_ARRVAL_PP(property), old, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
 237                                 }
 238                         }
 239                         break;
 240                 }
 241
 242                 (*property)->refcount = refcount;
 243                 (*property)->is_ref = is_ref;
 244
 245                 retval = SUCCESS;
 246
 247         } else {
 248                 if (PZVAL_IS_REF(*property)) {
 249                         zval_dtor(*property);
 250                         (*property)->type = value->type;
 251                         (*property)->value = value->value;
 252
 253                         if (value->refcount) {
 254                                 zval_copy_ctor(*property);
 255                         }
 256
 257                         retval = SUCCESS;
 258                 } else {
 259                         value->refcount++;
 260                         if (PZVAL_IS_REF(value)) {
 261                                 SEPARATE_ZVAL(&value);
 262                         }
 263
 264                         retval = zend_hash_update(scope->static_members, name, name_len, &value, sizeof(zval *), NULL);
 265                 }
 266         }
 267
 268         if (!value->refcount) {
 269                 zval_dtor(value);
 270                 FREE_ZVAL(value);
 271         }
 272
 273         EG(scope) = old_scope;
 274
 275         return retval;
 276 }
 277
 278 int zend_update_static_property_bool(zend_class_entry *scope, char *name, size_t name_len, zend_bool value TSRMLS_DC)
 279 {
 280         zval *tmp = tmp_zval();
 281         ZVAL_BOOL(tmp, value);
 282         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 283 }
 284
 285 int zend_update_static_property_long(zend_class_entry *scope, char *name, size_t name_len, long value TSRMLS_DC)
 286 {
 287         zval *tmp = tmp_zval();
 288         ZVAL_LONG(tmp, value);
 289         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 290 }
 291
 292 int zend_update_static_property_double(zend_class_entry *scope, char *name, size_t name_len, double value TSRMLS_DC)
 293 {
 294         zval *tmp = tmp_zval();
 295         ZVAL_DOUBLE(tmp, value);
 296         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 297 }
 298
 299 int zend_update_static_property_string(zend_class_entry *scope, char *name, size_t name_len, char *value TSRMLS_DC)
 300 {
 301         zval *tmp = tmp_zval();
 302         ZVAL_STRING(tmp, value, 1);
 303         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 304 }
 305
 306 int zend_update_static_property_stringl(zend_class_entry *scope, char *name, size_t name_len, char *value, size_t value_len TSRMLS_DC)
 307 {
 308         zval *tmp = tmp_zval();
 309         ZVAL_STRINGL(tmp, value, value_len, 1);
 310         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 311 }
 312
 313 void zend_fix_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC)
 314 {
 315         zend_hash_copy(static_members, ce->static_members, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 316         zend_hash_destroy(ce->static_members);
 317         zend_hash_init_ex(ce->static_members, 0, NULL, ZVAL_PTR_DTOR, 1, 0);
 318 }
 319
 320 void zend_init_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC)
 321 {
 322         zend_hash_copy(ce->static_members, static_members, (copy_ctor_func_t) dup_zval, NULL, sizeof(zval *));
 323 }
 324
 325 void zend_clean_static_properties(zend_class_entry *ce TSRMLS_DC)
 326 {
 327         zend_hash_clean(ce->static_members);
 328 }
 329
 330 #endif /* PHP_MAJOR_VERSION == 5 */
 331
 332 /*
 333  * Local variables:
 334  * tab-width: 4
 335  * c-basic-offset: 4
 336  * End:
 337  * vim600: noet sw=4 ts=4 fdm=marker
 338  * vim<600: noet sw=4 ts=4
 339  */
 340