1 /*******************************************************************************
2 Copyright (c) 2016, Michael Wallner <mike@php.net>.
5 Redistribution and use in source and binary forms, with or without
6 modification, are permitted provided that the following conditions are met:
8 * Redistributions of source code must retain the above copyright notice,
9 this list of conditions and the following disclaimer.
10 * Redistributions in binary form must reproduce the above copyright
11 notice, this list of conditions and the following disclaimer in the
12 documentation and/or other materials provided with the distribution.
14 THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
15 AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
17 DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE
18 FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
20 SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
21 CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
22 OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
23 OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
24 *******************************************************************************/
29 # include "php_config.h"
34 #include "ext/standard/info.h"
35 #include "zend_constants.h"
36 #include "zend_operators.h"
46 # define PSI_ENGINE "jit"
51 # define PSI_ENGINE "ffi"
54 ZEND_DECLARE_MODULE_GLOBALS(psi
);
56 //#define ZEND_INI_MH(name) int name(zend_ini_entry *entry, zend_string *new_value, void *mh_arg1, void *mh_arg2, void *mh_arg3, int stage)
58 static void OnUpdateBlacklist(const char *str
, void (*cb
)(const char*, size_t))
65 end
= strchr(str
, ',');
79 static ZEND_INI_MH(OnUpdateBlacklistedDecls
)
81 OnUpdateBlacklist(new_value
->val
, psi_blacklist_add_decl
);
85 static ZEND_INI_MH(OnUpdateBlacklistedVars
)
87 OnUpdateBlacklist(new_value
->val
, psi_blacklist_add_var
);
91 static void OnDisplayBlacklist(struct psi_plist
*bl
)
96 while (psi_plist_get(bl
, i
++, &item
)) {
103 static ZEND_INI_DISP(OnDisplayBlacklistedDecls
)
105 OnDisplayBlacklist(PSI_G(blacklist
).decls
);
107 static ZEND_INI_DISP(OnDisplayBlacklistedVars
)
109 OnDisplayBlacklist(PSI_G(blacklist
).vars
);
113 STD_PHP_INI_ENTRY("psi.engine", PSI_ENGINE
, PHP_INI_SYSTEM
, OnUpdateString
, engine
, zend_psi_globals
, psi_globals
)
114 STD_PHP_INI_ENTRY("psi.directory", "psi.d", PHP_INI_SYSTEM
, OnUpdateString
, directory
, zend_psi_globals
, psi_globals
)
115 PHP_INI_ENTRY_EX("psi.blacklist.decls", "", PHP_INI_SYSTEM
, OnUpdateBlacklistedDecls
, OnDisplayBlacklistedDecls
)
116 PHP_INI_ENTRY_EX("psi.blacklist.vars", "", PHP_INI_SYSTEM
, OnUpdateBlacklistedVars
, OnDisplayBlacklistedVars
)
119 static zend_object_handlers psi_object_handlers
;
120 static zend_class_entry
*psi_class_entry
;
122 zend_class_entry
*psi_object_get_class_entry();
123 zend_class_entry
*psi_object_get_class_entry()
125 return psi_class_entry
;
128 static void psi_object_free(zend_object
*o
)
130 psi_object
*obj
= PSI_OBJ(NULL
, o
);
134 obj
->dtor(obj
->data
);
138 zend_object_std_dtor(o
);
141 zend_object
*psi_object_init_ex(zend_class_entry
*ce
, void *data
, void (*dtor
)(void *))
146 ce
= psi_class_entry
;
149 o
= ecalloc(1, sizeof(*o
) + zend_object_properties_size(ce
));
154 zend_object_std_init(&o
->std
, ce
);
155 object_properties_init(&o
->std
, ce
);
156 o
->std
.handlers
= &psi_object_handlers
;
160 zend_object
*psi_object_init(zend_class_entry
*ce
)
162 return psi_object_init_ex(ce
, NULL
, NULL
);
165 ZEND_BEGIN_ARG_INFO_EX(ai_psi_dump
, 0, 0, 0)
166 ZEND_ARG_INFO(0, stream
)
168 static PHP_FUNCTION(psi_dump
)
172 struct psi_dump dump
= {.fun
= (psi_dump_cb
) php_stream_printf
};
174 if (SUCCESS
!= zend_parse_parameters(ZEND_NUM_ARGS(), "|r!", &r
)) {
178 php_stream_from_zval(s
, r
);
181 dump
.ctx
.hn
= php_stream_open_wrapper("php://output", "w", REPORT_ERRORS
, NULL
);
183 psi_context_dump(&dump
, PSI_G(context
));
186 ZEND_BEGIN_ARG_INFO_EX(ai_psi_validate
, 0, 0, 1)
187 ZEND_ARG_INFO(0, file
)
188 ZEND_ARG_INFO(0, flags
)
189 ZEND_ARG_INFO(1, errcnt
)
191 static PHP_FUNCTION(psi_validate
)
194 struct psi_parser_input
*I
;
196 struct psi_data D
= {0};
197 struct psi_validate_scope S
= {0};
202 if (psi_check_env("PSI_DEBUG")) {
207 if (SUCCESS
!= zend_parse_parameters(ZEND_NUM_ARGS(), "P|lz", &file
, &flags
, &errcnt
)) {
211 if (!psi_parser_init(&P
, psi_error_wrapper
, flags
)) {
214 if (!(I
= psi_parser_open_file(&P
, file
->val
, true))) {
219 psi_parser_parse(&P
, I
);
220 psi_data_ctor(&D
, P
.error
, P
.flags
);
221 psi_validate_scope_ctor(&S
);
224 RETVAL_BOOL(psi_validate(&S
, &D
, PSI_DATA(&P
)));
228 convert_to_long(errcnt
);
229 ZVAL_LONG(errcnt
, P
.errors
);
232 psi_validate_scope_dtor(&S
);
235 psi_parser_input_free(&I
);
238 ZEND_BEGIN_ARG_INFO_EX(ai_psi_validate_string
, 0, 0, 1)
239 ZEND_ARG_INFO(0, string
)
240 ZEND_ARG_INFO(0, flags
)
241 ZEND_ARG_INFO(1, errcnt
)
243 static PHP_FUNCTION(psi_validate_string
)
246 struct psi_parser_input
*I
;
248 struct psi_data D
= {0};
249 struct psi_validate_scope S
= {0};
254 if (psi_check_env("PSI_DEBUG")) {
259 if (SUCCESS
!= zend_parse_parameters(ZEND_NUM_ARGS(), "S|lz", &string
, &flags
, &errcnt
)) {
263 if (!psi_parser_init(&P
, psi_error_wrapper
, flags
)) {
266 if (!(I
= psi_parser_open_string(&P
, string
->val
, string
->len
))) {
271 psi_parser_parse(&P
, I
);
272 psi_data_ctor(&D
, P
.error
, P
.flags
);
273 psi_validate_scope_ctor(&S
);
276 RETVAL_BOOL(psi_validate(&S
, &D
, PSI_DATA(&P
)));
280 convert_to_long(errcnt
);
281 ZVAL_LONG(errcnt
, P
.errors
);
284 psi_validate_scope_dtor(&S
);
287 psi_parser_input_free(&I
);
290 PHP_MINIT_FUNCTION(psi_debug
);
291 PHP_MINIT_FUNCTION(psi_cpp
);
292 PHP_MINIT_FUNCTION(psi_builtin
);
293 PHP_MINIT_FUNCTION(psi_context
);
294 static PHP_MINIT_FUNCTION(psi
)
296 zend_class_entry ce
= {0};
298 REGISTER_INI_ENTRIES();
300 zend_register_long_constant(ZEND_STRL("PSI_DEBUG"), PSI_DEBUG
, CONST_CS
|CONST_PERSISTENT
, module_number
);
301 zend_register_long_constant(ZEND_STRL("PSI_SILENT"), PSI_SILENT
, CONST_CS
|CONST_PERSISTENT
, module_number
);
303 INIT_NS_CLASS_ENTRY(ce
, "psi", "object", NULL
);
304 psi_class_entry
= zend_register_internal_class_ex(&ce
, NULL
);
305 psi_class_entry
->create_object
= psi_object_init
;
307 memcpy(&psi_object_handlers
, zend_get_std_object_handlers(), sizeof(zend_object_handlers
));
308 psi_object_handlers
.offset
= XtOffsetOf(psi_object
, std
);
309 psi_object_handlers
.free_obj
= psi_object_free
;
310 psi_object_handlers
.clone_obj
= NULL
;
312 if (SUCCESS
!= PHP_MINIT(psi_debug
)(type
, module_number
)) {
315 if (SUCCESS
!= PHP_MINIT(psi_builtin
)(type
, module_number
)) {
318 if (SUCCESS
!= PHP_MINIT(psi_cpp
)(type
, module_number
)) {
321 if (SUCCESS
!= PHP_MINIT(psi_context
)(type
, module_number
)) {
328 PHP_MSHUTDOWN_FUNCTION(psi_cpp
);
329 PHP_MSHUTDOWN_FUNCTION(psi_builtin
);
330 PHP_MSHUTDOWN_FUNCTION(psi_context
);
331 PHP_MSHUTDOWN_FUNCTION(psi_debug
);
332 static PHP_MSHUTDOWN_FUNCTION(psi
)
334 PHP_MSHUTDOWN(psi_context
)(type
, module_number
);
335 PHP_MSHUTDOWN(psi_cpp
)(type
, module_number
);
336 PHP_MSHUTDOWN(psi_builtin
)(type
, module_number
);
337 PHP_MSHUTDOWN(psi_debug
)(type
, module_number
);
339 UNREGISTER_INI_ENTRIES();
344 #if defined(COMPILE_DL_PSI) && defined(ZTS)
345 static PHP_RINIT_FUNCTION(psi
)
347 ZEND_TSRMLS_CACHE_UPDATE();
352 static PHP_MINFO_FUNCTION(psi
)
354 php_info_print_table_start();
355 php_info_print_table_header(2, "PSI Support", "enabled");
356 php_info_print_table_row(2, "Extension Version", PHP_PSI_VERSION
);
357 php_info_print_table_row(2, "Search Path", PSI_G(search_path
));
358 php_info_print_table_end();
360 php_info_print_table_start();
361 php_info_print_table_header(3, "Used Library", "Compiled", "Linked");
362 php_info_print_table_row(3, "libffi",
363 #ifndef PHP_PSI_LIBFFI_VERSION
364 # define PHP_PSI_LIBFFI_VERSION "unknown"
367 PHP_PSI_LIBFFI_VERSION
, "unknown"
369 "disabled", "disabled"
372 php_info_print_table_row(3, "libjit",
376 "disabled", "disabled"
380 DISPLAY_INI_ENTRIES();
383 static void ptr_free(void *ptr
)
385 free(*(void **) ptr
);
388 void psi_blacklist_add_decl(const char *pattern
, size_t len
)
390 char *tmp
= strndup(pattern
, len
);
391 struct psi_plist
**decls
= &PSI_G(blacklist
).decls
;
393 *decls
= psi_plist_add(*decls
, &tmp
);
396 void psi_blacklist_add_var(const char *pattern
, size_t len
)
398 char *tmp
= strndup(pattern
, len
);
399 struct psi_plist
**vars
= &PSI_G(blacklist
).vars
;
401 *vars
= psi_plist_add(*vars
, &tmp
);
404 static PHP_GINIT_FUNCTION(psi
)
407 struct psi_plist
**bl_decls
= &psi_globals
->blacklist
.decls
;
408 struct psi_plist
**bl_vars
= &psi_globals
->blacklist
.vars
;
410 *bl_decls
= psi_plist_init(ptr_free
);
411 *bl_vars
= psi_plist_init(ptr_free
);
413 #define BL_ADD(D, d) \
415 *D = psi_plist_add(*D, &tmp)
416 #define BL_DECL_ADD(d) BL_ADD(bl_decls, d)
417 #define BL_VAR_ADD(d) BL_ADD(bl_vars, d)
419 BL_DECL_ADD("dlsym");
420 BL_DECL_ADD("alloca");
421 BL_DECL_ADD("atexit");
422 BL_DECL_ADD("at_quick_exit");
425 BL_DECL_ADD("_IO_cookie_init");
426 BL_DECL_ADD("bindresvport6");
429 BL_DECL_ADD("*v*printf");
430 BL_DECL_ADD("*v*scanf");
431 BL_DECL_ADD("vsyslog");
433 /* LFS/LFO for 32bit */
434 BL_DECL_ADD("*stat*64");
435 BL_DECL_ADD("*glob*64");
437 BL_DECL_ADD("getumask");
439 /* using hidden structs */
440 BL_VAR_ADD("_IO_2_*");
443 static PHP_GSHUTDOWN_FUNCTION(psi
)
445 psi_plist_free(psi_globals
->blacklist
.decls
);
448 static const zend_function_entry psi_functions
[] = {
449 PHP_FE(psi_dump
, ai_psi_dump
)
450 PHP_FE(psi_validate
, ai_psi_validate
)
451 PHP_FE(psi_validate_string
, ai_psi_validate_string
)
455 static const zend_module_dep psi_deps
[] = {
456 ZEND_MOD_REQUIRED("standard")
460 zend_module_entry psi_module_entry
= {
461 STANDARD_MODULE_HEADER_EX
,
468 #if defined(COMPILE_DL_PSI) && defined(ZTS)
469 PHP_RINIT(psi
), /* Replace with NULL if there's nothing to do at request start */
476 ZEND_MODULE_GLOBALS(psi
),
479 NULL
, /* post-deactivate */
480 STANDARD_MODULE_PROPERTIES_EX
483 #ifdef COMPILE_DL_PSI
485 ZEND_TSRMLS_CACHE_DEFINE();
495 * vim600: noet sw=4 ts=4 fdm=marker
496 * vim<600: noet sw=4 ts=4