repo2/mcc216/makeqsf @ 390
| 15 | markw | #!/usr/bin/perl -w
|
|
use strict;
|
|||
my $qsf_in = shift @ARGV;
|
|||
my $qsf_out = $qsf_in;
|
|||
$qsf_out =~ s/.*\///;
|
|||
open (QSF_IN,$qsf_in) or die "Failed to open $qsf_in";
|
|||
my @qsf_base = <QSF_IN>;
|
|||
close (QSF_IN);
|
|||
open (QSF_OUT,">$qsf_out") or die "Failed to open $qsf_out";
|
|||
print QSF_OUT @qsf_base;
|
|||
| 218 | markw | print QSF_OUT "\n";
|
|
| 15 | markw | ||
foreach (@ARGV)
|
|||
{
|
|||
my @vhdl = glob ("$_/*.vhd");
|
|||
push @vhdl, glob ("$_/*.vhdl");
|
|||
my @verilog = glob ("$_/*.v");
|
|||
| 37 | markw | my @qip = glob ("$_/*.qip");
|
|
| 15 | markw | ||
foreach (@verilog)
|
|||
{
|
|||
print QSF_OUT "set_global_assignment -name VERILOG_FILE $_\n";
|
|||
}
|
|||
foreach (@vhdl)
|
|||
{
|
|||
print QSF_OUT "set_global_assignment -name VHDL_FILE $_\n";
|
|||
}
|
|||
| 37 | markw | ||
foreach (@qip)
|
|||
{
|
|||
print QSF_OUT "set_global_assignment -name QIP_FILE $_\n";
|
|||
}
|
|||
| 15 | markw | }
|
|
close (QSF_OUT);
|