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

adjustments to timings

Browse Source 
r2433 | dcl | 2008-04-14 10:30:07 +1000 (Mon, 14 Apr 2008) | 2 lines
This commit is contained in:
Douglas Clowes
2008-04-14 10:30:07 +10:00
parent 4b17ca99da
commit 76e63de5a3
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
site_ansto/instrument/util/dmc2280/putDMCprog.tcl
View File

@@ -40,29 +40,37 @@ proc Echo { chan } {
flush stdout flush stdout
flush $chan flush $chan
after 500 after 500
# puts stdout "XQ #AUTO,0"
# puts $chan "XQ #AUTO,0"
# flush stdout
# flush $chan
# after 500
set forever done set forever done
exit exit
} else { } else {
set line [gets stdin] set line [gets stdin]
if { "$line" != "" } { if { "$line" != "" } {
set line_num [expr $line_num + 1] # puts stdout "$line_num: $line"
puts stdout "$line_num: $line" # set line_num [expr $line_num + 1]
puts $chan $line puts $chan $line
flush stdout flush stdout
flush $chan flush $chan
after 20 after 10
} }
} }
} }
puts stdout ""
puts $con4 ""
after 500
# Stop any execution that might interfere with the download # Stop any execution that might interfere with the download
puts stdout "HX" puts stdout "HX"
puts $con4 "HX" puts $con4 "HX"
after 50 after 500
# Start the download # Start the download
puts stdout "DL" puts stdout "DL"
puts $con4 "DL" puts $con4 "DL"
after 50 after 500
if { 0 } { if { 0 } {
fileevent $con4 writable [list Echo $con4] fileevent $con4 writable [list Echo $con4]
fileevent $con4 readable [list puts [gets $con4]] fileevent $con4 readable [list puts [gets $con4]]