linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Improve logging robustness

Browse Source 
r3680 | dcl | 2012-07-26 15:46:07 +1000 (Thu, 26 Jul 2012) | 1 line
This commit is contained in:
Douglas Clowes
2012-07-26 15:46:07 +10:00
parent d6ad841174
commit 45549fddb5
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
site_ansto/instrument/config/motors/sct_aerotech_soloist.tcl
View File

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