[unix-history] / usr / src / usr.bin / f77 / libU77 / time_.c

/*
char id_time[] = "@(#)time_.c	1.1";
 *
 * return the current time as an integer
 *
 * calling sequence:
 *	integer time
 *	i = time()
 * where:
 *	i will receive the current GMT in seconds.
 */

long time();

long time_()
{
	return(time(0));
}
Commit	Line	Data
a2554909 DW	1	/*
	2	char id_time[] = "@(#)time_.c 1.1";
	3	*
	4	* return the current time as an integer
	5	*
	6	* calling sequence:
	7	* integer time
	8	* i = time()
	9	* where:
	10	* i will receive the current GMT in seconds.
	11	*/
	12
	13	long time();
	14
	15	long time_()
	16	{
	17	return(time(0));
	18	}