1/*
2   +----------------------------------------------------------------------+
3   | PHP Version 7                                                        |
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 "intl_convert.h"
26
27/* {{{ */
28static void numfmt_ctor(INTERNAL_FUNCTION_PARAMETERS)
29{
30    const char* locale;
31    char*       pattern = NULL;
32    size_t         locale_len = 0, pattern_len = 0;
33    zend_long        style;
34    UChar*      spattern     = NULL;
35    int         spattern_len = 0;
36    FORMATTER_METHOD_INIT_VARS;
37
38    /* Parse parameters. */
39    if( zend_parse_parameters( ZEND_NUM_ARGS() TSRMLS_CC, "sl|s",
40        &locale, &locale_len, &style, &pattern, &pattern_len ) == FAILURE )
41    {
42        intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
43            "numfmt_create: unable to parse input parameters", 0 TSRMLS_CC );
44        Z_OBJ_P(return_value) = NULL;
45        return;
46    }
47
48    INTL_CHECK_LOCALE_LEN_OBJ(locale_len, return_value);
49    object = return_value;
50    FORMATTER_METHOD_FETCH_OBJECT_NO_CHECK;
51
52    /* Convert pattern (if specified) to UTF-16. */
53    if(pattern && pattern_len) {
54        intl_convert_utf8_to_utf16(&spattern, &spattern_len, pattern, pattern_len, &INTL_DATA_ERROR_CODE(nfo));
55        INTL_CTOR_CHECK_STATUS(nfo, "numfmt_create: error converting pattern to UTF-16");
56    }
57
58    if(locale_len == 0) {
59        locale = intl_locale_get_default(TSRMLS_C);
60    }
61
62    /* Create an ICU number formatter. */
63    FORMATTER_OBJECT(nfo) = unum_open(style, spattern, spattern_len, locale, NULL, &INTL_DATA_ERROR_CODE(nfo));
64
65    if(spattern) {
66        efree(spattern);
67    }
68
69    INTL_CTOR_CHECK_STATUS(nfo, "numfmt_create: number formatter creation failed");
70}
71/* }}} */
72
73/* {{{ proto NumberFormatter NumberFormatter::create( string $locale, int style[, string $pattern ] )
74 * Create number formatter. }}} */
75/* {{{ proto NumberFormatter numfmt_create( string $locale, int style[, string $pattern ] )
76 * Create number formatter.
77 */
78PHP_FUNCTION( numfmt_create )
79{
80    object_init_ex( return_value, NumberFormatter_ce_ptr );
81    numfmt_ctor(INTERNAL_FUNCTION_PARAM_PASSTHRU);
82    if (Z_TYPE_P(return_value) == IS_OBJECT && Z_OBJ_P(return_value) == NULL) {
83        RETURN_NULL();
84    }
85}
86/* }}} */
87
88/* {{{ proto void NumberFormatter::__construct( string $locale, int style[, string $pattern ] )
89 * NumberFormatter object constructor.
90 */
91PHP_METHOD( NumberFormatter, __construct )
92{
93    zval orig_this = *getThis();
94
95    return_value = getThis();
96    numfmt_ctor(INTERNAL_FUNCTION_PARAM_PASSTHRU);
97
98    if (Z_TYPE_P(return_value) == IS_OBJECT && Z_OBJ_P(return_value) == NULL) {
99        zend_object_store_ctor_failed(Z_OBJ(orig_this) TSRMLS_CC);
100        zval_dtor(&orig_this);
101        ZEND_CTOR_MAKE_NULL();
102    }
103}
104/* }}} */
105
106/* {{{ proto int NumberFormatter::getErrorCode()
107 * Get formatter's last error code. }}} */
108/* {{{ proto int numfmt_get_error_code( NumberFormatter $nf )
109 * Get formatter's last error code.
110 */
111PHP_FUNCTION( numfmt_get_error_code )
112{
113    FORMATTER_METHOD_INIT_VARS
114
115    /* Parse parameters. */
116    if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "O",
117        &object, NumberFormatter_ce_ptr ) == FAILURE )
118    {
119        intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
120            "numfmt_get_error_code: unable to parse input params", 0 TSRMLS_CC );
121
122        RETURN_FALSE;
123    }
124
125    nfo = Z_INTL_NUMBERFORMATTER_P(object);
126
127    /* Return formatter's last error code. */
128    RETURN_LONG( INTL_DATA_ERROR_CODE(nfo) );
129}
130/* }}} */
131
132/* {{{ proto string NumberFormatter::getErrorMessage( )
133 * Get text description for formatter's last error code. }}} */
134/* {{{ proto string numfmt_get_error_message( NumberFormatter $nf )
135 * Get text description for formatter's last error code.
136 */
137PHP_FUNCTION( numfmt_get_error_message )
138{
139    zend_string *message = NULL;
140    FORMATTER_METHOD_INIT_VARS
141
142    /* Parse parameters. */
143    if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "O",
144        &object, NumberFormatter_ce_ptr ) == FAILURE )
145    {
146        intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR,
147            "numfmt_get_error_message: unable to parse input params", 0 TSRMLS_CC );
148
149        RETURN_FALSE;
150    }
151
152    nfo = Z_INTL_NUMBERFORMATTER_P(object);
153
154    /* Return last error message. */
155    message = intl_error_get_message( INTL_DATA_ERROR_P(nfo) TSRMLS_CC );
156    RETURN_STR(message);
157}
158/* }}} */
159
160/*
161 * Local variables:
162 * tab-width: 4
163 * c-basic-offset: 4
164 * End:
165 * vim600: noet sw=4 ts=4 fdm=marker
166 * vim<600: noet sw=4 ts=4
167 */
168