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

package Psh::Builtins::Dirs;

require Psh::Support::Dirs;

=item * C<dirs> [n]

Prints out [the last n] entries in the cd history

=cut

sub bi_dirs {
       my $max=$#Psh::Support::Dirs::stack;
       if ($_[0] && $_[0]=~/^\d+$/) {
               $max=$_[0]-1 if $_[0]<=$max;
       }

       for (my $i=$max; $i>=0; $i--) {
               printf "%%%-2d ",$i;
               
               if ($i==$Psh::Support::Dirs::::stack_pos) {
                       print " > ";
               } else {
                       print "   ";
               }
               print $Psh::Support::Dirs::stack[$i]."\n";
       }

       return (1,undef);
}

1;

# Local Variables:
# mode:perl
# tab-width:4
# indent-tabs-mode:t
# c-basic-offset:4
# perl-label-offset:0
# perl-indent-level:4
# cperl-indent-level:4
# cperl-label-offset:0
# End: