xref: /original-bsd/usr.bin/f77/libU77/ctime_.c (revision bafc759a)
1 /*-
2  * Copyright (c) 1980 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.proprietary.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)ctime_.c	5.2 (Berkeley) 04/12/91";
10 #endif /* not lint */
11 
12 /*
13  * convert system time to ascii string
14  *
15  * calling sequence:
16  *	character*24 string, ctime
17  *	integer clock
18  *	string = ctime (clock)
19  * where:
20  *	string will receive the ascii equivalent of the integer clock time.
21  */
22 
23 char *ctime();
24 
25 ctime_(str, len, clock)
26 char *str; long len, *clock;
27 {
28 	char *s = ctime(clock);
29 	s[24] = '\0';
30 	b_char(s, str, len);
31 }
32