xref: /csrg-svn/usr.bin/f77/libU77/ctime_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42512Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623007Skre  */
723007Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)ctime_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223007Skre /*
132512Sdlw  * convert system time to ascii string
142512Sdlw  *
152512Sdlw  * calling sequence:
162512Sdlw  *	character*24 string, ctime
172512Sdlw  *	integer clock
182512Sdlw  *	string = ctime (clock)
192512Sdlw  * where:
202512Sdlw  *	string will receive the ascii equivalent of the integer clock time.
212512Sdlw  */
222512Sdlw 
232512Sdlw char *ctime();
242512Sdlw 
ctime_(str,len,clock)252512Sdlw ctime_(str, len, clock)
262512Sdlw char *str; long len, *clock;
272512Sdlw {
282512Sdlw 	char *s = ctime(clock);
292512Sdlw 	s[24] = '\0';
302512Sdlw 	b_char(s, str, len);
312512Sdlw }
32