strftime.c@ 78416

Last change on this file since 78416 was 48674, checked in by vboxsync, 11 years ago
EFI: Export newly imported tinaocore UEFI sources to OSE.
Property svn:eol-style set to `native`
File size: 17.2 KB

Line
1	/** @file
2	Implementation of the strftime function for <time.h>.
3
4	Based on the UCB version with the ID appearing below.
5	This is ANSIish only when "multibyte character == plain character".
6
7	Copyright (c) 2006 - 2010, Intel Corporation. All rights reserved.<BR>
8	This program and the accompanying materials are licensed and made available under
9	the terms and conditions of the BSD License that accompanies this distribution.
10	The full text of the license may be found at
11	http://opensource.org/licenses/bsd-license.php.
12
13	THE PROGRAM IS DISTRIBUTED UNDER THE BSD LICENSE ON AN "AS IS" BASIS,
14	WITHOUT WARRANTIES OR REPRESENTATIONS OF ANY KIND, EITHER EXPRESS OR IMPLIED.
15
16	Copyright (c) 1989, 1993
17	The Regents of the University of California. All rights reserved.
18
19	Redistribution and use in source and binary forms, with or without
20	modification, are permitted provided that the following conditions
21	are met:
22	1. Redistributions of source code must retain the above copyright
23	notice, this list of conditions and the following disclaimer.
24	2. Redistributions in binary form must reproduce the above copyright
25	notice, this list of conditions and the following disclaimer in the
26	documentation and/or other materials provided with the distribution.
27	3. All advertising materials mentioning features or use of this software
28	must display the following acknowledgement:
29	This product includes software developed by the University of
30	California, Berkeley and its contributors.
31	4. Neither the name of the University nor the names of its contributors
32	may be used to endorse or promote products derived from this software
33	without specific prior written permission.
34
35	THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
36	ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
37	IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
38	ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
39	FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
40	DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
41	OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
42	HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
43	LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
44	OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
45	SUCH DAMAGE.
46
47	NetBSD: strftime.c,v 1.17.4.1 2007/08/21 20:08:21 liamjfoy Exp
48	**/
49	#include <LibConfig.h>
50	#include <sys/EfiCdefs.h>
51
52	#include "namespace.h"
53	#include <time.h>
54	#include "tzfile.h"
55	#include "TimeVals.h"
56	#include "fcntl.h"
57	#include "locale.h"
58
59	#include "sys/localedef.h"
60	#include <MainData.h>
61
62	/*
63	** We don't use these extensions in strftime operation even when
64	** supported by the local tzcode configuration. A strictly
65	** conforming C application may leave them in undefined state.
66	*/
67
68	#ifdef _LIBC
69	#undef TM_ZONE
70	#undef TM_GMTOFF
71	#endif
72
73	#define Locale _CurrentTimeLocale
74
75	static char * _add(const char , char , const char * const);
76	static char * _conv(const int, const char * const, char * const, const char * const);
77	static char * _fmt(const char , const struct tm const, char , const char const, int *);
78
79	#define NO_RUN_TIME_WARNINGS_ABOUT_YEAR_2000_PROBLEMS_THANK_YOU
80
81	#ifndef YEAR_2000_NAME
82	#define YEAR_2000_NAME "CHECK_STRFTIME_FORMATS_FOR_TWO_DIGIT_YEARS"
83	#endif /* !defined YEAR_2000_NAME */
84
85
86	#define IN_NONE 0
87	#define IN_SOME 1
88	#define IN_THIS 2
89	#define IN_ALL 3
90
91	size_t
92	strftime(
93	char * __restrict s,
94	size_t maxsize,
95	const char * __restrict format,
96	const struct tm * __restrict timeptr
97	)
98	{
99	char * p;
100	int warn;
101
102	tzset();
103	warn = IN_NONE;
104	p = _fmt(((format == NULL) ? "%c" : format), timeptr, s, s + maxsize, &warn);
105
106	#ifndef NO_RUN_TIME_WARNINGS_ABOUT_YEAR_2000_PROBLEMS_THANK_YOU
107	if (warn != IN_NONE && getenv(YEAR_2000_NAME) != NULL) {
108	(void) fprintf(stderr, "\n");
109	if (format == NULL)
110	(void) fprintf(stderr, "NULL strftime format ");
111	else (void) fprintf(stderr, "strftime format \"%s\" ",
112	format);
113	(void) fprintf(stderr, "yields only two digits of years in ");
114	if (warn == IN_SOME)
115	(void) fprintf(stderr, "some locales");
116	else if (warn == IN_THIS)
117	(void) fprintf(stderr, "the current locale");
118	else (void) fprintf(stderr, "all locales");
119	(void) fprintf(stderr, "\n");
120	}
121	#endif /* !defined NO_RUN_TIME_WARNINGS_ABOUT_YEAR_2000_PROBLEMS_THANK_YOU */
122
123	if (p == s + maxsize)
124	return 0;
125	*p = '\0';
126	return p - s;
127	}
128
129	static char *
130	_fmt(
131	const char * format,
132	const struct tm * const t,
133	char * pt,
134	const char * const ptlim,
135	int * warnp
136	)
137	{
138	for ( ; *format; ++format) {
139	if (*format == '%') {
140	label:
141	switch (*++format) {
142	case '\0':
143	--format;
144	break;
145	case 'A':
146	pt = _add((t->tm_wday < 0 \|\|
147	t->tm_wday >= DAYSPERWEEK) ?
148	"?" : Locale->day[t->tm_wday],
149	pt, ptlim);
150	continue;
151	case 'a':
152	pt = _add((t->tm_wday < 0 \|\|
153	t->tm_wday >= DAYSPERWEEK) ?
154	"?" : Locale->abday[t->tm_wday],
155	pt, ptlim);
156	continue;
157	case 'B':
158	pt = _add((t->tm_mon < 0 \|\|
159	t->tm_mon >= MONSPERYEAR) ?
160	"?" : Locale->mon[t->tm_mon],
161	pt, ptlim);
162	continue;
163	case 'b':
164	case 'h':
165	pt = _add((t->tm_mon < 0 \|\|
166	t->tm_mon >= MONSPERYEAR) ?
167	"?" : Locale->abmon[t->tm_mon],
168	pt, ptlim);
169	continue;
170	case 'C':
171	/*
172	** %C used to do a...
173	** _fmt("%a %b %e %X %Y", t);
174	** ...whereas now POSIX 1003.2 calls for
175	** something completely different.
176	** (ado, 1993-05-24)
177	*/
178	pt = _conv((t->tm_year + TM_YEAR_BASE) / 100,
179	"%02d", pt, ptlim);
180	continue;
181	case 'c':
182	{
183	int warn2 = IN_SOME;
184
185	pt = _fmt(Locale->d_t_fmt, t, pt, ptlim, &warn2);
186	if (warn2 == IN_ALL)
187	warn2 = IN_THIS;
188	if (warn2 > *warnp)
189	*warnp = warn2;
190	}
191	continue;
192	case 'D':
193	pt = _fmt("%m/%d/%y", t, pt, ptlim, warnp);
194	continue;
195	case 'd':
196	pt = _conv(t->tm_mday, "%02d", pt, ptlim);
197	continue;
198	case 'E':
199	case 'O':
200	/*
201	** C99 locale modifiers.
202	** The sequences
203	** %Ec %EC %Ex %EX %Ey %EY
204	** %Od %oe %OH %OI %Om %OM
205	** %OS %Ou %OU %OV %Ow %OW %Oy
206	** are supposed to provide alternate
207	** representations.
208	*/
209	goto label;
210	case 'e':
211	pt = _conv(t->tm_mday, "%2d", pt, ptlim);
212	continue;
213	case 'F':
214	pt = _fmt("%Y-%m-%d", t, pt, ptlim, warnp);
215	continue;
216	case 'H':
217	pt = _conv(t->tm_hour, "%02d", pt, ptlim);
218	continue;
219	case 'I':
220	pt = _conv((t->tm_hour % 12) ?
221	(t->tm_hour % 12) : 12,
222	"%02d", pt, ptlim);
223	continue;
224	case 'j':
225	pt = _conv(t->tm_yday + 1, "%03d", pt, ptlim);
226	continue;
227	case 'k':
228	/*
229	** This used to be...
230	** _conv(t->tm_hour % 12 ?
231	** t->tm_hour % 12 : 12, 2, ' ');
232	** ...and has been changed to the below to
233	** match SunOS 4.1.1 and Arnold Robbins'
234	** strftime version 3.0. That is, "%k" and
235	** "%l" have been swapped.
236	** (ado, 1993-05-24)
237	*/
238	pt = _conv(t->tm_hour, "%2d", pt, ptlim);
239	continue;
240	#ifdef KITCHEN_SINK
241	case 'K':
242	/*
243	** After all this time, still unclaimed!
244	*/
245	pt = _add("kitchen sink", pt, ptlim);
246	continue;
247	#endif /* defined KITCHEN_SINK */
248	case 'l':
249	/*
250	** This used to be...
251	** _conv(t->tm_hour, 2, ' ');
252	** ...and has been changed to the below to
253	** match SunOS 4.1.1 and Arnold Robbin's
254	** strftime version 3.0. That is, "%k" and
255	** "%l" have been swapped.
256	** (ado, 1993-05-24)
257	*/
258	pt = _conv((t->tm_hour % 12) ?
259	(t->tm_hour % 12) : 12,
260	"%2d", pt, ptlim);
261	continue;
262	case 'M':
263	pt = _conv(t->tm_min, "%02d", pt, ptlim);
264	continue;
265	case 'm':
266	pt = _conv(t->tm_mon + 1, "%02d", pt, ptlim);
267	continue;
268	case 'n':
269	pt = _add("\n", pt, ptlim);
270	continue;
271	case 'p':
272	pt = _add((t->tm_hour >= (HOURSPERDAY / 2)) ?
273	Locale->am_pm[1] :
274	Locale->am_pm[0],
275	pt, ptlim);
276	continue;
277	case 'R':
278	pt = _fmt("%H:%M", t, pt, ptlim, warnp);
279	continue;
280	case 'r':
281	pt = _fmt(Locale->t_fmt_ampm, t, pt, ptlim,
282	warnp);
283	continue;
284	case 'S':
285	pt = _conv(t->tm_sec, "%02d", pt, ptlim);
286	continue;
287	case 's':
288	{
289	struct tm tm;
290	char buf[INT_STRLEN_MAXIMUM(
291	time_t) + 1];
292	time_t mkt;
293
294	tm = *t;
295	mkt = mktime(&tm);
296	/* CONSTCOND */
297	if (TYPE_SIGNED(time_t))
298	(void) sprintf(buf, "%ld",
299	(long) mkt);
300	else (void) sprintf(buf, "%lu",
301	(unsigned long) mkt);
302	pt = _add(buf, pt, ptlim);
303	}
304	continue;
305	case 'T':
306	pt = _fmt("%H:%M:%S", t, pt, ptlim, warnp);
307	continue;
308	case 't':
309	pt = _add("\t", pt, ptlim);
310	continue;
311	case 'U':
312	pt = _conv((t->tm_yday + DAYSPERWEEK -
313	t->tm_wday) / DAYSPERWEEK,
314	"%02d", pt, ptlim);
315	continue;
316	case 'u':
317	/*
318	** From Arnold Robbins' strftime version 3.0:
319	** "ISO 8601: Weekday as a decimal number
320	** [1 (Monday) - 7]"
321	** (ado, 1993-05-24)
322	*/
323	pt = _conv((t->tm_wday == 0) ?
324	DAYSPERWEEK : t->tm_wday,
325	"%d", pt, ptlim);
326	continue;
327	case 'V': /* ISO 8601 week number */
328	case 'G': /* ISO 8601 year (four digits) */
329	case 'g': /* ISO 8601 year (two digits) */
330	/*
331	** From Arnold Robbins' strftime version 3.0: "the week number of the
332	** year (the first Monday as the first day of week 1) as a decimal number
333	** (01-53)."
334	** (ado, 1993-05-24)
335	**
336	** From "http://www.ft.uni-erlangen.de/~mskuhn/iso-time.html" by Markus Kuhn:
337	** "Week 01 of a year is per definition the first week which has the
338	** Thursday in this year, which is equivalent to the week which contains
339	** the fourth day of January. In other words, the first week of a new year
340	** is the week which has the majority of its days in the new year. Week 01
341	** might also contain days from the previous year and the week before week
342	** 01 of a year is the last week (52 or 53) of the previous year even if
343	** it contains days from the new year. A week starts with Monday (day 1)
344	** and ends with Sunday (day 7). For example, the first week of the year
345	** 1997 lasts from 1996-12-30 to 1997-01-05..."
346	** (ado, 1996-01-02)
347	*/
348	{
349	int year;
350	int yday;
351	int wday;
352	int w;
353
354	year = t->tm_year + TM_YEAR_BASE;
355	yday = t->tm_yday;
356	wday = t->tm_wday;
357	for ( ; ; ) {
358	int len;
359	int bot;
360	int top;
361
362	len = isleap(year) ?
363	DAYSPERLYEAR :
364	DAYSPERNYEAR;
365	/*
366	** What yday (-3 ... 3) does
367	** the ISO year begin on?
368	*/
369	bot = ((yday + 11 - wday) %
370	DAYSPERWEEK) - 3;
371	/*
372	** What yday does the NEXT
373	** ISO year begin on?
374	*/
375	top = bot -
376	(len % DAYSPERWEEK);
377	if (top < -3)
378	top += DAYSPERWEEK;
379	top += len;
380	if (yday >= top) {
381	++year;
382	w = 1;
383	break;
384	}
385	if (yday >= bot) {
386	w = 1 + ((yday - bot) /
387	DAYSPERWEEK);
388	break;
389	}
390	--year;
391	yday += isleap(year) ?
392	DAYSPERLYEAR :
393	DAYSPERNYEAR;
394	}
395	#ifdef XPG4_1994_04_09
396	if ((w == 52
397	&& t->tm_mon == TM_JANUARY)
398	\|\| (w == 1
399	&& t->tm_mon == TM_DECEMBER))
400	w = 53;
401	#endif /* defined XPG4_1994_04_09 */
402	if (*format == 'V')
403	pt = _conv(w, "%02d",
404	pt, ptlim);
405	else if (*format == 'g') {
406	*warnp = IN_ALL;
407	pt = _conv(year % 100, "%02d",
408	pt, ptlim);
409	} else pt = _conv(year, "%04d",
410	pt, ptlim);
411	}
412	continue;
413	case 'v':
414	/*
415	** From Arnold Robbins' strftime version 3.0:
416	** "date as dd-bbb-YYYY"
417	** (ado, 1993-05-24)
418	*/
419	pt = _fmt("%e-%b-%Y", t, pt, ptlim, warnp);
420	continue;
421	case 'W':
422	pt = _conv((t->tm_yday + DAYSPERWEEK -
423	(t->tm_wday ?
424	(t->tm_wday - 1) :
425	(DAYSPERWEEK - 1))) / DAYSPERWEEK,
426	"%02d", pt, ptlim);
427	continue;
428	case 'w':
429	pt = _conv(t->tm_wday, "%d", pt, ptlim);
430	continue;
431	case 'X':
432	pt = _fmt(Locale->t_fmt, t, pt, ptlim, warnp);
433	continue;
434	case 'x':
435	{
436	int warn2 = IN_SOME;
437
438	pt = _fmt(Locale->d_fmt, t, pt, ptlim, &warn2);
439	if (warn2 == IN_ALL)
440	warn2 = IN_THIS;
441	if (warn2 > *warnp)
442	*warnp = warn2;
443	}
444	continue;
445	case 'y':
446	*warnp = IN_ALL;
447	pt = _conv((t->tm_year + TM_YEAR_BASE) % 100,
448	"%02d", pt, ptlim);
449	continue;
450	case 'Y':
451	pt = _conv(t->tm_year + TM_YEAR_BASE, "%04d",
452	pt, ptlim);
453	continue;
454	case 'Z':
455	#ifdef TM_ZONE
456	if (t->TM_ZONE != NULL)
457	pt = _add(t->TM_ZONE, pt, ptlim);
458	else
459	#endif /* defined TM_ZONE */
460	if (t->tm_isdst >= 0)
461	pt = _add(tzname[t->tm_isdst != 0],
462	pt, ptlim);
463	/*
464	** C99 says that %Z must be replaced by the
465	** empty string if the time zone is not
466	** determinable.
467	*/
468	continue;
469	case 'z':
470	{
471	int diff;
472	char const * sign;
473
474	if (t->tm_isdst < 0)
475	continue;
476	#ifdef TM_GMTOFF
477	diff = (int)t->TM_GMTOFF;
478	#else /* !defined TM_GMTOFF */
479	/*
480	** C99 says that the UTC offset must
481	** be computed by looking only at
482	** tm_isdst. This requirement is
483	** incorrect, since it means the code
484	** must rely on magic (in this case
485	** altzone and timezone), and the
486	** magic might not have the correct
487	** offset. Doing things correctly is
488	** tricky and requires disobeying C99;
489	** see GNU C strftime for details.
490	** For now, punt and conform to the
491	** standard, even though it's incorrect.
492	**
493	** C99 says that %z must be replaced by the
494	** empty string if the time zone is not
495	** determinable, so output nothing if the
496	** appropriate variables are not available.
497	*/
498	#ifndef STD_INSPIRED
499	if (t->tm_isdst == 0)
500	#ifdef USG_COMPAT
501	diff = -timezone;
502	#else /* !defined USG_COMPAT */
503	continue;
504	#endif /* !defined USG_COMPAT */
505	else
506	#ifdef ALTZONE
507	diff = -altzone;
508	#else /* !defined ALTZONE */
509	continue;
510	#endif /* !defined ALTZONE */
511	#else /* defined STD_INSPIRED */
512	{
513	struct tm tmp;
514	time_t lct, gct;
515
516	/*
517	** Get calendar time from t
518	** being treated as local.
519	*/
520	tmp = t; / mktime discards const */
521	lct = mktime(&tmp);
522
523	if (lct == (time_t)-1)
524	continue;
525
526	/*
527	** Get calendar time from t
528	** being treated as GMT.
529	**/
530	tmp = t; / mktime discards const */
531	gct = timegm(&tmp);
532
533	if (gct == (time_t)-1)
534	continue;
535
536	/* LINTED difference will fit int */
537	diff = (intmax_t)gct - (intmax_t)lct;
538	}
539	#endif /* defined STD_INSPIRED */
540	#endif /* !defined TM_GMTOFF */
541	if (diff < 0) {
542	sign = "-";
543	diff = -diff;
544	} else sign = "+";
545	pt = _add(sign, pt, ptlim);
546	diff /= 60;
547	pt = _conv((diff/60)*100 + diff%60,
548	"%04d", pt, ptlim);
549	}
550	continue;
551	#if 0
552	case '+':
553	pt = _fmt(Locale->date_fmt, t, pt, ptlim,
554	warnp);
555	continue;
556	#endif
557	case '%':
558	/*
559	** X311J/88-090 (4.12.3.5): if conversion char is
560	** undefined, behavior is undefined. Print out the
561	** character itself as printf(3) also does.
562	*/
563	default:
564	break;
565	}
566	}
567	if (pt == ptlim)
568	break;
569	pt++ = format;
570	}
571	return pt;
572	}
573
574	static char *
575	_conv(
576	const int n,
577	const char * const format,
578	char * const pt,
579	const char * const ptlim
580	)
581	{
582	char buf[INT_STRLEN_MAXIMUM(int) + 1];
583
584	(void) sprintf(buf, format, n);
585	return _add(buf, pt, ptlim);
586	}
587
588	static char *
589	_add(
590	const char * str,
591	char * pt,
592	const char * const ptlim
593	)
594	{
595	while (pt < ptlim && (pt = str++) != '\0')
596	++pt;
597	return pt;
598	}

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Devices/EFI/Firmware/StdLib/LibC/Time/strftime.c@ 78416

Download in other formats: