xref: /PHP-5.4/ext/date/lib/timelib.c (revision c0d060f5)
1 /*
2    +----------------------------------------------------------------------+
3    | PHP Version 5                                                        |
4    +----------------------------------------------------------------------+
5    | Copyright (c) 1997-2014 The PHP Group                                |
6    +----------------------------------------------------------------------+
7    | This source file is subject to version 3.01 of the PHP license,      |
8    | that is bundled with this package in the file LICENSE, and is        |
9    | available through the world-wide-web at the following url:           |
10    | http://www.php.net/license/3_01.txt                                  |
11    | If you did not receive a copy of the PHP license and are unable to   |
12    | obtain it through the world-wide-web, please send a note to          |
13    | license@php.net so we can mail you a copy immediately.               |
14    +----------------------------------------------------------------------+
15    | Authors: Derick Rethans <derick@derickrethans.nl>                    |
16    +----------------------------------------------------------------------+
17  */
18 
19 /* $Id$ */
20 
21 #include "timelib.h"
22 #include <ctype.h>
23 #include <math.h>
24 
25 #define TIMELIB_TIME_FREE(m) 	\
26 	if (m) {		\
27 		free(m);	\
28 		m = NULL;	\
29 	}			\
30 
31 #define TIMELIB_LLABS(y) (y < 0 ? (y * -1) : y)
32 
timelib_time_ctor(void)33 timelib_time* timelib_time_ctor(void)
34 {
35 	timelib_time *t;
36 	t = calloc(1, sizeof(timelib_time));
37 
38 	return t;
39 }
40 
timelib_rel_time_ctor(void)41 timelib_rel_time* timelib_rel_time_ctor(void)
42 {
43 	timelib_rel_time *t;
44 	t = calloc(1, sizeof(timelib_rel_time));
45 
46 	return t;
47 }
48 
timelib_time_clone(timelib_time * orig)49 timelib_time* timelib_time_clone(timelib_time *orig)
50 {
51 	timelib_time *tmp = timelib_time_ctor();
52 	memcpy(tmp, orig, sizeof(timelib_time));
53 	if (orig->tz_abbr) {
54 		tmp->tz_abbr = strdup(orig->tz_abbr);
55 	}
56 	if (orig->tz_info) {
57 		tmp->tz_info = orig->tz_info;
58 	}
59 	return tmp;
60 }
61 
timelib_rel_time_clone(timelib_rel_time * rel)62 timelib_rel_time* timelib_rel_time_clone(timelib_rel_time *rel)
63 {
64 	timelib_rel_time *tmp = timelib_rel_time_ctor();
65 	memcpy(tmp, rel, sizeof(timelib_rel_time));
66 	return tmp;
67 }
68 
timelib_time_tz_abbr_update(timelib_time * tm,char * tz_abbr)69 void timelib_time_tz_abbr_update(timelib_time* tm, char* tz_abbr)
70 {
71 	unsigned int i;
72 
73 	TIMELIB_TIME_FREE(tm->tz_abbr);
74 	tm->tz_abbr = strdup(tz_abbr);
75 	for (i = 0; i < strlen(tz_abbr); i++) {
76 		tm->tz_abbr[i] = toupper(tz_abbr[i]);
77 	}
78 }
79 
timelib_time_dtor(timelib_time * t)80 void timelib_time_dtor(timelib_time* t)
81 {
82 	TIMELIB_TIME_FREE(t->tz_abbr);
83 	TIMELIB_TIME_FREE(t);
84 }
85 
timelib_rel_time_dtor(timelib_rel_time * t)86 void timelib_rel_time_dtor(timelib_rel_time* t)
87 {
88 	TIMELIB_TIME_FREE(t);
89 }
90 
timelib_time_offset_ctor(void)91 timelib_time_offset* timelib_time_offset_ctor(void)
92 {
93 	timelib_time_offset *t;
94 	t = calloc(1, sizeof(timelib_time_offset));
95 
96 	return t;
97 }
98 
timelib_time_offset_dtor(timelib_time_offset * t)99 void timelib_time_offset_dtor(timelib_time_offset* t)
100 {
101 	TIMELIB_TIME_FREE(t->abbr);
102 	TIMELIB_TIME_FREE(t);
103 }
104 
timelib_tzinfo_ctor(char * name)105 timelib_tzinfo* timelib_tzinfo_ctor(char *name)
106 {
107 	timelib_tzinfo *t;
108 	t = calloc(1, sizeof(timelib_tzinfo));
109 	t->name = strdup(name);
110 
111 	return t;
112 }
113 
timelib_tzinfo_clone(timelib_tzinfo * tz)114 timelib_tzinfo *timelib_tzinfo_clone(timelib_tzinfo *tz)
115 {
116 	timelib_tzinfo *tmp = timelib_tzinfo_ctor(tz->name);
117 	tmp->ttisgmtcnt = tz->ttisgmtcnt;
118 	tmp->ttisstdcnt = tz->ttisstdcnt;
119 	tmp->leapcnt = tz->leapcnt;
120 	tmp->timecnt = tz->timecnt;
121 	tmp->typecnt = tz->typecnt;
122 	tmp->charcnt = tz->charcnt;
123 
124 	tmp->trans = (int32_t *) malloc(tz->timecnt * sizeof(int32_t));
125 	tmp->trans_idx = (unsigned char*) malloc(tz->timecnt * sizeof(unsigned char));
126 	memcpy(tmp->trans, tz->trans, tz->timecnt * sizeof(int32_t));
127 	memcpy(tmp->trans_idx, tz->trans_idx, tz->timecnt * sizeof(unsigned char));
128 
129 	tmp->type = (ttinfo*) malloc(tz->typecnt * sizeof(struct ttinfo));
130 	memcpy(tmp->type, tz->type, tz->typecnt * sizeof(struct ttinfo));
131 
132 	tmp->timezone_abbr = (char*) malloc(tz->charcnt);
133 	memcpy(tmp->timezone_abbr, tz->timezone_abbr, tz->charcnt);
134 
135 	tmp->leap_times = (tlinfo*) malloc(tz->leapcnt * sizeof(tlinfo));
136 	memcpy(tmp->leap_times, tz->leap_times, tz->leapcnt * sizeof(tlinfo));
137 
138 	return tmp;
139 }
140 
timelib_tzinfo_dtor(timelib_tzinfo * tz)141 void timelib_tzinfo_dtor(timelib_tzinfo *tz)
142 {
143 	TIMELIB_TIME_FREE(tz->name);
144 	TIMELIB_TIME_FREE(tz->trans);
145 	TIMELIB_TIME_FREE(tz->trans_idx);
146 	TIMELIB_TIME_FREE(tz->type);
147 	TIMELIB_TIME_FREE(tz->timezone_abbr);
148 	TIMELIB_TIME_FREE(tz->leap_times);
149 	TIMELIB_TIME_FREE(tz->location.comments);
150 	TIMELIB_TIME_FREE(tz);
151 	tz = NULL;
152 }
153 
timelib_get_tz_abbr_ptr(timelib_time * t)154 char *timelib_get_tz_abbr_ptr(timelib_time *t)
155 {
156 	if (!t->sse_uptodate) {
157 		timelib_update_ts(t, NULL);
158 	};
159 	return t->tz_abbr;
160 }
161 
timelib_error_container_dtor(timelib_error_container * errors)162 void timelib_error_container_dtor(timelib_error_container *errors)
163 {
164 	int i;
165 
166 	for (i = 0; i < errors->warning_count; i++) {
167 		free(errors->warning_messages[i].message);
168 	}
169 	free(errors->warning_messages);
170 	for (i = 0; i < errors->error_count; i++) {
171 		free(errors->error_messages[i].message);
172 	}
173 	free(errors->error_messages);
174 	free(errors);
175 }
176 
timelib_date_to_int(timelib_time * d,int * error)177 signed long timelib_date_to_int(timelib_time *d, int *error)
178 {
179 	timelib_sll ts;
180 
181 	ts = d->sse;
182 
183 	if (ts < LONG_MIN || ts > LONG_MAX) {
184 		if (error) {
185 			*error = 1;
186 		}
187 		return 0;
188 	}
189 	if (error) {
190 		*error = 0;
191 	}
192 	return (signed long) d->sse;
193 }
194 
timelib_decimal_hour_to_hms(double h,int * hour,int * min,int * sec)195 void timelib_decimal_hour_to_hms(double h, int *hour, int *min, int *sec)
196 {
197 	*hour = floor(h);
198 	*min =  floor((h - *hour) * 60);
199 	*sec =  (h - *hour - ((float) *min / 60)) * 3600;
200 }
201 
timelib_dump_date(timelib_time * d,int options)202 void timelib_dump_date(timelib_time *d, int options)
203 {
204 	if ((options & 2) == 2) {
205 		printf("TYPE: %d ", d->zone_type);
206 	}
207 	printf("TS: %lld | %s%04lld-%02lld-%02lld %02lld:%02lld:%02lld",
208 		d->sse, d->y < 0 ? "-" : "", TIMELIB_LLABS(d->y), d->m, d->d, d->h, d->i, d->s);
209 	if (d->f > +0.0) {
210 		printf(" %.5f", d->f);
211 	}
212 
213 	if (d->is_localtime) {
214 		switch (d->zone_type) {
215 			case TIMELIB_ZONETYPE_OFFSET: /* Only offset */
216 				printf(" GMT %05d%s", d->z, d->dst == 1 ? " (DST)" : "");
217 				break;
218 			case TIMELIB_ZONETYPE_ID: /* Timezone struct */
219 				/* Show abbreviation if wanted */
220 				if (d->tz_abbr) {
221 					printf(" %s", d->tz_abbr);
222 				}
223 				/* Do we have a TimeZone struct? */
224 				if (d->tz_info) {
225 					printf(" %s", d->tz_info->name);
226 				}
227 				break;
228 			case TIMELIB_ZONETYPE_ABBR:
229 				printf(" %s", d->tz_abbr);
230 				printf(" %05d%s", d->z, d->dst == 1 ? " (DST)" : "");
231 				break;
232 		}
233 	}
234 
235 	if ((options & 1) == 1) {
236 		if (d->have_relative) {
237 			printf("%3lldY %3lldM %3lldD / %3lldH %3lldM %3lldS",
238 				d->relative.y, d->relative.m, d->relative.d, d->relative.h, d->relative.i, d->relative.s);
239 			if (d->relative.first_last_day_of != 0) {
240 				switch (d->relative.first_last_day_of) {
241 					case 1:
242 						printf(" / first day of");
243 						break;
244 					case 2:
245 						printf(" / last day of");
246 						break;
247 				}
248 			}
249 			if (d->relative.have_weekday_relative) {
250 				printf(" / %d.%d", d->relative.weekday, d->relative.weekday_behavior);
251 			}
252 			if (d->relative.have_special_relative) {
253 				switch (d->relative.special.type) {
254 					case TIMELIB_SPECIAL_WEEKDAY:
255 						printf(" / %lld weekday", d->relative.special.amount);
256 						break;
257 					case TIMELIB_SPECIAL_DAY_OF_WEEK_IN_MONTH:
258 						printf(" / x y of z month");
259 						break;
260 					case TIMELIB_SPECIAL_LAST_DAY_OF_WEEK_IN_MONTH:
261 						printf(" / last y of z month");
262 						break;
263 				}
264 			}
265 		}
266 	}
267 	printf("\n");
268 }
269 
timelib_dump_rel_time(timelib_rel_time * d)270 void timelib_dump_rel_time(timelib_rel_time *d)
271 {
272 	printf("%3lldY %3lldM %3lldD / %3lldH %3lldM %3lldS (days: %lld)%s",
273 		d->y, d->m, d->d, d->h, d->i, d->s, d->days, d->invert ? " inverted" : "");
274 	if (d->first_last_day_of != 0) {
275 		switch (d->first_last_day_of) {
276 			case 1:
277 				printf(" / first day of");
278 				break;
279 			case 2:
280 				printf(" / last day of");
281 				break;
282 		}
283 	}
284 	printf("\n");
285 }
286 
287