39 lines
815 B
Tcl
39 lines
815 B
Tcl
set sim_mode [SplitReply [plc_simulation]]
|
|
|
|
namespace eval plc {
|
|
}
|
|
|
|
proc ::plc::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 true
|
|
}
|
|
}
|
|
}
|
|
|
|
if {$sim_mode == "true"} {
|
|
proc ::plc::inst_ready {} {
|
|
variable readyflag
|
|
return $readyflag
|
|
}
|
|
proc ::plc::set_readyflag {flag} {
|
|
variable readyflag
|
|
set readyflag $flag
|
|
}
|
|
::plc::set_readyflag 1
|
|
publish ::plc::set_readyflag user
|
|
} else {
|
|
##
|
|
# @brief Check if instrument is ready
|
|
#
|
|
# @return 1: if ready, 0: if not ready
|
|
proc ::plc::inst_ready {} {
|
|
if {[SplitReply [plc plc_ready]] == "TRUE"} {
|
|
return 1
|
|
} else {
|
|
return 0
|
|
}
|
|
}
|
|
}
|