##
# @file 
# A guide configuration table where each line describes the setup
# for a mode of operation.
# The table will have a corresponding interpretation list which provides
# commands to setup the instrument.

namespace eval optics {
# A configuration table is made up of a set of named rows which provide
# configuration parameters
# Rows can be of mixed type
array set guide_configuration {
  GA         {MT A  A  A  A  A  A  A  A  } 
  MT         {MT MT MT MT MT MT MT MT MT }
  LP         {MT MT MT MT MT MT MT MT LP } 
  LENS       {MT MT MT MT MT MT MT MT L  } 
  P1         {P  A  MT MT MT MT MT MT MT } 
  P1LP       {P  A  MT MT MT MT MT MT LP } 
  P1LENS     {P  A  MT MT MT MT MT MT L  } 
  G1         {G  A  MT MT MT MT MT MT MT } 
  P2         {P  G  A  MT MT MT MT MT MT } 
  G2         {G  G  A  MT MT MT MT MT MT } 
  P3         {P  G  G  A  MT MT MT MT MT } 
  G3         {G  G  G  A  MT MT MT MT MT } 
  P4         {P  G  G  G  A  MT MT MT MT } 
  G4         {G  G  G  G  A  MT MT MT MT } 
  P5         {P  G  G  G  G  A  MT MT MT } 
  G5         {G  G  G  G  G  A  MT MT MT } 
  P6         {P  G  G  G  G  G  A  MT MT } 
  G6         {G  G  G  G  G  G  A  MT MT } 
  P7         {P  G  G  G  G  G  G  A  MT } 
  G7         {G  G  G  G  G  G  G  A  MT } 
  P8         {P  G  G  G  G  G  G  G  A  } 
  G8         {G  G  G  G  G  G  G  G  A  } 
  P9         {P  G  G  G  G  G  G  G  G  } 
  G9         {G  G  G  G  G  G  G  G  G  } 
}

# This list maps the motor names to columns of the
# guide_configuration table.
set guide_configuration_columns {
              c1 c2 c3 c4 c5 c6 c7 c8 c9 
} 

}

namespace eval optics {
  variable guide_configuration
  variable guide_configuration_columns
  namespace export set_guide 
}
##
# @brief set_guide uses a lookup table to setup the collimation system
# @param row, selects a row from the guide configuration table
#
# eg\n
# set_guide HIRES 
proc ::optics::set_guide {row} {
  variable guide_configuration
  variable guide_configuration_columns

  array set c1_map {G 1 MT 2 P 3}
  array set c2_map {MT 1 G 2 A 3}
  array set c3_map {MT 1 G 2 A 3}
  array set c4_map {MT 1 G 2 A 3}
  array set c5_map {MT 1 G 2 A 3}
  array set c6_map {MT 1 G 2 A 3}
  array set c7_map {MT 1 G 2 A 3}
  array set c8_map {MT 1 G 2 A 3}
  array set c9_map {LP 1 MT 2 G 3 A 4 L 5}

  foreach el $guide_configuration($row) guide $guide_configuration_columns {
    lappend to_config $guide
    lappend to_config [set ${guide}_map($el)] 
  }
  eval "drive $to_config"
}
namespace import ::optics::set_guide

publish set_guide user