-- $Date: 2004/01/28 10:25:02 $
-- $Revision: 1.3 $
-- $Author: jcrocholl $

generic

   -- Generic type for any precision floating point number.
   type Number is digits <>;

-- Generic package for conversion between floating point numbers and strings.
package Digits_Strings is

   Default_Tolerance : Number := 0.01;

   -- Convert a string to a number.
   function To_Number
     (Value : in String-- Convert this string.
     return Number;      -- The floating point number.

   -- Convert a number to a string.
   function To_String
     (Value     : in Number-- Convert this number.
      Tolerance : in Number-- Cut-off precision.
     return String;          -- The decimal string representation.

   -- Convert a number to a string.
   function To_String
     (Value : in Number-- Convert this number.
     return String;      -- The decimal string representation.

end Digits_Strings;