diff options
Diffstat (limited to 'ext/reflection/php_reflection.c')
| -rw-r--r-- | ext/reflection/php_reflection.c | 6195 |
1 files changed, 6195 insertions, 0 deletions
diff --git a/ext/reflection/php_reflection.c b/ext/reflection/php_reflection.c new file mode 100644 index 0000000..659f4be --- /dev/null +++ b/ext/reflection/php_reflection.c @@ -0,0 +1,6195 @@ +/* + +----------------------------------------------------------------------+ + | PHP Version 5 | + +----------------------------------------------------------------------+ + | Copyright (c) 1997-2013 The PHP Group | + +----------------------------------------------------------------------+ + | This source file is subject to version 3.01 of the PHP license, | + | that is bundled with this package in the file LICENSE, and is | + | available through the world-wide-web at the following url: | + | http://www.php.net/license/3_01.txt | + | If you did not receive a copy of the PHP license and are unable to | + | obtain it through the world-wide-web, please send a note to | + | license@php.net so we can mail you a copy immediately. | + +----------------------------------------------------------------------+ + | Authors: Timm Friebe <thekid@thekid.de> | + | George Schlossnagle <george@omniti.com> | + | Andrei Zmievski <andrei@gravitonic.com> | + | Marcus Boerger <helly@php.net> | + | Johannes Schlueter <johannes@php.net> | + +----------------------------------------------------------------------+ +*/ + +/* $Id: 25ecbad68e5a4573ffee43ea24a0591ea179492a $ */ + +#ifdef HAVE_CONFIG_H +#include "config.h" +#endif + +#include "php.h" +#include "php_ini.h" +#include "php_reflection.h" +#include "ext/standard/info.h" + +#include "zend.h" +#include "zend_API.h" +#include "zend_exceptions.h" +#include "zend_operators.h" +#include "zend_constants.h" +#include "zend_ini.h" +#include "zend_interfaces.h" +#include "zend_closures.h" +#include "zend_extensions.h" + +#define reflection_update_property(object, name, value) do { \ + zval *member; \ + MAKE_STD_ZVAL(member); \ + ZVAL_STRINGL(member, name, sizeof(name)-1, 1); \ + zend_std_write_property(object, member, value, NULL TSRMLS_CC); \ + Z_DELREF_P(value); \ + zval_ptr_dtor(&member); \ + } while (0) + +/* Class entry pointers */ +PHPAPI zend_class_entry *reflector_ptr; +PHPAPI zend_class_entry *reflection_exception_ptr; +PHPAPI zend_class_entry *reflection_ptr; +PHPAPI zend_class_entry *reflection_function_abstract_ptr; +PHPAPI zend_class_entry *reflection_function_ptr; +PHPAPI zend_class_entry *reflection_parameter_ptr; +PHPAPI zend_class_entry *reflection_class_ptr; +PHPAPI zend_class_entry *reflection_object_ptr; +PHPAPI zend_class_entry *reflection_method_ptr; +PHPAPI zend_class_entry *reflection_property_ptr; +PHPAPI zend_class_entry *reflection_extension_ptr; +PHPAPI zend_class_entry *reflection_zend_extension_ptr; + +#if MBO_0 +ZEND_BEGIN_MODULE_GLOBALS(reflection) + int dummy; +ZEND_END_MODULE_GLOBALS(reflection) + +#ifdef ZTS +# define REFLECTION_G(v) \ + TSRMG(reflection_globals_id, zend_reflection_globals*, v) +extern int reflection_globals_id; +#else +# define REFLECTION_G(v) (reflection_globals.v) +extern zend_reflection_globals reflectionglobals; +#endif + +ZEND_DECLARE_MODULE_GLOBALS(reflection) +#endif /* MBO_0 */ + +/* Method macros */ + +#define METHOD_NOTSTATIC(ce) \ + if (!this_ptr || !instanceof_function(Z_OBJCE_P(this_ptr), ce TSRMLS_CC)) { \ + php_error_docref(NULL TSRMLS_CC, E_ERROR, "%s() cannot be called statically", get_active_function_name(TSRMLS_C)); \ + return; \ + } \ + +/* Exception throwing macro */ +#define _DO_THROW(msg) \ + zend_throw_exception(reflection_exception_ptr, msg, 0 TSRMLS_CC); \ + return; \ + +#define RETURN_ON_EXCEPTION \ + if (EG(exception) && Z_OBJCE_P(EG(exception)) == reflection_exception_ptr) { \ + return; \ + } + +#define GET_REFLECTION_OBJECT_PTR(target) \ + intern = (reflection_object *) zend_object_store_get_object(getThis() TSRMLS_CC); \ + if (intern == NULL || intern->ptr == NULL) { \ + RETURN_ON_EXCEPTION \ + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Failed to retrieve the reflection object"); \ + } \ + target = intern->ptr; \ + +/* Class constants */ +#define REGISTER_REFLECTION_CLASS_CONST_LONG(class_name, const_name, value) \ + zend_declare_class_constant_long(reflection_ ## class_name ## _ptr, const_name, sizeof(const_name)-1, (long)value TSRMLS_CC); + +/* {{{ Smart string functions */ +typedef struct _string { + char *string; + int len; + int alloced; +} string; + +static void string_init(string *str) +{ + str->string = (char *) emalloc(1024); + str->len = 1; + str->alloced = 1024; + *str->string = '\0'; +} + +static string *string_printf(string *str, const char *format, ...) +{ + int len; + va_list arg; + char *s_tmp; + + va_start(arg, format); + len = zend_vspprintf(&s_tmp, 0, format, arg); + if (len) { + register int nlen = (str->len + len + (1024 - 1)) & ~(1024 - 1); + if (str->alloced < nlen) { + str->alloced = nlen; + str->string = erealloc(str->string, str->alloced); + } + memcpy(str->string + str->len - 1, s_tmp, len + 1); + str->len += len; + } + efree(s_tmp); + va_end(arg); + return str; +} + +static string *string_write(string *str, char *buf, int len) +{ + register int nlen = (str->len + len + (1024 - 1)) & ~(1024 - 1); + if (str->alloced < nlen) { + str->alloced = nlen; + str->string = erealloc(str->string, str->alloced); + } + memcpy(str->string + str->len - 1, buf, len); + str->len += len; + str->string[str->len - 1] = '\0'; + return str; +} + +static string *string_append(string *str, string *append) +{ + if (append->len > 1) { + string_write(str, append->string, append->len - 1); + } + return str; +} + +static void string_free(string *str) +{ + efree(str->string); + str->len = 0; + str->alloced = 0; + str->string = NULL; +} +/* }}} */ + +/* {{{ Object structure */ + +/* Struct for properties */ +typedef struct _property_reference { + zend_class_entry *ce; + zend_property_info prop; +} property_reference; + +/* Struct for parameters */ +typedef struct _parameter_reference { + zend_uint offset; + zend_uint required; + struct _zend_arg_info *arg_info; + zend_function *fptr; +} parameter_reference; + +typedef enum { + REF_TYPE_OTHER, /* Must be 0 */ + REF_TYPE_FUNCTION, + REF_TYPE_PARAMETER, + REF_TYPE_PROPERTY, + REF_TYPE_DYNAMIC_PROPERTY +} reflection_type_t; + +/* Struct for reflection objects */ +typedef struct { + zend_object zo; + void *ptr; + reflection_type_t ref_type; + zval *obj; + zend_class_entry *ce; + unsigned int ignore_visibility:1; +} reflection_object; + +/* }}} */ + +static zend_object_handlers reflection_object_handlers; + +static void _default_get_entry(zval *object, char *name, int name_len, zval *return_value TSRMLS_DC) /* {{{ */ +{ + zval **value; + + if (zend_hash_find(Z_OBJPROP_P(object), name, name_len, (void **) &value) == FAILURE) { + RETURN_FALSE; + } + + MAKE_COPY_ZVAL(value, return_value); +} +/* }}} */ + +#ifdef ilia_0 +static void _default_lookup_entry(zval *object, char *name, int name_len, zval **return_value TSRMLS_DC) /* {{{ */ +{ + zval **value; + + if (zend_hash_find(Z_OBJPROP_P(object), name, name_len, (void **) &value) == FAILURE) { + *return_value = NULL; + } else { + *return_value = *value; + } +} +/* }}} */ +#endif + +static void reflection_register_implement(zend_class_entry *class_entry, zend_class_entry *interface_entry TSRMLS_DC) /* {{{ */ +{ + zend_uint num_interfaces = ++class_entry->num_interfaces; + + class_entry->interfaces = (zend_class_entry **) realloc(class_entry->interfaces, sizeof(zend_class_entry *) * num_interfaces); + class_entry->interfaces[num_interfaces - 1] = interface_entry; +} +/* }}} */ + +static zend_function *_copy_function(zend_function *fptr TSRMLS_DC) /* {{{ */ +{ + if (fptr + && fptr->type == ZEND_INTERNAL_FUNCTION + && (fptr->internal_function.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) != 0) + { + zend_function *copy_fptr; + copy_fptr = emalloc(sizeof(zend_function)); + memcpy(copy_fptr, fptr, sizeof(zend_function)); + copy_fptr->internal_function.function_name = estrdup(fptr->internal_function.function_name); + return copy_fptr; + } else { + /* no copy needed */ + return fptr; + } +} +/* }}} */ + +static void _free_function(zend_function *fptr TSRMLS_DC) /* {{{ */ +{ + if (fptr + && fptr->type == ZEND_INTERNAL_FUNCTION + && (fptr->internal_function.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) != 0) + { + efree((char*)fptr->internal_function.function_name); + efree(fptr); + } +} +/* }}} */ + +static void reflection_free_objects_storage(void *object TSRMLS_DC) /* {{{ */ +{ + reflection_object *intern = (reflection_object *) object; + parameter_reference *reference; + property_reference *prop_reference; + + if (intern->ptr) { + switch (intern->ref_type) { + case REF_TYPE_PARAMETER: + reference = (parameter_reference*)intern->ptr; + _free_function(reference->fptr TSRMLS_CC); + efree(intern->ptr); + break; + case REF_TYPE_FUNCTION: + _free_function(intern->ptr TSRMLS_CC); + break; + case REF_TYPE_PROPERTY: + efree(intern->ptr); + break; + case REF_TYPE_DYNAMIC_PROPERTY: + prop_reference = (property_reference*)intern->ptr; + efree((char*)prop_reference->prop.name); + efree(intern->ptr); + break; + case REF_TYPE_OTHER: + break; + } + } + intern->ptr = NULL; + if (intern->obj) { + zval_ptr_dtor(&intern->obj); + } + zend_objects_free_object_storage(object TSRMLS_CC); +} +/* }}} */ + +static zend_object_value reflection_objects_new(zend_class_entry *class_type TSRMLS_DC) /* {{{ */ +{ + zend_object_value retval; + reflection_object *intern; + + intern = ecalloc(1, sizeof(reflection_object)); + intern->zo.ce = class_type; + + zend_object_std_init(&intern->zo, class_type TSRMLS_CC); + object_properties_init(&intern->zo, class_type); + retval.handle = zend_objects_store_put(intern, NULL, reflection_free_objects_storage, NULL TSRMLS_CC); + retval.handlers = &reflection_object_handlers; + return retval; +} +/* }}} */ + +static zval * reflection_instantiate(zend_class_entry *pce, zval *object TSRMLS_DC) /* {{{ */ +{ + if (!object) { + ALLOC_ZVAL(object); + } + Z_TYPE_P(object) = IS_OBJECT; + object_init_ex(object, pce); + Z_SET_REFCOUNT_P(object, 1); + Z_SET_ISREF_P(object); + return object; +} +/* }}} */ + +static void _const_string(string *str, char *name, zval *value, char *indent TSRMLS_DC); +static void _function_string(string *str, zend_function *fptr, zend_class_entry *scope, char* indent TSRMLS_DC); +static void _property_string(string *str, zend_property_info *prop, char *prop_name, char* indent TSRMLS_DC); +static void _class_string(string *str, zend_class_entry *ce, zval *obj, char *indent TSRMLS_DC); +static void _extension_string(string *str, zend_module_entry *module, char *indent TSRMLS_DC); +static void _zend_extension_string(string *str, zend_extension *extension, char *indent TSRMLS_DC); + +/* {{{ _class_string */ +static void _class_string(string *str, zend_class_entry *ce, zval *obj, char *indent TSRMLS_DC) +{ + int count, count_static_props = 0, count_static_funcs = 0, count_shadow_props = 0; + string sub_indent; + + string_init(&sub_indent); + string_printf(&sub_indent, "%s ", indent); + + /* TBD: Repair indenting of doc comment (or is this to be done in the parser?) */ + if (ce->type == ZEND_USER_CLASS && ce->info.user.doc_comment) { + string_printf(str, "%s%s", indent, ce->info.user.doc_comment); + string_write(str, "\n", 1); + } + + if (obj) { + string_printf(str, "%sObject of class [ ", indent); + } else { + char *kind = "Class"; + if (ce->ce_flags & ZEND_ACC_INTERFACE) { + kind = "Interface"; + } else if ((ce->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) { + kind = "Trait"; + } + string_printf(str, "%s%s [ ", indent, kind); + } + string_printf(str, (ce->type == ZEND_USER_CLASS) ? "<user" : "<internal"); + if (ce->type == ZEND_INTERNAL_CLASS && ce->info.internal.module) { + string_printf(str, ":%s", ce->info.internal.module->name); + } + string_printf(str, "> "); + if (ce->get_iterator != NULL) { + string_printf(str, "<iterateable> "); + } + if (ce->ce_flags & ZEND_ACC_INTERFACE) { + string_printf(str, "interface "); + } else if ((ce->ce_flags & ZEND_ACC_TRAIT) == ZEND_ACC_TRAIT) { + string_printf(str, "trait "); + } else { + if (ce->ce_flags & (ZEND_ACC_IMPLICIT_ABSTRACT_CLASS|ZEND_ACC_EXPLICIT_ABSTRACT_CLASS)) { + string_printf(str, "abstract "); + } + if (ce->ce_flags & ZEND_ACC_FINAL_CLASS) { + string_printf(str, "final "); + } + string_printf(str, "class "); + } + string_printf(str, "%s", ce->name); + if (ce->parent) { + string_printf(str, " extends %s", ce->parent->name); + } + + if (ce->num_interfaces) { + zend_uint i; + + if (ce->ce_flags & ZEND_ACC_INTERFACE) { + string_printf(str, " extends %s", ce->interfaces[0]->name); + } else { + string_printf(str, " implements %s", ce->interfaces[0]->name); + } + for (i = 1; i < ce->num_interfaces; ++i) { + string_printf(str, ", %s", ce->interfaces[i]->name); + } + } + string_printf(str, " ] {\n"); + + /* The information where a class is declared is only available for user classes */ + if (ce->type == ZEND_USER_CLASS) { + string_printf(str, "%s @@ %s %d-%d\n", indent, ce->info.user.filename, + ce->info.user.line_start, ce->info.user.line_end); + } + + /* Constants */ + if (&ce->constants_table) { + zend_hash_apply_with_argument(&ce->constants_table, (apply_func_arg_t) zval_update_constant, (void*)1 TSRMLS_CC); + string_printf(str, "\n"); + count = zend_hash_num_elements(&ce->constants_table); + string_printf(str, "%s - Constants [%d] {\n", indent, count); + if (count > 0) { + HashPosition pos; + zval **value; + char *key; + uint key_len; + ulong num_index; + + zend_hash_internal_pointer_reset_ex(&ce->constants_table, &pos); + + while (zend_hash_get_current_data_ex(&ce->constants_table, (void **) &value, &pos) == SUCCESS) { + zend_hash_get_current_key_ex(&ce->constants_table, &key, &key_len, &num_index, 0, &pos); + + _const_string(str, key, *value, indent TSRMLS_CC); + zend_hash_move_forward_ex(&ce->constants_table, &pos); + } + } + string_printf(str, "%s }\n", indent); + } + + /* Static properties */ + if (&ce->properties_info) { + /* counting static properties */ + count = zend_hash_num_elements(&ce->properties_info); + if (count > 0) { + HashPosition pos; + zend_property_info *prop; + + zend_hash_internal_pointer_reset_ex(&ce->properties_info, &pos); + + while (zend_hash_get_current_data_ex(&ce->properties_info, (void **) &prop, &pos) == SUCCESS) { + if(prop->flags & ZEND_ACC_SHADOW) { + count_shadow_props++; + } else if (prop->flags & ZEND_ACC_STATIC) { + count_static_props++; + } + zend_hash_move_forward_ex(&ce->properties_info, &pos); + } + } + + /* static properties */ + string_printf(str, "\n%s - Static properties [%d] {\n", indent, count_static_props); + if (count_static_props > 0) { + HashPosition pos; + zend_property_info *prop; + + zend_hash_internal_pointer_reset_ex(&ce->properties_info, &pos); + + while (zend_hash_get_current_data_ex(&ce->properties_info, (void **) &prop, &pos) == SUCCESS) { + if ((prop->flags & ZEND_ACC_STATIC) && !(prop->flags & ZEND_ACC_SHADOW)) { + _property_string(str, prop, NULL, sub_indent.string TSRMLS_CC); + } + + zend_hash_move_forward_ex(&ce->properties_info, &pos); + } + } + string_printf(str, "%s }\n", indent); + } + + /* Static methods */ + if (&ce->function_table) { + /* counting static methods */ + count = zend_hash_num_elements(&ce->function_table); + if (count > 0) { + HashPosition pos; + zend_function *mptr; + + zend_hash_internal_pointer_reset_ex(&ce->function_table, &pos); + + while (zend_hash_get_current_data_ex(&ce->function_table, (void **) &mptr, &pos) == SUCCESS) { + if (mptr->common.fn_flags & ZEND_ACC_STATIC + && ((mptr->common.fn_flags & ZEND_ACC_PRIVATE) == 0 || mptr->common.scope == ce)) + { + count_static_funcs++; + } + zend_hash_move_forward_ex(&ce->function_table, &pos); + } + } + + /* static methods */ + string_printf(str, "\n%s - Static methods [%d] {", indent, count_static_funcs); + if (count_static_funcs > 0) { + HashPosition pos; + zend_function *mptr; + + zend_hash_internal_pointer_reset_ex(&ce->function_table, &pos); + + while (zend_hash_get_current_data_ex(&ce->function_table, (void **) &mptr, &pos) == SUCCESS) { + if (mptr->common.fn_flags & ZEND_ACC_STATIC + && ((mptr->common.fn_flags & ZEND_ACC_PRIVATE) == 0 || mptr->common.scope == ce)) + { + string_printf(str, "\n"); + _function_string(str, mptr, ce, sub_indent.string TSRMLS_CC); + } + zend_hash_move_forward_ex(&ce->function_table, &pos); + } + } else { + string_printf(str, "\n"); + } + string_printf(str, "%s }\n", indent); + } + + /* Default/Implicit properties */ + if (&ce->properties_info) { + count = zend_hash_num_elements(&ce->properties_info) - count_static_props - count_shadow_props; + string_printf(str, "\n%s - Properties [%d] {\n", indent, count); + if (count > 0) { + HashPosition pos; + zend_property_info *prop; + + zend_hash_internal_pointer_reset_ex(&ce->properties_info, &pos); + + while (zend_hash_get_current_data_ex(&ce->properties_info, (void **) &prop, &pos) == SUCCESS) { + if (!(prop->flags & (ZEND_ACC_STATIC|ZEND_ACC_SHADOW))) { + _property_string(str, prop, NULL, sub_indent.string TSRMLS_CC); + } + zend_hash_move_forward_ex(&ce->properties_info, &pos); + } + } + string_printf(str, "%s }\n", indent); + } + + if (obj && Z_OBJ_HT_P(obj)->get_properties) { + string dyn; + HashTable *properties = Z_OBJ_HT_P(obj)->get_properties(obj TSRMLS_CC); + HashPosition pos; + zval **prop; + + string_init(&dyn); + count = 0; + + if (properties && zend_hash_num_elements(properties)) { + zend_hash_internal_pointer_reset_ex(properties, &pos); + + while (zend_hash_get_current_data_ex(properties, (void **) &prop, &pos) == SUCCESS) { + char *prop_name; + uint prop_name_size; + ulong index; + + if (zend_hash_get_current_key_ex(properties, &prop_name, &prop_name_size, &index, 1, &pos) == HASH_KEY_IS_STRING) { + if (prop_name_size && prop_name[0]) { /* skip all private and protected properties */ + if (!zend_hash_quick_exists(&ce->properties_info, prop_name, prop_name_size, zend_get_hash_value(prop_name, prop_name_size))) { + count++; + _property_string(&dyn, NULL, prop_name, sub_indent.string TSRMLS_CC); + } + } + efree(prop_name); + } + zend_hash_move_forward_ex(properties, &pos); + } + } + + string_printf(str, "\n%s - Dynamic properties [%d] {\n", indent, count); + string_append(str, &dyn); + string_printf(str, "%s }\n", indent); + string_free(&dyn); + } + + /* Non static methods */ + if (&ce->function_table) { + count = zend_hash_num_elements(&ce->function_table) - count_static_funcs; + if (count > 0) { + HashPosition pos; + zend_function *mptr; + string dyn; + + count = 0; + string_init(&dyn); + zend_hash_internal_pointer_reset_ex(&ce->function_table, &pos); + + while (zend_hash_get_current_data_ex(&ce->function_table, (void **) &mptr, &pos) == SUCCESS) { + if ((mptr->common.fn_flags & ZEND_ACC_STATIC) == 0 + && ((mptr->common.fn_flags & ZEND_ACC_PRIVATE) == 0 || mptr->common.scope == ce)) + { + char *key; + uint key_len; + ulong num_index; + uint len = strlen(mptr->common.function_name); + + /* Do not display old-style inherited constructors */ + if ((mptr->common.fn_flags & ZEND_ACC_CTOR) == 0 + || mptr->common.scope == ce + || zend_hash_get_current_key_ex(&ce->function_table, &key, &key_len, &num_index, 0, &pos) != HASH_KEY_IS_STRING + || zend_binary_strcasecmp(key, key_len-1, mptr->common.function_name, len) == 0) + { + zend_function *closure; + /* see if this is a closure */ + if (ce == zend_ce_closure && obj && (len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(mptr->common.function_name, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && (closure = zend_get_closure_invoke_method(obj TSRMLS_CC)) != NULL) + { + mptr = closure; + } else { + closure = NULL; + } + string_printf(&dyn, "\n"); + _function_string(&dyn, mptr, ce, sub_indent.string TSRMLS_CC); + count++; + _free_function(closure TSRMLS_CC); + } + } + zend_hash_move_forward_ex(&ce->function_table, &pos); + } + string_printf(str, "\n%s - Methods [%d] {", indent, count); + if (!count) { + string_printf(str, "\n"); + } + string_append(str, &dyn); + string_free(&dyn); + } else { + string_printf(str, "\n%s - Methods [0] {\n", indent); + } + string_printf(str, "%s }\n", indent); + } + + string_printf(str, "%s}\n", indent); + string_free(&sub_indent); +} +/* }}} */ + +/* {{{ _const_string */ +static void _const_string(string *str, char *name, zval *value, char *indent TSRMLS_DC) +{ + char *type; + zval value_copy; + int use_copy; + + type = zend_zval_type_name(value); + + zend_make_printable_zval(value, &value_copy, &use_copy); + if (use_copy) { + value = &value_copy; + } + + string_printf(str, "%s Constant [ %s %s ] { %s }\n", + indent, type, name, Z_STRVAL_P(value)); + + if (use_copy) { + zval_dtor(value); + } +} +/* }}} */ + +/* {{{ _get_recv_opcode */ +static zend_op* _get_recv_op(zend_op_array *op_array, zend_uint offset) +{ + zend_op *op = op_array->opcodes; + zend_op *end = op + op_array->last; + + ++offset; + while (op < end) { + if ((op->opcode == ZEND_RECV || op->opcode == ZEND_RECV_INIT) + && op->op1.num == (long)offset) + { + return op; + } + ++op; + } + return NULL; +} +/* }}} */ + +/* {{{ _parameter_string */ +static void _parameter_string(string *str, zend_function *fptr, struct _zend_arg_info *arg_info, zend_uint offset, zend_uint required, char* indent TSRMLS_DC) +{ + string_printf(str, "Parameter #%d [ ", offset); + if (offset >= required) { + string_printf(str, "<optional> "); + } else { + string_printf(str, "<required> "); + } + if (arg_info->class_name) { + string_printf(str, "%s ", arg_info->class_name); + if (arg_info->allow_null) { + string_printf(str, "or NULL "); + } + } else if (arg_info->type_hint) { + string_printf(str, "%s ", zend_get_type_by_const(arg_info->type_hint)); + if (arg_info->allow_null) { + string_printf(str, "or NULL "); + } + } + if (arg_info->pass_by_reference) { + string_write(str, "&", sizeof("&")-1); + } + if (arg_info->name) { + string_printf(str, "$%s", arg_info->name); + } else { + string_printf(str, "$param%d", offset); + } + if (fptr->type == ZEND_USER_FUNCTION && offset >= required) { + zend_op *precv = _get_recv_op((zend_op_array*)fptr, offset); + if (precv && precv->opcode == ZEND_RECV_INIT && precv->op2_type != IS_UNUSED) { + zval *zv, zv_copy; + int use_copy; + string_write(str, " = ", sizeof(" = ")-1); + ALLOC_ZVAL(zv); + *zv = *precv->op2.zv; + zval_copy_ctor(zv); + INIT_PZVAL(zv); + zval_update_constant_ex(&zv, (void*)1, fptr->common.scope TSRMLS_CC); + if (Z_TYPE_P(zv) == IS_BOOL) { + if (Z_LVAL_P(zv)) { + string_write(str, "true", sizeof("true")-1); + } else { + string_write(str, "false", sizeof("false")-1); + } + } else if (Z_TYPE_P(zv) == IS_NULL) { + string_write(str, "NULL", sizeof("NULL")-1); + } else if (Z_TYPE_P(zv) == IS_STRING) { + string_write(str, "'", sizeof("'")-1); + string_write(str, Z_STRVAL_P(zv), MIN(Z_STRLEN_P(zv), 15)); + if (Z_STRLEN_P(zv) > 15) { + string_write(str, "...", sizeof("...")-1); + } + string_write(str, "'", sizeof("'")-1); + } else if (Z_TYPE_P(zv) == IS_ARRAY) { + string_write(str, "Array", sizeof("Array")-1); + } else { + zend_make_printable_zval(zv, &zv_copy, &use_copy); + string_write(str, Z_STRVAL(zv_copy), Z_STRLEN(zv_copy)); + if (use_copy) { + zval_dtor(&zv_copy); + } + } + zval_ptr_dtor(&zv); + } + } + string_write(str, " ]", sizeof(" ]")-1); +} +/* }}} */ + +/* {{{ _function_parameter_string */ +static void _function_parameter_string(string *str, zend_function *fptr, char* indent TSRMLS_DC) +{ + struct _zend_arg_info *arg_info = fptr->common.arg_info; + zend_uint i, required = fptr->common.required_num_args; + + if (!arg_info) { + return; + } + + string_printf(str, "\n"); + string_printf(str, "%s- Parameters [%d] {\n", indent, fptr->common.num_args); + for (i = 0; i < fptr->common.num_args; i++) { + string_printf(str, "%s ", indent); + _parameter_string(str, fptr, arg_info, i, required, indent TSRMLS_CC); + string_write(str, "\n", sizeof("\n")-1); + arg_info++; + } + string_printf(str, "%s}\n", indent); +} +/* }}} */ + +/* {{{ _function_closure_string */ +static void _function_closure_string(string *str, zend_function *fptr, char* indent TSRMLS_DC) +{ + zend_uint i, count; + ulong num_index; + char *key; + uint key_len; + HashTable *static_variables; + HashPosition pos; + + if (fptr->type != ZEND_USER_FUNCTION || !fptr->op_array.static_variables) { + return; + } + + static_variables = fptr->op_array.static_variables; + count = zend_hash_num_elements(static_variables); + + if (!count) { + return; + } + + string_printf(str, "\n"); + string_printf(str, "%s- Bound Variables [%d] {\n", indent, zend_hash_num_elements(static_variables)); + zend_hash_internal_pointer_reset_ex(static_variables, &pos); + i = 0; + while (i < count) { + zend_hash_get_current_key_ex(static_variables, &key, &key_len, &num_index, 0, &pos); + string_printf(str, "%s Variable #%d [ $%s ]\n", indent, i++, key); + zend_hash_move_forward_ex(static_variables, &pos); + } + string_printf(str, "%s}\n", indent); +} +/* }}} */ + +/* {{{ _function_string */ +static void _function_string(string *str, zend_function *fptr, zend_class_entry *scope, char* indent TSRMLS_DC) +{ + string param_indent; + zend_function *overwrites; + char *lc_name; + unsigned int lc_name_len; + + /* TBD: Repair indenting of doc comment (or is this to be done in the parser?) + * What's "wrong" is that any whitespace before the doc comment start is + * swallowed, leading to an unaligned comment. + */ + if (fptr->type == ZEND_USER_FUNCTION && fptr->op_array.doc_comment) { + string_printf(str, "%s%s\n", indent, fptr->op_array.doc_comment); + } + + string_write(str, indent, strlen(indent)); + string_printf(str, fptr->common.fn_flags & ZEND_ACC_CLOSURE ? "Closure [ " : (fptr->common.scope ? "Method [ " : "Function [ ")); + string_printf(str, (fptr->type == ZEND_USER_FUNCTION) ? "<user" : "<internal"); + if (fptr->common.fn_flags & ZEND_ACC_DEPRECATED) { + string_printf(str, ", deprecated"); + } + if (fptr->type == ZEND_INTERNAL_FUNCTION && ((zend_internal_function*)fptr)->module) { + string_printf(str, ":%s", ((zend_internal_function*)fptr)->module->name); + } + + if (scope && fptr->common.scope) { + if (fptr->common.scope != scope) { + string_printf(str, ", inherits %s", fptr->common.scope->name); + } else if (fptr->common.scope->parent) { + lc_name_len = strlen(fptr->common.function_name); + lc_name = zend_str_tolower_dup(fptr->common.function_name, lc_name_len); + if (zend_hash_find(&fptr->common.scope->parent->function_table, lc_name, lc_name_len + 1, (void**) &overwrites) == SUCCESS) { + if (fptr->common.scope != overwrites->common.scope) { + string_printf(str, ", overwrites %s", overwrites->common.scope->name); + } + } + efree(lc_name); + } + } + if (fptr->common.prototype && fptr->common.prototype->common.scope) { + string_printf(str, ", prototype %s", fptr->common.prototype->common.scope->name); + } + if (fptr->common.fn_flags & ZEND_ACC_CTOR) { + string_printf(str, ", ctor"); + } + if (fptr->common.fn_flags & ZEND_ACC_DTOR) { + string_printf(str, ", dtor"); + } + string_printf(str, "> "); + + if (fptr->common.fn_flags & ZEND_ACC_ABSTRACT) { + string_printf(str, "abstract "); + } + if (fptr->common.fn_flags & ZEND_ACC_FINAL) { + string_printf(str, "final "); + } + if (fptr->common.fn_flags & ZEND_ACC_STATIC) { + string_printf(str, "static "); + } + + if (fptr->common.scope) { + /* These are mutually exclusive */ + switch (fptr->common.fn_flags & ZEND_ACC_PPP_MASK) { + case ZEND_ACC_PUBLIC: + string_printf(str, "public "); + break; + case ZEND_ACC_PRIVATE: + string_printf(str, "private "); + break; + case ZEND_ACC_PROTECTED: + string_printf(str, "protected "); + break; + default: + string_printf(str, "<visibility error> "); + break; + } + string_printf(str, "method "); + } else { + string_printf(str, "function "); + } + + if (fptr->op_array.fn_flags & ZEND_ACC_RETURN_REFERENCE) { + string_printf(str, "&"); + } + string_printf(str, "%s ] {\n", fptr->common.function_name); + /* The information where a function is declared is only available for user classes */ + if (fptr->type == ZEND_USER_FUNCTION) { + string_printf(str, "%s @@ %s %d - %d\n", indent, + fptr->op_array.filename, + fptr->op_array.line_start, + fptr->op_array.line_end); + } + string_init(¶m_indent); + string_printf(¶m_indent, "%s ", indent); + if (fptr->common.fn_flags & ZEND_ACC_CLOSURE) { + _function_closure_string(str, fptr, param_indent.string TSRMLS_CC); + } + _function_parameter_string(str, fptr, param_indent.string TSRMLS_CC); + string_free(¶m_indent); + string_printf(str, "%s}\n", indent); +} +/* }}} */ + +/* {{{ _property_string */ +static void _property_string(string *str, zend_property_info *prop, char *prop_name, char* indent TSRMLS_DC) +{ + const char *class_name; + + string_printf(str, "%sProperty [ ", indent); + if (!prop) { + string_printf(str, "<dynamic> public $%s", prop_name); + } else { + if (!(prop->flags & ZEND_ACC_STATIC)) { + if (prop->flags & ZEND_ACC_IMPLICIT_PUBLIC) { + string_write(str, "<implicit> ", sizeof("<implicit> ") - 1); + } else { + string_write(str, "<default> ", sizeof("<default> ") - 1); + } + } + + /* These are mutually exclusive */ + switch (prop->flags & ZEND_ACC_PPP_MASK) { + case ZEND_ACC_PUBLIC: + string_printf(str, "public "); + break; + case ZEND_ACC_PRIVATE: + string_printf(str, "private "); + break; + case ZEND_ACC_PROTECTED: + string_printf(str, "protected "); + break; + } + if(prop->flags & ZEND_ACC_STATIC) { + string_printf(str, "static "); + } + + zend_unmangle_property_name(prop->name, prop->name_length, &class_name, (const char**)&prop_name); + string_printf(str, "$%s", prop_name); + } + + string_printf(str, " ]\n"); +} +/* }}} */ + +static int _extension_ini_string(zend_ini_entry *ini_entry TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) /* {{{ */ +{ + string *str = va_arg(args, string *); + char *indent = va_arg(args, char *); + int number = va_arg(args, int); + char *comma = ""; + + if (number == ini_entry->module_number) { + string_printf(str, " %sEntry [ %s <", indent, ini_entry->name); + if (ini_entry->modifiable == ZEND_INI_ALL) { + string_printf(str, "ALL"); + } else { + if (ini_entry->modifiable & ZEND_INI_USER) { + string_printf(str, "USER"); + comma = ","; + } + if (ini_entry->modifiable & ZEND_INI_PERDIR) { + string_printf(str, "%sPERDIR", comma); + comma = ","; + } + if (ini_entry->modifiable & ZEND_INI_SYSTEM) { + string_printf(str, "%sSYSTEM", comma); + } + } + + string_printf(str, "> ]\n"); + string_printf(str, " %s Current = '%s'\n", indent, ini_entry->value ? ini_entry->value : ""); + if (ini_entry->modified) { + string_printf(str, " %s Default = '%s'\n", indent, ini_entry->orig_value ? ini_entry->orig_value : ""); + } + string_printf(str, " %s}\n", indent); + } + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +static int _extension_class_string(zend_class_entry **pce TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) /* {{{ */ +{ + string *str = va_arg(args, string *); + char *indent = va_arg(args, char *); + struct _zend_module_entry *module = va_arg(args, struct _zend_module_entry*); + int *num_classes = va_arg(args, int*); + + if (((*pce)->type == ZEND_INTERNAL_CLASS) && (*pce)->info.internal.module && !strcasecmp((*pce)->info.internal.module->name, module->name)) { + string_printf(str, "\n"); + _class_string(str, *pce, NULL, indent TSRMLS_CC); + (*num_classes)++; + } + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +static int _extension_const_string(zend_constant *constant TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) /* {{{ */ +{ + string *str = va_arg(args, string *); + char *indent = va_arg(args, char *); + struct _zend_module_entry *module = va_arg(args, struct _zend_module_entry*); + int *num_classes = va_arg(args, int*); + + if (constant->module_number == module->module_number) { + _const_string(str, constant->name, &constant->value, indent TSRMLS_CC); + (*num_classes)++; + } + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +/* {{{ _extension_string */ +static void _extension_string(string *str, zend_module_entry *module, char *indent TSRMLS_DC) +{ + string_printf(str, "%sExtension [ ", indent); + if (module->type == MODULE_PERSISTENT) { + string_printf(str, "<persistent>"); + } + if (module->type == MODULE_TEMPORARY) { + string_printf(str, "<temporary>" ); + } + string_printf(str, " extension #%d %s version %s ] {\n", + module->module_number, module->name, + (module->version == NO_VERSION_YET) ? "<no_version>" : module->version); + + if (module->deps) { + const zend_module_dep* dep = module->deps; + + string_printf(str, "\n - Dependencies {\n"); + + while(dep->name) { + string_printf(str, "%s Dependency [ %s (", indent, dep->name); + + switch(dep->type) { + case MODULE_DEP_REQUIRED: + string_write(str, "Required", sizeof("Required") - 1); + break; + case MODULE_DEP_CONFLICTS: + string_write(str, "Conflicts", sizeof("Conflicts") - 1); + break; + case MODULE_DEP_OPTIONAL: + string_write(str, "Optional", sizeof("Optional") - 1); + break; + default: + string_write(str, "Error", sizeof("Error") - 1); /* shouldn't happen */ + break; + } + + if (dep->rel) { + string_printf(str, " %s", dep->rel); + } + if (dep->version) { + string_printf(str, " %s", dep->version); + } + string_write(str, ") ]\n", sizeof(") ]\n") - 1); + dep++; + } + string_printf(str, "%s }\n", indent); + } + + { + string str_ini; + string_init(&str_ini); + zend_hash_apply_with_arguments(EG(ini_directives) TSRMLS_CC, (apply_func_args_t) _extension_ini_string, 3, &str_ini, indent, module->module_number); + if (str_ini.len > 1) { + string_printf(str, "\n - INI {\n"); + string_append(str, &str_ini); + string_printf(str, "%s }\n", indent); + } + string_free(&str_ini); + } + + { + string str_constants; + int num_constants = 0; + + string_init(&str_constants); + zend_hash_apply_with_arguments(EG(zend_constants) TSRMLS_CC, (apply_func_args_t) _extension_const_string, 4, &str_constants, indent, module, &num_constants); + if (num_constants) { + string_printf(str, "\n - Constants [%d] {\n", num_constants); + string_append(str, &str_constants); + string_printf(str, "%s }\n", indent); + } + string_free(&str_constants); + } + + if (module->functions && module->functions->fname) { + zend_function *fptr; + const zend_function_entry *func = module->functions; + + string_printf(str, "\n - Functions {\n"); + + /* Is there a better way of doing this? */ + while (func->fname) { + int fname_len = strlen(func->fname); + char *lc_name = zend_str_tolower_dup(func->fname, fname_len); + + if (zend_hash_find(EG(function_table), lc_name, fname_len + 1, (void**) &fptr) == FAILURE) { + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Internal error: Cannot find extension function %s in global function table", func->fname); + func++; + efree(lc_name); + continue; + } + + _function_string(str, fptr, NULL, " " TSRMLS_CC); + efree(lc_name); + func++; + } + string_printf(str, "%s }\n", indent); + } + + { + string str_classes; + string sub_indent; + int num_classes = 0; + + string_init(&sub_indent); + string_printf(&sub_indent, "%s ", indent); + string_init(&str_classes); + zend_hash_apply_with_arguments(EG(class_table) TSRMLS_CC, (apply_func_args_t) _extension_class_string, 4, &str_classes, sub_indent.string, module, &num_classes); + if (num_classes) { + string_printf(str, "\n - Classes [%d] {", num_classes); + string_append(str, &str_classes); + string_printf(str, "%s }\n", indent); + } + string_free(&str_classes); + string_free(&sub_indent); + } + + string_printf(str, "%s}\n", indent); +} +/* }}} */ + +static void _zend_extension_string(string *str, zend_extension *extension, char *indent TSRMLS_DC) /* {{{ */ +{ + string_printf(str, "%sZend Extension [ %s ", indent, extension->name); + + if (extension->version) { + string_printf(str, "%s ", extension->version); + } + if (extension->copyright) { + string_printf(str, "%s ", extension->copyright); + } + if (extension->author) { + string_printf(str, "by %s ", extension->author); + } + if (extension->URL) { + string_printf(str, "<%s> ", extension->URL); + } + + string_printf(str, "]\n"); +} +/* }}} */ + +/* {{{ _function_check_flag */ +static void _function_check_flag(INTERNAL_FUNCTION_PARAMETERS, int mask) +{ + reflection_object *intern; + zend_function *mptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(mptr); + RETURN_BOOL(mptr->common.fn_flags & mask); +} +/* }}} */ + +/* {{{ zend_reflection_class_factory */ +PHPAPI void zend_reflection_class_factory(zend_class_entry *ce, zval *object TSRMLS_DC) +{ + reflection_object *intern; + zval *name; + + MAKE_STD_ZVAL(name); + ZVAL_STRINGL(name, ce->name, ce->name_length, 1); + reflection_instantiate(reflection_class_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + intern->ptr = ce; + intern->ref_type = REF_TYPE_OTHER; + intern->ce = ce; + reflection_update_property(object, "name", name); +} +/* }}} */ + +/* {{{ reflection_extension_factory */ +static void reflection_extension_factory(zval *object, const char *name_str TSRMLS_DC) +{ + reflection_object *intern; + zval *name; + int name_len = strlen(name_str); + char *lcname; + struct _zend_module_entry *module; + ALLOCA_FLAG(use_heap) + + lcname = do_alloca(name_len + 1, use_heap); + zend_str_tolower_copy(lcname, name_str, name_len); + if (zend_hash_find(&module_registry, lcname, name_len + 1, (void **)&module) == FAILURE) { + free_alloca(lcname, use_heap); + return; + } + free_alloca(lcname, use_heap); + + reflection_instantiate(reflection_extension_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + MAKE_STD_ZVAL(name); + ZVAL_STRINGL(name, module->name, name_len, 1); + intern->ptr = module; + intern->ref_type = REF_TYPE_OTHER; + intern->ce = NULL; + reflection_update_property(object, "name", name); +} +/* }}} */ + +/* {{{ reflection_parameter_factory */ +static void reflection_parameter_factory(zend_function *fptr, zval *closure_object, struct _zend_arg_info *arg_info, zend_uint offset, zend_uint required, zval *object TSRMLS_DC) +{ + reflection_object *intern; + parameter_reference *reference; + zval *name; + + if (closure_object) { + Z_ADDREF_P(closure_object); + } + MAKE_STD_ZVAL(name); + if (arg_info->name) { + ZVAL_STRINGL(name, arg_info->name, arg_info->name_len, 1); + } else { + ZVAL_NULL(name); + } + reflection_instantiate(reflection_parameter_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + reference = (parameter_reference*) emalloc(sizeof(parameter_reference)); + reference->arg_info = arg_info; + reference->offset = offset; + reference->required = required; + reference->fptr = fptr; + intern->ptr = reference; + intern->ref_type = REF_TYPE_PARAMETER; + intern->ce = fptr->common.scope; + intern->obj = closure_object; + reflection_update_property(object, "name", name); +} +/* }}} */ + +/* {{{ reflection_function_factory */ +static void reflection_function_factory(zend_function *function, zval *closure_object, zval *object TSRMLS_DC) +{ + reflection_object *intern; + zval *name; + + if (closure_object) { + Z_ADDREF_P(closure_object); + } + MAKE_STD_ZVAL(name); + ZVAL_STRING(name, function->common.function_name, 1); + + reflection_instantiate(reflection_function_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + intern->ptr = function; + intern->ref_type = REF_TYPE_FUNCTION; + intern->ce = NULL; + intern->obj = closure_object; + reflection_update_property(object, "name", name); +} +/* }}} */ + +/* {{{ reflection_method_factory */ +static void reflection_method_factory(zend_class_entry *ce, zend_function *method, zval *closure_object, zval *object TSRMLS_DC) +{ + reflection_object *intern; + zval *name; + zval *classname; + + if (closure_object) { + Z_ADDREF_P(closure_object); + } + MAKE_STD_ZVAL(name); + MAKE_STD_ZVAL(classname); + ZVAL_STRING(name, method->common.function_name, 1); + ZVAL_STRINGL(classname, method->common.scope->name, method->common.scope->name_length, 1); + reflection_instantiate(reflection_method_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + intern->ptr = method; + intern->ref_type = REF_TYPE_FUNCTION; + intern->ce = ce; + intern->obj = closure_object; + reflection_update_property(object, "name", name); + reflection_update_property(object, "class", classname); +} +/* }}} */ + +/* {{{ reflection_property_factory */ +static void reflection_property_factory(zend_class_entry *ce, zend_property_info *prop, zval *object TSRMLS_DC) +{ + reflection_object *intern; + zval *name; + zval *classname; + property_reference *reference; + const char *class_name, *prop_name; + + zend_unmangle_property_name(prop->name, prop->name_length, &class_name, &prop_name); + + if (!(prop->flags & ZEND_ACC_PRIVATE)) { + /* we have to search the class hierarchy for this (implicit) public or protected property */ + zend_class_entry *tmp_ce = ce, *store_ce = ce; + zend_property_info *tmp_info = NULL; + + while (tmp_ce && zend_hash_find(&tmp_ce->properties_info, prop_name, strlen(prop_name) + 1, (void **) &tmp_info) != SUCCESS) { + ce = tmp_ce; + tmp_ce = tmp_ce->parent; + } + + if (tmp_info && !(tmp_info->flags & ZEND_ACC_SHADOW)) { /* found something and it's not a parent's private */ + prop = tmp_info; + } else { /* not found, use initial value */ + ce = store_ce; + } + } + + MAKE_STD_ZVAL(name); + MAKE_STD_ZVAL(classname); + ZVAL_STRING(name, prop_name, 1); + ZVAL_STRINGL(classname, prop->ce->name, prop->ce->name_length, 1); + + reflection_instantiate(reflection_property_ptr, object TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + reference = (property_reference*) emalloc(sizeof(property_reference)); + reference->ce = ce; + reference->prop = *prop; + intern->ptr = reference; + intern->ref_type = REF_TYPE_PROPERTY; + intern->ce = ce; + intern->ignore_visibility = 0; + reflection_update_property(object, "name", name); + reflection_update_property(object, "class", classname); +} +/* }}} */ + +/* {{{ _reflection_export */ +static void _reflection_export(INTERNAL_FUNCTION_PARAMETERS, zend_class_entry *ce_ptr, int ctor_argc) +{ + zval *reflector_ptr; + zval output, *output_ptr = &output; + zval *argument_ptr, *argument2_ptr; + zval *retval_ptr, **params[2]; + int result; + int return_output = 0; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + zval fname; + + if (ctor_argc == 1) { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|b", &argument_ptr, &return_output) == FAILURE) { + return; + } + } else { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zz|b", &argument_ptr, &argument2_ptr, &return_output) == FAILURE) { + return; + } + } + + INIT_PZVAL(&output); + + /* Create object */ + MAKE_STD_ZVAL(reflector_ptr); + if (object_and_properties_init(reflector_ptr, ce_ptr, NULL) == FAILURE) { + _DO_THROW("Could not create reflector"); + } + + /* Call __construct() */ + params[0] = &argument_ptr; + params[1] = &argument2_ptr; + + fci.size = sizeof(fci); + fci.function_table = NULL; + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = reflector_ptr; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = ctor_argc; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = ce_ptr->constructor; + fcc.calling_scope = ce_ptr; + fcc.called_scope = Z_OBJCE_P(reflector_ptr); + fcc.object_ptr = reflector_ptr; + + result = zend_call_function(&fci, &fcc TSRMLS_CC); + + if (retval_ptr) { + zval_ptr_dtor(&retval_ptr); + } + + if (EG(exception)) { + zval_ptr_dtor(&reflector_ptr); + return; + } + if (result == FAILURE) { + zval_ptr_dtor(&reflector_ptr); + _DO_THROW("Could not create reflector"); + } + + /* Call static reflection::export */ + ZVAL_BOOL(&output, return_output); + params[0] = &reflector_ptr; + params[1] = &output_ptr; + + ZVAL_STRINGL(&fname, "reflection::export", sizeof("reflection::export") - 1, 0); + fci.function_table = &reflection_ptr->function_table; + fci.function_name = &fname; + fci.object_ptr = NULL; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = 2; + fci.params = params; + fci.no_separation = 1; + + result = zend_call_function(&fci, NULL TSRMLS_CC); + + if (result == FAILURE && EG(exception) == NULL) { + zval_ptr_dtor(&reflector_ptr); + zval_ptr_dtor(&retval_ptr); + _DO_THROW("Could not execute reflection::export()"); + } + + if (return_output) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } else { + zval_ptr_dtor(&retval_ptr); + } + + /* Destruct reflector which is no longer needed */ + zval_ptr_dtor(&reflector_ptr); +} +/* }}} */ + +/* {{{ _reflection_param_get_default_param */ +static parameter_reference *_reflection_param_get_default_param(INTERNAL_FUNCTION_PARAMETERS) +{ + reflection_object *intern; + parameter_reference *param; + + intern = (reflection_object *) zend_object_store_get_object(getThis() TSRMLS_CC); + if (intern == NULL || intern->ptr == NULL) { + if (EG(exception) && Z_OBJCE_P(EG(exception)) == reflection_exception_ptr) { + return NULL; + } + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Failed to retrieve the reflection object"); + } + + param = intern->ptr; + if (param->fptr->type != ZEND_USER_FUNCTION) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Cannot determine default value for internal functions"); + return NULL; + } + + return param; +} +/* }}} */ + +/* {{{ _reflection_param_get_default_precv */ +static zend_op *_reflection_param_get_default_precv(INTERNAL_FUNCTION_PARAMETERS, parameter_reference *param) +{ + zend_op *precv; + + if (param == NULL) { + return NULL; + } + + precv = _get_recv_op((zend_op_array*)param->fptr, param->offset); + if (!precv || precv->opcode != ZEND_RECV_INIT || precv->op2_type == IS_UNUSED) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Internal error: Failed to retrieve the default value"); + return NULL; + } + + return precv; +} +/* }}} */ + +/* {{{ Preventing __clone from being called */ +ZEND_METHOD(reflection, __clone) +{ + /* Should never be executable */ + _DO_THROW("Cannot clone object using __clone()"); +} +/* }}} */ + +/* {{{ proto public static mixed Reflection::export(Reflector r [, bool return]) + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection, export) +{ + zval *object, fname, *retval_ptr; + int result; + zend_bool return_output = 0; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "O|b", &object, reflector_ptr, &return_output) == FAILURE) { + return; + } + + /* Invoke the __toString() method */ + ZVAL_STRINGL(&fname, "__tostring", sizeof("__tostring") - 1, 1); + result= call_user_function_ex(NULL, &object, &fname, &retval_ptr, 0, NULL, 0, NULL TSRMLS_CC); + zval_dtor(&fname); + + if (result == FAILURE) { + _DO_THROW("Invocation of method __toString() failed"); + /* Returns from this function */ + } + + if (!retval_ptr) { + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%s::__toString() did not return anything", Z_OBJCE_P(object)->name); + RETURN_FALSE; + } + + if (return_output) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } else { + /* No need for _r variant, return of __toString should always be a string */ + zend_print_zval(retval_ptr, 0); + zend_printf("\n"); + zval_ptr_dtor(&retval_ptr); + } +} +/* }}} */ + +/* {{{ proto public static array Reflection::getModifierNames(int modifiers) + Returns an array of modifier names */ +ZEND_METHOD(reflection, getModifierNames) +{ + long modifiers; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l", &modifiers) == FAILURE) { + return; + } + + array_init(return_value); + + if (modifiers & (ZEND_ACC_ABSTRACT | ZEND_ACC_EXPLICIT_ABSTRACT_CLASS)) { + add_next_index_stringl(return_value, "abstract", sizeof("abstract")-1, 1); + } + if (modifiers & (ZEND_ACC_FINAL | ZEND_ACC_FINAL_CLASS)) { + add_next_index_stringl(return_value, "final", sizeof("final")-1, 1); + } + if (modifiers & ZEND_ACC_IMPLICIT_PUBLIC) { + add_next_index_stringl(return_value, "public", sizeof("public")-1, 1); + } + + /* These are mutually exclusive */ + switch (modifiers & ZEND_ACC_PPP_MASK) { + case ZEND_ACC_PUBLIC: + add_next_index_stringl(return_value, "public", sizeof("public")-1, 1); + break; + case ZEND_ACC_PRIVATE: + add_next_index_stringl(return_value, "private", sizeof("private")-1, 1); + break; + case ZEND_ACC_PROTECTED: + add_next_index_stringl(return_value, "protected", sizeof("protected")-1, 1); + break; + } + + if (modifiers & ZEND_ACC_STATIC) { + add_next_index_stringl(return_value, "static", sizeof("static")-1, 1); + } +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionFunction::export(string name [, bool return]) + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_function, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_function_ptr, 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionFunction::__construct(string name) + Constructor. Throws an Exception in case the given function does not exist */ +ZEND_METHOD(reflection_function, __construct) +{ + zval *name; + zval *object; + zval *closure = NULL; + char *lcname; + reflection_object *intern; + zend_function *fptr; + char *name_str; + int name_len; + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "O", &closure, zend_ce_closure) == SUCCESS) { + fptr = (zend_function*)zend_get_closure_method_def(closure TSRMLS_CC); + Z_ADDREF_P(closure); + } else if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len) == SUCCESS) { + char *nsname; + + lcname = zend_str_tolower_dup(name_str, name_len); + + /* Ignore leading "\" */ + nsname = lcname; + if (lcname[0] == '\\') { + nsname = &lcname[1]; + name_len--; + } + + if (zend_hash_find(EG(function_table), nsname, name_len + 1, (void **)&fptr) == FAILURE) { + efree(lcname); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Function %s() does not exist", name_str); + return; + } + efree(lcname); + } else { + return; + } + + MAKE_STD_ZVAL(name); + ZVAL_STRING(name, fptr->common.function_name, 1); + reflection_update_property(object, "name", name); + intern->ptr = fptr; + intern->ref_type = REF_TYPE_FUNCTION; + intern->obj = closure; + intern->ce = NULL; +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_function, __toString) +{ + reflection_object *intern; + zend_function *fptr; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + string_init(&str); + _function_string(&str, fptr, intern->ce, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::getName() + Returns this function's name */ +ZEND_METHOD(reflection_function, getName) +{ + if (zend_parse_parameters_none() == FAILURE) { + return; + } + _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::isClosure() + Returns whether this is a closure */ +ZEND_METHOD(reflection_function, isClosure) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + RETURN_BOOL(fptr->common.fn_flags & ZEND_ACC_CLOSURE); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::getClosureThis() + Returns this pointer bound to closure */ +ZEND_METHOD(reflection_function, getClosureThis) +{ + reflection_object *intern; + zend_function *fptr; + zval* closure_this; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (intern->obj) { + closure_this = zend_get_closure_this_ptr(intern->obj TSRMLS_CC); + if (closure_this) { + RETURN_ZVAL(closure_this, 1, 0); + } + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass ReflectionFunction::getClosureScopeClass() + Returns the scope associated to the closure */ +ZEND_METHOD(reflection_function, getClosureScopeClass) +{ + reflection_object *intern; + zend_function *fptr; + const zend_function *closure_func; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (intern->obj) { + closure_func = zend_get_closure_method_def(intern->obj TSRMLS_CC); + if (closure_func && closure_func->common.scope) { + zend_reflection_class_factory(closure_func->common.scope, return_value TSRMLS_CC); + } + } +} +/* }}} */ + +/* {{{ proto public mixed ReflectionFunction::getClosure() + Returns a dynamically created closure for the function */ +ZEND_METHOD(reflection_function, getClosure) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + + zend_create_closure(return_value, fptr, NULL, NULL TSRMLS_CC); +} +/* }}} */ + + +/* {{{ proto public bool ReflectionFunction::isInternal() + Returns whether this is an internal function */ +ZEND_METHOD(reflection_function, isInternal) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + RETURN_BOOL(fptr->type == ZEND_INTERNAL_FUNCTION); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::isUserDefined() + Returns whether this is an user-defined function */ +ZEND_METHOD(reflection_function, isUserDefined) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + RETURN_BOOL(fptr->type == ZEND_USER_FUNCTION); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::isDisabled() + Returns whether this function has been disabled or not */ +ZEND_METHOD(reflection_function, isDisabled) +{ + reflection_object *intern; + zend_function *fptr; + + METHOD_NOTSTATIC(reflection_function_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + RETURN_BOOL(fptr->type == ZEND_INTERNAL_FUNCTION && fptr->internal_function.handler == zif_display_disabled_function); +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::getFileName() + Returns the filename of the file this function was declared in */ +ZEND_METHOD(reflection_function, getFileName) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (fptr->type == ZEND_USER_FUNCTION) { + RETURN_STRING(fptr->op_array.filename, 1); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public int ReflectionFunction::getStartLine() + Returns the line this function's declaration starts at */ +ZEND_METHOD(reflection_function, getStartLine) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (fptr->type == ZEND_USER_FUNCTION) { + RETURN_LONG(fptr->op_array.line_start); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public int ReflectionFunction::getEndLine() + Returns the line this function's declaration ends at */ +ZEND_METHOD(reflection_function, getEndLine) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (fptr->type == ZEND_USER_FUNCTION) { + RETURN_LONG(fptr->op_array.line_end); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::getDocComment() + Returns the doc comment for this function */ +ZEND_METHOD(reflection_function, getDocComment) +{ + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + if (fptr->type == ZEND_USER_FUNCTION && fptr->op_array.doc_comment) { + RETURN_STRINGL(fptr->op_array.doc_comment, fptr->op_array.doc_comment_len, 1); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public array ReflectionFunction::getStaticVariables() + Returns an associative array containing this function's static variables and their values */ +ZEND_METHOD(reflection_function, getStaticVariables) +{ + zval *tmp_copy; + reflection_object *intern; + zend_function *fptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(fptr); + + /* Return an empty array in case no static variables exist */ + array_init(return_value); + if (fptr->type == ZEND_USER_FUNCTION && fptr->op_array.static_variables != NULL) { + zend_hash_apply_with_argument(fptr->op_array.static_variables, (apply_func_arg_t) zval_update_constant_inline_change, fptr->common.scope TSRMLS_CC); + zend_hash_copy(Z_ARRVAL_P(return_value), fptr->op_array.static_variables, (copy_ctor_func_t) zval_add_ref, (void *) &tmp_copy, sizeof(zval *)); + } +} +/* }}} */ + +/* {{{ proto public mixed ReflectionFunction::invoke([mixed* args]) + Invokes the function */ +ZEND_METHOD(reflection_function, invoke) +{ + zval *retval_ptr; + zval ***params = NULL; + int result, num_args = 0; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + reflection_object *intern; + zend_function *fptr; + + METHOD_NOTSTATIC(reflection_function_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "*", ¶ms, &num_args) == FAILURE) { + return; + } + + fci.size = sizeof(fci); + fci.function_table = NULL; + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = NULL; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = num_args; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = fptr; + fcc.calling_scope = EG(scope); + fcc.called_scope = NULL; + fcc.object_ptr = NULL; + + result = zend_call_function(&fci, &fcc TSRMLS_CC); + + if (num_args) { + efree(params); + } + + if (result == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Invocation of function %s() failed", fptr->common.function_name); + return; + } + + if (retval_ptr) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } +} +/* }}} */ + +static int _zval_array_to_c_array(zval **arg, zval ****params TSRMLS_DC) /* {{{ */ +{ + *(*params)++ = arg; + return ZEND_HASH_APPLY_KEEP; +} /* }}} */ + +/* {{{ proto public mixed ReflectionFunction::invokeArgs(array args) + Invokes the function and pass its arguments as array. */ +ZEND_METHOD(reflection_function, invokeArgs) +{ + zval *retval_ptr; + zval ***params; + int result; + int argc; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + reflection_object *intern; + zend_function *fptr; + zval *param_array; + + METHOD_NOTSTATIC(reflection_function_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "a", ¶m_array) == FAILURE) { + return; + } + + argc = zend_hash_num_elements(Z_ARRVAL_P(param_array)); + + params = safe_emalloc(sizeof(zval **), argc, 0); + zend_hash_apply_with_argument(Z_ARRVAL_P(param_array), (apply_func_arg_t)_zval_array_to_c_array, ¶ms TSRMLS_CC); + params -= argc; + + fci.size = sizeof(fci); + fci.function_table = NULL; + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = NULL; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = argc; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = fptr; + fcc.calling_scope = EG(scope); + fcc.called_scope = NULL; + fcc.object_ptr = NULL; + + result = zend_call_function(&fci, &fcc TSRMLS_CC); + + efree(params); + + if (result == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Invocation of function %s() failed", fptr->common.function_name); + return; + } + + if (retval_ptr) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::returnsReference() + Gets whether this function returns a reference */ +ZEND_METHOD(reflection_function, returnsReference) +{ + reflection_object *intern; + zend_function *fptr; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + RETURN_BOOL((fptr->op_array.fn_flags & ZEND_ACC_RETURN_REFERENCE) != 0); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::getNumberOfParameters() + Gets the number of required parameters */ +ZEND_METHOD(reflection_function, getNumberOfParameters) +{ + reflection_object *intern; + zend_function *fptr; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + RETURN_LONG(fptr->common.num_args); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::getNumberOfRequiredParameters() + Gets the number of required parameters */ +ZEND_METHOD(reflection_function, getNumberOfRequiredParameters) +{ + reflection_object *intern; + zend_function *fptr; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + RETURN_LONG(fptr->common.required_num_args); +} +/* }}} */ + +/* {{{ proto public ReflectionParameter[] ReflectionFunction::getParameters() + Returns an array of parameter objects for this function */ +ZEND_METHOD(reflection_function, getParameters) +{ + reflection_object *intern; + zend_function *fptr; + zend_uint i; + struct _zend_arg_info *arg_info; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + arg_info= fptr->common.arg_info; + + array_init(return_value); + for (i = 0; i < fptr->common.num_args; i++) { + zval *parameter; + + ALLOC_ZVAL(parameter); + reflection_parameter_factory(_copy_function(fptr TSRMLS_CC), intern->obj, arg_info, i, fptr->common.required_num_args, parameter TSRMLS_CC); + add_next_index_zval(return_value, parameter); + + arg_info++; + } +} +/* }}} */ + +/* {{{ proto public ReflectionExtension|NULL ReflectionFunction::getExtension() + Returns NULL or the extension the function belongs to */ +ZEND_METHOD(reflection_function, getExtension) +{ + reflection_object *intern; + zend_function *fptr; + zend_internal_function *internal; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + if (fptr->type != ZEND_INTERNAL_FUNCTION) { + RETURN_NULL(); + } + + internal = (zend_internal_function *)fptr; + if (internal->module) { + reflection_extension_factory(return_value, internal->module->name TSRMLS_CC); + } else { + RETURN_NULL(); + } +} +/* }}} */ + +/* {{{ proto public string|false ReflectionFunction::getExtensionName() + Returns false or the name of the extension the function belongs to */ +ZEND_METHOD(reflection_function, getExtensionName) +{ + reflection_object *intern; + zend_function *fptr; + zend_internal_function *internal; + + METHOD_NOTSTATIC(reflection_function_abstract_ptr); + GET_REFLECTION_OBJECT_PTR(fptr); + + if (fptr->type != ZEND_INTERNAL_FUNCTION) { + RETURN_FALSE; + } + + internal = (zend_internal_function *)fptr; + if (internal->module) { + RETURN_STRING(internal->module->name, 1); + } else { + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionParameter::export(mixed function, mixed parameter [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_parameter, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_parameter_ptr, 2); +} +/* }}} */ + +/* {{{ proto public void ReflectionParameter::__construct(mixed function, mixed parameter) + Constructor. Throws an Exception in case the given method does not exist */ +ZEND_METHOD(reflection_parameter, __construct) +{ + parameter_reference *ref; + zval *reference, **parameter; + zval *object; + zval *name; + reflection_object *intern; + zend_function *fptr; + struct _zend_arg_info *arg_info; + int position; + zend_class_entry *ce = NULL; + zend_bool is_closure = 0; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zZ", &reference, ¶meter) == FAILURE) { + return; + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + /* First, find the function */ + switch (Z_TYPE_P(reference)) { + case IS_STRING: { + unsigned int lcname_len; + char *lcname; + + lcname_len = Z_STRLEN_P(reference); + lcname = zend_str_tolower_dup(Z_STRVAL_P(reference), lcname_len); + if (zend_hash_find(EG(function_table), lcname, lcname_len + 1, (void**) &fptr) == FAILURE) { + efree(lcname); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Function %s() does not exist", Z_STRVAL_P(reference)); + return; + } + efree(lcname); + } + ce = fptr->common.scope; + break; + + case IS_ARRAY: { + zval **classref; + zval **method; + zend_class_entry **pce; + unsigned int lcname_len; + char *lcname; + + if ((zend_hash_index_find(Z_ARRVAL_P(reference), 0, (void **) &classref) == FAILURE) + || (zend_hash_index_find(Z_ARRVAL_P(reference), 1, (void **) &method) == FAILURE)) + { + _DO_THROW("Expected array($object, $method) or array($classname, $method)"); + /* returns out of this function */ + } + + if (Z_TYPE_PP(classref) == IS_OBJECT) { + ce = Z_OBJCE_PP(classref); + } else { + convert_to_string_ex(classref); + if (zend_lookup_class(Z_STRVAL_PP(classref), Z_STRLEN_PP(classref), &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not exist", Z_STRVAL_PP(classref)); + return; + } + ce = *pce; + } + + convert_to_string_ex(method); + lcname_len = Z_STRLEN_PP(method); + lcname = zend_str_tolower_dup(Z_STRVAL_PP(method), lcname_len); + if (ce == zend_ce_closure && Z_TYPE_PP(classref) == IS_OBJECT + && (lcname_len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(lcname, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && (fptr = zend_get_closure_invoke_method(*classref TSRMLS_CC)) != NULL) + { + /* nothing to do. don't set is_closure since is the invoke handler, +- not the closure itself */ + } else if (zend_hash_find(&ce->function_table, lcname, lcname_len + 1, (void **) &fptr) == FAILURE) { + efree(lcname); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Method %s::%s() does not exist", ce->name, Z_STRVAL_PP(method)); + return; + } + efree(lcname); + } + break; + + case IS_OBJECT: { + ce = Z_OBJCE_P(reference); + + if (instanceof_function(ce, zend_ce_closure TSRMLS_CC)) { + fptr = (zend_function *)zend_get_closure_method_def(reference TSRMLS_CC); + Z_ADDREF_P(reference); + is_closure = 1; + } else if (zend_hash_find(&ce->function_table, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME), (void **)&fptr) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Method %s::%s() does not exist", ce->name, ZEND_INVOKE_FUNC_NAME); + return; + } + } + break; + + default: + _DO_THROW("The parameter class is expected to be either a string, an array(class, method) or a callable object"); + /* returns out of this function */ + } + + /* Now, search for the parameter */ + arg_info = fptr->common.arg_info; + if (Z_TYPE_PP(parameter) == IS_LONG) { + position= Z_LVAL_PP(parameter); + if (position < 0 || (zend_uint)position >= fptr->common.num_args) { + if (fptr->common.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) { + if (fptr->type != ZEND_OVERLOADED_FUNCTION) { + efree((char*)fptr->common.function_name); + } + efree(fptr); + } + if (is_closure) { + zval_ptr_dtor(&reference); + } + _DO_THROW("The parameter specified by its offset could not be found"); + /* returns out of this function */ + } + } else { + zend_uint i; + + position= -1; + convert_to_string_ex(parameter); + for (i = 0; i < fptr->common.num_args; i++) { + if (arg_info[i].name && strcmp(arg_info[i].name, Z_STRVAL_PP(parameter)) == 0) { + position= i; + break; + } + } + if (position == -1) { + if (fptr->common.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) { + if (fptr->type != ZEND_OVERLOADED_FUNCTION) { + efree((char*)fptr->common.function_name); + } + efree(fptr); + } + if (is_closure) { + zval_ptr_dtor(&reference); + } + _DO_THROW("The parameter specified by its name could not be found"); + /* returns out of this function */ + } + } + + MAKE_STD_ZVAL(name); + if (arg_info[position].name) { + ZVAL_STRINGL(name, arg_info[position].name, arg_info[position].name_len, 1); + } else { + ZVAL_NULL(name); + } + reflection_update_property(object, "name", name); + + ref = (parameter_reference*) emalloc(sizeof(parameter_reference)); + ref->arg_info = &arg_info[position]; + ref->offset = (zend_uint)position; + ref->required = fptr->common.required_num_args; + ref->fptr = fptr; + /* TODO: copy fptr */ + intern->ptr = ref; + intern->ref_type = REF_TYPE_PARAMETER; + intern->ce = ce; + if (reference && is_closure) { + intern->obj = reference; + } +} +/* }}} */ + +/* {{{ proto public string ReflectionParameter::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_parameter, __toString) +{ + reflection_object *intern; + parameter_reference *param; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + string_init(&str); + _parameter_string(&str, param->fptr, param->arg_info, param->offset, param->required, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionParameter::getName() + Returns this parameters's name */ +ZEND_METHOD(reflection_parameter, getName) +{ + if (zend_parse_parameters_none() == FAILURE) { + return; + } + _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public ReflectionFunction ReflectionParameter::getDeclaringFunction() + Returns the ReflectionFunction for the function of this parameter */ +ZEND_METHOD(reflection_parameter, getDeclaringFunction) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + if (!param->fptr->common.scope) { + reflection_function_factory(_copy_function(param->fptr TSRMLS_CC), intern->obj, return_value TSRMLS_CC); + } else { + reflection_method_factory(param->fptr->common.scope, _copy_function(param->fptr TSRMLS_CC), intern->obj, return_value TSRMLS_CC); + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass|NULL ReflectionParameter::getDeclaringClass() + Returns in which class this parameter is defined (not the typehint of the parameter) */ +ZEND_METHOD(reflection_parameter, getDeclaringClass) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + if (param->fptr->common.scope) { + zend_reflection_class_factory(param->fptr->common.scope, return_value TSRMLS_CC); + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass|NULL ReflectionParameter::getClass() + Returns this parameters's class hint or NULL if there is none */ +ZEND_METHOD(reflection_parameter, getClass) +{ + reflection_object *intern; + parameter_reference *param; + zend_class_entry **pce, *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + if (param->arg_info->class_name) { + /* Class name is stored as a string, we might also get "self" or "parent" + * - For "self", simply use the function scope. If scope is NULL then + * the function is global and thus self does not make any sense + * + * - For "parent", use the function scope's parent. If scope is NULL then + * the function is global and thus parent does not make any sense. + * If the parent is NULL then the class does not extend anything and + * thus parent does not make any sense, either. + * + * TODO: Think about moving these checks to the compiler or some sort of + * lint-mode. + */ + if (0 == zend_binary_strcasecmp(param->arg_info->class_name, param->arg_info->class_name_len, "self", sizeof("self")- 1)) { + ce = param->fptr->common.scope; + if (!ce) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Parameter uses 'self' as type hint but function is not a class member!"); + return; + } + pce= &ce; + } else if (0 == zend_binary_strcasecmp(param->arg_info->class_name, param->arg_info->class_name_len, "parent", sizeof("parent")- 1)) { + ce = param->fptr->common.scope; + if (!ce) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Parameter uses 'parent' as type hint but function is not a class member!"); + return; + } + if (!ce->parent) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Parameter uses 'parent' as type hint although class does not have a parent!"); + return; + } + pce= &ce->parent; + } else if (zend_lookup_class(param->arg_info->class_name, param->arg_info->class_name_len, &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not exist", param->arg_info->class_name); + return; + } + zend_reflection_class_factory(*pce, return_value TSRMLS_CC); + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isArray() + Returns whether parameter MUST be an array */ +ZEND_METHOD(reflection_parameter, isArray) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_BOOL(param->arg_info->type_hint == IS_ARRAY); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isCallable() + Returns whether parameter MUST be callable */ +ZEND_METHOD(reflection_parameter, isCallable) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_BOOL(param->arg_info->type_hint == IS_CALLABLE); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::allowsNull() + Returns whether NULL is allowed as this parameters's value */ +ZEND_METHOD(reflection_parameter, allowsNull) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_BOOL(param->arg_info->allow_null); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isPassedByReference() + Returns whether this parameters is passed to by reference */ +ZEND_METHOD(reflection_parameter, isPassedByReference) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_BOOL(param->arg_info->pass_by_reference); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::canBePassedByValue() + Returns whether this parameter can be passed by value */ +ZEND_METHOD(reflection_parameter, canBePassedByValue) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + /* true if it's ZEND_SEND_BY_VAL or ZEND_SEND_PREFER_REF */ + RETVAL_BOOL(param->arg_info->pass_by_reference != ZEND_SEND_BY_REF); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::getPosition() + Returns whether this parameter is an optional parameter */ +ZEND_METHOD(reflection_parameter, getPosition) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_LONG(param->offset); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isOptional() + Returns whether this parameter is an optional parameter */ +ZEND_METHOD(reflection_parameter, isOptional) +{ + reflection_object *intern; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + RETVAL_BOOL(param->offset >= param->required); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isDefaultValueAvailable() + Returns whether the default value of this parameter is available */ +ZEND_METHOD(reflection_parameter, isDefaultValueAvailable) +{ + reflection_object *intern; + parameter_reference *param; + zend_op *precv; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(param); + + if (param->fptr->type != ZEND_USER_FUNCTION) + { + RETURN_FALSE; + } + + precv = _get_recv_op((zend_op_array*)param->fptr, param->offset); + if (!precv || precv->opcode != ZEND_RECV_INIT || precv->op2_type == IS_UNUSED) { + RETURN_FALSE; + } + RETURN_TRUE; +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::getDefaultValue() + Returns the default value of this parameter or throws an exception */ +ZEND_METHOD(reflection_parameter, getDefaultValue) +{ + parameter_reference *param; + zend_op *precv; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + param = _reflection_param_get_default_param(INTERNAL_FUNCTION_PARAM_PASSTHRU); + if (!param) { + return; + } + + precv = _reflection_param_get_default_precv(INTERNAL_FUNCTION_PARAM_PASSTHRU, param); + if (!precv) { + return; + } + + *return_value = *precv->op2.zv; + INIT_PZVAL(return_value); + if ((Z_TYPE_P(return_value) & IS_CONSTANT_TYPE_MASK) != IS_CONSTANT + && (Z_TYPE_P(return_value) & IS_CONSTANT_TYPE_MASK) != IS_CONSTANT_ARRAY) { + zval_copy_ctor(return_value); + } + zval_update_constant_ex(&return_value, (void*)0, param->fptr->common.scope TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionParameter::isDefaultValueConstant() + Returns whether the default value of this parameter is constant */ +ZEND_METHOD(reflection_parameter, isDefaultValueConstant) +{ + zend_op *precv; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + param = _reflection_param_get_default_param(INTERNAL_FUNCTION_PARAM_PASSTHRU); + if (!param) { + RETURN_FALSE; + } + + precv = _reflection_param_get_default_precv(INTERNAL_FUNCTION_PARAM_PASSTHRU, param); + if (precv && (Z_TYPE_P(precv->op2.zv) & IS_CONSTANT_TYPE_MASK) == IS_CONSTANT) { + RETURN_TRUE; + } + + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public mixed ReflectionParameter::getDefaultValueConstantName() + Returns the default value's constant name if default value is constant or null */ +ZEND_METHOD(reflection_parameter, getDefaultValueConstantName) +{ + zend_op *precv; + parameter_reference *param; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + param = _reflection_param_get_default_param(INTERNAL_FUNCTION_PARAM_PASSTHRU); + if (!param) { + return; + } + + precv = _reflection_param_get_default_precv(INTERNAL_FUNCTION_PARAM_PASSTHRU, param); + if (precv && (Z_TYPE_P(precv->op2.zv) & IS_CONSTANT_TYPE_MASK) == IS_CONSTANT) { + RETURN_STRINGL(Z_STRVAL_P(precv->op2.zv), Z_STRLEN_P(precv->op2.zv), 1); + } +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionMethod::export(mixed class, string name [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_method, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_method_ptr, 2); +} +/* }}} */ + +/* {{{ proto public void ReflectionMethod::__construct(mixed class_or_method [, string name]) + Constructor. Throws an Exception in case the given method does not exist */ +ZEND_METHOD(reflection_method, __construct) +{ + zval *name, *classname; + zval *object, *orig_obj; + reflection_object *intern; + char *lcname; + zend_class_entry **pce; + zend_class_entry *ce; + zend_function *mptr; + char *name_str, *tmp; + int name_len, tmp_len; + zval ztmp; + + if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "zs", &classname, &name_str, &name_len) == FAILURE) { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len) == FAILURE) { + return; + } + if ((tmp = strstr(name_str, "::")) == NULL) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Invalid method name %s", name_str); + return; + } + classname = &ztmp; + tmp_len = tmp - name_str; + ZVAL_STRINGL(classname, name_str, tmp_len, 1); + name_len = name_len - (tmp_len + 2); + name_str = tmp + 2; + orig_obj = NULL; + } else if (Z_TYPE_P(classname) == IS_OBJECT) { + orig_obj = classname; + } else { + orig_obj = NULL; + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + /* Find the class entry */ + switch (Z_TYPE_P(classname)) { + case IS_STRING: + if (zend_lookup_class(Z_STRVAL_P(classname), Z_STRLEN_P(classname), &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not exist", Z_STRVAL_P(classname)); + if (classname == &ztmp) { + zval_dtor(&ztmp); + } + return; + } + ce = *pce; + break; + + case IS_OBJECT: + ce = Z_OBJCE_P(classname); + break; + + default: + if (classname == &ztmp) { + zval_dtor(&ztmp); + } + _DO_THROW("The parameter class is expected to be either a string or an object"); + /* returns out of this function */ + } + + if (classname == &ztmp) { + zval_dtor(&ztmp); + } + + lcname = zend_str_tolower_dup(name_str, name_len); + + if (ce == zend_ce_closure && orig_obj && (name_len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(lcname, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && (mptr = zend_get_closure_invoke_method(orig_obj TSRMLS_CC)) != NULL) + { + /* do nothing, mptr already set */ + } else if (zend_hash_find(&ce->function_table, lcname, name_len + 1, (void **) &mptr) == FAILURE) { + efree(lcname); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Method %s::%s() does not exist", ce->name, name_str); + return; + } + efree(lcname); + + MAKE_STD_ZVAL(classname); + ZVAL_STRINGL(classname, mptr->common.scope->name, mptr->common.scope->name_length, 1); + + reflection_update_property(object, "class", classname); + + MAKE_STD_ZVAL(name); + ZVAL_STRING(name, mptr->common.function_name, 1); + reflection_update_property(object, "name", name); + intern->ptr = mptr; + intern->ref_type = REF_TYPE_FUNCTION; + intern->ce = ce; +} +/* }}} */ + +/* {{{ proto public string ReflectionMethod::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_method, __toString) +{ + reflection_object *intern; + zend_function *mptr; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(mptr); + string_init(&str); + _function_string(&str, mptr, intern->ce, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public mixed ReflectionMethod::getClosure([mixed object]) + Invokes the function */ +ZEND_METHOD(reflection_method, getClosure) +{ + reflection_object *intern; + zval *obj; + zend_function *mptr; + + METHOD_NOTSTATIC(reflection_method_ptr); + GET_REFLECTION_OBJECT_PTR(mptr); + + if (mptr->common.fn_flags & ZEND_ACC_STATIC) { + zend_create_closure(return_value, mptr, mptr->common.scope, NULL TSRMLS_CC); + } else { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o", &obj) == FAILURE) { + return; + } + + if (!instanceof_function(Z_OBJCE_P(obj), mptr->common.scope TSRMLS_CC)) { + _DO_THROW("Given object is not an instance of the class this method was declared in"); + /* Returns from this function */ + } + + /* This is an original closure object and __invoke is to be called. */ + if (Z_OBJCE_P(obj) == zend_ce_closure && mptr->type == ZEND_INTERNAL_FUNCTION && + (mptr->internal_function.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) != 0) + { + RETURN_ZVAL(obj, 1, 0); + } else { + zend_create_closure(return_value, mptr, mptr->common.scope, obj TSRMLS_CC); + } + } +} +/* }}} */ + +/* {{{ proto public mixed ReflectionMethod::invoke(mixed object, mixed* args) + Invokes the method. */ +ZEND_METHOD(reflection_method, invoke) +{ + zval *retval_ptr; + zval ***params = NULL; + zval *object_ptr; + reflection_object *intern; + zend_function *mptr; + int result, num_args = 0; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + zend_class_entry *obj_ce; + + METHOD_NOTSTATIC(reflection_method_ptr); + + GET_REFLECTION_OBJECT_PTR(mptr); + + if ((!(mptr->common.fn_flags & ZEND_ACC_PUBLIC) + || (mptr->common.fn_flags & ZEND_ACC_ABSTRACT)) + && intern->ignore_visibility == 0) + { + if (mptr->common.fn_flags & ZEND_ACC_ABSTRACT) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Trying to invoke abstract method %s::%s()", + mptr->common.scope->name, mptr->common.function_name); + } else { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Trying to invoke %s method %s::%s() from scope %s", + mptr->common.fn_flags & ZEND_ACC_PROTECTED ? "protected" : "private", + mptr->common.scope->name, mptr->common.function_name, + Z_OBJCE_P(getThis())->name); + } + return; + } + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "+", ¶ms, &num_args) == FAILURE) { + return; + } + + /* In case this is a static method, we should'nt pass an object_ptr + * (which is used as calling context aka $this). We can thus ignore the + * first parameter. + * + * Else, we verify that the given object is an instance of the class. + */ + if (mptr->common.fn_flags & ZEND_ACC_STATIC) { + object_ptr = NULL; + obj_ce = mptr->common.scope; + } else { + if (Z_TYPE_PP(params[0]) != IS_OBJECT) { + efree(params); + _DO_THROW("Non-object passed to Invoke()"); + /* Returns from this function */ + } + + obj_ce = Z_OBJCE_PP(params[0]); + + if (!instanceof_function(obj_ce, mptr->common.scope TSRMLS_CC)) { + if (params) { + efree(params); + } + _DO_THROW("Given object is not an instance of the class this method was declared in"); + /* Returns from this function */ + } + + object_ptr = *params[0]; + } + + fci.size = sizeof(fci); + fci.function_table = NULL; + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = object_ptr; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = num_args - 1; + fci.params = params + 1; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = mptr; + fcc.calling_scope = obj_ce; + fcc.called_scope = intern->ce; + fcc.object_ptr = object_ptr; + + result = zend_call_function(&fci, &fcc TSRMLS_CC); + + if (params) { + efree(params); + } + + if (result == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Invocation of method %s::%s() failed", mptr->common.scope->name, mptr->common.function_name); + return; + } + + if (retval_ptr) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } +} +/* }}} */ + +/* {{{ proto public mixed ReflectionMethod::invokeArgs(mixed object, array args) + Invokes the function and pass its arguments as array. */ +ZEND_METHOD(reflection_method, invokeArgs) +{ + zval *retval_ptr; + zval ***params; + zval *object; + reflection_object *intern; + zend_function *mptr; + int argc; + int result; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + zend_class_entry *obj_ce; + zval *param_array; + + METHOD_NOTSTATIC(reflection_method_ptr); + + GET_REFLECTION_OBJECT_PTR(mptr); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o!a", &object, ¶m_array) == FAILURE) { + return; + } + + if ((!(mptr->common.fn_flags & ZEND_ACC_PUBLIC) + || (mptr->common.fn_flags & ZEND_ACC_ABSTRACT)) + && intern->ignore_visibility == 0) + { + if (mptr->common.fn_flags & ZEND_ACC_ABSTRACT) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Trying to invoke abstract method %s::%s()", + mptr->common.scope->name, mptr->common.function_name); + } else { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Trying to invoke %s method %s::%s() from scope %s", + mptr->common.fn_flags & ZEND_ACC_PROTECTED ? "protected" : "private", + mptr->common.scope->name, mptr->common.function_name, + Z_OBJCE_P(getThis())->name); + } + return; + } + + argc = zend_hash_num_elements(Z_ARRVAL_P(param_array)); + + params = safe_emalloc(sizeof(zval **), argc, 0); + zend_hash_apply_with_argument(Z_ARRVAL_P(param_array), (apply_func_arg_t)_zval_array_to_c_array, ¶ms TSRMLS_CC); + params -= argc; + + /* In case this is a static method, we should'nt pass an object_ptr + * (which is used as calling context aka $this). We can thus ignore the + * first parameter. + * + * Else, we verify that the given object is an instance of the class. + */ + if (mptr->common.fn_flags & ZEND_ACC_STATIC) { + object = NULL; + obj_ce = mptr->common.scope; + } else { + if (!object) { + efree(params); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Trying to invoke non static method %s::%s() without an object", + mptr->common.scope->name, mptr->common.function_name); + return; + } + + obj_ce = Z_OBJCE_P(object); + + if (!instanceof_function(obj_ce, mptr->common.scope TSRMLS_CC)) { + efree(params); + _DO_THROW("Given object is not an instance of the class this method was declared in"); + /* Returns from this function */ + } + } + + fci.size = sizeof(fci); + fci.function_table = NULL; + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = object; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = argc; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = mptr; + fcc.calling_scope = obj_ce; + fcc.called_scope = intern->ce; + fcc.object_ptr = object; + + /* + * Copy the zend_function when calling via handler (e.g. Closure::__invoke()) + */ + if (mptr->type == ZEND_INTERNAL_FUNCTION && + (mptr->internal_function.fn_flags & ZEND_ACC_CALL_VIA_HANDLER) != 0) { + fcc.function_handler = _copy_function(mptr TSRMLS_CC); + } + + result = zend_call_function(&fci, &fcc TSRMLS_CC); + + efree(params); + + if (result == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Invocation of method %s::%s() failed", mptr->common.scope->name, mptr->common.function_name); + return; + } + + if (retval_ptr) { + COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr); + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isFinal() + Returns whether this method is final */ +ZEND_METHOD(reflection_method, isFinal) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_FINAL); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isAbstract() + Returns whether this method is abstract */ +ZEND_METHOD(reflection_method, isAbstract) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_ABSTRACT); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isPublic() + Returns whether this method is public */ +ZEND_METHOD(reflection_method, isPublic) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PUBLIC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isPrivate() + Returns whether this method is private */ +ZEND_METHOD(reflection_method, isPrivate) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PRIVATE); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isProtected() + Returns whether this method is protected */ +ZEND_METHOD(reflection_method, isProtected) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PROTECTED); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isStatic() + Returns whether this method is static */ +ZEND_METHOD(reflection_method, isStatic) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_STATIC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::isDeprecated() + Returns whether this function is deprecated */ +ZEND_METHOD(reflection_function, isDeprecated) +{ + _function_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_DEPRECATED); +} +/* }}} */ + +/* {{{ proto public bool ReflectionFunction::inNamespace() + Returns whether this function is defined in namespace */ +ZEND_METHOD(reflection_function, inNamespace) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_TRUE; + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::getNamespaceName() + Returns the name of namespace where this function is defined */ +ZEND_METHOD(reflection_function, getNamespaceName) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_STRINGL(Z_STRVAL_PP(name), backslash - Z_STRVAL_PP(name), 1); + } + RETURN_EMPTY_STRING(); +} +/* }}} */ + +/* {{{ proto public string ReflectionFunction::getShortName() + Returns the short name of the function (without namespace part) */ +ZEND_METHOD(reflection_function, getShortName) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_STRINGL(backslash + 1, Z_STRLEN_PP(name) - (backslash - Z_STRVAL_PP(name) + 1), 1); + } + RETURN_ZVAL(*name, 1, 0); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isConstructor() + Returns whether this method is the constructor */ +ZEND_METHOD(reflection_method, isConstructor) +{ + reflection_object *intern; + zend_function *mptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(mptr); + /* we need to check if the ctor is the ctor of the class level we we + * looking at since we might be looking at an inherited old style ctor + * defined in base class. */ + RETURN_BOOL(mptr->common.fn_flags & ZEND_ACC_CTOR && intern->ce->constructor && intern->ce->constructor->common.scope == mptr->common.scope); +} +/* }}} */ + +/* {{{ proto public bool ReflectionMethod::isDestructor() + Returns whether this method is static */ +ZEND_METHOD(reflection_method, isDestructor) +{ + reflection_object *intern; + zend_function *mptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(mptr); + RETURN_BOOL(mptr->common.fn_flags & ZEND_ACC_DTOR); +} +/* }}} */ + +/* {{{ proto public int ReflectionMethod::getModifiers() + Returns a bitfield of the access modifiers for this method */ +ZEND_METHOD(reflection_method, getModifiers) +{ + reflection_object *intern; + zend_function *mptr; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(mptr); + + RETURN_LONG(mptr->common.fn_flags); +} +/* }}} */ + +/* {{{ proto public ReflectionClass ReflectionMethod::getDeclaringClass() + Get the declaring class */ +ZEND_METHOD(reflection_method, getDeclaringClass) +{ + reflection_object *intern; + zend_function *mptr; + + METHOD_NOTSTATIC(reflection_method_ptr); + GET_REFLECTION_OBJECT_PTR(mptr); + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + zend_reflection_class_factory(mptr->common.scope, return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public ReflectionClass ReflectionMethod::getPrototype() + Get the prototype */ +ZEND_METHOD(reflection_method, getPrototype) +{ + reflection_object *intern; + zend_function *mptr; + + METHOD_NOTSTATIC(reflection_method_ptr); + GET_REFLECTION_OBJECT_PTR(mptr); + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + if (!mptr->common.prototype) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Method %s::%s does not have a prototype", intern->ce->name, mptr->common.function_name); + return; + } + + reflection_method_factory(mptr->common.prototype->common.scope, mptr->common.prototype, NULL, return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public void ReflectionMethod::setAccessible(bool visible) + Sets whether non-public methods can be invoked */ +ZEND_METHOD(reflection_method, setAccessible) +{ + reflection_object *intern; + zend_bool visible; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "b", &visible) == FAILURE) { + return; + } + + intern = (reflection_object *) zend_object_store_get_object(getThis() TSRMLS_CC); + + if (intern == NULL) { + return; + } + + intern->ignore_visibility = visible; +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionClass::export(mixed argument [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_class, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_class_ptr, 1); +} +/* }}} */ + +/* {{{ reflection_class_object_ctor */ +static void reflection_class_object_ctor(INTERNAL_FUNCTION_PARAMETERS, int is_object) +{ + zval *argument; + zval *object; + zval *classname; + reflection_object *intern; + zend_class_entry **ce; + + if (is_object) { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o", &argument) == FAILURE) { + return; + } + } else { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z/", &argument) == FAILURE) { + return; + } + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + if (Z_TYPE_P(argument) == IS_OBJECT) { + MAKE_STD_ZVAL(classname); + ZVAL_STRINGL(classname, Z_OBJCE_P(argument)->name, Z_OBJCE_P(argument)->name_length, 1); + reflection_update_property(object, "name", classname); + intern->ptr = Z_OBJCE_P(argument); + if (is_object) { + intern->obj = argument; + zval_add_ref(&argument); + } + } else { + convert_to_string_ex(&argument); + if (zend_lookup_class(Z_STRVAL_P(argument), Z_STRLEN_P(argument), &ce TSRMLS_CC) == FAILURE) { + if (!EG(exception)) { + zend_throw_exception_ex(reflection_exception_ptr, -1 TSRMLS_CC, "Class %s does not exist", Z_STRVAL_P(argument)); + } + return; + } + + MAKE_STD_ZVAL(classname); + ZVAL_STRINGL(classname, (*ce)->name, (*ce)->name_length, 1); + reflection_update_property(object, "name", classname); + + intern->ptr = *ce; + } + intern->ref_type = REF_TYPE_OTHER; +} +/* }}} */ + +/* {{{ proto public void ReflectionClass::__construct(mixed argument) throws ReflectionException + Constructor. Takes a string or an instance as an argument */ +ZEND_METHOD(reflection_class, __construct) +{ + reflection_class_object_ctor(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); +} +/* }}} */ + +/* {{{ add_class_vars */ +static void add_class_vars(zend_class_entry *ce, int statics, zval *return_value TSRMLS_DC) +{ + HashPosition pos; + zend_property_info *prop_info; + zval *prop, *prop_copy; + char *key; + uint key_len; + ulong num_index; + + zend_hash_internal_pointer_reset_ex(&ce->properties_info, &pos); + while (zend_hash_get_current_data_ex(&ce->properties_info, (void **) &prop_info, &pos) == SUCCESS) { + zend_hash_get_current_key_ex(&ce->properties_info, &key, &key_len, &num_index, 0, &pos); + zend_hash_move_forward_ex(&ce->properties_info, &pos); + if (((prop_info->flags & ZEND_ACC_SHADOW) && + prop_info->ce != ce) || + ((prop_info->flags & ZEND_ACC_PROTECTED) && + !zend_check_protected(prop_info->ce, ce)) || + ((prop_info->flags & ZEND_ACC_PRIVATE) && + prop_info->ce != ce)) { + continue; + } + prop = NULL; + if (prop_info->offset >= 0) { + if (statics && (prop_info->flags & ZEND_ACC_STATIC) != 0) { + prop = ce->default_static_members_table[prop_info->offset]; + } else if (!statics && (prop_info->flags & ZEND_ACC_STATIC) == 0) { + prop = ce->default_properties_table[prop_info->offset]; + } + } + if (!prop) { + continue; + } + + /* copy: enforce read only access */ + ALLOC_ZVAL(prop_copy); + *prop_copy = *prop; + zval_copy_ctor(prop_copy); + INIT_PZVAL(prop_copy); + + /* this is necessary to make it able to work with default array + * properties, returned to user */ + if (Z_TYPE_P(prop_copy) == IS_CONSTANT_ARRAY || (Z_TYPE_P(prop_copy) & IS_CONSTANT_TYPE_MASK) == IS_CONSTANT) { + zval_update_constant(&prop_copy, (void *) 1 TSRMLS_CC); + } + + add_assoc_zval(return_value, key, prop_copy); + } +} +/* }}} */ + +/* {{{ proto public array ReflectionClass::getStaticProperties() + Returns an associative array containing all static property values of the class */ +ZEND_METHOD(reflection_class, getStaticProperties) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + + zend_update_class_constants(ce TSRMLS_CC); + + array_init(return_value); + add_class_vars(ce, 1, return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public mixed ReflectionClass::getStaticPropertyValue(string name [, mixed default]) + Returns the value of a static property */ +ZEND_METHOD(reflection_class, getStaticPropertyValue) +{ + reflection_object *intern; + zend_class_entry *ce; + char *name; + int name_len; + zval **prop, *def_value = NULL; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s|z", &name, &name_len, &def_value) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + + zend_update_class_constants(ce TSRMLS_CC); + prop = zend_std_get_static_property(ce, name, name_len, 1, NULL TSRMLS_CC); + if (!prop) { + if (def_value) { + RETURN_ZVAL(def_value, 1, 0); + } else { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not have a property named %s", ce->name, name); + } + return; + } else { + RETURN_ZVAL(*prop, 1, 0); + } +} +/* }}} */ + +/* {{{ proto public void ReflectionClass::setStaticPropertyValue($name, $value) + Sets the value of a static property */ +ZEND_METHOD(reflection_class, setStaticPropertyValue) +{ + reflection_object *intern; + zend_class_entry *ce; + char *name; + int name_len; + zval **variable_ptr, *value; + int refcount; + zend_uchar is_ref; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sz", &name, &name_len, &value) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + + zend_update_class_constants(ce TSRMLS_CC); + variable_ptr = zend_std_get_static_property(ce, name, name_len, 1, NULL TSRMLS_CC); + if (!variable_ptr) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not have a property named %s", ce->name, name); + return; + } + refcount = Z_REFCOUNT_PP(variable_ptr); + is_ref = Z_ISREF_PP(variable_ptr); + zval_dtor(*variable_ptr); + **variable_ptr = *value; + zval_copy_ctor(*variable_ptr); + Z_SET_REFCOUNT_PP(variable_ptr, refcount); + Z_SET_ISREF_TO_PP(variable_ptr, is_ref); + +} +/* }}} */ + +/* {{{ proto public array ReflectionClass::getDefaultProperties() + Returns an associative array containing copies of all default property values of the class */ +ZEND_METHOD(reflection_class, getDefaultProperties) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + array_init(return_value); + zend_update_class_constants(ce TSRMLS_CC); + add_class_vars(ce, 1, return_value TSRMLS_CC); + add_class_vars(ce, 0, return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_class, __toString) +{ + reflection_object *intern; + zend_class_entry *ce; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + string_init(&str); + _class_string(&str, ce, intern->obj, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::getName() + Returns the class' name */ +ZEND_METHOD(reflection_class, getName) +{ + if (zend_parse_parameters_none() == FAILURE) { + return; + } + _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isInternal() + Returns whether this class is an internal class */ +ZEND_METHOD(reflection_class, isInternal) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + RETURN_BOOL(ce->type == ZEND_INTERNAL_CLASS); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isUserDefined() + Returns whether this class is user-defined */ +ZEND_METHOD(reflection_class, isUserDefined) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + RETURN_BOOL(ce->type == ZEND_USER_CLASS); +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::getFileName() + Returns the filename of the file this class was declared in */ +ZEND_METHOD(reflection_class, getFileName) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->type == ZEND_USER_CLASS) { + RETURN_STRING(ce->info.user.filename, 1); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public int ReflectionClass::getStartLine() + Returns the line this class' declaration starts at */ +ZEND_METHOD(reflection_class, getStartLine) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->type == ZEND_USER_FUNCTION) { + RETURN_LONG(ce->info.user.line_start); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public int ReflectionClass::getEndLine() + Returns the line this class' declaration ends at */ +ZEND_METHOD(reflection_class, getEndLine) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->type == ZEND_USER_CLASS) { + RETURN_LONG(ce->info.user.line_end); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::getDocComment() + Returns the doc comment for this class */ +ZEND_METHOD(reflection_class, getDocComment) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->type == ZEND_USER_CLASS && ce->info.user.doc_comment) { + RETURN_STRINGL(ce->info.user.doc_comment, ce->info.user.doc_comment_len, 1); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public ReflectionMethod ReflectionClass::getConstructor() + Returns the class' constructor if there is one, NULL otherwise */ +ZEND_METHOD(reflection_class, getConstructor) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + if (ce->constructor) { + reflection_method_factory(ce, ce->constructor, NULL, return_value TSRMLS_CC); + } else { + RETURN_NULL(); + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::hasMethod(string name) + Returns whether a method exists or not */ +ZEND_METHOD(reflection_class, hasMethod) +{ + reflection_object *intern; + zend_class_entry *ce; + char *name, *lc_name; + int name_len; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + lc_name = zend_str_tolower_dup(name, name_len); + if ((ce == zend_ce_closure && (name_len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(lc_name, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0) + || zend_hash_exists(&ce->function_table, lc_name, name_len + 1)) { + efree(lc_name); + RETURN_TRUE; + } else { + efree(lc_name); + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public ReflectionMethod ReflectionClass::getMethod(string name) throws ReflectionException + Returns the class' method specified by its name */ +ZEND_METHOD(reflection_class, getMethod) +{ + reflection_object *intern; + zend_class_entry *ce; + zend_function *mptr; + zval obj_tmp; + char *name, *lc_name; + int name_len; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + lc_name = zend_str_tolower_dup(name, name_len); + if (ce == zend_ce_closure && intern->obj && (name_len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(lc_name, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && (mptr = zend_get_closure_invoke_method(intern->obj TSRMLS_CC)) != NULL) + { + /* don't assign closure_object since we only reflect the invoke handler + method and not the closure definition itself */ + reflection_method_factory(ce, mptr, NULL, return_value TSRMLS_CC); + efree(lc_name); + } else if (ce == zend_ce_closure && !intern->obj && (name_len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(lc_name, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && object_init_ex(&obj_tmp, ce) == SUCCESS && (mptr = zend_get_closure_invoke_method(&obj_tmp TSRMLS_CC)) != NULL) { + /* don't assign closure_object since we only reflect the invoke handler + method and not the closure definition itself */ + reflection_method_factory(ce, mptr, NULL, return_value TSRMLS_CC); + zval_dtor(&obj_tmp); + efree(lc_name); + } else if (zend_hash_find(&ce->function_table, lc_name, name_len + 1, (void**) &mptr) == SUCCESS) { + reflection_method_factory(ce, mptr, NULL, return_value TSRMLS_CC); + efree(lc_name); + } else { + efree(lc_name); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Method %s does not exist", name); + return; + } +} +/* }}} */ + +/* {{{ _addmethod */ +static void _addmethod(zend_function *mptr, zend_class_entry *ce, zval *retval, long filter, zval *obj TSRMLS_DC) +{ + zval *method; + uint len = strlen(mptr->common.function_name); + zend_function *closure; + + if (mptr->common.fn_flags & filter) { + ALLOC_ZVAL(method); + if (ce == zend_ce_closure && obj && (len == sizeof(ZEND_INVOKE_FUNC_NAME)-1) + && memcmp(mptr->common.function_name, ZEND_INVOKE_FUNC_NAME, sizeof(ZEND_INVOKE_FUNC_NAME)-1) == 0 + && (closure = zend_get_closure_invoke_method(obj TSRMLS_CC)) != NULL) + { + mptr = closure; + } + /* don't assign closure_object since we only reflect the invoke handler + method and not the closure definition itself, even if we have a + closure */ + reflection_method_factory(ce, mptr, NULL, method TSRMLS_CC); + add_next_index_zval(retval, method); + } +} +/* }}} */ + +/* {{{ _addmethod */ +static int _addmethod_va(zend_function *mptr TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) +{ + zend_class_entry *ce = *va_arg(args, zend_class_entry**); + zval *retval = va_arg(args, zval*); + long filter = va_arg(args, long); + zval *obj = va_arg(args, zval *); + + _addmethod(mptr, ce, retval, filter, obj TSRMLS_CC); + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +/* {{{ proto public ReflectionMethod[] ReflectionClass::getMethods([long $filter]) + Returns an array of this class' methods */ +ZEND_METHOD(reflection_class, getMethods) +{ + reflection_object *intern; + zend_class_entry *ce; + long filter = 0; + int argc = ZEND_NUM_ARGS(); + + METHOD_NOTSTATIC(reflection_class_ptr); + if (argc) { + if (zend_parse_parameters(argc TSRMLS_CC, "|l", &filter) == FAILURE) { + return; + } + } else { + /* No parameters given, default to "return all" */ + filter = ZEND_ACC_PPP_MASK | ZEND_ACC_ABSTRACT | ZEND_ACC_FINAL | ZEND_ACC_STATIC; + } + + GET_REFLECTION_OBJECT_PTR(ce); + + array_init(return_value); + zend_hash_apply_with_arguments(&ce->function_table TSRMLS_CC, (apply_func_args_t) _addmethod_va, 4, &ce, return_value, filter, intern->obj); + if (intern->obj && instanceof_function(ce, zend_ce_closure TSRMLS_CC)) { + zend_function *closure = zend_get_closure_invoke_method(intern->obj TSRMLS_CC); + if (closure) { + _addmethod(closure, ce, return_value, filter, intern->obj TSRMLS_CC); + _free_function(closure TSRMLS_CC); + } + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::hasProperty(string name) + Returns whether a property exists or not */ +ZEND_METHOD(reflection_class, hasProperty) +{ + reflection_object *intern; + zend_property_info *property_info; + zend_class_entry *ce; + char *name; + int name_len; + zval *property; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + if (zend_hash_find(&ce->properties_info, name, name_len+1, (void **) &property_info) == SUCCESS) { + if (property_info->flags & ZEND_ACC_SHADOW) { + RETURN_FALSE; + } + RETURN_TRUE; + } else { + if (intern->obj && Z_OBJ_HANDLER_P(intern->obj, has_property)) { + MAKE_STD_ZVAL(property); + ZVAL_STRINGL(property, name, name_len, 1); + if (Z_OBJ_HANDLER_P(intern->obj, has_property)(intern->obj, property, 2, 0 TSRMLS_CC)) { + zval_ptr_dtor(&property); + RETURN_TRUE; + } + zval_ptr_dtor(&property); + } + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public ReflectionProperty ReflectionClass::getProperty(string name) throws ReflectionException + Returns the class' property specified by its name */ +ZEND_METHOD(reflection_class, getProperty) +{ + reflection_object *intern; + zend_class_entry *ce, **pce; + zend_property_info *property_info; + char *name, *tmp, *classname; + int name_len, classname_len; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + if (zend_hash_find(&ce->properties_info, name, name_len + 1, (void**) &property_info) == SUCCESS) { + if ((property_info->flags & ZEND_ACC_SHADOW) == 0) { + reflection_property_factory(ce, property_info, return_value TSRMLS_CC); + return; + } + } else if (intern->obj) { + /* Check for dynamic properties */ + if (zend_hash_exists(Z_OBJ_HT_P(intern->obj)->get_properties(intern->obj TSRMLS_CC), name, name_len+1)) { + zend_property_info property_info_tmp; + property_info_tmp.flags = ZEND_ACC_IMPLICIT_PUBLIC; + property_info_tmp.name = estrndup(name, name_len); + property_info_tmp.name_length = name_len; + property_info_tmp.h = zend_get_hash_value(name, name_len+1); + property_info_tmp.doc_comment = NULL; + property_info_tmp.ce = ce; + + reflection_property_factory(ce, &property_info_tmp, return_value TSRMLS_CC); + intern = (reflection_object *) zend_object_store_get_object(return_value TSRMLS_CC); + intern->ref_type = REF_TYPE_DYNAMIC_PROPERTY; + return; + } + } + if ((tmp = strstr(name, "::")) != NULL) { + classname_len = tmp - name; + classname = zend_str_tolower_dup(name, classname_len); + classname[classname_len] = '\0'; + name_len = name_len - (classname_len + 2); + name = tmp + 2; + + if (zend_lookup_class(classname, classname_len, &pce TSRMLS_CC) == FAILURE) { + if (!EG(exception)) { + zend_throw_exception_ex(reflection_exception_ptr, -1 TSRMLS_CC, "Class %s does not exist", classname); + } + efree(classname); + return; + } + efree(classname); + + if (!instanceof_function(ce, *pce TSRMLS_CC)) { + zend_throw_exception_ex(reflection_exception_ptr, -1 TSRMLS_CC, "Fully qualified property name %s::%s does not specify a base class of %s", (*pce)->name, name, ce->name); + return; + } + ce = *pce; + + if (zend_hash_find(&ce->properties_info, name, name_len + 1, (void**) &property_info) == SUCCESS && (property_info->flags & ZEND_ACC_SHADOW) == 0) { + reflection_property_factory(ce, property_info, return_value TSRMLS_CC); + return; + } + } + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Property %s does not exist", name); +} +/* }}} */ + +/* {{{ _addproperty */ +static int _addproperty(zend_property_info *pptr TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) +{ + zval *property; + zend_class_entry *ce = *va_arg(args, zend_class_entry**); + zval *retval = va_arg(args, zval*); + long filter = va_arg(args, long); + + if (pptr->flags & ZEND_ACC_SHADOW) { + return 0; + } + + if (pptr->flags & filter) { + ALLOC_ZVAL(property); + reflection_property_factory(ce, pptr, property TSRMLS_CC); + add_next_index_zval(retval, property); + } + return 0; +} +/* }}} */ + +/* {{{ _adddynproperty */ +static int _adddynproperty(zval **pptr TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) +{ + zval *property; + zend_class_entry *ce = *va_arg(args, zend_class_entry**); + zval *retval = va_arg(args, zval*), member; + + /* under some circumstances, the properties hash table may contain numeric + * properties (e.g. when casting from array). This is a WONT FIX bug, at + * least for the moment. Ignore these */ + if (hash_key->nKeyLength == 0) { + return 0; + } + + if (hash_key->arKey[0] == '\0') { + return 0; /* non public cannot be dynamic */ + } + + ZVAL_STRINGL(&member, hash_key->arKey, hash_key->nKeyLength-1, 0); + if (zend_get_property_info(ce, &member, 1 TSRMLS_CC) == &EG(std_property_info)) { + MAKE_STD_ZVAL(property); + EG(std_property_info).flags = ZEND_ACC_IMPLICIT_PUBLIC; + reflection_property_factory(ce, &EG(std_property_info), property TSRMLS_CC); + add_next_index_zval(retval, property); + } + return 0; +} +/* }}} */ + +/* {{{ proto public ReflectionProperty[] ReflectionClass::getProperties([long $filter]) + Returns an array of this class' properties */ +ZEND_METHOD(reflection_class, getProperties) +{ + reflection_object *intern; + zend_class_entry *ce; + long filter = 0; + int argc = ZEND_NUM_ARGS(); + + METHOD_NOTSTATIC(reflection_class_ptr); + if (argc) { + if (zend_parse_parameters(argc TSRMLS_CC, "|l", &filter) == FAILURE) { + return; + } + } else { + /* No parameters given, default to "return all" */ + filter = ZEND_ACC_PPP_MASK | ZEND_ACC_STATIC; + } + + GET_REFLECTION_OBJECT_PTR(ce); + + array_init(return_value); + zend_hash_apply_with_arguments(&ce->properties_info TSRMLS_CC, (apply_func_args_t) _addproperty, 3, &ce, return_value, filter); + + if (intern->obj && (filter & ZEND_ACC_PUBLIC) != 0 && Z_OBJ_HT_P(intern->obj)->get_properties) { + HashTable *properties = Z_OBJ_HT_P(intern->obj)->get_properties(intern->obj TSRMLS_CC); + zend_hash_apply_with_arguments(properties TSRMLS_CC, (apply_func_args_t) _adddynproperty, 2, &ce, return_value); + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::hasConstant(string name) + Returns whether a constant exists or not */ +ZEND_METHOD(reflection_class, hasConstant) +{ + reflection_object *intern; + zend_class_entry *ce; + char *name; + int name_len; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + if (zend_hash_exists(&ce->constants_table, name, name_len + 1)) { + RETURN_TRUE; + } else { + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public array ReflectionClass::getConstants() + Returns an associative array containing this class' constants and their values */ +ZEND_METHOD(reflection_class, getConstants) +{ + zval *tmp_copy; + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + array_init(return_value); + zend_hash_apply_with_argument(&ce->constants_table, (apply_func_arg_t)zval_update_constant_inline_change, ce TSRMLS_CC); + zend_hash_copy(Z_ARRVAL_P(return_value), &ce->constants_table, (copy_ctor_func_t) zval_add_ref, (void *) &tmp_copy, sizeof(zval *)); +} +/* }}} */ + +/* {{{ proto public mixed ReflectionClass::getConstant(string name) + Returns the class' constant specified by its name */ +ZEND_METHOD(reflection_class, getConstant) +{ + reflection_object *intern; + zend_class_entry *ce; + zval **value; + char *name; + int name_len; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name, &name_len) == FAILURE) { + return; + } + + GET_REFLECTION_OBJECT_PTR(ce); + zend_hash_apply_with_argument(&ce->constants_table, (apply_func_arg_t)zval_update_constant_inline_change, ce TSRMLS_CC); + if (zend_hash_find(&ce->constants_table, name, name_len + 1, (void **) &value) == FAILURE) { + RETURN_FALSE; + } + MAKE_COPY_ZVAL(value, return_value); +} +/* }}} */ + +/* {{{ _class_check_flag */ +static void _class_check_flag(INTERNAL_FUNCTION_PARAMETERS, int mask) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + RETVAL_BOOL(ce->ce_flags & mask); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isInstantiable() + Returns whether this class is instantiable */ +ZEND_METHOD(reflection_class, isInstantiable) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->ce_flags & (ZEND_ACC_INTERFACE | ZEND_ACC_EXPLICIT_ABSTRACT_CLASS | ZEND_ACC_IMPLICIT_ABSTRACT_CLASS)) { + RETURN_FALSE; + } + + /* Basically, the class is instantiable. Though, if there is a constructor + * and it is not publicly accessible, it isn't! */ + if (!ce->constructor) { + RETURN_TRUE; + } + + RETURN_BOOL(ce->constructor->common.fn_flags & ZEND_ACC_PUBLIC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isCloneable() + Returns whether this class is cloneable */ +ZEND_METHOD(reflection_class, isCloneable) +{ + reflection_object *intern; + zend_class_entry *ce; + zval obj; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + if (ce->ce_flags & (ZEND_ACC_INTERFACE | ZEND_ACC_TRAIT | ZEND_ACC_EXPLICIT_ABSTRACT_CLASS | ZEND_ACC_IMPLICIT_ABSTRACT_CLASS)) { + RETURN_FALSE; + } + if (intern->obj) { + if (ce->clone) { + RETURN_BOOL(ce->clone->common.fn_flags & ZEND_ACC_PUBLIC); + } else { + RETURN_BOOL(Z_OBJ_HANDLER_P(intern->obj, clone_obj) != NULL); + } + } else { + if (ce->clone) { + RETURN_BOOL(ce->clone->common.fn_flags & ZEND_ACC_PUBLIC); + } else { + object_init_ex(&obj, ce); + RETVAL_BOOL(Z_OBJ_HANDLER(obj, clone_obj) != NULL); + zval_dtor(&obj); + } + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isInterface() + Returns whether this is an interface or a class */ +ZEND_METHOD(reflection_class, isInterface) +{ + _class_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_INTERFACE); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isTrait() + Returns whether this is a trait */ +ZEND_METHOD(reflection_class, isTrait) +{ + _class_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_TRAIT & ~ZEND_ACC_EXPLICIT_ABSTRACT_CLASS); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isFinal() + Returns whether this class is final */ +ZEND_METHOD(reflection_class, isFinal) +{ + _class_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_FINAL_CLASS); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isAbstract() + Returns whether this class is abstract */ +ZEND_METHOD(reflection_class, isAbstract) +{ + _class_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_IMPLICIT_ABSTRACT_CLASS|ZEND_ACC_EXPLICIT_ABSTRACT_CLASS); +} +/* }}} */ + +/* {{{ proto public int ReflectionClass::getModifiers() + Returns a bitfield of the access modifiers for this class */ +ZEND_METHOD(reflection_class, getModifiers) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + RETURN_LONG(ce->ce_flags); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isInstance(stdclass object) + Returns whether the given object is an instance of this class */ +ZEND_METHOD(reflection_class, isInstance) +{ + reflection_object *intern; + zend_class_entry *ce; + zval *object; + + METHOD_NOTSTATIC(reflection_class_ptr); + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o", &object) == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + RETURN_BOOL(HAS_CLASS_ENTRY(*object) && instanceof_function(Z_OBJCE_P(object), ce TSRMLS_CC)); +} +/* }}} */ + +/* {{{ proto public stdclass ReflectionClass::newInstance(mixed* args, ...) + Returns an instance of this class */ +ZEND_METHOD(reflection_class, newInstance) +{ + zval *retval_ptr = NULL; + reflection_object *intern; + zend_class_entry *ce; + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + /* Run the constructor if there is one */ + if (ce->constructor) { + zval ***params = NULL; + int num_args = 0; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + + if (!(ce->constructor->common.fn_flags & ZEND_ACC_PUBLIC)) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Access to non-public constructor of class %s", ce->name); + return; + } + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "*", ¶ms, &num_args) == FAILURE) { + if (params) { + efree(params); + } + RETURN_FALSE; + } + + object_init_ex(return_value, ce); + + fci.size = sizeof(fci); + fci.function_table = EG(function_table); + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = return_value; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = num_args; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = ce->constructor; + fcc.calling_scope = EG(scope); + fcc.called_scope = Z_OBJCE_P(return_value); + fcc.object_ptr = return_value; + + if (zend_call_function(&fci, &fcc TSRMLS_CC) == FAILURE) { + if (params) { + efree(params); + } + if (retval_ptr) { + zval_ptr_dtor(&retval_ptr); + } + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invocation of %s's constructor failed", ce->name); + RETURN_NULL(); + } + if (retval_ptr) { + zval_ptr_dtor(&retval_ptr); + } + if (params) { + efree(params); + } + } else if (!ZEND_NUM_ARGS()) { + object_init_ex(return_value, ce); + } else { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Class %s does not have a constructor, so you cannot pass any constructor arguments", ce->name); + } +} +/* }}} */ + +/* {{{ proto public stdclass ReflectionClass::newInstanceWithoutConstructor() + Returns an instance of this class without invoking its constructor */ +ZEND_METHOD(reflection_class, newInstanceWithoutConstructor) +{ + reflection_object *intern; + zend_class_entry *ce; + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if (ce->create_object != NULL) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Class %s is an internal class that cannot be instantiated without invoking its constructor", ce->name); + } + + object_init_ex(return_value, ce); +} +/* }}} */ + +/* {{{ proto public stdclass ReflectionClass::newInstanceArgs([array args]) + Returns an instance of this class */ +ZEND_METHOD(reflection_class, newInstanceArgs) +{ + zval *retval_ptr = NULL; + reflection_object *intern; + zend_class_entry *ce; + int argc = 0; + HashTable *args; + + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|h", &args) == FAILURE) { + return; + } + if (ZEND_NUM_ARGS() > 0) { + argc = args->nNumOfElements; + } + + /* Run the constructor if there is one */ + if (ce->constructor) { + zval ***params = NULL; + zend_fcall_info fci; + zend_fcall_info_cache fcc; + + if (!(ce->constructor->common.fn_flags & ZEND_ACC_PUBLIC)) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Access to non-public constructor of class %s", ce->name); + return; + } + + if (argc) { + params = safe_emalloc(sizeof(zval **), argc, 0); + zend_hash_apply_with_argument(args, (apply_func_arg_t)_zval_array_to_c_array, ¶ms TSRMLS_CC); + params -= argc; + } + + object_init_ex(return_value, ce); + + fci.size = sizeof(fci); + fci.function_table = EG(function_table); + fci.function_name = NULL; + fci.symbol_table = NULL; + fci.object_ptr = return_value; + fci.retval_ptr_ptr = &retval_ptr; + fci.param_count = argc; + fci.params = params; + fci.no_separation = 1; + + fcc.initialized = 1; + fcc.function_handler = ce->constructor; + fcc.calling_scope = EG(scope); + fcc.called_scope = Z_OBJCE_P(return_value); + fcc.object_ptr = return_value; + + if (zend_call_function(&fci, &fcc TSRMLS_CC) == FAILURE) { + if (params) { + efree(params); + } + if (retval_ptr) { + zval_ptr_dtor(&retval_ptr); + } + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Invocation of %s's constructor failed", ce->name); + RETURN_NULL(); + } + if (retval_ptr) { + zval_ptr_dtor(&retval_ptr); + } + if (params) { + efree(params); + } + } else if (!ZEND_NUM_ARGS() || !argc) { + object_init_ex(return_value, ce); + } else { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Class %s does not have a constructor, so you cannot pass any constructor arguments", ce->name); + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass[] ReflectionClass::getInterfaces() + Returns an array of interfaces this class implements */ +ZEND_METHOD(reflection_class, getInterfaces) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + /* Return an empty array if this class implements no interfaces */ + array_init(return_value); + + if (ce->num_interfaces) { + zend_uint i; + + for (i=0; i < ce->num_interfaces; i++) { + zval *interface; + ALLOC_ZVAL(interface); + zend_reflection_class_factory(ce->interfaces[i], interface TSRMLS_CC); + add_assoc_zval_ex(return_value, ce->interfaces[i]->name, ce->interfaces[i]->name_length + 1, interface); + } + } +} +/* }}} */ + +/* {{{ proto public String[] ReflectionClass::getInterfaceNames() + Returns an array of names of interfaces this class implements */ +ZEND_METHOD(reflection_class, getInterfaceNames) +{ + reflection_object *intern; + zend_class_entry *ce; + zend_uint i; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + /* Return an empty array if this class implements no interfaces */ + array_init(return_value); + + for (i=0; i < ce->num_interfaces; i++) { + add_next_index_stringl(return_value, ce->interfaces[i]->name, ce->interfaces[i]->name_length, 1); + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass[] ReflectionClass::getTraits() + Returns an array of traits used by this class */ +ZEND_METHOD(reflection_class, getTraits) +{ + reflection_object *intern; + zend_class_entry *ce; + zend_uint i; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + array_init(return_value); + + for (i=0; i < ce->num_traits; i++) { + zval *trait; + ALLOC_ZVAL(trait); + zend_reflection_class_factory(ce->traits[i], trait TSRMLS_CC); + add_assoc_zval_ex(return_value, ce->traits[i]->name, ce->traits[i]->name_length + 1, trait); + } +} +/* }}} */ + +/* {{{ proto public String[] ReflectionClass::getTraitNames() + Returns an array of names of traits used by this class */ +ZEND_METHOD(reflection_class, getTraitNames) +{ + reflection_object *intern; + zend_class_entry *ce; + zend_uint i; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + array_init(return_value); + + for (i=0; i < ce->num_traits; i++) { + add_next_index_stringl(return_value, ce->traits[i]->name, ce->traits[i]->name_length, 1); + } +} +/* }}} */ + +/* {{{ proto public arra ReflectionClass::getTraitaliases() + Returns an array of trait aliases */ +ZEND_METHOD(reflection_class, getTraitAliases) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + array_init(return_value); + + if (ce->trait_aliases) { + zend_uint i = 0; + while (ce->trait_aliases[i]) { + char *method_name; + int method_name_len; + zend_trait_method_reference *cur_ref = ce->trait_aliases[i]->trait_method; + + if (ce->trait_aliases[i]->alias) { + method_name_len = spprintf(&method_name, 0, "%s::%s", cur_ref->ce->name, cur_ref->method_name); + add_assoc_stringl_ex(return_value, ce->trait_aliases[i]->alias, ce->trait_aliases[i]->alias_len + 1, method_name, method_name_len, 0); + } + i++; + } + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass ReflectionClass::getParentClass() + Returns the class' parent class, or, if none exists, FALSE */ +ZEND_METHOD(reflection_class, getParentClass) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ce); + + if (ce->parent) { + zend_reflection_class_factory(ce->parent, return_value TSRMLS_CC); + } else { + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isSubclassOf(string|ReflectionClass class) + Returns whether this class is a subclass of another class */ +ZEND_METHOD(reflection_class, isSubclassOf) +{ + reflection_object *intern, *argument; + zend_class_entry *ce, **pce, *class_ce; + zval *class_name; + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &class_name) == FAILURE) { + return; + } + + switch(class_name->type) { + case IS_STRING: + if (zend_lookup_class(Z_STRVAL_P(class_name), Z_STRLEN_P(class_name), &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not exist", Z_STRVAL_P(class_name)); + return; + } + class_ce = *pce; + break; + case IS_OBJECT: + if (instanceof_function(Z_OBJCE_P(class_name), reflection_class_ptr TSRMLS_CC)) { + argument = (reflection_object *) zend_object_store_get_object(class_name TSRMLS_CC); + if (argument == NULL || argument->ptr == NULL) { + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Failed to retrieve the argument's reflection object"); + /* Bails out */ + } + class_ce = argument->ptr; + break; + } + /* no break */ + default: + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Parameter one must either be a string or a ReflectionClass object"); + return; + } + + RETURN_BOOL((ce != class_ce && instanceof_function(ce, class_ce TSRMLS_CC))); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::implementsInterface(string|ReflectionClass interface_name) + Returns whether this class is a subclass of another class */ +ZEND_METHOD(reflection_class, implementsInterface) +{ + reflection_object *intern, *argument; + zend_class_entry *ce, *interface_ce, **pce; + zval *interface; + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z", &interface) == FAILURE) { + return; + } + + switch(interface->type) { + case IS_STRING: + if (zend_lookup_class(Z_STRVAL_P(interface), Z_STRLEN_P(interface), &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Interface %s does not exist", Z_STRVAL_P(interface)); + return; + } + interface_ce = *pce; + break; + case IS_OBJECT: + if (instanceof_function(Z_OBJCE_P(interface), reflection_class_ptr TSRMLS_CC)) { + argument = (reflection_object *) zend_object_store_get_object(interface TSRMLS_CC); + if (argument == NULL || argument->ptr == NULL) { + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Failed to retrieve the argument's reflection object"); + /* Bails out */ + } + interface_ce = argument->ptr; + break; + } + /* no break */ + default: + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Parameter one must either be a string or a ReflectionClass object"); + return; + } + + if (!(interface_ce->ce_flags & ZEND_ACC_INTERFACE)) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Interface %s is a Class", interface_ce->name); + return; + } + RETURN_BOOL(instanceof_function(ce, interface_ce TSRMLS_CC)); +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::isIterateable() + Returns whether this class is iterateable (can be used inside foreach) */ +ZEND_METHOD(reflection_class, isIterateable) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + RETURN_BOOL(ce->get_iterator != NULL); +} +/* }}} */ + +/* {{{ proto public ReflectionExtension|NULL ReflectionClass::getExtension() + Returns NULL or the extension the class belongs to */ +ZEND_METHOD(reflection_class, getExtension) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if ((ce->type == ZEND_INTERNAL_CLASS) && ce->info.internal.module) { + reflection_extension_factory(return_value, ce->info.internal.module->name TSRMLS_CC); + } +} +/* }}} */ + +/* {{{ proto public string|false ReflectionClass::getExtensionName() + Returns false or the name of the extension the class belongs to */ +ZEND_METHOD(reflection_class, getExtensionName) +{ + reflection_object *intern; + zend_class_entry *ce; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + + METHOD_NOTSTATIC(reflection_class_ptr); + GET_REFLECTION_OBJECT_PTR(ce); + + if ((ce->type == ZEND_INTERNAL_CLASS) && ce->info.internal.module) { + RETURN_STRING(ce->info.internal.module->name, 1); + } else { + RETURN_FALSE; + } +} +/* }}} */ + +/* {{{ proto public bool ReflectionClass::inNamespace() + Returns whether this class is defined in namespace */ +ZEND_METHOD(reflection_class, inNamespace) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_TRUE; + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::getNamespaceName() + Returns the name of namespace where this class is defined */ +ZEND_METHOD(reflection_class, getNamespaceName) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_STRINGL(Z_STRVAL_PP(name), backslash - Z_STRVAL_PP(name), 1); + } + RETURN_EMPTY_STRING(); +} +/* }}} */ + +/* {{{ proto public string ReflectionClass::getShortName() + Returns the short name of the class (without namespace part) */ +ZEND_METHOD(reflection_class, getShortName) +{ + zval **name; + const char *backslash; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + if (zend_hash_find(Z_OBJPROP_P(getThis()), "name", sizeof("name"), (void **) &name) == FAILURE) { + RETURN_FALSE; + } + if (Z_TYPE_PP(name) == IS_STRING + && (backslash = zend_memrchr(Z_STRVAL_PP(name), '\\', Z_STRLEN_PP(name))) + && backslash > Z_STRVAL_PP(name)) + { + RETURN_STRINGL(backslash + 1, Z_STRLEN_PP(name) - (backslash - Z_STRVAL_PP(name) + 1), 1); + } + RETURN_ZVAL(*name, 1, 0); +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionObject::export(mixed argument [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_object, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_object_ptr, 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionObject::__construct(mixed argument) throws ReflectionException + Constructor. Takes an instance as an argument */ +ZEND_METHOD(reflection_object, __construct) +{ + reflection_class_object_ctor(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1); +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionProperty::export(mixed class, string name [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_property, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_property_ptr, 2); +} +/* }}} */ + +/* {{{ proto public void ReflectionProperty::__construct(mixed class, string name) + Constructor. Throws an Exception in case the given property does not exist */ +ZEND_METHOD(reflection_property, __construct) +{ + zval *propname, *classname; + char *name_str; + const char *class_name, *prop_name; + int name_len, dynam_prop = 0; + zval *object; + reflection_object *intern; + zend_class_entry **pce; + zend_class_entry *ce; + zend_property_info *property_info = NULL; + property_reference *reference; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zs", &classname, &name_str, &name_len) == FAILURE) { + return; + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + /* Find the class entry */ + switch (Z_TYPE_P(classname)) { + case IS_STRING: + if (zend_lookup_class(Z_STRVAL_P(classname), Z_STRLEN_P(classname), &pce TSRMLS_CC) == FAILURE) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Class %s does not exist", Z_STRVAL_P(classname)); + return; + } + ce = *pce; + break; + + case IS_OBJECT: + ce = Z_OBJCE_P(classname); + break; + + default: + _DO_THROW("The parameter class is expected to be either a string or an object"); + /* returns out of this function */ + } + + if (zend_hash_find(&ce->properties_info, name_str, name_len + 1, (void **) &property_info) == FAILURE || (property_info->flags & ZEND_ACC_SHADOW)) { + /* Check for dynamic properties */ + if (property_info == NULL && Z_TYPE_P(classname) == IS_OBJECT && Z_OBJ_HT_P(classname)->get_properties) { + if (zend_hash_exists(Z_OBJ_HT_P(classname)->get_properties(classname TSRMLS_CC), name_str, name_len+1)) { + dynam_prop = 1; + } + } + if (dynam_prop == 0) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, "Property %s::$%s does not exist", ce->name, name_str); + return; + } + } + + if (dynam_prop == 0 && (property_info->flags & ZEND_ACC_PRIVATE) == 0) { + /* we have to search the class hierarchy for this (implicit) public or protected property */ + zend_class_entry *tmp_ce = ce; + zend_property_info *tmp_info; + + while (tmp_ce && zend_hash_find(&tmp_ce->properties_info, name_str, name_len + 1, (void **) &tmp_info) != SUCCESS) { + ce = tmp_ce; + property_info = tmp_info; + tmp_ce = tmp_ce->parent; + } + } + + MAKE_STD_ZVAL(classname); + MAKE_STD_ZVAL(propname); + + if (dynam_prop == 0) { + zend_unmangle_property_name(property_info->name, property_info->name_length, &class_name, &prop_name); + ZVAL_STRINGL(classname, property_info->ce->name, property_info->ce->name_length, 1); + ZVAL_STRING(propname, prop_name, 1); + } else { + ZVAL_STRINGL(classname, ce->name, ce->name_length, 1); + ZVAL_STRINGL(propname, name_str, name_len, 1); + } + reflection_update_property(object, "class", classname); + reflection_update_property(object, "name", propname); + + reference = (property_reference*) emalloc(sizeof(property_reference)); + if (dynam_prop) { + reference->prop.flags = ZEND_ACC_IMPLICIT_PUBLIC; + reference->prop.name = Z_STRVAL_P(propname); + reference->prop.name_length = Z_STRLEN_P(propname); + reference->prop.h = zend_get_hash_value(name_str, name_len+1); + reference->prop.doc_comment = NULL; + reference->prop.ce = ce; + } else { + reference->prop = *property_info; + } + reference->ce = ce; + intern->ptr = reference; + intern->ref_type = REF_TYPE_PROPERTY; + intern->ce = ce; + intern->ignore_visibility = 0; +} +/* }}} */ + +/* {{{ proto public string ReflectionProperty::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_property, __toString) +{ + reflection_object *intern; + property_reference *ref; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ref); + string_init(&str); + _property_string(&str, &ref->prop, NULL, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionProperty::getName() + Returns the class' name */ +ZEND_METHOD(reflection_property, getName) +{ + if (zend_parse_parameters_none() == FAILURE) { + return; + } + _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC); +} +/* }}} */ + +static void _property_check_flag(INTERNAL_FUNCTION_PARAMETERS, int mask) /* {{{ */ +{ + reflection_object *intern; + property_reference *ref; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ref); + RETURN_BOOL(ref->prop.flags & mask); +} +/* }}} */ + +/* {{{ proto public bool ReflectionProperty::isPublic() + Returns whether this property is public */ +ZEND_METHOD(reflection_property, isPublic) +{ + _property_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PUBLIC | ZEND_ACC_IMPLICIT_PUBLIC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionProperty::isPrivate() + Returns whether this property is private */ +ZEND_METHOD(reflection_property, isPrivate) +{ + _property_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PRIVATE); +} +/* }}} */ + +/* {{{ proto public bool ReflectionProperty::isProtected() + Returns whether this property is protected */ +ZEND_METHOD(reflection_property, isProtected) +{ + _property_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_PROTECTED); +} +/* }}} */ + +/* {{{ proto public bool ReflectionProperty::isStatic() + Returns whether this property is static */ +ZEND_METHOD(reflection_property, isStatic) +{ + _property_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ZEND_ACC_STATIC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionProperty::isDefault() + Returns whether this property is default (declared at compilation time). */ +ZEND_METHOD(reflection_property, isDefault) +{ + _property_check_flag(INTERNAL_FUNCTION_PARAM_PASSTHRU, ~ZEND_ACC_IMPLICIT_PUBLIC); +} +/* }}} */ + +/* {{{ proto public int ReflectionProperty::getModifiers() + Returns a bitfield of the access modifiers for this property */ +ZEND_METHOD(reflection_property, getModifiers) +{ + reflection_object *intern; + property_reference *ref; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ref); + + RETURN_LONG(ref->prop.flags); +} +/* }}} */ + +/* {{{ proto public mixed ReflectionProperty::getValue([stdclass object]) + Returns this property's value */ +ZEND_METHOD(reflection_property, getValue) +{ + reflection_object *intern; + property_reference *ref; + zval *object, name; + zval *member_p = NULL; + + METHOD_NOTSTATIC(reflection_property_ptr); + GET_REFLECTION_OBJECT_PTR(ref); + + if (!(ref->prop.flags & (ZEND_ACC_PUBLIC | ZEND_ACC_IMPLICIT_PUBLIC)) && intern->ignore_visibility == 0) { + _default_get_entry(getThis(), "name", sizeof("name"), &name TSRMLS_CC); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Cannot access non-public member %s::%s", intern->ce->name, Z_STRVAL(name)); + zval_dtor(&name); + return; + } + + if ((ref->prop.flags & ZEND_ACC_STATIC)) { + zend_update_class_constants(intern->ce TSRMLS_CC); + if (!CE_STATIC_MEMBERS(intern->ce)[ref->prop.offset]) { + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Could not find the property %s::%s", intern->ce->name, ref->prop.name); + /* Bails out */ + } + *return_value= *CE_STATIC_MEMBERS(intern->ce)[ref->prop.offset]; + zval_copy_ctor(return_value); + INIT_PZVAL(return_value); + } else { + const char *class_name, *prop_name; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "o", &object) == FAILURE) { + return; + } + zend_unmangle_property_name(ref->prop.name, ref->prop.name_length, &class_name, &prop_name); + member_p = zend_read_property(ref->ce, object, prop_name, strlen(prop_name), 1 TSRMLS_CC); + MAKE_COPY_ZVAL(&member_p, return_value); + if (member_p != EG(uninitialized_zval_ptr)) { + zval_add_ref(&member_p); + zval_ptr_dtor(&member_p); + } + } +} +/* }}} */ + +/* {{{ proto public void ReflectionProperty::setValue([stdclass object,] mixed value) + Sets this property's value */ +ZEND_METHOD(reflection_property, setValue) +{ + reflection_object *intern; + property_reference *ref; + zval **variable_ptr; + zval *object, name; + zval *value; + zval *tmp; + + METHOD_NOTSTATIC(reflection_property_ptr); + GET_REFLECTION_OBJECT_PTR(ref); + + if (!(ref->prop.flags & ZEND_ACC_PUBLIC) && intern->ignore_visibility == 0) { + _default_get_entry(getThis(), "name", sizeof("name"), &name TSRMLS_CC); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Cannot access non-public member %s::%s", intern->ce->name, Z_STRVAL(name)); + zval_dtor(&name); + return; + } + + if ((ref->prop.flags & ZEND_ACC_STATIC)) { + if (zend_parse_parameters_ex(ZEND_PARSE_PARAMS_QUIET, ZEND_NUM_ARGS() TSRMLS_CC, "z", &value) == FAILURE) { + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "zz", &tmp, &value) == FAILURE) { + return; + } + } + zend_update_class_constants(intern->ce TSRMLS_CC); + + if (!CE_STATIC_MEMBERS(intern->ce)[ref->prop.offset]) { + php_error_docref(NULL TSRMLS_CC, E_ERROR, "Internal error: Could not find the property %s::%s", intern->ce->name, ref->prop.name); + /* Bails out */ + } + variable_ptr = &CE_STATIC_MEMBERS(intern->ce)[ref->prop.offset]; + if (*variable_ptr != value) { + if (PZVAL_IS_REF(*variable_ptr)) { + zval garbage = **variable_ptr; /* old value should be destroyed */ + + /* To check: can't *variable_ptr be some system variable like error_zval here? */ + Z_TYPE_PP(variable_ptr) = Z_TYPE_P(value); + (*variable_ptr)->value = value->value; + if (Z_REFCOUNT_P(value) > 0) { + zval_copy_ctor(*variable_ptr); + } + zval_dtor(&garbage); + } else { + zval *garbage = *variable_ptr; + + /* if we assign referenced variable, we should separate it */ + Z_ADDREF_P(value); + if (PZVAL_IS_REF(value)) { + SEPARATE_ZVAL(&value); + } + *variable_ptr = value; + zval_ptr_dtor(&garbage); + } + } + } else { + const char *class_name, *prop_name; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "oz", &object, &value) == FAILURE) { + return; + } + zend_unmangle_property_name(ref->prop.name, ref->prop.name_length, &class_name, &prop_name); + zend_update_property(ref->ce, object, prop_name, strlen(prop_name), value TSRMLS_CC); + } +} +/* }}} */ + +/* {{{ proto public ReflectionClass ReflectionProperty::getDeclaringClass() + Get the declaring class */ +ZEND_METHOD(reflection_property, getDeclaringClass) +{ + reflection_object *intern; + property_reference *ref; + zend_class_entry *tmp_ce, *ce; + zend_property_info *tmp_info; + const char *prop_name, *class_name; + int prop_name_len; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ref); + + if (zend_unmangle_property_name(ref->prop.name, ref->prop.name_length, &class_name, &prop_name) != SUCCESS) { + RETURN_FALSE; + } + + prop_name_len = strlen(prop_name); + ce = tmp_ce = ref->ce; + while (tmp_ce && zend_hash_find(&tmp_ce->properties_info, prop_name, prop_name_len + 1, (void **) &tmp_info) == SUCCESS) { + if (tmp_info->flags & ZEND_ACC_PRIVATE || tmp_info->flags & ZEND_ACC_SHADOW) { + /* it's a private property, so it can't be inherited */ + break; + } + ce = tmp_ce; + if (tmp_ce == tmp_info->ce) { + /* declared in this class, done */ + break; + } + tmp_ce = tmp_ce->parent; + } + + zend_reflection_class_factory(ce, return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public string ReflectionProperty::getDocComment() + Returns the doc comment for this property */ +ZEND_METHOD(reflection_property, getDocComment) +{ + reflection_object *intern; + property_reference *ref; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(ref); + if (ref->prop.doc_comment) { + RETURN_STRINGL(ref->prop.doc_comment, ref->prop.doc_comment_len, 1); + } + RETURN_FALSE; +} +/* }}} */ + +/* {{{ proto public int ReflectionProperty::setAccessible(bool visible) + Sets whether non-public properties can be requested */ +ZEND_METHOD(reflection_property, setAccessible) +{ + reflection_object *intern; + zend_bool visible; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "b", &visible) == FAILURE) { + return; + } + + intern = (reflection_object *) zend_object_store_get_object(getThis() TSRMLS_CC); + + if (intern == NULL) { + return; + } + + intern->ignore_visibility = visible; +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionExtension::export(string name [, bool return]) throws ReflectionException + Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_extension, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_extension_ptr, 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionExtension::__construct(string name) + Constructor. Throws an Exception in case the given extension does not exist */ +ZEND_METHOD(reflection_extension, __construct) +{ + zval *name; + zval *object; + char *lcname; + reflection_object *intern; + zend_module_entry *module; + char *name_str; + int name_len; + ALLOCA_FLAG(use_heap) + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len) == FAILURE) { + return; + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + lcname = do_alloca(name_len + 1, use_heap); + zend_str_tolower_copy(lcname, name_str, name_len); + if (zend_hash_find(&module_registry, lcname, name_len + 1, (void **)&module) == FAILURE) { + free_alloca(lcname, use_heap); + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Extension %s does not exist", name_str); + return; + } + free_alloca(lcname, use_heap); + MAKE_STD_ZVAL(name); + ZVAL_STRING(name, module->name, 1); + reflection_update_property( object, "name", name); + intern->ptr = module; + intern->ref_type = REF_TYPE_OTHER; + intern->ce = NULL; +} +/* }}} */ + +/* {{{ proto public string ReflectionExtension::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_extension, __toString) +{ + reflection_object *intern; + zend_module_entry *module; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + string_init(&str); + _extension_string(&str, module, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionExtension::getName() + Returns this extension's name */ +ZEND_METHOD(reflection_extension, getName) +{ + if (zend_parse_parameters_none() == FAILURE) { + return; + } + _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public string ReflectionExtension::getVersion() + Returns this extension's version */ +ZEND_METHOD(reflection_extension, getVersion) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + /* An extension does not necessarily have a version number */ + if (module->version == NO_VERSION_YET) { + RETURN_NULL(); + } else { + RETURN_STRING(module->version, 1); + } +} +/* }}} */ + +/* {{{ proto public ReflectionFunction[] ReflectionExtension::getFunctions() + Returns an array of this extension's fuctions */ +ZEND_METHOD(reflection_extension, getFunctions) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + if (module->functions) { + zval *function; + zend_function *fptr; + const zend_function_entry *func = module->functions; + + /* Is there a better way of doing this? */ + while (func->fname) { + int fname_len = strlen(func->fname); + char *lc_name = zend_str_tolower_dup(func->fname, fname_len); + + if (zend_hash_find(EG(function_table), lc_name, fname_len + 1, (void**) &fptr) == FAILURE) { + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Internal error: Cannot find extension function %s in global function table", func->fname); + func++; + efree(lc_name); + continue; + } + + ALLOC_ZVAL(function); + reflection_function_factory(fptr, NULL, function TSRMLS_CC); + add_assoc_zval_ex(return_value, func->fname, fname_len+1, function); + func++; + efree(lc_name); + } + } +} +/* }}} */ + +static int _addconstant(zend_constant *constant TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) /* {{{ */ +{ + zval *const_val; + zval *retval = va_arg(args, zval*); + int number = va_arg(args, int); + + if (number == constant->module_number) { + ALLOC_ZVAL(const_val); + *const_val = constant->value; + zval_copy_ctor(const_val); + INIT_PZVAL(const_val); + add_assoc_zval_ex(retval, constant->name, constant->name_len, const_val); + } + return 0; +} +/* }}} */ + +/* {{{ proto public array ReflectionExtension::getConstants() + Returns an associative array containing this extension's constants and their values */ +ZEND_METHOD(reflection_extension, getConstants) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + zend_hash_apply_with_arguments(EG(zend_constants) TSRMLS_CC, (apply_func_args_t) _addconstant, 2, return_value, module->module_number); +} +/* }}} */ + +/* {{{ _addinientry */ +static int _addinientry(zend_ini_entry *ini_entry TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) +{ + zval *retval = va_arg(args, zval*); + int number = va_arg(args, int); + + if (number == ini_entry->module_number) { + if (ini_entry->value) { + add_assoc_stringl(retval, ini_entry->name, ini_entry->value, ini_entry->value_length, 1); + } else { + add_assoc_null(retval, ini_entry->name); + } + } + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +/* {{{ proto public array ReflectionExtension::getINIEntries() + Returns an associative array containing this extension's INI entries and their values */ +ZEND_METHOD(reflection_extension, getINIEntries) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + zend_hash_apply_with_arguments(EG(ini_directives) TSRMLS_CC, (apply_func_args_t) _addinientry, 2, return_value, module->module_number); +} +/* }}} */ + +/* {{{ add_extension_class */ +static int add_extension_class(zend_class_entry **pce TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key) +{ + zval *class_array = va_arg(args, zval*), *zclass; + struct _zend_module_entry *module = va_arg(args, struct _zend_module_entry*); + int add_reflection_class = va_arg(args, int); + + if (((*pce)->type == ZEND_INTERNAL_CLASS) && (*pce)->info.internal.module && !strcasecmp((*pce)->info.internal.module->name, module->name)) { + if (add_reflection_class) { + ALLOC_ZVAL(zclass); + zend_reflection_class_factory(*pce, zclass TSRMLS_CC); + add_assoc_zval_ex(class_array, (*pce)->name, (*pce)->name_length + 1, zclass); + } else { + add_next_index_stringl(class_array, (*pce)->name, (*pce)->name_length, 1); + } + } + return ZEND_HASH_APPLY_KEEP; +} +/* }}} */ + +/* {{{ proto public ReflectionClass[] ReflectionExtension::getClasses() + Returns an array containing ReflectionClass objects for all classes of this extension */ +ZEND_METHOD(reflection_extension, getClasses) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + zend_hash_apply_with_arguments(EG(class_table) TSRMLS_CC, (apply_func_args_t) add_extension_class, 3, return_value, module, 1); +} +/* }}} */ + +/* {{{ proto public array ReflectionExtension::getClassNames() + Returns an array containing all names of all classes of this extension */ +ZEND_METHOD(reflection_extension, getClassNames) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + zend_hash_apply_with_arguments(EG(class_table) TSRMLS_CC, (apply_func_args_t) add_extension_class, 3, return_value, module, 0); +} +/* }}} */ + +/* {{{ proto public array ReflectionExtension::getDependencies() + Returns an array containing all names of all extensions this extension depends on */ +ZEND_METHOD(reflection_extension, getDependencies) +{ + reflection_object *intern; + zend_module_entry *module; + const zend_module_dep *dep; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + array_init(return_value); + + dep = module->deps; + + if (!dep) + { + return; + } + + while(dep->name) { + char *relation; + char *rel_type; + int len; + + switch(dep->type) { + case MODULE_DEP_REQUIRED: + rel_type = "Required"; + break; + case MODULE_DEP_CONFLICTS: + rel_type = "Conflicts"; + break; + case MODULE_DEP_OPTIONAL: + rel_type = "Optional"; + break; + default: + rel_type = "Error"; /* shouldn't happen */ + break; + } + + len = spprintf(&relation, 0, "%s%s%s%s%s", + rel_type, + dep->rel ? " " : "", + dep->rel ? dep->rel : "", + dep->version ? " " : "", + dep->version ? dep->version : ""); + add_assoc_stringl(return_value, dep->name, relation, len, 0); + dep++; + } +} +/* }}} */ + +/* {{{ proto public void ReflectionExtension::info() + Prints phpinfo block for the extension */ +ZEND_METHOD(reflection_extension, info) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + php_info_print_module(module TSRMLS_CC); +} +/* }}} */ + +/* {{{ proto public bool ReflectionExtension::isPersistent() + Returns whether this extension is persistent */ +ZEND_METHOD(reflection_extension, isPersistent) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + RETURN_BOOL(module->type == MODULE_PERSISTENT); +} +/* }}} */ + +/* {{{ proto public bool ReflectionExtension::isTemporary() + Returns whether this extension is temporary */ +ZEND_METHOD(reflection_extension, isTemporary) +{ + reflection_object *intern; + zend_module_entry *module; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(module); + + RETURN_BOOL(module->type == MODULE_TEMPORARY); +} +/* }}} */ + +/* {{{ proto public static mixed ReflectionZendExtension::export(string name [, bool return]) throws ReflectionException + * Exports a reflection object. Returns the output if TRUE is specified for return, printing it otherwise. */ +ZEND_METHOD(reflection_zend_extension, export) +{ + _reflection_export(INTERNAL_FUNCTION_PARAM_PASSTHRU, reflection_zend_extension_ptr, 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionZendExtension::__construct(string name) + Constructor. Throws an Exception in case the given Zend extension does not exist */ +ZEND_METHOD(reflection_zend_extension, __construct) +{ + zval *name; + zval *object; + reflection_object *intern; + zend_extension *extension; + char *name_str; + int name_len; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len) == FAILURE) { + return; + } + + object = getThis(); + intern = (reflection_object *) zend_object_store_get_object(object TSRMLS_CC); + if (intern == NULL) { + return; + } + + extension = zend_get_extension(name_str); + if (!extension) { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Zend Extension %s does not exist", name_str); + return; + } + MAKE_STD_ZVAL(name); + ZVAL_STRING(name, extension->name, 1); + reflection_update_property(object, "name", name); + intern->ptr = extension; + intern->ref_type = REF_TYPE_OTHER; + intern->ce = NULL; +} +/* }}} */ + +/* {{{ proto public string ReflectionZendExtension::__toString() + Returns a string representation */ +ZEND_METHOD(reflection_zend_extension, __toString) +{ + reflection_object *intern; + zend_extension *extension; + string str; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + string_init(&str); + _zend_extension_string(&str, extension, "" TSRMLS_CC); + RETURN_STRINGL(str.string, str.len - 1, 0); +} +/* }}} */ + +/* {{{ proto public string ReflectionZendExtension::getName() + Returns the name of this Zend extension */ +ZEND_METHOD(reflection_zend_extension, getName) +{ + reflection_object *intern; + zend_extension *extension; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + + RETURN_STRING(extension->name, 1); +} +/* }}} */ + +/* {{{ proto public string ReflectionZendExtension::getVersion() + Returns the version information of this Zend extension */ +ZEND_METHOD(reflection_zend_extension, getVersion) +{ + reflection_object *intern; + zend_extension *extension; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + + RETURN_STRING(extension->version ? extension->version : "", 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionZendExtension::getAuthor() + * Returns the name of this Zend extension's author */ +ZEND_METHOD(reflection_zend_extension, getAuthor) +{ + reflection_object *intern; + zend_extension *extension; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + + RETURN_STRING(extension->author ? extension->author : "", 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionZendExtension::getURL() + Returns this Zend extension's URL*/ +ZEND_METHOD(reflection_zend_extension, getURL) +{ + reflection_object *intern; + zend_extension *extension; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + + RETURN_STRING(extension->URL ? extension->URL : "", 1); +} +/* }}} */ + +/* {{{ proto public void ReflectionZendExtension::getCopyright() + Returns this Zend extension's copyright information */ +ZEND_METHOD(reflection_zend_extension, getCopyright) +{ + reflection_object *intern; + zend_extension *extension; + + if (zend_parse_parameters_none() == FAILURE) { + return; + } + GET_REFLECTION_OBJECT_PTR(extension); + + RETURN_STRING(extension->copyright ? extension->copyright : "", 1); +} +/* }}} */ + +/* {{{ method tables */ +static const zend_function_entry reflection_exception_functions[] = { + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO(arginfo_reflection__void, 0) +ZEND_END_ARG_INFO() + + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_getModifierNames, 0) + ZEND_ARG_INFO(0, modifiers) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_export, 0, 0, 1) + ZEND_ARG_OBJ_INFO(0, reflector, Reflector, 0) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_functions[] = { + ZEND_ME(reflection, getModifierNames, arginfo_reflection_getModifierNames, ZEND_ACC_PUBLIC|ZEND_ACC_STATIC) + ZEND_ME(reflection, export, arginfo_reflection_export, ZEND_ACC_PUBLIC|ZEND_ACC_STATIC) + PHP_FE_END +}; + +static const zend_function_entry reflector_functions[] = { + ZEND_FENTRY(export, NULL, NULL, ZEND_ACC_STATIC|ZEND_ACC_ABSTRACT|ZEND_ACC_PUBLIC) + ZEND_ABSTRACT_ME(reflector, __toString, arginfo_reflection__void) + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_function_export, 0, 0, 1) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_function___construct, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_function_invoke, 0, 0, 0) + ZEND_ARG_INFO(0, args) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_function_invokeArgs, 0) + ZEND_ARG_ARRAY_INFO(0, args, 0) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_function_abstract_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + PHP_ABSTRACT_ME(reflection_function, __toString, arginfo_reflection__void) + ZEND_ME(reflection_function, inNamespace, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, isClosure, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, isDeprecated, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, isInternal, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, isUserDefined, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getClosureThis, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getClosureScopeClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getDocComment, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getEndLine, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getExtension, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getExtensionName, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getFileName, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getNamespaceName, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getNumberOfParameters, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getNumberOfRequiredParameters, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getParameters, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getShortName, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getStartLine, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, getStaticVariables, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, returnsReference, arginfo_reflection__void, 0) + PHP_FE_END +}; + +static const zend_function_entry reflection_function_functions[] = { + ZEND_ME(reflection_function, __construct, arginfo_reflection_function___construct, 0) + ZEND_ME(reflection_function, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, export, arginfo_reflection_function_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_function, isDisabled, arginfo_reflection__void, 0) + ZEND_ME(reflection_function, invoke, arginfo_reflection_function_invoke, 0) + ZEND_ME(reflection_function, invokeArgs, arginfo_reflection_function_invokeArgs, 0) + ZEND_ME(reflection_function, getClosure, arginfo_reflection__void, 0) + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_method_export, 0, 0, 2) + ZEND_ARG_INFO(0, class) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_method___construct, 0, 0, 1) + ZEND_ARG_INFO(0, class_or_method) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_method_invoke, 0) + ZEND_ARG_INFO(0, object) + ZEND_ARG_INFO(0, args) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_method_invokeArgs, 0) + ZEND_ARG_INFO(0, object) + ZEND_ARG_ARRAY_INFO(0, args, 0) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_method_setAccessible, 0) + ZEND_ARG_INFO(0, value) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_method_getClosure, 0) + ZEND_ARG_INFO(0, object) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_method_functions[] = { + ZEND_ME(reflection_method, export, arginfo_reflection_method_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_method, __construct, arginfo_reflection_method___construct, 0) + ZEND_ME(reflection_method, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isPublic, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isPrivate, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isProtected, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isAbstract, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isFinal, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isStatic, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isConstructor, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, isDestructor, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, getClosure, arginfo_reflection_method_getClosure, 0) + ZEND_ME(reflection_method, getModifiers, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, invoke, arginfo_reflection_method_invoke, 0) + ZEND_ME(reflection_method, invokeArgs, arginfo_reflection_method_invokeArgs, 0) + ZEND_ME(reflection_method, getDeclaringClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_method, getPrototype, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, setAccessible, arginfo_reflection_method_setAccessible, 0) + PHP_FE_END +}; + + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_class_export, 0, 0, 1) + ZEND_ARG_INFO(0, argument) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class___construct, 0) + ZEND_ARG_INFO(0, argument) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_class_getStaticPropertyValue, 0, 0, 1) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, default) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_setStaticPropertyValue, 0) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, value) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_hasMethod, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_getMethod, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_class_getMethods, 0, 0, 0) + ZEND_ARG_INFO(0, filter) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_hasProperty, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_getProperty, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_class_getProperties, 0, 0, 0) + ZEND_ARG_INFO(0, filter) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_hasConstant, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_getConstant, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_isInstance, 0) + ZEND_ARG_INFO(0, object) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_newInstance, 0) + ZEND_ARG_INFO(0, args) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_newInstanceWithoutConstructor, 0) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_class_newInstanceArgs, 0, 0, 0) + ZEND_ARG_ARRAY_INFO(0, args, 0) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_isSubclassOf, 0) + ZEND_ARG_INFO(0, class) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_class_implementsInterface, 0) + ZEND_ARG_INFO(0, interface) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_class_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + ZEND_ME(reflection_class, export, arginfo_reflection_class_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_class, __construct, arginfo_reflection_class___construct, 0) + ZEND_ME(reflection_class, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isInternal, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isUserDefined, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isInstantiable, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isCloneable, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getFileName, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getStartLine, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getEndLine, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getDocComment, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getConstructor, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, hasMethod, arginfo_reflection_class_hasMethod, 0) + ZEND_ME(reflection_class, getMethod, arginfo_reflection_class_getMethod, 0) + ZEND_ME(reflection_class, getMethods, arginfo_reflection_class_getMethods, 0) + ZEND_ME(reflection_class, hasProperty, arginfo_reflection_class_hasProperty, 0) + ZEND_ME(reflection_class, getProperty, arginfo_reflection_class_getProperty, 0) + ZEND_ME(reflection_class, getProperties, arginfo_reflection_class_getProperties, 0) + ZEND_ME(reflection_class, hasConstant, arginfo_reflection_class_hasConstant, 0) + ZEND_ME(reflection_class, getConstants, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getConstant, arginfo_reflection_class_getConstant, 0) + ZEND_ME(reflection_class, getInterfaces, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getInterfaceNames, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isInterface, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getTraits, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getTraitNames, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getTraitAliases, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isTrait, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isAbstract, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isFinal, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getModifiers, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isInstance, arginfo_reflection_class_isInstance, 0) + ZEND_ME(reflection_class, newInstance, arginfo_reflection_class_newInstance, 0) + ZEND_ME(reflection_class, newInstanceWithoutConstructor, arginfo_reflection_class_newInstanceWithoutConstructor, 0) + ZEND_ME(reflection_class, newInstanceArgs, arginfo_reflection_class_newInstanceArgs, 0) + ZEND_ME(reflection_class, getParentClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isSubclassOf, arginfo_reflection_class_isSubclassOf, 0) + ZEND_ME(reflection_class, getStaticProperties, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getStaticPropertyValue, arginfo_reflection_class_getStaticPropertyValue, 0) + ZEND_ME(reflection_class, setStaticPropertyValue, arginfo_reflection_class_setStaticPropertyValue, 0) + ZEND_ME(reflection_class, getDefaultProperties, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, isIterateable, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, implementsInterface, arginfo_reflection_class_implementsInterface, 0) + ZEND_ME(reflection_class, getExtension, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getExtensionName, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, inNamespace, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getNamespaceName, arginfo_reflection__void, 0) + ZEND_ME(reflection_class, getShortName, arginfo_reflection__void, 0) + PHP_FE_END +}; + + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_object_export, 0, 0, 1) + ZEND_ARG_INFO(0, argument) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_object___construct, 0) + ZEND_ARG_INFO(0, argument) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_object_functions[] = { + ZEND_ME(reflection_object, export, arginfo_reflection_object_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_object, __construct, arginfo_reflection_object___construct, 0) + PHP_FE_END +}; + + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_property_export, 0, 0, 2) + ZEND_ARG_INFO(0, class) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_property___construct, 0, 0, 2) + ZEND_ARG_INFO(0, class) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_property_getValue, 0, 0, 0) + ZEND_ARG_INFO(0, object) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_property_setValue, 0, 0, 1) + ZEND_ARG_INFO(0, object) + ZEND_ARG_INFO(0, value) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_property_setAccessible, 0) + ZEND_ARG_INFO(0, visible) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_property_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + ZEND_ME(reflection_property, export, arginfo_reflection_property_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_property, __construct, arginfo_reflection_property___construct, 0) + ZEND_ME(reflection_property, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, getValue, arginfo_reflection_property_getValue, 0) + ZEND_ME(reflection_property, setValue, arginfo_reflection_property_setValue, 0) + ZEND_ME(reflection_property, isPublic, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, isPrivate, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, isProtected, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, isStatic, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, isDefault, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, getModifiers, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, getDeclaringClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, getDocComment, arginfo_reflection__void, 0) + ZEND_ME(reflection_property, setAccessible, arginfo_reflection_property_setAccessible, 0) + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_parameter_export, 0, 0, 2) + ZEND_ARG_INFO(0, function) + ZEND_ARG_INFO(0, parameter) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_parameter___construct, 0) + ZEND_ARG_INFO(0, function) + ZEND_ARG_INFO(0, parameter) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_parameter_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + ZEND_ME(reflection_parameter, export, arginfo_reflection_parameter_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_parameter, __construct, arginfo_reflection_parameter___construct, 0) + ZEND_ME(reflection_parameter, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isPassedByReference, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, canBePassedByValue, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getDeclaringFunction, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getDeclaringClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getClass, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isArray, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isCallable, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, allowsNull, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getPosition, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isOptional, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isDefaultValueAvailable, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getDefaultValue, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, isDefaultValueConstant, arginfo_reflection__void, 0) + ZEND_ME(reflection_parameter, getDefaultValueConstantName, arginfo_reflection__void, 0) + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO_EX(arginfo_reflection_extension_export, 0, 0, 1) + ZEND_ARG_INFO(0, name) + ZEND_ARG_INFO(0, return) +ZEND_END_ARG_INFO() + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_extension___construct, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_extension_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + ZEND_ME(reflection_extension, export, arginfo_reflection_extension_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_extension, __construct, arginfo_reflection_extension___construct, 0) + ZEND_ME(reflection_extension, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getVersion, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getFunctions, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getConstants, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getINIEntries, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getClasses, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getClassNames, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, getDependencies, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, info, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, isPersistent, arginfo_reflection__void, 0) + ZEND_ME(reflection_extension, isTemporary, arginfo_reflection__void, 0) + PHP_FE_END +}; + +ZEND_BEGIN_ARG_INFO(arginfo_reflection_zend_extension___construct, 0) + ZEND_ARG_INFO(0, name) +ZEND_END_ARG_INFO() + +static const zend_function_entry reflection_zend_extension_functions[] = { + ZEND_ME(reflection, __clone, arginfo_reflection__void, ZEND_ACC_PRIVATE|ZEND_ACC_FINAL) + ZEND_ME(reflection_zend_extension, export, arginfo_reflection_extension_export, ZEND_ACC_STATIC|ZEND_ACC_PUBLIC) + ZEND_ME(reflection_zend_extension, __construct, arginfo_reflection_extension___construct, 0) + ZEND_ME(reflection_zend_extension, __toString, arginfo_reflection__void, 0) + ZEND_ME(reflection_zend_extension, getName, arginfo_reflection__void, 0) + ZEND_ME(reflection_zend_extension, getVersion, arginfo_reflection__void, 0) + ZEND_ME(reflection_zend_extension, getAuthor, arginfo_reflection__void, 0) + ZEND_ME(reflection_zend_extension, getURL, arginfo_reflection__void, 0) + ZEND_ME(reflection_zend_extension, getCopyright, arginfo_reflection__void, 0) + PHP_FE_END +}; +/* }}} */ + +const zend_function_entry reflection_ext_functions[] = { /* {{{ */ + PHP_FE_END +}; /* }}} */ + +static zend_object_handlers *zend_std_obj_handlers; + +/* {{{ _reflection_write_property */ +static void _reflection_write_property(zval *object, zval *member, zval *value, const zend_literal *key TSRMLS_DC) +{ + if ((Z_TYPE_P(member) == IS_STRING) + && zend_hash_exists(&Z_OBJCE_P(object)->properties_info, Z_STRVAL_P(member), Z_STRLEN_P(member)+1) + && ((Z_STRLEN_P(member) == sizeof("name") - 1 && !memcmp(Z_STRVAL_P(member), "name", sizeof("name"))) + || (Z_STRLEN_P(member) == sizeof("class") - 1 && !memcmp(Z_STRVAL_P(member), "class", sizeof("class"))))) + { + zend_throw_exception_ex(reflection_exception_ptr, 0 TSRMLS_CC, + "Cannot set read-only property %s::$%s", Z_OBJCE_P(object)->name, Z_STRVAL_P(member)); + } + else + { + zend_std_obj_handlers->write_property(object, member, value, key TSRMLS_CC); + } +} +/* }}} */ + +PHP_MINIT_FUNCTION(reflection) /* {{{ */ +{ + zend_class_entry _reflection_entry; + + zend_std_obj_handlers = zend_get_std_object_handlers(); + memcpy(&reflection_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers)); + reflection_object_handlers.clone_obj = NULL; + reflection_object_handlers.write_property = _reflection_write_property; + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionException", reflection_exception_functions); + reflection_exception_ptr = zend_register_internal_class_ex(&_reflection_entry, zend_exception_get_default(TSRMLS_C), NULL TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "Reflection", reflection_functions); + reflection_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "Reflector", reflector_functions); + reflector_ptr = zend_register_internal_interface(&_reflection_entry TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionFunctionAbstract", reflection_function_abstract_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_function_abstract_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_function_abstract_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_function_abstract_ptr, "name", sizeof("name")-1, "", ZEND_ACC_ABSTRACT TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionFunction", reflection_function_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_function_ptr = zend_register_internal_class_ex(&_reflection_entry, reflection_function_abstract_ptr, NULL TSRMLS_CC); + zend_declare_property_string(reflection_function_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + REGISTER_REFLECTION_CLASS_CONST_LONG(function, "IS_DEPRECATED", ZEND_ACC_DEPRECATED); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionParameter", reflection_parameter_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_parameter_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_parameter_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_parameter_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionMethod", reflection_method_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_method_ptr = zend_register_internal_class_ex(&_reflection_entry, reflection_function_abstract_ptr, NULL TSRMLS_CC); + zend_declare_property_string(reflection_method_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + zend_declare_property_string(reflection_method_ptr, "class", sizeof("class")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_STATIC", ZEND_ACC_STATIC); + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_PUBLIC", ZEND_ACC_PUBLIC); + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_PROTECTED", ZEND_ACC_PROTECTED); + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_PRIVATE", ZEND_ACC_PRIVATE); + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_ABSTRACT", ZEND_ACC_ABSTRACT); + REGISTER_REFLECTION_CLASS_CONST_LONG(method, "IS_FINAL", ZEND_ACC_FINAL); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionClass", reflection_class_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_class_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_class_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_class_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + REGISTER_REFLECTION_CLASS_CONST_LONG(class, "IS_IMPLICIT_ABSTRACT", ZEND_ACC_IMPLICIT_ABSTRACT_CLASS); + REGISTER_REFLECTION_CLASS_CONST_LONG(class, "IS_EXPLICIT_ABSTRACT", ZEND_ACC_EXPLICIT_ABSTRACT_CLASS); + REGISTER_REFLECTION_CLASS_CONST_LONG(class, "IS_FINAL", ZEND_ACC_FINAL_CLASS); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionObject", reflection_object_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_object_ptr = zend_register_internal_class_ex(&_reflection_entry, reflection_class_ptr, NULL TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionProperty", reflection_property_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_property_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_property_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_property_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + zend_declare_property_string(reflection_property_ptr, "class", sizeof("class")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + REGISTER_REFLECTION_CLASS_CONST_LONG(property, "IS_STATIC", ZEND_ACC_STATIC); + REGISTER_REFLECTION_CLASS_CONST_LONG(property, "IS_PUBLIC", ZEND_ACC_PUBLIC); + REGISTER_REFLECTION_CLASS_CONST_LONG(property, "IS_PROTECTED", ZEND_ACC_PROTECTED); + REGISTER_REFLECTION_CLASS_CONST_LONG(property, "IS_PRIVATE", ZEND_ACC_PRIVATE); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionExtension", reflection_extension_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_extension_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_extension_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_extension_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + INIT_CLASS_ENTRY(_reflection_entry, "ReflectionZendExtension", reflection_zend_extension_functions); + _reflection_entry.create_object = reflection_objects_new; + reflection_zend_extension_ptr = zend_register_internal_class(&_reflection_entry TSRMLS_CC); + reflection_register_implement(reflection_zend_extension_ptr, reflector_ptr TSRMLS_CC); + zend_declare_property_string(reflection_zend_extension_ptr, "name", sizeof("name")-1, "", ZEND_ACC_PUBLIC TSRMLS_CC); + + return SUCCESS; +} /* }}} */ + +PHP_MINFO_FUNCTION(reflection) /* {{{ */ +{ + php_info_print_table_start(); + php_info_print_table_header(2, "Reflection", "enabled"); + + php_info_print_table_row(2, "Version", "$Id: 25ecbad68e5a4573ffee43ea24a0591ea179492a $"); + + php_info_print_table_end(); +} /* }}} */ + +zend_module_entry reflection_module_entry = { /* {{{ */ + STANDARD_MODULE_HEADER, + "Reflection", + reflection_ext_functions, + PHP_MINIT(reflection), + NULL, + NULL, + NULL, + PHP_MINFO(reflection), + "$Id: 25ecbad68e5a4573ffee43ea24a0591ea179492a $", + STANDARD_MODULE_PROPERTIES +}; /* }}} */ + +/* + * Local variables: + * tab-width: 4 + * c-basic-offset: 4 + * indent-tabs-mode: t + * End: + * vim600: noet sw=4 ts=4 fdm=marker + */ |