From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,f17381a34283299
X-Google-Attributes: gid103376,public
From: blaak@infomatch.com (Ray Blaak)
Subject: Re: Enumeration I/O
Date: 1998/02/11
Message-ID: <6bsspb$gua$1@berlin.infomatch.com>#1/1
X-Deja-AN: 324197016
References: <34DF9BBF.9FEA859B@er.uqam.ca>
 <01bd3645$3e8b45c0$LocalHost@xhv46.dial.pipex.com>
X-Complaints-To: usenet@berlin.infomatch.com
X-Trace: berlin.infomatch.com 887223915 17354 (None) 199.60.99.1
Organization: InfoMatch Internet - Vancouver BC
Keywords: abstraction
Newsgroups: comp.lang.ada
Date: 1998-02-11T00:00:00+00:00
List-Id: <comp.lang.ada>


>Melanie Shatilla <hj791520@er.uqam.ca> wrote in article
>>     TYPE Symbols is ('%', '$', 'a');
>>     Symb : Symbols := '$';
[...]
>> Obviously, I've thought of writing something like :
>> 
>>     If Symb = '$' then
>>         Text_IO.Put ('$');
>>     end if;
>> 
>> ..but there must be a more convenient way, I hope! Any suggestions
>> anyone ?

  type ImageMap is array (Symbols) of Character;
  TheImageMap : constant ImageMap := ('$' => '$',
                                      '%' => '%',
									  'a' => 'a');
  ...
  Text_Io.Put (TheImageMap(Symb));

Cheers,                                        The Rhythm is around me,
                                               The Rhythm has control.
Ray Blaak                                      The Rhythm is inside me,
blaak@infomatch.com                            The Rhythm has my soul.