/*
   +----------------------------------------------------------------------+
   | 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 "zend.h"
#include "zend_hash.h"
#include "phpdbg.h"
#include "phpdbg_bp.h"

ZEND_EXTERN_MODULE_GLOBALS(phpdbg);

static void phpdbg_llist_breakfile_dtor(void *data) /* {{{ */
{
	phpdbg_breakfile_t *bp = (phpdbg_breakfile_t*) data;

	efree((char*)bp->filename);
} /* }}} */

static void phpdbg_llist_breaksym_dtor(void *data) /* {{{ */
{
	phpdbg_breaksymbol_t *bp = (phpdbg_breaksymbol_t*) data;

	efree((char*)bp->symbol);
} /* }}} */

void phpdbg_set_breakpoint_file(const char *expr, const char *line_pos TSRMLS_DC) /* {{{ */
{
	char resolved_name[MAXPATHLEN];
	long line_num = strtol(line_pos+1, NULL, 0);
	phpdbg_breakfile_t new_break;
	zend_llist *break_files_ptr;
	size_t name_len;
	char *path = estrndup(expr, line_pos - expr);

	if (expand_filepath(path, resolved_name TSRMLS_CC) == NULL) {
		efree(path);
		return;
	}
	efree(path);

	name_len = strlen(resolved_name);
	new_break.filename = estrndup(resolved_name, name_len + 1);
	new_break.line = line_num;

	PHPDBG_G(has_file_bp) = 1;

	if (zend_hash_find(&PHPDBG_G(bp_files),
		new_break.filename, name_len, (void**)&break_files_ptr) == FAILURE) {
		zend_llist break_files;

		zend_llist_init(&break_files, sizeof(phpdbg_breakfile_t),
			phpdbg_llist_breakfile_dtor, 0);

		zend_hash_update(&PHPDBG_G(bp_files),
			new_break.filename, name_len, &break_files, sizeof(zend_llist),
			(void**)&break_files_ptr);
	}
	zend_llist_add_element(break_files_ptr, &new_break);
} /* }}} */

void phpdbg_set_breakpoint_symbol(const char *expr, const char *opline_num_pos TSRMLS_DC) /* {{{ */
{
	long opline_num = opline_num_pos ? strtol(opline_num_pos+1, NULL, 0) : 0;
	phpdbg_breaksymbol_t new_break;
	zend_llist *break_sym_ptr;
	size_t name_len = opline_num_pos ? opline_num_pos - expr : strlen(expr);

	new_break.symbol = estrndup(expr, name_len);
	new_break.opline_num = opline_num;

	PHPDBG_G(has_sym_bp) = 1;

	if (zend_hash_find(&PHPDBG_G(bp_symbols),
		new_break.symbol, name_len, (void**)&break_sym_ptr) == FAILURE) {
		zend_llist break_syms;

		zend_llist_init(&break_syms, sizeof(phpdbg_breaksymbol_t),
			phpdbg_llist_breaksym_dtor, 0);

		zend_hash_update(&PHPDBG_G(bp_symbols),
			new_break.symbol, name_len, &break_syms, sizeof(zend_llist),
			(void**)&break_sym_ptr);
	}
	zend_llist_add_element(break_sym_ptr, &new_break);
} /* }}} */

int phpdbg_breakpoint_file(zend_op_array *op_array TSRMLS_DC) /* {{{ */
{
	size_t name_len = strlen(op_array->filename);
	zend_llist *break_list;

	if (zend_hash_find(&PHPDBG_G(bp_files), op_array->filename, name_len,
		(void**)&break_list) == SUCCESS) {
		zend_llist_element *le;

		for (le = break_list->head; le; le = le->next) {
			phpdbg_breakfile_t *bp = (phpdbg_breakfile_t*) le->data;

			if (bp->line == (*EG(opline_ptr))->lineno) {
				printf("breakpoint reached!\n");
				return SUCCESS;
			}
		}
	}

	return FAILURE;
} /* }}} */

int phpdbg_breakpoint_symbol(zend_function *fbc TSRMLS_DC) /* {{{ */
{
	const char *fname;
	zend_llist *break_list;

	if (fbc->type != ZEND_USER_FUNCTION) {
		return FAILURE;
	}

	fname = ((zend_op_array*)fbc)->function_name;

	if (!fname) {
		fname = "main";
	}
    
	if (zend_hash_find(&PHPDBG_G(bp_symbols), fname, strlen(fname),
		(void**)&break_list) == SUCCESS) {
		printf("breakpoint reached!\n");
		return SUCCESS;
	}

	return FAILURE;
}
/* }}} */