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

Wombat

Browse Source 
hipd/config/commands/commands.tcl
Added some of the procedures in extraconfig.tcl as "commands"

motors/sct_jogmotor_common.tcl
Added stop command.  Send SH, JG and BG commands on one line when jogging motor.

fakeDMC
dmc2280Server.tcl
mkSimAxes.tcl
simAxis.tcl
Added jog command.

exebuf.c
Batch file executor now sends a BATCHEND event when there is an AbortBatch interrupt.
This means we can now execute cleanup comands when a batch file terminates.

r2764 | ffr | 2009-01-23 16:06:03 +1100 (Fri, 23 Jan 2009) | 17 lines
This commit is contained in:
Ferdi Franceschini
2009-01-23 16:06:03 +11:00
committed by Douglas Clowes
parent fb817f2aa8
commit b134c901c5
6 changed files with 251 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
site_ansto/instrument/TEST_SICS/fakeDMC/dmc2280Server.tcl
View File

@@ -1,5 +1,5 @@
# $Revision: 1.3 $
# $Date: 2007-10-31 06:10:30 $
# $Revision: 1.4 $
# $Date: 2009-01-23 05:06:03 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -25,34 +25,36 @@ proc readLine {who channel} {
} else {
puts "RECEIVED: $line"
switch -glob $line {
"" {puts -nonewline $channel ":"}
"kill" {exit}
"SH*" - "BG*" - "PA*" - "DP*" - "AT*" - "MO*" - "ST*" - "SP*" - "AC*" - "DC*" {
eval [parse $line]
puts -nonewline $channel ":"
}
"TP*" - "TD*" - "TI*" - "XQ*" {
set output [eval [parse $line]]
puts $channel " $output"; puts -nonewline $channel ":"
}
"LV" {
set output [eval [parse $line]]
puts $channel "$output"; puts -nonewline $channel ":"
}
"TS*" {
set output [eval [parse $line]]
puts $channel " $output"; puts -nonewline $channel ":"
}
"TC 1" {
puts $channel " DMC2280 ERROR"; puts -nonewline $channel ":"
}
"MG *" {
set output [eval [parse $line]]
puts $channel " $output"; puts -nonewline $channel ":"
foreach cmd [split $line ";"] {
switch -glob $cmd {
"" {puts -nonewline $channel ":"}
"kill" {exit}
"SH*" - "BG*" - "PA*" - "PR*" - "JG*" - "DP*" - "AT*" - "MO*" - "ST*" - "SP*" - "AC*" - "DC*" {
eval [parse $cmd]
puts -nonewline $channel ":"
}
"TP*" - "TD*" - "TI*" - "XQ*" {
set output [eval [parse $cmd]]
puts $channel " $output"; puts -nonewline $channel ":"
}
"LV" {
set output [eval [parse $cmd]]
puts $channel "$output"; puts -nonewline $channel ":"
}
"TS*" {
set output [eval [parse $cmd]]
puts $channel " $output"; puts -nonewline $channel ":"
}
"TC 1" {
puts $channel " DMC2280 ERROR"; puts -nonewline $channel ":"
}
"MG *" {
set output [eval [parse $cmd]]
puts $channel " $output"; puts -nonewline $channel ":"
}
}
flush $channel;
}
flush $channel;
set didRead 1
}
return;