Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Strategy / Auto_cd.pm

package Psh::Strategy::Auto_cd;

=item * C<auto_cd>

If the input line matches the name of a directory then
it will be handled as an implicit cd.

=cut

require Psh::Strategy;
require Psh::Builtins::Cd;

@Psh::Strategy::Auto_cd::ISA=('Psh::Strategy');


sub new { Psh::Strategy::new(@_) }


sub consumes {
       return Psh::Strategy::CONSUME_TOKENS;
}

sub applies {
       my $dir= ${$_[2]}[0];
       return "auto-cd $dir" if -d $dir;
   return '';
}

sub execute {
       my $dir= ${$_[2]}[0];
       Psh::Builtins::Cd::bi_cd($dir);
       return (1,undef);
}

sub runs_before {
       return qw(perlscript executable);
}

# Turn on directory completion for first words in line
$Psh::Completion::complete_first_word_dirs=1;

1;