/****************************************************************************
** PROJECT  **                            DATE                             **
*****************************************************************************
** FUNCTION ** INSERTS THE CURRENT DATE INTO THE BUFFER AT THE CURSOR      **
*****************************************************************************
**  AUTHOR  ** WARREN D HUMPHREYS                                          **
*****************************************************************************
**   DATE   ** THURSDAY 19TH SEPTEMBER 1991                                **
*****************************************************************************
** COMMENTS ** THE LONG / SHORT OPTION DICTATES WHETHER THE DATE IS        **
**          ** INSERTED IN THE FORM "Thursday 19th September 1991" OR THE  **
**          ** MUCH SHORTER "19/09/91".                                    **
*****************************************************************************
**                          MODIFICATION HISTORY                           **
*****************************************************************************
**   DATE   ** WHO **                     CHANGED WHAT                     **
*****************************************************************************
**          **     **                                                      **
****************************************************************************/

/****************************************************************************
**                           FUNCTION PROTOTYPES                           **
****************************************************************************/

void	InsertDate(void);

/****************************************************************************
**                            GLOBAL VARIABLES                             **
****************************************************************************/

/****************************************************************************
**                            ACTUAL FUNCTIONS                             **
****************************************************************************/

void	InsertDate(void)
{
	int			Day,
					Month,
					Year;

	string	MonthString,
					Reply,
					Suffix,
					WeekDay;

	get_parm(0,Reply,"Long or short format [L|S] : ",1,"S");

	date(Year,Month,Day,MonthString,WeekDay);
	if ((Day>=11) && (Day<=19))
		Suffix="th";
	else
	{
		switch (Day % 10)
		{
    	case (1)  : Suffix="st";
			case (2)  : Suffix="nd";
			case (3)  : Suffix="rd";
			default   : Suffix="th";
		}
	}

	if (upper(Reply)=="L")
	{
		insert("%s %d%s %s %d",WeekDay,Day,Suffix,MonthString,Year);
	}
	else
		if (upper(Reply)=="S")
		 insert("%02d/%02d/%02d",Day,Month,Year % 100);
}