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 / Unalias.pm

package Psh::Builtins::Unalias;

require Psh::Util;
require Psh::Support::Alias;

=item * C<unalias NAME | -a | all]>

Removes the alias with name <C<I<NAME>> or all aliases if either <C<I<-a>>
(for bash compatibility) or <C<I<all>> is specified.

=cut

sub bi_unalias {
	my $name= shift;
	if( ($name eq '-a' || $name eq 'all') and !Psh::Support::Alias::is_aliased($name) ) {
		%Psh::Support::Alias::aliases=();
		return (1,undef);
	} elsif( Psh::Support::Alias::is_aliased($name)) {
		delete($Psh::Support::Alias::aliases{$name});
		return (1,undef);
	} else {
		Psh::Util::print_error_i18n('unalias_noalias', $name);
		return (0,undef);
	}
	return (0,undef);
}


sub cmpl_unalias {
	my $text= shift;
	return (1,grep { Psh::Util::starts_with($_,$text) } Psh::Support::Alias::get_alias_commands());
}

1;