From 79161e22a026808e07d549ea2b8da5c95dc7ca7c Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Wed, 15 Aug 2012 12:24:27 +0000
Subject: [PATCH] to generate constraint file for TDC flip flops

---
 .../tdc_v0.4/create_ff_constraints.pl         | 75 +++++++++++++++++++
 1 file changed, 75 insertions(+)
 create mode 100755 tdc_releases/tdc_v0.4/create_ff_constraints.pl

diff --git a/tdc_releases/tdc_v0.4/create_ff_constraints.pl b/tdc_releases/tdc_v0.4/create_ff_constraints.pl
new file mode 100755
index 0000000..ffeeb35
--- /dev/null
+++ b/tdc_releases/tdc_v0.4/create_ff_constraints.pl
@@ -0,0 +1,75 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use FileHandle;
+
+
+
+#sub RetriveChannelNumber()
+my $FileNameA = "trb3_periph.vhd";             #to retrive the channel number 
+my $FileNameB = "Channel.vhd";                 #to retrive carry chain elements
+my $FileNameC = "trb3_periph_constraints.lpf"; #to retrive names of the starting points of channels (slice names)
+
+my $ChannelNumber;
+my $fhA = new FileHandle("< $FileNameA");
+while(<$fhA>)
+{
+    chomp($_);
+    my $lineA = $_;
+    if( $lineA =~ /CHANNEL_NUMBER\s=>\s(\d+),/ ) {$ChannelNumber = $1;}   
+}
+if( defined $ChannelNumber ){	print "Channel number: $ChannelNumber\n";}
+else{print "Channel number is not defined ! Exit.";    exit(0);}
+$fhA->close();
+
+my $CarryChainNumber;
+my $fhB = new FileHandle("< $FileNameB");
+while(<$fhB>)
+{
+    chomp($_);
+    my $lineB = $_;
+    if( $lineB =~ /FC\s:\sAdder_(\d+)/ ) {$CarryChainNumber = $1;}   
+}
+if( defined $CarryChainNumber ){	print "Carry chain number number: $CarryChainNumber\n";}
+else{print "Carry chain number is not defined ! Exit.";    exit(0);}
+$fhB->close();
+
+my $FFLocationR;
+my $FFLocationC;
+my $FFLocation;
+my $HitNumber;
+my $FFPart;
+my $fhC = new FileHandle("< $FileNameC");
+my $fhD = new FileHandle("> ff_constrains.lpf");
+my $TmpText;
+
+while(<$fhC>)
+{
+    chomp($_);
+    my $lineD = $_;
+    if( $lineD =~ /LOCATE\sUGROUP\s\"FC_(.+)\"\s\SITE\s\"R(\d+)C(\d+)(.+)\"/ ) 
+    {
+	$FFLocationR = $2; 
+	$FFLocationC = $3; 
+	$HitNumber = $1;
+	
+	#print "FF location : $FFLocation\n"; 
+	if( $HitNumber < ($ChannelNumber+1) )
+	{
+	    for (my $i=0;$i<$CarryChainNumber;$i++)
+	    {
+		if($i % 3 == 0) {$FFPart = 'A';}
+		if($i % 3 == 1) {$FFPart = 'B';}
+		if($i % 3 == 2) {$FFPart = 'C';}
+		$FFLocation = $FFLocationC + int($i/3);
+		$TmpText = "LOCATE COMP \"THE_TDC/GEN_Channels_${HitNumber}_Channels/FC/FF_$i SITE \"R${FFLocationR}C${FFLocation}${FFPart}\"\n";
+		print $TmpText;
+		print {$fhD} $TmpText;
+	    }
+	}
+    }   
+}
+
+
+
+
-- 
2.43.0