remove those commands being commented out.

r3284 | jgn | 2011-11-25 10:46:10 +1100 (Fri, 25 Nov 2011) | 3 lines

site_ansto/instrument/tas/config/commands/commands.tcl

@@ -2,90 +2,6 @@
 
 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
 }