140865Sbostic /*-
2*62092Sbostic * Copyright (c) 1979, 1993
3*62092Sbostic * The Regents of the University of California. All rights reserved.
440865Sbostic *
540865Sbostic * %sccs.include.redist.c%
640865Sbostic */
71645Smckusick
840865Sbostic #ifndef lint
9*62092Sbostic static char sccsid[] = "@(#)DATE.c 8.1 (Berkeley) 06/06/93";
1040865Sbostic #endif /* not lint */
111645Smckusick
121645Smckusick char _pd_date[] = {
131645Smckusick 8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0
141645Smckusick };
151645Smckusick
161645Smckusick extern char *ctime();
171645Smckusick
DATE(alfap)181645Smckusick DATE(alfap)
191645Smckusick
201645Smckusick register char *alfap;
211645Smckusick {
221645Smckusick register char *ap, *cp, *dp;
231645Smckusick long a;
241645Smckusick
251645Smckusick time(&a);
261645Smckusick cp = ctime(&a);
271645Smckusick ap = alfap;
281645Smckusick for (dp = _pd_date; *dp; *ap++ = cp[*dp++]);
291645Smckusick }
30