2013-11-10 01:30:32 +00:00
|
|
|
/*
|
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
| 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> |
|
2013-11-10 10:44:42 +00:00
|
|
|
| Authors: Joe Watkins <joe.watkins@live.co.uk> |
|
2013-11-10 01:30:32 +00:00
|
|
|
+----------------------------------------------------------------------+
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include "zend.h"
|
2013-11-10 13:01:46 +00:00
|
|
|
#include "zend_compile.h"
|
2013-11-10 10:44:42 +00:00
|
|
|
#include "phpdbg.h"
|
|
|
|
#include "phpdbg_help.h"
|
2013-11-10 01:30:32 +00:00
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
static const phpdbg_command_t phpdbg_prompt_commands[];
|
|
|
|
|
2013-11-10 11:03:29 +00:00
|
|
|
ZEND_EXTERN_MODULE_GLOBALS(phpdbg);
|
|
|
|
|
|
|
|
static PHPDBG_COMMAND(exec) { /* {{{ */
|
|
|
|
if (PHPDBG_G(exec)) {
|
|
|
|
printf(
|
|
|
|
"Unsetting old execution context: %s\n", PHPDBG_G(exec));
|
|
|
|
efree(PHPDBG_G(exec));
|
2013-11-10 11:35:59 +00:00
|
|
|
PHPDBG_G(exec) = NULL;
|
|
|
|
}
|
2013-11-10 11:48:01 +00:00
|
|
|
|
2013-11-10 11:35:59 +00:00
|
|
|
if (PHPDBG_G(ops)) {
|
|
|
|
printf(
|
|
|
|
"Destroying compiled opcodes\n");
|
|
|
|
destroy_op_array(PHPDBG_G(ops) TSRMLS_CC);
|
|
|
|
efree(PHPDBG_G(ops));
|
|
|
|
PHPDBG_G(ops) = NULL;
|
2013-11-10 11:03:29 +00:00
|
|
|
}
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 11:03:29 +00:00
|
|
|
PHPDBG_G(exec) = estrndup(
|
|
|
|
expr, PHPDBG_G(exec_len)=expr_len);
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 11:03:29 +00:00
|
|
|
printf(
|
|
|
|
"Set execution context: %s\n", PHPDBG_G(exec));
|
2013-11-10 11:48:01 +00:00
|
|
|
|
2013-11-10 11:35:59 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 13:01:46 +00:00
|
|
|
static inline int phpdbg_compile(TSRMLS_D) {
|
|
|
|
zend_file_handle fh;
|
2013-11-10 11:48:01 +00:00
|
|
|
|
2013-11-10 13:01:46 +00:00
|
|
|
printf("Attempting compilation of %s\n", PHPDBG_G(exec));
|
|
|
|
if (php_stream_open_for_zend_ex(PHPDBG_G(exec), &fh, USE_PATH|STREAM_OPEN_FOR_INCLUDE TSRMLS_CC) == SUCCESS) {
|
|
|
|
PHPDBG_G(ops) = zend_compile_file(
|
|
|
|
&fh, ZEND_INCLUDE TSRMLS_CC);
|
|
|
|
zend_destroy_file_handle(&fh TSRMLS_CC);
|
|
|
|
printf("Success\n");
|
|
|
|
return SUCCESS;
|
|
|
|
} else {
|
|
|
|
printf("Could not open file %s\n", PHPDBG_G(exec));
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static PHPDBG_COMMAND(compile) { /* {{{ */
|
2013-11-10 11:35:59 +00:00
|
|
|
if (PHPDBG_G(exec)) {
|
2013-11-10 11:48:01 +00:00
|
|
|
|
2013-11-10 11:35:59 +00:00
|
|
|
if (PHPDBG_G(ops)) {
|
|
|
|
printf("Destroying compiled opcodes\n");
|
|
|
|
destroy_op_array(PHPDBG_G(ops) TSRMLS_CC);
|
|
|
|
efree(PHPDBG_G(ops));
|
|
|
|
}
|
2013-11-10 11:48:01 +00:00
|
|
|
|
2013-11-10 13:01:46 +00:00
|
|
|
return phpdbg_compile(TSRMLS_C);
|
2013-11-10 11:35:59 +00:00
|
|
|
} else {
|
|
|
|
printf("No execution context\n");
|
|
|
|
return FAILURE;
|
|
|
|
}
|
2013-11-10 11:03:29 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 14:28:14 +00:00
|
|
|
static PHPDBG_COMMAND(step) { /* {{{ */
|
|
|
|
PHPDBG_G(stepping) = atoi(expr);
|
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
static PHPDBG_COMMAND(next) { /* {{{ */
|
|
|
|
return PHPDBG_NEXT;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 13:01:46 +00:00
|
|
|
static PHPDBG_COMMAND(run) { /* {{{ */
|
|
|
|
if (PHPDBG_G(ops) || PHPDBG_G(exec)) {
|
|
|
|
if (!PHPDBG_G(ops)) {
|
|
|
|
if (phpdbg_compile(TSRMLS_C) == FAILURE) {
|
|
|
|
printf("Failed to compile %s, cannot run\n", PHPDBG_G(exec));
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
EG(active_op_array) = PHPDBG_G(ops);
|
|
|
|
EG(return_value_ptr_ptr) = &PHPDBG_G(retval);
|
|
|
|
|
|
|
|
zend_try {
|
|
|
|
zend_execute(EG(active_op_array) TSRMLS_CC);
|
|
|
|
} zend_catch {
|
|
|
|
printf("Caught excetion in VM\n");
|
|
|
|
return FAILURE;
|
|
|
|
} zend_end_try();
|
|
|
|
|
|
|
|
return SUCCESS;
|
|
|
|
} else {
|
2013-11-10 14:43:46 +00:00
|
|
|
printf("Nothing to execute !\n");
|
2013-11-10 13:01:46 +00:00
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 14:43:46 +00:00
|
|
|
static PHPDBG_COMMAND(eval) { /* {{{ */
|
|
|
|
zval retval;
|
|
|
|
|
|
|
|
if (expr) {
|
|
|
|
if (zend_eval_stringl((char*)expr, expr_len-1, &retval, "eval()'d code" TSRMLS_CC) == SUCCESS) {
|
|
|
|
printf("Success\n");
|
|
|
|
zval_dtor(&retval);
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
printf("No expression provided !\n");
|
|
|
|
return FAILURE;
|
|
|
|
}
|
|
|
|
|
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 11:03:29 +00:00
|
|
|
static PHPDBG_COMMAND(print) { /* {{{ */
|
2013-11-10 11:35:59 +00:00
|
|
|
if (!expr_len) {
|
|
|
|
printf("Showing Execution Context Information:\n");
|
|
|
|
printf("Exec\t\t%s\n", PHPDBG_G(exec) ? PHPDBG_G(exec) : "none");
|
|
|
|
printf("Compiled\t%s\n", PHPDBG_G(ops) ? "yes" : "no");
|
2013-11-10 14:28:14 +00:00
|
|
|
printf("Stepping\t%s\n", PHPDBG_G(stepping) ? "on" : "off");
|
2013-11-10 11:35:59 +00:00
|
|
|
if (PHPDBG_G(ops)) {
|
2013-11-10 14:28:14 +00:00
|
|
|
printf("Opcodes\t\t%d\n", PHPDBG_G(ops)->last);
|
|
|
|
if (PHPDBG_G(ops)->last_var) {
|
|
|
|
printf("Variables\t%d\n", PHPDBG_G(ops)->last_var-1);
|
|
|
|
} else printf("Variables\tNone\n");
|
2013-11-10 11:35:59 +00:00
|
|
|
}
|
2013-11-10 14:43:46 +00:00
|
|
|
printf("Executing\t:%s\n", EG(in_execution) ? "yes" : "no");
|
|
|
|
if (EG(in_execution)) {
|
|
|
|
printf("VM Return\t%d\n", PHPDBG_G(vmret));
|
|
|
|
}
|
2013-11-10 11:35:59 +00:00
|
|
|
} else {
|
|
|
|
printf(
|
|
|
|
"%s\n", expr);
|
|
|
|
}
|
2013-11-10 11:03:29 +00:00
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 11:48:01 +00:00
|
|
|
static PHPDBG_COMMAND(break) { /* {{{ */
|
2013-11-10 10:44:42 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
|
|
|
static PHPDBG_COMMAND(quit) /* {{{ */
|
2013-11-10 01:30:32 +00:00
|
|
|
{
|
|
|
|
zend_bailout();
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
return SUCCESS;
|
2013-11-10 01:30:32 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
static PHPDBG_COMMAND(help) /* {{{ */
|
|
|
|
{
|
|
|
|
printf("Welcome to phpdbg, the interactive PHP debugger.\n");
|
|
|
|
if (!expr_len) {
|
|
|
|
printf("To get help regarding a specific command type \"help command\"\n");
|
|
|
|
printf("Commands:\n");
|
|
|
|
{
|
|
|
|
const phpdbg_command_t *command = phpdbg_prompt_commands;
|
|
|
|
while (command && command->name) {
|
|
|
|
printf(
|
|
|
|
"\t%s\t%s\n", command->name, command->tip);
|
|
|
|
command++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
printf("Helpers Loaded:\n");
|
|
|
|
{
|
|
|
|
const phpdbg_command_t *command = phpdbg_help_commands;
|
|
|
|
while (command && command->name) {
|
|
|
|
printf(
|
|
|
|
"\t%s\t%s\n", command->name, command->tip);
|
|
|
|
command++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
} else {
|
|
|
|
if (phpdbg_do_cmd(phpdbg_help_commands, expr, expr_len TSRMLS_CC) == FAILURE) {
|
|
|
|
printf("failed to find help command: %s\n", expr);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
printf("Please report bugs to <http://theman.in/themoon>\n");
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
return SUCCESS;
|
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 11:03:29 +00:00
|
|
|
static const phpdbg_command_t phpdbg_prompt_commands[] = {
|
2013-11-10 11:48:01 +00:00
|
|
|
PHPDBG_COMMAND_D(exec, "set execution context"),
|
|
|
|
PHPDBG_COMMAND_D(compile, "attempt to pre-compile execution context"),
|
2013-11-10 14:28:14 +00:00
|
|
|
PHPDBG_COMMAND_D(step, "step through execution"),
|
|
|
|
PHPDBG_COMMAND_D(next, "next opcode"),
|
2013-11-10 13:01:46 +00:00
|
|
|
PHPDBG_COMMAND_D(run, "attempt execution"),
|
2013-11-10 14:43:46 +00:00
|
|
|
PHPDBG_COMMAND_D(eval, "evaluate some code"),
|
2013-11-10 11:48:01 +00:00
|
|
|
PHPDBG_COMMAND_D(print, "print something"),
|
|
|
|
PHPDBG_COMMAND_D(break, "set breakpoint"),
|
2013-11-10 11:35:59 +00:00
|
|
|
PHPDBG_COMMAND_D(help, "show help menu"),
|
|
|
|
PHPDBG_COMMAND_D(quit, "exit phpdbg"),
|
2013-11-10 01:30:32 +00:00
|
|
|
{NULL, 0, 0}
|
|
|
|
};
|
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
int phpdbg_do_cmd(const phpdbg_command_t *command, char *cmd_line, size_t cmd_len TSRMLS_DC) /* {{{ */
|
2013-11-10 01:30:32 +00:00
|
|
|
{
|
|
|
|
char *params = NULL;
|
|
|
|
const char *cmd = strtok_r(cmd_line, " ", ¶ms);
|
2013-11-10 10:44:42 +00:00
|
|
|
size_t expr_len = cmd != NULL ? strlen(cmd) : 0;
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 01:30:32 +00:00
|
|
|
while (command && command->name) {
|
2013-11-10 10:44:42 +00:00
|
|
|
if (command->name_len == expr_len
|
|
|
|
&& memcmp(cmd, command->name, expr_len) == 0) {
|
|
|
|
return command->handler(params, cmd_len - expr_len TSRMLS_CC);
|
2013-11-10 01:30:32 +00:00
|
|
|
}
|
|
|
|
++command;
|
|
|
|
}
|
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
return FAILURE;
|
2013-11-10 01:30:32 +00:00
|
|
|
} /* }}} */
|
|
|
|
|
2013-11-10 14:28:14 +00:00
|
|
|
int phpdbg_interactive(int argc, char **argv TSRMLS_DC) /* {{{ */
|
2013-11-10 01:30:32 +00:00
|
|
|
{
|
|
|
|
char cmd[PHPDBG_MAX_CMD];
|
|
|
|
|
|
|
|
printf("phpdbg> ");
|
|
|
|
|
2013-11-10 01:38:17 +00:00
|
|
|
while (fgets(cmd, PHPDBG_MAX_CMD, stdin) != NULL) {
|
2013-11-10 01:30:32 +00:00
|
|
|
size_t cmd_len = strlen(cmd) - 1;
|
|
|
|
|
2013-11-10 10:44:42 +00:00
|
|
|
while (cmd[cmd_len] == '\n') {
|
2013-11-10 01:30:32 +00:00
|
|
|
cmd[cmd_len] = 0;
|
|
|
|
}
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 01:30:32 +00:00
|
|
|
if (cmd_len) {
|
2013-11-10 14:28:14 +00:00
|
|
|
switch (phpdbg_do_cmd(phpdbg_prompt_commands, cmd, cmd_len TSRMLS_CC)) {
|
|
|
|
case FAILURE:
|
|
|
|
printf("error executing %s !\n", cmd);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case PHPDBG_NEXT:
|
|
|
|
return PHPDBG_NEXT;
|
|
|
|
}
|
2013-11-10 01:30:32 +00:00
|
|
|
}
|
2013-11-10 11:36:57 +00:00
|
|
|
|
2013-11-10 01:30:32 +00:00
|
|
|
printf("phpdbg> ");
|
|
|
|
}
|
2013-11-10 14:28:14 +00:00
|
|
|
|
|
|
|
return SUCCESS;
|
2013-11-10 01:30:32 +00:00
|
|
|
} /* }}} */
|
2013-11-10 13:01:46 +00:00
|
|
|
|
|
|
|
void phpdbg_execute_ex(zend_execute_data *execute_data TSRMLS_DC)
|
|
|
|
{
|
|
|
|
zend_bool original_in_execution;
|
|
|
|
|
|
|
|
original_in_execution = EG(in_execution);
|
|
|
|
EG(in_execution) = 1;
|
|
|
|
|
|
|
|
if (0) {
|
|
|
|
zend_vm_enter:
|
|
|
|
execute_data = zend_create_execute_data_from_op_array(EG(active_op_array), 1 TSRMLS_CC);
|
|
|
|
}
|
|
|
|
|
|
|
|
while (1) {
|
|
|
|
#ifdef ZEND_WIN32
|
|
|
|
if (EG(timed_out)) {
|
|
|
|
zend_timeout(0);
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
printf("[OPLINE: %p]\n", execute_data->opline);
|
|
|
|
|
2013-11-10 14:28:14 +00:00
|
|
|
PHPDBG_G(vmret) = execute_data->opline->handler(execute_data TSRMLS_CC);
|
|
|
|
|
|
|
|
if (PHPDBG_G(stepping)) {
|
|
|
|
while (phpdbg_interactive(
|
|
|
|
0, NULL TSRMLS_CC) != PHPDBG_NEXT) {
|
|
|
|
continue;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (PHPDBG_G(vmret) > 0) {
|
|
|
|
switch (PHPDBG_G(vmret)) {
|
2013-11-10 13:01:46 +00:00
|
|
|
case 1:
|
|
|
|
EG(in_execution) = original_in_execution;
|
|
|
|
return;
|
|
|
|
case 2:
|
|
|
|
goto zend_vm_enter;
|
|
|
|
break;
|
|
|
|
case 3:
|
|
|
|
execute_data = EG(current_execute_data);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
}
|
|
|
|
zend_error_noreturn(E_ERROR, "Arrived at end of main loop which shouldn't happen");
|
|
|
|
}
|