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

package Psh::Builtins::If;

require Psh::Parser;
require Psh;
require Psh::Util;

sub bi_if {
       my @words=@{$_[1]};
       my $success=0;
       my @result=(0,undef);
       my @cond;

       TRY: while (@words>0) {
               @cond=();
               while (@words>0) {
                       last if substr($words[0],0,1) eq '{';
                       push @cond, shift @words;
               }
               unless (@words) {
                       Psh::Util::print_error("Missing action for if\n");
                       return (0,undef);
               }
               my $cond= join(' ',@cond);
               ($success)= Psh::evl(Psh::Parser::ungroup($cond));
               $Psh::Builtins::If::last_success= $success;

               if ($success) {
                       return Psh::evl(Psh::Parser::ungroup(shift @words));
               } else {
                       shift @words; # ignore the if-block
                       my $next= shift @words;
                       next TRY if $next eq 'elsif';
                       if ($next eq 'else') {
                               return Psh::evl(Psh::Parser::ungroup(shift @words));
                       }
                       return (0,undef);
               }
       }
       return (1,undef);
}

1;