Commit | Line | Data |
---|---|---|
3117a8f2 KM |
1 | /* Copyright (c) 1979 Regents of the University of California */ |
2 | ||
3 | static char sccsid[] = "@(#)TIME.c 1.1 %G%"; | |
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 | } |