xref: /original-bsd/usr.bin/f77/libU77/ctime_.c (revision 53787e02)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  *
6  *	@(#)ctime_.c	5.1	06/07/85
7  */
8 
9 /*
10  * convert system time to ascii string
11  *
12  * calling sequence:
13  *	character*24 string, ctime
14  *	integer clock
15  *	string = ctime (clock)
16  * where:
17  *	string will receive the ascii equivalent of the integer clock time.
18  */
19 
20 char *ctime();
21 
22 ctime_(str, len, clock)
23 char *str; long len, *clock;
24 {
25 	char *s = ctime(clock);
26 	s[24] = '\0';
27 	b_char(s, str, len);
28 }
29