|
发表于 2012-4-10 16:33:26
|
显示全部楼层
#!/usr/local/bin/perl -w
use strict;
use Getopt:ong;
#use vars qw ($para);
#use File::Copy;
#get options
my %options;
GetOptions(\%options, "help|h|?", "deb") || print_usage();
if(exists $options{help}){
print_usage();
}
#tools paths
my $ncvlog = "/tools/cds/IUS/tools/bin/ncvlog";
my $ncelab = "/tools/cds/IUS/tools/bin/ncelab";
my $ncsim = "/tools/cds/IUS/tools/bin/ncsim";
#my $verdi = "/home/cf/eda/verdi2009/bin/verdi";
#my $novas = "/home/cf/eda/verdi2009/share/PLI/nc61/LINUX/nc_loadpli1/debpli.so";
#tools paths
#set ncvlog /tools/cds/IUS/tools/bin/ncvlog
#set ncelab /tools/cds/IUS/tools/bin/ncelab
#set ncsim /tools/cds/IUS/tools/bin/ncsim
#set $verdi = "/home/cf/eda/verdi2009/bin/verdi";
#set $novas = "/home/cf/eda/verdi2009/share/PLI/nc61/LINUX/nc_loadpli1/debpli.so";
#source files
my $srcfile = "";
$srcfile = "/home/dzx/dizhixiong/adder4.v";
$srcfile .= " /home/dzx/dizhixiong/adder4_tb.v";
#compile
system("$ncvlog -messages $srcfile");
#elab
system("$ncelab -messages -access +wrc -loadpli1 $novas:deb_PLIPtr worklib.counter_tb:module");
#simulation
system("$ncsim -messages worklib.counter_tb:module");
#the following is sub functions
sub print_usage{
print "Run scripts: $0\n";
print "$0 [-help|h|?] [-deb]\n";
die;
} |
|