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

Allow user to specify the server path for taipan and lyrebird

Browse Source 
r3315 | ffr | 2011-12-06 17:31:08 +1100 (Tue, 06 Dec 2011) | 2 lines
This commit is contained in:
Ferdi Franceschini
2011-12-06 17:31:08 +11:00
committed by Douglas Clowes
parent a7dbcafca8
commit 62acdb79a2
1 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -80,15 +80,24 @@ proc mkSimAxes {instrument} {
} }
} }
proc main {instrument args} { proc main {instrument sicspath args} {
cd ../sics/server; set currDir [pwd]
cd $sicspath;
loadConfig $args; loadConfig $args;
cd ../../fakeDMC; cd $currDir;
mkSimAxes $instrument; mkSimAxes $instrument;
} }
if {$tcl_interactive==0} { if {$tcl_interactive==0} {
puts "arguments = $argv" puts "arguments($argc) = $argv"
main $argv config/motors/motor_configuration.tcl; switch $argc {
1 { main $argv ../sics/server config/motors/motor_configuration.tcl }
2 { main [lindex $argv 0] [lindex $argv 1] config/motors/motor_configuration.tcl }
default {
puts "Usage: ./mkSimAxes.tcl <instrument>"
puts "or : ./mkSimAxes.tcl <instrument> <sics server path>"
puts "eg : ./mkSimAxes.tcl platypus ../sics/newserver"
}
}
} }