text: /*
     +----------------------------------------------------------------------+
     | 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: Stanislav Malyshev <stas@zend.com>                          |
     +----------------------------------------------------------------------+
   */
  
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  
  #include "php_intl.h"
  #include "formatter_class.h"
  #include "intl_convert.h"
  
  #include <unicode/ustring.h>
  
  /* {{{ Get formatter attribute value. */
  PHP_FUNCTION( numfmt_get_attribute )
  {
  	zend_long attribute, value;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Ol",
  		&object, NumberFormatter_ce_ptr, &attribute ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	switch(attribute) {
  		case UNUM_PARSE_INT_ONLY:
  		case UNUM_GROUPING_USED:
  		case UNUM_DECIMAL_ALWAYS_SHOWN:
  		case UNUM_MAX_INTEGER_DIGITS:
  		case UNUM_MIN_INTEGER_DIGITS:
  		case UNUM_INTEGER_DIGITS:
  		case UNUM_MAX_FRACTION_DIGITS:
  		case UNUM_MIN_FRACTION_DIGITS:
  		case UNUM_FRACTION_DIGITS:
  		case UNUM_MULTIPLIER:
  		case UNUM_GROUPING_SIZE:
  		case UNUM_ROUNDING_MODE:
  		case UNUM_FORMAT_WIDTH:
  		case UNUM_PADDING_POSITION:
  		case UNUM_SECONDARY_GROUPING_SIZE:
  		case UNUM_SIGNIFICANT_DIGITS_USED:
  		case UNUM_MIN_SIGNIFICANT_DIGITS:
  		case UNUM_MAX_SIGNIFICANT_DIGITS:
  		case UNUM_LENIENT_PARSE:
  			value = unum_getAttribute(FORMATTER_OBJECT(nfo), attribute);
  			if(value == -1) {
  				INTL_DATA_ERROR_CODE(nfo) = U_UNSUPPORTED_ERROR;
  			} else {
  				RETVAL_LONG(value);
  			}
  			break;
  		case UNUM_ROUNDING_INCREMENT:
  		{
  			double value_double = unum_getDoubleAttribute(FORMATTER_OBJECT(nfo), attribute);
  			if(value_double == -1) {
  				INTL_DATA_ERROR_CODE(nfo) = U_UNSUPPORTED_ERROR;
  			} else {
  				RETVAL_DOUBLE(value_double);
  			}
  		}
  			break;
  		default:
  			INTL_DATA_ERROR_CODE(nfo) = U_UNSUPPORTED_ERROR;
  			break;
  	}
  
  	INTL_METHOD_CHECK_STATUS( nfo, "Error getting attribute value" );
  }
  /* }}} */
  
  /* {{{ Get formatter attribute value. */
  PHP_FUNCTION( numfmt_get_text_attribute )
  {
  	zend_long   attribute;
  	UChar   value_buf[64];
  	int32_t value_buf_size = USIZE( value_buf );
  	UChar*  value  = value_buf;
  	int32_t length = 0;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Ol",
  		&object, NumberFormatter_ce_ptr, &attribute ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	length = unum_getTextAttribute( FORMATTER_OBJECT(nfo), attribute, value, value_buf_size, &INTL_DATA_ERROR_CODE(nfo) );
  	if(INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR && length >= value_buf_size) {
  		++length; /* to avoid U_STRING_NOT_TERMINATED_WARNING */
  		INTL_DATA_ERROR_CODE(nfo) = U_ZERO_ERROR;
  		value = eumalloc(length);
  		length = unum_getTextAttribute( FORMATTER_OBJECT(nfo), attribute, value, length, &INTL_DATA_ERROR_CODE(nfo) );
  		if(U_FAILURE(INTL_DATA_ERROR_CODE(nfo))) {
  			efree(value);
  			value = value_buf;
  		}
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error getting attribute value" );
  
  	INTL_METHOD_RETVAL_UTF8( nfo, value, length, ( value != value_buf ) );
  }
  /* }}} */
  
  /* {{{ Get formatter attribute value. */
  PHP_FUNCTION( numfmt_set_attribute )
  {
  	zend_long attribute;
  	zval *value;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Olz",
  		&object, NumberFormatter_ce_ptr, &attribute, &value ) == FAILURE)
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	switch(attribute) {
  		case UNUM_PARSE_INT_ONLY:
  		case UNUM_GROUPING_USED:
  		case UNUM_DECIMAL_ALWAYS_SHOWN:
  		case UNUM_MAX_INTEGER_DIGITS:
  		case UNUM_MIN_INTEGER_DIGITS:
  		case UNUM_INTEGER_DIGITS:
  		case UNUM_MAX_FRACTION_DIGITS:
  		case UNUM_MIN_FRACTION_DIGITS:
  		case UNUM_FRACTION_DIGITS:
  		case UNUM_MULTIPLIER:
  		case UNUM_GROUPING_SIZE:
  		case UNUM_ROUNDING_MODE:
  		case UNUM_FORMAT_WIDTH:
  		case UNUM_PADDING_POSITION:
  		case UNUM_SECONDARY_GROUPING_SIZE:
  		case UNUM_SIGNIFICANT_DIGITS_USED:
  		case UNUM_MIN_SIGNIFICANT_DIGITS:
  		case UNUM_MAX_SIGNIFICANT_DIGITS:
  		case UNUM_LENIENT_PARSE:
  			unum_setAttribute(FORMATTER_OBJECT(nfo), attribute, zval_get_long(value));
  			break;
  		case UNUM_ROUNDING_INCREMENT:
  			unum_setDoubleAttribute(FORMATTER_OBJECT(nfo), attribute, zval_get_double(value));
  			break;
  		default:
  			INTL_DATA_ERROR_CODE(nfo) = U_UNSUPPORTED_ERROR;
  			break;
  	}
  
  	INTL_METHOD_CHECK_STATUS( nfo, "Error setting attribute value" );
  
  	RETURN_TRUE;
  }
  /* }}} */
  
  /* {{{ Get formatter attribute value. */
  PHP_FUNCTION( numfmt_set_text_attribute )
  {
  	int32_t slength = 0;
  	UChar *svalue = NULL;
  	zend_long attribute;
  	char *value;
  	size_t len;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Ols",
  		&object, NumberFormatter_ce_ptr, &attribute, &value, &len ) == FAILURE)
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	/* Convert given attribute value to UTF-16. */
  	intl_convert_utf8_to_utf16(&svalue, &slength, value, len, &INTL_DATA_ERROR_CODE(nfo));
  	INTL_METHOD_CHECK_STATUS( nfo, "Error converting attribute value to UTF-16" );
  
  	/* Actually set new attribute value. */
  	unum_setTextAttribute(FORMATTER_OBJECT(nfo), attribute, svalue, slength, &INTL_DATA_ERROR_CODE(nfo));
  	if (svalue) {
  		efree(svalue);
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error setting text attribute" );
  
  	RETURN_TRUE;
  }
  /* }}} */
  
  /* {{{ Get formatter symbol value. */
  PHP_FUNCTION( numfmt_get_symbol )
  {
  	zend_long symbol;
  	UChar value_buf[4];
  	UChar *value = value_buf;
  	uint32_t length = USIZE(value_buf);
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Ol",
  		&object, NumberFormatter_ce_ptr, &symbol ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	if(symbol >= UNUM_FORMAT_SYMBOL_COUNT || symbol < 0) {
  		intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,	"numfmt_get_symbol: invalid symbol value", 0 );
  		RETURN_FALSE;
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	length = unum_getSymbol(FORMATTER_OBJECT(nfo), symbol, value_buf, length, &INTL_DATA_ERROR_CODE(nfo));
  	if(INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR && length >= USIZE( value_buf )) {
  		++length; /* to avoid U_STRING_NOT_TERMINATED_WARNING */
  		INTL_DATA_ERROR_CODE(nfo) = U_ZERO_ERROR;
  		value = eumalloc(length);
  		length = unum_getSymbol(FORMATTER_OBJECT(nfo), symbol, value, length, &INTL_DATA_ERROR_CODE(nfo));
  		if(U_FAILURE(INTL_DATA_ERROR_CODE(nfo))) {
  			efree(value);
  			value = value_buf;
  		}
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error getting symbol value" );
  
  	INTL_METHOD_RETVAL_UTF8( nfo, value, length, ( value_buf != value ) );
  }
  /* }}} */
  
  /* {{{ Set formatter symbol value. */
  PHP_FUNCTION( numfmt_set_symbol )
  {
  	zend_long  symbol;
  	char*      value     = NULL;
  	size_t     value_len = 0;
  	UChar*     svalue  = 0;
  	int32_t    slength = 0;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Ols",
  		&object, NumberFormatter_ce_ptr, &symbol, &value, &value_len ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	if (symbol >= UNUM_FORMAT_SYMBOL_COUNT || symbol < 0) {
  		intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,	"numfmt_set_symbol: invalid symbol value", 0 );
  		RETURN_FALSE;
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	/* Convert given symbol to UTF-16. */
  	intl_convert_utf8_to_utf16(&svalue, &slength, value, value_len, &INTL_DATA_ERROR_CODE(nfo));
  	INTL_METHOD_CHECK_STATUS( nfo, "Error converting symbol value to UTF-16" );
  
  	/* Actually set the symbol. */
  	unum_setSymbol(FORMATTER_OBJECT(nfo), symbol, svalue, slength, &INTL_DATA_ERROR_CODE(nfo));
  	if (svalue) {
  		efree(svalue);
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error setting symbol value" );
  
  	RETURN_TRUE;
  }
  /* }}} */
  
  /* {{{ Get formatter pattern. */
  PHP_FUNCTION( numfmt_get_pattern )
  {
  	UChar   value_buf[64];
  	uint32_t length = USIZE( value_buf );
  	UChar*  value  = value_buf;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "O",
  		&object, NumberFormatter_ce_ptr ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	length = unum_toPattern(FORMATTER_OBJECT(nfo), 0, value, length, &INTL_DATA_ERROR_CODE(nfo));
  	if(INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR && length >= USIZE( value_buf )) {
  		++length; /* to avoid U_STRING_NOT_TERMINATED_WARNING */
  		INTL_DATA_ERROR_CODE(nfo) = U_ZERO_ERROR;
  		value = eumalloc(length);
  		length = unum_toPattern( FORMATTER_OBJECT(nfo), 0, value, length, &INTL_DATA_ERROR_CODE(nfo) );
  		if(U_FAILURE(INTL_DATA_ERROR_CODE(nfo))) {
  			efree(value);
  			value = value_buf;
  		}
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error getting formatter pattern" );
  
  	INTL_METHOD_RETVAL_UTF8( nfo, value, length, ( value != value_buf ) );
  }
  /* }}} */
  
  /* {{{ Set formatter pattern. */
  PHP_FUNCTION( numfmt_set_pattern )
  {
  	char*       value = NULL;
  	size_t      value_len = 0;
  	int32_t     slength = 0;
  	UChar*	    svalue  = NULL;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "Os",
  		&object, NumberFormatter_ce_ptr, &value, &value_len ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	/* Convert given pattern to UTF-16. */
  	intl_convert_utf8_to_utf16(&svalue, &slength, value, value_len, &INTL_DATA_ERROR_CODE(nfo));
  	INTL_METHOD_CHECK_STATUS( nfo, "Error converting pattern to UTF-16" );
  
  	/* TODO: add parse error information */
  	unum_applyPattern(FORMATTER_OBJECT(nfo), 0, svalue, slength, NULL, &INTL_DATA_ERROR_CODE(nfo));
  	if (svalue) {
  		efree(svalue);
  	}
  	INTL_METHOD_CHECK_STATUS( nfo, "Error setting pattern value" );
  
  	RETURN_TRUE;
  }
  /* }}} */
  
  /* {{{ Get formatter locale. */
  PHP_FUNCTION( numfmt_get_locale )
  {
  	zend_long type = ULOC_ACTUAL_LOCALE;
  	char* loc;
  	FORMATTER_METHOD_INIT_VARS;
  
  	/* Parse parameters. */
  	if( zend_parse_method_parameters( ZEND_NUM_ARGS(), getThis(), "O|l",
  		&object, NumberFormatter_ce_ptr, &type ) == FAILURE )
  	{
  		RETURN_THROWS();
  	}
  
  	/* Fetch the object. */
  	FORMATTER_METHOD_FETCH_OBJECT;
  
  	loc = (char *)unum_getLocaleByType(FORMATTER_OBJECT(nfo), type, &INTL_DATA_ERROR_CODE(nfo));
  	INTL_METHOD_CHECK_STATUS( nfo, "Error getting locale" );
  	RETURN_STRING(loc);
  }
  /* }}} */
  