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
    }
  }
}