Re: enumeration type

["Jack Flynn" <flynnjai@comcast.net>]

"Rick Santa-Cruz" <rick_santa_cruz75@msn.com> wrote in message 
news:cj7lvp$ao3$00$1@news.t-online.com...
> > I know that such doesn't work in ada, but how can I access the elements 
> > of
> an enumeration directly with the full qualified name?

your post indicates function so try something along these lines:

procedure p is

   type fuzzy is (false,maybe,true);

   function "=" (f : fuzzy;

                           b : boolean) return boolean;

   function "=" (f : fuzzy;

                           b : boolean) return boolean is


   begin

      case f is

         when true =>

            return b;

         when false =>

            return not b;

         when maybe =>

            return false;-- or use more complicated parameterized function 
call

      end case;


   end "=";

   zadeh : fuzzy := maybe;

   good : boolean;

begin

   good := (zadeh = standard.false) and not (zadeh = standard.true);

end p;


>
> Thanks in advance for your help,
> Rick
>
>