-/*\r
- +----------------------------------------------------------------------+\r
- | Zend Engine |\r
- +----------------------------------------------------------------------+\r
- | Copyright (c) 1998-2009 Zend Technologies Ltd. (http://www.zend.com) |\r
- +----------------------------------------------------------------------+\r
- | This source file is subject to version 2.00 of the Zend license, |\r
- | that is bundled with this package in the file LICENSE, and is |\r
- | available through the world-wide-web at the following url: |\r
- | http://www.zend.com/license/2_00.txt. |\r
- | If you did not receive a copy of the Zend license and are unable to |\r
- | obtain it through the world-wide-web, please send a note to |\r
- | license@zend.com so we can mail you a copy immediately. |\r
- +----------------------------------------------------------------------+\r
- | Authors: David Soria Parra <david.soriaparra@sun.com> |\r
- +----------------------------------------------------------------------+\r
-*/\r
-\r
-/* $Id: $ */\r
-\r
-#include "zend.h"\r
-#include "zend_API.h"\r
-#include "zend_dtrace.h"\r
-\r
-#ifdef HAVE_DTRACE\r
-/* PHP DTrace probes {{{ */\r
-static inline char *dtrace_get_executed_filename(TSRMLS_D)\r
-{\r
- if (EG(current_execute_data) && EG(current_execute_data)->op_array) {\r
- return EG(current_execute_data)->op_array->filename;\r
- } else {\r
- return zend_get_executed_filename(TSRMLS_C);\r
- }\r
-}\r
-\r
-ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC)\r
-{\r
- zend_op_array *res;\r
- DTRACE_COMPILE_FILE_ENTRY(file_handle->opened_path, file_handle->filename);\r
- res = compile_file(file_handle, type TSRMLS_CC);\r
- DTRACE_COMPILE_FILE_RETURN(file_handle->opened_path, file_handle->filename);\r
-\r
- return res;\r
-}\r
-\r
-/* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */\r
-ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC)\r
-{\r
- int lineno, s_funcname_len, s_classname_len;\r
- char *scope, *filename, *s_funcname, *s_classname;\r
- zstr classname, funcname;\r
-\r
- scope = filename = s_funcname = s_classname = NULL;\r
- classname = funcname = EMPTY_ZSTR;\r
-\r
- /* we need filename and lineno for both execute and function probes */\r
- if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()\r
- || DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {\r
- filename = dtrace_get_executed_filename(TSRMLS_C);\r
- lineno = zend_get_executed_lineno(TSRMLS_C);\r
- }\r
-\r
- if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {\r
- funcname = get_active_function_name(TSRMLS_C);\r
- classname = get_active_class_name(&scope TSRMLS_CC);\r
-\r
- /* We encode everything to utf8 so that we have a predictable output */\r
- if (funcname.u != NULL)\r
- zend_unicode_to_string(ZEND_U_CONVERTER(UG(utf8_conv)), &s_funcname, &s_funcname_len, funcname.u, u_strlen(funcname.u) TSRMLS_CC);\r
-\r
- /* classname might be EMPTY_STR, in that case we have pass NULL to the probe, so that\r
- we use appropriate predicates in our dtrace scripts to detect if we are in class context */\r
- if (u_strlen(classname.u) > 0)\r
- zend_unicode_to_string(ZEND_U_CONVERTER(UG(utf8_conv)), &s_classname, &s_classname_len, classname.u, u_strlen(classname.u) TSRMLS_CC);\r
- }\r
-\r
- if (DTRACE_EXECUTE_ENTRY_ENABLED()) {\r
- DTRACE_EXECUTE_ENTRY(filename, lineno);\r
- }\r
-\r
- if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname.u != NULL) {\r
- DTRACE_FUNCTION_ENTRY(s_funcname, filename, lineno, s_classname, scope);\r
- }\r
-\r
- execute(op_array TSRMLS_CC);\r
-\r
- if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname.u != NULL) {\r
- DTRACE_FUNCTION_RETURN(s_funcname, filename, lineno, s_classname, scope);\r
- }\r
-\r
- if (DTRACE_EXECUTE_RETURN_ENABLED()) {\r
- DTRACE_EXECUTE_RETURN(filename, lineno);\r
- }\r
-\r
- if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {\r
- /* s_funcname and s_classname were allocated by zend_unicode_to_string */\r
- if (s_funcname != NULL)\r
- efree(s_funcname);\r
- if (s_classname != NULL)\r
- efree(s_classname);\r
- }\r
-}\r
-\r
-ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC)\r
-{\r
- int lineno;\r
- char *filename;\r
- if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()) {\r
- filename = dtrace_get_executed_filename(TSRMLS_C);\r
- lineno = zend_get_executed_lineno(TSRMLS_C);\r
- }\r
-\r
- DTRACE_EXECUTE_ENTRY(filename, lineno);\r
-\r
- execute_internal(execute_data_ptr, return_value_used TSRMLS_CC);\r
-\r
- DTRACE_EXECUTE_RETURN(filename, lineno);\r
-}\r
-\r
-/* }}} */\r
-#endif /* HAVE_DTRACE */\r
-\r
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2009 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: David Soria Parra <david.soriaparra@sun.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id: $ */
+
+#include "zend.h"
+#include "zend_API.h"
+#include "zend_dtrace.h"
+
+#ifdef HAVE_DTRACE
+/* PHP DTrace probes {{{ */
+static inline char *dtrace_get_executed_filename(TSRMLS_D)
+{
+ if (EG(current_execute_data) && EG(current_execute_data)->op_array) {
+ return EG(current_execute_data)->op_array->filename;
+ } else {
+ return zend_get_executed_filename(TSRMLS_C);
+ }
+}
+
+ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC)
+{
+ zend_op_array *res;
+ DTRACE_COMPILE_FILE_ENTRY(file_handle->opened_path, file_handle->filename);
+ res = compile_file(file_handle, type TSRMLS_CC);
+ DTRACE_COMPILE_FILE_RETURN(file_handle->opened_path, file_handle->filename);
+
+ return res;
+}
+
+/* We wrap the execute function to have fire the execute-entry/return and function-entry/return probes */
+ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC)
+{
+ int lineno, s_funcname_len, s_classname_len;
+ char *scope, *filename, *s_funcname, *s_classname;
+ zstr classname, funcname;
+
+ scope = filename = s_funcname = s_classname = NULL;
+ classname = funcname = EMPTY_ZSTR;
+
+ /* we need filename and lineno for both execute and function probes */
+ if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()
+ || DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
+ filename = dtrace_get_executed_filename(TSRMLS_C);
+ lineno = zend_get_executed_lineno(TSRMLS_C);
+ }
+
+ if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
+ funcname = get_active_function_name(TSRMLS_C);
+ classname = get_active_class_name(&scope TSRMLS_CC);
+
+ /* We encode everything to utf8 so that we have a predictable output */
+ if (funcname.u != NULL)
+ zend_unicode_to_string(ZEND_U_CONVERTER(UG(utf8_conv)), &s_funcname, &s_funcname_len, funcname.u, u_strlen(funcname.u) TSRMLS_CC);
+
+ /* classname might be EMPTY_STR, in that case we have pass NULL to the probe, so that
+ we use appropriate predicates in our dtrace scripts to detect if we are in class context */
+ if (u_strlen(classname.u) > 0)
+ zend_unicode_to_string(ZEND_U_CONVERTER(UG(utf8_conv)), &s_classname, &s_classname_len, classname.u, u_strlen(classname.u) TSRMLS_CC);
+ }
+
+ if (DTRACE_EXECUTE_ENTRY_ENABLED()) {
+ DTRACE_EXECUTE_ENTRY(filename, lineno);
+ }
+
+ if (DTRACE_FUNCTION_ENTRY_ENABLED() && funcname.u != NULL) {
+ DTRACE_FUNCTION_ENTRY(s_funcname, filename, lineno, s_classname, scope);
+ }
+
+ execute(op_array TSRMLS_CC);
+
+ if (DTRACE_FUNCTION_RETURN_ENABLED() && funcname.u != NULL) {
+ DTRACE_FUNCTION_RETURN(s_funcname, filename, lineno, s_classname, scope);
+ }
+
+ if (DTRACE_EXECUTE_RETURN_ENABLED()) {
+ DTRACE_EXECUTE_RETURN(filename, lineno);
+ }
+
+ if (DTRACE_FUNCTION_ENTRY_ENABLED() || DTRACE_FUNCTION_RETURN_ENABLED()) {
+ /* s_funcname and s_classname were allocated by zend_unicode_to_string */
+ if (s_funcname != NULL)
+ efree(s_funcname);
+ if (s_classname != NULL)
+ efree(s_classname);
+ }
+}
+
+ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC)
+{
+ int lineno;
+ char *filename;
+ if (DTRACE_EXECUTE_ENTRY_ENABLED() || DTRACE_EXECUTE_RETURN_ENABLED()) {
+ filename = dtrace_get_executed_filename(TSRMLS_C);
+ lineno = zend_get_executed_lineno(TSRMLS_C);
+ }
+
+ DTRACE_EXECUTE_ENTRY(filename, lineno);
+
+ execute_internal(execute_data_ptr, return_value_used TSRMLS_CC);
+
+ DTRACE_EXECUTE_RETURN(filename, lineno);
+}
+
+/* }}} */
+#endif /* HAVE_DTRACE */
+
-/*\r
- +----------------------------------------------------------------------+\r
- | Zend Engine |\r
- +----------------------------------------------------------------------+\r
- | Copyright (c) 1998-2009 Zend Technologies Ltd. (http://www.zend.com) |\r
- +----------------------------------------------------------------------+\r
- | This source file is subject to version 2.00 of the Zend license, |\r
- | that is bundled with this package in the file LICENSE, and is |\r
- | available through the world-wide-web at the following url: |\r
- | http://www.zend.com/license/2_00.txt. |\r
- | If you did not receive a copy of the Zend license and are unable to |\r
- | obtain it through the world-wide-web, please send a note to |\r
- | license@zend.com so we can mail you a copy immediately. |\r
- +----------------------------------------------------------------------+\r
- | Authors: David Soria Parra <david.soriaparra@sun.com> |\r
- +----------------------------------------------------------------------+\r
-*/\r
-\r
-/* $Id: $ */\r
-\r
-provider php {\r
- probe exception__caught(char *classname);\r
- probe exception__thrown(char* classname);\r
- probe request__startup(char* request_file, char* request_uri, char* request_method);\r
- probe request__shutdown(char* request_file, char* request_uri, char* request_method);\r
- probe compile__file__entry(char * compile_file, char *compile_file_translated);\r
- probe compile__file__return(char *compile_file, char *compile_file_translated);\r
- probe error(char *errormsg, char *request_file, int lineno);\r
- probe execute__entry(char* request_file, int lineno);\r
- probe execute__return(char* request_file, int lineno);\r
- probe function__entry(char* function_name, char* request_file, int lineno, char* classname, char* scope);\r
- probe function__return(char* function_name, char* request_file, int lineno, char* classname, char* scope);\r
-};\r
-\r
-#pragma D attributes Evolving/Evolving/Common provider php provider\r
-#pragma D attributes Private/Private/Unknown provider php module\r
-#pragma D attributes Private/Private/Unknown provider php function\r
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2009 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: David Soria Parra <david.soriaparra@sun.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id: $ */
+
+provider php {
+ probe exception__caught(char *classname);
+ probe exception__thrown(char* classname);
+ probe request__startup(char* request_file, char* request_uri, char* request_method);
+ probe request__shutdown(char* request_file, char* request_uri, char* request_method);
+ probe compile__file__entry(char * compile_file, char *compile_file_translated);
+ probe compile__file__return(char *compile_file, char *compile_file_translated);
+ probe error(char *errormsg, char *request_file, int lineno);
+ probe execute__entry(char* request_file, int lineno);
+ probe execute__return(char* request_file, int lineno);
+ probe function__entry(char* function_name, char* request_file, int lineno, char* classname, char* scope);
+ probe function__return(char* function_name, char* request_file, int lineno, char* classname, char* scope);
+};
+
+#pragma D attributes Evolving/Evolving/Common provider php provider
+#pragma D attributes Private/Private/Unknown provider php module
+#pragma D attributes Private/Private/Unknown provider php function
-/*\r
- +----------------------------------------------------------------------+\r
- | Zend Engine |\r
- +----------------------------------------------------------------------+\r
- | Copyright (c) 1998-2009 Zend Technologies Ltd. (http://www.zend.com) |\r
- +----------------------------------------------------------------------+\r
- | This source file is subject to version 2.00 of the Zend license, |\r
- | that is bundled with this package in the file LICENSE, and is |\r
- | available through the world-wide-web at the following url: |\r
- | http://www.zend.com/license/2_00.txt. |\r
- | If you did not receive a copy of the Zend license and are unable to |\r
- | obtain it through the world-wide-web, please send a note to |\r
- | license@zend.com so we can mail you a copy immediately. |\r
- +----------------------------------------------------------------------+\r
- | Authors: David Soria Parra <david.soriaparra@sun.com> |\r
- +----------------------------------------------------------------------+\r
-*/\r
-\r
-/* $Id: $ */\r
-\r
-#ifndef _ZEND_DTRACE_H\r
-#define _ZEND_DTRACE_H\r
-\r
-#ifndef ZEND_WIN32\r
-# include <unistd.h>\r
-#endif\r
-\r
-#ifdef __cplusplus\r
-extern "C" {\r
-#endif\r
-\r
-#ifdef HAVE_DTRACE\r
-ZEND_API zend_op_array *(*zend_dtrace_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);\r
-ZEND_API void (*zend_dtrace_execute)(zend_op_array *op_array TSRMLS_DC);\r
-ZEND_API void (*zend_dtrace_execute_internal)(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC);\r
-\r
-ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC);\r
-ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC);\r
-ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC);\r
-#include <zend_dtrace_gen.h>\r
-\r
-#endif /* HAVE_DTRACE */\r
-\r
-#ifdef __cplusplus\r
-}\r
-#endif\r
-\r
-#endif /* _ZEND_DTRACE_H */\r
+/*
+ +----------------------------------------------------------------------+
+ | Zend Engine |
+ +----------------------------------------------------------------------+
+ | Copyright (c) 1998-2009 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: David Soria Parra <david.soriaparra@sun.com> |
+ +----------------------------------------------------------------------+
+*/
+
+/* $Id: $ */
+
+#ifndef _ZEND_DTRACE_H
+#define _ZEND_DTRACE_H
+
+#ifndef ZEND_WIN32
+# include <unistd.h>
+#endif
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#ifdef HAVE_DTRACE
+ZEND_API zend_op_array *(*zend_dtrace_compile_file)(zend_file_handle *file_handle, int type TSRMLS_DC);
+ZEND_API void (*zend_dtrace_execute)(zend_op_array *op_array TSRMLS_DC);
+ZEND_API void (*zend_dtrace_execute_internal)(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC);
+
+ZEND_API zend_op_array *dtrace_compile_file(zend_file_handle *file_handle, int type TSRMLS_DC);
+ZEND_API void dtrace_execute(zend_op_array *op_array TSRMLS_DC);
+ZEND_API void dtrace_execute_internal(zend_execute_data *execute_data_ptr, int return_value_used TSRMLS_DC);
+#include <zend_dtrace_gen.h>
+
+#endif /* HAVE_DTRACE */
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /* _ZEND_DTRACE_H */
projects / php / commitdiff