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 */ 71710Smckusick 8*40865Sbostic #ifndef lint 9*40865Sbostic static char sccsid[] = "@(#)TIME.c 1.2 (Berkeley) 04/09/90"; 10*40865Sbostic #endif /* not lint */ 111710Smckusick 121710Smckusick extern char *ctime(); 131710Smckusick 141710Smckusick TIME(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