-- ***********************************************************************
-- Programmer Name : J. Allison/S. Mouton
-- Program Name : Enumeration_Image (generic)
-- Revision Number : Rev 1.0
-- Date Created : October 20, 1987
-- Function Description :
--   A generic function which takes an enumeration
--   type such as (ssn, name, addr) and returns a string equivalent of the
--   Ada declarative statement.
--   EXAMPLE ===> "type type_name is (ssn, name, addr);"
--   if an extension is needed on each type such as '_column' it is given
--   in the paramerter 'extension' and the resulting
--   strings will include this.
--   EXAMPLE ===> "type type_name is (ssn_column, name_column, addr_column);"
--*************************************************************************
generic
    type Enumeration_Type is (<>);
function Enumeration_Image
            (Type_Name : String; Extension : String := "") return String;