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