adjustments to timings

r2433 | dcl | 2008-04-14 10:30:07 +1000 (Mon, 14 Apr 2008) | 2 lines

site_ansto/instrument/util/dmc2280/putDMCprog.tcl

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