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: "John J. Cupak Jr." Subject: Re: Enumeration I/O Date: 1998/02/10 Message-ID: <34E09277.41C67EA6@swl.msd.ray.com>#1/1 X-Deja-AN: 323813668 Content-Transfer-Encoding: 7bit References: <34DF9BBF.9FEA859B@er.uqam.ca> To: Melanie Shatilla Content-Type: text/plain; charset=us-ascii Organization: Raytheon Company Mime-Version: 1.0 Newsgroups: comp.lang.ada Date: 1998-02-10T00:00:00+00:00 List-Id: Melanie Shatilla wrote: > Well, Melanie, You've gotten a number of interesting answers posted to this newsgroup, and, I presume, e-mailed to you. All of which address your specific question: > I've declared an enumeration type with character literals, and a > variable of this type, for example : > TYPE Symbols is ('%', '$', 'a'); > Symb : Symbols := '$'; > > package Symbols_IO is new Text_IO.Enumeration_IO(Symbols); > > When I give the instruction : > Symbols_IO.Put(Symb); > > ...I get the right symbol but with the quotes (and I don't want them). > Obviously, I've thought of writing something like : > > If Symb = '$' then > Text_IO.Put ('$'); > end if; > However, I think that you are declaring and using this information for a purpose which you didn't identify. And, because of this, I think that the correct answer depends on what you're trying to do, rather than what the problem is with your syntax. My guess is that you can use a CASE statement to check an input character, then perform some action(s) based on which character you've read. Hope this points you an another direction to look for the answer. Good luck! -- ---------------------------------------------------------------- - John J. Cupak Jr, CCP - - Raytheon Electronic Systems: Software Engineering Laboratory - - tel: 508-858-1222 email (work): jcj@swl.msd.ray.com - - fax: 508-858-4336 email (home): jcupak@aol.com - ----------------------------------------------------------------