summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Zend/Makefile.am3
-rw-r--r--Zend/Zend.dsp8
-rw-r--r--Zend/ZendTS.dsp8
-rw-r--r--Zend/zend_default_classes.c2
-rw-r--r--Zend/zend_exceptions.c2
-rw-r--r--Zend/zend_reflection_api.c348
-rw-r--r--Zend/zend_reflection_api.h38
-rw-r--r--ext/reflection/php_reflection.c348
-rw-r--r--ext/reflection/php_reflection.h38
9 files changed, 794 insertions, 1 deletions
diff --git a/Zend/Makefile.am b/Zend/Makefile.am
index 8f1948eefc..41d2ec2ef4 100644
--- a/Zend/Makefile.am
+++ b/Zend/Makefile.am
@@ -14,7 +14,8 @@ libZend_la_SOURCES=\
zend_variables.c zend.c zend_API.c zend_extensions.c zend_hash.c \
zend_list.c zend_indent.c zend_builtin_functions.c zend_sprintf.c \
zend_ini.c zend_qsort.c zend_objects.c zend_object_handlers.c \
- zend_objects_API.c zend_ts_hash.c zend_stream.c zend_mm.c zend_default_classes.c
+ zend_objects_API.c zend_ts_hash.c zend_stream.c zend_mm.c \
+ zend_default_classes.c zend_reflection_api.c
libZend_la_LDFLAGS =
libZend_la_LIBADD = @ZEND_EXTRA_LIBS@
diff --git a/Zend/Zend.dsp b/Zend/Zend.dsp
index 542fdf724d..0219e27b1c 100644
--- a/Zend/Zend.dsp
+++ b/Zend/Zend.dsp
@@ -223,6 +223,10 @@ SOURCE=.\zend_qsort.c
# End Source File
# Begin Source File
+SOURCE=.\zend_reflection_api.c
+# End Source File
+# Begin Source File
+
SOURCE=.\zend_sprintf.c
# End Source File
# Begin Source File
@@ -391,6 +395,10 @@ SOURCE=.\zend_qsort.h
# End Source File
# Begin Source File
+SOURCE=.\zend_reflection_api.h
+# End Source File
+# Begin Source File
+
SOURCE=.\zend_stack.h
# End Source File
# Begin Source File
diff --git a/Zend/ZendTS.dsp b/Zend/ZendTS.dsp
index 8506facbbd..f8dbbc9ab4 100644
--- a/Zend/ZendTS.dsp
+++ b/Zend/ZendTS.dsp
@@ -248,6 +248,10 @@ SOURCE=.\zend_qsort.c
# End Source File
# Begin Source File
+SOURCE=.\zend_reflection_api.c
+# End Source File
+# Begin Source File
+
SOURCE=.\zend_sprintf.c
# End Source File
# Begin Source File
@@ -416,6 +420,10 @@ SOURCE=.\zend_qsort.h
# End Source File
# Begin Source File
+SOURCE=.\zend_reflection_api.h
+# End Source File
+# Begin Source File
+
SOURCE=.\zend_stack.h
# End Source File
# Begin Source File
diff --git a/Zend/zend_default_classes.c b/Zend/zend_default_classes.c
index fb7a4d86ee..90b92bd101 100644
--- a/Zend/zend_default_classes.c
+++ b/Zend/zend_default_classes.c
@@ -20,6 +20,7 @@
#include "zend.h"
#include "zend_API.h"
+#include "zend_reflection_api.h"
zend_class_entry *default_exception_ptr;
@@ -129,6 +130,7 @@ ZEND_API zend_class_entry *zend_exception_get_default(void)
ZEND_API void zend_register_default_classes(TSRMLS_D)
{
zend_register_default_exception(TSRMLS_C);
+ zend_register_reflection_api(TSRMLS_C);
}
/*
diff --git a/Zend/zend_exceptions.c b/Zend/zend_exceptions.c
index fb7a4d86ee..90b92bd101 100644
--- a/Zend/zend_exceptions.c
+++ b/Zend/zend_exceptions.c
@@ -20,6 +20,7 @@
#include "zend.h"
#include "zend_API.h"
+#include "zend_reflection_api.h"
zend_class_entry *default_exception_ptr;
@@ -129,6 +130,7 @@ ZEND_API zend_class_entry *zend_exception_get_default(void)
ZEND_API void zend_register_default_classes(TSRMLS_D)
{
zend_register_default_exception(TSRMLS_C);
+ zend_register_reflection_api(TSRMLS_C);
}
/*
diff --git a/Zend/zend_reflection_api.c b/Zend/zend_reflection_api.c
new file mode 100644
index 0000000000..31e7091143
--- /dev/null
+++ b/Zend/zend_reflection_api.c
@@ -0,0 +1,348 @@
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2003 Zend Technologies Ltd. (http://www.zend.com) |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.00 of the Zend 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.zend.com/license/2_00.txt. |
+ | If you did not receive a copy of the Zend license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@zend.com so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: George Schlossnagle <george@omniti.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#include "zend.h"
+#include "zend_API.h"
+#include "zend_default_classes.h"
+
+extern zend_class_entry *default_exception_ptr;
+zend_class_entry *reflection_function_ptr;
+
+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;
+ }
+
+ *return_value = **value;
+ zval_copy_ctor(return_value);
+}
+
+typedef struct {
+ zend_object zo;
+ void *ptr;
+} reflection_object;
+
+static void reflection_objects_dtor(void *object, zend_object_handle handle TSRMLS_DC)
+{
+ zend_objects_destroy_object(object, handle TSRMLS_CC);
+}
+
+static void reflection_objects_clone(void *object, void **object_clone TSRMLS_DC)
+{
+ reflection_object *intern = (reflection_object *) object;
+ reflection_object **intern_clone = (reflection_object **) object_clone;
+
+ *intern_clone = emalloc(sizeof(reflection_object));
+ (*intern_clone)->zo.ce = intern->zo.ce;
+ (*intern_clone)->zo.in_get = 0;
+ (*intern_clone)->zo.in_set = 0;
+ ALLOC_HASHTABLE((*intern_clone)->zo.properties);
+ (*intern_clone)->ptr = intern->ptr;
+}
+
+ZEND_API zend_object_value reflection_objects_new(zend_class_entry *class_type TSRMLS_DC)
+{
+ zend_object_value retval;
+ reflection_object *intern;
+ zval *tmp;
+
+ intern = emalloc(sizeof(reflection_object));
+ intern->zo.ce = class_type;
+ intern->zo.in_get = 0;
+ intern->zo.in_set = 0;
+
+ ALLOC_HASHTABLE(intern->zo.properties);
+ zend_hash_init(intern->zo.properties, 0, NULL, ZVAL_PTR_DTOR, 0);
+ retval.handle = zend_objects_store_put(intern, reflection_objects_dtor, reflection_objects_clone TSRMLS_CC);
+ retval.handlers = &reflection_object_handlers;
+ return retval;
+}
+
+ZEND_FUNCTION(reflection_function)
+{
+ zval **name;
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ int argc = ZEND_NUM_ARGS();
+ if (zend_get_parameters_ex(argc, &name) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ convert_to_string_ex(name);
+ zval_add_ref(name);
+ zend_hash_update(Z_OBJPROP_P(object), "name", sizeof("name"), (void **) name, sizeof(zval *), NULL);
+ if(zend_hash_find(EG(function_table), (char *)Z_STRVAL_PP(name), (int)(Z_STRLEN_PP(name) + 1), (void **)&fptr) == FAILURE) {
+ zval *ex;
+ zval *tmp;
+ MAKE_STD_ZVAL(ex);
+ object_init_ex(ex, default_exception_ptr);
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_STRING(tmp, "Function does not exist", 1);
+ zend_hash_update(Z_OBJPROP_P(ex), "message", sizeof("message"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_STRING(tmp, zend_get_executed_filename(TSRMLS_C), 1);
+ zend_hash_update(Z_OBJPROP_P(ex), "file", sizeof("file"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_LONG(tmp, zend_get_executed_lineno(TSRMLS_C));
+ zend_hash_update(Z_OBJPROP_P(ex), "line", sizeof("line"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ EG(exception) = ex;
+ }
+ intern->ptr = fptr;
+}
+
+ZEND_FUNCTION(reflection_function_getname)
+{
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC);
+}
+
+ZEND_FUNCTION(reflection_function_isinternal)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ RETURN_BOOL(fptr->type == ZEND_INTERNAL_FUNCTION);
+}
+
+ZEND_FUNCTION(reflection_function_isuserdefined)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ RETURN_BOOL(fptr->type == ZEND_USER_FUNCTION);
+}
+
+ZEND_FUNCTION(reflection_function_getfilename)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_STRING(fptr->op_array.filename, 1);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getstartline)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_LONG(fptr->op_array.line_start);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getendline)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_LONG(fptr->op_array.line_end);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getdoccomment)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ 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;
+}
+
+ZEND_FUNCTION(reflection_function_getstaticvariables)
+{
+ zval *object, *tmp_copy;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL || fptr->op_array.static_variables == NULL) {
+ RETURN_FALSE;
+ }
+ array_init(return_value);
+ 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 *));
+}
+
+ZEND_FUNCTION(reflection_function_invoke)
+{
+ zval *object, *tmp_copy, *retval_ptr;
+ zval ***params;
+ reflection_object *intern;
+ zend_function *fptr;
+ int argc = ZEND_NUM_ARGS();
+
+ object = getThis();
+ params = safe_emalloc(sizeof(zval **), argc, 0);
+ if (zend_get_parameters_array_ex(argc, params) == FAILURE) {
+ efree(params);
+ RETURN_FALSE;
+ }
+
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL || (fptr = intern->ptr) == NULL) {
+ efree(params);
+ RETURN_FALSE;
+ }
+ if(fast_call_user_function(EG(function_table), NULL, NULL,
+ &retval_ptr, argc, params,
+ 1, NULL, &fptr) == SUCCESS && retval_ptr) {
+ COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr);
+ }
+ efree(params);
+}
+#define PHP_ME_MAPPING(name, func_name, arg_types) \
+ ZEND_NAMED_FE(name, ZEND_FN(func_name), arg_types)
+
+static zend_function_entry reflection_function_functions[] = {
+ ZEND_FE(reflection_function, NULL)
+ ZEND_NAMED_FE(isinternal, ZEND_FN(reflection_function_isinternal), NULL)
+ ZEND_NAMED_FE(isuserdefined, ZEND_FN(reflection_function_isuserdefined), NULL)
+ ZEND_NAMED_FE(getname, ZEND_FN(reflection_function_getname), NULL)
+ ZEND_NAMED_FE(getfilename, ZEND_FN(reflection_function_getfilename), NULL)
+ ZEND_NAMED_FE(getstartline, ZEND_FN(reflection_function_getstartline), NULL)
+ ZEND_NAMED_FE(getendline, ZEND_FN(reflection_function_getendline), NULL)
+ ZEND_NAMED_FE(getdoccomment, ZEND_FN(reflection_function_getdoccomment), NULL)
+ ZEND_NAMED_FE(getstaticvariables, ZEND_FN(reflection_function_getstaticvariables), NULL)
+ ZEND_NAMED_FE(invoke, ZEND_FN(reflection_function_invoke), NULL)
+ {NULL, NULL, NULL}
+};
+
+ZEND_API void zend_register_reflection_api(TSRMLS_D) {
+ zend_class_entry _reflection_function;
+ memcpy(&reflection_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
+ INIT_CLASS_ENTRY(_reflection_function, "reflection_function", reflection_function_functions);
+ _reflection_function.create_object = reflection_objects_new;
+ reflection_function_ptr = zend_register_internal_class(&_reflection_function TSRMLS_CC);
+}
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
diff --git a/Zend/zend_reflection_api.h b/Zend/zend_reflection_api.h
new file mode 100644
index 0000000000..574eac5909
--- /dev/null
+++ b/Zend/zend_reflection_api.h
@@ -0,0 +1,38 @@
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2003 Zend Technologies Ltd. (http://www.zend.com) |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.00 of the Zend 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.zend.com/license/2_00.txt. |
+ | If you did not receive a copy of the Zend license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@zend.com so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: George Schlossnagle <george@omniti.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifndef ZEND_REFLECTION_API_H
+#define ZEND_REFLECTION_API_H
+
+BEGIN_EXTERN_C()
+
+ZEND_API void zend_register_reflection_api(TSRMLS_D);
+
+END_EXTERN_C()
+
+#endif
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
diff --git a/ext/reflection/php_reflection.c b/ext/reflection/php_reflection.c
new file mode 100644
index 0000000000..31e7091143
--- /dev/null
+++ b/ext/reflection/php_reflection.c
@@ -0,0 +1,348 @@
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2003 Zend Technologies Ltd. (http://www.zend.com) |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.00 of the Zend 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.zend.com/license/2_00.txt. |
+ | If you did not receive a copy of the Zend license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@zend.com so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: George Schlossnagle <george@omniti.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#include "zend.h"
+#include "zend_API.h"
+#include "zend_default_classes.h"
+
+extern zend_class_entry *default_exception_ptr;
+zend_class_entry *reflection_function_ptr;
+
+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;
+ }
+
+ *return_value = **value;
+ zval_copy_ctor(return_value);
+}
+
+typedef struct {
+ zend_object zo;
+ void *ptr;
+} reflection_object;
+
+static void reflection_objects_dtor(void *object, zend_object_handle handle TSRMLS_DC)
+{
+ zend_objects_destroy_object(object, handle TSRMLS_CC);
+}
+
+static void reflection_objects_clone(void *object, void **object_clone TSRMLS_DC)
+{
+ reflection_object *intern = (reflection_object *) object;
+ reflection_object **intern_clone = (reflection_object **) object_clone;
+
+ *intern_clone = emalloc(sizeof(reflection_object));
+ (*intern_clone)->zo.ce = intern->zo.ce;
+ (*intern_clone)->zo.in_get = 0;
+ (*intern_clone)->zo.in_set = 0;
+ ALLOC_HASHTABLE((*intern_clone)->zo.properties);
+ (*intern_clone)->ptr = intern->ptr;
+}
+
+ZEND_API zend_object_value reflection_objects_new(zend_class_entry *class_type TSRMLS_DC)
+{
+ zend_object_value retval;
+ reflection_object *intern;
+ zval *tmp;
+
+ intern = emalloc(sizeof(reflection_object));
+ intern->zo.ce = class_type;
+ intern->zo.in_get = 0;
+ intern->zo.in_set = 0;
+
+ ALLOC_HASHTABLE(intern->zo.properties);
+ zend_hash_init(intern->zo.properties, 0, NULL, ZVAL_PTR_DTOR, 0);
+ retval.handle = zend_objects_store_put(intern, reflection_objects_dtor, reflection_objects_clone TSRMLS_CC);
+ retval.handlers = &reflection_object_handlers;
+ return retval;
+}
+
+ZEND_FUNCTION(reflection_function)
+{
+ zval **name;
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ int argc = ZEND_NUM_ARGS();
+ if (zend_get_parameters_ex(argc, &name) == FAILURE) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ convert_to_string_ex(name);
+ zval_add_ref(name);
+ zend_hash_update(Z_OBJPROP_P(object), "name", sizeof("name"), (void **) name, sizeof(zval *), NULL);
+ if(zend_hash_find(EG(function_table), (char *)Z_STRVAL_PP(name), (int)(Z_STRLEN_PP(name) + 1), (void **)&fptr) == FAILURE) {
+ zval *ex;
+ zval *tmp;
+ MAKE_STD_ZVAL(ex);
+ object_init_ex(ex, default_exception_ptr);
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_STRING(tmp, "Function does not exist", 1);
+ zend_hash_update(Z_OBJPROP_P(ex), "message", sizeof("message"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_STRING(tmp, zend_get_executed_filename(TSRMLS_C), 1);
+ zend_hash_update(Z_OBJPROP_P(ex), "file", sizeof("file"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ MAKE_STD_ZVAL(tmp);
+ ZVAL_LONG(tmp, zend_get_executed_lineno(TSRMLS_C));
+ zend_hash_update(Z_OBJPROP_P(ex), "line", sizeof("line"), (void **) &tmp, sizeof(zval *), NULL);
+ tmp = NULL;
+
+ EG(exception) = ex;
+ }
+ intern->ptr = fptr;
+}
+
+ZEND_FUNCTION(reflection_function_getname)
+{
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ _default_get_entry(getThis(), "name", sizeof("name"), return_value TSRMLS_CC);
+}
+
+ZEND_FUNCTION(reflection_function_isinternal)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ RETURN_BOOL(fptr->type == ZEND_INTERNAL_FUNCTION);
+}
+
+ZEND_FUNCTION(reflection_function_isuserdefined)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ RETURN_BOOL(fptr->type == ZEND_USER_FUNCTION);
+}
+
+ZEND_FUNCTION(reflection_function_getfilename)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_STRING(fptr->op_array.filename, 1);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getstartline)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ return;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ return;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_LONG(fptr->op_array.line_start);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getendline)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ if(fptr->type == ZEND_USER_FUNCTION) {
+ RETURN_LONG(fptr->op_array.line_end);
+ }
+ RETURN_FALSE;
+}
+
+ZEND_FUNCTION(reflection_function_getdoccomment)
+{
+ zval *object;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL) {
+ RETURN_FALSE;
+ }
+ 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;
+}
+
+ZEND_FUNCTION(reflection_function_getstaticvariables)
+{
+ zval *object, *tmp_copy;
+ reflection_object *intern;
+ zend_function *fptr;
+
+ if (ZEND_NUM_ARGS() > 0) {
+ ZEND_WRONG_PARAM_COUNT();
+ }
+ object = getThis();
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL) {
+ RETURN_FALSE;
+ }
+ if((fptr = intern->ptr) == NULL || fptr->op_array.static_variables == NULL) {
+ RETURN_FALSE;
+ }
+ array_init(return_value);
+ 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 *));
+}
+
+ZEND_FUNCTION(reflection_function_invoke)
+{
+ zval *object, *tmp_copy, *retval_ptr;
+ zval ***params;
+ reflection_object *intern;
+ zend_function *fptr;
+ int argc = ZEND_NUM_ARGS();
+
+ object = getThis();
+ params = safe_emalloc(sizeof(zval **), argc, 0);
+ if (zend_get_parameters_array_ex(argc, params) == FAILURE) {
+ efree(params);
+ RETURN_FALSE;
+ }
+
+ intern = (reflection_object *) zend_object_store_get_object(object);
+ if(intern == NULL || (fptr = intern->ptr) == NULL) {
+ efree(params);
+ RETURN_FALSE;
+ }
+ if(fast_call_user_function(EG(function_table), NULL, NULL,
+ &retval_ptr, argc, params,
+ 1, NULL, &fptr) == SUCCESS && retval_ptr) {
+ COPY_PZVAL_TO_ZVAL(*return_value, retval_ptr);
+ }
+ efree(params);
+}
+#define PHP_ME_MAPPING(name, func_name, arg_types) \
+ ZEND_NAMED_FE(name, ZEND_FN(func_name), arg_types)
+
+static zend_function_entry reflection_function_functions[] = {
+ ZEND_FE(reflection_function, NULL)
+ ZEND_NAMED_FE(isinternal, ZEND_FN(reflection_function_isinternal), NULL)
+ ZEND_NAMED_FE(isuserdefined, ZEND_FN(reflection_function_isuserdefined), NULL)
+ ZEND_NAMED_FE(getname, ZEND_FN(reflection_function_getname), NULL)
+ ZEND_NAMED_FE(getfilename, ZEND_FN(reflection_function_getfilename), NULL)
+ ZEND_NAMED_FE(getstartline, ZEND_FN(reflection_function_getstartline), NULL)
+ ZEND_NAMED_FE(getendline, ZEND_FN(reflection_function_getendline), NULL)
+ ZEND_NAMED_FE(getdoccomment, ZEND_FN(reflection_function_getdoccomment), NULL)
+ ZEND_NAMED_FE(getstaticvariables, ZEND_FN(reflection_function_getstaticvariables), NULL)
+ ZEND_NAMED_FE(invoke, ZEND_FN(reflection_function_invoke), NULL)
+ {NULL, NULL, NULL}
+};
+
+ZEND_API void zend_register_reflection_api(TSRMLS_D) {
+ zend_class_entry _reflection_function;
+ memcpy(&reflection_object_handlers, zend_get_std_object_handlers(), sizeof(zend_object_handlers));
+ INIT_CLASS_ENTRY(_reflection_function, "reflection_function", reflection_function_functions);
+ _reflection_function.create_object = reflection_objects_new;
+ reflection_function_ptr = zend_register_internal_class(&_reflection_function TSRMLS_CC);
+}
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
diff --git a/ext/reflection/php_reflection.h b/ext/reflection/php_reflection.h
new file mode 100644
index 0000000000..574eac5909
--- /dev/null
+++ b/ext/reflection/php_reflection.h
@@ -0,0 +1,38 @@
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2003 Zend Technologies Ltd. (http://www.zend.com) |
+ +----------------------------------------------------------------------+
+ | This source file is subject to version 2.00 of the Zend 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.zend.com/license/2_00.txt. |
+ | If you did not receive a copy of the Zend license and are unable to |
+ | obtain it through the world-wide-web, please send a note to |
+ | license@zend.com so we can mail you a copy immediately. |
+ +----------------------------------------------------------------------+
+ | Authors: George Schlossnagle <george@omniti.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#ifndef ZEND_REFLECTION_API_H
+#define ZEND_REFLECTION_API_H
+
+BEGIN_EXTERN_C()
+
+ZEND_API void zend_register_reflection_api(TSRMLS_D);
+
+END_EXTERN_C()
+
+#endif
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
View Lorry Controller Status