2 +----------------------------------------------------------------------+
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 +----------------------------------------------------------------------+
26 #include "php_http_std_defs.h"
27 #include "php_http_message_object.h"
29 #include "phpstr/phpstr.h"
33 #define http_message_object_declare_default_properties() _http_message_object_declare_default_properties(TSRMLS_C)
34 static inline void _http_message_object_declare_default_properties(TSRMLS_D
);
35 #define http_message_object_read_prop _http_message_object_read_prop
36 static zval
*_http_message_object_read_prop(zval
*object
, zval
*member
, int type TSRMLS_DC
);
37 #define http_message_object_write_prop _http_message_object_write_prop
38 static void _http_message_object_write_prop(zval
*object
, zval
*member
, zval
*value TSRMLS_DC
);
39 #define http_message_object_get_props _http_message_object_get_props
40 static HashTable
*_http_message_object_get_props(zval
*object TSRMLS_DC
);
41 #define http_message_object_clone_obj _http_message_object_clone_obj
42 static inline zend_object_value
_http_message_object_clone_obj(zval
*object TSRMLS_DC
);
44 zend_class_entry
*http_message_object_ce
;
45 zend_function_entry http_message_object_fe
[] = {
46 PHP_ME(HttpMessage
, __construct
, NULL
, ZEND_ACC_PUBLIC
|ZEND_ACC_CTOR
)
47 PHP_ME(HttpMessage
, getBody
, NULL
, ZEND_ACC_PUBLIC
)
48 PHP_ME(HttpMessage
, getHeaders
, NULL
, ZEND_ACC_PUBLIC
)
49 PHP_ME(HttpMessage
, setHeaders
, NULL
, ZEND_ACC_PUBLIC
)
50 PHP_ME(HttpMessage
, addHeaders
, NULL
, ZEND_ACC_PUBLIC
)
51 PHP_ME(HttpMessage
, getType
, NULL
, ZEND_ACC_PUBLIC
)
52 PHP_ME(HttpMessage
, setType
, NULL
, ZEND_ACC_PUBLIC
)
53 PHP_ME(HttpMessage
, getResponseCode
, NULL
, ZEND_ACC_PUBLIC
)
54 PHP_ME(HttpMessage
, setResponseCode
, NULL
, ZEND_ACC_PUBLIC
)
55 PHP_ME(HttpMessage
, getRequestMethod
, NULL
, ZEND_ACC_PUBLIC
)
56 PHP_ME(HttpMessage
, setRequestMethod
, NULL
, ZEND_ACC_PUBLIC
)
57 PHP_ME(HttpMessage
, getRequestUri
, NULL
, ZEND_ACC_PUBLIC
)
58 PHP_ME(HttpMessage
, setRequestUri
, NULL
, ZEND_ACC_PUBLIC
)
59 PHP_ME(HttpMessage
, getHttpVersion
, NULL
, ZEND_ACC_PUBLIC
)
60 PHP_ME(HttpMessage
, setHttpVersion
, NULL
, ZEND_ACC_PUBLIC
)
61 PHP_ME(HttpMessage
, getParentMessage
, NULL
, ZEND_ACC_PUBLIC
)
62 PHP_ME(HttpMessage
, send
, NULL
, ZEND_ACC_PUBLIC
)
63 PHP_ME(HttpMessage
, toString
, NULL
, ZEND_ACC_PUBLIC
)
65 ZEND_MALIAS(HttpMessage
, __toString
, toString
, NULL
, ZEND_ACC_PUBLIC
)
67 PHP_ME(HttpMessage
, fromString
, NULL
, ZEND_ACC_PUBLIC
|ZEND_ACC_STATIC
)
70 static zend_object_handlers http_message_object_handlers
;
72 void _http_message_object_init(INIT_FUNC_ARGS
)
74 HTTP_REGISTER_CLASS_EX(HttpMessage
, http_message_object
, NULL
, 0);
76 HTTP_LONG_CONSTANT("HTTP_MSG_NONE", HTTP_MSG_NONE
);
77 HTTP_LONG_CONSTANT("HTTP_MSG_REQUEST", HTTP_MSG_REQUEST
);
78 HTTP_LONG_CONSTANT("HTTP_MSG_RESPONSE", HTTP_MSG_RESPONSE
);
80 http_message_object_handlers
.clone_obj
= http_message_object_clone_obj
;
81 http_message_object_handlers
.read_property
= http_message_object_read_prop
;
82 http_message_object_handlers
.write_property
= http_message_object_write_prop
;
83 http_message_object_handlers
.get_properties
= http_message_object_get_props
;
86 zend_object_value
_http_message_object_new(zend_class_entry
*ce TSRMLS_DC
)
88 return http_message_object_new_ex(ce
, NULL
);
91 zend_object_value
_http_message_object_new_ex(zend_class_entry
*ce
, http_message
*msg TSRMLS_DC
)
94 http_message_object
*o
;
96 o
= ecalloc(1, sizeof(http_message_object
));
100 o
->parent
.handlers
= NULL
;
105 o
->parent
= http_message_object_from_msg(msg
->parent
);
109 ALLOC_HASHTABLE(OBJ_PROP(o
));
110 zend_hash_init(OBJ_PROP(o
), 0, NULL
, ZVAL_PTR_DTOR
, 0);
112 ov
.handle
= zend_objects_store_put(o
, (zend_objects_store_dtor_t
) zend_objects_destroy_object
, http_message_object_free
, NULL TSRMLS_CC
);
113 ov
.handlers
= &http_message_object_handlers
;
118 zend_object_value
_http_message_object_clone(zval
*this_ptr TSRMLS_DC
)
120 return http_message_object_clone_obj(this_ptr TSRMLS_CC
);
123 static inline void _http_message_object_declare_default_properties(TSRMLS_D
)
125 zend_class_entry
*ce
= http_message_object_ce
;
127 DCL_PROP(PROTECTED
, long, type
, HTTP_MSG_NONE
);
128 DCL_PROP(PROTECTED
, string
, body
, "");
129 DCL_PROP(PROTECTED
, string
, requestMethod
, "");
130 DCL_PROP(PROTECTED
, string
, requestUri
, "");
131 DCL_PROP(PROTECTED
, long, responseCode
, 0);
132 DCL_PROP_N(PROTECTED
, httpVersion
);
133 DCL_PROP_N(PROTECTED
, headers
);
134 DCL_PROP_N(PROTECTED
, parentMessage
);
137 void _http_message_object_free(zend_object
*object TSRMLS_DC
)
139 http_message_object
*o
= (http_message_object
*) object
;
142 zend_hash_destroy(OBJ_PROP(o
));
143 FREE_HASHTABLE(OBJ_PROP(o
));
146 http_message_dtor(o
->message
);
152 static inline zend_object_value
_http_message_object_clone_obj(zval
*this_ptr TSRMLS_DC
)
154 getObject(http_message_object
, obj
);
155 return http_message_object_from_msg(http_message_dup(obj
->message
));
158 static zval
*_http_message_object_read_prop(zval
*object
, zval
*member
, int type TSRMLS_DC
)
160 getObjectEx(http_message_object
, obj
, object
);
161 http_message
*msg
= obj
->message
;
165 ALLOC_ZVAL(return_value
);
166 return_value
->refcount
= 0;
168 if (!EG(scope
) || !instanceof_function(EG(scope
), obj
->zo
.ce TSRMLS_CC
)) {
169 zend_error(E_WARNING
, "Cannot access protected property %s::$%s", obj
->zo
.ce
->name
, Z_STRVAL_P(member
));
170 return EG(uninitialized_zval_ptr
);
173 switch (zend_get_hash_value(Z_STRVAL_P(member
), Z_STRLEN_P(member
) + 1))
175 case HTTP_MSG_PROPHASH_TYPE
:
176 RETVAL_LONG(msg
->type
);
179 case HTTP_MSG_PROPHASH_HTTP_VERSION
:
182 case HTTP_MSG_REQUEST
:
183 RETVAL_DOUBLE(msg
->info
.request
.http_version
);
186 case HTTP_MSG_RESPONSE
:
187 RETVAL_DOUBLE(msg
->info
.response
.http_version
);
197 case HTTP_MSG_PROPHASH_BODY
:
198 phpstr_fix(PHPSTR(msg
));
199 RETVAL_PHPSTR(PHPSTR(msg
), 0, 1);
202 case HTTP_MSG_PROPHASH_HEADERS
:
203 array_init(return_value
);
204 zend_hash_copy(Z_ARRVAL_P(return_value
), &msg
->hdrs
, (copy_ctor_func_t
) zval_add_ref
, NULL
, sizeof(zval
*));
207 case HTTP_MSG_PROPHASH_PARENT_MESSAGE
:
209 RETVAL_OBJVAL(obj
->parent
);
210 Z_TYPE_P(return_value
) = IS_OBJECT
;
211 return_value
->value
.obj
= obj
->parent
;
212 zend_objects_store_add_ref(return_value TSRMLS_CC
);
218 case HTTP_MSG_PROPHASH_REQUEST_METHOD
:
219 if (HTTP_MSG_TYPE(REQUEST
, msg
) && msg
->info
.request
.method
) {
220 RETVAL_STRING(msg
->info
.request
.method
, 1);
226 case HTTP_MSG_PROPHASH_REQUEST_URI
:
227 if (HTTP_MSG_TYPE(REQUEST
, msg
) && msg
->info
.request
.URI
) {
228 RETVAL_STRING(msg
->info
.request
.URI
, 1);
234 case HTTP_MSG_PROPHASH_RESPONSE_CODE
:
235 if (HTTP_MSG_TYPE(RESPONSE
, msg
)) {
236 RETVAL_LONG(msg
->info
.response
.code
);
250 static void _http_message_object_write_prop(zval
*object
, zval
*member
, zval
*value TSRMLS_DC
)
252 getObjectEx(http_message_object
, obj
, object
);
253 http_message
*msg
= obj
->message
;
255 if (!EG(scope
) || !instanceof_function(EG(scope
), obj
->zo
.ce TSRMLS_CC
)) {
256 zend_error(E_WARNING
, "Cannot access protected property %s::$%s", obj
->zo
.ce
->name
, Z_STRVAL_P(member
));
259 switch (zend_get_hash_value(Z_STRVAL_P(member
), Z_STRLEN_P(member
) + 1))
261 case HTTP_MSG_PROPHASH_TYPE
:
262 convert_to_long_ex(&value
);
263 if (Z_LVAL_P(value
) != msg
->type
) {
264 if (HTTP_MSG_TYPE(REQUEST
, msg
)) {
265 if (msg
->info
.request
.method
) {
266 efree(msg
->info
.request
.method
);
268 if (msg
->info
.request
.URI
) {
269 efree(msg
->info
.request
.URI
);
272 msg
->type
= Z_LVAL_P(value
);
273 if (HTTP_MSG_TYPE(REQUEST
, msg
)) {
274 msg
->info
.request
.method
= NULL
;
275 msg
->info
.request
.URI
= NULL
;
281 case HTTP_MSG_PROPHASH_HTTP_VERSION
:
282 convert_to_double_ex(&value
);
285 case HTTP_MSG_REQUEST
:
286 msg
->info
.request
.http_version
= (float) Z_DVAL_P(value
);
289 case HTTP_MSG_RESPONSE
:
290 msg
->info
.response
.http_version
= (float) Z_DVAL_P(value
);
295 case HTTP_MSG_PROPHASH_BODY
:
296 convert_to_string_ex(&value
);
297 phpstr_dtor(PHPSTR(msg
));
298 phpstr_from_string_ex(PHPSTR(msg
), Z_STRVAL_P(value
), Z_STRLEN_P(value
));
301 case HTTP_MSG_PROPHASH_HEADERS
:
302 convert_to_array_ex(&value
);
303 zend_hash_clean(&msg
->hdrs
);
304 zend_hash_copy(&msg
->hdrs
, Z_ARRVAL_P(value
), (copy_ctor_func_t
) zval_add_ref
, NULL
, sizeof(zval
*));
307 case HTTP_MSG_PROPHASH_PARENT_MESSAGE
:
310 tmp
.value
.obj
= obj
->parent
;
311 zend_objects_store_del_ref(&tmp TSRMLS_CC
);
313 zend_objects_store_add_ref(value TSRMLS_CC
);
314 obj
->parent
= value
->value
.obj
;
317 case HTTP_MSG_PROPHASH_REQUEST_METHOD
:
318 convert_to_string_ex(&value
);
319 if (HTTP_MSG_TYPE(REQUEST
, msg
)) {
320 if (msg
->info
.request
.method
) {
321 efree(msg
->info
.request
.method
);
323 msg
->info
.request
.method
= estrndup(Z_STRVAL_P(value
), Z_STRLEN_P(value
));
327 case HTTP_MSG_PROPHASH_REQUEST_URI
:
328 convert_to_string_ex(&value
);
329 if (HTTP_MSG_TYPE(REQUEST
, msg
)) {
330 if (msg
->info
.request
.URI
) {
331 efree(msg
->info
.request
.URI
);
333 msg
->info
.request
.URI
= estrndup(Z_STRVAL_P(value
), Z_STRLEN_P(value
));
337 case HTTP_MSG_PROPHASH_RESPONSE_CODE
:
338 convert_to_long_ex(&value
);
339 if (HTTP_MSG_TYPE(RESPONSE
, msg
)) {
340 msg
->info
.response
.code
= Z_LVAL_P(value
);
346 static HashTable
*_http_message_object_get_props(zval
*object TSRMLS_DC
)
349 getObjectEx(http_message_object
, obj
, object
);
350 http_message
*msg
= obj
->message
;
352 #define ASSOC_PROP(obj, ptype, name, val) \
357 Z_ARRVAL(array) = OBJ_PROP(obj); \
358 zend_mangle_property_name(&m_prop_name, &m_prop_len, "*", 1, name, lenof(name), 1); \
359 add_assoc_ ##ptype## _ex(&array, m_prop_name, sizeof(name)+4, val); \
361 #define ASSOC_STRING(obj, name, val) ASSOC_STRINGL(obj, name, val, strlen(val))
362 #define ASSOC_STRINGL(obj, name, val, len) \
367 Z_ARRVAL(array) = OBJ_PROP(obj); \
368 zend_mangle_property_name(&m_prop_name, &m_prop_len, "*", 1, name, lenof(name), 1); \
369 add_assoc_stringl_ex(&array, m_prop_name, sizeof(name)+4, val, len, 1); \
372 zend_hash_clean(OBJ_PROP(obj
));
374 ASSOC_PROP(obj
, long, "type", msg
->type
);
375 ASSOC_STRINGL(obj
, "body", PHPSTR_VAL(msg
), PHPSTR_LEN(msg
));
377 MAKE_STD_ZVAL(headers
);
380 zend_hash_copy(Z_ARRVAL_P(headers
), &msg
->hdrs
, (copy_ctor_func_t
) zval_add_ref
, NULL
, sizeof(zval
*));
381 ASSOC_PROP(obj
, zval
, "headers", headers
);
385 case HTTP_MSG_REQUEST
:
386 ASSOC_PROP(obj
, double, "httpVersion", msg
->info
.request
.http_version
);
387 ASSOC_PROP(obj
, long, "responseCode", 0);
388 ASSOC_STRING(obj
, "requestMethod", msg
->info
.request
.method
);
389 ASSOC_STRING(obj
, "requestUri", msg
->info
.request
.URI
);
392 case HTTP_MSG_RESPONSE
:
393 ASSOC_PROP(obj
, double, "httpVersion", msg
->info
.response
.http_version
);
394 ASSOC_PROP(obj
, long, "responseCode", msg
->info
.response
.code
);
395 ASSOC_STRING(obj
, "requestMethod", "");
396 ASSOC_STRING(obj
, "requestUri", "");
401 ASSOC_PROP(obj
, double, "httpVersion", 0.0);
402 ASSOC_PROP(obj
, long, "responseCode", 0);
403 ASSOC_STRING(obj
, "requestMethod", "");
404 ASSOC_STRING(obj
, "requestUri", "");
408 return OBJ_PROP(obj
);
411 #endif /* ZEND_ENGINE_2 */
418 * vim600: noet sw=4 ts=4 fdm=marker
419 * vim<600: noet sw=4 ts=4