1 /*
2    +----------------------------------------------------------------------+
3    | This source file is subject to version 3.01 of the PHP license,      |
4    | that is bundled with this package in the file LICENSE, and is        |
5    | available through the world-wide-web at the following url:           |
6    | https://www.php.net/license/3_01.txt                                 |
7    | If you did not receive a copy of the PHP license and are unable to   |
8    | obtain it through the world-wide-web, please send a note to          |
9    | license@php.net so we can mail you a copy immediately.               |
10    +----------------------------------------------------------------------+
11    | Authors: Gustavo Lopes <cataphract@php.net>                          |
12    +----------------------------------------------------------------------+
13 */
14 
15 #ifdef HAVE_CONFIG_H
16 #include "config.h"
17 #endif
18 
19 #include "../intl_cppshims.h"
20 
21 #include <unicode/calendar.h>
22 #include <unicode/gregocal.h>
23 
24 extern "C" {
25 #define USE_TIMEZONE_POINTER 1
26 #include "../timezone/timezone_class.h"
27 #define USE_CALENDAR_POINTER 1
28 #include "calendar_class.h"
29 #include "calendar_arginfo.h"
30 #include <zend_exceptions.h>
31 #include <assert.h>
32 }
33 
34 using icu::GregorianCalendar;
35 using icu::Locale;
36 
37 /* {{{ Global variables */
38 zend_class_entry *Calendar_ce_ptr;
39 zend_class_entry *GregorianCalendar_ce_ptr;
40 zend_object_handlers Calendar_handlers;
41 /* }}} */
42 
calendar_object_create(zval * object,Calendar * calendar)43 U_CFUNC	void calendar_object_create(zval *object,
44 									Calendar *calendar)
45 {
46 	UClassID classId = calendar->getDynamicClassID();
47 	zend_class_entry *ce;
48 
49 	//if (dynamic_cast<GregorianCalendar*>(calendar) != NULL) {
50 	if (classId == GregorianCalendar::getStaticClassID()) {
51 		ce = GregorianCalendar_ce_ptr;
52 	} else {
53 		ce = Calendar_ce_ptr;
54 	}
55 
56 	object_init_ex(object, ce);
57 	calendar_object_construct(object, calendar);
58 }
59 
calendar_fetch_native_calendar(zend_object * object)60 U_CFUNC Calendar *calendar_fetch_native_calendar(zend_object *object)
61 {
62 	Calendar_object *co = php_intl_calendar_fetch_object(object);
63 
64 	return co->ucal;
65 }
66 
calendar_object_construct(zval * object,Calendar * calendar)67 U_CFUNC void calendar_object_construct(zval *object,
68 									   Calendar *calendar)
69 {
70 	Calendar_object *co;
71 
72 	CALENDAR_METHOD_FETCH_OBJECT_NO_CHECK; //populate to from object
73 	assert(co->ucal == NULL);
74 	co->ucal = (Calendar*)calendar;
75 }
76 
77 /* {{{ clone handler for Calendar */
Calendar_clone_obj(zend_object * object)78 static zend_object *Calendar_clone_obj(zend_object *object)
79 {
80 	Calendar_object		*co_orig,
81 						*co_new;
82 	zend_object 	    *ret_val;
83 	intl_error_reset(NULL);
84 
85 	co_orig = php_intl_calendar_fetch_object(object);
86 	intl_error_reset(INTL_DATA_ERROR_P(co_orig));
87 
88 	ret_val = Calendar_ce_ptr->create_object(object->ce);
89 	co_new  = php_intl_calendar_fetch_object(ret_val);
90 
91 	zend_objects_clone_members(&co_new->zo, &co_orig->zo);
92 
93 	if (co_orig->ucal != NULL) {
94 		Calendar	*newCalendar;
95 
96 		newCalendar = co_orig->ucal->clone();
97 		if (!newCalendar) {
98 			zend_string *err_msg;
99 			intl_errors_set_code(CALENDAR_ERROR_P(co_orig),
100 				U_MEMORY_ALLOCATION_ERROR);
101 			intl_errors_set_custom_msg(CALENDAR_ERROR_P(co_orig),
102 				"Could not clone IntlCalendar", 0);
103 			err_msg = intl_error_get_message(CALENDAR_ERROR_P(co_orig));
104 			zend_throw_exception(NULL, ZSTR_VAL(err_msg), 0);
105 			zend_string_free(err_msg);
106 		} else {
107 			co_new->ucal = newCalendar;
108 		}
109 	} else {
110 		zend_throw_exception(NULL, "Cannot clone unconstructed IntlCalendar", 0);
111 	}
112 
113 	return ret_val;
114 }
115 /* }}} */
116 
117 static const struct {
118 	UCalendarDateFields field;
119 	const char			*name;
120 } debug_info_fields[] = {
121 	{UCAL_ERA,					"era"},
122 	{UCAL_YEAR,					"year"},
123 	{UCAL_MONTH,				"month"},
124 	{UCAL_WEEK_OF_YEAR,			"week of year"},
125 	{UCAL_WEEK_OF_MONTH,		"week of month"},
126 	{UCAL_DAY_OF_YEAR,			"day of year"},
127 	{UCAL_DAY_OF_MONTH,			"day of month"},
128 	{UCAL_DAY_OF_WEEK,			"day of week"},
129 	{UCAL_DAY_OF_WEEK_IN_MONTH,	"day of week in month"},
130 	{UCAL_AM_PM,				"AM/PM"},
131 	{UCAL_HOUR,					"hour"},
132 	{UCAL_HOUR_OF_DAY,			"hour of day"},
133 	{UCAL_MINUTE,				"minute"},
134 	{UCAL_SECOND,				"second"},
135 	{UCAL_MILLISECOND,			"millisecond"},
136 	{UCAL_ZONE_OFFSET,			"zone offset"},
137 	{UCAL_DST_OFFSET,			"DST offset"},
138 	{UCAL_YEAR_WOY,				"year for week of year"},
139 	{UCAL_DOW_LOCAL,			"localized day of week"},
140 	{UCAL_EXTENDED_YEAR,		"extended year"},
141 	{UCAL_JULIAN_DAY,			"julian day"},
142 	{UCAL_MILLISECONDS_IN_DAY,	"milliseconds in day"},
143 	{UCAL_IS_LEAP_MONTH,		"is leap month"},
144 };
145 
146 /* {{{ get_debug_info handler for Calendar */
Calendar_get_debug_info(zend_object * object,int * is_temp)147 static HashTable *Calendar_get_debug_info(zend_object *object, int *is_temp)
148 {
149 	zval			zv,
150 					zfields;
151 	Calendar_object	*co;
152 	const Calendar	*cal;
153 	HashTable		*debug_info;
154 
155 	*is_temp = 1;
156 
157 	debug_info = zend_new_array(8);
158 
159 	co  = php_intl_calendar_fetch_object(object);
160 	cal = co->ucal;
161 
162 	if (cal == NULL) {
163 		ZVAL_FALSE(&zv);
164 		zend_hash_str_update(debug_info, "valid", sizeof("valid") - 1, &zv);
165 		return debug_info;
166 	}
167 	ZVAL_TRUE(&zv);
168 	zend_hash_str_update(debug_info, "valid", sizeof("valid") - 1, &zv);
169 
170 	ZVAL_STRING(&zv, const_cast<char*>(cal->getType()));
171 	zend_hash_str_update(debug_info, "type", sizeof("type") - 1, &zv);
172 	{
173 		zval		   ztz,
174 					   ztz_debug;
175 		int			   is_tmp;
176 		HashTable	   *debug_info_tz;
177 
178 		timezone_object_construct(&cal->getTimeZone(), &ztz , 0);
179 		debug_info_tz = Z_OBJ_HANDLER(ztz, get_debug_info)(Z_OBJ(ztz), &is_tmp);
180 		assert(is_tmp == 1);
181 
182 		array_init(&ztz_debug);
183 		zend_hash_copy(Z_ARRVAL(ztz_debug), debug_info_tz, zval_add_ref);
184 		zend_hash_destroy(debug_info_tz);
185 		FREE_HASHTABLE(debug_info_tz);
186 
187 		zend_hash_str_update(debug_info, "timeZone", sizeof("timeZone") - 1, &ztz_debug);
188 	}
189 
190 	{
191 		UErrorCode	uec		= U_ZERO_ERROR;
192 		Locale		locale	= cal->getLocale(ULOC_VALID_LOCALE, uec);
193 		if (U_SUCCESS(uec)) {
194 			ZVAL_STRING(&zv, const_cast<char*>(locale.getName()));
195 			zend_hash_str_update(debug_info, "locale", sizeof("locale") - 1, &zv);
196 		} else {
197 			ZVAL_STRING(&zv, const_cast<char*>(u_errorName(uec)));
198 			zend_hash_str_update(debug_info, "locale", sizeof("locale") - 1, &zv);
199 		}
200 	}
201 
202 	array_init_size(&zfields, UCAL_FIELD_COUNT);
203 
204 	for (int i = 0;
205 			 i < sizeof(debug_info_fields) / sizeof(*debug_info_fields);
206 			 i++) {
207 		UErrorCode	uec		= U_ZERO_ERROR;
208 		const char	*name	= debug_info_fields[i].name;
209 		int32_t		res		= cal->get(debug_info_fields[i].field, uec);
210 		if (U_SUCCESS(uec)) {
211 			add_assoc_long(&zfields, name, (zend_long)res);
212 		} else {
213 			add_assoc_string(&zfields, name, const_cast<char*>(u_errorName(uec)));
214 		}
215 	}
216 
217 	zend_hash_str_update(debug_info, "fields", sizeof("fields") - 1, &zfields);
218 
219 	return debug_info;
220 }
221 /* }}} */
222 
223 /* {{{ void calendar_object_init(Calendar_object* to)
224  * Initialize internals of Calendar_object not specific to zend standard objects.
225  */
calendar_object_init(Calendar_object * co)226 static void calendar_object_init(Calendar_object *co)
227 {
228 	intl_error_init(CALENDAR_ERROR_P(co));
229 	co->ucal = NULL;
230 }
231 /* }}} */
232 
233 /* {{{ Calendar_objects_free */
Calendar_objects_free(zend_object * object)234 static void Calendar_objects_free(zend_object *object)
235 {
236 	Calendar_object* co = php_intl_calendar_fetch_object(object);
237 
238 	if (co->ucal) {
239 		delete co->ucal;
240 		co->ucal = NULL;
241 	}
242 	intl_error_reset(CALENDAR_ERROR_P(co));
243 
244 	zend_object_std_dtor(&co->zo);
245 }
246 /* }}} */
247 
248 /* {{{ Calendar_object_create */
Calendar_object_create(zend_class_entry * ce)249 static zend_object *Calendar_object_create(zend_class_entry *ce)
250 {
251 	Calendar_object*	intern;
252 
253 	intern = (Calendar_object*)ecalloc(1, sizeof(Calendar_object) + sizeof(zval) * (ce->default_properties_count - 1));
254 
255 	zend_object_std_init(&intern->zo, ce);
256     object_properties_init(&intern->zo, ce);
257 	calendar_object_init(intern);
258 
259 
260 	intern->zo.handlers = &Calendar_handlers;
261 
262 	return &intern->zo;
263 }
264 /* }}} */
265 
266 /* {{{ calendar_register_IntlCalendar_class
267  * Initialize 'IntlCalendar' class
268  */
calendar_register_IntlCalendar_class(void)269 void calendar_register_IntlCalendar_class(void)
270 {
271 	/* Create and register 'IntlCalendar' class. */
272 	Calendar_ce_ptr = register_class_IntlCalendar();
273 	Calendar_ce_ptr->create_object = Calendar_object_create;
274 
275 	memcpy( &Calendar_handlers, &std_object_handlers,
276 		sizeof Calendar_handlers);
277 	Calendar_handlers.offset = XtOffsetOf(Calendar_object, zo);
278 	Calendar_handlers.clone_obj = Calendar_clone_obj;
279 	Calendar_handlers.get_debug_info = Calendar_get_debug_info;
280 	Calendar_handlers.free_obj = Calendar_objects_free;
281 
282 	/* Declare 'IntlCalendar' class constants */
283 #define CALENDAR_DECL_LONG_CONST(name, val) \
284 	zend_declare_class_constant_long(Calendar_ce_ptr, name, sizeof(name) - 1, \
285 		val)
286 
287 	CALENDAR_DECL_LONG_CONST("FIELD_ERA",					UCAL_ERA);
288 	CALENDAR_DECL_LONG_CONST("FIELD_YEAR",					UCAL_YEAR);
289 	CALENDAR_DECL_LONG_CONST("FIELD_MONTH",					UCAL_MONTH);
290 	CALENDAR_DECL_LONG_CONST("FIELD_WEEK_OF_YEAR",			UCAL_WEEK_OF_YEAR);
291 	CALENDAR_DECL_LONG_CONST("FIELD_WEEK_OF_MONTH",			UCAL_WEEK_OF_MONTH);
292 	CALENDAR_DECL_LONG_CONST("FIELD_DATE",					UCAL_DATE);
293 	CALENDAR_DECL_LONG_CONST("FIELD_DAY_OF_YEAR",			UCAL_DAY_OF_YEAR);
294 	CALENDAR_DECL_LONG_CONST("FIELD_DAY_OF_WEEK",			UCAL_DAY_OF_WEEK);
295 	CALENDAR_DECL_LONG_CONST("FIELD_DAY_OF_WEEK_IN_MONTH",	UCAL_DAY_OF_WEEK_IN_MONTH);
296 	CALENDAR_DECL_LONG_CONST("FIELD_AM_PM",					UCAL_AM_PM);
297 	CALENDAR_DECL_LONG_CONST("FIELD_HOUR",					UCAL_HOUR);
298 	CALENDAR_DECL_LONG_CONST("FIELD_HOUR_OF_DAY",			UCAL_HOUR_OF_DAY);
299 	CALENDAR_DECL_LONG_CONST("FIELD_MINUTE",				UCAL_MINUTE);
300 	CALENDAR_DECL_LONG_CONST("FIELD_SECOND",				UCAL_SECOND);
301 	CALENDAR_DECL_LONG_CONST("FIELD_MILLISECOND",			UCAL_MILLISECOND);
302 	CALENDAR_DECL_LONG_CONST("FIELD_ZONE_OFFSET",			UCAL_ZONE_OFFSET);
303 	CALENDAR_DECL_LONG_CONST("FIELD_DST_OFFSET",			UCAL_DST_OFFSET);
304 	CALENDAR_DECL_LONG_CONST("FIELD_YEAR_WOY",				UCAL_YEAR_WOY);
305 	CALENDAR_DECL_LONG_CONST("FIELD_DOW_LOCAL",				UCAL_DOW_LOCAL);
306 	CALENDAR_DECL_LONG_CONST("FIELD_EXTENDED_YEAR",			UCAL_EXTENDED_YEAR);
307 	CALENDAR_DECL_LONG_CONST("FIELD_JULIAN_DAY",			UCAL_JULIAN_DAY);
308 	CALENDAR_DECL_LONG_CONST("FIELD_MILLISECONDS_IN_DAY",	UCAL_MILLISECONDS_IN_DAY);
309 	CALENDAR_DECL_LONG_CONST("FIELD_IS_LEAP_MONTH",			UCAL_IS_LEAP_MONTH);
310 	CALENDAR_DECL_LONG_CONST("FIELD_FIELD_COUNT",			UCAL_FIELD_COUNT);
311 	CALENDAR_DECL_LONG_CONST("FIELD_DAY_OF_MONTH",			UCAL_DAY_OF_MONTH);
312 
313 	CALENDAR_DECL_LONG_CONST("DOW_SUNDAY",					UCAL_SUNDAY);
314 	CALENDAR_DECL_LONG_CONST("DOW_MONDAY",					UCAL_MONDAY);
315 	CALENDAR_DECL_LONG_CONST("DOW_TUESDAY",					UCAL_TUESDAY);
316 	CALENDAR_DECL_LONG_CONST("DOW_WEDNESDAY",				UCAL_WEDNESDAY);
317 	CALENDAR_DECL_LONG_CONST("DOW_THURSDAY",				UCAL_THURSDAY);
318 	CALENDAR_DECL_LONG_CONST("DOW_FRIDAY",					UCAL_FRIDAY);
319 	CALENDAR_DECL_LONG_CONST("DOW_SATURDAY",				UCAL_SATURDAY);
320 
321 	CALENDAR_DECL_LONG_CONST("DOW_TYPE_WEEKDAY",			UCAL_WEEKDAY);
322 	CALENDAR_DECL_LONG_CONST("DOW_TYPE_WEEKEND",			UCAL_WEEKEND);
323 	CALENDAR_DECL_LONG_CONST("DOW_TYPE_WEEKEND_OFFSET",		UCAL_WEEKEND_ONSET);
324 	CALENDAR_DECL_LONG_CONST("DOW_TYPE_WEEKEND_CEASE",		UCAL_WEEKEND_CEASE);
325 
326 	CALENDAR_DECL_LONG_CONST("WALLTIME_FIRST",				UCAL_WALLTIME_FIRST);
327 	CALENDAR_DECL_LONG_CONST("WALLTIME_LAST",				UCAL_WALLTIME_LAST);
328 	CALENDAR_DECL_LONG_CONST("WALLTIME_NEXT_VALID",			UCAL_WALLTIME_NEXT_VALID);
329 
330 	/* Create and register 'IntlGregorianCalendar' class. */
331 	GregorianCalendar_ce_ptr = register_class_IntlGregorianCalendar(Calendar_ce_ptr);
332 }
333 /* }}} */
334