repo2/de1/build.sh @ 461
| 198 | markw | #!/usr/bin/perl -w
|
|
use strict;
|
|||
| 24 | markw | ||
| 198 | markw | my $wanted_variant = shift @ARGV;
|
|
| 24 | markw | ||
| 348 | markw | my $name="de1";
|
|
| 198 | markw | #variants...
|
|
my $PAL = 1;
|
|||
my $NTSC = 0;
|
|||
| 24 | markw | ||
| 198 | markw | my $RGB = 1; # i.e. not scandoubled
|
|
my $VGA = 2;
|
|||
#Added like this to the generated qsf
|
|||
#set_parameter -name TV 1
|
|||
my %variants =
|
|||
(
|
|||
# "PAL" =>
|
|||
# {
|
|||
# "TV" => $PAL
|
|||
# },
|
|||
# "NTSC" =>
|
|||
# {
|
|||
# "TV" => $NTSC
|
|||
# },
|
|||
| 298 | markw | "BOTH" =>
|
|
| 198 | markw | {
|
|
| 320 | markw | "TV" => 2,
|
|
"GPIO" => 1
|
|||
},
|
|||
"PRIVATE" =>
|
|||
{
|
|||
"TV" => 2,
|
|||
"GPIO" => 2
|
|||
| 198 | markw | }
|
|
);
|
|||
if (not defined $wanted_variant or (not exists $variants{$wanted_variant} and $wanted_variant ne "ALL"))
|
|||
{
|
|||
die "Provide variant of ALL or ".join ",",sort keys %variants;
|
|||
}
|
|||
foreach my $variant (sort keys %variants)
|
|||
{
|
|||
next if ($wanted_variant ne $variant and $wanted_variant ne "ALL");
|
|||
| 348 | markw | print "Building $variant of $name\n";
|
|
| 198 | markw | ||
my $dir = "build_$variant";
|
|||
`rm -rf $dir`;
|
|||
mkdir $dir;
|
|||
`cp atari800core_de1.vhd $dir`;
|
|||
`cp *pll*.* $dir`;
|
|||
`cp *.v $dir`;
|
|||
`cp *.vhd* $dir`;
|
|||
`cp atari800core.sdc $dir`;
|
|||
`mkdir $dir/common`;
|
|||
`mkdir $dir/common/a8core`;
|
|||
`mkdir $dir/common/components`;
|
|||
`mkdir $dir/common/zpu`;
|
|||
`cp ../common/a8core/* ./$dir/common/a8core`;
|
|||
`cp ../common/components/* ./$dir/common/components`;
|
|||
`cp ../common/zpu/* ./$dir/common/zpu`;
|
|||
chdir $dir;
|
|||
`../makeqsf ../atari800core.qsf ./common/a8core ./common/components ./common/zpu`;
|
|||
| 340 | markw | `cat ../atari800core.qsf_$variant >> atari800core.qsf`;
|
|
| 198 | markw | ||
foreach my $key (sort keys %{$variants{$variant}})
|
|||
{
|
|||
my $val = $variants{$variant}->{$key};
|
|||
`echo set_parameter -name $key $val >> atari800core.qsf`;
|
|||
}
|
|||
`quartus_sh --flow compile atari800core > build.log 2> build.err`;
|
|||
`quartus_cpf --convert ../output_file.cof`;
|
|||
chdir "..";
|
|||
}
|