1*40865Sbostic /*- 2*40865Sbostic * Copyright (c) 1979 The Regents of the University of California. 3*40865Sbostic * All rights reserved. 4*40865Sbostic * 5*40865Sbostic * %sccs.include.redist.c% 6*40865Sbostic */ 71645Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)DATE.c 1.2 (Berkeley) 04/09/90"; 10*40865Sbostic #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 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