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,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,9081ae7069434ca5
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.238.198 with SMTP id vm6mr1958953pbc.3.1328811876778;
        Thu, 09 Feb 2012 10:24:36 -0800 (PST)
Path: 
 wr5ni5766pbc.0!nntp.google.com!news2.google.com!postnews.google.com!dp8g2000vbb.googlegroups.com!not-for-mail
From: AdaMagica <christ-usch.grein@t-online.de>
Newsgroups: comp.lang.ada
Subject: Re: Publishing selected entries in a protected object?
Date: Thu, 9 Feb 2012 10:24:35 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <a29baef4-05e1-41da-a23a-e0428cb37310@dp8g2000vbb.googlegroups.com>
References: <87wr7wkyp5.fsf@adaheads.sparre-andersen.dk>
 <4f33d158$0$7625$9b4e6d93@newsspool1.arcor-online.net>
NNTP-Posting-Host: 91.7.47.12
Mime-Version: 1.0
X-Trace: posting.google.com 1328811876 27177 127.0.0.1 (9 Feb 2012 18:24:36
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 9 Feb 2012 18:24:36 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: dp8g2000vbb.googlegroups.com; posting-host=91.7.47.12;
 posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
User-Agent: G2/1.0
X-Google-Web-Client: true
X-Google-Header-Order: HUALENKRC
X-HTTP-UserAgent: Mozilla/5.0 (Windows NT 6.0;
 rv:10.0) Gecko/20100101 Firefox/10.0,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2012-02-09T10:24:35-08:00
List-Id: <comp.lang.ada>

On 9 Feb., 14:59, Georg Bauhaus <rm.dash-bauh...@futureapps.de> wrote:
> 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
>
> =A0 =A0type Half is synchronized interface;
>
> =A0 =A0procedure Grab (PO : in out Half) is abstract
       with Synchronization =3D> By_entry;  -- Ada 2012 9.5(10/3)
>
> =A0 =A0function MakePO return Half'Class;
>
> private
>
> =A0 =A0protected type Full is new Half with
> =A0 =A0 =A0overriding
> =A0 =A0 =A0entry Grab;
>
> =A0 =A0 =A0entry Foo;
> =A0 =A0end Full;
>
> end Semi;
>
> ...
>
> =A0 =A0function MakePO return Half'Class is
> =A0 =A0begin
> =A0 =A0 =A0 return Result : Full;
> =A0 =A0end MakePO;