Set long_name attribute on positmotors because they're required by the hdb builder.
r2897 | ffr | 2010-04-30 14:50:41 +1000 (Fri, 30 Apr 2010) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
c3ed712321
commit
e55126cd8c
@@ -54,6 +54,7 @@ proc mkPosit {sct_controller name type motor klass table} {
|
|||||||
set ns ::scobj::positmotor
|
set ns ::scobj::positmotor
|
||||||
MakeSICSObj $name SCT_OBJECT user $type
|
MakeSICSObj $name SCT_OBJECT user $type
|
||||||
sicslist setatt $name klass $klass
|
sicslist setatt $name klass $klass
|
||||||
|
sicslist setatt $name long_name $name
|
||||||
hfactory /sics/$name/precision script "getmotpar $motor precision" "$motor precision " float 1
|
hfactory /sics/$name/precision script "getmotpar $motor precision" "$motor precision " float 1
|
||||||
hsetprop /sics/$name read ::scobj::positmotor::reqVal report $motor
|
hsetprop /sics/$name read ::scobj::positmotor::reqVal report $motor
|
||||||
hsetprop /sics/$name report ::scobj::positmotor::rptVal ::scobj::positmotor::mot2ID $table /sics/$name/precision
|
hsetprop /sics/$name report ::scobj::positmotor::rptVal ::scobj::positmotor::mot2ID $table /sics/$name/precision
|
||||||
@@ -72,6 +73,7 @@ proc mkPosit {sct_controller name type motor klass table} {
|
|||||||
publish ${ns}::${motor}_MOTEND user
|
publish ${ns}::${motor}_MOTEND user
|
||||||
|
|
||||||
scriptcallback connect $motor MOTEND ${ns}::${motor}_MOTEND
|
scriptcallback connect $motor MOTEND ${ns}::${motor}_MOTEND
|
||||||
|
::scobj::hinitprops $name
|
||||||
$sct_controller poll /sics/$name 2
|
$sct_controller poll /sics/$name 2
|
||||||
$sct_controller write /sics/$name
|
$sct_controller write /sics/$name
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user