#!/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;
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 VERILOG_FILE $_\n";
	}

	foreach (@vhdl)
	{
		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);