project New_Value is

   type A_Type is
      ("A2", "A1", "1", "2");
   A_Var : A_Type := external ("A", "2");

   case A_Var is

      when "1" =>
         for Object_Dir use ".";
   end case;

end New_Value;

