Improve logging robustness

r3680 | dcl | 2012-07-26 15:46:07 +1000 (Thu, 26 Jul 2012) | 1 line

site_ansto/instrument/config/motors/sct_aerotech_soloist.tcl

@@ -22,14 +22,17 @@ namespace eval ::scobj::[set vendor]_[set device] {
 
   proc debug_log {debug_level arg_string} {
     # write a timestamped string message to a log file for debugging
+    set catch_status [ catch {
       set debug_threshold 0
       if {$debug_level >= $debug_threshold} {
         set fd [open "[set [namespace current]::log_file]" "a" 0777]
+        set catch_status [ catch {
           set line "[clock format [clock seconds] -format "%T"] $arg_string"
           puts $fd "$line"
-      puts "debug_log $line"
+      	} catch_message ]
         close $fd
       }
+    } catch_message ]
   }
 
   proc basename {node} {
@@ -308,6 +311,8 @@ namespace eval ::scobj::[set vendor]_[set device] {
     ###puts "[ns]::device [set [ns]::device]"
     ###puts "[ns]::ven_dev [set [ns]::ven_dev]"
     set [ns]::log_file "/tmp/[set [ns]::ven_dev]_[set name].log"
+    set fd [open "[set [namespace current]::log_file]" "w" 0777]
+    close $fd
     debug_log 1 "add_[set [ns]::vendor]_[set [ns]::device] ${name} ${IP} ${port} ${_tol}"
     if {[SplitReply [environment_simulation]]=="false"} {
       debug_log 1 "makesctcontroller sct_${name} std ${IP}:${port}"