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                 value->refcount++;
 134                 if (PZVAL_IS_REF(*property)) {
 135                         zval_dtor(*property);
 136                         (*property)->type = value->type;
 137                         (*property)->value = value->value;
 138
 139                         if (value->refcount) {
 140                                 zval_copy_ctor(*property);
 141                         }
 142                 } else {
 143                         **property = *value;
 144                         zval_copy_ctor(*property);
 145                 }
 146                 retval = SUCCESS;
 147         }
 148
 149         EG(scope) = old_scope;
 150
 151         return retval;
 152 }
 153
 154 int zend_update_static_property_bool(zend_class_entry *scope, char *name, size_t name_len, zend_bool value TSRMLS_DC)
 155 {
 156         zval *tmp = tmp_zval();
 157         ZVAL_BOOL(tmp, value);
 158         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 159 }
 160
 161 int zend_update_static_property_long(zend_class_entry *scope, char *name, size_t name_len, long value TSRMLS_DC)
 162 {
 163         zval *tmp = tmp_zval();
 164         ZVAL_LONG(tmp, value);
 165         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 166 }
 167
 168 int zend_update_static_property_double(zend_class_entry *scope, char *name, size_t name_len, double value TSRMLS_DC)
 169 {
 170         zval *tmp = tmp_zval();
 171         ZVAL_DOUBLE(tmp, value);
 172         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 173 }
 174
 175 int zend_update_static_property_string(zend_class_entry *scope, char *name, size_t name_len, char *value TSRMLS_DC)
 176 {
 177         zval *tmp = tmp_zval();
 178         ZVAL_STRING(tmp, value, 1);
 179         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 180 }
 181
 182 int zend_update_static_property_stringl(zend_class_entry *scope, char *name, size_t name_len, char *value, size_t value_len TSRMLS_DC)
 183 {
 184         zval *tmp = tmp_zval();
 185         ZVAL_STRINGL(tmp, value, value_len, 1);
 186         return zend_update_static_property(scope, name, name_len, tmp TSRMLS_CC);
 187 }
 188
 189 void zend_fix_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC)
 190 {
 191         zend_hash_copy(static_members, ce->static_members, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 192         zend_hash_destroy(ce->static_members);
 193         zend_hash_init_ex(ce->static_members, 0, NULL, ZVAL_PTR_DTOR, 1, 0);
 194 }
 195
 196 void zend_init_static_properties(zend_class_entry *ce, HashTable *static_members TSRMLS_DC)
 197 {
 198         zend_hash_copy(ce->static_members, static_members, (copy_ctor_func_t) dup_zval, NULL, sizeof(zval *));
 199 }
 200
 201 void zend_clean_static_properties(zend_class_entry *ce TSRMLS_DC)
 202 {
 203         zend_hash_clean(ce->static_members);
 204 }
 205
 206 #endif /* PHP_MAJOR_VERSION == 5 */
 207
 208 /*
 209  * Local variables:
 210  * tab-width: 4
 211  * c-basic-offset: 4
 212  * End:
 213  * vim600: noet sw=4 ts=4 fdm=marker
 214  * vim<600: noet sw=4 ts=4
 215  */
 216