1: /*
2: * Copyright (c) 1989, 1993
3: * The Regents of the University of California. All rights reserved.
4: *
5: * Redistribution and use in source and binary forms, with or without
6: * modification, are permitted provided that the following conditions
7: * are met:
8: * 1. Redistributions of source code must retain the above copyright
9: * notice, this list of conditions and the following disclaimer.
10: * 2. Redistributions in binary form must reproduce the above copyright
11: * notice, this list of conditions and the following disclaimer in the
12: * documentation and/or other materials provided with the distribution.
13: * 3. All advertising materials mentioning features or use of this software
14: * must display the following acknowledgement:
15: * This product includes software developed by the University of
16: * California, Berkeley and its contributors.
17: * 4. Neither the name of the University nor the names of its contributors
18: * may be used to endorse or promote products derived from this software
19: * without specific prior written permission.
20: *
21: * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
22: * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23: * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24: * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
25: * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26: * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27: * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28: * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29: * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30: * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
31: * SUCH DAMAGE.
32: */
33:
34: #if defined(LIBC_SCCS) && !defined(lint)
35: static char sccsid[] = "@(#)strftime.c 8.1 (Berkeley) 6/4/93";
36: #endif /* LIBC_SCCS and not lint */
37:
38: #include <sys/types.h>
39: #include <sys/time.h>
40: #include <tzfile.h>
41: #include <limits.h>
42: #include <stdio.h>
43:
44: /*
45: ** 302 / 1000 is log10(2.0) rounded up.
46: ** Subtract one for the sign bit;
47: ** add one for integer division truncation;
48: ** add one more for a minus sign.
49: */
50: #define INT_STRLEN_MAXIMUM(type) \
51: ((sizeof(type) * CHAR_BIT - 1) * 302 / 1000 + 2)
52:
53: /*
54: ** Based on elsieid[] = "@(#)strftime.c 7.15"
55: **
56: ** This is ANSIish only when time is treated identically in all locales and
57: ** when "multibyte character == plain character".
58: */
59:
60: static const char afmt[][4] = {
61: "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"
62: };
63: static const char Afmt[][10] = {
64: "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday",
65: "Saturday"
66: };
67: static const char bfmt[][4] = {
68: "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
69: "Oct", "Nov", "Dec"
70: };
71: static const char Bfmt[][10] = {
72: "January", "February", "March", "April", "May", "June", "July",
73: "August", "September", "October", "November", "December"
74: };
75:
76: static char *_add __P((const char *, char *, const char *));
77: static char *_conv __P((int, const char *, char *, const char *));
78: static char *_secs __P((const struct tm *, char *, const char *));
79: static char *_fmt __P((const char *, const struct tm *, char *, const char *));
80:
81: extern char *tzname[];
82:
83: size_t
84: strftime(s, maxsize, format, t)
85: char *s;
86: size_t maxsize;
87: const char *format;
88: const struct tm *t;
89: {
90: char *p;
91:
92: p = _fmt(format, t, s, s + maxsize);
93: if (p == s + maxsize)
94: return (0);
95: *p = '\0';
96: return (p - s);
97: }
98:
99: static char *
100: _fmt(format, t, pt, ptlim)
101: const char *format;
102: const struct tm *t;
103: char *pt;
104: const char *ptlim;
105: {
106: for (; *format; ++format) {
107: if (*format == '%') {
108: label:
109: switch(*++format) {
110: case '\0':
111: --format;
112: break;
113: case 'A':
114: pt = _add((t->tm_wday < 0 || t->tm_wday > 6) ?
115: "?" : Afmt[t->tm_wday], pt, ptlim);
116: continue;
117: case 'a':
118: pt = _add((t->tm_wday < 0 || t->tm_wday > 6) ?
119: "?" : afmt[t->tm_wday], pt, ptlim);
120: continue;
121: case 'B':
122: pt = _add((t->tm_mon < 0 || t->tm_mon > 11) ?
123: "?" : Bfmt[t->tm_mon], pt, ptlim);
124: continue;
125: case 'b':
126: case 'h':
127: pt = _add((t->tm_mon < 0 || t->tm_mon > 11) ?
128: "?" : bfmt[t->tm_mon], pt, ptlim);
129: continue;
130: case 'c':
131: pt = _fmt("%D %X", t, pt, ptlim);
132: continue;
133: case 'C':
134: /*
135: ** %C used to do a...
136: ** _fmt("%a %b %e %X %Y", t);
137: ** ...whereas now POSIX 1003.2 calls for
138: ** something completely different.
139: ** (ado, 5/24/93)
140: */
141: pt = _conv((t->tm_year + TM_YEAR_BASE) / 100,
142: "%02d", pt, ptlim);
143: continue;
144: case 'D':
145: pt = _fmt("%m/%d/%y", t, pt, ptlim);
146: continue;
147: case 'x':
148: /*
149: ** Version 3.0 of strftime from Arnold Robbins
150: ** (arnold@skeeve.atl.ga.us) does the
151: ** equivalent of...
152: ** _fmt("%a %b %e %Y");
153: ** ...for %x; since the X3J11 C language
154: ** standard calls for "date, using locale's
155: ** date format," anything goes. Using just
156: ** numbers (as here) makes Quakers happier.
157: ** Word from Paul Eggert (eggert@twinsun.com)
158: ** is that %Y-%m-%d is the ISO standard date
159: ** format, specified in ISO 2014 and later
160: ** ISO 8601:1988, with a summary available in
161: ** pub/doc/ISO/english/ISO8601.ps.Z on
162: ** ftp.uni-erlangen.de.
163: ** (ado, 5/30/93)
164: */
165: pt = _fmt("%m/%d/%y", t, pt, ptlim);
166: continue;
167: case 'd':
168: pt = _conv(t->tm_mday, "%02d", pt, ptlim);
169: continue;
170: case 'E':
171: case 'O':
172: /*
173: ** POSIX locale extensions, a la
174: ** Arnold Robbins' strftime version 3.0.
175: ** The sequences
176: ** %Ec %EC %Ex %Ey %EY
177: ** %Od %oe %OH %OI %Om %OM
178: ** %OS %Ou %OU %OV %Ow %OW %Oy
179: ** are supposed to provide alternate
180: ** representations.
181: ** (ado, 5/24/93)
182: */
183: goto label;
184: case 'e':
185: pt = _conv(t->tm_mday, "%2d", pt, ptlim);
186: continue;
187: case 'H':
188: pt = _conv(t->tm_hour, "%02d", pt, ptlim);
189: continue;
190: case 'I':
191: pt = _conv((t->tm_hour % 12) ?
192: (t->tm_hour % 12) : 12,
193: "%02d", pt, ptlim);
194: continue;
195: case 'j':
196: pt = _conv(t->tm_yday + 1, "%03d", pt, ptlim);
197: continue;
198: case 'k':
199: /*
200: ** This used to be...
201: ** _conv(t->tm_hour % 12 ?
202: ** t->tm_hour % 12 : 12, 2, ' ');
203: ** ...and has been changed to the below to
204: ** match SunOS 4.1.1 and Arnold Robbins'
205: ** strftime version 3.0. That is, "%k" and
206: ** "%l" have been swapped.
207: ** (ado, 5/24/93)
208: */
209: pt = _conv(t->tm_hour, "%2d", pt, ptlim);
210: continue;
211: #ifdef KITCHEN_SINK
212: case 'K':
213: /*
214: ** After all this time, still unclaimed!
215: */
216: pt = _add("kitchen sink", pt, ptlim);
217: continue;
218: #endif /* defined KITCHEN_SINK */
219: case 'l':
220: /*
221: ** This used to be...
222: ** _conv(t->tm_hour, 2, ' ');
223: ** ...and has been changed to the below to
224: ** match SunOS 4.1.1 and Arnold Robbin's
225: ** strftime version 3.0. That is, "%k" and
226: ** "%l" have been swapped.
227: ** (ado, 5/24/93)
228: */
229: pt = _conv((t->tm_hour % 12) ?
230: (t->tm_hour % 12) : 12,
231: "%2d", pt, ptlim);
232: continue;
233: case 'M':
234: pt = _conv(t->tm_min, "%02d", pt, ptlim);
235: continue;
236: case 'm':
237: pt = _conv(t->tm_mon + 1, "%02d", pt, ptlim);
238: continue;
239: case 'n':
240: pt = _add("\n", pt, ptlim);
241: continue;
242: case 'p':
243: pt = _add(t->tm_hour >= 12 ? "PM" : "AM",
244: pt, ptlim);
245: continue;
246: case 'R':
247: pt = _fmt("%H:%M", t, pt, ptlim);
248: continue;
249: case 'r':
250: pt = _fmt("%I:%M:%S %p", t, pt, ptlim);
251: continue;
252: case 'S':
253: pt = _conv(t->tm_sec, "%02d", pt, ptlim);
254: continue;
255: case 's':
256: pt = _secs(t, pt, ptlim);
257: continue;
258: case 'T':
259: case 'X':
260: pt = _fmt("%H:%M:%S", t, pt, ptlim);
261: continue;
262: case 't':
263: pt = _add("\t", pt, ptlim);
264: continue;
265: case 'U':
266: pt = _conv((t->tm_yday + 7 - t->tm_wday) / 7,
267: "%02d", pt, ptlim);
268: continue;
269: case 'u':
270: /*
271: ** From Arnold Robbins' strftime version 3.0:
272: ** "ISO 8601: Weekday as a decimal number
273: ** [1 (Monday) - 7]"
274: ** (ado, 5/24/93)
275: */
276: pt = _conv((t->tm_wday == 0) ? 7 : t->tm_wday,
277: "%d", pt, ptlim);
278: continue;
279: case 'V':
280: /*
281: ** From Arnold Robbins' strftime version 3.0:
282: ** "the week number of the year (the first
283: ** Monday as the first day of week 1) as a
284: ** decimal number (01-53). The method for
285: ** determining the week number is as specified
286: ** by ISO 8601 (to wit: if the week containing
287: ** January 1 has four or more days in the new
288: ** year, then it is week 1, otherwise it is
289: ** week 53 of the previous year and the next
290: ** week is week 1)."
291: ** (ado, 5/24/93)
292: */
293: /*
294: ** XXX--If January 1 falls on a Friday,
295: ** January 1-3 are part of week 53 of the
296: ** previous year. By analogy, if January
297: ** 1 falls on a Thursday, are December 29-31
298: ** of the PREVIOUS year part of week 1???
299: ** (ado 5/24/93)
300: **
301: ** You are understood not to expect this.
302: */
303: {
304: int i;
305:
306: i = (t->tm_yday + 10 - (t->tm_wday ?
307: (t->tm_wday - 1) : 6)) / 7;
308: pt = _conv((i == 0) ? 53 : i,
309: "%02d", pt, ptlim);
310: }
311: continue;
312: #ifdef notdef
313: /* Not in POSIX date(1), System V or ANSI C. */
314: case 'v':
315: /*
316: ** From Arnold Robbins' strftime version 3.0:
317: ** "date as dd-bbb-YYYY"
318: ** (ado, 5/24/93)
319: */
320: pt = _fmt("%e-%b-%Y", t, pt, ptlim);
321: continue;
322: #endif
323: case 'W':
324: pt = _conv((t->tm_yday + 7 -
325: (t->tm_wday ?
326: (t->tm_wday - 1) : 6)) / 7,
327: "%02d", pt, ptlim);
328: continue;
329: case 'w':
330: pt = _conv(t->tm_wday, "%d", pt, ptlim);
331: continue;
332: case 'y':
333: pt = _conv((t->tm_year + TM_YEAR_BASE) % 100,
334: "%02d", pt, ptlim);
335: continue;
336: case 'Y':
337: pt = _conv(t->tm_year + TM_YEAR_BASE, "%04d",
338: pt, ptlim);
339: continue;
340: case 'Z':
341: #ifdef TM_ZONE
342: if (t->TM_ZONE)
343: pt = _add(t->TM_ZONE, pt, ptlim);
344: else
345: #endif /* defined TM_ZONE */
346: if (t->tm_isdst == 0 || t->tm_isdst == 1) {
347: pt = _add(tzname[t->tm_isdst],
348: pt, ptlim);
349: } else pt = _add("?", pt, ptlim);
350: continue;
351: case '%':
352: /*
353: * X311J/88-090 (4.12.3.5): if conversion char is
354: * undefined, behavior is undefined. Print out the
355: * character itself as printf(3) does.
356: */
357: default:
358: break;
359: }
360: }
361: if (pt == ptlim)
362: break;
363: *pt++ = *format;
364: }
365: return (pt);
366: }
367:
368: static char *
369: _secs(t, pt, ptlim)
370: const struct tm *t;
371: char *pt;
372: const char *ptlim;
373: {
374: struct tm tmp;
375: time_t s;
376:
377: tmp = *t;
378: s = mktime(&tmp);
379: return (_conv((int)s, "%d", pt, ptlim));
380: }
381:
382: static char *
383: _conv(n, format, pt, ptlim)
384: int n;
385: const char *format;
386: char *pt;
387: const char *ptlim;
388: {
389: char buf[INT_STRLEN_MAXIMUM(int) + 1];
390:
391: (void) sprintf(buf, format, n);
392: return (_add(buf, pt, ptlim));
393: }
394:
395: static char *
396: _add(str, pt, ptlim)
397: const char *str;
398: char *pt;
399: const char *ptlim;
400: {
401:
402: while (pt < ptlim && (*pt = *str++) != '\0')
403: ++pt;
404: return (pt);
405: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to strftime.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / trafshow