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: Kirti Velankar <kirtig@yahoo-inc.com> |
14 +----------------------------------------------------------------------+
15 */
16
17 #ifdef HAVE_CONFIG_H
18 #include "config.h"
19 #endif
20
21 #include <unicode/ustring.h>
22 #include <math.h>
23
24 #include "php_intl.h"
25 #include "intl_convert.h"
26 #include "dateformat.h"
27 #include "dateformat_class.h"
28 #include "dateformat_parse.h"
29 #include "dateformat_data.h"
30
31 /* {{{
32 * Internal function which calls the udat_parse
33 * param int store_error acts like a boolean
34 * if set to 1 - store any error encountered in the parameter parse_error
35 * if set to 0 - no need to store any error encountered in the parameter parse_error
36 */
internal_parse_to_timestamp(IntlDateFormatter_object * dfo,char * text_to_parse,int32_t text_len,int32_t * parse_pos,zval * return_value TSRMLS_DC)37 static void internal_parse_to_timestamp(IntlDateFormatter_object *dfo, char* text_to_parse, int32_t text_len, int32_t *parse_pos, zval *return_value TSRMLS_DC)
38 {
39 double result = 0;
40 UDate timestamp =0;
41 UChar* text_utf16 = NULL;
42 int32_t text_utf16_len = 0;
43
44 /* Convert timezone to UTF-16. */
45 intl_convert_utf8_to_utf16(&text_utf16, &text_utf16_len, text_to_parse, text_len, &INTL_DATA_ERROR_CODE(dfo));
46 INTL_METHOD_CHECK_STATUS(dfo, "Error converting timezone to UTF-16" );
47
48 timestamp = udat_parse( DATE_FORMAT_OBJECT(dfo), text_utf16, text_utf16_len, parse_pos, &INTL_DATA_ERROR_CODE(dfo));
49 if( text_utf16 ){
50 efree(text_utf16);
51 }
52
53 INTL_METHOD_CHECK_STATUS( dfo, "Date parsing failed" );
54
55 /* Since return is in sec. */
56 result = (double)timestamp / U_MILLIS_PER_SECOND;
57 if(result > LONG_MAX || result < -LONG_MAX) {
58 ZVAL_DOUBLE(return_value, result<0?ceil(result):floor(result));
59 } else {
60 ZVAL_LONG(return_value, (long)result);
61 }
62 }
63 /* }}} */
64
add_to_localtime_arr(IntlDateFormatter_object * dfo,zval * return_value,UCalendar parsed_calendar,long calendar_field,char * key_name TSRMLS_DC)65 static void add_to_localtime_arr( IntlDateFormatter_object *dfo, zval* return_value, UCalendar parsed_calendar, long calendar_field, char* key_name TSRMLS_DC)
66 {
67 long calendar_field_val = ucal_get( parsed_calendar, calendar_field, &INTL_DATA_ERROR_CODE(dfo));
68 INTL_METHOD_CHECK_STATUS( dfo, "Date parsing - localtime failed : could not get a field from calendar" );
69
70 if( strcmp(key_name, CALENDAR_YEAR )==0 ){
71 /* since tm_year is years from 1900 */
72 add_assoc_long( return_value, key_name,( calendar_field_val-1900) );
73 }else if( strcmp(key_name, CALENDAR_WDAY )==0 ){
74 /* since tm_wday starts from 0 whereas ICU WDAY start from 1 */
75 add_assoc_long( return_value, key_name,( calendar_field_val-1) );
76 }else{
77 add_assoc_long( return_value, key_name, calendar_field_val );
78 }
79 }
80
81 /* {{{
82 * Internal function which calls the udat_parseCalendar
83 */
internal_parse_to_localtime(IntlDateFormatter_object * dfo,char * text_to_parse,int32_t text_len,int32_t * parse_pos,zval * return_value TSRMLS_DC)84 static void internal_parse_to_localtime(IntlDateFormatter_object *dfo, char* text_to_parse, int32_t text_len, int32_t *parse_pos, zval *return_value TSRMLS_DC)
85 {
86 UCalendar* parsed_calendar = NULL;
87 UChar* text_utf16 = NULL;
88 int32_t text_utf16_len = 0;
89 long isInDST = 0;
90
91 /* Convert timezone to UTF-16. */
92 intl_convert_utf8_to_utf16(&text_utf16, &text_utf16_len, text_to_parse, text_len, &INTL_DATA_ERROR_CODE(dfo));
93 INTL_METHOD_CHECK_STATUS(dfo, "Error converting timezone to UTF-16" );
94
95 parsed_calendar = udat_getCalendar(DATE_FORMAT_OBJECT(dfo));
96 udat_parseCalendar( DATE_FORMAT_OBJECT(dfo), parsed_calendar, text_utf16, text_utf16_len, parse_pos, &INTL_DATA_ERROR_CODE(dfo));
97
98 if (text_utf16) {
99 efree(text_utf16);
100 }
101
102 INTL_METHOD_CHECK_STATUS( dfo, "Date parsing failed" );
103
104
105 array_init( return_value );
106 /* Add entries from various fields of the obtained parsed_calendar */
107 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_SECOND, CALENDAR_SEC TSRMLS_CC);
108 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_MINUTE, CALENDAR_MIN TSRMLS_CC);
109 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_HOUR_OF_DAY, CALENDAR_HOUR TSRMLS_CC);
110 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_YEAR, CALENDAR_YEAR TSRMLS_CC);
111 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_DAY_OF_MONTH, CALENDAR_MDAY TSRMLS_CC);
112 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_DAY_OF_WEEK, CALENDAR_WDAY TSRMLS_CC);
113 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_DAY_OF_YEAR, CALENDAR_YDAY TSRMLS_CC);
114 add_to_localtime_arr( dfo, return_value, parsed_calendar, UCAL_MONTH, CALENDAR_MON TSRMLS_CC);
115
116 /* Is in DST? */
117 isInDST = ucal_inDaylightTime(parsed_calendar , &INTL_DATA_ERROR_CODE(dfo));
118 INTL_METHOD_CHECK_STATUS( dfo, "Date parsing - localtime failed : while checking if currently in DST." );
119 add_assoc_long( return_value, CALENDAR_ISDST,(isInDST==1?1:0));
120 }
121 /* }}} */
122
123
124 /* {{{ proto integer IntlDateFormatter::parse( string $text_to_parse [, int $parse_pos] )
125 * Parse the string $value starting at parse_pos to a Unix timestamp -int }}}*/
126 /* {{{ proto integer datefmt_parse( IntlDateFormatter $fmt, string $text_to_parse [, int $parse_pos] )
127 * Parse the string $value starting at parse_pos to a Unix timestamp -int }}}*/
PHP_FUNCTION(datefmt_parse)128 PHP_FUNCTION(datefmt_parse)
129 {
130 char* text_to_parse = NULL;
131 int32_t text_len =0;
132 zval* z_parse_pos = NULL;
133 int32_t parse_pos = -1;
134
135 DATE_FORMAT_METHOD_INIT_VARS;
136
137 /* Parse parameters. */
138 if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Os|z!",
139 &object, IntlDateFormatter_ce_ptr, &text_to_parse, &text_len, &z_parse_pos ) == FAILURE ){
140 intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR, "datefmt_parse: unable to parse input params", 0 TSRMLS_CC );
141 RETURN_FALSE;
142 }
143
144 /* Fetch the object. */
145 DATE_FORMAT_METHOD_FETCH_OBJECT;
146
147 if (z_parse_pos) {
148 convert_to_long(z_parse_pos);
149 parse_pos = (int32_t)Z_LVAL_P(z_parse_pos);
150 if(parse_pos > text_len) {
151 RETURN_FALSE;
152 }
153 }
154 internal_parse_to_timestamp( dfo, text_to_parse, text_len, z_parse_pos?&parse_pos:NULL, return_value TSRMLS_CC);
155 if(z_parse_pos) {
156 zval_dtor(z_parse_pos);
157 ZVAL_LONG(z_parse_pos, parse_pos);
158 }
159 }
160 /* }}} */
161
162 /* {{{ proto integer IntlDateFormatter::localtime( string $text_to_parse[, int $parse_pos] )
163 * Parse the string $value to a localtime array }}}*/
164 /* {{{ proto integer datefmt_localtime( IntlDateFormatter $fmt, string $text_to_parse[, int $parse_pos ])
165 * Parse the string $value to a localtime array }}}*/
PHP_FUNCTION(datefmt_localtime)166 PHP_FUNCTION(datefmt_localtime)
167 {
168 char* text_to_parse = NULL;
169 int32_t text_len =0;
170 zval* z_parse_pos = NULL;
171 int32_t parse_pos = -1;
172
173 DATE_FORMAT_METHOD_INIT_VARS;
174
175 /* Parse parameters. */
176 if( zend_parse_method_parameters( ZEND_NUM_ARGS() TSRMLS_CC, getThis(), "Os|z!",
177 &object, IntlDateFormatter_ce_ptr, &text_to_parse, &text_len, &z_parse_pos ) == FAILURE ){
178 intl_error_set( NULL, U_ILLEGAL_ARGUMENT_ERROR, "datefmt_parse_to_localtime: unable to parse input params", 0 TSRMLS_CC );
179 RETURN_FALSE;
180 }
181
182 /* Fetch the object. */
183 DATE_FORMAT_METHOD_FETCH_OBJECT;
184
185 if(z_parse_pos) {
186 convert_to_long(z_parse_pos);
187 parse_pos = (int32_t)Z_LVAL_P(z_parse_pos);
188 if(parse_pos > text_len) {
189 RETURN_FALSE;
190 }
191 }
192 internal_parse_to_localtime( dfo, text_to_parse, text_len, z_parse_pos?&parse_pos:NULL, return_value TSRMLS_CC);
193 if(z_parse_pos) {
194 zval_dtor(z_parse_pos);
195 ZVAL_LONG(z_parse_pos, parse_pos);
196 }
197 }
198 /* }}} */
199
200
