mirror of
https://github.com/php/php-src.git
synced 2024-10-21 00:12:34 +00:00
eb1837d9de
- Added arginfo - Fixed WS - Changed C++ comments to C comments
209 lines
7.2 KiB
C
Executable File
209 lines
7.2 KiB
C
Executable File
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 5 |
|
|
+----------------------------------------------------------------------+
|
|
| 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 <unicode/ustring.h>
|
|
|
|
#include "php_intl.h"
|
|
#include "formatter_class.h"
|
|
#include "formatter_format.h"
|
|
#include "intl_convert.h"
|
|
|
|
/* {{{ proto mixed NumberFormatter::format( mixed $num[, int $type] )
|
|
* Format a number. }}} */
|
|
/* {{{ proto mixed numfmt_format( NumberFormatter $nf, mixed $num[, int type] )
|
|
* Format a number.
|
|
*/
|
|
PHP_FUNCTION( numfmt_format )
|
|
{
|
|
zval **number;
|
|
long type = FORMAT_TYPE_DEFAULT;
|
|
UChar format_buf[32];
|
|
UChar* formatted = format_buf;
|
|
int formatted_len = USIZE(format_buf);
|
|
FORMATTER_METHOD_INIT_VARS;
|
|
|
|
/* Parse parameters. */
|
|
if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "OZ|l",
|
|
&object, NumberFormatter_ce_ptr, &number, &type ) == FAILURE )
|
|
{
|
|
intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
|
|
"numfmt_format: unable to parse input params", 0 TSRMLS_CC );
|
|
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* Fetch the object. */
|
|
FORMATTER_METHOD_FETCH_OBJECT;
|
|
|
|
if(type == FORMAT_TYPE_DEFAULT) {
|
|
if(Z_TYPE_PP(number) == IS_STRING) {
|
|
SEPARATE_ZVAL_IF_NOT_REF(number);
|
|
if ((Z_TYPE_PP(number)=is_numeric_string(Z_STRVAL_PP(number), Z_STRLEN_PP(number),
|
|
&Z_LVAL_PP(number), &Z_DVAL_PP(number), 1)) == 0) {
|
|
ZVAL_LONG(*number, 0);
|
|
}
|
|
}
|
|
|
|
if(Z_TYPE_PP(number) == IS_LONG) {
|
|
/* take INT32 on 32-bit, int64 on 64-bit */
|
|
type = (sizeof(long) == 8)?FORMAT_TYPE_INT64:FORMAT_TYPE_INT32;
|
|
} else if(Z_TYPE_PP(number) == IS_DOUBLE) {
|
|
type = FORMAT_TYPE_DOUBLE;
|
|
} else {
|
|
type = FORMAT_TYPE_INT32;
|
|
}
|
|
}
|
|
|
|
if(Z_TYPE_PP(number) != IS_DOUBLE && Z_TYPE_PP(number) != IS_LONG) {
|
|
SEPARATE_ZVAL_IF_NOT_REF(number);
|
|
convert_scalar_to_number( *number TSRMLS_CC );
|
|
}
|
|
|
|
switch(type) {
|
|
case FORMAT_TYPE_INT32:
|
|
convert_to_long_ex(number);
|
|
formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number),
|
|
formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
|
|
intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
|
|
formatted = eumalloc(formatted_len);
|
|
formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number),
|
|
formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
|
|
efree(formatted);
|
|
}
|
|
}
|
|
INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
|
|
break;
|
|
|
|
case FORMAT_TYPE_INT64:
|
|
{
|
|
int64_t value = (Z_TYPE_PP(number) == IS_DOUBLE)?(int64_t)Z_DVAL_PP(number):Z_LVAL_PP(number);
|
|
formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
|
|
intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
|
|
formatted = eumalloc(formatted_len);
|
|
formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
|
|
efree(formatted);
|
|
}
|
|
}
|
|
INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
|
|
}
|
|
break;
|
|
|
|
case FORMAT_TYPE_DOUBLE:
|
|
convert_to_double_ex(number);
|
|
formatted_len = unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
|
|
intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
|
|
formatted = eumalloc(formatted_len);
|
|
unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
|
|
efree(formatted);
|
|
}
|
|
}
|
|
INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
|
|
break;
|
|
|
|
default:
|
|
php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unsupported format type %ld", type);
|
|
RETURN_FALSE;
|
|
break;
|
|
}
|
|
|
|
INTL_METHOD_RETVAL_UTF8( nfo, formatted, formatted_len, ( formatted != format_buf ) );
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto mixed NumberFormatter::formatCurrency( double $num, string $currency )
|
|
* Format a number as currency. }}} */
|
|
/* {{{ proto mixed numfmt_format_currency( NumberFormatter $nf, double $num, string $currency )
|
|
* Format a number as currency.
|
|
*/
|
|
PHP_FUNCTION( numfmt_format_currency )
|
|
{
|
|
double number;
|
|
UChar format_buf[32];
|
|
UChar* formatted = format_buf;
|
|
int formatted_len = USIZE(format_buf);
|
|
char* currency = NULL;
|
|
int currency_len = 0;
|
|
UChar* scurrency = NULL;
|
|
int scurrency_len = 0;
|
|
FORMATTER_METHOD_INIT_VARS;
|
|
|
|
/* Parse parameters. */
|
|
if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Ods",
|
|
&object, NumberFormatter_ce_ptr, &number, ¤cy, ¤cy_len ) == FAILURE )
|
|
{
|
|
intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
|
|
"numfmt_format_currency: unable to parse input params", 0 TSRMLS_CC );
|
|
|
|
RETURN_FALSE;
|
|
}
|
|
|
|
/* Fetch the object. */
|
|
FORMATTER_METHOD_FETCH_OBJECT;
|
|
|
|
/* Convert currency to UTF-16. */
|
|
intl_convert_utf8_to_utf16(&scurrency, &scurrency_len, currency, currency_len, &INTL_DATA_ERROR_CODE(nfo));
|
|
INTL_METHOD_CHECK_STATUS( nfo, "Currency conversion to UTF-16 failed" );
|
|
|
|
/* Format the number using a fixed-length buffer. */
|
|
formatted_len = unum_formatDoubleCurrency(FORMATTER_OBJECT(nfo), number, scurrency, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
|
|
/* If the buffer turned out to be too small
|
|
* then allocate another buffer dynamically
|
|
* and use it to format the number.
|
|
*/
|
|
if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
|
|
intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
|
|
formatted = eumalloc(formatted_len);
|
|
unum_formatDoubleCurrency(FORMATTER_OBJECT(nfo), number, scurrency, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
|
|
}
|
|
|
|
if( U_FAILURE( INTL_DATA_ERROR_CODE((nfo)) ) ) {
|
|
intl_error_set_code( NULL, INTL_DATA_ERROR_CODE((nfo)) TSRMLS_CC );
|
|
intl_errors_set_custom_msg( INTL_DATA_ERROR_P(nfo), "Number formatting failed", 0 TSRMLS_CC );
|
|
RETVAL_FALSE;
|
|
if (formatted != format_buf) {
|
|
efree(formatted);
|
|
}
|
|
} else {
|
|
INTL_METHOD_RETVAL_UTF8( nfo, formatted, formatted_len, ( formatted != format_buf ) );
|
|
}
|
|
|
|
if(scurrency) {
|
|
efree(scurrency);
|
|
}
|
|
}
|
|
|
|
/* }}} */
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: noet sw=4 ts=4 fdm=marker
|
|
* vim<600: noet sw=4 ts=4
|
|
*/
|