/*
   +----------------------------------------------------------------------+
   | 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 <stdio.h>
#include <ctype.h>
#include "zend.h"
#include "php.h"
#include "spprintf.h"
#include "phpdbg.h"
#include "phpdbg_opcode.h"
#include "phpdbg_utils.h"

ZEND_EXTERN_MODULE_GLOBALS(phpdbg);

int phpdbg_is_numeric(const char *str) /* {{{ */
{
	for (; *str; str++) {
		if (isspace(*str)) {
			continue;
		}
		return isdigit(*str);
	}
	return 0;
} /* }}} */

int phpdbg_is_empty(const char *str) /* {{{ */
{
	for (; *str; str++) {
		if (isspace(*str)) {
			continue;
		}
		return 0;
	}
	return 1;
} /* }}} */

int phpdbg_is_addr(const char *str) /* {{{ */
{
	return str[0] && str[1] && memcmp(str, "0x", 2) == 0;
} /* }}} */

int phpdbg_is_class_method(const char *str, size_t len, char **class, char **method) /* {{{ */
{
	const char *sep = strstr(str, "::");

	if (!sep || sep == str || sep+2 == str+len-1) {
		return 0;
	}

	*class = estrndup(str, sep - str);
	class[sep - str] = 0;

	*method = estrndup(sep+2, str + len - (sep + 2));

	return 1;
} /* }}} */

void phpdbg_print(int type TSRMLS_DC, const char *format, ...) /* {{{ */
{
	char *buffer = NULL;
	va_list args;

	va_start(args, format);
	vspprintf(&buffer, 0, format, args);
	va_end(args);

    /* TODO(anyone) colours */

	switch (type) {
		case ERROR:
			printf("%s%s%s\n",
				((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[1;31m[" : "["),
				buffer,
				((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "]\033[0m" : "]"));
		break;

		case NOTICE:
			printf("%s%s%s\n",
				((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[1;64m[" : "["),
				buffer,
				((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "]\033[0m" : "]"));
		break;
		
		case WRITELN: {
		    if (buffer) {
			    printf("%s%s%s\n",
				    ((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[37m" : ""),
				    buffer,
				    ((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[0m" : ""));
			} else {
			    printf("\n");
			}
		} break;
		
		case WRITE: if (buffer) {
		    printf("%s%s%s",
		        ((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[37m" : ""),
		        buffer,
		        ((PHPDBG_G(flags) & PHPDBG_IS_COLOURED) ? "\033[0m" : ""));
		} break;
	}

	if (buffer) {
		efree(buffer);
	}
} /* }}} */

char *phpdbg_trim(const char *expr, size_t *expr_len) /* {{{ */
{
    char *pointer = expr;
    
    while (*pointer && isspace(*pointer)) {
        pointer++;
        (*expr_len)--;
    }
    
    while (expr_len > 0L && isspace(pointer[(*expr_len)-1])) {
        pointer[--(*expr_len)]='\0';
    }
    
    return pointer;
} /* }}} */