xref: /csrg-svn/usr.bin/f77/libU77/ctime_.c (revision 2512)
1*2512Sdlw /*
2*2512Sdlw char id_ctime[] = "@(#)ctime_.c	1.1";
3*2512Sdlw  *
4*2512Sdlw  * convert system time to ascii string
5*2512Sdlw  *
6*2512Sdlw  * calling sequence:
7*2512Sdlw  *	character*24 string, ctime
8*2512Sdlw  *	integer clock
9*2512Sdlw  *	string = ctime (clock)
10*2512Sdlw  * where:
11*2512Sdlw  *	string will receive the ascii equivalent of the integer clock time.
12*2512Sdlw  */
13*2512Sdlw 
14*2512Sdlw char *ctime();
15*2512Sdlw 
16*2512Sdlw ctime_(str, len, clock)
17*2512Sdlw char *str; long len, *clock;
18*2512Sdlw {
19*2512Sdlw 	char *s = ctime(clock);
20*2512Sdlw 	s[24] = '\0';
21*2512Sdlw 	b_char(s, str, len);
22*2512Sdlw }
23