14 lines
351 B
Tcl
14 lines
351 B
Tcl
namespace eval plc {
|
|
proc status_hpath_setup {parent} {
|
|
set plcPath $parent/plc
|
|
hmake $plcPath spy none;
|
|
hsetprop $plcPath type part;
|
|
set objlist [sicslist match plc_*];
|
|
foreach v $objlist {
|
|
if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
|
|
hattach $plcPath $v [string replace $v 0 3];
|
|
}
|
|
}
|
|
}
|
|
}
|