Ada problem

Ada problem

[ada_newbie]

Hello,

i'm new to ada and i have a simple problem. I don't know how to get an
output of enumeration types. The following example doesn't work:


with Ada.Text_IO;

procedure values is

   type Days is (monday, tuesday, wednesday); 

begin

   Ada.Text_IO.Put(Days'First);

end values;

Re: Ada problem

[Larry Hazel]

ada_newbie wrote:

> Hello,
> 
> i'm new to ada and i have a simple problem. I don't know how to get an
> output of enumeration types. The following example doesn't work:
> 
> 
> with Ada.Text_IO;
> 
> procedure values is
> 
>    type Days is (monday, tuesday, wednesday); 
> 
> begin

       Ada.Text_IO.Put(Days'Image(Days'First));

> end values;

Re: Ada problem

[Sandro Magi]

Or:

with Ada.Text_IO.Enumeration_IO;

procedure values is
��type�Days�is�(monday,�tuesday,�wednesday);
��package�Days_IO�is
�����������������new�Ada.Text_IO.Enumeration_IO�(Days);
begin

��Days_IO.Put(Days'First);

end values;


Larry Hazel wrote:

> ada_newbie wrote:
> 
>> Hello,
>> 
>> i'm new to ada and i have a simple problem. I don't know how to get an
>> output of enumeration types. The following example doesn't work:
>> 
>> 
>> with Ada.Text_IO;
>> 
>> procedure values is
>> 
>>����type�Days�is�(monday,�tuesday,�wednesday);
>> 
>> begin
> 
>��������Ada.Text_IO.Put(Days'Image(Days'First));
> 
>> end values;

Re: Ada problem

[Marin David Condic]

Sandro Magi wrote:
> Or:
> 
> with Ada.Text_IO.Enumeration_IO;
> 
> procedure values is
>   type Days is (monday, tuesday, wednesday);
>   package Days_IO is
>                  new Ada.Text_IO.Enumeration_IO (Days);
> begin
> 
>   Days_IO.Put(Days'First);
> 
> end values;
> 
Note also that it is a bit easier to include a "use" clause for the 
package instantiation:

with Ada.Text_IO.Enumeration_IO ;
procedure Values is
     type Days is (Monday, Tuesday, Wednesday) ;
     package
         Days_IO
     is new
         Ada.Text_IO.Enumeration_IO (Days) ;
     --
     use Days_IO ;
     --
begin
     for X in Days'Range loop
         Put (X) ;
     end loop ;
end Values ;

MDC
-- 
======================================================================
Marin David Condic
I work for: http://www.belcan.com/
My project is: http://www.jsf.mil/NSFrames.htm

Send Replies To: m   o   d   c @ a   m   o   g
                    c   n   i       c   .   r

     "Power corrupts.  Absolute power is kind of neat"
         -- John Lehman, Secretary of the Navy 1981-1987
======================================================================