linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Set metadata for plc variables.

Browse Source 
r2118 | ffr | 2007-08-16 15:42:07 +1000 (Thu, 16 Aug 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-08-16 15:42:07 +10:00
committed by Douglas Clowes
parent 01890b5cff
commit 530436b257
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
site_ansto/instrument/config/plc/plc_common_1.tcl
View File

@@ -1,13 +1,10 @@
namespace eval plc {
proc status_hpath_setup {parent} {
set plcPath $parent/plc
hmake $plcPath spy none;
hsetprop $plcPath type part;
proc set_sobj_attributes {} {
set objlist [sicslist match plc_*];
foreach v $objlist {
if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
hattach $plcPath $v [string replace $v 0 3];
if { [SplitReply [sicslist $v type]]== "SicsVariable"} {
::utility::mkData $v [string replace $v 0 3] plc privilege user control true data false
}
}
}
}
}