Data update
This commit is contained in:
parent
5150844a7d
commit
4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
|
|
@ -1,7 +0,0 @@
|
|||
protected type Event is
|
||||
procedure Signal;
|
||||
procedure Reset;
|
||||
entry Wait;
|
||||
private
|
||||
Fired : Boolean := False;
|
||||
end Event;
|
||||
|
|
@ -1,14 +0,0 @@
|
|||
protected body Event is
|
||||
procedure Signal is
|
||||
begin
|
||||
Fired := True;
|
||||
end Signal;
|
||||
procedure Reset is
|
||||
begin
|
||||
Fired := False;
|
||||
end Reset;
|
||||
entry Wait when Fired is
|
||||
begin
|
||||
null;
|
||||
end Wait;
|
||||
end Event;
|
||||
|
|
@ -1,18 +0,0 @@
|
|||
with Ada.Text_IO; use Ada.Text_IO;
|
||||
|
||||
procedure Test_Events is
|
||||
-- Place the event implementation here
|
||||
X : Event;
|
||||
|
||||
task A;
|
||||
task body A is
|
||||
begin
|
||||
Put_Line ("A is waiting for X");
|
||||
X.Wait;
|
||||
Put_Line ("A received X");
|
||||
end A;
|
||||
begin
|
||||
delay 1.0;
|
||||
Put_Line ("Signal X");
|
||||
X.Signal;
|
||||
end Test_Events;
|
||||
|
|
@ -1,16 +0,0 @@
|
|||
$timer = New-Object -TypeName System.Timers.Timer -Property @{Enabled=$true; Interval=1000; AutoReset=$true}
|
||||
|
||||
$action = {
|
||||
$global:counter += 1
|
||||
Write-Host “Event counter is ${counter}: $((Get-Date).ToString("hh:mm:ss"))”
|
||||
if ($counter -ge $event.MessageData)
|
||||
{
|
||||
Write-Host “Timer stopped”
|
||||
$timer.Stop()
|
||||
}
|
||||
}
|
||||
|
||||
$job = Register-ObjectEvent -InputObject $timer -MessageData 5 -SourceIdentifier Count -EventName Elapsed -Action $action
|
||||
|
||||
$global:counter = 0
|
||||
& $job.Module {$global:counter}
|
||||
Loading…
Add table
Add a link
Reference in a new issue