Added during MKs visit

r1460 | ffr | 2007-02-12 12:00:47 +1100 (Mon, 12 Feb 2007) | 2 lines

site_ansto/instrument/mksim_config.tcl

@@ -0,0 +1,28 @@
+#!/usr/bin/tclsh
+array set args $argv
+
+puts "# !!- AUTOGENERATED FROM $args(-f) -!!"
+puts "# !!- DO NOT MODIFY -!!"
+puts "# [clock format [clock seconds] -format %c]\n"
+
+proc unknown {args} {
+  set param [lindex $args 1];
+  set nonsim_motpars [list speed home hardlowerlim hardupperlim accel decel maxSpeed minSpeed maxAccel minDecel ]
+  if { [ lsearch -exact $nonsim_motpars $param ] == -1 } {
+    puts $args;
+  }
+}
+source ../utility.tcl
+proc my_proc {args} {puts "proc $args"}
+
+proc Motor {name type par} {
+  global motors
+  upvar #0 $par arr
+  upvar #0 $name param_arr
+  array set param_arr [array get arr]
+  lappend motors $name
+  puts "Motor $name SIM $param_arr(hardlowerlim) $param_arr(hardupperlim) -1.0"
+}
+rename proc _proc_
+rename my_proc proc
+source $args(-f)