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 242 : {
35 : zval **number;
36 242 : long type = FORMAT_TYPE_DEFAULT;
37 : UChar format_buf[32];
38 242 : UChar* formatted = format_buf;
39 242 : int formatted_len = USIZE(format_buf);
40 242 : FORMATTER_METHOD_INIT_VARS;
41 :
42 : /* Parse parameters. */
43 242 : if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "OZ|l",
44 : &object, NumberFormatter_ce_ptr, &number, &type ) == FAILURE )
45 : {
46 0 : intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
47 : "numfmt_format: unable to parse input params", 0 TSRMLS_CC );
48 :
49 0 : RETURN_FALSE;
50 : }
51 :
52 : /* Fetch the object. */
53 242 : FORMATTER_METHOD_FETCH_OBJECT;
54 :
55 242 : if(type == FORMAT_TYPE_DEFAULT) {
56 220 : if(Z_TYPE_PP(number) == IS_STRING) {
57 1 : convert_scalar_to_number_ex(number);
58 : }
59 :
60 220 : if(Z_TYPE_PP(number) == IS_LONG) {
61 : /* take INT32 on 32-bit, int64 on 64-bit */
62 10 : type = (sizeof(long) == 8)?FORMAT_TYPE_INT64:FORMAT_TYPE_INT32;
63 210 : } else if(Z_TYPE_PP(number) == IS_DOUBLE) {
64 208 : type = FORMAT_TYPE_DOUBLE;
65 : } else {
66 2 : type = FORMAT_TYPE_INT32;
67 : }
68 : }
69 :
70 242 : if(Z_TYPE_PP(number) != IS_DOUBLE && Z_TYPE_PP(number) != IS_LONG) {
71 2 : SEPARATE_ZVAL_IF_NOT_REF(number);
72 2 : convert_scalar_to_number( *number TSRMLS_CC );
73 : }
74 :
75 242 : switch(type) {
76 : case FORMAT_TYPE_INT32:
77 34 : convert_to_long_ex(number);
78 34 : formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number),
79 : formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
80 34 : if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
81 0 : intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
82 0 : formatted = eumalloc(formatted_len);
83 0 : formatted_len = unum_format(FORMATTER_OBJECT(nfo), (int32_t)Z_LVAL_PP(number),
84 : formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
85 0 : if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
86 0 : efree(formatted);
87 : }
88 : }
89 34 : INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
90 34 : break;
91 :
92 : case FORMAT_TYPE_INT64:
93 : {
94 0 : int64_t value = (Z_TYPE_PP(number) == IS_DOUBLE)?(int64_t)Z_DVAL_PP(number):Z_LVAL_PP(number);
95 0 : formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
96 0 : if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
97 0 : intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
98 0 : formatted = eumalloc(formatted_len);
99 0 : formatted_len = unum_formatInt64(FORMATTER_OBJECT(nfo), value, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
100 0 : if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
101 0 : efree(formatted);
102 : }
103 : }
104 0 : INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
105 : }
106 0 : break;
107 :
108 : case FORMAT_TYPE_DOUBLE:
109 208 : convert_to_double_ex(number);
110 208 : formatted_len = unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
111 208 : if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
112 16 : intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
113 16 : formatted = eumalloc(formatted_len);
114 16 : unum_formatDouble(FORMATTER_OBJECT(nfo), Z_DVAL_PP(number), formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
115 16 : if (U_FAILURE( INTL_DATA_ERROR_CODE(nfo) ) ) {
116 0 : efree(formatted);
117 : }
118 : }
119 208 : INTL_METHOD_CHECK_STATUS( nfo, "Number formatting failed" );
120 208 : break;
121 :
122 : default:
123 0 : php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unsupported format type %ld", type);
124 0 : RETURN_FALSE;
125 : break;
126 : }
127 :
128 242 : 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 10 : {
139 : double number;
140 : UChar format_buf[32];
141 10 : UChar* formatted = format_buf;
142 10 : int formatted_len = USIZE(format_buf);
143 10 : char* currency = NULL;
144 10 : int currency_len = 0;
145 10 : UChar* scurrency = NULL;
146 10 : int scurrency_len = 0;
147 10 : FORMATTER_METHOD_INIT_VARS;
148 :
149 : /* Parse parameters. */
150 10 : if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Ods",
151 : &object, NumberFormatter_ce_ptr, &number, ¤cy, ¤cy_len ) == FAILURE )
152 : {
153 0 : intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
154 : "numfmt_format_currency: unable to parse input params", 0 TSRMLS_CC );
155 :
156 0 : RETURN_FALSE;
157 : }
158 :
159 : /* Fetch the object. */
160 10 : FORMATTER_METHOD_FETCH_OBJECT;
161 :
162 : /* Convert currency to UTF-16. */
163 10 : intl_convert_utf8_to_utf16(&scurrency, &scurrency_len, currency, currency_len, &INTL_DATA_ERROR_CODE(nfo));
164 10 : INTL_METHOD_CHECK_STATUS( nfo, "Currency conversion to UTF-16 failed" );
165 :
166 : /* Format the number using a fixed-length buffer. */
167 10 : 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 10 : if (INTL_DATA_ERROR_CODE(nfo) == U_BUFFER_OVERFLOW_ERROR) {
174 0 : intl_error_reset(INTL_DATA_ERROR_P(nfo) TSRMLS_CC);
175 0 : formatted = eumalloc(formatted_len);
176 0 : unum_formatDoubleCurrency(FORMATTER_OBJECT(nfo), number, scurrency, formatted, formatted_len, NULL, &INTL_DATA_ERROR_CODE(nfo));
177 : }
178 :
179 10 : if( U_FAILURE( INTL_DATA_ERROR_CODE((nfo)) ) ) {
180 0 : intl_error_set_code( NULL, INTL_DATA_ERROR_CODE((nfo)) TSRMLS_CC );
181 0 : intl_errors_set_custom_msg( INTL_DATA_ERROR_P(nfo), "Number formatting failed", 0 TSRMLS_CC );
182 0 : RETVAL_FALSE;
183 0 : if (formatted != format_buf) {
184 0 : efree(formatted);
185 : }
186 : } else {
187 10 : INTL_METHOD_RETVAL_UTF8( nfo, formatted, formatted_len, ( formatted != format_buf ) );
188 : }
189 :
190 10 : if(scurrency) {
191 10 : 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 : */
|
