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_resume.pm

package Psh::Strategy::Auto_resume;

=item * C<auto_resume>

If the input line matches the name of a stopped job
then brings that job to the foreground instead of starting
a new program with that name

=cut

require Psh::Strategy;
require Psh::Joblist;

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

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

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

sub applies {
       my $fnname= ${$_[2]}[0];
   if( my($index, $pid, $call)=
                  Psh::Joblist::find_last_with_name($fnname,1))
   {
               return "auto-resume $call";
       }
   return '';
}

sub execute {
       my $fnname= ${$_[2]}[0];
   my ($index)= Psh::Joblist::find_last_with_name($fnname,1);
   Psh::OS::restart_job(1,$index);
       return (1,undef);
}

sub runs_before {
       return qw(perlscript executable);
}

1;