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