Commit | Line | Data |
---|---|---|
22e155fc | 1 | /* |
35901a68 KB |
2 | * Copyright (c) 1987 Regents of the University of California. |
3 | * All rights reserved. | |
4 | * | |
6d936b27 | 5 | * %sccs.include.redist.c% |
22e155fc DF |
6 | */ |
7 | ||
8 | #ifndef lint | |
9 | char copyright[] = | |
35901a68 | 10 | "@(#) Copyright (c) 1987 Regents of the University of California.\n\ |
22e155fc | 11 | All rights reserved.\n"; |
35901a68 | 12 | #endif /* not lint */ |
22e155fc DF |
13 | |
14 | #ifndef lint | |
6d936b27 | 15 | static char sccsid[] = "@(#)printenv.c 5.4 (Berkeley) %G%"; |
35901a68 | 16 | #endif /* not lint */ |
22e155fc | 17 | |
18745775 BJ |
18 | /* |
19 | * printenv | |
20 | * | |
21 | * Bill Joy, UCB | |
22 | * February, 1979 | |
23 | */ | |
18745775 BJ |
24 | main(argc, argv) |
25 | int argc; | |
35901a68 | 26 | char **argv; |
18745775 | 27 | { |
35901a68 KB |
28 | extern char **environ; |
29 | register char *cp, **ep; | |
30 | register int len; | |
18745775 | 31 | |
35901a68 | 32 | if (argc < 2) { |
18745775 | 33 | for (ep = environ; *ep; ep++) |
35901a68 KB |
34 | puts(*ep); |
35 | exit(0); | |
36 | } | |
37 | len = strlen(*++argv); | |
38 | for (ep = environ; *ep; ep++) | |
39 | if (!strncmp(*ep, *argv, len)) { | |
40 | cp = *ep + len; | |
41 | if (!*cp || *cp == '=') { | |
42 | puts(*cp ? cp + 1 : cp); | |
43 | exit(0); | |
18745775 | 44 | } |
35901a68 KB |
45 | } |
46 | exit(1); | |
18745775 | 47 | } |