Re: Generic package with dynamic subprogram name?

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

"Jeffrey R. Carter" <spam.jrcarter.not@spam.acm.org> writes:

> Marek Janukowicz wrote:
>>
>> generic
>>   Attr : String;
>> package Get_Set is
>>   function Get_Attribute return String;
>>   procedure Set_Attribute ( Value : String );
>> end Get_Set;
>>
>> But if I then instantiate:
>> package Get_Set_First_Name is new Get_Set( "FirstName" );
>> package Get_Set_Last_Name is new Get_Set( "LastName" );
>>
>> subprogram names will overlap. I know I can call them using package
>> prefix, but I'd really like to have nice API like here:
>> Get_First_Name( ... );
>> Set_Last_Name( ... );
>
> function Get_First_Name return String renames Get_Set_First_Name.Get_Attribute;
> procedure Set_First_Name (First_Name : in String) renames
> Get_Set_First_Name.Set_Attribute;

generic
  Name : String;
package Attribute is
  function Get return String;
  procedure Set ( Value : String );
end Attribute;

package First_Name is new Attribute (Name => "FirstName");
package Last_Name is new Attribute (Name => "LastName");

First_Name_Attribute := First_Name.Get;
Last_Name.Set (...);

-- 
Ludovic Brenta.