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.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,eb47d12144771853 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 1995-02-28 06:58:14 PST Path: bga.com!news.sprintlink.net!howland.reston.ans.net!paladin.american.edu!auvm!PSAVAX.PWFL.COM!CONDIC Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU Newsgroups: comp.lang.ada Message-ID: Date: Tue, 28 Feb 1995 09:58:14 EST Sender: Ada programming language From: CONDIC@PSAVAX.PWFL.COM Subject: Re: Q: Parse a line? Date: 1995-02-28T09:58:14-05:00 List-Id: From: Marin David Condic, 407.796.8997, M/S 731-93 Subject: Re: Q: Parse a line? Original_To: PROFS%"SMTP@PWAGPDB" Original_cc: CONDIC Kevin: Just in case you haven't received a dozen answers for this already... Check out LRM 14.3.8, par 17..23 if you're interested in real numbers. Here's an example: with TEXT_IO ; procedure FU is S : constant STRING := " 3.14159 " ; F : FLOAT := 0.0 ; L : INTEGER := 0 ; package BAR is new TEXT_IO.FLOAT_IO ( NUM => FLOAT ) ; use BAR ; begin BAR.GET ( FROM => S, ITEM => F, LAST => L ) ; end FU ; Good luck with it. Pax, Marin Marin David Condic, Senior Computer Engineer ATT: 407.796.8997 M/S 731-93 Technet: 796.8997 Pratt & Whitney, GESP Internet: CONDICMA@PWFL.COM P.O. Box 109600 Internet: MDCONDIC@AOL.COM West Palm Beach, FL 33410-9600 =============================================================================== Please send responses to one of the addresses in this trailer. A "reply" to the address in the message header will bounce. =============================================================================== "Don't say yes until I finish talking." -- Darryl F. Zanuck ===============================================================================