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  */
PHP_FUNCTION(numfmt_format)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  */
PHP_FUNCTION(numfmt_format_currency)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  */
205