mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-10-01 07:56:00 +00:00
ddb82cb2e0
Maybe someday I'll become adept at using cvs...
24 lines
572 B
Awk
24 lines
572 B
Awk
|
|
# Print environment variables' values; names passed on command line
|
|
|
|
BEGIN {
|
|
if (ARGC < 2) {
|
|
print "Error: provide environment variable name on command line"
|
|
exit 1;
|
|
}
|
|
i = 1;
|
|
do {
|
|
rawname = ARGV[i];
|
|
upname = toupper(rawname);
|
|
loname = tolower(rawname);
|
|
printf "%s = '%s'", rawname,ENVIRON[rawname];
|
|
if (rawname != upname)
|
|
printf "; %s = '%s'", upname,ENVIRON[upname];
|
|
if (rawname != loname)
|
|
printf "; %s = '%s'", loname,ENVIRON[loname];
|
|
printf "\n"
|
|
i++;
|
|
} while (i < ARGC)
|
|
|
|
}
|