29 lines
771 B
Tcl
Executable File
29 lines
771 B
Tcl
Executable File
#!/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)
|