| 1 | /* |
| 2 | * printenv |
| 3 | * |
| 4 | * Bill Joy, UCB |
| 5 | * February, 1979 |
| 6 | */ |
| 7 | |
| 8 | extern char **environ; |
| 9 | |
| 10 | main(argc, argv) |
| 11 | int argc; |
| 12 | char *argv[]; |
| 13 | { |
| 14 | register char **ep; |
| 15 | int found = 0; |
| 16 | |
| 17 | argc--, argv++; |
| 18 | if (environ) |
| 19 | for (ep = environ; *ep; ep++) |
| 20 | if (argc == 0 || prefix(argv[0], *ep)) { |
| 21 | register char *cp = *ep; |
| 22 | |
| 23 | found++; |
| 24 | if (argc) { |
| 25 | while (*cp && *cp != '=') |
| 26 | cp++; |
| 27 | if (*cp == '=') |
| 28 | cp++; |
| 29 | } |
| 30 | printf("%s\n", cp); |
| 31 | } |
| 32 | exit (!found); |
| 33 | } |
| 34 | |
| 35 | prefix(cp, dp) |
| 36 | char *cp, *dp; |
| 37 | { |
| 38 | |
| 39 | while (*cp && *dp && *cp == *dp) |
| 40 | cp++, dp++; |
| 41 | if (*cp == 0) |
| 42 | return (*dp == '='); |
| 43 | return (0); |
| 44 | } |