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

Update non-templated drivers to log to ../log/ instead of /tmp/

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-16 10:42:17 +10:00
parent 1010003d6c
commit fa3154bdcd
13 changed files with 35 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
site_ansto/instrument/config/environment/sct_keithley_2700.tcl
View File

@@ -19,7 +19,7 @@ namespace eval ::scobj::k2700 {
# /envcont/setpoint
# /envcont/sensor/value
proc debug_log {args} {
set fd [open "/tmp/k2700.log" a]
set fd [open "../log/k2700.log" a]
puts $fd "[clock format [clock seconds] -format "%T"] $args"
close $fd
}
@@ -665,7 +665,7 @@ debug_log "Registering node $nodeName for write callback"
# @param IP, the IP address of the device, this can be a hostname, (eg ca1-kowari)
# @param port, the IP protocol port number of the device
proc add_k2700 {name IP port terminator {_tol 1.0} {CID 1} {CTYPE V} } {
set fd [open "/tmp/k2700.log" a]
set fd [open "../log/k2700.log" a]
if {[SplitReply [environment_simulation]]=="false"} {
puts $fd "makesctcontroller sct_k2700 std ${IP}:$port"
makesctcontroller sct_k2700 std ${IP}:$port $terminator
@@ -676,7 +676,7 @@ proc add_k2700 {name IP port terminator {_tol 1.0} {CID 1} {CTYPE V} } {
}
puts stdout "file evaluation of sct_keithley_2700.tcl"
set fd [open "/tmp/k2700.log" w]
set fd [open "../log/k2700.log" w]
puts $fd "file evaluation of sct_keithley_2700.tcl"
close $fd