1*1645Smckusick /* Copyright (c) 1979 Regents of the University of California */ 2*1645Smckusick 3*1645Smckusick static char sccsid[] = "@(#)DATE.c 1.1 10/30/80"; 4*1645Smckusick 5*1645Smckusick char _pd_date[] = { 6*1645Smckusick 8, 9, 10, 4, 5, 6, 10, 22, 23, 10, 0 7*1645Smckusick }; 8*1645Smckusick 9*1645Smckusick extern char *ctime(); 10*1645Smckusick 11*1645Smckusick DATE(alfap) 12*1645Smckusick 13*1645Smckusick register char *alfap; 14*1645Smckusick { 15*1645Smckusick register char *ap, *cp, *dp; 16*1645Smckusick long a; 17*1645Smckusick 18*1645Smckusick time(&a); 19*1645Smckusick cp = ctime(&a); 20*1645Smckusick ap = alfap; 21*1645Smckusick for (dp = _pd_date; *dp; *ap++ = cp[*dp++]); 22*1645Smckusick } 23