Return to characters_and_numbers.ads CVS log

Up to [local] / OpenXM_contrib / PHC / Ada / Math_Lib / Numbers

Initial revision

with text_io;                            use text_io;

package Characters_and_Numbers is

-- DESCRIPTION :
--   This package offers some utilities for the input/output routines
--   of arbitrary precision numbers.

  function Convert ( c : character ) return natural;

  -- DESCRIPTION :
  --   Returns 10 if the character does not represent a number
  --   between 0 and 9, otherwise returns the corresponding number.

  function Convert ( s : String ) return natural;

  -- DESCRIPTION :
  --   Converts the string into a number, the string is supposed to
  --   contain a number in decimal format.

  function Convert_Decimal ( n : natural ) return character;

  -- DESCRIPTION :
  --   Returns the character representation of the number n in [0,9].

  function Convert_Hexadecimal ( c : character ) return natural;

  -- DESCRIPTION :
  --   Returns the numerical representation of the character,
  --   if it is a hexadecimal symbol, otherwise 16 is returned.

  function Convert_Hexadecimal ( n : natural ) return character;

  -- DESCRIPTION :
  --   Returns the character representation of the number n in [0,15].

  function Convert ( n : natural ) return String;

  -- DESCRIPTION :
  --   Returns the representation of the natural number as a string
  --   of characters.

  procedure Skip_Spaces ( file : in file_type; c : in out character );

  -- DESCRIPTION :
  --   Scans the file for the first character that is not a space.
  --   That character is returned as the parameter c on return.

  procedure Skip_Underscores ( file : in file_type; c : in out character );

  -- DESCRIPTION :
  --   Scans the file for the first character that is not an underscore.
  --   That character is returned as the parameter c on return.

end Characters_and_Numbers;