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

package Psh::Builtins::Fc;

use strict;
require Psh;
require Psh::Util;
require Getopt::Std;

=item * C<fc> -s [OLD=NEW] [command]

The last command or the last command starting with
[command] is re-executed after OLD is subsituted with NEW.

=item * C<fc> -p prepend [command]

Prepends the text prepend in front of the last command or the
last command starting with [command] and re-execute it.

=item * C<fc> -l

Lists the last 15 commands, newest last

=item * C<fc> [-e editor] [range]

Edit the last command (or [range] commands) in either [editor],
C<$ENV{FCEDIT}>, C<$ENV{EDITOR}> or vi.

=cut

sub _locate_command {
       my $command=shift;
       my $comnum=$#Psh::history-1; # (otherwise we find the fc)
       if ($command) {
               my $found;
               for (my $i=$comnum; $i>=0; $i--) {
                       if (Psh::Util::starts_with($Psh::history[$i],$command)) {
                               $comnum=$i;
                               $found=1;
                               last;
                       }
               }
               unless ($found) {
                       Psh::Util::print_error_i18n('bi_fc_notfound');
                       return undef;
               }
       }
       return $comnum;
}

sub bi_fc
{
       my $line= shift;
       local @ARGV = @{shift()};

       return (0,undef) unless $#Psh::history;

       my $opt={};
       Getopt::Std::getopts('splre:',$opt);

       if ($opt->{'l'}) {
               my $num=@Psh::history;
               $num=15 if $num>15;
               for (my $i=@Psh::history-$num; $i<@Psh::history; $i++) {
                       Psh::Util::print_out(' '.sprintf('%3d',$i+1).'  '.$Psh::history[$i]."\n");
               }
       } elsif ($opt->{'s'}) {
               my $subst='';
               my $command='';
               while ($_=pop(@ARGV)) {
                       if (/\=/) {
                               $subst=$_;
                               last;
                       }
                       $command.=$_;
               }
               my $comnum= _locate_command($command);
               return (0,undef) unless defined $comnum;
               my $comtext=$Psh::history[$comnum];
               if ($subst) {
                       my ($old,$new)=$subst=~/^(.*?[^\\])\=(.*)$/;
                       $comtext=~s/$old/$new/;
               }
               Psh::Util::print_out($comtext."\n");
               Psh::add_history($comtext);
               return Psh::evl($comtext);
       } elsif ($opt->{'p'}) {
               my $prepend= shift @ARGV;
               my $command= join ' ',@ARGV;
               my $comnum= _locate_command($command);
               return (0,undef) unless defined $comnum;
               my $comtext="$prepend $Psh::history[$comnum]";
               Psh::Util::print_out($comtext."\n");
               Psh::add_history($comtext);
               return Psh::evl($comtext);
       } else {
               if (!$Psh::interactive) {
                       Psh::Util::print_error("fc: not running interactively - cancelled\n");
                       return (0,undef);
               }
               my $file= Psh::OS::tmpnam();
               my $editor= Psh::OS::get_editor($opt->{e} || $ENV{FCEDIT});
               my $from=my $to=$#Psh::history;
               if ($ARGV[0]=~/^\s*(\d+)-(\d+)/) {
                       ($from,$to)=($1,$2);
               } elsif ($ARGV[0]=~/^\s*(\d+)\s*$/) {
                       ($from,$to)=($1,$1);
               }
               if ($from<0 or $to<0 or $from>$#Psh::history or
                   $to>$#Psh::history) {
                       Psh::Util::print_error("fc: specified range not in history\n");
                       return (0,undef);
               }

               if (open(FILE,"> $file")) {
                       for (my $i=$from; $i<=$to; $i++) {
                               print FILE $Psh::history[$i-1]."\n";
                       }
                       close(FILE);
               }
               system("$editor $file");
               Psh::process_file($file);
               eval {
                       unlink($file);
               };
       }
       return (1,undef);
}



1;