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: