1 /*-
2 * Copyright (c) 1979, 1993
3 * The Regents of the University of California. All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 */
7
8 #ifndef lint
9 static char sccsid[] = "@(#)DATE.c 8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11
12 char _pd_date[] = {
13 8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
14 };
15
16 extern char *ctime();
17
DATE(alfap)18 DATE(alfap)
19
20 register char *alfap;
21 {
22 register char *ap, *cp, *dp;
23 long a;
24
25 time(&a);
26 cp = ctime(&a);
27 ap = alfap;
28 for (dp = _pd_date; *dp; *ap++ = cp[*dp++]);
29 }
30