xref: /csrg-svn/usr.bin/f77/libU77/ltime_.c (revision 23038)
12519Sdlw /*
2*23038Skre  * Copyright (c) 1980 Regents of the University of California.
3*23038Skre  * All rights reserved.  The Berkeley software License Agreement
4*23038Skre  * specifies the terms and conditions for redistribution.
52519Sdlw  *
6*23038Skre  *	@(#)ltime_.c	5.1	06/07/85
7*23038Skre  */
8*23038Skre 
9*23038Skre /*
102519Sdlw  * return broken down time
112519Sdlw  *
122519Sdlw  * calling sequence:
132519Sdlw  *	integer time, t[9]
142519Sdlw  *	call ltime(time, t)
152519Sdlw  * where:
162519Sdlw  *	time is a  system time. (see time(3F))
172519Sdlw  *	t will receive the broken down time corrected for local timezone.
182519Sdlw  *	(see ctime(3))
192519Sdlw  */
202519Sdlw 
212519Sdlw int *localtime();
222519Sdlw 
232519Sdlw ltime_(clock, t)
242519Sdlw long *clock; long *t;
252519Sdlw {
262519Sdlw 	int i;
272519Sdlw 	int *l;
282519Sdlw 
292519Sdlw 	l = localtime(clock);
302519Sdlw 	for (i=0; i<9; i++)
312519Sdlw 		*t++ = *l++;
322519Sdlw }
33