git.m6w6.name Git - m6w6/ext-http/blob - http_message_object.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
  19 #ifdef HAVE_CONFIG_H
  20 #       include "config.h"
  21 #endif
  22
  23 #include "php.h"
  24
  25 #include "php_http.h"
  26 #include "php_http_std_defs.h"
  27 #include "php_http_message_object.h"
  28
  29 #ifdef ZEND_ENGINE_2
  30
  31 #define http_message_object_declare_default_properties() _http_message_object_declare_default_properties(TSRMLS_C)
  32 static inline void _http_message_object_declare_default_properties(TSRMLS_D);
  33 #define http_message_object_read_prop _http_message_object_read_prop
  34 static zval *_http_message_object_read_prop(zval *object, zval *member, int type TSRMLS_DC);
  35 #define http_message_object_write_prop _http_message_object_write_prop
  36 static void _http_message_object_write_prop(zval *object, zval *member, zval *value TSRMLS_DC);
  37 #define http_message_object_get_props _http_message_object_get_props
  38 static HashTable *_http_message_object_get_props(zval *object TSRMLS_DC);
  39
  40 zend_class_entry *http_message_object_ce;
  41 zend_function_entry http_message_object_fe[] = {
  42         PHP_ME(HttpMessage, __construct, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR)
  43         PHP_ME(HttpMessage, setRaw, NULL, ZEND_ACC_PUBLIC)
  44         PHP_ME(HttpMessage, getBody, NULL, ZEND_ACC_PUBLIC)
  45         PHP_ME(HttpMessage, getHeaders, NULL, ZEND_ACC_PUBLIC)
  46         PHP_ME(HttpMessage, getType, NULL, ZEND_ACC_PUBLIC)
  47         PHP_ME(HttpMessage, getResponseCode, NULL, ZEND_ACC_PUBLIC)
  48         PHP_ME(HttpMessage, getRequestMethod, NULL, ZEND_ACC_PUBLIC)
  49         PHP_ME(HttpMessage, getRequestUri, NULL, ZEND_ACC_PUBLIC)
  50         PHP_ME(HttpMessage, getHttpVersion, NULL, ZEND_ACC_PUBLIC)
  51         PHP_ME(HttpMessage, toString, NULL, ZEND_ACC_PUBLIC)
  52
  53         ZEND_MALIAS(HttpMessage, __toString, toString, NULL, ZEND_ACC_PUBLIC)
  54
  55         PHP_ME(HttpMessage, fromString, NULL, ZEND_ACC_PUBLIC|ZEND_ACC_STATIC)
  56         {NULL, NULL, NULL}
  57 };
  58 static zend_object_handlers http_message_object_handlers;
  59
  60 void _http_message_object_init(INIT_FUNC_ARGS)
  61 {
  62         HTTP_REGISTER_CLASS_EX(HttpMessage, http_message_object, NULL, 0);
  63
  64         HTTP_LONG_CONSTANT("HTTP_MSG_NONE", HTTP_MSG_NONE);
  65         HTTP_LONG_CONSTANT("HTTP_MSG_REQUEST", HTTP_MSG_REQUEST);
  66         HTTP_LONG_CONSTANT("HTTP_MSG_RESPONSE", HTTP_MSG_RESPONSE);
  67
  68         http_message_object_handlers.read_property = http_message_object_read_prop;
  69         http_message_object_handlers.write_property = http_message_object_write_prop;
  70         http_message_object_handlers.get_properties = http_message_object_get_props;
  71 }
  72
  73 zend_object_value _http_message_object_new(zend_class_entry *ce TSRMLS_DC)
  74 {
  75         return http_message_object_new_ex(ce, NULL);
  76 }
  77
  78 zend_object_value _http_message_object_new_ex(zend_class_entry *ce, http_message *msg TSRMLS_DC)
  79 {
  80         zend_object_value ov;
  81         http_message_object *o;
  82
  83         o = ecalloc(1, sizeof(http_message_object));
  84         o->zo.ce = ce;
  85         o->message = msg ? msg : http_message_new();
  86
  87         ALLOC_HASHTABLE(OBJ_PROP(o));
  88         zend_hash_init(OBJ_PROP(o), 0, NULL, ZVAL_PTR_DTOR, 0);
  89
  90         ov.handle = zend_objects_store_put(o, (zend_objects_store_dtor_t) zend_objects_destroy_object, http_message_object_free, NULL TSRMLS_CC);
  91         ov.handlers = &http_message_object_handlers;
  92
  93         return ov;
  94 }
  95
  96 static inline void _http_message_object_declare_default_properties(TSRMLS_D)
  97 {
  98         zend_class_entry *ce = http_message_object_ce;
  99
 100         DCL_PROP(PROTECTED, long, type, HTTP_MSG_NONE);
 101
 102         DCL_PROP(PROTECTED, string, raw, "");
 103         DCL_PROP(PROTECTED, string, body, "");
 104
 105         DCL_PROP(PROTECTED, string, requestMethod, "");
 106         DCL_PROP(PROTECTED, string, requestUri, "");
 107         DCL_PROP(PROTECTED, long, responseCode, 0);
 108
 109         DCL_PROP_N(PROTECTED, httpVersion);
 110         DCL_PROP_N(PROTECTED, headers);
 111         DCL_PROP_N(PROTECTED, nestedMessage);
 112 }
 113
 114 static void _http_message_object_free(zend_object *object TSRMLS_DC)
 115 {
 116         http_message_object *o = (http_message_object *) object;
 117
 118         if (OBJ_PROP(o)) {
 119                 zend_hash_destroy(OBJ_PROP(o));
 120                 FREE_HASHTABLE(OBJ_PROP(o));
 121         }
 122         if (o->message) {
 123                 http_message_free(o->message);
 124         }
 125         zval_dtor(&o->_tmp_property);
 126         efree(o);
 127 }
 128
 129 static zval *_http_message_object_read_prop(zval *object, zval *member, int type TSRMLS_DC)
 130 {
 131         getObjectEx(http_message_object, obj, object);
 132         http_message *msg = obj->message;
 133         zval *return_value = &obj->_tmp_property;
 134
 135         if (!EG(scope) || !instanceof_function(EG(scope), obj->zo.ce TSRMLS_CC)) {
 136                 zend_error(E_WARNING, "Cannot access protected property %s::$%s", obj->zo.ce->name, Z_STRVAL_P(member));
 137                 return EG(uninitialized_zval_ptr);
 138         }
 139
 140     zval_dtor(return_value);
 141
 142 #if 0
 143         fprintf(stderr, "Reading property: %s(%d==%d) (%lu)\n", Z_STRVAL_P(member), Z_STRLEN_P(member), strlen(Z_STRVAL_P(member)),
 144                 zend_get_hash_value(Z_STRVAL_P(member), strlen(Z_STRVAL_P(member)) + 1)
 145         );
 146 #endif
 147
 148         switch (zend_get_hash_value(Z_STRVAL_P(member), strlen(Z_STRVAL_P(member)) + 1))
 149         {
 150                 case HTTP_MSG_PROPHASH_TYPE:
 151                         RETVAL_LONG(msg->type);
 152                 break;
 153
 154                 case HTTP_MSG_PROPHASH_HTTP_VERSION:
 155                         switch (msg->type)
 156                         {
 157                                 case HTTP_MSG_NONE:
 158                                         RETVAL_NULL();
 159                                 break;
 160
 161                                 case HTTP_MSG_REQUEST:
 162                                         RETVAL_DOUBLE(msg->info.request.http_version);
 163                                 break;
 164
 165                                 case HTTP_MSG_RESPONSE:
 166                                         RETVAL_DOUBLE(msg->info.response.http_version);
 167                                 break;
 168                         }
 169                 break;
 170
 171                 case HTTP_MSG_PROPHASH_RAW:
 172                         if (msg->raw) {
 173                                 if (msg->len) {
 174                                         RETVAL_STRINGL(msg->raw, msg->len, 1);
 175                                 } else {
 176                                         RETVAL_STRINGL("", 0, 1);
 177                                 }
 178                         } else {
 179                                 RETVAL_NULL();
 180                         }
 181                 break;
 182
 183                 case HTTP_MSG_PROPHASH_BODY:
 184                         phpstr_fix(PHPSTR(msg));
 185                         RETVAL_PHPSTR(PHPSTR(msg), 0, 1);
 186                 break;
 187
 188                 case HTTP_MSG_PROPHASH_HEADERS:
 189                         array_init(return_value);
 190                         zend_hash_copy(Z_ARRVAL_P(return_value), &msg->hdrs, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 191                 break;
 192
 193                 case HTTP_MSG_PROPHASH_NESTED_MESSAGE:
 194                         RETVAL_NULL();
 195                 break;
 196
 197                 case HTTP_MSG_PROPHASH_REQUEST_METHOD:
 198                         if (msg->type == HTTP_MSG_REQUEST && msg->info.request.method) {
 199                                 RETVAL_STRING(msg->info.request.method, 1);
 200                         } else {
 201                                 RETVAL_NULL();
 202                         }
 203                 break;
 204
 205                 case HTTP_MSG_PROPHASH_REQUEST_URI:
 206                         if (msg->type == HTTP_MSG_REQUEST && msg->info.request.URI) {
 207                                 RETVAL_STRING(msg->info.request.URI, 1);
 208                         } else {
 209                                 RETVAL_NULL();
 210                         }
 211                 break;
 212
 213                 case HTTP_MSG_PROPHASH_RESPONSE_CODE:
 214                         if (msg->type == HTTP_MSG_RESPONSE) {
 215                                 RETVAL_LONG(msg->info.response.code);
 216                         } else {
 217                                 RETVAL_NULL();
 218                         }
 219                 break;
 220
 221                 default:
 222                         RETVAL_NULL();
 223                 break;
 224         }
 225
 226         return return_value;
 227 }
 228
 229 static void _http_message_object_write_prop(zval *object, zval *member, zval *value TSRMLS_DC)
 230 {
 231         getObjectEx(http_message_object, obj, object);
 232         http_message *msg = obj->message;
 233
 234         if (!EG(scope) || !instanceof_function(EG(scope), obj->zo.ce TSRMLS_CC)) {
 235                 zend_error(E_WARNING, "Cannot access protected property %s::$%s", obj->zo.ce->name, Z_STRVAL_P(member));
 236         }
 237
 238 #if 0
 239         fprintf(stderr, "Writing property: %s(%d==%d) (%lu)\n", Z_STRVAL_P(member), Z_STRLEN_P(member), strlen(Z_STRVAL_P(member)),
 240                 zend_get_hash_value(Z_STRVAL_P(member), strlen(Z_STRVAL_P(member)) + 1)
 241         );
 242 #endif
 243
 244         switch (zend_get_hash_value(Z_STRVAL_P(member), strlen(Z_STRVAL_P(member)) + 1))
 245         {
 246                 case HTTP_MSG_PROPHASH_TYPE:
 247                         msg->type = Z_LVAL_P(value);
 248                 break;
 249
 250                 case HTTP_MSG_PROPHASH_HTTP_VERSION:
 251                         switch (msg->type)
 252                         {
 253                                 case HTTP_MSG_REQUEST:
 254                                         msg->info.request.http_version = (float) Z_DVAL_P(value);
 255                                 break;
 256
 257                                 case HTTP_MSG_RESPONSE:
 258                                         msg->info.response.http_version = (float) Z_DVAL_P(value);
 259                                 break;
 260                         }
 261                 break;
 262
 263                 case HTTP_MSG_PROPHASH_RAW:
 264                         http_message_dtor(msg);
 265                         http_message_parse_ex(msg, Z_STRVAL_P(value), Z_STRLEN_P(value), 1);
 266                 break;
 267
 268                 case HTTP_MSG_PROPHASH_BODY:
 269                         phpstr_dtor(PHPSTR(msg));
 270                         phpstr_from_string_ex(PHPSTR(msg), Z_STRVAL_P(value), Z_STRLEN_P(value));
 271                 break;
 272
 273                 case HTTP_MSG_PROPHASH_HEADERS:
 274                         zend_hash_clean(&msg->hdrs);
 275                         zend_hash_copy(&msg->hdrs, Z_ARRVAL_P(value), (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 276                 break;
 277
 278                 case HTTP_MSG_PROPHASH_NESTED_MESSAGE:
 279                 break;
 280
 281                 case HTTP_MSG_PROPHASH_REQUEST_METHOD:
 282                         if (msg->type == HTTP_MSG_REQUEST) {
 283                                 if (msg->info.request.method) {
 284                                         efree(msg->info.request.method);
 285                                 }
 286                                 msg->info.request.method = estrndup(Z_STRVAL_P(value), Z_STRLEN_P(value));
 287                         }
 288                 break;
 289
 290                 case HTTP_MSG_PROPHASH_REQUEST_URI:
 291                         if (msg->type == HTTP_MSG_REQUEST) {
 292                                 if (msg->info.request.URI) {
 293                                         efree(msg->info.request.URI);
 294                                 }
 295                                 msg->info.request.URI = estrndup(Z_STRVAL_P(value), Z_STRLEN_P(value));
 296                         }
 297                 break;
 298
 299                 case HTTP_MSG_PROPHASH_RESPONSE_CODE:
 300                         if (msg->type == HTTP_MSG_RESPONSE) {
 301                                 msg->info.response.code = Z_LVAL_P(value);
 302                         }
 303                 break;
 304         }
 305 }
 306
 307 static HashTable *_http_message_object_get_props(zval *object TSRMLS_DC)
 308 {
 309         zval *headers;
 310         getObjectEx(http_message_object, obj, object);
 311         http_message *msg = obj->message;
 312
 313 #define ASSOC_PROP(obj, ptype, name, val) \
 314         { \
 315                 zval array; \
 316                 char *m_prop_name; \
 317                 int m_prop_len; \
 318                 Z_ARRVAL(array) = OBJ_PROP(obj); \
 319                 zend_mangle_property_name(&m_prop_name, &m_prop_len, "*", 1, name, lenof(name), 1); \
 320                 add_assoc_ ##ptype## _ex(&array, m_prop_name, sizeof(name)+4, val); \
 321         }
 322 #define ASSOC_STRING(obj, name, val) ASSOC_STRINGL(obj, name, val, strlen(val))
 323 #define ASSOC_STRINGL(obj, name, val, len) \
 324         { \
 325                 zval array; \
 326                 char *m_prop_name; \
 327                 int m_prop_len; \
 328                 Z_ARRVAL(array) = OBJ_PROP(obj); \
 329                 zend_mangle_property_name(&m_prop_name, &m_prop_len, "*", 1, name, lenof(name), 1); \
 330                 add_assoc_stringl_ex(&array, m_prop_name, sizeof(name)+4, val, len, 1); \
 331         }
 332
 333         zend_hash_clean(OBJ_PROP(obj));
 334
 335         ASSOC_PROP(obj, long, "type", msg->type);
 336         ASSOC_STRINGL(obj, "raw", msg->raw, msg->len)
 337         ASSOC_STRINGL(obj, "body", PHPSTR_VAL(msg), PHPSTR_LEN(msg));
 338
 339         MAKE_STD_ZVAL(headers);
 340         array_init(headers);
 341
 342         zend_hash_copy(Z_ARRVAL_P(headers), &msg->hdrs, (copy_ctor_func_t) zval_add_ref, NULL, sizeof(zval *));
 343         ASSOC_PROP(obj, zval, "headers", headers);
 344
 345         switch (msg->type)
 346         {
 347                 case HTTP_MSG_REQUEST:
 348                         ASSOC_PROP(obj, double, "httpVersion", msg->info.request.http_version);
 349                         ASSOC_PROP(obj, long, "responseCode", 0);
 350                         ASSOC_STRING(obj, "requestMethod", msg->info.request.method);
 351                         ASSOC_STRING(obj, "requestUri", msg->info.request.URI);
 352                 break;
 353
 354                 case HTTP_MSG_RESPONSE:
 355                         ASSOC_PROP(obj, double, "httpVersion", msg->info.response.http_version);
 356                         ASSOC_PROP(obj, long, "responseCode", msg->info.response.code);
 357                         ASSOC_STRING(obj, "requestMethod", "");
 358                         ASSOC_STRING(obj, "requestUri", "");
 359                 break;
 360
 361                 case HTTP_MSG_NONE:
 362                 default:
 363                         ASSOC_PROP(obj, double, "httpVersion", 0.0);
 364                         ASSOC_PROP(obj, long, "responseCode", 0);
 365                         ASSOC_STRING(obj, "requestMethod", "");
 366                         ASSOC_STRING(obj, "requestUri", "");
 367                 break;
 368         }
 369
 370         return OBJ_PROP(obj);
 371 }
 372
 373 #endif /* ZEND_ENGINE_2 */
 374
 375 /*
 376  * Local variables:
 377  * tab-width: 4
 378  * c-basic-offset: 4
 379  * End:
 380  * vim600: noet sw=4 ts=4 fdm=marker
 381  * vim<600: noet sw=4 ts=4
 382  */
 383