Merged changes from Quokka as at 2015-02-18
This commit is contained in:
@@ -33,8 +33,12 @@ proc ::scobj::antonparr_MCR500::mkDriver { speed_name torque_name tol settle } {
|
||||
set catch_status [ catch {
|
||||
|
||||
# mkDriver hook code starts
|
||||
if [::utility::obj_exists $speed_name] {
|
||||
add_rheo $speed_name $tol $settle
|
||||
}
|
||||
if [::utility::obj_exists $torque_name] {
|
||||
add_rheo $torque_name $tol $settle
|
||||
}
|
||||
# mkDriver hook code ends
|
||||
} catch_message ]
|
||||
handle_exception ${catch_status} ${catch_message}
|
||||
|
||||
@@ -100,4 +100,5 @@ proc add_rheo {rhControl tol settle} {
|
||||
hfactory /sics/$rhControl/settletime plain user float
|
||||
hset /sics/$rhControl/settletime $settle
|
||||
hsetprop /sics/$rhControl timecheck 0
|
||||
hsetprop /sics/$rhControl callBack "rhCallBack /sics/$rhControl"
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user