Re: Publishing selected entries in a protected object?

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 02/09/2012 04:56 AM, 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.
>
> Since I want to be able to use the entry in a select statement, I can't
> just encapsulate it in a procedure and make that available in the
> package specification.
>
> And if I move the declaration of the protected object to the package
> specification, but move the other entries to the private part of the
> protected object, I can't access the other entries from the private part
> of my package.

package P is
    protected Public is
       entry E;
    end Public;
end P;

package body P is
    protected Hidden is
       entry E;
       entry Internal;
    private -- Hidden
       ...
    end Hidden;

    protected body Public is
       entry E when True is
          -- null;
       begin -- E
          requeue Hidden.E [with abort];
       end E;
    end Public;

    ...
end P;


-- 
Jeff Carter
"IMHO, Interfaces are worthless."
Randy Brukardt
117

--- Posted via news://freenews.netfront.net/ - Complaints to news@netfront.net ---