use Getopt::Long;
use Term::ANSIColor qw(:constants);
+
+my $FAMILYNAME="LatticeECP3";
+my $DEVICENAME="LFE3-150EA";
+my $PACKAGE="FPBGA1156";
+my $SPEEDGRADE="8";
+
+
my %config = do "config_compile.pl";
my $pinout_file = $config{pinout_file} || $TOPNAME;
my $nodelist_file = $config{nodelist_file} || 'nodelist.txt';
+$FAMILYNAME = $config{Familyname} if $config{Familyname};
+$DEVICENAME = $config{Devicename} if $config{Devicename};
+$PACKAGE = $config{Package} if $config{Package};
+$SPEEDGRADE = $config{Speedgrade} if $config{Speedgrade};
+
###################################################################################
#Settings for this project
-my $FAMILYNAME="LatticeECP3";
-my $DEVICENAME="LFE3-150EA";
-my $PACKAGE="FPBGA1156";
-my $SPEEDGRADE="8";
+
my $WORKDIR = "workdir";
unless(-d $WORKDIR) {
my $c = "cat ../pinout/basic_constraints.lpf >> $WORKDIR/$TOPNAME.lpf";
system($c);
-# system("cat $TOPNAME.lpf >> $WORKDIR/$TOPNAME.lpf");
+ system("cat $TOPNAME.lpf >> $WORKDIR/$TOPNAME.lpf");
if($include_TDC) {
#system("cat ../../trb3sc/tdc_release/trbnet_constraints.lpf >> $WORKDIR/$TOPNAME.lpf");