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/temperature/sct_eurotherm_2000.tcl
View File

@@ -8,7 +8,7 @@ namespace eval ::scobj::et2000 {
# /tempcont/setpoint
# /tempcont/sensor/value
proc debug_log {args} {
set fd [open "/tmp/et2000.log" a]
set fd [open "../log/et2000.log" a]
puts $fd $args
close $fd
}
@@ -349,7 +349,7 @@ debug_log "halt $tc_root"
# @param port, the IP protocol port number of the device (502 for modbus)
# @param _tol (optional), this is the initial tolerance setting
proc add_et2000 {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
set fd [open "/tmp/et2000.log" a]
set fd [open "../log/et2000.log" a]
if {[SplitReply [environment_simulation]]=="false"} {
puts $fd "makesctcontroller sct_${name} modbus ${IP}:$port"
makesctcontroller sct_${name} modbus ${IP}:$port
@@ -362,7 +362,7 @@ proc add_et2000 {name IP port dev_id {_tol 5.0} {CID 1} {CTYPE T}} {
}
puts stdout "file evaluation of sct_eurotherm_2000.tcl"
set fd [open "/tmp/et2000.log" w]
set fd [open "../log/et2000.log" w]
puts $fd "file evaluation of sct_eurotherm_2000.tcl"
close $fd