tools/perlmod/rsynp,1.0

#######################################################################
# Run Synplicity script
#
# rsynp -help for help
#######################################################################


use warnings;
use strict;
use Cwd;
use Cwd 'chdir';
use Getopt::Long ;

$| = 1;

$SIG{__DIE__} = \&sighandler ;

#######################################################################
# Global variables
#######################################################################

my $prg = $0;
$prg =~ s/.*\/// ;
$prg =~ s/,.*// ;

my $all = 0;
my $flat = 0;
my $syn_q = "/bin/sh";
my $device = "XC4VLX200";
my $blk_list = "";
my $blk_dir;

my @blocks = ();
my @block_list = ();

$blk_list = $ENV{DV_ROOT};
$blk_list .= "/design/sys/synplicity/block.list";

#######################################################################
# Check command line options
#######################################################################

foreach my $argv (@ARGV)
{
    if ($argv =~ /-all/)
    {
        $all = 1;
    } elsif (($argv =~ /-h/) or ($argv =~ /-help/))
    {
        &usage;
        exit(0);
    } elsif ($argv =~ /-syn_q_command/)
    {
        $syn_q = $argv;
        $syn_q =~ s/-syn_q_command=(.*)/$1/ ;
    } elsif ($argv =~ /-device/)
    {
        $device = $argv;
        $device =~ s/-device=(.*)/$1/ ;
    } elsif ($argv =~ /-flat/) {
        $flat = 1;
    } else
    {
        push @blocks, $argv;
    }
}

my $count = 0;

open (BLK_IN, "< $blk_list") or die ("DIE. could not open $blk_list");
if ($all) {
        while (<BLK_IN>)
        {
            my $line = $_ ;
            $line =~ s/\s+$//;
            $count++;
            push @block_list, $line ;
        }
        print "$prg: Running Synplicity for all $count modules\n";
} else {
    my @all_blocks = <BLK_IN>;
    foreach my $block (@blocks)
    {
        my (@search) = grep (/$block/, @all_blocks);
        foreach my $line (@search)
        {
            $line =~ s/\s+$//;
            push @block_list, $line ;
            $count++;
        }
    }
    if ($count) {
        print "$prg: Running Synplicity for $count modules\n";
    } else {
        print "$prg: No matching modules found.\n";
        &usage;
    }
}
close(BLK_IN);

# check the memory list and add memory to block list if needed

foreach my $block (@block_list) {
    $blk_dir = $ENV{DV_ROOT};
    $blk_dir .= "/design/sys/iop/$block";
    $blk_dir .= "/synplicity";
    my $mod_name = $block;
    $mod_name =~ s/.*\/// ;
    my $mlist = $blk_dir;
    $mlist .= "/$mod_name";
    $mlist .= ".mlist";
    if ((!$flat) && ( -f $mlist )) {
        print "$prg: $mlist found.\n";
        open (BLK_IN, "< $mlist") or
                die("DIE. could not open $mlist");
        while (<BLK_IN>)
        {
            my $line = $_ ;
            $line =~ s/\s+$//;
            $count++;
            my $sub_blk = $ENV{DV_ROOT};
            $sub_blk .= "/design/sys/iop/$line";
            $sub_blk .= "/synplicity";
            my $sub_blk_mod = $sub_blk;
            my $line_mod = $line;
            $line_mod =~ s/.*\/// ;
            $sub_blk_mod .= "/$device/$line_mod";
            $sub_blk_mod .= ".vm";
            if ( -f $sub_blk_mod ) {
                print "$prg: Pre-compiled $line found.\n";
            } else {
                my $cmd = "rsynp -device='$device' ";
                $cmd .= "$line";
                print "$prg: Pre-compiled $line not found.\n";
                print "$prg: Running $cmd\n";
                system($cmd);
            }
        }
        close(BLK_IN);
    }
}

foreach my $block (@block_list) {
    print "$prg: Running Synplicity for $block\n";
    my $cmd = $syn_q;
    $blk_dir = $ENV{DV_ROOT};
    $blk_dir .= "/design/sys/iop/$block";
    $blk_dir .= "/synplicity";
    chdir $blk_dir;
    my $mod_name = $block;
    $mod_name =~ s/.*\/// ;
    &create_prj_file($mod_name);
    print "$prg: module name $mod_name\n";
    $cmd .= " $ENV{DV_ROOT}/tools/bin/synp_command";
    system($cmd);

    # if ed script exists, run it

    my $sed_scr = $mod_name;
    $sed_scr .= ".sed";
    if (-f $sed_scr) {
        my $cmd = "/bin/ed ";
        $cmd .= "$device/$mod_name";
        $cmd .= ".vm < $sed_scr";
        print "$prg: Running script: $cmd\n";
        system($cmd);
    }
}

#######################################################################
sub create_prj_file {
    my $mod = shift;
    my $flist = $mod;
    $flist .= ".flist";

    open (FLIST_IN, "< $flist") or die ("DIE. could not open $flist");
    open OUT, ">proj.prj";
    print OUT "# Synplicity Project File\n\n";
    print OUT "set topmodule $mod\n";
    print OUT "set rev $device\n";
    print OUT "set dv_root [get_env DV_ROOT]\n\n";

    while (<FLIST_IN>) {
        next if(/^\/\//);
        next if(/^#/);
        chop;
        if (/design/) {
          print OUT "add_file -verilog \$dv_root/";
          print OUT;
          print OUT "\n";
          next;
        }
        if (/lib/) {
          print OUT "add_file -verilog \$dv_root/";
          print OUT;
          print OUT "\n";
          next;
        }
    }
    close FLIST_IN;

    if ($flat) {
      my $fmlist = $mod;
      $fmlist .= ".fmlist";
      if ( -f $fmlist ) {
        open (FLIST_IN, "< $fmlist") or die ("DIE. could not open $fmlist");
        while (<FLIST_IN>) {
            next if(/^\/\//);
            next if(/^#/);
            chop;
            if (/design/) {
              print OUT "add_file -verilog \$dv_root/";
              print OUT;
              print OUT "\n";
              next;
            }
            if (/lib/) {
              print OUT "add_file -verilog \$dv_root/";
              print OUT;
              print OUT "\n";
              next;
            }
        }
        close FLIST_IN;
      }
    } else {
     my $mlist = $mod;
     $mlist .= ".mlist";
     if ( -f $mlist ) {
        print "$prg: $mlist found.\n";
        open (BLK_IN, "< $mlist") or
                die("DIE. could not open $mlist");
        while (<BLK_IN>)
        {
            my $line = $_ ;
            $line =~ s/\s+$//;
            $count++;
            my $sub_blk = $ENV{DV_ROOT};
            $sub_blk .= "/design/sys/iop/$line";
            $sub_blk .= "/synplicity";
            my $sub_blk_mod = $sub_blk;
            my $line_mod = $line;
            $line_mod =~ s/.*\/// ;
            $sub_blk_mod .= "/$device/$line_mod";
            $sub_blk_mod .= ".vm";
            if ( -f $sub_blk_mod ) {
                print OUT "add_file -verilog $sub_blk_mod\n";
            }
        }

        close(BLK_IN);
     }
    }

    print OUT "\nsource \$dv_root/design/sys/synplicity/env.prj\n";
    print OUT "source \$dv_root/design/sys/synplicity/$device.prj\n";
    my $prj_file = $mod;
    $prj_file .= ".prj";
    if ( -f $prj_file ) {
        print OUT "source $prj_file\n";
    }
    print OUT "source \$dv_root/design/sys/synplicity/pre_syn_settings.prj\n";
    close OUT;

}
#######################################################################
sub usage {
    print "\n$prg : Run Synplicity for OpenSPARC T1\n\n";
    print "Options are :\n";
    print "  -all \n\tto run Synplicity for all blocks\n";
    print "  -h / -help\n\tto print help\n";
    print "  -syn_q_command='Your job Queue command'\n\tto specify Job queue command\n";
    print "  -device='Target Device'\n\tto specify Target FPGA device\n";
    print "  -flat \n\tTo run synthesis flat, must use this for Altera parts.\n";
    print "  block_list :\n\tspecify list of blocks to synthesize\n\n";
    print "Examples:\n\n";
    print "\t$prg -all\n\t$prg -device=XC4VLX200 sparc\n";
    print "\t$prg -flat -device=EP2S180 sparc\n\n";
}
#######################################################################