New upstream version 1.3.106

1 files changed, 20 insertions, 3 deletions

diff --git a/qrouter.tcl.in b/qrouter.tcl.in
index ce5b874..771fa27 100644
--- a/qrouter.tcl.in
+++ b/qrouter.tcl.in
@@ -96,6 +96,10 @@ proc qrouter::write_congested {filename} {
 
 proc qrouter::standard_route {{filename ""} {doquit true}} {
     puts stdout "*** Running stage1 routing with defaults"
+    # Pull root name from filename
+    set rootname [file root $filename]
+    set deffilename ${rootname}.def
+    set rcfilename ${rootname}.rc
     set result [stage1]
     if {$result > 0} {
 	set msize 10
@@ -155,13 +159,26 @@ proc qrouter::standard_route {{filename ""} {doquit true}} {
 	    }
 	}
     }
-    if {$filename != ""} {
-        puts stdout "*** Writing DEF file $filename"
-	write_def $filename
+    if {${rootname} != ""} {
+        puts stdout "*** Writing DEF file $deffilename"
+	write_def $deffilename
     } else {
         puts stdout "*** Writing DEF file (default)"
 	write_def
     }
+
+    if {$result > 0} {
+	write_failed fail.out
+    }
+
+    if {${rootname} != ""} {
+        puts stdout "*** Writing RC file $rcfilename"
+	write_delays $rcfilename
+    } else {
+        puts stdout "*** Writing RC file (default)"
+	write_delays
+    }
+
     if {(!$result) && $doquit} {quit}
 }