11 lines
298 B
Tcl
11 lines
298 B
Tcl
namespace eval plc {
|
|
proc set_sobj_attributes {} {
|
|
set objlist [sicslist match plc_*];
|
|
foreach v $objlist {
|
|
if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
|
|
::utility::mkData $v [string replace $v 0 3] plc privilege user control true data false
|
|
}
|
|
}
|
|
}
|
|
}
|