Re: Converting Char to Enum

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

----- Original Message ----- 
From: "Lars Noschinski" <lars@usenet.noschinski.de>
Newsgroups: comp.lang.ada
To: <comp.lang.ada@ada.eu.org>
Sent: Monday, March 04, 2002 10:36 AM
Subject: Re: Converting Char to Enum


> "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com> wrote:
> > I think the reason that V'alue and 'Image  are not appropriate
> > for the original poster's case is that his case was a subset of
> > the type Character.
> 
> | type Symbols is ('0', '1', 'B', 'T', 'U');
> 
> Is that really a subset of character? I'm asking, because the following 
> code prints "'0'", "'B'" etc. and not "0", "B".
> 
Take a look at two things, viz.:

   1.  The definition of the Character type in LRM A.1 (35)

   2.   The output of this program:

with Ada.Text_IO;
procedure Lars
is
   type Symbols is ('0', '1', 'B', 'T', 'U');

   package Symbol_IO is new Ada.Text_IO.Enumeration_IO (Symbols);

   package Character_IO is new Ada.Text_IO.Enumeration_IO (Character);

begin
   Ada.Text_IO.Put_Line ("Symbols:");
   for S in Symbols loop
      Symbol_IO.Put (S);
      Ada.Text_IO.Put (", ");
   end loop;
   Ada.Text_IO.New_Line (2);
   Ada.Text_IO.Put_Line ("Characters:");
   for C in Character loop
      Character_IO.Put (C);
      Ada.Text_IO.Put (", ");
   end loop;
   Ada.Text_IO.New_Line (2);
end Lars;
> --------------------------------------------------------------------
> procedure Put_Symbol(sym : symbol) is
> 
>     package TIO is new Ada.Text_Io.Enumeration_Io(Symbols);
> 
> begin -- Put_Symbol
>   TIO.Put(Sym);
> end Put_Symbol.
> --------------------------------------------------------------------
> 
> 
> CU Lars Noschinski
> _______________________________________________
> comp.lang.ada mailing list
> comp.lang.ada@ada.eu.org
> http://ada.eu.org/mailman/listinfo/comp.lang.ada
>