/* *  DATE.C - date internal command. * * *  History: * *    08 Jul 1998 (John P. Price) *        started. * *    20 Jul 1998 (John P. Price) *        corrected number of days for December from 30 to 31. *        (Thanx to Steffen Kaiser for bug report) * *    27-Jul-1998 (John P Price <linux-guru@gcfl.net>) *        added config.h include * *    29-Jul-1998 (Rob Lake) *        fixed stand-alone mode. *        Added Pacific C compatible dos_getdate functions * *    09-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>) *        Added locale support * *    23-Jan-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>) *        Unicode and redirection safe! * *    04-Feb-1999 (Eric Kohl <ekohl@abo.rhein-zeitung.de>) *        Fixed date input bug. */#include "config.h"#ifdef INCLUDE_CMD_DATE#include "cmd.h"static WORD awMonths[2][13] ={	{0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31},	{0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}};static VOIDPrintDateString (VOID){	switch (nDateFormat)	{		case 0: /* mmddyy */		default:			ConOutPrintf (_T("\nEnter new date (mm%cdd%cyyyy): "),					cDateSeparator, cDateSeparator);			break;		case 1: /* ddmmyy */			ConOutPrintf (_T("\nEnter new date (dd%cmm%cyyyy): "),					  cDateSeparator, cDateSeparator);			break;		case 2: /* yymmdd */			ConOutPrintf (_T("\nEnter new date (yyyy%cmm%cdd): "),					  cDateSeparator, cDateSeparator);			break;	}}static BOOLReadNumber (LPTSTR *s, LPWORD lpwValue){	if (_istdigit (**s))	{		while (_istdigit (**s))		{			*lpwValue = *lpwValue * 10 + **s - _T('0');			(*s)++;		}		return TRUE;	}	return FALSE;}static BOOLReadSeparator (LPTSTR *s){	if (**s == _T('/') || **s == _T('-') || **s == cDateSeparator)	{		(*s)++;		return TRUE;	}	return FALSE;}static BOOLParseDate (LPTSTR s){	SYSTEMTIME d;	unsigned char leap;	LPTSTR p = s;	if (!*s)		return TRUE;	GetLocalTime (&d);	d.wYear = 0;	d.wDay = 0;	d.wMonth = 0;	switch (nDateFormat)	{		case 0: /* mmddyy */		default:			if (!ReadNumber (&p, &d.wMonth))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wDay))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wYear))				return FALSE;			break;		case 1: /* ddmmyy */			if (!ReadNumber (&p, &d.wDay))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wMonth))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wYear))				return FALSE;			break;		case 2: /* yymmdd */			if (!ReadNumber (&p, &d.wYear))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wMonth))				return FALSE;			if (!ReadSeparator (&p))				return FALSE;			if (!ReadNumber (&p, &d.wDay))				return FALSE;			break;	}    /* if only entered two digits: */	/*   assume 2000's if value less than 80 */	/*   assume 1900's if value greater or equal 80 */	if (d.wYear <= 99)	{		if (d.wYear >= 80)			d.wYear = 1900 + d.wYear;		else			d.wYear = 2000 + d.wYear;	}	leap = (!(d.wYear % 4) && (d.wYear % 100)) || !(d.wYear % 400);	if ((d.wMonth >= 1 && d.wMonth <= 12) &&		(d.wDay >= 1 && d.wDay <= awMonths[leap][d.wMonth]) &&		(d.wYear >= 1980 && d.wYear <= 2099))	{		SetLocalTime (&d);		return TRUE;	}	return FALSE;}INT cmd_date (LPTSTR cmd, LPTSTR param){	LPTSTR *arg;	INT    argc;	INT    i;	BOOL   bPrompt = TRUE;	INT    nDateString = -1;	if (!_tcsncmp (param, _T("/?"), 2))	{		ConOutPuts (_T("Displays or sets the date.\n\n"				   _T("DATE [/T][date]\n\n")				   _T("  /T    display only\n\n")				   _T("Type DATE without parameters to display the current date setting and\n")				   _T("a prompt for a new one.  Press ENTER to keep the same date.")));		return 0;	}	/* build parameter array */	arg = split (param, &argc);	/* check for options */	for (i = 0; i < argc; i++)	{		if (_tcsicmp (arg[i], _T("/t")) == 0)			bPrompt = FALSE;		if ((*arg[i] != _T('/')) && (nDateString == -1))			nDateString = i;	}	if (nDateString == -1)		PrintDate ();	if (!bPrompt)	{		freep (arg);		return 0;	}	if (nDateString == -1)	{		while (TRUE)  /* forever loop */		{			TCHAR s[40];			PrintDateString ();			ConInString (s, 40);#ifdef _DEBUG			DebugPrintf (_T("\'%s\'\n"), s);#endif			while (*s && s[_tcslen (s) - 1] < ' ')				s[_tcslen (s) - 1] = '\0';			if (ParseDate (s))			{				freep (arg);				return 0;			}			ConErrPuts (_T("Invalid date."));		}	}	else	{		if (ParseDate (arg[nDateString]))		{			freep (arg);			return 0;		}		ConErrPuts (_T("Invalid date."));	}	freep (arg);	return 0;}#endif