test program for enumeration_IO

[mfeldman@seas.gwu.edu (Mike Feldman)]

WITH Text_IO;
PROCEDURE Colors IS
 
    TYPE English_Colors IS 
       (white, black, red, purple, blue, green, yellow, orange);
           
    TYPE French_Colors IS 
       (blanc, noir, rouge, pourpre, bleu, vert, jaune, orange);
           
    PACKAGE English_Color_IO IS 
       NEW Text_IO.Enumeration_IO (Enum => English_Colors);
 
    PACKAGE French_Color_IO IS 
       NEW Text_IO.Enumeration_IO (Enum => French_Colors);
 
    Eng_Color : English_Colors;
    Fr_Color  : French_Colors;
    Position  : Natural;
     
BEGIN
  Text_IO.Put (Item => "Please enter an English color >");
  English_Color_IO.Get (Item => Eng_Color);

  Position := English_Colors'Pos(Eng_Color);
  Fr_Color  := French_Colors'Val(Position);
   
  Text_IO.Put (Item => "The French color is ");

  -- the first line below will compile;
  -- will the second line?
  French_Color_IO.Put (Item => Fr_Color);
  French_Color_IO.Put (Item => Fr_Color, Set => Lower_Case);
  Text_IO.New_Line;
END Colors;