Subversion Repositories ecpu_alu

#!/usr/bin/perl -w
 
use strict;
my $fsm = pop @ARGV;
 
if (defined $fsm)
{
  my $contents = `cat $fsm`;
 
  my ($others) = $contents =~ /(\w+.+?\=\>)/;
 
  while ($others !~ /others.+\=\>/ and defined $others)
  {
    $contents =~ s/\=\>(.*\n(?:.*?\n)*?)(.+=\>)/\:\n\t\t\t\t\t\tbegin\n$1\n\t\t\t      end\n$2/;
    ($others) = $contents =~ /(\w+.+?\=\>)/;
  }
 
  $contents =~ s/others.+\=\>\n((?:.+\n)*.+)end.*?case/default :\n\t\t\t\t\t\tbegin\n$1\tend\n\t\t\t\t\t\tendcase/;
 
  $contents   =~ s/\'(\d)\'/1\'b$1/g;
  print $contents;
}
else
{
  print "Please supply a VHDL fsm to parse\n";
}