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

Adapted for asyncqueue

Browse Source 
r2131 | ffr | 2007-08-16 17:06:58 +1000 (Thu, 16 Aug 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-08-16 17:06:58 +10:00
committed by Douglas Clowes
parent b09d07915c
commit 00b91be2ae
1 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
site_ansto/instrument/TEST_SICS/fakeDMC/mkSimAxes.tcl
View File

@@ -1,7 +1,7 @@
#!/usr/bin/tclsh
# $Revision: 1.4 $
# $Date: 2007-02-19 20:58:19 $
# $Revision: 1.5 $
# $Date: 2007-08-16 07:06:58 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $
@@ -45,9 +45,9 @@ proc mkSimMotor {args} {
}
}
proc mkSimAxes {} {
proc mkSimAxes {instrument} {
global IPtoContName motors ContList simConts;
array get IPtoContName;
puts [array get IPtoContName];
puts $motors;
foreach c $ContList {
@@ -70,7 +70,7 @@ proc mkSimAxes {} {
set enPos 0;
set enCnts 0;
}
puts $simFile($IPtoContName($motor(host))) "array set $nm \[\list TD 0 TP $enPos SP $speed AC $acc DC $dec cntsperx $enCnts stepsperx $motor(stepsperx) PA 0 TS 44 \]";
puts $simFile($IPtoContName($motor(asyncqueue)-$instrument)) "array set $nm \[\list TD 0 TP $enPos SP $speed AC $acc DC $dec cntsperx $enCnts stepsperx $motor(stepsperx) PA 0 TS 44 \]";
# eval "lappend $IPtoContName($motor(host))_motors $m";
}
@@ -80,14 +80,15 @@ proc mkSimAxes {} {
}
}
proc main {args} {
proc main {instrument args} {
cd ../sics/server;
loadConfig $args;
cd ../../fakeDMC;
mkSimAxes;
mkSimAxes $instrument;
}
if {$tcl_interactive==0} {
main config/motors/motor_configuration.tcl;
puts "arguments = $argv"
main $argv config/motors/motor_configuration.tcl;
}