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 #!/usr/bin/tclsh
# $Revision: 1.4 $ # $Revision: 1.5 $
# $Date: 2007-02-19 20:58:19 $ # $Date: 2007-08-16 07:06:58 $
# Author: Ferdi Franceschini (ffr@ansto.gov.au) # Author: Ferdi Franceschini (ffr@ansto.gov.au)
# Last revision by: $Author: ffr $ # Last revision by: $Author: ffr $
@@ -45,9 +45,9 @@ proc mkSimMotor {args} {
} }
} }
proc mkSimAxes {} { proc mkSimAxes {instrument} {
global IPtoContName motors ContList simConts; global IPtoContName motors ContList simConts;
array get IPtoContName; puts [array get IPtoContName];
puts $motors; puts $motors;
foreach c $ContList { foreach c $ContList {
@@ -70,7 +70,7 @@ proc mkSimAxes {} {
set enPos 0; set enPos 0;
set enCnts 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"; # eval "lappend $IPtoContName($motor(host))_motors $m";
} }
@@ -80,14 +80,15 @@ proc mkSimAxes {} {
} }
} }
proc main {args} { proc main {instrument args} {
cd ../sics/server; cd ../sics/server;
loadConfig $args; loadConfig $args;
cd ../../fakeDMC; cd ../../fakeDMC;
mkSimAxes; mkSimAxes $instrument;
} }
if {$tcl_interactive==0} { if {$tcl_interactive==0} {
main config/motors/motor_configuration.tcl; puts "arguments = $argv"
main $argv config/motors/motor_configuration.tcl;
} }