1 /* printenv -- print all or part of environment
2 Copyright (C) 1989-1997, 1999, 2000 Free Software Foundation, Inc.
4 This program is free software; you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation; either version 2, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software Foundation,
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18 /* Usage: printenv [variable...]
20 If no arguments are given, print the entire environment.
21 If one or more variable names are given, print the value of
22 each one that is set, and nothing for ones that are not set.
25 0 if all variables specified were found
28 David MacKenzie and Richard Mlynarik */
32 #include <sys/types.h>
38 #include "long-options.h"
40 /* The official name of this program (e.g., no `g' prefix). */
41 #define PROGRAM_NAME "printenv"
43 #define AUTHORS "David MacKenzie and Richard Mlynarik"
45 /* The name this program was run with. */
48 static struct option
const long_options
[] =
53 extern char **environ
;
59 fprintf (stderr
, _("Try `%s --help' for more information.\n"),
64 Usage: %s [VARIABLE]...\n\
66 If no environment VARIABLE specified, print them all.\n\
68 --help display this help and exit\n\
69 --version output version information and exit\n\
71 program_name
, program_name
);
72 puts (_("\nReport bugs to <bug-sh-utils@gnu.org>."));
78 main (int argc
, char **argv
)
87 program_name
= argv
[0];
88 setlocale (LC_ALL
, "");
89 bindtextdomain (PACKAGE
, LOCALEDIR
);
92 close_stdout_set_status (2);
93 atexit (close_stdout
);
95 parse_long_options (argc
, argv
, PROGRAM_NAME
, GNU_PACKAGE
, VERSION
,
98 while ((c
= getopt_long (argc
, argv
, "", long_options
, NULL
)) != -1)
112 for (env
= environ
; *env
!= NULL
; ++env
)
118 for (i
= optind
; i
< argc
; ++i
)
120 for (env
= environ
; *env
; ++env
)
124 while (*ep
!= '\0' && *ap
!= '\0' && *ep
++ == *ap
++)
126 if (*ep
== '=' && *ap
== '\0')
135 exit_status
= (matches
!= argc
- optind
);