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,cf0b4a8fb5366f53
X-Google-Attributes: gid103376,public
From: dennison@telepath.com
Subject: Re: Scheduling
Date: 1999/01/18
Message-ID: <77vo7l$ti9$1@nnrp1.dejanews.com>#1/1
X-Deja-AN: 434018713
References: <e8pWMFhQ#GA.314@ntawwabp.compuserve.com>
X-Http-Proxy: 1.0 x5.dejanews.com:80 (Squid/1.1.22) for client 204.48.27.130
Organization: Deja News - The Leader in Internet Discussion
X-Article-Creation-Date: Mon Jan 18 16:41:27 1999 GMT
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.5 [en] (WinNT; I)
Date: 1999-01-18T00:00:00+00:00
List-Id: <comp.lang.ada>

In article <e8pWMFhQ#GA.314@ntawwabp.compuserve.com>,
  "MarcoPolo" <nic_azzuri@compuserve.com> wrote:
> Hi im looking for basic Ada scheduling code examples,

Is the following simple enough for you? If not, you can add overrun detection
or whatever you want. (*WARNING*, uncompiled. May contain syntax errors).

task body Frob is
   Wakeup : Ada.Calendar.Time := Ada.Calendar.Clock;
   Rate   : constant Duration := 1.0 / 60.0;
begin

   loop
      Do_Work;

      -- "Scheduling" code
      Wakeup := Wakeup + Rate;
      delay until Wakeup;

   end loop;

end Frob;

T.E.D.

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own