From: blaak@infomatch.com (Ray Blaak)
Subject: Re: Enumeration I/O
Date: 1998/02/11
Date: 1998-02-11T00:00:00+00:00 [thread overview]
Message-ID: <6bsspb$gua$1@berlin.infomatch.com> (raw)
In-Reply-To: 01bd3645$3e8b45c0$LocalHost@xhv46.dial.pipex.com
>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.
next prev parent reply other threads:[~1998-02-11 0:00 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-02-10 0:00 Enumeration I/O Melanie Shatilla
1998-02-09 0:00 ` Matthew Heaney
1998-02-10 0:00 ` Nick Roberts
1998-02-11 0:00 ` Ray Blaak [this message]
1998-02-10 0:00 ` John J. Cupak Jr.
-- strict thread matches above, loose matches on Subject: below --
1990-05-08 15:45 Rick Conn
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox