ext/intl/formatter/formatter

/* [<][>][^][v][top][bottom][index][help] */
This source file includes following definitions.
PHP_FUNCTION
PHP_FUNCTION
   1 /*
   2    +----------------------------------------------------------------------+
   3    | PHP Version 5                                                        |
   4    +----------------------------------------------------------------------+
   5    | This source file is subject to version 3.01 of the PHP license,      |
   6    | that is bundled with this package in the file LICENSE, and is        |
   7    | available through the world-wide-web at the following url:           |
   8    | http://www.php.net/license/3_01.txt                                  |
   9    | If you did not receive a copy of the PHP license and are unable to   |
  10    | obtain it through the world-wide-web, please send a note to          |
  11    | license@php.net so we can mail you a copy immediately.               |
  12    +----------------------------------------------------------------------+
  13    | Authors: Stanislav Malyshev <stas@zend.com>                          |
  14    +----------------------------------------------------------------------+
  15  */
  16 
  17 #ifdef HAVE_CONFIG_H
  18 #include "config.h"
  19 #endif
  20 
  21 #include <unicode/ustring.h>
  22 
  23 #include "php_intl.h"
  24 #include "formatter_class.h"
  25 #include "formatter_format.h"
  26 #include "intl_convert.h"
  27 
  28 /* {{{ proto mixed NumberFormatter::format( mixed $num[, int $type] )
  29  * Format a number. }}} */
  30 /* {{{ proto mixed numfmt_format( NumberFormatter $nf, mixed $num[, int type] )
  31  * Format a number.
  32  */
  33 PHP_FUNCTION( numfmt_format )
  34 {
  35         zval **number;
  36         long type = FORMAT_TYPE_DEFAULT;
  37         UChar format_buf[32];
  38         UChar* formatted = format_buf;
  39         int formatted_len = USIZE(format_buf);
  40         FORMATTER_METHOD_INIT_VARS;
  41 
  42         /* Parse parameters. */
  43         if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "OZ|l",
  44                 &object, NumberFormatter_ce_ptr,  &number, &type ) == FAILURE )
  45         {
  46                 intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
  47                         "numfmt_format: unable to parse input params", 0 TSRMLS_CC );
  48 
  49                 RETURN_FALSE;
  50         }
  51 
  52         /* Fetch the object. */
  53         FORMATTER_METHOD_FETCH_OBJECT;
  54 
  55         if(type == FORMAT_TYPE_DEFAULT) {
  56                 if(Z_TYPE_PP(number) == IS_STRING) {
  57                         convert_scalar_to_number_ex(number);
  58                 }
  59 
  60                 if(Z_TYPE_PP(number) == IS_LONG) {
  61                         /* take INT32 on 32-bit, int64 on 64-bit */
  62                         type = (sizeof(long) == 8)?FORMAT_TYPE_INT64:FORMAT_TYPE_INT32;
  63                 } else if(Z_TYPE_PP(number) == IS_DOUBLE) {
  64                         type = FORMAT_TYPE_DOUBLE;
  65                 } else {
  66                         type = FORMAT_TYPE_INT32;
  67                 }
  68         }
  69 
  70         if(Z_TYPE_PP(number) != IS_DOUBLE && Z_TYPE_PP(number) != IS_LONG) {
  71                 SEPARATE_ZVAL_IF_NOT_REF(number);
  72                 convert_scalar_to_number( *number TSRMLS_CC );
  73         }
  74 
  75         switch(type) {
  76                 case FORMAT_TYPE_INT32:
  77                         convert_to_long_ex(number);
  78                         formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number), 
  79                                 formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
  80                         if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
  81                                 intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC); 
  82                                 formatted = eumalloc(formatted_len);
  83                                 formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number), 
  84                                         formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
  85                                 if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
  86                                         efree(formatted);
  87                                 }
  88                         }
  89                         INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
  90                         break;
  91 
  92                 case FORMAT_TYPE_INT64:
  93                 {
  94                         int64_t value = (Z_TYPE_PP(number) == IS_DOUBLE)?(int64_t)Z_DVAL_PP(number):Z_LVAL_PP(number);
  95                         formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
  96                         if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
  97                                 intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC); 
  98                                 formatted = eumalloc(formatted_len);
  99                                 formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
 100                                 if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
 101                                         efree(formatted);
 102                                 }
 103                         }
 104                         INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
 105                 }
 106                         break;
 107 
 108                 case FORMAT_TYPE_DOUBLE:
 109                         convert_to_double_ex(number);
 110                         formatted_len = unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
 111                         if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
 112                                 intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC); 
 113                                 formatted = eumalloc(formatted_len);
 114                                 unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
 115                                 if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
 116                                         efree(formatted);
 117                                 }
 118                         }
 119                         INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
 120                         break;
 121 
 122                 default:
 123                         php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unsupported format type %ld", type);
 124                         RETURN_FALSE;
 125                         break;
 126         }
 127 
 128         INTL_METHOD_RETVAL_UTF8( nfo, formatted, formatted_len, ( formatted != format_buf ) );
 129 }
 130 /* }}} */
 131 
 132 /* {{{ proto mixed NumberFormatter::formatCurrency( double $num, string $currency )
 133  * Format a number as currency. }}} */
 134 /* {{{ proto mixed numfmt_format_currency( NumberFormatter $nf, double $num, string $currency )
 135  * Format a number as currency.
 136  */
 137 PHP_FUNCTION( numfmt_format_currency )
 138 {
 139         double     number;
 140         UChar      format_buf[32];
 141         UChar*     formatted     = format_buf;
 142         int        formatted_len = USIZE(format_buf);
 143         char*      currency      = NULL;
 144         int        currency_len  = 0;
 145         UChar*     scurrency     = NULL;
 146         int        scurrency_len = 0;
 147         FORMATTER_METHOD_INIT_VARS;
 148 
 149         /* Parse parameters. */
 150         if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Ods",
 151                 &object, NumberFormatter_ce_ptr,  &number, &currency, &currency_len ) == FAILURE )
 152         {
 153                 intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
 154                         "numfmt_format_currency: unable to parse input params", 0 TSRMLS_CC );
 155 
 156                 RETURN_FALSE;
 157         }
 158 
 159         /* Fetch the object. */
 160         FORMATTER_METHOD_FETCH_OBJECT;
 161 
 162         /* Convert currency to UTF-16. */
 163         intl_convert_utf8_to_utf16(&scurrency, &scurrency_len, currency, currency_len, &INTL_DATA_ERROR_CODE(nfo));
 164         INTL_METHOD_CHECK_STATUS( nfo, "Currency conversion to UTF-16 failed" );
 165 
 166         /* Format the number using a fixed-length buffer. */
 167         formatted_len = unum_formatDoubleCurrency(FORMATTER_OBJECT(nfo), number, scurrency, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
 168 
 169         /* If the buffer turned out to be too small
 170          * then allocate another buffer dynamically
 171          * and use it to format the number.
 172          */
 173         if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
 174                 intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC); 
 175                 formatted = eumalloc(formatted_len);
 176                 unum_formatDoubleCurrency(FORMATTER_OBJECT(nfo), number, scurrency, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
 177         }
 178 
 179         if( U_FAILURE( INTL_DATA_ERROR_CODE((nfo)) ) ) {
 180                 intl_error_set_code( NULL, INTL_DATA_ERROR_CODE((nfo)) TSRMLS_CC );
 181                 intl_errors_set_custom_msg( INTL_DATA_ERROR_P(nfo), "Number formatting failed", 0 TSRMLS_CC );
 182                 RETVAL_FALSE;
 183                 if (formatted != format_buf) {
 184                         efree(formatted);
 185                 }
 186         } else {
 187                 INTL_METHOD_RETVAL_UTF8( nfo, formatted, formatted_len, ( formatted != format_buf ) );
 188         }
 189 
 190         if(scurrency) {
 191                 efree(scurrency);
 192         }
 193 }
 194 
 195 /* }}} */
 196 
 197 /*
 198  * Local variables:
 199  * tab-width: 4
 200  * c-basic-offset: 4
 201  * End:
 202  * vim600: noet sw=4 ts=4 fdm=marker
 203  * vim<600: noet sw=4 ts=4
 204  */
/* [<][>][^][v][top][bottom][index][help] */
root/ext/intl/formatter/formatter_format.c

DEFINITIONS
