Re: problem with abstract types

[Ulrich Eckhardt <uli.e@gmx.de>]

Dmitry A.Kazakov wrote:

> you could use class-wide objects. Make your registry object a non-limited 
> type to have an ability to declare an abstract "constructor":
> 
> package Registry is
>    type Registry_Object is abstract tagged private;
>    function Create (...) return Registry_Object is abstract;
>    function Get (...) return ... is abstract;
>    procedure Put (...) is abstract;
> private
[..]
> Then you could well hide all nasty details:
> 
> with Registry;               use Registry;
> with Registry.Factory;  use Registry.Factory;
> ...
> My_Registry : Registry_Object'Class := Create (UNIX, ...);

Hi,

yes thanks, thats the solution. Also i will do some rewritings
on my naming schemes. It wasn't a good idea to create a
package named registry with a type named registry. Then i wondered
why registry'Class creates error messages. Also thanks for all
the other good tips and comments here.

Uli
-- 
Ulrich Eckhardt
http://www.uli-eckhardt.de