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

Change puts to clientput to avoid error on stdout undefined

Browse Source
This commit is contained in:
Douglas Clowes
2014-06-30 13:44:14 +10:00
parent 202004766a
commit 7960cb73a0
7 changed files with 276 additions and 232 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -10,15 +10,15 @@ set device "soloist"
namespace eval ::scobj::[set vendor]_[set device] {
# All of this takes place in a namespace based on the vendor and device
# Debug prints and vendor/device save
puts "Namespace: [namespace current]"
puts "Vendor:[set vendor]"
puts "Device:[set device]"
clientput "Namespace: [namespace current]"
clientput "Vendor:[set vendor]"
clientput "Device:[set device]"
set [namespace current]::vendor [set ::vendor]
set [namespace current]::device [set ::device]
set [namespace current]::ven_dev "[set ::vendor]_[set ::device]"
puts "[namespace current]::vendor [set [namespace current]::vendor]"
puts "[namespace current]::device [set [namespace current]::device]"
puts "[namespace current]::ven_dev [set [namespace current]::ven_dev]"
clientput "[namespace current]::vendor [set [namespace current]::vendor]"
clientput "[namespace current]::device [set [namespace current]::device]"
clientput "[namespace current]::ven_dev [set [namespace current]::ven_dev]"
proc debug_log {debug_level arg_string} {
# write a timestamped string message to a log file for debugging
@@ -284,12 +284,12 @@ namespace eval ::scobj::[set vendor]_[set device] {
}
proc add_[set vendor]_[set device] {name IP port {_tol 5.0}} {
###puts "Namespace: [ns]"
###puts "::vendor $::vendor"
###puts "::device $::device"
###puts "[ns]::vendor [set [ns]::vendor]"
###puts "[ns]::device [set [ns]::device]"
###puts "[ns]::ven_dev [set [ns]::ven_dev]"
###clientput "Namespace: [ns]"
###clientput "::vendor $::vendor"
###clientput "::device $::device"
###clientput "[ns]::vendor [set [ns]::vendor]"
###clientput "[ns]::device [set [ns]::device]"
###clientput "[ns]::ven_dev [set [ns]::ven_dev]"
set [ns]::log_file "../log/[set [ns]::ven_dev]_[set name].log"
set fd [open "[set [namespace current]::log_file]" "w" 0777]
close $fd