Re: Ada problem

[Sandro Magi <smagi@naasking.homeip.net>]

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;