xref: /csrg-svn/usr.bin/f77/libU77/ltime_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42519Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623038Skre  */
723038Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)ltime_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223038Skre /*
132519Sdlw  * return broken down time
142519Sdlw  *
152519Sdlw  * calling sequence:
162519Sdlw  *	integer time, t[9]
172519Sdlw  *	call ltime(time, t)
182519Sdlw  * where:
192519Sdlw  *	time is a  system time. (see time(3F))
202519Sdlw  *	t will receive the broken down time corrected for local timezone.
212519Sdlw  *	(see ctime(3))
222519Sdlw  */
232519Sdlw 
242519Sdlw int *localtime();
252519Sdlw 
ltime_(clock,t)262519Sdlw ltime_(clock, t)
272519Sdlw long *clock; long *t;
282519Sdlw {
292519Sdlw 	int i;
302519Sdlw 	int *l;
312519Sdlw 
322519Sdlw 	l = localtime(clock);
332519Sdlw 	for (i=0; i<9; i++)
342519Sdlw 		*t++ = *l++;
352519Sdlw }
36