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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,6ff6ac051491e437
X-Google-Attributes: gid103376,public
From: Samuel Tardieu <sam@inf.enst.fr>
Subject: Re: Question about the need for requeue as described in Rationale
Date: 1996/07/04
Message-ID: <qw6zq5gxws0.fsf@gargantua.enst.fr>#1/1
X-Deja-AN: 163645936
sender: tardieu@gargantua.enst.fr
references: <31c8fdd4.5a455349@zesi.ruhr.de> <dewar.835359186@schonberg>
to: "James A. Squire" <m193884@CSEHP3.MDC.COM>
content-type: text/plain; charset=iso-8859-1
organization: TELECOM Paris
mime-version: 1.0
newsgroups: comp.lang.ada
Date: 1996-07-04T00:00:00+00:00
List-Id: <comp.lang.ada>


>>>>> "James" == James A Squire <m193884@CSEHP3.MDC.COM> writes:

James> "Indeed, the very astute reader might care to note that we can
James> actually program this example in Ada 95 without using requeue
James> at all." - Great! So why was it used if it wasn't needed?  For
James> that matter, how can I do it in Ada 95 without requeue?

You could try something like this: (untested)

   protected Event is
      entry Wait;
      procedure Signal;
   private
      Occurred : Boolean := False;
   end Event;

   protected body Event is
     
      entry Wait when Occurred is
      begin
         Occurred := Wait'Count > 0;
      end Wait;

      procedure Signal is
      begin
         Occurred := Wait'Count > 0;
      end Signal;

   end Event;      

  Sam
-- 
"La cervelle des petits enfants, ca doit avoir comme un petit gout de noisette"
                                                       Charles Baudelaire