Re: Publishing selected entries in a protected object?

[Georg Bauhaus <rm.dash-bauhaus@futureapps.de>]

On 09.02.12 12:56, Jacob Sparre Andersen wrote:
> I have a package containing a protected object, and I would like to
> publish _one_ of this object's entries in the specification of the
> package.


Using synchronized interfaces should work?


package Semi is

   type Half is synchronized interface;

   procedure Grab (PO : in out Half) is abstract;

   function MakePO return Half'Class;

private

   protected type Full is new Half with
     overriding
     entry Grab;

     entry Foo;
   end Full;

end Semi;

...

   function MakePO return Half'Class is
   begin
      return Result : Full;
   end MakePO;