]> jspc29.x-matter.uni-frankfurt.de Git - trb3.git/commitdiff
changed compile scripts for better placement reporting
authorCahit <c.ugur@gsi.de>
Sat, 15 Mar 2014 06:59:07 +0000 (07:59 +0100)
committerCahit <c.ugur@gsi.de>
Sat, 15 Mar 2014 06:59:07 +0000 (07:59 +0100)
32PinAddOn/compile_periph_gsi.pl
ADA_Addon/compile_periph_gsi.pl
wasa/compile_periph_gsi.pl

index a11327c059c6cd71bca419ec7c7a6c618901b057..3cceff248826740c1b04dbc2572d3cb984e57893 100755 (executable)
@@ -168,65 +168,25 @@ if($map==1 || $all==1){
     $c=qq|map -retime -split_node -a $FAMILYNAME -p $DEVICENAME -t $PACKAGE -s $SPEEDGRADE "$TOPNAME.ngd" -pr "$TOPNAME.prf" -o "$tpmap.ncd" -mp "$TOPNAME.mrp" "$TOPNAME.lpf"|;
     execute($c);
 
-    $fh = new FileHandle("$TOPNAME.mrp");
+    $c=qq|htmlrpt -mrp $TOPNAME.mrp $TOPNAME|;
+    execute($c);
+
+    $fh = new FileHandle("<$TOPNAME"."_mrp.html");
     @a = <$fh>;
     $fh -> close;
-    my $fileSize = @a;
-    my $isParError = 0;
-    
-    open (DEBUG, '>par.log');
-    for (my $i=0; $i<$fileSize; )
+    foreach (@a)
     {
-       my @line = split(' ', $a[$i]);
-       if (@line && ($line[0] =~ /WARNING/))
+       if(/FC_|HitInvert|ff_en_/)
        {
-           my $warning = $a[$i];
-           chomp $warning;
-           my $k = 1;
-           my @nextLine = split(' ', $a[$i+$k]);
-           if(!@nextLine)
-           {
-               $k+=10;
-               @nextLine = split(' ', $a[$i+$k]);
-           }
-           while (!($nextLine[0] =~ /WARNING/))
-           {
-               my $b = $a[$i+$k];
-               chomp $b;
-               $b =~ s/^\s+//;
-               $warning = join (' ', $warning, $b);
-               $k++;
-               @nextLine = split(' ', $a[$i+$k]);
-               if(!@nextLine)
-               {
-                   $k+=10;
-                   @nextLine = split(' ', $a[$i+$k]);
-               }
-               if ($k>20)
-               {
-                   last;
-               }
-           }
-           #open my $keywords, '<', '../keywords.txt' or die "Can't open keywords: $!";
-           if ($warning =~ /FC_|HitInvert|ff_en_/)
-           {
-               print DEBUG $warning."\n\n";
-               $isParError = 1;
-           }
+           print "\n\n";
+           print "#################################################\n";
+           print "#        !!!Possible Placement Errors!!!        #\n";
+           print "#################################################\n\n";
+           
+           my $c="egrep \"WARNING|FC_|HitInvert|ff_en_\" par.log";
+           system($c);
+           last;
        }
-       $i++;
-    }
-    close (DEBUG);
-    
-    if ($isParError)
-    {
-       print "\n\n";
-       print "#################################################\n";
-       print "#        !!!Possible Placement Errors!!!        #\n";
-       print "#################################################\n\n";
-       
-       my $c="egrep \"FC_|HitInvert|ff_en_\" par.log";
-       system($c);
     }
 }
 
@@ -281,7 +241,7 @@ if($par==1 || $all==1){
 }
 
 
-if($timing==1 || $all==1){
+if($timing==1){
     # IOR IO Timing Report
     $c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
     execute($c);
index 4a5e1c3a66f2b659ecc7187e021427a7c36973fe..6099b1ac50f4d5244a3ed9f6210113e338eab2aa 100755 (executable)
@@ -168,65 +168,25 @@ if($map==1 || $all==1){
     $c=qq|map -retime -split_node -a $FAMILYNAME -p $DEVICENAME -t $PACKAGE -s $SPEEDGRADE "$TOPNAME.ngd" -pr "$TOPNAME.prf" -o "$tpmap.ncd" -mp "$TOPNAME.mrp" "$TOPNAME.lpf"|;
     execute($c);
 
-    $fh = new FileHandle("$TOPNAME.mrp");
+    $c=qq|htmlrpt -mrp $TOPNAME.mrp $TOPNAME|;
+    execute($c);
+
+    $fh = new FileHandle("<$TOPNAME"."_mrp.html");
     @a = <$fh>;
     $fh -> close;
-    my $fileSize = @a;
-    my $isParError = 0;
-    
-    open (DEBUG, '>par.log');
-    for (my $i=0; $i<$fileSize; )
+    foreach (@a)
     {
-       my @line = split(' ', $a[$i]);
-       if (@line && ($line[0] =~ /WARNING/))
+       if(/FC_|HitInvert|ff_en_/)
        {
-           my $warning = $a[$i];
-           chomp $warning;
-           my $k = 1;
-           my @nextLine = split(' ', $a[$i+$k]);
-           if(!@nextLine)
-           {
-               $k+=10;
-               @nextLine = split(' ', $a[$i+$k]);
-           }
-           while (!($nextLine[0] =~ /WARNING/))
-           {
-               my $b = $a[$i+$k];
-               chomp $b;
-               $b =~ s/^\s+//;
-               $warning = join (' ', $warning, $b);
-               $k++;
-               @nextLine = split(' ', $a[$i+$k]);
-               if(!@nextLine)
-               {
-                   $k+=10;
-                   @nextLine = split(' ', $a[$i+$k]);
-               }
-               if ($k>20)
-               {
-                   last;
-               }
-           }
-           #open my $keywords, '<', '../keywords.txt' or die "Can't open keywords: $!";
-           if ($warning =~ /FC_|HitInvert|ff_en_/)
-           {
-               print DEBUG $warning."\n\n";
-               $isParError = 1;
-           }
+           print "\n\n";
+           print "#################################################\n";
+           print "#        !!!Possible Placement Errors!!!        #\n";
+           print "#################################################\n\n";
+           
+           my $c="egrep \"WARNING|FC_|HitInvert|ff_en_\" par.log";
+           system($c);
+           last;
        }
-       $i++;
-    }
-    close (DEBUG);
-    
-    if ($isParError)
-    {
-       print "\n\n";
-       print "#################################################\n";
-       print "#        !!!Possible Placement Errors!!!        #\n";
-       print "#################################################\n\n";
-       
-       my $c="egrep \"FC_|HitInvert|ff_en_\" par.log";
-       system($c);
     }
 }
 
@@ -281,7 +241,7 @@ if($par==1 || $all==1){
 }
 
 
-if($timing==1 || $all==1){
+if($timing==1){
     # IOR IO Timing Report
     $c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
     execute($c);
index 098ea33584f980597b556fed7f936903ac3a475b..634a660e857ec8596fc9d7afe6d6527a58a5a9ed 100755 (executable)
@@ -168,69 +168,28 @@ if($map==1 || $all==1){
     $c=qq|map -retime -split_node -a $FAMILYNAME -p $DEVICENAME -t $PACKAGE -s $SPEEDGRADE "$TOPNAME.ngd" -pr "$TOPNAME.prf" -o "$tpmap.ncd" -mp "$TOPNAME.mrp" "$TOPNAME.lpf"|;
     execute($c);
 
-    $fh = new FileHandle("$TOPNAME.mrp");
+    $c=qq|htmlrpt -mrp $TOPNAME.mrp $TOPNAME|;
+    execute($c);
+
+    $fh = new FileHandle("<$TOPNAME"."_mrp.html");
     @a = <$fh>;
     $fh -> close;
-    my $fileSize = @a;
-    my $isParError = 0;
-    
-    open (DEBUG, '>par.log');
-    for (my $i=0; $i<$fileSize; )
+    foreach (@a)
     {
-       my @line = split(' ', $a[$i]);
-       if (@line && ($line[0] =~ /WARNING/))
+       if(/FC_|HitInvert|ff_en_/)
        {
-           my $warning = $a[$i];
-           chomp $warning;
-           my $k = 1;
-           my @nextLine = split(' ', $a[$i+$k]);
-           if(!@nextLine)
-           {
-               $k+=10;
-               @nextLine = split(' ', $a[$i+$k]);
-           }
-           while (!($nextLine[0] =~ /WARNING/))
-           {
-               my $b = $a[$i+$k];
-               chomp $b;
-               $b =~ s/^\s+//;
-               $warning = join (' ', $warning, $b);
-               $k++;
-               @nextLine = split(' ', $a[$i+$k]);
-               if(!@nextLine)
-               {
-                   $k+=10;
-                   @nextLine = split(' ', $a[$i+$k]);
-               }
-               if ($k>20)
-               {
-                   last;
-               }
-           }
-           #open my $keywords, '<', '../keywords.txt' or die "Can't open keywords: $!";
-           if ($warning =~ /FC_|HitInvert|ff_en_/)
-           {
-               print DEBUG $warning."\n\n";
-               $isParError = 1;
-           }
+           print "\n\n";
+           print "#################################################\n";
+           print "#        !!!Possible Placement Errors!!!        #\n";
+           print "#################################################\n\n";
+           
+           my $c="egrep \"WARNING|FC_|HitInvert|ff_en_\" par.log";
+           system($c);
+           last;
        }
-       $i++;
-    }
-    close (DEBUG);
-    
-    if ($isParError)
-    {
-       print "\n\n";
-       print "#################################################\n";
-       print "#        !!!Possible Placement Errors!!!        #\n";
-       print "#################################################\n\n";
-       
-       my $c="egrep \"FC_|HitInvert|ff_en_\" par.log";
-       system($c);
     }
 }
 
-
 if($par==1 || $all==1){
     system("rm $TOPNAME.ncd");
     #$c=qq|mpartrce -p "../$TOPNAME.p2t" -log "$TOPNAME.log" -o "$TOPNAME.rpt" -pr "$TOPNAME.prf" -tf "$TOPNAME.pt" "|.$TOPNAME.qq|_map.ncd" "$TOPNAME.ncd"|;
@@ -281,7 +240,7 @@ if($par==1 || $all==1){
 }
 
 
-if($timing==1 || $all==1){
+if($timing==1){
     # IOR IO Timing Report
     $c=qq|iotiming -s "$TOPNAME.ncd" "$TOPNAME.prf"|;
     execute($c);