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

/*
char id_ltime[] = "@(#)ltime_.c	1.1";
 *
 * return broken down time
 *
 * calling sequence:
 *	integer time, t[9]
 *	call ltime(time, t)
 * where:
 *	time is a  system time. (see time(3F))
 *	t will receive the broken down time corrected for local timezone.
 *	(see ctime(3))
 */

int *localtime();

ltime_(clock, t)
long *clock; long *t;
{
	int i;
	int *l;

	l = localtime(clock);
	for (i=0; i<9; i++)
		*t++ = *l++;
}
Commit	Line	Data
110c9d10 DW	1	/*
	2	char id_ltime[] = "@(#)ltime_.c 1.1";
	3	*
	4	* return broken down time
	5	*
	6	* calling sequence:
	7	* integer time, t[9]
	8	* call ltime(time, t)
	9	* where:
	10	* time is a system time. (see time(3F))
	11	* t will receive the broken down time corrected for local timezone.
	12	* (see ctime(3))
	13	*/
	14
	15	int *localtime();
	16
	17	ltime_(clock, t)
	18	long clock; long t;
	19	{
	20	int i;
	21	int *l;
	22
	23	l = localtime(clock);
	24	for (i=0; i<9; i++)
	25	t++ = l++;
	26	}