/*	$OpenBSD: strftime.c,v 1.30 2016/09/21 04:38:57 guenther Exp $ */

/*

** Copyright (c) 1989, 1993

**	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. 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.

*/

#include <fcntl.h>

#include <locale.h>

#include <stdio.h>

#include "private.h"

#include "tzfile.h"

struct lc_time_T {

	const char *	mon[MONSPERYEAR];

	const char *	month[MONSPERYEAR];

	const char *	wday[DAYSPERWEEK];

	const char *	weekday[DAYSPERWEEK];

	const char *	X_fmt;

	const char *	x_fmt;

	const char *	c_fmt;

	const char *	am;

	const char *	pm;

	const char *	date_fmt;

};

#ifdef LOCALE_HOME

#include "sys/stat.h"

static struct lc_time_T		localebuf;

static struct lc_time_T *	_loc(void);

#define Locale	_loc()

#endif /* defined LOCALE_HOME */

#ifndef LOCALE_HOME

#define Locale	(&C_time_locale)

#endif /* !defined LOCALE_HOME */

static const struct lc_time_T	C_time_locale = {

	{

		"Jan", "Feb", "Mar", "Apr", "May", "Jun",

		"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"

	}, {

		"January", "February", "March", "April", "May", "June",

		"July", "August", "September", "October", "November", "December"

	}, {

		"Sun", "Mon", "Tue", "Wed",

		"Thu", "Fri", "Sat"

	}, {

		"Sunday", "Monday", "Tuesday", "Wednesday",

		"Thursday", "Friday", "Saturday"

	},

	/* X_fmt */

	"%H:%M:%S",

	/*

	** x_fmt

	** C99 requires this format.

	** Using just numbers (as here) makes Quakers happier;

	** it's also compatible with SVR4.

	*/

	"%m/%d/%y",

	/*

	** c_fmt

	** C99 requires this format.

	** Previously this code used "%D %X", but we now conform to C99.

	** Note that

	**	"%a %b %d %H:%M:%S %Y"

	** is used by Solaris 2.3.

	*/

	"%a %b %e %T %Y",

	/* am */

	"AM",

	/* pm */

	"PM",

	/* date_fmt */

	"%a %b %e %H:%M:%S %Z %Y"

};

static char *	_add(const char *, char *, const char *);

static char *	_conv(int, const char *, char *, const char *);

static char *	_fmt(const char *, const struct tm *, char *, const char *,

			int *);

static char *	_yconv(int, int, int, int, char *, const char *);

extern char *	tzname[];

#define IN_NONE	0

#define IN_SOME	1

#define IN_THIS	2

#define IN_ALL	3

size_t

strftime(char *s, size_t maxsize, const char *format, const struct tm *t)

{

	char *	p;

#ifdef LOCALE_HOME

	localebuf.mon[0] = 0;

#endif /* defined LOCALE_HOME */

	}

DEF_STRONG(strftime);

static char *

_fmt(const char *format, const struct tm *t, char *pt, const char *ptlim, int *warnp)

{

label:

			case '\0':

			case 'A':

					pt, ptlim);

			case 'a':

					pt, ptlim);

			case 'B':

					pt, ptlim);

			case 'b':

			case 'h':

					pt, ptlim);

			case 'C':

				/*

				** %C used to do a...

				**	_fmt("%a %b %e %X %Y", t);

				** ...whereas now POSIX 1003.2 calls for

				** something completely different.

				** (ado, 1993-05-24)

				*/

					pt, ptlim);

			case 'c':

				{

			case 'D':

			case 'd':

			case 'E':

			case 'O':

				/*

				** C99 locale modifiers.

				** The sequences

				**	%Ec %EC %Ex %EX %Ey %EY

				**	%Od %oe %OH %OI %Om %OM

				**	%OS %Ou %OU %OV %Ow %OW %Oy

				** are supposed to provide alternate

				** representations.

				*/

				goto label;

			case 'e':

			case 'F':

			case 'H':

			case 'I':

					(t->tm_hour % 12) : 12,

					"%02d", pt, ptlim);

			case 'j':

			case 'k':

				/*

				** This used to be...

				**	_conv(t->tm_hour % 12 ?

				**		t->tm_hour % 12 : 12, 2, ' ');

				** ...and has been changed to the below to

				** match SunOS 4.1.1 and Arnold Robbins'

				** strftime version 3.0. That is, "%k" and

				** "%l" have been swapped.

				** (ado, 1993-05-24)

				*/

#ifdef KITCHEN_SINK

			case 'K':

				/*

				** After all this time, still unclaimed!

				*/

				pt = _add("kitchen sink", pt, ptlim);

				continue;

#endif /* defined KITCHEN_SINK */

			case 'l':

				/*

				** This used to be...

				**	_conv(t->tm_hour, 2, ' ');

				** ...and has been changed to the below to

				** match SunOS 4.1.1 and Arnold Robbin's

				** strftime version 3.0. That is, "%k" and

				** "%l" have been swapped.

				** (ado, 1993-05-24)

				*/

					(t->tm_hour % 12) : 12,

					"%2d", pt, ptlim);

			case 'M':

			case 'm':

			case 'n':

			case 'p':

					Locale->pm :

					Locale->am,

					pt, ptlim);

			case 'R':

			case 'r':

			case 'S':

			case 's':

				{

								time_t) + 1];

					time_t		mkt;

					    "%ld", (long) mkt);

				}

			case 'T':

			case 't':

			case 'U':

					"%02d", pt, ptlim);

			case 'u':

				/*

				** From Arnold Robbins' strftime version 3.0:

				** "ISO 8601: Weekday as a decimal number

				** [1 (Monday) - 7]"

				** (ado, 1993-05-24)

				*/

					DAYSPERWEEK : t->tm_wday,

					"%d", pt, ptlim);

			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	base;

					int	yday;

					int	wday;

					int	w;

					base = TM_YEAR_BASE;

						int	len;

						int	bot;

						int	top;

							DAYSPERLYEAR :

							DAYSPERNYEAR;

						/*

						** What yday (-3 ... 3) does

						** the ISO year begin on?

						*/

						/*

						** What yday does the NEXT

						** ISO year begin on?

						*/

							w = 1;

						}

								DAYSPERWEEK);

						}

							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 */

							pt, ptlim);

							pt, ptlim);

							pt, ptlim);

				}

			case 'v':

				/*

				** From Arnold Robbins' strftime version 3.0:

				** "date as dd-bbb-YYYY"

				** (ado, 1993-05-24)

				*/

			case 'W':

					"%02d", pt, ptlim);

			case 'w':

			case 'X':

			case 'x':

				{

				}

			case 'y':

					pt, ptlim);

			case 'Y':

					pt, ptlim);

			case 'Z':

#ifdef TM_ZONE

				else

#endif /* defined TM_ZONE */

						pt, ptlim);

				/*

				** C99 says that %Z must be replaced by the

				** empty string if the time zone is not

				** determinable.

				*/

				continue;

			case 'z':

				{

				int		diff;

				char const *	sign;

#ifdef TM_GMTOFF

#else /* !defined TM_GMTOFF */

				/*

				** C99 says that the UTC offset must

				** be computed by looking only at

				** tm_isdst. This requirement is

				** incorrect, since it means the code

				** must rely on magic (in this case

				** altzone and timezone), and the

				** magic might not have the correct

				** offset. Doing things correctly is

				** tricky and requires disobeying C99;

				** see GNU C strftime for details.

				** For now, punt and conform to the

				** standard, even though it's incorrect.

				**

				** C99 says that %z must be replaced by the

				** empty string if the time zone is not

				** determinable, so output nothing if the

				** appropriate variables are not available.

				*/

				if (t->tm_isdst == 0)

#ifdef USG_COMPAT

					diff = -timezone;

#else /* !defined USG_COMPAT */

					continue;

#endif /* !defined USG_COMPAT */

				else

#ifdef ALTZONE

					diff = -altzone;

#else /* !defined ALTZONE */

					continue;

#endif /* !defined ALTZONE */

#endif /* !defined TM_GMTOFF */

					sign = "-";

				}

				continue;

			case '+':

					warnp);

			case '%':

			/*

			** X311J/88-090 (4.12.3.5): if conversion char is

			** undefined, behavior is undefined. Print out the

			** character itself as printf(3) also does.

			*/

			default:

				break;

			}

		}

			break;

}

static char *

_conv(int n, const char *format, char *pt, const char *ptlim)

{

static char *

_add(const char *str, char *pt, const char *ptlim)

{

}

/*

** POSIX and the C Standard are unclear or inconsistent about

** what %C and %y do if the year is negative or exceeds 9999.

** Use the convention that %C concatenated with %y yields the

** same output as %Y, and that %Y contains at least 4 bytes,

** with more only if necessary.

*/

static char *

_yconv(int a, int b, int convert_top, int convert_yy, char *pt, const char *ptlim)

{

	int	lead;

	int	trail;

#define DIVISOR	100

	}

	}

}

#ifdef LOCALE_HOME

static struct lc_time_T *

_loc(void)

{

	static const char	locale_home[] = LOCALE_HOME;

	static const char	lc_time[] = "LC_TIME";

	static char *		locale_buf;

	int			fd;

	int			oldsun;	/* "...ain't got nothin' to do..." */

	int			len;

	char *			lbuf;

	char *			nlbuf;

	char *			name;

	char *			p;

	const char **		ap;

	const char *		plim;

	char			filename[PATH_MAX];

	struct stat		st;

	size_t			namesize;

	size_t			bufsize;

	/*

	** Use localebuf.mon[0] to signal whether locale is already set up.

	*/

	if (localebuf.mon[0])

		return &localebuf;

	name = setlocale(LC_TIME, (char *) NULL);

	if (name == NULL || *name == '\0')

		goto no_locale;

	/*

	** If the locale name is the same as our cache, use the cache.

	*/

	lbuf = locale_buf;

	if (lbuf != NULL && strcmp(name, lbuf) == 0) {

		p = lbuf;

		for (ap = (const char **) &localebuf;

			ap < (const char **) (&localebuf + 1);

				++ap)

					*ap = p += strlen(p) + 1;

		return &localebuf;

	}

	/*

	** Slurp the locale file into the cache.

	*/

	namesize = strlen(name) + 1;

	if (sizeof filename <

		((sizeof locale_home) + namesize + (sizeof lc_time)))

			goto no_locale;

	oldsun = 0;

	len = snprintf(filename, sizeof filename, "%s/%s/%s", locale_home,

	    name, lc_time);

	if (len < 0 || len >= sizeof filename)

		goto no_locale;

	fd = open(filename, O_RDONLY);

	if (fd < 0) {

		/*

		** Old Sun systems have a different naming and data convention.

		*/

		oldsun = 1;

		len = snprintf(filename, sizeof filename, "%s/%s/%s",

			locale_home, lc_time, name);

		if (len < 0 || len >= sizeof filename)

			goto no_locale;

		fd = open(filename, O_RDONLY);

		if (fd < 0)

			goto no_locale;

	}

	if (fstat(fd, &st) != 0)

		goto bad_locale;

	if (st.st_size <= 0)

		goto bad_locale;

	bufsize = namesize + st.st_size;

	locale_buf = NULL;

	nlbuf = realloc(lbuf, bufsize);

	if (nlbuf == NULL) {

		free(lbuf);

		lbuf = NULL;

		goto bad_locale;

	}

	lbuf = nlbuf;

	(void) strlcpy(lbuf, name, bufsize);

	p = lbuf + namesize;

	plim = p + st.st_size;

	if (read(fd, p, st.st_size) != st.st_size)

		goto bad_lbuf;

	if (close(fd) != 0)

		goto bad_lbuf;

	/*

	** Parse the locale file into localebuf.

	*/

	if (plim[-1] != '\n')

		goto bad_lbuf;

	for (ap = (const char **) &localebuf;

		ap < (const char **) (&localebuf + 1);

			++ap) {

				if (p == plim)

					goto bad_lbuf;

				*ap = p;

				while (*p != '\n')

					++p;

				*p++ = '\0';

	}

	if (oldsun) {

		/*

		** SunOS 4 used an obsolescent format; see localdtconv(3).

		** c_fmt had the ``short format for dates and times together''

		** (SunOS 4 date, "%a %b %e %T %Z %Y" in the C locale);

		** date_fmt had the ``long format for dates''

		** (SunOS 4 strftime %C, "%A, %B %e, %Y" in the C locale).

		** Discard the latter in favor of the former.

		*/

		localebuf.date_fmt = localebuf.c_fmt;

	}

	/*

	** Record the successful parse in the cache.

	*/

	locale_buf = lbuf;

	return &localebuf;

bad_lbuf:

	free(lbuf);

bad_locale:

	(void) close(fd);

no_locale:

	localebuf = C_time_locale;

	locale_buf = NULL;

	return &localebuf;

}

#endif /* defined LOCALE_HOME */