From f934f6f0a3ea8981b7229ce4c742c3e132dd1e0a Mon Sep 17 00:00:00 2001
From: AurelienUoU <u1235811@lnissrv4.eng.utah.edu>
Date: Tue, 28 May 2019 15:01:16 -0600
Subject: [PATCH] Debug step

---
 fpga_flow/scripts/fpga_flow.pl | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/fpga_flow/scripts/fpga_flow.pl b/fpga_flow/scripts/fpga_flow.pl
index cc3a9d87f..f0350841e 100644
--- a/fpga_flow/scripts/fpga_flow.pl
+++ b/fpga_flow/scripts/fpga_flow.pl
@@ -1430,9 +1430,27 @@ sub run_std_vpr($ $ $ $ $ $ $ $ $)
   if ("on" eq $opt_ptr->{vpr_max_router_iteration}) {
     $other_opt .= "--max_router_iterations $opt_ptr->{vpr_max_router_iteration_val} ";
   }
-  print "\n\n./$vpr_name $arch $blif --net_file $net --place_file $place --route_file $route --full_stats --nodisp $power_opts $packer_opts $chan_width_opt $vpr_spice_opts $other_opt > $log\n\n";
+  print "./$vpr_name $arch $blif --net_file $net --place_file $place --route_file $route --full_stats --nodisp $power_opts $packer_opts $chan_width_opt $vpr_spice_opts $other_opt > $log\n";
   system("./$vpr_name $arch $blif --net_file $net --place_file $place --route_file $route --full_stats --nodisp $power_opts $packer_opts $chan_width_opt $vpr_spice_opts $other_opt > $log");
 
+  open(F, $log);
+  my @lines=<F>;
+  close F;
+  my @results = grep(" ", @lines);
+  if($#results >= 1){
+    foreach my $line (0..$#results){
+      print "$results[$line]\n";
+    }
+  }
+  if ("on" eq $opt_ptr->{vpr_fpga_verilog_dir}) {
+    opendir my($dh), $opt_ptr->{vpr_fpga_verilog_dir_val} or die "\nFolder not created!!\n\n";
+    my @files = readdir $dh;
+    closedir $dh;
+    foreach my $file (0..$#files){
+      print "$files[$file]\t";
+    }
+    print "\n";
+  }
   chdir $cwd;
 }