lef_layer_tf_number_mapper.p

LEF2FRAM/lef_layer_tf_number_mapper.p

@@ -0,0 +1,198 @@
+#!/depot/perl-5.003/bin/perl5.003 -w
+
+# Written by Ahmed Abdelazeem
+# March 11, 2024
+# Updated to cover more LEF cases
+# July 1, 2024
+# A Perl script processes a technology file (.tf) and an LEF (Library Exchange Format) file to generate a mapping between layers defined in these files.
+#
+#
+
+$EXPECTED_COMMAND_ARGS = 2;
+
+if ($#ARGV < $EXPECTED_COMMAND_ARGS -1 )
+        {
+        die "Usage: lef_layer_tf_number_map.pl Tech_file_name.tf Lef_file_name.lef\n";
+        }
+        else
+                {
+                $tech_file = $ARGV[0];
+                $lef_file = $ARGV[1];
+		$tmp_s1 = $ARGV[0];
+		$tmp_s1 =~ s/\.tf/_tf/;
+		$tmp_s2 = $ARGV[1];
+		$tmp_s2 =~ s/\.lef/_lef/;
+                $lef_tf_map_file = $tmp_s2."_".$tmp_s1.".map";
+                $lef_tf_log_file = $tmp_s2."_".$tmp_s1.".log";
+                }
+
+open tech_file or die "Can't open $tech_file\n";
+open lef_file or die "Can't open $lef_file\n";
+open lef_tf_log_file, ">$lef_tf_log_file" or die "Can't open $lef_tf_log_file\n";
+open lef_tf_map_file, ">$lef_tf_map_file" or die "Can't open $lef_tf_map_file\n";
+
+print_log( "\n*** Beginning to process $tech_file tech file***\n");
+$i=0;
+
+%tf_layerMaskNames = ();
+%tf_layerMaskLayerNumber = ();
+%tf_layerName = ();
+
+$processing_tf_layer = 0;
+$found_maskName = 0;
+$tf_masks = 0;
+while ($line = <tech_file>) 
+{
+	chop $line;
+	if ( $line =~ /^[lL][aA][yY][eE][rR][\s]+\"([\w\W]+)\"[\s]+\{.*$/ )
+	{
+	if ($processing_tf_layer ==0)
+		{
+		$processing_tf_layer = 1;
+		$tf_layer_name = $1;
+		print_log( "\nBeginning to process $tf_layer_name layer...\n");
+		}
+	}	
+	elsif ( $line =~ /^[\s]*\}.*$/) 
+		{
+		if ($processing_tf_layer ==1) 
+			{
+			if ($found_maskName == 1)
+				{
+				$tf_layerMaskNames{$tf_masks} = $tf_maskName;
+				$tf_layerMaskLayerNumber{$tf_maskName} = $tf_layerNumber;
+				$tf_layerName{$tf_maskName} = $tf_layer_name;
+
+				$tf_masks++;
+				$found_maskName =0;
+				}
+			print_log( "Completed the processing of $tf_layer_name layer.\n");
+			$processing_tf_layer = 0;
+			}
+		}
+	elsif ( $line =~ /^[\s]*layerNumber[\s]*\=[\s]*([\d]+).*$/) 
+		{
+		$tf_layerNumber = $1;
+		print_log( "Found the layerNumber $tf_layerNumber for the $tf_layer_name!\n");
+		}
+	elsif ( $line =~ /^[\s]*maskName[\s]*\=[\s]*\"([\w]+)\".*$/) 
+		{
+		$tf_maskName = $1;
+		$found_maskName = 1;
+		print_log( "Found the maskName $tf_maskName for the $tf_layer_name!\n");
+		}
+$i++;
+}
+
+#foreach $key (keys %tf_layerMaskNames)
+#	{
+#	print "tf_layerName=$tf_layerName{$tf_layerMaskNames{$key}}		";
+#	print "tf_mask_layerName=$tf_layerMaskNames{$key}		";
+#	print "tf_mask_layerNumber=$tf_layerMaskLayerNumber{$tf_layerMaskNames{$key}}\n";
+#	}
+
+print_log( "\n*** Beginning to process $lef_file LEF file***\n");
+
+%lef_layerDerivedMaskNames = ();
+%lef_layerDerivedMaskLayerNumber = ();
+%lef_layerName = ();
+
+$i=0;
+$lef_masks = 0;
+$processing_lef_layer = 0;
+$lef_prev_layerTYPE = "";
+$metal_index = 0;
+while ($line = <lef_file>) 
+{
+	chop $line;
+#	print "$line\n";
+#	print "$i th line:$line\n";      
+	if ( $line =~ /^LAYER[\s]+([\w]+)[\s]*$/ )
+	{
+	if ($processing_lef_layer ==0)
+		{
+		$processing_lef_layer = 1;
+		$lef_layer_name = $1;
+		print_log( "\nBeginning to process $lef_layer_name layer...\n");
+		}
+	}	
+	elsif ( $line =~ /^END[\s]+[\w]+[\s]*$/) 
+		{
+		if ($processing_lef_layer ==1) 
+			{
+			$lef_derivedmaskName = "";
+			if ( ($lef_layerTYPE eq "MASTERSLICE") && ($lef_masks == 0) )
+				{
+				$lef_derivedmaskName = "poly";
+				}
+			elsif ( ($lef_layerTYPE eq "CUT") && ($lef_prev_layerTYPE eq "MASTERSLICE") )
+				{
+				$lef_derivedmaskName = "polyCont";
+				}
+			elsif ( ($lef_layerTYPE eq "ROUTING") )
+				{
+				if ( $metal_index == 0) { $metal_index = 1; }
+				else { $metal_index++; }
+				$lef_derivedmaskName = "metal".$metal_index;
+				}
+			elsif ( ($lef_layerTYPE eq "CUT") && ($lef_prev_layerTYPE ne "MASTERSLICE"))
+				{
+#				print "lef_layerTYPE=$lef_layerTYPE;lef_masks=$lef_masks;lef_prev_layerTYPE=$lef_prev_layerTYPE\n";
+				$lef_derivedmaskName = "via".$metal_index;
+				}
+			elsif ( ($lef_layerTYPE eq "OVERLAP") )
+				{
+				print_log( "Skipping the OVERLAP Layer...\n");
+				}
+			else    { 
+#				print "lef_layerTYPE=$lef_layerTYPE;lef_masks=$lef_masks;lef_prev_layerTYPE=$lef_prev_layerTYPE\n";
+				die "Can not process due to issue...\n";
+				}
+
+			if ($lef_derivedmaskName ne "" )
+				{
+				$lef_derivedlayerNumber = $tf_layerMaskLayerNumber{$lef_derivedmaskName};
+
+				$lef_layerDerivedMaskNames{$lef_masks} = $lef_derivedmaskName;
+				$lef_layerDerivedMaskLayerNumber{$lef_derivedmaskName} = $lef_derivedlayerNumber;
+				$lef_layerName{$lef_derivedmaskName} = $lef_layer_name;
+				$lef_masks++;
+				}
+			print_log( "Completed the processing of $lef_layer_name layer.\n");
+			$processing_lef_layer = 0;
+			$lef_prev_layerTYPE = $lef_layerTYPE;
+			}
+		}
+	elsif ( $line =~ /^[\s]*TYPE[\s]+([\w]+)[\s]*\;.*$/) 
+		{
+		$lef_layerTYPE = $1;
+		print_log( "Found the TYPE $lef_layerTYPE for the $lef_layer_name!\n");
+		}
+$i++;
+}
+
+#foreach $key (keys %lef_layerDerivedMaskNames)
+#	{
+#	print "lef_layerName=$lef_layerName{$lef_layerDerivedMaskNames{$key}}		";
+#	print "lef_mask_layerName=$lef_layerDerivedMaskNames{$key}		";
+#	print "lef_mask_layerNumber=$lef_layerDerivedMaskLayerNumber{$lef_layerDerivedMaskNames{$key}}\n";
+#	}
+
+print_log( "\n*** Printing the map file between $lef_file and $tech_file ***\n");
+for ($j=0; $j < $lef_masks; $j++)
+	{
+	print_map("$lef_layerName{$lef_layerDerivedMaskNames{$j}}");
+	print_map(" $lef_layerDerivedMaskLayerNumber{$lef_layerDerivedMaskNames{$j}}\n");
+	}
+
+close lef_tf_map_file;
+
+sub print_log {
+	print "$_[0]";
+	print lef_tf_log_file "$_[0]";
+}
+
+sub print_map {
+	print "$_[0]";
+	print lef_tf_map_file "$_[0]";
+}