make prcd_compile and prcd_server more robust and user-friendly.

add catch calls to prcd_server so that if the user ctrl-C's out of the
client, we have less of a risk of things hanging. add more output
to prcd_comiple so that the user gets more of an indication that things
are happening, so that they hopefully won't ctrl-C out in the middle.

Change-Id: Iecb656f029bd7b849212751be320be2d0b7ceea5
RTC: 42908
Reviewed-on: http://gfw160.austin.ibm.com:8080/gerrit/1133
Tested-by: Jenkins Server
Reviewed-by: A. Patrick Williams III <iawillia@us.ibm.com>

1 files changed, 16 insertions, 7 deletions

diff --git a/src/build/hwpf/prcd_server.tcl b/src/build/hwpf/prcd_server.tcl
index e62a0ba85..b5ead5d97 100755
--- a/src/build/hwpf/prcd_server.tcl
+++ b/src/build/hwpf/prcd_server.tcl
@@ -254,10 +254,14 @@ proc AquireData { sock } {
             flush $sock
             flush $log
         } elseif {[string compare $line ":HWP_RETRIEVE"] == 0} {
-            SendObjFiles $sock "$sb_dir/$sbname($sock)/img"
-            puts $sock ":DONE"
-            puts $log "$sock: DONE"
-            flush $sock
+            if { [catch {SendObjFiles $sock "$sb_dir/$sbname($sock)/img"} res]} {
+                puts $log "$sock: ERROR: SendObjFiles interrupted: $res\n"
+                flush $log
+            } else {
+                puts $sock ":DONE"
+                puts $log "$sock: DONE"
+                flush $sock
+            }
         } elseif {[string compare $line ":HWP_DONE"] == 0} {
             puts $sock ":DONE"
             puts $log "$sock: DONE"
@@ -276,9 +280,14 @@ proc AquireData { sock } {
                 puts $sock "Unknown command: $line"
                 puts $log "$sock: Unknown command: $line"
             }
-            puts $sock ":DONE"
-            puts $log "$sock: DONE"
-            flush $sock
+            if { [catch {puts $sock ":DONE"} res]} {
+                puts $log "$sock: ERROR: puts failed: $res\n"
+                flush $log
+            } else {
+                puts $log "$sock: DONE"
+                flush $log
+                flush $sock
+            }
         }
     }
 }