Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / site_perl / 5.8.0 / Psh / Support / Debug.pm

package Psh::Support::Debug;

my %token_types= ( 0=> 'END', 1=>'WORD:',2=>'PIPE',
                                  3=>'REDIRECT',4=>'BACKGROUND',
                                  5=>'OR', 6=> 'AND');

sub explain_tokens {
       my $tokens= shift;
       my @result=();
       my @tokens= @$tokens;
       foreach my $tok (@tokens) {
               if (ref $tok eq 'ARRAY') {
                       my @tok=@$tok;
                       my $type= shift @tok;
                       if ($type==0) {
                               push @result,"\n";
                       } else {
                               $type= $token_types{$type} if $token_types{$type};
                               push @result, join('',$type,@tok,' ');
                       }
               }
       }
       return join('',@result);
}

1;