Revision 218
Added by markw about 11 years ago
| makeqsf | ||
|---|---|---|
|
|
||
|
open (QSF_OUT,">$qsf_out") or die "Failed to open $qsf_out";
|
||
|
print QSF_OUT @qsf_base;
|
||
|
print QSF_OUT "\n";
|
||
|
|
||
|
foreach (@ARGV)
|
||
|
{
|
||
|
my @vhdl = glob ("$_/*.vhd");
|
||
|
push @vhdl, glob ("$_/*.vhdl");
|
||
|
my @verilog = glob ("$_/*.v");
|
||
|
my @qip = glob ("$_/*.qip");
|
||
|
|
||
|
foreach (@verilog)
|
||
|
{
|
||
| ... | ... | |
|
{
|
||
|
print QSF_OUT "set_global_assignment -name VHDL_FILE $_\n";
|
||
|
}
|
||
|
|
||
|
foreach (@qip)
|
||
|
{
|
||
|
print QSF_OUT "set_global_assignment -name QIP_FILE $_\n";
|
||
|
}
|
||
|
}
|
||
|
|
||
|
close (QSF_OUT);
|
||
Add a newline, in case there is not a newline at the end of the file