/* $NetBSD: strftime.c,v 1.8 1999/02/07 17:33:30 augustss Exp $ */ /* * Copyright (c) 1989 The Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #if defined(LIBC_SCCS) && !defined(lint) #if 0 static char *sccsid = "@(#)strftime.c 5.11 (Berkeley) 2/24/91"; #else __RCSID("$NetBSD: strftime.c,v 1.8 1999/02/07 17:33:30 augustss Exp $"); #endif #endif /* LIBC_SCCS and not lint */ #include #include /* begin krb5 hack - replace stuff that would come from netbsd libc */ #undef _CurrentTimeLocale #define _CurrentTimeLocale (&dummy_locale_info) struct dummy_locale_info_t { char d_t_fmt[15]; char t_fmt_ampm[12]; char t_fmt[9]; char d_fmt[9]; char day[7][10]; char abday[7][4]; char mon[12][10]; char abmon[12][4]; char am_pm[2][3]; }; static const struct dummy_locale_info_t dummy_locale_info = { "%a %b %d %X %Y", /* %c */ "%I:%M:%S %p", /* %r */ "%H:%M:%S", /* %X */ "%m/%d/%y", /* %x */ { "Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" }, { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat" }, { "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" }, { "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" }, { "AM", "PM" }, }; #undef TM_YEAR_BASE #define TM_YEAR_BASE 1900 #undef DAYSPERLYEAR #define DAYSPERLYEAR 366 #undef DAYSPERNYEAR #define DAYSPERNYEAR 365 #undef DAYSPERWEEK #define DAYSPERWEEK 7 #undef isleap #define isleap(N) ((N % 4) == 0 && (N % 100 != 0 || N % 400 == 0)) #undef tzname #define tzname my_tzname static const char *const tzname[2] = { 0, 0 }; #undef tzset #define tzset() #undef __P #define __P(X) X /* we already require ansi c in this tree */ /* end krb5 hack */ static int _add __P((const char *, char **, const char *)); static int _conv __P((int, int, int, char **, const char *)); static int _secs __P((const struct tm *, char **, const char *)); static size_t _fmt __P((const char *, const struct tm *, char **, const char *)); size_t strftime(s, maxsize, format, t) char *s; size_t maxsize; const char *format; const struct tm *t; { char *pt; tzset(); if (maxsize < 1) return (0); pt = s; if (_fmt(format, t, &pt, s + maxsize)) { *pt = '\0'; return (pt - s); } else return (0); } #define SUN_WEEK(t) (((t)->tm_yday + 7 - \ ((t)->tm_wday)) / 7) #define MON_WEEK(t) (((t)->tm_yday + 7 - \ ((t)->tm_wday ? (t)->tm_wday - 1 : 6)) / 7) static size_t _fmt(format, t, pt, ptlim) const char *format; const struct tm *t; char **pt; const char * const ptlim; { for (; *format; ++format) { if (*format == '%') { ++format; if (*format == 'E') { /* Alternate Era */ ++format; } else if (*format == 'O') { /* Alternate numeric symbols */ ++format; } switch (*format) { case '\0': --format; break; case 'A': if (t->tm_wday < 0 || t->tm_wday > 6) return (0); if (!_add(_CurrentTimeLocale->day[t->tm_wday], pt, ptlim)) return (0); continue; case 'a': if (t->tm_wday < 0 || t->tm_wday > 6) return (0); if (!_add(_CurrentTimeLocale->abday[t->tm_wday], pt, ptlim)) return (0); continue; case 'B': if (t->tm_mon < 0 || t->tm_mon > 11) return (0); if (!_add(_CurrentTimeLocale->mon[t->tm_mon], pt, ptlim)) return (0); continue; case 'b': case 'h': if (t->tm_mon < 0 || t->tm_mon > 11) return (0); if (!_add(_CurrentTimeLocale->abmon[t->tm_mon], pt, ptlim)) return (0); continue; case 'C': if (!_conv((t->tm_year + TM_YEAR_BASE) / 100, 2, '0', pt, ptlim)) return (0); continue; case 'c': if (!_fmt(_CurrentTimeLocale->d_t_fmt, t, pt, ptlim)) return (0); continue; case 'D': if (!_fmt("%m/%d/%y", t, pt, ptlim)) return (0); continue; case 'd': if (!_conv(t->tm_mday, 2, '0', pt, ptlim)) return (0); continue; case 'e': if (!_conv(t->tm_mday, 2, ' ', pt, ptlim)) return (0); continue; case 'H': if (!_conv(t->tm_hour, 2, '0', pt, ptlim)) return (0); continue; case 'I': if (!_conv(t->tm_hour % 12 ? t->tm_hour % 12 : 12, 2, '0', pt, ptlim)) return (0); continue; case 'j': if (!_conv(t->tm_yday + 1, 3, '0', pt, ptlim)) return (0); continue; case 'k': if (!_conv(t->tm_hour, 2, ' ', pt, ptlim)) return (0); continue; case 'l': if (!_conv(t->tm_hour % 12 ? t->tm_hour % 12: 12, 2, ' ', pt, ptlim)) return (0); continue; case 'M': if (!_conv(t->tm_min, 2, '0', pt, ptlim)) return (0); continue; case 'm': if (!_conv(t->tm_mon + 1, 2, '0', pt, ptlim)) return (0); continue; case 'n': if (!_add("\n", pt, ptlim)) return (0); continue; case 'p': if (!_add(_CurrentTimeLocale->am_pm[t->tm_hour >= 12], pt, ptlim)) return (0); continue; case 'R': if (!_fmt("%H:%M", t, pt, ptlim)) return (0); continue; case 'r': if (!_fmt(_CurrentTimeLocale->t_fmt_ampm, t, pt, ptlim)) return (0); continue; case 'S': if (!_conv(t->tm_sec, 2, '0', pt, ptlim)) return (0); continue; case 's': if (!_secs(t, pt, ptlim)) return (0); continue; case 'T': if (!_fmt("%H:%M:%S", t, pt, ptlim)) return (0); continue; case 't': if (!_add("\t", pt, ptlim)) return (0); continue; case 'U': if (!_conv(SUN_WEEK(t), 2, '0', pt, ptlim)) return (0); continue; case 'u': if (!_conv(t->tm_wday ? t->tm_wday : 7, 1, '0', pt, ptlim)) return (0); continue; case 'V': /* ISO 8601 week number */ case 'G': /* ISO 8601 year (four digits) */ case 'g': /* ISO 8601 year (two digits) */ /* ** From Arnold Robbins' strftime version 3.0: "the week number of the ** year (the first Monday as the first day of week 1) as a decimal number ** (01-53)." ** (ado, 1993-05-24) ** ** From "http://www.ft.uni-erlangen.de/~mskuhn/iso-time.html" by Markus Kuhn: ** "Week 01 of a year is per definition the first week which has the ** Thursday in this year, which is equivalent to the week which contains ** the fourth day of January. In other words, the first week of a new year ** is the week which has the majority of its days in the new year. Week 01 ** might also contain days from the previous year and the week before week ** 01 of a year is the last week (52 or 53) of the previous year even if ** it contains days from the new year. A week starts with Monday (day 1) ** and ends with Sunday (day 7). For example, the first week of the year ** 1997 lasts from 1996-12-30 to 1997-01-05..." ** (ado, 1996-01-02) */ { int year; int yday; int wday; int w; year = t->tm_year + TM_YEAR_BASE; yday = t->tm_yday; wday = t->tm_wday; for ( ; ; ) { int len; int bot; int top; len = isleap(year) ? DAYSPERLYEAR : DAYSPERNYEAR; /* ** What yday (-3 ... 3) does ** the ISO year begin on? */ bot = ((yday + 11 - wday) % DAYSPERWEEK) - 3; /* ** What yday does the NEXT ** ISO year begin on? */ top = bot - (len % DAYSPERWEEK); if (top < -3) top += DAYSPERWEEK; top += len; if (yday >= top) { ++year; w = 1; break; } if (yday >= bot) { w = 1 + ((yday - bot) / DAYSPERWEEK); break; } --year; yday += isleap(year) ? DAYSPERLYEAR : DAYSPERNYEAR; } #ifdef XPG4_1994_04_09 if ((w == 52 && t->tm_mon == TM_JANUARY) || (w == 1 && t->tm_mon == TM_DECEMBER)) w = 53; #endif /* defined XPG4_1994_04_09 */ if (*format == 'V') { if (!_conv(w, 2, '0', pt, ptlim)) return (0); } else if (*format == 'g') { if (!_conv(year % 100, 2, '0', pt, ptlim)) return (0); } else if (!_conv(year, 4, '0', pt, ptlim)) return (0); } continue; case 'W': if (!_conv(MON_WEEK(t), 2, '0', pt, ptlim)) return (0); continue; case 'w': if (!_conv(t->tm_wday, 1, '0', pt, ptlim)) return (0); continue; case 'x': if (!_fmt(_CurrentTimeLocale->d_fmt, t, pt, ptlim)) return (0); continue; case 'X': if (!_fmt(_CurrentTimeLocale->t_fmt, t, pt, ptlim)) return (0); continue; case 'y': if (!_conv((t->tm_year + TM_YEAR_BASE) % 100, 2, '0', pt, ptlim)) return (0); continue; case 'Y': if (!_conv((t->tm_year + TM_YEAR_BASE), 4, '0', pt, ptlim)) return (0); continue; case 'Z': if (tzname[t->tm_isdst ? 1 : 0] && !_add(tzname[t->tm_isdst ? 1 : 0], pt, ptlim)) return (0); continue; case '%': /* * X311J/88-090 (4.12.3.5): if conversion char is * undefined, behavior is undefined. Print out the * character itself as printf(3) does. */ default: break; } } if (*pt == ptlim) return (0); *(*pt)++ = *format; } return (ptlim - *pt); } static int _secs(t, pt, ptlim) const struct tm *t; char **pt; const char * const ptlim; { char buf[15]; time_t s; char *p; struct tm tmp; buf[sizeof (buf) - 1] = '\0'; /* Make a copy, mktime(3) modifies the tm struct. */ tmp = *t; s = mktime(&tmp); for (p = buf + sizeof(buf) - 2; s > 0 && p > buf; s /= 10) *p-- = (char)(s % 10 + '0'); return (_add(++p, pt, ptlim)); } static int _conv(n, digits, pad, pt, ptlim) int n, digits; int pad; char **pt; const char * const ptlim; { char buf[10]; char *p; buf[sizeof (buf) - 1] = '\0'; for (p = buf + sizeof(buf) - 2; n > 0 && p > buf; n /= 10, --digits) *p-- = n % 10 + '0'; while (p > buf && digits-- > 0) *p-- = pad; return (_add(++p, pt, ptlim)); } static int _add(str, pt, ptlim) const char *str; char **pt; const char * const ptlim; { for (;; ++(*pt)) { if (*pt == ptlim) return (0); if ((**pt = *str++) == '\0') return (1); } }