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 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