/***
*asctime.c - convert date/time structure to ASCII string
*
*	Copyright (c) 1985-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
*	Contains asctime() - convert a date/time structure to ASCII string.
*
*Revision History:
*	03-??-84  RLB	Module created
*	05-??-84  DCW	Removed use of sprintf, to avoid loading stdio
*			functions
*	04-13-87  JCR	Added "const" to declarations
*	05-21-87  SKS	Declare the static buffer and helper routines as NEAR
*			Replace store_year() with in-line code
*
*	11-24-87  WAJ	allocated a static buffer for each thread.
*	12-11-87  JCR	Added "_LOAD_DS" to declaration
*	05-24-88  PHG	Merged DLL and normal versions; Removed initializers to
*			save memory
*	06-06-89  JCR	386 mthread support
*	03-20-90  GJF	Replaced _LOAD_DS with _CALLTYPE1, added #include
*			<cruntime.h>, removed #include <register.h>, fixed
*			the copyright and removed some leftover 16-bit support.
*			Also, cleaned up the formatting a bit.
*	08-16-90  SBM	Compiles cleanly with -W3
*	10-04-90  GJF	New-style function declarators.
*	07-17-91  GJF	Multi-thread support for Win32 [_WIN32_].
*	02-17-93  GJF	Changed for new _getptd().
*
*******************************************************************************/

#include <cruntime.h>
#include <time.h>
#include <internal.h>
#include <os2dll.h>
#ifdef	MTHREAD
#include <malloc.h>
#include <stddef.h>
#endif

#define _ASCBUFSIZE   26
static char buf[_ASCBUFSIZE];

/*
** This prototype must be local to this file since the procedure is static
*/

static char * _CRTAPI3 store_dt(char *, int);

static char * _CRTAPI3 store_dt (
	REG1 char *p,
	REG2 int val
	)
{
	*p++ = (char)('0' + val / 10);
	*p++ = (char)('0' + val % 10);
	return(p);
}


/***
*char *asctime(time) - convert a structure time to ascii string
*
*Purpose:
*	Converts a time stored in a struct tm to a charcater string.
*	The string is always exactly 26 characters of the form
*		Tue May 01 02:34:55 1984\n\0
*
*Entry:
*	struct tm *time - ptr to time structure
*
*Exit:
*	returns pointer to static string with time string.
*
*Exceptions:
*
*******************************************************************************/

char * _CRTAPI1 asctime (
	REG1 const struct tm *tb
	)
{
#ifdef	MTHREAD

#ifdef	_CRUISER_

	struct _tiddata * tdata;	/* pointer to tid's data */

#else	/* ndef _CRUISER_ */

#ifdef	_WIN32_

	_ptiddata ptd = _getptd();

#else	/* ndef _WIN32_ */

#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!

#endif	/* _WIN32_ */

#endif	/* _CRUISER_ */

	REG2 char *p;			/* will point to asctime buffer */
	char *retval;			/* holds retval pointer */

#else

	REG2 char *p = buf;

#endif

	int day, mon;
	int i;

#ifdef MTHREAD

#ifdef	_CRUISER_

	/* Use per thread buffer area (malloc space, if necessary) */
	tdata = _gettidtab();		/* get tid's data address */
	if (tdata->_asctimebuf == NULL) {
		if ( (tdata->_asctimebuf = malloc(_ASCBUFSIZE)) == NULL)
			p = buf;	/* error: use static buffer */
		else
			p = tdata->_asctimebuf;
	}
	else
		p = tdata->_asctimebuf;

#else	/* ndef _CRUISER_ */

#ifdef	_WIN32_

	/* Use per thread buffer area (malloc space, if necessary) */

	if ( (ptd->_asctimebuf != NULL) || ((ptd->_asctimebuf =
	    malloc(_ASCBUFSIZE)) != NULL) )
		p = ptd->_asctimebuf;
	else
		p = buf;	/* error: use static buffer */

#else	/* ndef _WIN32_ */

#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!

#endif	/* _WIN32_ */

#endif	/* _CRUISER_ */

	retval = p;			/* save return value for later */

#endif

	/* copy day and month names into the buffer */

	day = tb->tm_wday * 3;		/* index to correct day string */
	mon = tb->tm_mon * 3;		/* index to correct month string */
	for (i=0; i < 3; i++,p++) {
		*p = *(__dnames + day + i);
		*(p+4) = *(__mnames + mon + i);
	}

	*p = ' ';			/* blank between day and month */

	p += 4;

	*p++ = ' ';
	p = store_dt(p, tb->tm_mday);	/* day of the month (1-31) */
	*p++ = ' ';
	p = store_dt(p, tb->tm_hour);	/* hours (0-23) */
	*p++ = ':';
	p = store_dt(p, tb->tm_min);	/* minutes (0-59) */
	*p++ = ':';
	p = store_dt(p, tb->tm_sec);	/* seconds (0-59) */
	*p++ = ' ';
	p = store_dt(p, 19 + (tb->tm_year/100)); /* year (after 1900) */
	p = store_dt(p, tb->tm_year%100);
	*p++ = '\n';
	*p = '\0';

#ifdef _POSIX_
	/* Date should be padded with spaces instead of zeroes. */

	if ('0' == buf[8])
		buf[8] = ' ';
#endif

#ifdef MTHREAD
	return (retval);
#else
	return ((char *) buf);
#endif
}