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=-0.4 required=5.0 tests=AC_FROM_MANY_DOTS,BAYES_00
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e8e240cec570cdf2
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-04-18 09:46:13 PST
Path: 
 supernews.google.com!newsfeed.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!isdnet!psinet-france!psiuk-f4!psiuk-p4!uknet!psiuk-n!news.pace.co.uk!nh.pace.co.uk!not-for-mail
From: "Marin David Condic" <marin.condic.auntie.spam@pacemicro.com>
Newsgroups: comp.lang.ada
Subject: Re: Multiple entry tasks
Date: Wed, 18 Apr 2001 12:22:10 -0400
Organization: Posted on a server owned by Pace Micro Technology plc
Message-ID: <9bkevj$61k$1@nh.pace.co.uk>
References: <slrn9dralj.k4.lutz@taranis.iks-jena.de>
NNTP-Posting-Host: 136.170.200.133
X-Trace: nh.pace.co.uk 987610931 6196 136.170.200.133 (18 Apr 2001 16:22:11
 GMT)
X-Complaints-To: newsmaster@pace.co.uk
NNTP-Posting-Date: 18 Apr 2001 16:22:11 GMT
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4522.1200
Xref: supernews.google.com comp.lang.ada:6976
Date: 2001-04-18T16:22:11+00:00
List-Id: <comp.lang.ada>

Sounds like you want some version of guarded entries in a select statement.
I have not attempted to do this before (kids: don't try this at home - we
*are* trained professionals!), nor have I run this past a compiler (spank me
for this later if it doesn't work) but I *think* you want some version of
the following:

select
    when (Entry2'Count <= 0) and (Entry1'Count <= 0) =>
        accept Entry3 ;
    when (Entry1'Count <= 0) =>
        accept Entry2 ;
or
    accept Entry1;
else
    terminate;
end select ;

Let me know if a) some variation of this compiles and b) it does what you
intended...

MDC
--
Marin David Condic
Senior Software Engineer
Pace Micro Technology Americas    www.pacemicro.com
Enabling the digital revolution
e-Mail:    marin.condic@pacemicro.com
Web:      http://www.mcondic.com/


"Lutz Donnerhacke" <lutz@iks-jena.de> wrote in message
news:slrn9dralj.k4.lutz@taranis.iks-jena.de...
> Simple problem, but no clue:
>
> I have a task with multiple entry points. I'd like to serve some entries
> before the rest and like to have a terminate alternative. How should I
solve
> this? (Currently I added a protected type and used it, but this violates
the
> encapsulation)