source $cfPath(commands)/commands_common.tcl

namespace eval motor {
# is_homing_list = comma separated list of motors which are safe to send "home"
    variable is_homing_list ""
}

#namespace eval sample {
#  command select {int=0:8 sampid} {
#    SampleNum $sampid
#  }
#}


#namespace eval beamstops {
# command selbsn {int=1,2,3,4,5,6 bs} {
#   selbs $bs "UNDEF" "UNDEF"
# }
# command selbsxz {int=1,2,3,4,5,6 bs float bx float bz} {
#   selbs $bs $bx $bz
# }
#}

#namespace eval optics {
#	VarMake ::optics::select::section text user
#	VarMake ::optics::polarizer::in   text user
#	VarMake ::optics::lens::selection text user
	
#  command rotary_attenuator {int=0,15,45,90,180 angle} {
#    drive att $angle
#  }

#  command entrance_aperture {
#    int=0,45,90,135,180,270 angle
#  } {
#    drive srce $angle
#  }

# TODO Do we need this
# command sample_aperture {
#   int=25,50 size
#   text=circ,squ,open,rect shape
# } {
#   SApXmm $size
#   SApZmm $size
#   SApShape $shape
# }

##############################
##
# @brief The "guide" command uses a lookup table to setup the collimation system
# @param row, selects a row from the guide configuration table
#
# eg\n
# guide ga 
#  command guide "
#  text=[join [array names ::optics::guide_configuration] , ] configuration
#  " {
#
#    variable guide_configuration
#    variable guide_configuration_columns
#
#    if [ catch {
#
#      foreach {compselection position} $guide_configuration($configuration) {
#        foreach el $compselection guide $guide_configuration_columns {
#          lappend to_config $guide
#          lappend to_config [set ::optics::${guide}_map($el)] 
#        }
#        ::optics::guide -set feedback status BUSY
#        set msg [eval "drive $to_config"]
#        EApPosY $position
#      }
#      GuideConfig $configuration
#    } message ] {
#      ::optics::guide -set feedback status IDLE
#      if {$::errorCode=="NONE"} {return $message}
#      return -code error $message
#    }
#    ::optics::guide -set feedback status IDLE
#  }
#  ::optics::guide -addfb text status
#  ::optics::guide -set feedback status IDLE
#}


proc ::commands::isc_initialize {} {
  ::commands::ic_initialize
}