Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Builtins / Printenv.pm

package Psh::Builtins::Printenv;

require Psh::Support::Env;
require Psh::Util;

=item * C<printenv NAME [NAME ...]>

Displays the named environment variables

=cut

sub bi_printenv
{
	my @names= @{$_[1]};
	if (@names) {
		foreach (@names) {
			Psh::Util::print_out($ENV{uc($_)}."\n");
		}
	} else {
		while (my ($key,$val)= each %ENV) {
			Psh::Util::print_out("$key=$val\n");
		}
	}
	return (1,undef);
}


sub cmpl_printenv {
	my( $text, $pre, $start, $line, $startchar) = @_;
	return 1,grep { Psh::Util::starts_with($_,$text)} keys %ENV;
}


1;