/***
*strftime.c - String Format Time
*
*	Copyright (c) 1988-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
*
*Revision History:
*	03-09-89   JCR	Initial version.
*	03-15-89   JCR	Changed day/month strings from all caps to leading cap
*	06-20-89   JCR	Removed _LOAD_DGROUP code
*	03-20-90   GJF	Replaced _LOAD_DS with _CALLTYPE1, added #include
*			<cruntime.h>, removed #include <register.h> and
*			removed some leftover 16-bit support. Also, fixed
*			the copyright.
*	03-23-90   GJF	Made static functions _CALLTYPE4.
*	07-23-90   SBM	Compiles cleanly with -W3 (removed unreferenced
*			variable)
*	08-13-90   SBM	Compiles cleanly with -W3 with new build of compiler
*	10-04-90   GJF	New-style function declarators.
*	01-22-91   GJF	ANSI naming.
*	08-15-91   MRM	Calls tzset() to set timezone info in case of %z.
*	08-16-91   MRM	Put appropriate header file for tzset().
*	10-10-91   ETC	Locale support under _INTL switch.
*	12-18-91   ETC	Use localized time strings structure.
*	02-10-93   CFW	Ported to Cuda tree, change _CALLTYPE4 to _CRTAPI3.
*	02-16-93   CFW	Massive changes: bug fixes & enhancements.
*	03-08-93   CFW	Changed _expand to _expandtime.
*	03-09-93   CFW	Handle string literals inside format strings.
*	03-09-93   CFW	Alternate form cleanup.
*	03-17-93   CFW	Change *count > 0, to *count != 0, *count is unsigned.
*	03-22-93   CFW	Change "C" locale time format specifier to 24-hour.
*	03-30-93   GJF	Call _tzset instead of __tzset (which no longer
*			exists).
*	04-14-93   CFW	Disable _alternate_form for 'X' specifier, fix count bug.
*	07-15-93   GJF	Call __tzset() in place of _tzset().
*
*******************************************************************************/

#include <cruntime.h>
#include <internal.h>
#include <os2dll.h>
#include <time.h>
#include <locale.h>
#include <setlocal.h>
#ifdef _INTL
#include <ctype.h>
#include <string.h>
#endif

/* Prototypes for local routines */
static void _CRTAPI3 _expandtime (char specifier, const struct tm *tmptr, char **out, size_t *count);
static void _CRTAPI3 _store_str (char *in, char **out, size_t *count);
static void _CRTAPI3 _store_num (int num, int digits, char **out, size_t *count);
#ifndef _INTL
static void _CRTAPI3 _store_time (const struct tm *tmptr, char **out, size_t *count);
static void _CRTAPI3 _store_date (const struct tm *tmptr, char **out, size_t *count);
#else /* _INTL */
static void _CRTAPI3 _store_number (int num, char **out, size_t *count);
static void _CRTAPI3 _store_winword (const char *format, const struct tm *tmptr, char **out, size_t *count);
#endif


/* LC_TIME data for local "C" */

struct _lc_time_data _lc_time_c = {

	{"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"},

	{"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday",
		"Friday", "Saturday", },

	{"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug",
		"Sep", "Oct", "Nov", "Dec"},

	{"January", "February", "March", "April", "May", "June",
		"July", "August", "September", "October",
		"November", "December"},

	{"AM", "PM"}

#ifdef _INTL
	, { "M/d/yy" }
	, { "dddd, MMMM dd, yyyy" }
	, { "H:mm:ss" }
#endif
	};


/* Pointer to the current LC_TIME data structure. */

struct _lc_time_data *_lc_time_curr = &_lc_time_c;

/* Flags */
unsigned _alternate_form = 0; 
#ifdef _INTL
unsigned _no_lead_zeros = 0;
#endif


/***
*size_t strftime(string, maxsize, format, timeptr) - Format a time string
*
*Purpose:
*	Place characters into the user's output buffer expanding time
*	format directives as described in the user's control string.
*	Use the supplied 'tm' structure for time data when expanding
*	the format directives.
*	[ANSI]
*
*Entry:
*	char *string = pointer to output string
*	size_t maxsize = max length of string
*	const char *format = format control string
*	const struct tm *timeptr = pointer to tb data structure
*
*Exit:
*	!0 = If the total number of resulting characters including the
*	terminating null is not more than 'maxsize', then return the
*	number of chars placed in the 'string' array (not including the
*	null terminator).
*
*	0 = Otherwise, return 0 and the contents of the string are
*	indeterminate.
*
*Exceptions:
*
*******************************************************************************/

size_t _CRTAPI1 strftime (
	char *string,
	size_t maxsize,
	const char *format,
	const struct tm *timeptr
	)
{

	size_t left;			/* space left in output string */


	/* Copy maxsize into temp. */
	left = maxsize;

	_mlock (_LC_TIME_LOCK);

	/* Copy the input string to the output string expanding the format
	designations appropriately.  Stop copying when one of the following
	is true: (1) we hit a null char in the input stream, or (2) there's
	no room left in the output stream. */

	while (left > 0)
	{
		switch(*format)
		{

		case('\0'):

			/* end of format input string */
			goto done;

		case('%'):

			/* Format directive.  Take appropriate action based
			on format control character. */

			format++;			/* skip over % char */

#ifdef _INTL
			/* process flags */
			_alternate_form = 0;
			if (*format == '#')
			{
				_alternate_form = 1;
				format++;
			}
#endif
			_expandtime(*format, timeptr, &string, &left);
			format++;			/* skip format char */
			break;


		default:

			/* store character, bump pointers, dec the char count */
#ifdef _INTL
			if (isleadbyte((int)(*format)) && left > 1)
			{
				*string++ = *format++;
				left--;
			}
#endif
			*string++ = *format++;
			left--;
			break;
		}
	}


	/* All done.  See if we terminated because we hit a null char or because
	we ran out of space */

	done:

	_munlock (_LC_TIME_LOCK);

	if (left > 0) {

		/* Store a terminating null char and return the number of chars
		we stored in the output string. */

		*string = '\0';
		return(maxsize-left);
	}

	else
		return(0);

}


/***
*_expandtime() - Expand the conversion specifier
*
*Purpose:
*	Expand the given strftime conversion specifier using the time struct
*	and store it in the supplied buffer.
*
*	The expansion is locale-dependent.
*
*	*** For internal use with strftime() only ***
*
*Entry:
*	char specifier = strftime conversion specifier to expand
*	const struct tm *tmptr = pointer to time/date structure
*	char **string = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _expandtime (
	char specifier,
	const struct tm *timeptr,
	char **string,
	size_t *left
	)
{
	struct _lc_time_data *lc_time;	/* lc_time data pointer */
	unsigned temp;			/* temps */
	int wdaytemp;

	/* Get a copy of the current _lc_time_data pointer.  This
	should prevent the necessity of locking/unlocking in mthread
	code (if we can guarantee that the various _lc_time data
	structures are always in the same segment). */
	/* _INTL: contents of time strings structure can now change,
	so thus we do use locking */

	lc_time = _lc_time_curr;

	switch(specifier) {		/* switch on specifier */

		case('a'):		/* abbreviated weekday name */
			_store_str((char *)(lc_time->wday_abbr[timeptr->tm_wday]),
				 string, left);
			break;

		case('A'):		/* full weekday name */
			_store_str((char *)(lc_time->wday[timeptr->tm_wday]),
				 string, left);
			break;

		case('b'):		/* abbreviated month name */
			_store_str((char *)(lc_time->month_abbr[timeptr->tm_mon]),
				 string, left);
			break;

		case('B'):		/* full month name */
			_store_str((char *)(lc_time->month[timeptr->tm_mon]),
				 string, left);
			break;

		case('c'):		/* date and time display */
#ifdef _INTL
			if (_alternate_form)
			{
				_alternate_form = FALSE;
				_store_winword(lc_time->ww_ldatefmt, timeptr, string, left);
				if (*left == 0)
					return;
				*(*string)++=' ';
				(*left)--;
				_store_winword(lc_time->ww_timefmt, timeptr, string, left);
			}
			else {
				_store_winword(lc_time->ww_sdatefmt, timeptr, string, left);
				if (*left == 0)
					return;
				*(*string)++=' ';
				(*left)--;
				_store_winword(lc_time->ww_timefmt, timeptr, string, left);
			}
#else
			if ((_DATE_LENGTH+_TIME_LENGTH+1) < *left)
			{
				_store_date(timeptr, string, left);
				*(*string)++=' ';
				(*left)--;
				_store_time(timeptr, string, left);
			}
			else
				*left=0;
#endif /* _INTL */
			break;

		case('d'):		/* mday in decimal (01-31) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_mday, 2, string, left);
			break;

		case('H'):		/* 24-hour decimal (00-23) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_hour, 2, string, left);
			break;

		case('I'):		/* 12-hour decimal (01-12) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			if (!(temp = timeptr->tm_hour%12))
				temp=12;
			_store_num(temp, 2, string, left);
			break;

		case('j'):		/* yday in decimal (001-366) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_yday+1, 3, string, left);
			break;

		case('m'):		/* month in decimal (01-12) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_mon+1, 2, string, left);
			break;

		case('M'):		/* minute in decimal (00-59) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_min, 2, string, left);
			break;

		case('p'):		/* AM/PM designation */
			if (timeptr->tm_hour <= 11)
			    _store_str((char *)(lc_time->ampm[0]), string, left);
			else
			    _store_str((char *)(lc_time->ampm[1]), string, left);
			break;

		case('S'):		/* secs in decimal (00-59) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_sec, 2, string, left);
			break;

		case('U'):		/* sunday week number (00-53) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			wdaytemp = timeptr->tm_wday;
			goto weeknum;	/* join common code */

		case('w'):		/* week day in decimal (0-6) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			_store_num(timeptr->tm_wday, 1, string, left);
			break;

		case('W'):		/* monday week number (00-53) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			if (timeptr->tm_wday == 0)  /* monday based */
				wdaytemp = 6;
			else
				wdaytemp = timeptr->tm_wday-1;
		weeknum:
			if (timeptr->tm_yday < wdaytemp)
				temp=0;
			else {
				temp = timeptr->tm_yday/7;
				if ((timeptr->tm_yday%7) >= wdaytemp)
					temp++;
				}
			_store_num(temp, 2, string, left);
			break;

		case('x'):		/* date display */
#ifdef _INTL
			if (_alternate_form)
			{
				_alternate_form = FALSE;
				_store_winword(lc_time->ww_ldatefmt, timeptr, string, left);
			}
			else
			{
				_store_winword(lc_time->ww_sdatefmt, timeptr, string, left);
			}
#else
			_store_date(timeptr, string, left);
#endif
			break;

		case('X'):		/* time display */
#ifdef _INTL
			_alternate_form = FALSE;
			_store_winword(lc_time->ww_timefmt, timeptr, string, left);
#else
			_store_time(timeptr, string, left);
#endif
			break;

		case('y'):		/* year w/o century (00-99) */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			temp = timeptr->tm_year%100;
			_store_num(temp, 2, string, left);
			break;

		case('Y'):		/* year w/ century */
#ifdef _INTL
			_no_lead_zeros = _alternate_form;
#endif
			temp = (((timeptr->tm_year/100)+19)*100) +
			       (timeptr->tm_year%100);
			_store_num(temp, 4, string, left);
			break;

		case('Z'):		/* time zone name, if any */
		case('z'):		/* time zone name, if any */
#ifdef _POSIX_
			tzset();	/* Set time zone info */
			_store_str(tzname[((timeptr->tm_isdst)?1:0)],
				 string, left);
#else
			__tzset();	/* Set time zone info */
			_store_str(_tzname[((timeptr->tm_isdst)?1:0)],
				 string, left);
#endif
			break;

		case('%'):		/* percent sign */
			*(*string)++ = '%';
			(*left)--;
			break;

		default:		/* unknown format directive */
			/* ignore the directive and continue */
			/* [ANSI: Behavior is undefined.]    */
			break;

	}	/* end % switch */
}


/***
*_store_str() - Copy a time string
*
*Purpose:
*	Copy the supplied time string into the output string until
*	(1) we hit a null in the time string, or (2) the given count
*	goes to 0.
*
*	*** For internal use with strftime() only ***
*
*Entry:
*	char *in = pointer to null terminated time string
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _store_str (
	char *in,
	char **out,
	size_t *count
	)
{

while ((*count != 0) && (*in != '\0')) {
	*(*out)++ = *in++;
	(*count)--;
	}
}


/***
*_store_num() - Convert a number to ascii and copy it
*
*Purpose:
*	Convert the supplied number to decimal and store
*	in the output buffer.  Update both the count and
*	buffer pointers.
*
*	*** For internal use with strftime() only ***
*
*Entry:
*	int num = pointer to integer value
*	int digits = # of ascii digits to put into string
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _store_num (
	int num,
	int digits,
	char **out,
	size_t *count
	)
{
int temp=0;

#ifdef _INTL
	if (_no_lead_zeros) {
		_store_number (num, out, count);
		return;
	}
#endif

if ((size_t)digits < *count)  {
	for (digits--; (digits+1); digits--) {
		(*out)[digits] = (char)('0' + num % 10);
		num /= 10;
		temp++;
		}
	*out += temp;
	*count -= temp;
	}
else
	*count = 0;
}


#ifndef _INTL

/***
*_store_time() - Store time in appropriate format
*
*Purpose:
*	Format the time in the current locale's format
*	and store it in the supplied buffer.
*
*	[*** Currently, this routine assumes standard "C"
*	locale.  When full localization support is introduced,
*	this functionality will have to be expanded.]
*
*	Standard "C" locale time format:
*
*		hh:mm:ss
*
*	*** For internal use with strftime() only ***
*
*Entry:
*
*	const struct tm *tmptr = pointer to time/date structure
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _store_time (
	const struct tm *tmptr,
	char **out,
	size_t *count
	)
{

if (_TIME_LENGTH < *count) {

	_store_num(tmptr->tm_hour, 2, out, count);
	*(*out)++ = ':';
	_store_num(tmptr->tm_min, 2, out, count);
	*(*out)++ = ':';
	_store_num(tmptr->tm_sec, 2, out, count);

	*count -= 2; /* count the colons */
}

else
	*count = 0;

}


/***
*_store_date() - Store date in appropriate format
*
*Purpose:
*	Format the date in the current locale's format
*	and store it in the supplied buffer.
*
*	[*** Currently, this routine assumes standard "C"
*	locale.  When full localization support is introduced,
*	this functionality will have to be expanded.]
*
*	Standard "C" locale date format:
*
*		mm/dd/yy
*
*	*** For internal use with strftime() only ***
*
*Entry:
*
*	const struct tm *tmptr = pointer to time/date structure
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _store_date (
	const struct tm *tmptr,
	char **out,
	size_t *count
	)
{

if (_DATE_LENGTH < *count)  {

	_store_num(tmptr->tm_mon+1, 2, out, count);
	*(*out)++ = '/';
	_store_num(tmptr->tm_mday, 2, out, count);
	*(*out)++ = '/';
	_store_num(tmptr->tm_year%100, 2, out, count);

	*count -= 2; /* count the backslashes */
	}

else
	*count = 0;

}

#else /* _INTL */

/***
*_store_number() - Convert positive integer to string
*
*Purpose:
*	Convert positive integer to a string and store it in the output
*	buffer with no null terminator.  Update both the count and
*	buffer pointers.
*
*	Differs from _store_num in that the precision is not specified,
*	and no leading zeros are added.
*
*	*** For internal use with strftime() only ***
*
*	Created from xtoi.c
*
*Entry:
*	int num = pointer to integer value
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*
*Exceptions:
*	The buffer is filled until it is out of space.  There is no
*	way to tell beforehand (as in _store_num) if the buffer will
*	run out of space.
*
*******************************************************************************/

static void _CRTAPI3 _store_number (
	int num,
	char **out,
	size_t *count
	)
{
	char *p;		/* pointer to traverse string */
	char *firstdig; 	/* pointer to first digit */
	char temp;		/* temp char */

	p = *out;

	/* put the digits in the buffer in reverse order */
	if (*count > 1)
	{
		do {
			*p++ = (char) (num % 10 + '0');
			(*count)--;
		} while ((num/=10) > 0 && *count > 1);
	}

	firstdig = *out;		/* firstdig points to first digit */
	*out = p;			/* return pointer to next space */
	p--;				/* p points to last digit */

	/* reverse the buffer */
	do {
		temp = *p;
		*p-- = *firstdig;
		*firstdig++ = temp;	/* swap *p and *firstdig */
	} while (firstdig < p);		/* repeat until halfway */
}


/***
*_store_winword() - Store date/time in WinWord format
*
*Purpose:
*	Format the date/time in the supplied WinWord format
*	and store it in the supplied buffer.
*
*	*** For internal use with strftime() only ***
*
*	The WinWord format is converted token by token to
*	strftime conversion specifiers.  _expandtime is then called to
*	do the work.  The WinWord format is expected to be a
*	character string (not wide-chars).
*
*Entry:
*	const char **format = address of pointer to WinWord format
*	const struct tm *tmptr = pointer to time/date structure
*	char **out = address of pointer to output string
*	size_t *count = address of char count (space in output area)
*
*Exit:
*	none
*
*Exceptions:
*
*******************************************************************************/

static void _CRTAPI3 _store_winword (
	const char *format,
	const struct tm *tmptr,
	char **out,
	size_t *count
	)
{
	char specifier;
	const char *p;
	int repeat;

	while (*format && *count != 0)
	{
		specifier = 0;		/* indicate no match */
		_no_lead_zeros = 0;	/* default is print leading zeros */

		/* count the number of repetitions of this character */
		for (repeat=0, p=format; *p++ == *format; repeat++);
		/* leave p pointing to the beginning of the next token */
		p--;

		/* switch on ascii format character and determine specifier */
		switch (*format)
		{
			case 'M':
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'm'; break;
					case 3: specifier = 'b'; break;
					case 4: specifier = 'B'; break;
				} break;
			case 'd':
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'd'; break;
					case 3: specifier = 'a'; break;
					case 4: specifier = 'A'; break;
				} break;
			case 'y':
				switch (repeat)
				{
					case 2: specifier = 'y'; break;
					case 4: specifier = 'Y'; break;
				} break;
			case 'h':
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'I'; break;
				} break;
			case 'H':
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'H'; break;
				} break;
			case 'm':
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'M'; break;
				} break;
			case 's': /* for compatibility; not strictly WinWord */
				switch (repeat)
				{
					case 1: _no_lead_zeros = 1; /* fall thru */
					case 2: specifier = 'S'; break;
				} break;
			case 'A':
			case 'a':
				if (!_stricmp(format, "am/pm"))
					p = format + 5;
				else if (!_stricmp(format, "a/p"))
					p = format + 3;
				specifier = 'p';
				break;
			case '\'': /* literal string */
				if (repeat & 1) /* odd number */
				{
					format += repeat;
					while (*format && *count != 0)
					{
						if (*format == '\'')
						{
							format++;
							break;
						}
						if (isleadbyte((int)*format))
						{
							*(*out)++ = *format++;
							(*count)--;
						}
						*(*out)++ = *format++;
						(*count)--;
					}
				}
				else { /* even number */
					format += repeat;
				}
				continue;

			default: /* non-control char, print it */
				break;
		} /* switch */

		/* expand specifier, or copy literal if specifier not found */
		if (specifier)
		{
			_expandtime(specifier, tmptr, out, count);
			format = p; /* bump format up to the next token */
		} else {
			if (isleadbyte((int)*format))
			{
				*(*out)++ = *format++;
				(*count)--;
			}
			*(*out)++ = *format++;
			(*count)--;
		}
	} /* while */
}

#endif /* _INTL */