1 /*- 2 * Copyright (c) 1979, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)TIME.c 8.1 (Berkeley) 06/06/93"; 10 #endif /* not lint */ 11 12 extern char *ctime(); 13 14 TIME(alfap) 15 16 register char *alfap; 17 { 18 register char *ap, *cp; 19 register int i; 20 long a; 21 22 time(&a); 23 cp = ctime(&a); 24 ap = alfap; 25 for (cp = cp + 10, i = 10; i; *ap++ = *cp++, i--); 26 } 27