Re: Watchdog-Timer Assignment

[Shark8 <onewingedshark@gmail.com>]

On Friday, September 21, 2018 at 4:29:10 AM UTC-6, Alex wrote:
> Hello, I have a school assignment (I have heard that this is important to mention) which I need help with.
> 
> You can find my code here: https://ideone.com/LIWmJM
> 
> My assignment is this:
> 
> Modify F3 from Part 1 so that it occasionally takes more than 0.5 seconds to execute.
> 
> Augment the cyclic scheduler from Part 1 with a watchdog task to monitor F3's execution time. When F3 exceeds its deadline (0.5s), the watchdog task should immediately print a warning message. I.e., 0.5s after start of F3, either F3 has finished or the watchdog has printed a message. The watchdog should let F3 finish even if it misses its deadline.
> 
> The watchdog task should be started (released) at the same time as (or just before) F3 starts executing, and from that point measure the time that F3 uses.
> 
> When F3 misses its deadline the cyclic executive should re-synchronize so that F1 is started at whole seconds.
> 
> You should start with this skeleton code: part 2. Examine the code to understand how a task is declared inside an Ada program. Try to modify it in places indicated by the comments. You can also reuse your solution for part 1 as the initial code.
> 
> (P.S The skeleton code "part 2" is more or less an empty Watchdog task-body).
> 
> I have implemented a random delay for f3 so that it occasionally takes more than 0.5 seconds to execute. My biggest issue (I believe) is that (if f3 takes more than 0.5 seconds to execute) f1 is supposed to start over at the next whole second.
> 
> I dont know where I should put that delay for this to happen.
> 
> Thank you in advance!

This?

    Function Next_Second return Ada.Calendar.Time is
	Use Ada.Calendar;
	Now       : Time renames Clock;
	Second    : Duration renames Seconds(Now);
	Trunc     : Constant Natural  := Natural(Second);
	Rounded   : Constant Duration := Duration(Trunc);
	Year      : Year_Number;
	Month     : Month_Number;
	Day       : Day_Number;
	S         : Duration;
    Begin
	Split(
          Date    => Now,
          Year    => Year,
          Month   => Month,
          Day     => Day,
          Seconds => S
         );
	return Time_Of(Year, Month, Day,
	  (if Rounded < Second
	   then Rounded + 1.0
	   else Rounded
	  ));
    End Next_Second;