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,MAILING_LIST_MULTI, REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,5fa303cecfab07f5 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2002-11-16 03:14:03 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!fr.usenet-edu.net!usenet-edu.net!enst.fr!not-for-mail From: "David C. Hoos, Sr." Newsgroups: comp.lang.ada Subject: Re: Get Integer into Enumeration_IO doesn't work Date: Sat, 16 Nov 2002 05:13:07 -0600 Organization: ENST, France Sender: comp.lang.ada-admin@ada.eu.org Message-ID: References: Reply-To: comp.lang.ada@ada.eu.org NNTP-Posting-Host: marvin.enst.fr Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: 7bit X-Trace: avanie.enst.fr 1037445242 27761 137.194.161.2 (16 Nov 2002 11:14:02 GMT) X-Complaints-To: usenet@enst.fr NNTP-Posting-Date: Sat, 16 Nov 2002 11:14:02 +0000 (UTC) Return-Path: X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2800.1106 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1106 Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org X-Mailman-Version: 2.0.13 Precedence: bulk List-Unsubscribe: , List-Id: comp.lang.ada mail<->news gateway List-Post: List-Help: List-Subscribe: , Errors-To: comp.lang.ada-admin@ada.eu.org X-BeenThere: comp.lang.ada@ada.eu.org Xref: archiver1.google.com comp.lang.ada:30975 Date: 2002-11-16T05:13:07-06:00 Why are you using Enumeration_IO to read numbers? Enumerations are types like this: type Color is (Red, Orange, Yellow, Green, Blue, Purple); Then, an Enumeration_IO package instantiated for the type Color would read the string "orange", and translate it to the Orange enumeration value which is represented in memory by the binary number 1. (0 for red, 2 for yellow, etc.). To input and output integers, you should use an instantiation of Ada.Text_IO.Integer_IO. ----- Original Message ----- From: "Amir Shaked" Newsgroups: comp.lang.ada To: Sent: November 16, 2002 4:17 AM Subject: Get Integer into Enumeration_IO doesn't work > Hello, > > The following code compiles and links > but fails on DATA_ERROR in run-time. > Can you tell me why? > > with Text_IO; > procedure PrintInt > is > Num : Integer; > package EnumIO is new Text_IO.Enumeration_IO(Integer); > begin > Text_IO.Put_Line ("Enter Num:"); > EnumIO.Get (Num); > end PrintInt; > _______________________________________________ > comp.lang.ada mailing list > comp.lang.ada@ada.eu.org > http://ada.eu.org/mailman/listinfo/comp.lang.ada > >