archive/php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2025-08-18 23:18:56 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

...

Browse source
This commit is contained in:
krakjoe 2013-11-13 19:32:21 +00:00
parent 0bc987c9b4
commit 1c1cc51295
3 changed files with 214 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

147
phpdbg_break.c Normal file
View file

@ -0,0 +1,147 @@
/*
+----------------------------------------------------------------------+
| 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: Felipe Pena <felipe@php.net> |
| Authors: Joe Watkins <joe.watkins@live.co.uk> |
+----------------------------------------------------------------------+
*/
#include "phpdbg.h"
#include "phpdbg_print.h"
#include "phpdbg_utils.h"
#include "phpdbg_opcode.h"
#include "phpdbg_break.h"
#include "phpdbg_bp.h"
ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
PHPDBG_BREAK(file) /* {{{ */
{
if (expr && expr_len > 0L) {
if (!phpdbg_is_class_method(expr, expr_len, NULL, NULL)) {
char path[MAXPATHLEN], resolved_name[MAXPATHLEN];
const char *line_pos = strchr(expr, ':');
long line_num = strtol(line_pos+1, NULL, 0);
if (line_num) {
memcpy(path, expr, line_pos - expr);
path[line_pos - expr] = 0;
if (expand_filepath(path, resolved_name TSRMLS_CC) == NULL) {
phpdbg_error("Failed to expand path %s", path);
return SUCCESS;
}
phpdbg_set_breakpoint_file(resolved_name, line_num TSRMLS_CC);
} else {
phpdbg_error("No line specified in expression %s", expr);
return SUCCESS;
}
}
} else {
phpdbg_error(
"No expression provided");
}
return SUCCESS;
} /* }}} */
PHPDBG_BREAK(method) /* {{{ */
{
char *class_name;
char *func_name;
if (expr && expr_len >0L) {
if (phpdbg_is_class_method(expr, expr_len+1, &class_name, &func_name)) {
phpdbg_set_breakpoint_method(
class_name, func_name TSRMLS_CC);
} else {
phpdbg_error(
"The expression provided is not a method name: %s", expr);
}
} else {
phpdbg_error("No expression provided");
}
return SUCCESS;
} /* }}} */
PHPDBG_BREAK(address) /* {{{ */
{
if (expr && expr_len > 0L) {
if (phpdbg_is_addr(expr)) {
phpdbg_set_breakpoint_opline(
strtoul(expr, 0, 16) TSRMLS_CC);
} else {
phpdbg_error("The expression provided is not an address: %s", expr);
}
} else {
phpdbg_error("No expression provided");
}
return SUCCESS;
} /* }}} */
PHPDBG_BREAK(on) /* {{{ */
{
if (expr && expr_len > 0L) {
phpdbg_set_breakpoint_expression(
expr, expr_len TSRMLS_CC);
} else {
phpdbg_error(
"No expression provided!");
}
return SUCCESS;
} /* }}} */
PHPDBG_BREAK(lineno) /* {{{ */
{
/* note: this can break on [no active file] */
if (expr && expr_len > 0L) {
if (phpdbg_is_numeric(expr)) {
const char *filename = zend_get_executed_filename(TSRMLS_C);
if (filename) {
phpdbg_set_breakpoint_file(
filename, strtol(expr, NULL, 0) TSRMLS_CC);
} else {
phpdbg_error("No file context found");
}
} else {
phpdbg_error(
"The expression provided is not a valid line number %s", expr);
}
} else {
phpdbg_error(
"No expression provided!");
}
return SUCCESS;
} /* }}} */
PHPDBG_BREAK(func) /* {{{ */
{
if (expr && expr_len > 0L) {
char name[200];
size_t name_len = expr_len;
name_len = MIN(name_len, 200);
memcpy(name, expr, name_len);
name[name_len] = 0;
phpdbg_set_breakpoint_symbol(name TSRMLS_CC);
} else {
phpdbg_error("No expression provided");
}
return SUCCESS;
} /* }}} */

58
phpdbg_break.h Normal file
View file

@ -0,0 +1,58 @@
/*
+----------------------------------------------------------------------+
| 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: Felipe Pena <felipe@php.net> |
| Authors: Joe Watkins <joe.watkins@live.co.uk> |
+----------------------------------------------------------------------+
*/
#ifndef PHPDBG_BREAK_H
#define PHPDBG_BREAK_H
#include "TSRM.h"
/**
* Command Declarators
*/
#define PHPDBG_BREAK_D(name, tip) \
{PHPDBG_STRL(#name), tip, sizeof(tip)-1, 0, phpdbg_do_break_##name}
#define PHPDBG_BREAK_EX_D(name, tip, alias) \
{PHPDBG_STRL(#name), tip, sizeof(tip)-1, alias, phpdbg_do_break_##name}
#define PHPDBG_BREAK(name) \
int phpdbg_do_break_##name(const char *expr, size_t expr_len TSRMLS_DC)
/**
* Printer Forward Declarations
*/
PHPDBG_BREAK(file);
PHPDBG_BREAK(method);
PHPDBG_BREAK(address);
PHPDBG_BREAK(on);
PHPDBG_BREAK(lineno);
PHPDBG_BREAK(func);
/**
* Commands
*/
static const phpdbg_command_t phpdbg_break_commands[] = {
PHPDBG_BREAK_EX_D(file, "specify breakpoint by file:line", 'F'),
PHPDBG_BREAK_EX_D(method, "specify breakpoint by class::method", 'm'),
PHPDBG_BREAK_EX_D(address, "specify breakpoint by address", 'a'),
PHPDBG_BREAK_EX_D(on, "specify breakpoint by expression", 'o'),
PHPDBG_BREAK_EX_D(lineno, "specify breakpoint by line of currently executing file", 'l'),
PHPDBG_BREAK_EX_D(func, "specify breakpoint by global function name", 'f'),
{NULL, 0, 0}
};
#endif /* PHPDBG_BREAK_H */

13
phpdbg_utils.c
View file

@ -63,10 +63,15 @@ int phpdbg_is_class_method(const char *str, size_t len, char **class, char **met
return 0; return 0;
} }
*class = estrndup(str, sep - str); if (class != NULL) {
(*class)[sep - str] = 0; *class = estrndup(str, sep - str);
(*class)[sep - str] = 0;
*method = estrndup(sep+2, str + len - (sep + 2)); }
if (method != NULL) {
*method = estrndup(
sep+2, str + len - (sep + 2));
}
return 1; return 1;
} /* }}} */ } /* }}} */