root/xdebug_handler_dbgp.c
/* [<][>][^][v][top][bottom][index][help] */
DEFINITIONS
This source file includes following definitions.
- lookup_cmd
- make_message
- send_message
- prepare_search_key
- fetch_zval_from_symbol_table
- fetch_ht_from_zval
- fetch_classname_from_zval
- get_symbol_contents_zval
- get_symbol
- get_symbol_contents
- return_file_source
- return_eval_source
- return_source
- check_evaled_code
- return_stackframe
- xdebug_hash_admin_dtor
- breakpoint_admin_add
- breakpoint_admin_fetch
- breakpoint_admin_remove
- breakpoint_brk_info_add
- breakpoint_brk_info_fetch
- breakpoint_remove
- breakpoint_do_action
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- breakpoint_list_helper
- DBGP_FUNC
- DBGP_FUNC
- _xdebug_do_eval
- DBGP_FUNC
- _xdebug_send_stream
- _xdebug_header_write
- _xdebug_body_write
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- add_variable_node
- DBGP_FUNC
- DBGP_FUNC
- add_variable_contents_node
- DBGP_FUNC
- attach_used_var_with_contents
- attach_context_vars
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- DBGP_FUNC
- xdebug_dbgp_arg_dtor
- xdebug_dbgp_parse_cmd
- xdebug_dbgp_parse_option
- xdebug_dbgp_get_revision
- xdebug_dbgp_cmdloop
- xdebug_dbgp_init
- xdebug_dbgp_deinit
- xdebug_dbgp_error
- xdebug_dbgp_breakpoint
- create_eval_key_file
- create_eval_key_id
- xdebug_dbgp_register_eval_id
- xdebug_dbgp_unregister_eval_id
/*
+----------------------------------------------------------------------+
| Xdebug |
+----------------------------------------------------------------------+
| Copyright (c) 2002, 2003, 2004, 2005, 2006 Derick Rethans |
+----------------------------------------------------------------------+
| This source file is subject to version 1.0 of the Xdebug license, |
| that is bundled with this package in the file LICENSE, and is |
| available at through the world-wide-web at |
| http://xdebug.derickrethans.nl/license.php |
| If you did not receive a copy of the Xdebug license and are unable |
| to obtain it through the world-wide-web, please send a note to |
| xdebug@derickrethans.nl so we can mail you a copy immediately. |
+----------------------------------------------------------------------+
| Authors: Derick Rethans <derick@xdebug.org> |
| Shane Caraveo <shanec@ActiveState.com> |
+----------------------------------------------------------------------+
*/
#include <sys/types.h>
#ifndef PHP_WIN32
#include <unistd.h>
#endif
#include "php.h"
#include "SAPI.h"
#include "ext/standard/php_string.h"
#include "ext/standard/url.h"
#include "main/php_version.h"
#include "TSRM.h"
#include "php_globals.h"
#include "php_xdebug.h"
#include "xdebug_private.h"
#include "xdebug_com.h"
#include "xdebug_handler_dbgp.h"
#include "xdebug_hash.h"
#include "xdebug_llist.h"
#include "xdebug_mm.h"
#include "xdebug_var.h"
#include "xdebug_xml.h"
#include "xdebug_compat.h"
#ifdef PHP_WIN32
#include "win32/time.h"
#include <process.h>
#endif
#include <fcntl.h>
ZEND_EXTERN_MODULE_GLOBALS(xdebug)
static char *create_eval_key_id(int id);
/*****************************************************************************
** Constants and strings for statii and reasons
*/
/* Status structure */
#define DBGP_STATUS_STARTING 1
#define DBGP_STATUS_STOPPING 2
#define DBGP_STATUS_STOPPED 3
#define DBGP_STATUS_RUNNING 4
#define DBGP_STATUS_BREAK 5
char *xdebug_dbgp_status_strings[6] =
{"", "starting", "stopping", "stopped", "running", "break"};
#define DBGP_REASON_OK 0
#define DBGP_REASON_ERROR 1
#define DBGP_REASON_ABORTED 2
#define DBGP_REASON_EXCEPTION 3
char *xdebug_dbgp_reason_strings[4] =
{"ok", "error", "aborted", "exception"};
typedef struct {
int code;
char *message;
} xdebug_error_entry;
xdebug_error_entry xdebug_error_codes[23] = {
{ 0, "no error" },
{ 1, "parse error in command" },
{ 2, "duplicate arguments in command" },
{ 3, "invalid or missing options" },
{ 4, "unimplemented command" },
{ 5, "command is not available" },
{ 100, "can not open file" },
{ 101, "stream redirect failed" },
{ 200, "breakpoint could not be set" },
{ 201, "breakpoint type is not supported" },
{ 202, "invalid breakpoint line" },
{ 203, "no code on breakpoint line" },
{ 204, "invalid breakpoint state" },
{ 205, "no such breakpoint" },
{ 206, "error evaluating code" },
{ 207, "invalid expression" },
{ 300, "can not get property" },
{ 301, "stack depth invalid" },
{ 302, "context invalid" },
{ 900, "encoding not supported" },
{ 998, "an internal exception in the debugger" },
{ 999, "unknown error" },
{ -1, NULL }
};
#define XDEBUG_STR_SWITCH_DECL char *__switch_variable
#define XDEBUG_STR_SWITCH(s) __switch_variable = (s);
#define XDEBUG_STR_CASE(s) if (strcmp(__switch_variable, s) == 0) {
#define XDEBUG_STR_CASE_END } else
#define XDEBUG_STR_CASE_DEFAULT {
#define XDEBUG_STR_CASE_DEFAULT_END }
#define XDEBUG_TYPES_COUNT 8
char *xdebug_dbgp_typemap[XDEBUG_TYPES_COUNT][3] = {
/* common, lang, schema */
{"bool", "bool", "xsd:boolean"},
{"int", "int", "xsd:decimal"},
{"float", "float", "xsd:double"},
{"string", "string", "xsd:string"},
{"null", "null", NULL},
{"hash", "array", NULL},
{"object", "object", NULL},
{"resource", "resource", NULL}
};
/*****************************************************************************
** Prototypes for debug command handlers
*/
/* DBGP_FUNC(break); */
DBGP_FUNC(breakpoint_get);
DBGP_FUNC(breakpoint_list);
DBGP_FUNC(breakpoint_remove);
DBGP_FUNC(breakpoint_set);
DBGP_FUNC(breakpoint_update);
DBGP_FUNC(context_get);
DBGP_FUNC(context_names);
DBGP_FUNC(eval);
DBGP_FUNC(feature_get);
DBGP_FUNC(feature_set);
DBGP_FUNC(typemap_get);
DBGP_FUNC(property_get);
DBGP_FUNC(property_set);
DBGP_FUNC(property_value);
DBGP_FUNC(source);
DBGP_FUNC(stack_depth);
DBGP_FUNC(stack_get);
DBGP_FUNC(status);
DBGP_FUNC(stderr);
DBGP_FUNC(stdout);
DBGP_FUNC(stop);
DBGP_FUNC(run);
DBGP_FUNC(step_into);
DBGP_FUNC(step_out);
DBGP_FUNC(step_over);
DBGP_FUNC(detach);
/*****************************************************************************
** Dispatcher tables for supported debug commands
*/
static xdebug_dbgp_cmd dbgp_commands[] = {
/* DBGP_FUNC_ENTRY(break) */
DBGP_FUNC_ENTRY(breakpoint_get)
DBGP_FUNC_ENTRY(breakpoint_list)
DBGP_FUNC_ENTRY(breakpoint_remove)
DBGP_FUNC_ENTRY(breakpoint_set)
DBGP_FUNC_ENTRY(breakpoint_update)
DBGP_FUNC_ENTRY(context_get)
DBGP_FUNC_ENTRY(context_names)
DBGP_FUNC_ENTRY(eval)
DBGP_FUNC_ENTRY(feature_get)
DBGP_FUNC_ENTRY(feature_set)
DBGP_FUNC_ENTRY(typemap_get)
DBGP_FUNC_ENTRY(property_get)
DBGP_FUNC_ENTRY(property_set)
DBGP_FUNC_ENTRY(property_value)
DBGP_FUNC_ENTRY(source)
DBGP_FUNC_ENTRY(stack_depth)
DBGP_FUNC_ENTRY(stack_get)
DBGP_FUNC_ENTRY(status)
DBGP_FUNC_ENTRY(stderr)
DBGP_FUNC_ENTRY(stdout)
DBGP_CONT_FUNC_ENTRY(stop)
DBGP_CONT_FUNC_ENTRY(run)
DBGP_CONT_FUNC_ENTRY(step_into)
DBGP_CONT_FUNC_ENTRY(step_out)
DBGP_CONT_FUNC_ENTRY(step_over)
DBGP_CONT_FUNC_ENTRY(detach)
{ NULL, NULL }
};
/*****************************************************************************
** Utility functions
*/
static xdebug_dbgp_cmd* lookup_cmd(char *cmd)
{
xdebug_dbgp_cmd *ptr = dbgp_commands;
while (ptr->name) {
if (strcmp(ptr->name, cmd) == 0) {
return ptr;
}
ptr++;
}
return NULL;
}
static xdebug_str *make_message(xdebug_con *context, xdebug_xml_node *message TSRMLS_DC)
{
xdebug_str xml_message = {0, 0, NULL};
xdebug_str *ret;
xdebug_str_ptr_init(ret);
xdebug_xml_return_node(message, &xml_message);
if (XG(remote_log_file)) {
fprintf(XG(remote_log_file), "-> %s\n\n", xml_message.d);
fflush(XG(remote_log_file));
}
xdebug_str_add(ret, xdebug_sprintf("%d", xml_message.l + sizeof("<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n") - 1), 1);
xdebug_str_addl(ret, "\0", 1, 0);
xdebug_str_add(ret, "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?>\n", 0);
xdebug_str_add(ret, xml_message.d, 0);
xdebug_str_addl(ret, "\0", 1, 0);
xdebug_str_dtor(xml_message);
return ret;
}
static void send_message(xdebug_con *context, xdebug_xml_node *message TSRMLS_DC)
{
xdebug_str *tmp;
tmp = make_message(context, message TSRMLS_CC);
SSENDL(context->socket, tmp->d, tmp->l);
xdebug_str_ptr_dtor(tmp);
}
/*****************************************************************************
** Data returning functions
*/
#define XF_ST_ROOT 0
#define XF_ST_ARRAY_INDEX 1
#define XF_ST_OBJ_PROPERTY 2
static char* prepare_search_key(char *name, int *name_length, char *prefix, int prefix_length)
{
char *element;
int extra_length = 0;
if (prefix_length) {
if (prefix[0] == '*') {
extra_length = 3;
} else {
extra_length = 2 + prefix_length;
}
}
element = malloc(*name_length + 1 + extra_length);
memset(element, 0, *name_length + 1 + extra_length);
if (extra_length) {
memcpy(element + 1, prefix, extra_length - 2);
}
memcpy(element + extra_length, name, *name_length);
*name_length += extra_length;
return element;
}
static zval* fetch_zval_from_symbol_table(HashTable *ht, char* name, int name_length, int type, char* ccn, int ccnl TSRMLS_DC)
{
zval **retval_pp = NULL, *retval_p = NULL;
char *element;
int element_length = name_length;
switch (type) {
case XF_ST_ROOT:
case XF_ST_ARRAY_INDEX:
element = prepare_search_key(name, &name_length, "", 0);
#ifdef ZEND_ENGINE_2
/* Handle "this" in a different way */
if (type == XF_ST_ROOT && strcmp("this", element) == 0) {
retval_p = EG(This);
goto cleanup;
}
#endif
if (ht && zend_hash_find(ht, element, name_length + 1, (void **) &retval_pp) == SUCCESS) {
retval_p = *retval_pp;
goto cleanup;
}
break;
case XF_ST_OBJ_PROPERTY:
/* First we try a public property */
element = prepare_search_key(name, &element_length, "", 0);
if (ht && zend_hash_find(ht, element, element_length + 1, (void **) &retval_pp) == SUCCESS) {
retval_p = *retval_pp;
goto cleanup;
}
element_length = name_length;
/* Then we try it again as protected property */
free(element);
element = prepare_search_key(name, &element_length, "*", 1);
if (ht && zend_hash_find(ht, element, element_length + 1, (void **) &retval_pp) == SUCCESS) {
retval_p = *retval_pp;
goto cleanup;
}
element_length = name_length;
/* Then we try it again as private property */
free(element);
element = prepare_search_key(name, &element_length, ccn, ccnl);
if (ht && zend_hash_find(ht, element, element_length + 1, (void **) &retval_pp) == SUCCESS) {
retval_p = *retval_pp;
goto cleanup;
}
break;
}
cleanup:
free(element);
return retval_p;
}
inline static HashTable *fetch_ht_from_zval(zval *z TSRMLS_DC)
{
switch (Z_TYPE_P(z)) {
case IS_ARRAY:
return Z_ARRVAL_P(z);
break;
case IS_OBJECT:
return Z_OBJPROP_P(z);
break;
}
return NULL;
}
inline static char *fetch_classname_from_zval(zval *z, int *length TSRMLS_DC)
{
#if PHP_MAJOR_VERSION == 4
zend_class_entry *ce;
ce = Z_OBJCE_P(z);
*length = ce->name_length;
return estrdup(ce->name);
#endif
#if PHP_MAJOR_VERSION >= 5
char *name;
zend_uint name_len;
if (Z_OBJ_HT_P(z)->get_class_name == NULL ||
Z_OBJ_HT_P(z)->get_class_name(z, &name, &name_len, 0 TSRMLS_CC) != SUCCESS) {
zend_class_entry *ce;
ce = zend_get_class_entry(z TSRMLS_CC);
if (!ce) {
return NULL;
}
*length = ce->name_length;
return estrdup(ce->name);
}
*length = name_len;
return name;
#endif
}
static zval* get_symbol_contents_zval(char* name, int name_length TSRMLS_DC)
{
HashTable *st = NULL;
if (name[0] == '$') {
/* This is a fullname property. Relying on eval is bad as it can bail
* out, so we do it ourselves. */
int found = -1;
int state = 0;
char **p = &name;
char *keyword = NULL, *keyword_end = NULL;
int type = XF_ST_ROOT;
zval *retval = NULL;
char *current_classname = NULL;
int cc_length = 0;
char quotechar = 0;
/* Set the target table to the currently active scope */
st = XG(active_symbol_table);
do {
if (*p[0] == '\0') {
found = 0;
} else {
switch (state) {
case 0:
if (*p[0] == '$') {
state = 1;
keyword = *p + 1;
break;
}
keyword = *p;
/* break intentionally missing */
case 1:
if (*p[0] == '[') {
keyword_end = *p;
if (keyword) {
retval = fetch_zval_from_symbol_table(st, keyword, keyword_end - keyword, type, current_classname, cc_length TSRMLS_CC);
if (current_classname) {
efree(current_classname);
}
current_classname = NULL;
if (retval) {
st = fetch_ht_from_zval(retval TSRMLS_CC);
}
keyword = NULL;
}
state = 3;
type = XF_ST_ARRAY_INDEX;
} else if (*p[0] == '-') {
keyword_end = *p;
if (keyword) {
retval = fetch_zval_from_symbol_table(st, keyword, keyword_end - keyword, type, current_classname, cc_length TSRMLS_CC);
if (retval) {
if (current_classname) {
efree(current_classname);
}
current_classname = fetch_classname_from_zval(retval, &cc_length TSRMLS_CC);
st = fetch_ht_from_zval(retval TSRMLS_CC);
}
keyword = NULL;
}
state = 2;
type = XF_ST_OBJ_PROPERTY;
}
break;
case 2:
if (*p[0] != '>') {
keyword = *p;
state = 1;
}
break;
case 3:
/* Associative arrays */
if (*p[0] == '\'' || *p[0] == '"') {
state = 4;
keyword = *p + 1;
quotechar = *p[0];
}
/* Numerical index */
if (*p[0] >= '0' && *p[0] <= '9') {
state = 6;
keyword = *p;
}
break;
case 4:
if (*p[0] == quotechar) {
quotechar = 0;
state = 5;
keyword_end = *p;
retval = fetch_zval_from_symbol_table(st, keyword, keyword_end - keyword, type, current_classname, cc_length TSRMLS_CC);
if (current_classname) {
efree(current_classname);
}
current_classname = NULL;
if (retval) {
st = fetch_ht_from_zval(retval TSRMLS_CC);
}
keyword = NULL;
}
break;
case 5:
if (*p[0] == ']') {
state = 1;
}
break;
case 6:
if (*p[0] == ']') {
state = 1;
keyword_end = *p;
retval = fetch_zval_from_symbol_table(st, keyword, keyword_end - keyword, type, current_classname, cc_length TSRMLS_CC);
if (current_classname) {
efree(current_classname);
}
current_classname = NULL;
if (retval) {
st = fetch_ht_from_zval(retval TSRMLS_CC);
}
keyword = NULL;
}
break;
}
(*p)++;
}
} while (found < 0);
if (keyword != NULL) {
retval = fetch_zval_from_symbol_table(st, keyword, *p - keyword, type, current_classname, cc_length TSRMLS_CC);
if (retval) {
st = fetch_ht_from_zval(retval TSRMLS_CC);
}
}
return retval;
} else {
zval **retval;
st = XG(active_symbol_table);
if (st && zend_hash_find(st, name, name_length, (void **) &retval) == SUCCESS) {
return *retval;
}
st = EG(active_op_array)->static_variables;
if (st) {
if (zend_hash_find(st, name, name_length, (void **) &retval) == SUCCESS) {
return *retval;
}
}
#if 0
st = &EG(symbol_table);
if (zend_hash_find(st, name, name_length, (void **) &retval) == SUCCESS) {
return *retval;
}
#endif
}
return NULL;
}
static xdebug_xml_node* get_symbol(char* name, int name_length, xdebug_var_export_options *options TSRMLS_DC)
{
zval *retval;
retval = get_symbol_contents_zval(name, name_length TSRMLS_CC);
if (retval) {
return get_zval_value_xml_node(name, retval, options);
}
return NULL;
}
int get_symbol_contents(char* name, int name_length, xdebug_xml_node *node, xdebug_var_export_options *options TSRMLS_DC)
{
zval *retval;
retval = get_symbol_contents_zval(name, name_length TSRMLS_CC);
if (retval) {
xdebug_var_export_xml_node(&retval, name, node, options, 1 TSRMLS_CC);
return 1;
}
return 0;
}
static char* return_file_source(char *filename, int begin, int end TSRMLS_DC)
{
php_stream *stream;
int i = begin;
char *line = NULL;
xdebug_str source = { 0, 0, NULL };
if (i < 0) {
begin = 0;
i = 0;
}
filename = xdebug_path_from_url(filename TSRMLS_CC);
stream = php_stream_open_wrapper(filename, "rb",
USE_PATH | ENFORCE_SAFE_MODE | REPORT_ERRORS,
NULL);
xdfree(filename);
/* Read until the "begin" line has been read */
if (!stream) {
return NULL;
}
/* skip to the first requested line */
while (i > 0 && !php_stream_eof(stream)) {
if (line) {
efree(line);
line = NULL;
}
line = php_stream_gets(stream, NULL, 1024);
i--;
}
/* Read until the "end" line has been read */
do {
if (line) {
xdebug_str_add(&source, line, 0);
efree(line);
line = NULL;
if (php_stream_eof(stream)) break;
}
line = php_stream_gets(stream, NULL, 1024);
i++;
} while (i < end + 1 - begin);
/* Print last line */
if (line) {
efree(line);
line = NULL;
}
php_stream_close(stream);
return source.d;
}
static char* return_eval_source(char *id, int begin, int end TSRMLS_DC)
{
char *key, *joined;
xdebug_eval_info *ei;
xdebug_arg *parts = (xdebug_arg*) xdmalloc(sizeof(xdebug_arg));
if (begin < 0) {
begin = 0;
}
key = create_eval_key_id(atoi(id));
if (xdebug_hash_find(XG(context).eval_id_lookup, key, strlen(key), (void *) &ei)) {
xdebug_arg_init(parts);
xdebug_explode("\n", ei->contents, parts, end + 2);
joined = xdebug_join("\n", parts, begin, end);
xdebug_arg_dtor(parts);
return joined;
}
return NULL;
}
static char* return_source(char *filename, int begin, int end TSRMLS_DC)
{
if (strncmp(filename, "dbgp://", 7) == 0) {
return return_eval_source(filename + 7, begin, end TSRMLS_CC);
} else {
return return_file_source(filename, begin, end TSRMLS_CC);
}
}
static int check_evaled_code(function_stack_entry *fse, char **filename, int *lineno TSRMLS_DC)
{
char *end_marker;
xdebug_eval_info *ei;
end_marker = fse->filename + strlen(fse->filename) - strlen("eval()'d code");
if (strcmp("eval()'d code", end_marker) == 0) {
if (xdebug_hash_find(XG(context).eval_id_lookup, fse->filename, strlen(fse->filename), (void *) &ei)) {
*filename = xdebug_sprintf("dbgp://%lu", ei->id);
}
return 1;
}
return 0;
}
static xdebug_xml_node* return_stackframe(int nr TSRMLS_DC)
{
function_stack_entry *fse, *fse_prev;
char *tmp_fname;
char *tmp_filename;
int tmp_lineno;
xdebug_xml_node *tmp;
fse = xdebug_get_stack_frame(nr TSRMLS_CC);
fse_prev = xdebug_get_stack_frame(nr - 1 TSRMLS_CC);
tmp_fname = show_fname(fse->function, 0, 0 TSRMLS_CC);
tmp = xdebug_xml_node_init("stack");
xdebug_xml_add_attribute_ex(tmp, "where", xdstrdup(tmp_fname), 0, 1);
xdebug_xml_add_attribute_ex(tmp, "level", xdebug_sprintf("%ld", nr), 0, 1);
if (fse_prev) {
if (check_evaled_code(fse_prev, &tmp_filename, &tmp_lineno TSRMLS_CC)) {
xdebug_xml_add_attribute_ex(tmp, "type", xdstrdup("eval"), 0, 1);
xdebug_xml_add_attribute_ex(tmp, "filename", tmp_filename, 0, 0);
} else {
xdebug_xml_add_attribute_ex(tmp, "type", xdstrdup("file"), 0, 1);
xdebug_xml_add_attribute_ex(tmp, "filename", xdebug_path_to_url(fse_prev->filename TSRMLS_CC), 0, 1);
}
xdebug_xml_add_attribute_ex(tmp, "lineno", xdebug_sprintf("%lu", fse_prev->lineno TSRMLS_CC), 0, 1);
} else {
xdebug_xml_add_attribute_ex(tmp, "type", xdstrdup("file"), 0, 1);
xdebug_xml_add_attribute_ex(tmp, "filename", xdebug_path_to_url(zend_get_executed_filename(TSRMLS_C) TSRMLS_CC), 0, 1);
xdebug_xml_add_attribute_ex(tmp, "lineno", xdebug_sprintf("%lu", zend_get_executed_lineno(TSRMLS_C)), 0, 1);
}
xdfree(tmp_fname);
return tmp;
}
/*****************************************************************************
** Client command handlers - Breakpoints
*/
/* Helper functions */
void xdebug_hash_admin_dtor(xdebug_brk_admin *admin)
{
xdfree(admin->key);
xdfree(admin);
}
static int breakpoint_admin_add(xdebug_con *context, int type, char *key)
{
xdebug_brk_admin *admin = xdmalloc(sizeof(xdebug_brk_admin));
char *hkey;
TSRMLS_FETCH();
XG(breakpoint_count)++;
admin->id = getpid() * 10000 + XG(breakpoint_count);
admin->type = type;
admin->key = xdstrdup(key);
hkey = xdebug_sprintf("%lu", admin->id);
xdebug_hash_add(context->breakpoint_list, hkey, strlen(hkey), (void*) admin);
xdfree(hkey);
return admin->id;
}
static int breakpoint_admin_fetch(xdebug_con *context, char *hkey, int *type, char **key)
{
xdebug_brk_admin *admin;
if (xdebug_hash_find(context->breakpoint_list, hkey, strlen(hkey), (void *) &admin)) {
*type = admin->type;
*key = admin->key;
return SUCCESS;
} else {
return FAILURE;
}
}
static int breakpoint_admin_remove(xdebug_con *context, char *hkey)
{
if (xdebug_hash_delete(context->breakpoint_list, hkey, strlen(hkey))) {
return SUCCESS;
} else {
return FAILURE;
}
}
static void breakpoint_brk_info_add(xdebug_xml_node *xml, xdebug_brk_info *brk)
{
TSRMLS_FETCH();
if (brk->type) {
xdebug_xml_add_attribute_ex(xml, "type", xdstrdup(brk->type), 0, 1);
}
if (brk->file) {
xdebug_xml_add_attribute_ex(xml, "filename", xdebug_path_to_url(brk->file TSRMLS_CC), 0, 1);
}
if (brk->lineno) {
xdebug_xml_add_attribute_ex(xml, "lineno", xdebug_sprintf("%lu", brk->lineno), 0, 1);
}
if (brk->functionname) {
xdebug_xml_add_attribute_ex(xml, "function", xdstrdup(brk->functionname), 0, 1);
}
if (brk->classname) {
xdebug_xml_add_attribute_ex(xml, "class", xdstrdup(brk->classname), 0, 1);
}
if (brk->temporary) {
xdebug_xml_add_attribute(xml, "state", "temporary");
} else if (brk->disabled) {
xdebug_xml_add_attribute(xml, "state", "disabled");
} else {
xdebug_xml_add_attribute(xml, "state", "enabled");
}
xdebug_xml_add_attribute_ex(xml, "hit_count", xdebug_sprintf("%lu", brk->hit_count), 0, 1);
switch (brk->hit_condition) {
case XDEBUG_HIT_GREATER_EQUAL:
xdebug_xml_add_attribute(xml, "hit_condition", ">=");
break;
case XDEBUG_HIT_EQUAL:
xdebug_xml_add_attribute(xml, "hit_condition", "==");
break;
case XDEBUG_HIT_MOD:
xdebug_xml_add_attribute(xml, "hit_condition", "%");
break;
}
xdebug_xml_add_attribute_ex(xml, "hit_value", xdebug_sprintf("%lu", brk->hit_value), 0, 1);
}
static xdebug_brk_info* breakpoint_brk_info_fetch(int type, char *hkey)
{
xdebug_llist_element *le;
xdebug_brk_info *brk = NULL;
xdebug_arg *parts = (xdebug_arg*) xdmalloc(sizeof(xdebug_arg));
TSRMLS_FETCH();
switch (type) {
case BREAKPOINT_TYPE_LINE:
/* First we split the key into filename and linenumber */
xdebug_arg_init(parts);
xdebug_explode("$", hkey, parts, -1);
/* Second we loop through the list of file/line breakpoints to
* look for our thingy */
for (le = XDEBUG_LLIST_HEAD(XG(context).line_breakpoints); le != NULL; le = XDEBUG_LLIST_NEXT(le)) {
brk = XDEBUG_LLIST_VALP(le);
if (atoi(parts->args[1]) == brk->lineno && memcmp(brk->file, parts->args[0], brk->file_len) == 0) {
xdebug_arg_dtor(parts);
return brk;
}
}
/* Cleaning up */
xdebug_arg_dtor(parts);
break;
case BREAKPOINT_TYPE_FUNCTION:
if (xdebug_hash_find(XG(context).function_breakpoints, hkey, strlen(hkey), (void *) &brk)) {
return brk;
}
break;
case BREAKPOINT_TYPE_METHOD:
if (xdebug_hash_find(XG(context).class_breakpoints, hkey, strlen(hkey), (void *) &brk)) {
return brk;
}
break;
case BREAKPOINT_TYPE_EXCEPTION:
if (xdebug_hash_find(XG(context).exception_breakpoints, hkey, strlen(hkey), (void *) &brk)) {
return brk;
}
break;
}
return brk;
}
static int breakpoint_remove(int type, char *hkey)
{
xdebug_llist_element *le;
xdebug_brk_info *brk = NULL;
xdebug_arg *parts = (xdebug_arg*) xdmalloc(sizeof(xdebug_arg));
TSRMLS_FETCH();
switch (type) {
case BREAKPOINT_TYPE_LINE:
/* First we split the key into filename and linenumber */
xdebug_arg_init(parts);
xdebug_explode("$", hkey, parts, -1);
/* Second we loop through the list of file/line breakpoints to
* look for our thingy */
for (le = XDEBUG_LLIST_HEAD(XG(context).line_breakpoints); le != NULL; le = XDEBUG_LLIST_NEXT(le)) {
brk = XDEBUG_LLIST_VALP(le);
if (atoi(parts->args[1]) == brk->lineno && memcmp(brk->file, parts->args[0], brk->file_len) == 0) {
xdebug_llist_remove(XG(context).line_breakpoints, le, NULL);
return SUCCESS;
}
}
/* Cleaning up */
xdebug_arg_dtor(parts);
break;
case BREAKPOINT_TYPE_FUNCTION:
if (xdebug_hash_delete(XG(context).function_breakpoints, hkey, strlen(hkey))) {
return SUCCESS;
}
break;
case BREAKPOINT_TYPE_METHOD:
if (xdebug_hash_delete(XG(context).class_breakpoints, hkey, strlen(hkey))) {
return SUCCESS;
}
break;
case BREAKPOINT_TYPE_EXCEPTION:
if (xdebug_hash_delete(XG(context).exception_breakpoints, hkey, strlen(hkey))) {
return SUCCESS;
}
break;
}
return FAILURE;
}
#define BREAKPOINT_ACTION_GET 1
#define BREAKPOINT_ACTION_REMOVE 2
#define BREAKPOINT_ACTION_UPDATE 3
#define BREAKPOINT_CHANGE_STATE() \
XDEBUG_STR_SWITCH(CMD_OPTION('s')) { \
XDEBUG_STR_CASE("enabled") \
brk_info->disabled = 0; \
XDEBUG_STR_CASE_END \
\
XDEBUG_STR_CASE("disabled") \
brk_info->disabled = 1; \
XDEBUG_STR_CASE_END \
\
XDEBUG_STR_CASE_DEFAULT \
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS); \
XDEBUG_STR_CASE_DEFAULT_END \
}
#define BREAKPOINT_CHANGE_OPERATOR() \
XDEBUG_STR_SWITCH(CMD_OPTION('o')) { \
XDEBUG_STR_CASE(">=") \
brk_info->hit_condition = XDEBUG_HIT_GREATER_EQUAL; \
XDEBUG_STR_CASE_END \
\
XDEBUG_STR_CASE("==") \
brk_info->hit_condition = XDEBUG_HIT_EQUAL; \
XDEBUG_STR_CASE_END \
\
XDEBUG_STR_CASE("%") \
brk_info->hit_condition = XDEBUG_HIT_MOD; \
XDEBUG_STR_CASE_END \
\
XDEBUG_STR_CASE_DEFAULT \
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS); \
XDEBUG_STR_CASE_DEFAULT_END \
}
static void breakpoint_do_action(DBGP_FUNC_PARAMETERS, int action)
{
int type;
char *hkey;
xdebug_brk_info *brk_info;
xdebug_xml_node *breakpoint_node;
XDEBUG_STR_SWITCH_DECL;
if (!CMD_OPTION('d')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
/* Lets check if it exists */
if (breakpoint_admin_fetch(context, CMD_OPTION('d'), &type, (char**) &hkey) == SUCCESS) {
/* so it exists, now we're going to find it in the correct hash/list
* and return the info we have on it */
brk_info = breakpoint_brk_info_fetch(type, hkey);
if (action == BREAKPOINT_ACTION_UPDATE) {
if (CMD_OPTION('s')) {
BREAKPOINT_CHANGE_STATE();
}
if (CMD_OPTION('n')) {
brk_info->lineno = strtol(CMD_OPTION('n'), NULL, 10);
}
if (CMD_OPTION('h')) {
brk_info->hit_value = strtol(CMD_OPTION('h'), NULL, 10);
}
if (CMD_OPTION('o')) {
BREAKPOINT_CHANGE_OPERATOR();
}
}
breakpoint_node = xdebug_xml_node_init("breakpoint");
breakpoint_brk_info_add(breakpoint_node, brk_info);
xdebug_xml_add_attribute_ex(breakpoint_node, "id", xdstrdup(CMD_OPTION('d')), 0, 1);
xdebug_xml_add_child(*retval, breakpoint_node);
if (action == BREAKPOINT_ACTION_REMOVE) {
/* Now we remove the crap */
breakpoint_remove(type, hkey);
breakpoint_admin_remove(context, CMD_OPTION('d'));
}
} else {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_NO_SUCH_BREAKPOINT)
}
}
DBGP_FUNC(breakpoint_get)
{
breakpoint_do_action(DBGP_FUNC_PASS_PARAMETERS, BREAKPOINT_ACTION_GET);
}
DBGP_FUNC(breakpoint_remove)
{
breakpoint_do_action(DBGP_FUNC_PASS_PARAMETERS, BREAKPOINT_ACTION_REMOVE);
}
DBGP_FUNC(breakpoint_update)
{
breakpoint_do_action(DBGP_FUNC_PASS_PARAMETERS, BREAKPOINT_ACTION_UPDATE);
}
static void breakpoint_list_helper(void *xml, xdebug_hash_element *he)
{
xdebug_xml_node *xml_node = (xdebug_xml_node*) xml;
xdebug_xml_node *child;
xdebug_brk_admin *admin = (xdebug_brk_admin*) he->ptr;
xdebug_brk_info *brk;
child = xdebug_xml_node_init("breakpoint");
brk = breakpoint_brk_info_fetch(admin->type, admin->key);
breakpoint_brk_info_add(child, brk);
xdebug_xml_add_attribute_ex(child, "id", xdebug_sprintf("%lu", admin->id), 0, 1);
xdebug_xml_add_child(xml_node, child);
}
DBGP_FUNC(breakpoint_list)
{
xdebug_hash_apply(context->breakpoint_list, (void *) *retval, breakpoint_list_helper);
}
DBGP_FUNC(breakpoint_set)
{
xdebug_brk_info *brk_info;
char *tmp_name;
int brk_id = 0;
int new_length = 0;
function_stack_entry *fse;
XDEBUG_STR_SWITCH_DECL;
brk_info = xdmalloc(sizeof(xdebug_brk_info));
brk_info->type = NULL;
brk_info->file = NULL;
brk_info->file_len = 0;
brk_info->classname = NULL;
brk_info->functionname = NULL;
brk_info->function_break_type = 0;
brk_info->exceptionname = NULL;
brk_info->condition = NULL;
brk_info->disabled = 0;
brk_info->temporary = 0;
brk_info->hit_count = 0;
brk_info->hit_value = 0;
brk_info->hit_condition = XDEBUG_HIT_DISABLED;
if (!CMD_OPTION('t')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
} else {
brk_info->type = xdstrdup(CMD_OPTION('t'));
}
if (CMD_OPTION('s')) {
BREAKPOINT_CHANGE_STATE();
xdebug_xml_add_attribute_ex(*retval, "state", xdstrdup(CMD_OPTION('s')), 0, 1);
}
if (CMD_OPTION('o') && CMD_OPTION('h')) {
BREAKPOINT_CHANGE_OPERATOR();
brk_info->hit_value = strtol(CMD_OPTION('h'), NULL, 10);
}
if (strcmp(CMD_OPTION('t'), "line") == 0) {
if (!CMD_OPTION('n')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
brk_info->lineno = strtol(CMD_OPTION('n'), NULL, 10);
/* If no filename is given, we use the current one */
if (!CMD_OPTION('f')) {
fse = xdebug_get_stack_tail(TSRMLS_C);
if (!fse) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
} else {
brk_info->file = xdebug_path_from_url(fse->filename TSRMLS_CC);
brk_info->file_len = strlen(brk_info->file);
}
} else {
brk_info->file = xdebug_path_from_url(CMD_OPTION('f') TSRMLS_CC);
brk_info->file_len = strlen(brk_info->file);
}
/* Perhaps we have a break condition */
if (CMD_OPTION('-')) {
brk_info->condition = xdebug_base64_decode(CMD_OPTION('-'), strlen(CMD_OPTION('-')), &new_length);
}
tmp_name = xdebug_sprintf("%s$%lu", brk_info->file, brk_info->lineno);
brk_id = breakpoint_admin_add(context, BREAKPOINT_TYPE_LINE, tmp_name);
xdfree(tmp_name);
xdebug_llist_insert_next(context->line_breakpoints, XDEBUG_LLIST_TAIL(context->line_breakpoints), (void*) brk_info);
} else
if ((strcmp(CMD_OPTION('t'), "call") == 0) || (strcmp(CMD_OPTION('t'), "return") == 0)) {
if (strcmp(CMD_OPTION('t'), "call") == 0) {
brk_info->function_break_type = XDEBUG_BRK_FUNC_CALL;
} else {
brk_info->function_break_type = XDEBUG_BRK_FUNC_RETURN;
}
if (!CMD_OPTION('m')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
brk_info->functionname = xdstrdup(CMD_OPTION('m'));
if (CMD_OPTION('a')) {
int res;
brk_info->classname = xdstrdup(CMD_OPTION('a'));
tmp_name = xdebug_sprintf("%s::%s", CMD_OPTION('a'), CMD_OPTION('m'));
res = xdebug_hash_add(context->class_breakpoints, tmp_name, strlen(tmp_name), (void*) brk_info);
brk_id = breakpoint_admin_add(context, BREAKPOINT_TYPE_METHOD, tmp_name);
xdfree(tmp_name);
if (!res) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
} else {
if (!xdebug_hash_add(context->function_breakpoints, CMD_OPTION('m'), strlen(CMD_OPTION('m')), (void*) brk_info)) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_BREAKPOINT_NOT_SET);
} else {
brk_id = breakpoint_admin_add(context, BREAKPOINT_TYPE_FUNCTION, CMD_OPTION('m'));
}
}
} else
if (strcmp(CMD_OPTION('t'), "conditional") == 0) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_BREAKPOINT_TYPE_NOT_SUPPORTED);
} else
if (strcmp(CMD_OPTION('t'), "exception") == 0) {
#if PHP_MAJOR_VERSION >= 5
if (!CMD_OPTION('x')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
brk_info->exceptionname = xdstrdup(CMD_OPTION('x'));
if (!xdebug_hash_add(context->exception_breakpoints, CMD_OPTION('x'), strlen(CMD_OPTION('x')), (void*) brk_info)) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_BREAKPOINT_NOT_SET);
} else {
brk_id = breakpoint_admin_add(context, BREAKPOINT_TYPE_EXCEPTION, CMD_OPTION('x'));
}
#else
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_BREAKPOINT_TYPE_NOT_SUPPORTED);
#endif
} else
if (strcmp(CMD_OPTION('t'), "watch") == 0) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_BREAKPOINT_TYPE_NOT_SUPPORTED);
}
xdebug_xml_add_attribute_ex(*retval, "id", xdebug_sprintf("%d", brk_id), 0, 1);
}
static int _xdebug_do_eval(unsigned char *eval_string, zval *ret_zval TSRMLS_DC)
{
int old_error_reporting;
int res;
/* Remember error reporting level */
old_error_reporting = EG(error_reporting);
EG(error_reporting) = 0;
/* Do evaluation */
XG(breakpoints_allowed) = 0;
res = zend_eval_string(eval_string, ret_zval, "xdebug eval" TSRMLS_CC);
/* Clean up */
EG(error_reporting) = old_error_reporting;
XG(breakpoints_allowed) = 1;
return res;
}
DBGP_FUNC(eval)
{
unsigned char *eval_string;
xdebug_xml_node *ret_xml;
zval ret_zval;
int new_length;
int res;
xdebug_var_export_options *options;
if (!CMD_OPTION('-')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
options = (xdebug_var_export_options*) context->options;
/* base64 decode eval string */
eval_string = xdebug_base64_decode(CMD_OPTION('-'), strlen(CMD_OPTION('-')), &new_length);
res = _xdebug_do_eval(eval_string, &ret_zval TSRMLS_CC);
efree(eval_string);
/* Handle result */
if (res == FAILURE) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_EVALUATING_CODE);
} else {
ret_xml = get_zval_value_xml_node(NULL, &ret_zval, options);
xdebug_xml_add_child(*retval, ret_xml);
zval_dtor(&ret_zval);
}
}
/* these functions interupt PHP's output functions, so we can
redirect to our remote debugger! */
static int _xdebug_send_stream(const char *name, const char *str, uint str_length TSRMLS_DC)
{
/* create an xml document to send as the stream */
xdebug_xml_node *message;
message = xdebug_xml_node_init("stream");
xdebug_xml_add_attribute_ex(message, "type", (char *)name, 0, 0);
xdebug_xml_add_text_encode(message, xdstrdup(str));
send_message(&XG(context), message TSRMLS_CC);
xdebug_xml_node_dtor(message);
return 0;
}
static int _xdebug_header_write(const char *str, uint str_length TSRMLS_DC)
{
/* nesting_level is zero when final output is sent to sapi */
if (OG(ob_nesting_level) < 1) {
zend_unset_timeout(TSRMLS_C);
if (XG(stdout_redirected) != 0) {
_xdebug_send_stream("stdout", str, str_length TSRMLS_CC);
}
zend_set_timeout(EG(timeout_seconds));
}
return XG(stdio).php_header_write(str, str_length TSRMLS_CC);
}
static int _xdebug_body_write(const char *str, uint str_length TSRMLS_DC)
{
/* nesting_level is zero when final output is sent to sapi. We also dont
* want to write if headers are not sent yet, the output layer will handle
* this correctly later. */
if (OG(ob_nesting_level) < 1 && SG(headers_sent)) {
zend_unset_timeout(TSRMLS_C);
if (XG(stdout_redirected) != 0) {
_xdebug_send_stream("stdout", str, str_length TSRMLS_CC);
}
zend_set_timeout(EG(timeout_seconds));
}
return XG(stdio).php_body_write(str, str_length TSRMLS_CC);
}
DBGP_FUNC(stderr)
{
xdebug_xml_add_attribute(*retval, "success", "0");
}
DBGP_FUNC(stdout)
{
int mode = 0;
char *success = "0";
if (!CMD_OPTION('c')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
mode = strtol(CMD_OPTION('c'), NULL, 10);
if (mode == 0 && XG(stdout_redirected) != 0) {
if (XG(stdio).php_body_write != NULL && OG(php_body_write)) {
OG(php_body_write) = XG(stdio).php_body_write;
OG(php_header_write) = XG(stdio).php_header_write;
XG(stdio).php_body_write = NULL;
XG(stdio).php_header_write = NULL;
success = "1";
}
} else if (mode != 0 && XG(stdout_redirected) == 0) {
if (XG(stdio).php_body_write == NULL && OG(php_body_write)) {
XG(stdio).php_body_write = OG(php_body_write);
OG(php_body_write) = _xdebug_body_write;
XG(stdio).php_header_write = OG(php_header_write);
OG(php_header_write) = _xdebug_header_write;
success = "1";
}
}
XG(stdout_redirected) = mode;
xdebug_xml_add_attribute_ex(*retval, "success", xdstrdup(success), 0, 1);
}
DBGP_FUNC(stop)
{
XG(status) = DBGP_STATUS_STOPPING;
zend_bailout();
}
DBGP_FUNC(run)
{
xdebug_xml_add_attribute_ex(*retval, "filename", xdstrdup(context->program_name), 0, 1);
}
DBGP_FUNC(step_into)
{
XG(context).do_next = 0;
XG(context).do_step = 1;
XG(context).do_finish = 0;
}
DBGP_FUNC(step_out)
{
function_stack_entry *fse;
XG(context).do_next = 0;
XG(context).do_step = 0;
XG(context).do_finish = 1;
if ((fse = xdebug_get_stack_tail(TSRMLS_C))) {
XG(context).next_level = fse->level - 1;
} else {
XG(context).next_level = -1;
}
}
DBGP_FUNC(step_over)
{
function_stack_entry *fse;
XG(context).do_next = 1;
XG(context).do_step = 0;
XG(context).do_finish = 0;
if ((fse = xdebug_get_stack_tail(TSRMLS_C))) {
XG(context).next_level = fse->level;
} else {
XG(context).next_level = 0;
}
}
DBGP_FUNC(detach)
{
XG(status) = DBGP_STATUS_STOPPING;
XG(remote_enabled) = 0;
}
DBGP_FUNC(source)
{
char *source;
int begin = 0, end = 999999;
char *filename;
function_stack_entry *fse;
if (!CMD_OPTION('f')) {
if ((fse = xdebug_get_stack_tail(TSRMLS_C))) {
filename = fse->filename;
} else {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
}
} else {
filename = CMD_OPTION('f');
}
if (CMD_OPTION('b')) {
begin = strtol(CMD_OPTION('b'), NULL, 10);
}
if (CMD_OPTION('e')) {
end = strtol(CMD_OPTION('e'), NULL, 10);
}
/* return_source allocates memory for source */
source = return_source(filename, begin, end TSRMLS_CC);
if (!source) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_CANT_OPEN_FILE);
} else {
xdebug_xml_add_text_encode(*retval, source);
}
}
DBGP_FUNC(feature_get)
{
xdebug_var_export_options *options;
XDEBUG_STR_SWITCH_DECL;
options = (xdebug_var_export_options*) context->options;
if (!CMD_OPTION('n')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
xdebug_xml_add_attribute_ex(*retval, "feature_name", xdstrdup(CMD_OPTION('n')), 0, 1);
XDEBUG_STR_SWITCH(CMD_OPTION('n')) {
XDEBUG_STR_CASE("breakpoint_types")
xdebug_xml_add_text(*retval, xdstrdup("line call return"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("data_encoding")
xdebug_xml_add_attribute(*retval, "supported", "0");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("encoding")
xdebug_xml_add_text(*retval, xdstrdup("iso-8859-1"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("language_name")
xdebug_xml_add_text(*retval, xdstrdup("PHP"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("language_supports_threads")
xdebug_xml_add_text(*retval, xdstrdup("0"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("language_version")
xdebug_xml_add_text(*retval, xdstrdup(PHP_VERSION));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_children")
xdebug_xml_add_text(*retval, xdebug_sprintf("%ld", options->max_children));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_data")
xdebug_xml_add_text(*retval, xdebug_sprintf("%ld", options->max_data));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_depth")
xdebug_xml_add_text(*retval, xdebug_sprintf("%ld", options->max_depth));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("protocol_version")
xdebug_xml_add_text(*retval, xdstrdup(DBGP_VERSION));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("supported_encodings")
xdebug_xml_add_text(*retval, xdstrdup("iso-8859-1"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("supports_async")
xdebug_xml_add_text(*retval, xdstrdup("0"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("supports_postmortem")
xdebug_xml_add_text(*retval, xdstrdup("0"));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("show_hidden")
xdebug_xml_add_text(*retval, xdebug_sprintf("%ld", options->show_hidden));
xdebug_xml_add_attribute(*retval, "supported", "1");
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE_DEFAULT
xdebug_xml_add_text(*retval, xdstrdup(lookup_cmd(CMD_OPTION('n')) ? "1" : "0"));
xdebug_xml_add_attribute(*retval, "supported", lookup_cmd(CMD_OPTION('n')) ? "1" : "0");
XDEBUG_STR_CASE_DEFAULT_END
}
}
DBGP_FUNC(feature_set)
{
xdebug_var_export_options *options;
XDEBUG_STR_SWITCH_DECL;
options = (xdebug_var_export_options*) context->options;
if (!CMD_OPTION('n') || !CMD_OPTION('v')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
XDEBUG_STR_SWITCH(CMD_OPTION('n')) {
XDEBUG_STR_CASE("encoding")
if (strcmp(CMD_OPTION('v'), "iso-8859-1") != 0) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_ENCODING_NOT_SUPPORTED);
}
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_children")
options->max_children = strtol(CMD_OPTION('v'), NULL, 10);
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_data")
options->max_data = strtol(CMD_OPTION('v'), NULL, 10);
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("max_depth")
int i;
options->max_depth = strtol(CMD_OPTION('v'), NULL, 10);
/* Reallocating page structure */
xdfree(options->runtime);
options->runtime = (xdebug_var_runtime_page*) xdmalloc(options->max_depth * sizeof(xdebug_var_runtime_page));
for (i = 0; i < options->max_depth; i++) {
options->runtime[i].page = 0;
options->runtime[i].current_element_nr = 0;
}
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("show_hidden")
options->show_hidden = strtol(CMD_OPTION('v'), NULL, 10);
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE("multiple_sessions")
/* FIXME: Add new boolean option check / struct field for this */
XDEBUG_STR_CASE_END
XDEBUG_STR_CASE_DEFAULT
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
XDEBUG_STR_CASE_DEFAULT_END
}
xdebug_xml_add_attribute_ex(*retval, "feature", xdstrdup(CMD_OPTION('n')), 0, 1);
xdebug_xml_add_attribute_ex(*retval, "success", "1", 0, 0);
}
DBGP_FUNC(typemap_get)
{
int i;
xdebug_xml_node *type;
xdebug_xml_add_attribute(*retval, "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance");
xdebug_xml_add_attribute(*retval, "xmlns:xsd", "http://www.w3.org/2001/XMLSchema");
/* Add our basic types */
for (i = 0; i < XDEBUG_TYPES_COUNT; i++) {
type = xdebug_xml_node_init("map");
xdebug_xml_add_attribute(type, "name", xdebug_dbgp_typemap[i][1]);
xdebug_xml_add_attribute(type, "type", xdebug_dbgp_typemap[i][0]);
if (xdebug_dbgp_typemap[i][2]) {
xdebug_xml_add_attribute(type, "xsi:type", xdebug_dbgp_typemap[i][2]);
}
xdebug_xml_add_child(*retval, type);
}
}
static int add_variable_node(xdebug_xml_node *node, char *name, int name_length, int var_only, int non_null, int no_eval, xdebug_var_export_options *options TSRMLS_DC)
{
xdebug_xml_node *contents;
zval ret_zval;
int res;
HashTable *tmp_symbol_table;
contents = get_symbol(name, name_length, options TSRMLS_CC);
if (contents) {
xdebug_xml_add_child(node, contents);
return SUCCESS;
}
return FAILURE;
}
DBGP_FUNC(property_get)
{
int depth = -1;
function_stack_entry *fse;
int old_max_data;
xdebug_var_export_options *options = (xdebug_var_export_options*) context->options;
if (!CMD_OPTION('n')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
if (CMD_OPTION('d')) {
depth = strtol(CMD_OPTION('d'), NULL, 10);
}
/* Set the symbol table corresponding with the requested stack depth */
if (depth == -1) {
XG(active_symbol_table) = EG(active_symbol_table);
} else {
if ((fse = xdebug_get_stack_frame(depth TSRMLS_CC))) {
XG(active_symbol_table) = fse->symbol_table;
} else {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
}
}
if (CMD_OPTION('p')) {
options->runtime[0].page = strtol(CMD_OPTION('p'), NULL, 10);
} else {
options->runtime[0].page = 0;
}
/* Override max data size if necessary */
old_max_data = options->max_data;
if (CMD_OPTION('m')) {
options->max_data= strtol(CMD_OPTION('m'), NULL, 10);
}
if (add_variable_node(*retval, CMD_OPTION('n'), strlen(CMD_OPTION('n')) + 1, 1, 0, 0, options TSRMLS_CC) == FAILURE) {
options->max_data = old_max_data;
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_PROPERTY_NON_EXISTANT);
}
}
DBGP_FUNC(property_set)
{
int depth = 0;
int context_id = 0;
char *new_value;
char *eval_string;
zval ret_zval;
int new_length;
int res;
int address = 0;
char *name = CMD_OPTION('n');
char *data = CMD_OPTION('-');
/* XXX TODO
* if the key or the address are returned, they can be used to more
* efficiently retrieve the value from the variables list. Otherwise we
* use EVAL to set the property which works great, but is slower.
*
* handle the depth value and set the property at a specific stack depth
*
* handle the context_id value and set the property in the correct context
*/
if (!name) { /* name */
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
if (!data) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
if (CMD_OPTION('d')) { /* depth */
depth = strtol(CMD_OPTION('d'), NULL, 10);
}
if (CMD_OPTION('c')) { /* context_id */
context_id = strtol(CMD_OPTION('c'), NULL, 10);
}
if (CMD_OPTION('a')) { /* address */
address = strtol(CMD_OPTION('a'), NULL, 10);
}
/* base64 decode eval string */
new_value = xdebug_base64_decode(data, strlen(data), &new_length);
eval_string = xdebug_sprintf("%s = %s", name, new_value);
res = _xdebug_do_eval(eval_string, &ret_zval TSRMLS_CC);
efree(new_value);
xdfree(eval_string);
/* Handle result */
if (res == FAILURE) {
/* don't send an error, send success = zero */
xdebug_xml_add_attribute(*retval, "success", "0");
} else {
xdebug_xml_add_attribute(*retval, "success", "1");
zval_dtor(&ret_zval);
}
}
static int add_variable_contents_node(xdebug_xml_node *node, char *name, int name_length, int var_only, int non_null, int no_eval, xdebug_var_export_options *options TSRMLS_DC)
{
int contents_found;
zval ret_zval;
int res;
HashTable *tmp_symbol_table;
contents_found = get_symbol_contents(name, name_length, node, options TSRMLS_CC);
if (contents_found) {
return SUCCESS;
}
return FAILURE;
}
DBGP_FUNC(property_value)
{
int depth = -1;
function_stack_entry *fse;
int old_max_data;
xdebug_var_export_options *options = (xdebug_var_export_options*) context->options;
if (!CMD_OPTION('n')) {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_INVALID_ARGS);
}
if (CMD_OPTION('d')) {
depth = strtol(CMD_OPTION('d'), NULL, 10);
}
/* Set the symbol table corresponding with the requested stack depth */
if (depth == -1) {
XG(active_symbol_table) = EG(active_symbol_table);
} else {
if ((fse = xdebug_get_stack_frame(depth TSRMLS_CC))) {
XG(active_symbol_table) = fse->symbol_table;
} else {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
}
}
if (CMD_OPTION('p')) {
options->runtime[0].page = strtol(CMD_OPTION('p'), NULL, 10);
} else {
options->runtime[0].page = 0;
}
/* Override max data size if necessary */
old_max_data = options->max_data;
if (CMD_OPTION('m')) {
options->max_data = strtol(CMD_OPTION('m'), NULL, 10);
}
if (add_variable_contents_node(*retval, CMD_OPTION('n'), strlen(CMD_OPTION('n')) + 1, 1, 0, 0, options TSRMLS_CC) == FAILURE) {
options->max_data = old_max_data;
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_PROPERTY_NON_EXISTANT);
}
}
static void attach_used_var_with_contents(void *xml, xdebug_hash_element* he, void *options)
{
char *name = (char*) he->ptr;
char *full_name;
xdebug_xml_node *node = (xdebug_xml_node *) xml;
xdebug_xml_node *contents;
TSRMLS_FETCH();
contents = get_symbol(name, strlen(name) + 1, options TSRMLS_CC);
if (contents) {
xdebug_xml_add_child(node, contents);
} else {
contents = xdebug_xml_node_init("property");
if (name[0] != '$') {
full_name = xdebug_sprintf("$%s", name);
} else {
full_name = xdstrdup(name);
}
xdebug_xml_add_attribute_ex(contents, "name", xdstrdup(name), 0, 1);
xdebug_xml_add_attribute_ex(contents, "fullname", xdstrdup(full_name), 0, 1);
xdebug_xml_add_attribute(contents, "type", "uninitialized");
xdebug_xml_add_child(node, contents);
}
}
static int attach_context_vars(xdebug_xml_node *node, xdebug_var_export_options *options, long context_id, long depth, void (*func)(void *, xdebug_hash_element*, void*) TSRMLS_DC)
{
function_stack_entry *fse;
xdebug_hash *ht;
if (context_id > 0) {
/* right now, we only have zero or one, one being globals, which is
* always the head of the stack */
depth = XG(level) - 1;
}
if ((fse = xdebug_get_stack_frame(depth TSRMLS_CC))) {
ht = fse->used_vars;
XG(active_symbol_table) = fse->symbol_table;
/* Only show vars when they are scanned */
if (ht) {
xdebug_hash_apply_with_argument(ht, (void *) node, func, (void *) options);
}
#ifdef ZEND_ENGINE_2
/* zend engine 2 does not give us $this, eval so we can get it */
add_variable_node(node, "this", sizeof("this"), 1, 1, 0, options TSRMLS_CC);
#endif
if (options->show_hidden && context_id > 0) {
/* add supper globals */
add_variable_node(node, "_ENV", sizeof("_ENV"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_GET", sizeof("_GET"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_POST", sizeof("_POST"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_COOKIE", sizeof("_COOKIE"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_REQUEST", sizeof("_REQUEST"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_FILES", sizeof("_FILES"), 1, 1, 0, options TSRMLS_CC);
add_variable_node(node, "_SERVER", sizeof("_SERVER"), 1, 1, 0, options TSRMLS_CC);
}
XG(active_symbol_table) = NULL;
return 0;
}
return 1;
}
DBGP_FUNC(stack_depth)
{
xdebug_xml_add_attribute_ex(*retval, "depth", xdebug_sprintf("%lu", XG(level)), 0, 1);
}
DBGP_FUNC(stack_get)
{
xdebug_xml_node *stackframe;
xdebug_llist_element *le;
int counter = 0, depth;
if (CMD_OPTION('d')) {
depth = strtol(CMD_OPTION('d'), NULL, 10);
if (depth >= 0 && depth < XG(level)) {
stackframe = return_stackframe(depth TSRMLS_CC);
xdebug_xml_add_child(*retval, stackframe);
} else {
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
}
} else {
counter = 0;
for (le = XDEBUG_LLIST_TAIL(XG(stack)); le != NULL; le = XDEBUG_LLIST_PREV(le)) {
stackframe = return_stackframe(counter TSRMLS_CC);
xdebug_xml_add_child(*retval, stackframe);
counter++;
}
}
}
DBGP_FUNC(status)
{
xdebug_xml_add_attribute(*retval, "status", xdebug_dbgp_status_strings[XG(status)]);
xdebug_xml_add_attribute(*retval, "reason", xdebug_dbgp_reason_strings[XG(reason)]);
}
DBGP_FUNC(context_names)
{
xdebug_xml_node *child;
child = xdebug_xml_node_init("context");
xdebug_xml_add_attribute(child, "name", "Locals");
xdebug_xml_add_attribute(child, "id", "0");
xdebug_xml_add_child(*retval, child);
child = xdebug_xml_node_init("context");
xdebug_xml_add_attribute(child, "name", "Globals");
xdebug_xml_add_attribute(child, "id", "1");
xdebug_xml_add_child(*retval, child);
}
DBGP_FUNC(context_get)
{
int res;
int context_id = 0;
int depth = 0;
xdebug_var_export_options *options = (xdebug_var_export_options*) context->options;
if (CMD_OPTION('c')) {
context_id = atol(CMD_OPTION('c'));
}
if (CMD_OPTION('d')) {
depth = atol(CMD_OPTION('d'));
}
/* Always reset to page = 0, as it might have been modified by property_get or property_value */
options->runtime[0].page = 0;
res = attach_context_vars(*retval, options, context_id, depth, attach_used_var_with_contents TSRMLS_CC);
switch (res) {
case 1:
RETURN_RESULT(XG(status), XG(reason), XDEBUG_ERROR_STACK_DEPTH_INVALID);
break;
}
}
/*****************************************************************************
** Parsing functions
*/
/* {{{ Constants for state machine */
#define STATE_NORMAL 0
#define STATE_QUOTED 1
#define STATE_OPT_FOLLOWS 2
#define STATE_SEP_FOLLOWS 3
#define STATE_VALUE_FOLLOWS_FIRST_CHAR 4
#define STATE_VALUE_FOLLOWS 5
#define STATE_SKIP_CHAR 6
/* }}} */
void xdebug_dbgp_arg_dtor(xdebug_dbgp_arg *arg)
{
int i;
for (i = 0; i < 26; i++) {
if (arg->value[i]) {
xdfree(arg->value[i]);
}
}
xdfree(arg);
}
int xdebug_dbgp_parse_cmd(char *line, char **cmd, xdebug_dbgp_arg **ret_args)
{
xdebug_dbgp_arg *args = NULL;
char *ptr;
int state;
int charescaped = 0;
char opt = ' ', *value_begin = NULL;
args = xdmalloc(sizeof (xdebug_dbgp_arg));
memset(args->value, 0, sizeof(args->value));
*cmd = NULL;
/* Find the end of the command, this is always on the first space */
ptr = strchr(line, ' ');
if (!ptr) {
/* No space found. If the line is not empty, return the line
* and assume it only consists of the command name. If the line
* is 0 chars long, we return a failure. */
if (strlen(line)) {
*cmd = strdup(line);
*ret_args = args;
return XDEBUG_ERROR_OK;
} else {
goto parse_error;
}
} else {
/* A space was found, so we copy everything before it
* into the cmd parameter. */
*cmd = xdcalloc(1, ptr - line + 1);
memcpy(*cmd, line, ptr - line);
}
/* Now we loop until we find the end of the string, which is the \0
* character */
state = STATE_NORMAL;
do {
ptr++;
switch (state) {
case STATE_NORMAL:
if (*ptr != '-') {
goto parse_error;
} else {
state = STATE_OPT_FOLLOWS;
}
break;
case STATE_OPT_FOLLOWS:
opt = *ptr;
state = STATE_SEP_FOLLOWS;
break;
case STATE_SEP_FOLLOWS:
if (*ptr != ' ') {
goto parse_error;
} else {
state = STATE_VALUE_FOLLOWS_FIRST_CHAR;
value_begin = ptr + 1;
}
break;
case STATE_VALUE_FOLLOWS_FIRST_CHAR:
if (*ptr == '"' && opt != '-') {
value_begin = ptr + 1;
state = STATE_QUOTED;
} else {
state = STATE_VALUE_FOLLOWS;
}
break;
case STATE_VALUE_FOLLOWS:
if ((*ptr == ' ' && opt != '-') || *ptr == '\0') {
int index = opt - 'a';
if (opt == '-') {
index = 26;
}
if (!args->value[index]) {
args->value[index] = xdcalloc(1, ptr - value_begin + 1);
memcpy(args->value[index], value_begin, ptr - value_begin);
state = STATE_NORMAL;
} else {
goto duplicate_opts;
}
}
break;
case STATE_QUOTED:
/* if the quote is escaped, remain in STATE_QUOTED. This
will also handle other escaped chars, or an instance of
an escaped slash followed by a quote: \\"
*/
if (*ptr == '\\') {
charescaped = !charescaped;
} else
if (*ptr == '"') {
int index = opt - 'a';
if (charescaped) {
charescaped = 0;
break;
}
if (opt == '-') {
index = 26;
}
if (!args->value[index]) {
int len = ptr - value_begin;
args->value[index] = xdcalloc(1, len + 1);
memcpy(args->value[index], value_begin, len);
php_stripcslashes(args->value[index], &len);
state = STATE_SKIP_CHAR;
} else {
goto duplicate_opts;
}
}
break;
case STATE_SKIP_CHAR:
state = STATE_NORMAL;
break;
}
} while (*ptr);
*ret_args = args;
return XDEBUG_ERROR_OK;
parse_error:
*ret_args = args;
return XDEBUG_ERROR_PARSE;
duplicate_opts:
*ret_args = args;
return XDEBUG_ERROR_DUP_ARG;
}
int xdebug_dbgp_parse_option(xdebug_con *context, char* line, int flags, xdebug_xml_node *retval TSRMLS_DC)
{
char *cmd = NULL;
int res, ret = 0;
xdebug_dbgp_arg *args;
xdebug_dbgp_cmd *command;
xdebug_xml_node *error;
if (XG(remote_log_file)) {
fprintf(XG(remote_log_file), "<- %s\n", line);
fflush(XG(remote_log_file));
}
res = xdebug_dbgp_parse_cmd(line, (char**) &cmd, (xdebug_dbgp_arg**) &args);
/* Add command name to return packet */
if (cmd) {
/* if no cmd res will be XDEBUG_ERROR_PARSE */
xdebug_xml_add_attribute_ex(retval, "command", xdstrdup(cmd), 0, 1);
}
/* Handle missing transaction ID, and if it exist add it to the result */
if (!CMD_OPTION('i')) {
/* we need the transaction_id even for errors in parse_cmd, but if
we error out here, just force the error to happen below */
res = XDEBUG_ERROR_INVALID_ARGS;
} else {
xdebug_xml_add_attribute_ex(retval, "transaction_id", xdstrdup(CMD_OPTION('i')), 0, 1);
}
/* Handle parse errors */
/* FIXME: use RETURN_RESULT here too */
if (res != XDEBUG_ERROR_OK) {
error = xdebug_xml_node_init("error");
xdebug_xml_add_attribute_ex(error, "code", xdebug_sprintf("%lu", res), 0, 1);
xdebug_xml_add_child(retval, error);
} else {
/* Execute commands and stuff */
command = lookup_cmd(cmd);
if (command) {
if (command->cont) {
XG(status) = DBGP_STATUS_RUNNING;
XG(reason) = DBGP_REASON_OK;
XG(lastcmd) = command->name;
XG(lasttransid) = xdstrdup(CMD_OPTION('i'));
}
command->handler((xdebug_xml_node**) &retval, context, args TSRMLS_CC);
ret = command->cont;
} else {
error = xdebug_xml_node_init("error");
xdebug_xml_add_attribute_ex(error, "code", xdebug_sprintf("%lu", XDEBUG_ERROR_UNIMPLEMENTED), 0, 1);
xdebug_xml_add_child(retval, error);
ret = -1;
}
}
xdfree(cmd);
xdebug_dbgp_arg_dtor(args);
return ret;
}
/*****************************************************************************
** Handlers for debug functions
*/
char *xdebug_dbgp_get_revision(void)
{
return "$Revision: 1.95 $";
}
int xdebug_dbgp_cmdloop(xdebug_con *context TSRMLS_DC)
{
char *option;
int ret;
xdebug_xml_node *response;
do {
option = fd_read_line_delim(context->socket, context->buffer, FD_RL_SOCKET, '\0', NULL);
if (!option) {
return 0;
}
response = xdebug_xml_node_init("response");
ret = xdebug_dbgp_parse_option(context, option, 0, response TSRMLS_CC);
if (ret != 1) {
send_message(context, response TSRMLS_CC);
}
xdebug_xml_node_dtor(response);
free(option);
} while (1 != ret);
return ret;
}
int xdebug_dbgp_init(xdebug_con *context, int mode)
{
xdebug_var_export_options *options;
xdebug_xml_node *response, *child;
int i;
TSRMLS_FETCH();
/* initialize our status information */
XG(status) = DBGP_STATUS_STARTING;
XG(reason) = DBGP_REASON_OK;
XG(lastcmd) = NULL;
XG(lasttransid) = NULL;
XG(stdout_redirected) = 0;
XG(stderr_redirected) = 0;
XG(stdin_redirected) = 0;
/* initialize remote log file */
XG(remote_log_file) = NULL;
if (XG(remote_log) && strlen(XG(remote_log))) {
XG(remote_log_file) = fopen(XG(remote_log), "a");
}
if (XG(remote_log_file)) {
char *timestr = xdebug_get_time();
fprintf(XG(remote_log_file), "Log opened at %s\n", timestr);
fflush(XG(remote_log_file));
xdfree(timestr);
}
response = xdebug_xml_node_init("init");
/* {{{ XML Init Stuff*/
child = xdebug_xml_node_init("engine");
xdebug_xml_add_attribute(child, "version", XDEBUG_VERSION);
xdebug_xml_add_text(child, xdstrdup(XDEBUG_NAME));
xdebug_xml_add_child(response, child);
child = xdebug_xml_node_init("author");
xdebug_xml_add_text(child, xdstrdup(XDEBUG_AUTHOR));
xdebug_xml_add_child(response, child);
child = xdebug_xml_node_init("url");
xdebug_xml_add_text(child, xdstrdup(XDEBUG_URL));
xdebug_xml_add_child(response, child);
child = xdebug_xml_node_init("copyright");
xdebug_xml_add_text(child, xdstrdup(XDEBUG_COPYRIGHT));
xdebug_xml_add_child(response, child);
if (strcmp(context->program_name, "-") == 0) {
xdebug_xml_add_attribute_ex(response, "fileuri", xdstrdup("dbgp://stdin"), 0, 1);
} else {
xdebug_xml_add_attribute_ex(response, "fileuri", xdebug_path_to_url(context->program_name TSRMLS_CC), 0, 1);
}
xdebug_xml_add_attribute_ex(response, "language", "PHP", 0, 0);
xdebug_xml_add_attribute_ex(response, "protocol_version", DBGP_VERSION, 0, 0);
xdebug_xml_add_attribute_ex(response, "appid", xdebug_sprintf("%d", getpid()), 0, 1);
if (getenv("DBGP_COOKIE")) {
xdebug_xml_add_attribute_ex(response, "session", xdstrdup(getenv("DBGP_COOKIE")), 0, 1);
}
if (XG(ide_key) && *XG(ide_key)) {
xdebug_xml_add_attribute_ex(response, "idekey", xdstrdup(XG(ide_key)), 0, 1);
}
context->buffer = xdmalloc(sizeof(fd_buf));
context->buffer->buffer = NULL;
context->buffer->buffer_size = 0;
send_message(context, response TSRMLS_CC);
xdebug_xml_node_dtor(response);
/* }}} */
context->options = xdmalloc(sizeof(xdebug_var_export_options));
options = (xdebug_var_export_options*) context->options;
options->max_children = 32;
options->max_data = 1024;
options->max_depth = 1;
options->show_hidden = 0;
options->runtime = (xdebug_var_runtime_page*) xdmalloc((options->max_depth + 1) * sizeof(xdebug_var_runtime_page));
for (i = 0; i < options->max_depth; i++) {
options->runtime[i].page = 0;
options->runtime[i].current_element_nr = 0;
}
/* {{{ Initialize auto globals in Zend Engine 2 */
#ifdef ZEND_ENGINE_2
zend_is_auto_global("_ENV", sizeof("_ENV")-1 TSRMLS_CC);
zend_is_auto_global("_GET", sizeof("_GET")-1 TSRMLS_CC);
zend_is_auto_global("_POST", sizeof("_POST")-1 TSRMLS_CC);
zend_is_auto_global("_COOKIE", sizeof("_COOKIE")-1 TSRMLS_CC);
zend_is_auto_global("_REQUEST", sizeof("_REQUEST")-1 TSRMLS_CC);
zend_is_auto_global("_FILES", sizeof("_FILES")-1 TSRMLS_CC);
zend_is_auto_global("_SERVER", sizeof("_SERVER")-1 TSRMLS_CC);
#endif
/* }}} */
context->breakpoint_list = xdebug_hash_alloc(64, (xdebug_hash_dtor) xdebug_hash_admin_dtor);
context->function_breakpoints = xdebug_hash_alloc(64, (xdebug_hash_dtor) xdebug_hash_brk_dtor);
context->exception_breakpoints = xdebug_hash_alloc(64, (xdebug_hash_dtor) xdebug_hash_brk_dtor);
context->class_breakpoints = xdebug_hash_alloc(64, (xdebug_hash_dtor) xdebug_hash_brk_dtor);
context->line_breakpoints = xdebug_llist_alloc((xdebug_llist_dtor) xdebug_llist_brk_dtor);
context->eval_id_lookup = xdebug_hash_alloc(64, (xdebug_hash_dtor) xdebug_hash_eval_info_dtor);
context->eval_id_sequence = 0;
xdebug_dbgp_cmdloop(context TSRMLS_CC);
return 1;
}
int xdebug_dbgp_deinit(xdebug_con *context)
{
xdebug_xml_node *response;
xdebug_var_export_options *options;
TSRMLS_FETCH();
XG(status) = DBGP_STATUS_STOPPED;
XG(reason) = DBGP_REASON_OK;
response = xdebug_xml_node_init("response");
/* lastcmd and lasttransid are not always set (for example when the
* connection is severed before the first command is send) */
if (XG(lastcmd) && XG(lasttransid)) {
xdebug_xml_add_attribute_ex(response, "command", XG(lastcmd), 0, 0);
xdebug_xml_add_attribute_ex(response, "transaction_id", XG(lasttransid), 0, 0);
}
xdebug_xml_add_attribute_ex(response, "status", xdebug_dbgp_status_strings[XG(status)], 0, 0);
xdebug_xml_add_attribute_ex(response, "reason", xdebug_dbgp_reason_strings[XG(reason)], 0, 0);
send_message(context, response TSRMLS_CC);
xdebug_xml_node_dtor(response);
if (XG(stdio).php_body_write != NULL && OG(php_body_write)) {
OG(php_body_write) = XG(stdio).php_body_write;
OG(php_header_write) = XG(stdio).php_header_write;
XG(stdio).php_body_write = NULL;
XG(stdio).php_header_write = NULL;
}
options = (xdebug_var_export_options*) context->options;
xdfree(options->runtime);
xdfree(context->options);
xdebug_hash_destroy(context->function_breakpoints);
xdebug_hash_destroy(context->exception_breakpoints);
xdebug_hash_destroy(context->class_breakpoints);
xdebug_hash_destroy(context->eval_id_lookup);
xdebug_llist_destroy(context->line_breakpoints, NULL);
xdebug_hash_destroy(context->breakpoint_list);
xdfree(context->buffer);
if (XG(remote_log_file)) {
char *timestr = xdebug_get_time();
fprintf(XG(remote_log_file), "Log closed at %s\n\n", timestr);
fflush(XG(remote_log_file));
xdfree(timestr);
fclose(XG(remote_log_file));
XG(remote_log_file) = NULL;
}
return 1;
}
int xdebug_dbgp_error(xdebug_con *context, int type, char *exception_type, char *message, const char *location, const uint line, xdebug_llist *stack)
{
char *errortype;
xdebug_xml_node *response, *error;
TSRMLS_FETCH();
if (exception_type) {
errortype = exception_type;
} else {
errortype = error_type(type);
}
if (exception_type) {
XG(status) = DBGP_STATUS_BREAK;
XG(reason) = DBGP_REASON_EXCEPTION;
} else {
switch (type) {
case E_CORE_ERROR:
/* no break - intentionally */
case E_ERROR:
/*case E_PARSE: the parser would return 1 (failure), we can bail out nicely */
case E_COMPILE_ERROR:
case E_USER_ERROR:
XG(status) = DBGP_STATUS_STOPPING;
XG(reason) = DBGP_REASON_ABORTED;
break;
default:
XG(status) = DBGP_STATUS_BREAK;
XG(reason) = DBGP_REASON_ERROR;
}
}
/*
runtime_allowed = (
(type != E_ERROR) &&
(type != E_CORE_ERROR) &&
(type != E_COMPILE_ERROR) &&
(type != E_USER_ERROR)
) ? XDEBUG_BREAKPOINT | XDEBUG_RUNTIME : 0;
*/
response = xdebug_xml_node_init("response");
xdebug_xml_add_attribute_ex(response, "command", XG(lastcmd), 0, 0);
xdebug_xml_add_attribute_ex(response, "transaction_id", XG(lasttransid), 0, 1);
xdebug_xml_add_attribute(response, "status", xdebug_dbgp_status_strings[XG(status)]);
xdebug_xml_add_attribute(response, "reason", xdebug_dbgp_reason_strings[XG(reason)]);
error = xdebug_xml_node_init("error");
xdebug_xml_add_attribute_ex(error, "code", xdebug_sprintf("%lu", type), 0, 1);
xdebug_xml_add_attribute_ex(error, "exception", xdstrdup(errortype), 0, 1);
xdebug_xml_add_text(error, xdstrdup(message));
xdebug_xml_add_child(response, error);
send_message(context, response TSRMLS_CC);
xdebug_xml_node_dtor(response);
if (!exception_type) {
xdfree(errortype);
}
xdebug_dbgp_cmdloop(context TSRMLS_CC);
return 1;
}
int xdebug_dbgp_breakpoint(xdebug_con *context, xdebug_llist *stack, char *file, long lineno, int type)
{
xdebug_xml_node *response;
TSRMLS_FETCH();
XG(status) = DBGP_STATUS_BREAK;
XG(reason) = DBGP_REASON_OK;
response = xdebug_xml_node_init("response");
xdebug_xml_add_attribute_ex(response, "command", XG(lastcmd), 0, 0);
xdebug_xml_add_attribute_ex(response, "transaction_id", XG(lasttransid), 0, 1);
xdebug_xml_add_attribute(response, "status", xdebug_dbgp_status_strings[XG(status)]);
xdebug_xml_add_attribute(response, "reason", xdebug_dbgp_reason_strings[XG(reason)]);
send_message(context, response TSRMLS_CC);
xdebug_xml_node_dtor(response);
XG(lastcmd) = NULL;
XG(lasttransid) = NULL;
xdebug_dbgp_cmdloop(context TSRMLS_CC);
return 1;
}
static char *create_eval_key_file(char *filename, int lineno)
{
return xdebug_sprintf("%s(%d) : eval()'d code", filename, lineno);
}
static char *create_eval_key_id(int id)
{
return xdebug_sprintf("%04x", id);
}
int xdebug_dbgp_register_eval_id(xdebug_con *context, function_stack_entry *fse)
{
char *key;
xdebug_eval_info *ei;
context->eval_id_sequence++;
ei = xdcalloc(sizeof(xdebug_eval_info), 1);
ei->id = context->eval_id_sequence;
ei->contents = xdstrndup(fse->include_filename + 1, strlen(fse->include_filename) - 2);
ei->refcount = 2;
key = create_eval_key_file(fse->filename, fse->lineno);
xdebug_hash_add(context->eval_id_lookup, key, strlen(key), (void*) ei);
key = create_eval_key_id(ei->id);
xdebug_hash_add(context->eval_id_lookup, key, strlen(key), (void*) ei);
return ei->id;
}
int xdebug_dbgp_unregister_eval_id(xdebug_con *context, function_stack_entry *fse, int eval_id)
{
char *key;
key = create_eval_key_file(fse->filename, fse->lineno);
xdebug_hash_delete(context->eval_id_lookup, key, strlen(key));
key = create_eval_key_id(eval_id);
xdebug_hash_delete(context->eval_id_lookup, key, strlen(key));
return 1;
}