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

package Psh::Strategy::Debug;

=item * C<debug>

Entering "? commandline" will show information about the
way Perl Shell processes the input

This has to be beautified a lot and should not use Data::Dumper.

=cut

require Psh::Strategy;
require Psh::Support::Debug;

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

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

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

sub runs_before {
       return qw(executable auto_cd built_in);
}

sub applies {
       my $fnname= ${$_[1]};

       if ($fnname=~/^\?/) {
               return "debug $fnname";
       }
   return '';
}

sub execute {
       my $fnname= ${$_[1]};
       my @tmp= Psh::Parser::make_tokens(substr($fnname,1),1);
       use Data::Dumper;
       print "Wordsplit:\n";
       print Dumper(\@tmp);
       @tmp= Psh::Parser::make_tokens(substr($fnname,1));
       print "Tokenization:\n";
       print Psh::Support::Debug::explain_tokens(\@tmp)."\n";
       @tmp= Psh::Parser::parse_line(substr($fnname,1));
       print Dumper(\@tmp);
   return (1,undef);
}

1;