xref: /original-bsd/usr.bin/f77/libU77/fdate_.c (revision 6c57d260)
1 /*
2 char id_fdate[] = "@(#)fdate_.c	1.1";
3  *
4  * Return date and time in an ASCII string.
5  *
6  * calling sequence:
7  *	character*24 string
8  * 	call fdate(string)
9  * where:
10  *	the 24 character string will be filled with the date & time in
11  *	ascii form as described under ctime(3).
12  *	No 'newline' or NULL will be included.
13  */
14 
15 fdate_(s, strlen)
16 char *s; long strlen;
17 {
18 	char *ctime(), *c;
19 	long time(), t;
20 
21 	t = time(0);
22 	c = ctime(&t);
23 	c[24] = '\0';
24 	b_char(c, s, strlen);
25 }
26