Annotation of embedaddon/php/ext/intl/formatter/formatter_parse.c, revision 1.1.1.2
1.1 misho 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: #include <locale.h>
23:
24: #include "php_intl.h"
25: #include "formatter_class.h"
26: #include "formatter_format.h"
27: #include "formatter_parse.h"
28: #include "intl_convert.h"
29:
30: #define ICU_LOCALE_BUG 1
31:
32: /* {{{ proto mixed NumberFormatter::parse( string $str[, int $type, int &$position ])
33: * Parse a number. }}} */
34: /* {{{ proto mixed numfmt_parse( NumberFormatter $nf, string $str[, int $type, int &$position ])
35: * Parse a number.
36: */
37: PHP_FUNCTION( numfmt_parse )
38: {
39: long type = FORMAT_TYPE_DOUBLE;
40: UChar* sstr = NULL;
41: int sstr_len = 0;
42: char* str = NULL;
43: int str_len;
44: int32_t val32, position = 0;
45: int64_t val64;
46: double val_double;
47: int32_t* position_p = NULL;
48: zval *zposition = NULL;
49: char *oldlocale;
50: FORMATTER_METHOD_INIT_VARS;
51:
52: /* Parse parameters. */
53: if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Os|lz!",
54: &object, NumberFormatter_ce_ptr, &str, &str_len, &type, &zposition ) == FAILURE )
55: {
56: intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
57: "number_parse: unable to parse input params", 0 TSRMLS_CC );
58:
59: RETURN_FALSE;
60: }
61:
62: /* Fetch the object. */
63: FORMATTER_METHOD_FETCH_OBJECT;
64:
65: /* Convert given string to UTF-16. */
66: intl_convert_utf8_to_utf16(&sstr, &sstr_len, str, str_len, &INTL_DATA_ERROR_CODE(nfo));
67: INTL_METHOD_CHECK_STATUS( nfo, "String conversion to UTF-16 failed" );
68:
69: if(zposition) {
70: convert_to_long(zposition);
71: position = (int32_t)Z_LVAL_P( zposition );
72: position_p = &position;
73: }
74:
75: #if ICU_LOCALE_BUG && defined(LC_NUMERIC)
76: oldlocale = setlocale(LC_NUMERIC, "C");
77: #endif
78:
79: switch(type) {
80: case FORMAT_TYPE_INT32:
81: val32 = unum_parse(FORMATTER_OBJECT(nfo), sstr, sstr_len, position_p, &INTL_DATA_ERROR_CODE(nfo));
82: RETVAL_LONG(val32);
83: break;
84: case FORMAT_TYPE_INT64:
85: val64 = unum_parseInt64(FORMATTER_OBJECT(nfo), sstr, sstr_len, position_p, &INTL_DATA_ERROR_CODE(nfo));
1.1.1.2 ! misho 86: if(val64 > LONG_MAX || val64 < LONG_MIN) {
1.1 misho 87: RETVAL_DOUBLE(val64);
88: } else {
1.1.1.2 ! misho 89: RETVAL_LONG((long)val64);
1.1 misho 90: }
91: break;
92: case FORMAT_TYPE_DOUBLE:
93: val_double = unum_parseDouble(FORMATTER_OBJECT(nfo), sstr, sstr_len, position_p, &INTL_DATA_ERROR_CODE(nfo));
94: RETVAL_DOUBLE(val_double);
95: break;
96: default:
97: php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unsupported format type %ld", type);
98: RETVAL_FALSE;
99: break;
100: }
101: #if ICU_LOCALE_BUG && defined(LC_NUMERIC)
102: setlocale(LC_NUMERIC, oldlocale);
103: #endif
104: if(zposition) {
105: zval_dtor(zposition);
106: ZVAL_LONG(zposition, position);
107: }
108:
109: if (sstr) {
110: efree(sstr);
111: }
112:
113: INTL_METHOD_CHECK_STATUS( nfo, "Number parsing failed" );
114: }
115: /* }}} */
116:
117: /* {{{ proto double NumberFormatter::parseCurrency( string $str, string $¤cy[, int $&position] )
118: * Parse a number as currency. }}} */
119: /* {{{ proto double numfmt_parse_currency( NumberFormatter $nf, string $str, string $¤cy[, int $&position] )
120: * Parse a number as currency.
121: */
122: PHP_FUNCTION( numfmt_parse_currency )
123: {
124: double number;
125: UChar currency[5] = {0};
126: UChar* sstr = NULL;
127: int sstr_len = 0;
128: char *currency_str = NULL;
129: int currency_len = 0;
130: char *str;
131: int str_len;
132: int32_t* position_p = NULL;
133: int32_t position = 0;
134: zval *zcurrency, *zposition = NULL;
135: FORMATTER_METHOD_INIT_VARS;
136:
137: /* Parse parameters. */
138: if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Osz|z!",
139: &object, NumberFormatter_ce_ptr, &str, &str_len, &zcurrency, &zposition ) == FAILURE )
140: {
141: intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
142: "number_parse_currency: unable to parse input params", 0 TSRMLS_CC );
143:
144: RETURN_FALSE;
145: }
146:
147: /* Fetch the object. */
148: FORMATTER_METHOD_FETCH_OBJECT;
149:
150: /* Convert given string to UTF-16. */
151: intl_convert_utf8_to_utf16(&sstr, &sstr_len, str, str_len, &INTL_DATA_ERROR_CODE(nfo));
152: INTL_METHOD_CHECK_STATUS( nfo, "String conversion to UTF-16 failed" );
153:
154: if(zposition) {
155: convert_to_long(zposition);
156: position = (int32_t)Z_LVAL_P( zposition );
157: position_p = &position;
158: }
159:
160: number = unum_parseDoubleCurrency(FORMATTER_OBJECT(nfo), sstr, sstr_len, position_p, currency, &INTL_DATA_ERROR_CODE(nfo));
161: if(zposition) {
162: zval_dtor(zposition);
163: ZVAL_LONG(zposition, position);
164: }
165: if (sstr) {
166: efree(sstr);
167: }
168: INTL_METHOD_CHECK_STATUS( nfo, "Number parsing failed" );
169:
170: /* Convert parsed currency to UTF-8 and pass it back to caller. */
171: intl_convert_utf16_to_utf8(¤cy_str, ¤cy_len, currency, u_strlen(currency), &INTL_DATA_ERROR_CODE(nfo));
172: INTL_METHOD_CHECK_STATUS( nfo, "Currency conversion to UTF-8 failed" );
173: zval_dtor( zcurrency );
174: ZVAL_STRINGL(zcurrency, currency_str, currency_len, 0);
175:
176: RETVAL_DOUBLE( number );
177: }
178: /* }}} */
179:
180: /*
181: * Local variables:
182: * tab-width: 4
183: * c-basic-offset: 4
184: * End:
185: * vim600: noet sw=4 ts=4 fdm=marker
186: * vim<600: noet sw=4 ts=4
187: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>