-- $Date: 2004/03/01 01:28:51 $
-- $Revision: 1.2 $
-- $Author: jcrocholl $

package Enum_Strings is

   -- Convert an enumeration type image into an XML entity name.
   function To_XML
     (This : in String-- Convert this enumeration type image.
     return String;     -- The XML formatted string value.

   Expectation : exception;

   generic type Enum is (<>);

   -- Translate an XML entity name into the corresponding enumeration
   -- value.
   function To_Enum
     (Name : in String)
     return Enum;

   function To_Boolean
     (This : in String)
     return Boolean;

end Enum_Strings;