140865Sbostic /*- 2*62096Sbostic * Copyright (c) 1979, 1993 3*62096Sbostic * The Regents of the University of California. All rights reserved. 440865Sbostic * 540865Sbostic * %sccs.include.redist.c% 640865Sbostic */ 71710Smckusick 840865Sbostic #ifndef lint 9*62096Sbostic static char sccsid[] = "@(#)TIME.c 8.1 (Berkeley) 06/06/93"; 1040865Sbostic #endif /* not lint */ 111710Smckusick 121710Smckusick extern char *ctime(); 131710Smckusick TIME(alfap)141710SmckusickTIME(alfap) 151710Smckusick 161710Smckusick register char *alfap; 171710Smckusick { 181710Smckusick register char *ap, *cp; 191710Smckusick register int i; 201710Smckusick long a; 211710Smckusick 221710Smckusick time(&a); 231710Smckusick cp = ctime(&a); 241710Smckusick ap = alfap; 251710Smckusick for (cp = cp + 10, i = 10; i; *ap++ = *cp++, i--); 261710Smckusick } 27