URL
https://opencores.org/ocsvn/socgen/socgen/trunk
[/] [socgen/] [trunk/] [tools/] [verilog/] [gen_verilog] - Diff between revs 123 and 124
Go to most recent revision |
Show entire file |
Details |
Blame |
View Log
Rev 123 |
Rev 124 |
Line 113... |
Line 113... |
|
|
|
|
my $path ="${home}/projects/${vendor}/${project}/ip/${component}/sim";
|
my $path ="${home}/projects/${vendor}/${project}/ip/${component}/sim";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
$path ="${home}/projects/${vendor}/${project}/ip/${component}/sim/xml";
|
my $path ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches";
|
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
$path ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches/xml";
|
mkdir $path,0755 unless( -e $path );
|
mkdir $path,0755 unless( -e $path );
|
|
|
|
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/xml/${variant}_dut.params.xml";
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches/xml/${variant}_dut.params.xml";
|
open TB_COMP_FILE,">$outfile" or die "unable to open $outfile";
|
open TB_COMP_FILE,">$outfile" or die "unable to open $outfile";
|
|
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/xml/${variant}_dutg.design.xml";
|
$outfile ="${home}/projects/${vendor}/${project}/ip/${component}/sim/testbenches/xml/${variant}_dutg.design.xml";
|
open TB_DESIGN_FILE,">$outfile" or die "unable to open $outfile";
|
open TB_DESIGN_FILE,">$outfile" or die "unable to open $outfile";
|
|
|
|
|
print TB_COMP_FILE "\n";
|
print TB_COMP_FILE "\n";
|
print TB_COMP_FILE "
|