From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,9081ae7069434ca5,start
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.135.231 with SMTP id pv7mr1200541pbb.8.1328788573200;
        Thu, 09 Feb 2012 03:56:13 -0800 (PST)
From: Jacob Sparre Andersen <sparre@nbi.dk>
Newsgroups: comp.lang.ada
Subject: Publishing selected entries in a protected object?
Date: Thu, 09 Feb 2012 12:56:06 +0100
Organization: Jacob Sparre Andersen Research & Innovation
Message-ID: <87wr7wkyp5.fsf@adaheads.sparre-andersen.dk>
NNTP-Posting-Host: 79.138.244.87.bredband.3.dk
Mime-Version: 1.0
X-Trace: munin.nbi.dk 1328788570 1714 79.138.244.87 (9 Feb 2012 11:56:10 GMT)
X-Complaints-To: news@jacob-sparre.dk
NNTP-Posting-Date: Thu, 9 Feb 2012 11:56:10 +0000 (UTC)
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.2 (gnu/linux)
Cancel-Lock: sha1:hOqKj3v6HY6HGt19KgvKCD5c2bU=
Path: 
 wr5ni4749pbc.0!nntp.google.com!news2.google.com!news3.google.com!proxad.net!feeder1-2.proxad.net!feed.ac-versailles.fr!news.ecp.fr!news.jacob-sparre.dk!pnx.dk!jacob-sparre.dk!ada-dk.org!.POSTED!not-for-mail
Content-Type: text/plain; charset=us-ascii
Date: 2012-02-09T12:56:06+01:00
List-Id: <comp.lang.ada>

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.

Is there a pattern I can use?

Thanks in advance,

Jacob
-- 
"You know the world has gone crazy when the best rapper is a
 white guy, the best golfer is a black guy, the swiss hold
 the America's cup, France is accusing the U.S. of
 arrogance, and Germany doesn't want to go to war"