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

   1 /*
   2     +--------------------------------------------------------------------+
   3     | PECL :: http                                                       |
   4     +--------------------------------------------------------------------+
   5     | Redistribution and use in source and binary forms, with or without |
   6     | modification, are permitted provided that the conditions mentioned |
   7     | in the accompanying LICENSE file are met.                          |
   8     +--------------------------------------------------------------------+
   9     | Copyright (c) 2004-2011, Michael Wallner <mike@php.net>            |
  10     +--------------------------------------------------------------------+
  11 */
  12
  13 #include "php_http_api.h"
  14
  15 #ifndef PHP_HTTP_PPDBG
  16 #       define PHP_HTTP_PPDBG 1
  17 #endif
  18
  19 php_http_property_proxy_t *php_http_property_proxy_init(php_http_property_proxy_t *proxy, zval *object, zval *member TSRMLS_DC)
  20 {
  21         if (!proxy) {
  22                 proxy = emalloc(sizeof(*proxy));
  23         }
  24         memset(proxy, 0, sizeof(*proxy));
  25
  26         MAKE_STD_ZVAL(proxy->myself);
  27         ZVAL_OBJVAL(proxy->myself, php_http_property_proxy_object_new_ex(php_http_property_proxy_class_entry, proxy, NULL TSRMLS_CC), 0);
  28         Z_ADDREF_P(object);
  29         proxy->object = object;
  30         proxy->member = php_http_ztyp(IS_STRING, member);
  31
  32 #if PHP_HTTP_PPDBG
  33         fprintf(stderr, "proxy_init: %s\n", Z_STRVAL_P(proxy->member));
  34 #endif
  35         return proxy;
  36 }
  37
  38 void php_http_property_proxy_dtor(php_http_property_proxy_t *proxy)
  39 {
  40         zval_ptr_dtor(&proxy->object);
  41         zval_ptr_dtor(&proxy->member);
  42         zval_ptr_dtor(&proxy->myself);
  43 }
  44
  45 void php_http_property_proxy_free(php_http_property_proxy_t **proxy)
  46 {
  47         if (*proxy) {
  48                 php_http_property_proxy_dtor(*proxy);
  49                 efree(*proxy);
  50                 *proxy = NULL;
  51         }
  52 }
  53
  54
  55 #define PHP_HTTP_BEGIN_ARGS(method, req_args)                   PHP_HTTP_BEGIN_ARGS_EX(HttpPropertyProxy, method, 0, req_args)
  56 #define PHP_HTTP_EMPTY_ARGS(method)                                             PHP_HTTP_EMPTY_ARGS_EX(HttpPropertyProxy, method, 0)
  57 #define PHP_HTTP_PP_ME(method, visibility)                              PHP_ME(HttpPropertyProxy, method, PHP_HTTP_ARGS(HttpPropertyProxy, method), visibility)
  58
  59 PHP_HTTP_EMPTY_ARGS(__construct);
  60
  61 zend_class_entry *php_http_property_proxy_class_entry;
  62 zend_function_entry php_http_property_proxy_method_entry[] = {
  63         PHP_HTTP_PP_ME(__construct, ZEND_ACC_FINAL|ZEND_ACC_PRIVATE)
  64         EMPTY_FUNCTION_ENTRY
  65 };
  66 static zend_object_handlers php_http_property_proxy_object_handlers;
  67
  68 zend_object_value php_http_property_proxy_object_new(zend_class_entry *ce TSRMLS_DC)
  69 {
  70         return php_http_property_proxy_object_new_ex(ce, NULL, NULL TSRMLS_CC);
  71 }
  72
  73 zend_object_value php_http_property_proxy_object_new_ex(zend_class_entry *ce, php_http_property_proxy_t *proxy, php_http_property_proxy_object_t **ptr TSRMLS_DC)
  74 {
  75         zend_object_value ov;
  76         php_http_property_proxy_object_t *o;
  77
  78         o = ecalloc(1, sizeof(*o));
  79         zend_object_std_init((zend_object *) o, ce TSRMLS_CC);
  80         object_properties_init((zend_object *) o, ce);
  81
  82         if (ptr) {
  83                 *ptr = o;
  84         }
  85         o->proxy = proxy;
  86
  87         ov.handle = zend_objects_store_put(o, NULL, php_http_property_proxy_object_free, NULL TSRMLS_CC);
  88         ov.handlers = &php_http_property_proxy_object_handlers;
  89
  90         return ov;
  91 }
  92
  93 void php_http_property_proxy_object_free(void *object TSRMLS_DC)
  94 {
  95         php_http_property_proxy_object_t *o = object;
  96
  97         if (o->proxy) {
  98                 php_http_property_proxy_free(&o->proxy);
  99         }
 100         zend_object_std_dtor((zend_object *) o TSRMLS_CC);
 101         efree(o);
 102 }
 103
 104 static void php_http_property_proxy_object_set(zval **object, zval *value TSRMLS_DC)
 105 {
 106         php_http_property_proxy_object_t *obj = zend_object_store_get_object(*object TSRMLS_CC);
 107
 108 #if PHP_HTTP_PPDBG
 109         fprintf(stderr, "proxy_set: %s\n", Z_STRVAL_P(obj->proxy->member));
 110 #endif
 111         if (Z_TYPE_P(obj->proxy->object) == IS_OBJECT) {
 112                 zend_update_property(Z_OBJCE_P(obj->proxy->object), obj->proxy->object, Z_STRVAL_P(obj->proxy->member), Z_STRLEN_P(obj->proxy->member), value TSRMLS_CC);
 113         } else {
 114                 Z_ADDREF_P(value);
 115                 zend_symtable_update(Z_ARRVAL_P(obj->proxy->object), Z_STRVAL_P(obj->proxy->member), Z_STRLEN_P(obj->proxy->member)+1, (void *) &value, sizeof(zval *), NULL);
 116         }
 117 }
 118
 119 static zval *php_http_property_proxy_object_get(zval *object TSRMLS_DC)
 120 {
 121         php_http_property_proxy_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
 122
 123 #if PHP_HTTP_PPDBG
 124         fprintf(stderr, "proxy_get: %s\n", Z_STRVAL_P(obj->proxy->member));
 125 #endif
 126         if (Z_TYPE_P(obj->proxy->object) == IS_OBJECT) {
 127                 return zend_read_property(Z_OBJCE_P(obj->proxy->object), obj->proxy->object, Z_STRVAL_P(obj->proxy->member), Z_STRLEN_P(obj->proxy->member), 0 TSRMLS_CC);
 128         } else {
 129                 zval **data = NULL;
 130
 131                 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(obj->proxy->object), Z_STRVAL_P(obj->proxy->member), Z_STRLEN_P(obj->proxy->member)+1, (void *) &data)) {
 132                         Z_ADDREF_PP(data);
 133                 } else {
 134                         zval *unset;
 135
 136                         MAKE_STD_ZVAL(unset);
 137                         ZVAL_NULL(unset);
 138                         zend_symtable_update(Z_ARRVAL_P(obj->proxy->object), Z_STRVAL_P(obj->proxy->member), Z_STRLEN_P(obj->proxy->member)+1, (void *) &unset, sizeof(zval *), (void *) &data);
 139                 }
 140
 141                 return *data;
 142         }
 143
 144         return NULL;
 145 }
 146
 147 static STATUS php_http_property_proxy_object_cast(zval *object, zval *return_value, int type TSRMLS_DC)
 148 {
 149         zval *old_value, *new_value;
 150
 151         old_value = php_http_property_proxy_object_get(object TSRMLS_CC);
 152         new_value = php_http_ztyp(type, old_value);
 153
 154         if (old_value != new_value) {
 155                 zval_ptr_dtor(&old_value);
 156         }
 157
 158         RETVAL_ZVAL(new_value, 0, 0);
 159
 160         return SUCCESS;
 161 }
 162
 163 static zval *php_http_property_proxy_object_read_dimension(zval *object, zval *offset, int type TSRMLS_DC)
 164 {
 165         zval *retval = NULL, *property = php_http_property_proxy_object_get(object TSRMLS_CC);
 166
 167 #if PHP_HTTP_PPDBG
 168         php_http_property_proxy_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
 169         zval *ocpy = php_http_ztyp(IS_STRING, offset);
 170         fprintf(stderr, "read_dimension: %s.%s (%d)\n", Z_STRVAL_P(obj->proxy->member), Z_STRVAL_P(ocpy), type);
 171         zval_ptr_dtor(&ocpy);
 172 #endif
 173         if (type != BP_VAR_R) {
 174                 Z_ADDREF_P(property);
 175                 retval = php_http_property_proxy_init(NULL, property, offset TSRMLS_CC)->myself;
 176         } else if (Z_TYPE_P(property) == IS_ARRAY) {
 177                 zval **data = NULL;
 178
 179                 if (Z_TYPE_P(offset) == IS_LONG) {
 180                         if (SUCCESS == zend_hash_index_find(Z_ARRVAL_P(property), Z_LVAL_P(offset), (void *) &data))  {
 181                                 retval = *data;
 182                         }
 183                 } else {
 184                         offset = php_http_ztyp(IS_STRING, offset);
 185                         if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(property), Z_STRVAL_P(offset), Z_STRLEN_P(offset), (void *) &data)) {
 186                                 retval = *data;
 187                         }
 188                         zval_ptr_dtor(&offset);
 189                 }
 190
 191                 if (data) {
 192                         Z_ADDREF_PP(data);
 193                 }
 194         }
 195         zval_ptr_dtor(&property);
 196 if(retval)Z_SET_ISREF_P(retval);
 197         return retval;
 198 }
 199
 200 static void php_http_property_proxy_object_write_dimension(zval *object, zval *offset, zval *value TSRMLS_DC)
 201 {
 202         zval *property = php_http_property_proxy_object_get(object TSRMLS_CC);
 203
 204 #if PHP_HTTP_PPDBG
 205         php_http_property_proxy_object_t *obj = zend_object_store_get_object(object TSRMLS_CC);
 206         zval *ocpy = offset ? php_http_ztyp(IS_STRING, offset) : offset;
 207         fprintf(stderr, "write_dimension: %s.%s (%d)\n", Z_STRVAL_P(obj->proxy->member), ocpy?Z_STRVAL_P(ocpy):"", Z_TYPE_P(property));
 208         if(ocpy)zval_ptr_dtor(&ocpy);
 209 #endif
 210         switch (Z_TYPE_P(property)) {
 211                 case IS_NULL:
 212                         array_init(property);
 213                         /* no break */
 214                 case IS_ARRAY:
 215                         Z_ADDREF_P(value);
 216                         if (!offset) {
 217                                 add_next_index_zval(property, value);
 218                         } else if (Z_TYPE_P(offset) == IS_LONG) {
 219                                 add_index_zval(property, Z_LVAL_P(offset), value);
 220                         } else {
 221                                 offset = php_http_ztyp(IS_STRING, offset);
 222                                 add_assoc_zval_ex(property, Z_STRVAL_P(offset), Z_STRLEN_P(offset) + 1, value);
 223                                 zval_ptr_dtor(&offset);
 224                         }
 225                         php_http_property_proxy_object_set(&object, property TSRMLS_CC);
 226                         break;
 227
 228                 default:
 229                         zval_ptr_dtor(&property);
 230                         break;
 231         }
 232 }
 233
 234 PHP_METHOD(HttpPropertyProxy, __construct)
 235 {
 236 }
 237
 238 PHP_MINIT_FUNCTION(http_property_proxy)
 239 {
 240         PHP_HTTP_REGISTER_CLASS(http\\Object, PropertyProxy, http_property_proxy, NULL, ZEND_ACC_FINAL);
 241         php_http_property_proxy_class_entry->create_object = php_http_property_proxy_object_new;
 242         memcpy(&php_http_property_proxy_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
 243         php_http_property_proxy_object_handlers.set = php_http_property_proxy_object_set;
 244         php_http_property_proxy_object_handlers.get = php_http_property_proxy_object_get;
 245         php_http_property_proxy_object_handlers.cast_object = php_http_property_proxy_object_cast;
 246         php_http_property_proxy_object_handlers.read_dimension = php_http_property_proxy_object_read_dimension;
 247         php_http_property_proxy_object_handlers.write_dimension = php_http_property_proxy_object_write_dimension;
 248
 249         return SUCCESS;
 250 }
 251
 252
 253 /*
 254  * Local variables:
 255  * tab-width: 4
 256  * c-basic-offset: 4
 257  * End:
 258  * vim600: noet sw=4 ts=4 fdm=marker
 259  * vim<600: noet sw=4 ts=4
 260  */
 261