-- $Date: 2004/02/02 08:48:33 $
-- $Revision: 1.1 $
-- $Author: jcrocholl $

package String_Tools is

   -- Convert a string to lower case.
   procedure To_Lower
     (This : in out String); -- Change this string.

   -- Replace characters in a string.
   procedure Replace_Char
     (This : in out String-- Change this string.
      A, B : in Character); -- Replace A with B.

   -- Extract a filename from a path, or an identifier from a fully
   -- qualified dotted notation. Return the suffix of the string that
   -- comes after the last occurrence of Char.
   function Suffix_After_Char
     (This : in String;
      Char : in Character)
     return String;

end String_Tools;