Re: beginner array question

["David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>]

You need to do it like this:

function is_final(current_state:Something ;final:something_array) return boolean is
  begin
     for i in final'range loop
        if current_state = final (i) then
           return true;
        end if;
     end loop
     return false;
  end is_final;

----- Original Message ----- 
From: "lolo27" <limor_ru@walla.co.il>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada-france.org>
Sent: November 20, 2003 4:34 AM
Subject: beginner array question


> hi
> i am writing a generic package
> generic
>    ---------general parameters-----------
>    type Someting is(<>);
>    type something_array is Array (integer range<>) of Someting ;   
> 
> ---------------------------------------------------
> in the adb file i want to ask the following 
>  function is_final(current_state:Someting ;final:something_array ) return boolean is
>    begin
>       if current_state in final'First..final'Last then
>          return true;
>       else
>          return false;
>       end if;  
>    end is_final;
>    
>    ----
> 
> how can i ask if current_state is in final
> 
> thanks a lot
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada-france.org
> http://www.ada-france.org/mailman/listinfo/comp.lang.ada
> 
>