Re: Q: Parse a line?

[CONDIC@PSAVAX.PWFL.COM]

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
===============================================================================