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

package Psh::Builtins::History;

require Psh::Util;

=item * C<history> [n]

Prints out [the last n] entries in the history

=item * C<history> text [n]

Searches [the last n] entries in the command history and
prints them if they contain "text".

=cut


sub bi_history
{
       my $i;
       my $num = @Psh::history;
       my $grep= undef;

       return (0,undef) unless $num;

       if ($_[1]) {
               my @args=@{$_[1]};
               while (my $arg=shift @args) {
                       if ($arg=~/^\d+$/) {
                               $num=$arg if $arg<$num;
                       }
                       if ($arg=~/^\S+$/) {
                               $grep=$arg;
                       }
               }
       }

       my $success=0;
       my $max= @Psh::history;
       if ($grep) {
               $max--;
       }
       for ($i=@Psh::history-$num; $i<$max; $i++) {
               next if $grep and $Psh::history[$i]!~/\Q$grep\E/;
               Psh::Util::print_out(' '.sprintf('%3d',$i+1).'  '.$Psh::history[$i]."\n");
               $success=1;
       }
       return ($success,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: