2013-11-13 19:32:21 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| PHP Version 5 |
|
|
|
|
+----------------------------------------------------------------------+
|
2014-01-17 22:09:07 +00:00
|
|
|
| Copyright (c) 1997-2014 The PHP Group |
|
2013-11-13 19:32:21 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| 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: Felipe Pena <felipe@php.net> |
|
|
|
|
| Authors: Joe Watkins <joe.watkins@live.co.uk> |
|
2013-12-18 10:02:50 +00:00
|
|
|
| Authors: Bob Weinand <bwoebi@php.net> |
|
2013-11-13 19:32:21 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "phpdbg.h"
|
|
|
|
#include "phpdbg_print.h"
|
|
|
|
#include "phpdbg_utils.h"
|
|
|
|
#include "phpdbg_opcode.h"
|
|
|
|
#include "phpdbg_break.h"
|
|
|
|
#include "phpdbg_bp.h"
|
2014-02-19 20:18:49 +00:00
|
|
|
#include "phpdbg_prompt.h"
|
2013-11-13 19:32:21 +00:00
|
|
|
|
|
|
|
ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
|
|
|
|
|
2014-02-19 20:18:49 +00:00
|
|
|
#define PHPDBG_BREAK_COMMAND_D(f, h, a, m, l, s) \
|
|
|
|
PHPDBG_COMMAND_D_EXP(f, h, a, m, l, s, &phpdbg_prompt_commands[10])
|
|
|
|
|
2014-02-02 16:35:28 +00:00
|
|
|
/**
|
|
|
|
* Commands
|
|
|
|
*/
|
|
|
|
const phpdbg_command_t phpdbg_break_commands[] = {
|
2014-02-19 20:18:49 +00:00
|
|
|
PHPDBG_BREAK_COMMAND_D(file, "specify breakpoint by file:line", 'F', break_file, NULL, "f"),
|
|
|
|
PHPDBG_BREAK_COMMAND_D(func, "specify breakpoint by global function name", 'f', break_func, NULL, "s"),
|
|
|
|
PHPDBG_BREAK_COMMAND_D(method, "specify breakpoint by class::method", 'm', break_method, NULL, "m"),
|
|
|
|
PHPDBG_BREAK_COMMAND_D(address, "specify breakpoint by address", 'a', break_address, NULL, "a"),
|
2014-02-21 14:44:16 +00:00
|
|
|
PHPDBG_BREAK_COMMAND_D(op, "specify breakpoint by opcode", 'o', break_op, NULL, "s"),
|
2014-02-19 20:18:49 +00:00
|
|
|
PHPDBG_BREAK_COMMAND_D(at, "specify breakpoint by location and condition", 'A', break_at, NULL, "*c"),
|
|
|
|
PHPDBG_BREAK_COMMAND_D(lineno, "specify breakpoint by line of currently executing file", 'l', break_lineno, NULL, "n"),
|
|
|
|
PHPDBG_BREAK_COMMAND_D(del, "delete breakpoint by identifier number", 'd', break_del, NULL, "n"),
|
2014-02-02 16:35:28 +00:00
|
|
|
PHPDBG_END_COMMAND
|
|
|
|
};
|
|
|
|
|
2013-11-13 19:32:21 +00:00
|
|
|
PHPDBG_BREAK(file) /* {{{ */
|
|
|
|
{
|
2013-11-16 14:34:49 +00:00
|
|
|
switch (param->type) {
|
2013-11-13 23:13:41 +00:00
|
|
|
case FILE_PARAM:
|
2013-11-16 14:34:49 +00:00
|
|
|
phpdbg_set_breakpoint_file(param->file.name, param->file.line TSRMLS_CC);
|
2013-11-13 23:13:41 +00:00
|
|
|
break;
|
2013-11-16 22:40:01 +00:00
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
2013-11-13 21:11:45 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
return SUCCESS;
|
2013-11-13 19:32:21 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
PHPDBG_BREAK(method) /* {{{ */
|
|
|
|
{
|
2013-11-16 14:34:49 +00:00
|
|
|
switch (param->type) {
|
2013-11-13 23:13:41 +00:00
|
|
|
case METHOD_PARAM:
|
2013-11-26 10:02:58 +00:00
|
|
|
phpdbg_set_breakpoint_method(param->method.class, param->method.name TSRMLS_CC);
|
|
|
|
break;
|
2013-11-16 22:40:01 +00:00
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
2013-11-26 10:02:58 +00:00
|
|
|
}
|
2013-11-27 09:55:16 +00:00
|
|
|
|
2013-11-26 10:02:58 +00:00
|
|
|
return SUCCESS;
|
2013-11-13 19:32:21 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
PHPDBG_BREAK(address) /* {{{ */
|
|
|
|
{
|
2013-11-16 14:34:49 +00:00
|
|
|
switch (param->type) {
|
2013-11-13 23:13:41 +00:00
|
|
|
case ADDR_PARAM:
|
2013-11-26 10:02:58 +00:00
|
|
|
phpdbg_set_breakpoint_opline(param->addr TSRMLS_CC);
|
|
|
|
break;
|
2013-11-23 23:14:16 +00:00
|
|
|
|
2013-11-28 20:36:45 +00:00
|
|
|
case NUMERIC_METHOD_PARAM:
|
|
|
|
phpdbg_set_breakpoint_method_opline(param->method.class, param->method.name, param->num TSRMLS_CC);
|
|
|
|
break;
|
|
|
|
|
2013-12-03 11:31:25 +00:00
|
|
|
case NUMERIC_FUNCTION_PARAM:
|
2013-11-28 20:36:45 +00:00
|
|
|
phpdbg_set_breakpoint_function_opline(param->str, param->num TSRMLS_CC);
|
2013-12-03 11:31:25 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case FILE_PARAM:
|
|
|
|
phpdbg_set_breakpoint_file_opline(param->file.name, param->file.line TSRMLS_CC);
|
2013-11-28 20:36:45 +00:00
|
|
|
break;
|
|
|
|
|
2013-11-16 22:40:01 +00:00
|
|
|
phpdbg_default_switch_case();
|
2013-11-26 10:02:58 +00:00
|
|
|
}
|
2013-11-13 23:13:41 +00:00
|
|
|
|
2013-11-26 10:02:58 +00:00
|
|
|
return SUCCESS;
|
2013-11-13 19:32:21 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
2013-12-03 00:15:33 +00:00
|
|
|
PHPDBG_BREAK(at) /* {{{ */
|
|
|
|
{
|
2014-02-19 08:33:54 +00:00
|
|
|
phpdbg_set_breakpoint_at(param TSRMLS_CC);
|
2013-12-03 00:15:33 +00:00
|
|
|
|
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-13 19:32:21 +00:00
|
|
|
PHPDBG_BREAK(lineno) /* {{{ */
|
|
|
|
{
|
2013-11-16 14:34:49 +00:00
|
|
|
switch (param->type) {
|
2013-11-16 22:40:01 +00:00
|
|
|
case NUMERIC_PARAM: {
|
2013-11-26 10:02:58 +00:00
|
|
|
if (PHPDBG_G(exec)) {
|
|
|
|
phpdbg_set_breakpoint_file(phpdbg_current_file(TSRMLS_C), param->num TSRMLS_CC);
|
|
|
|
} else {
|
2013-12-18 10:53:30 +00:00
|
|
|
phpdbg_error("Execution context not set!");
|
2013-11-26 10:02:58 +00:00
|
|
|
}
|
2013-11-16 22:40:01 +00:00
|
|
|
} break;
|
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
2013-11-13 21:27:24 +00:00
|
|
|
}
|
|
|
|
|
2013-11-13 19:32:21 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
PHPDBG_BREAK(func) /* {{{ */
|
|
|
|
{
|
2013-11-16 14:34:49 +00:00
|
|
|
switch (param->type) {
|
2013-11-13 23:13:41 +00:00
|
|
|
case STR_PARAM:
|
2013-11-24 12:00:12 +00:00
|
|
|
phpdbg_set_breakpoint_symbol(param->str, param->len TSRMLS_CC);
|
2013-11-13 23:13:41 +00:00
|
|
|
break;
|
2013-11-16 22:40:01 +00:00
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
2013-11-13 21:27:24 +00:00
|
|
|
}
|
|
|
|
|
2013-11-26 10:02:58 +00:00
|
|
|
return SUCCESS;
|
2013-11-13 19:32:21 +00:00
|
|
|
} /* }}} */
|
2013-11-23 23:14:16 +00:00
|
|
|
|
|
|
|
PHPDBG_BREAK(op) /* {{{ */
|
|
|
|
{
|
|
|
|
switch (param->type) {
|
|
|
|
case STR_PARAM:
|
2013-11-24 11:43:05 +00:00
|
|
|
phpdbg_set_breakpoint_opcode(param->str, param->len TSRMLS_CC);
|
2013-11-23 23:14:16 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
|
|
|
}
|
|
|
|
|
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
2013-11-24 11:58:08 +00:00
|
|
|
|
|
|
|
PHPDBG_BREAK(del) /* {{{ */
|
|
|
|
{
|
|
|
|
switch (param->type) {
|
|
|
|
case NUMERIC_PARAM: {
|
|
|
|
phpdbg_delete_breakpoint(param->num TSRMLS_CC);
|
|
|
|
} break;
|
|
|
|
|
|
|
|
phpdbg_default_switch_case();
|
|
|
|
}
|
|
|
|
|
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|