30 lines
474 B
Text
30 lines
474 B
Text
|
declare
|
||
|
|
fun {NewEvent}
|
||
|
|
{NewCell _}
|
||
|
|
end
|
||
|
|
|
||
|
|
proc {SignalEvent Event}
|
||
|
|
@Event = unit
|
||
|
|
end
|
||
|
|
|
||
|
|
proc {ResetEvent Event}
|
||
|
|
Event := _
|
||
|
|
end
|
||
|
|
|
||
|
|
proc {WaitEvent Event}
|
||
|
|
{Wait @Event}
|
||
|
|
end
|
||
|
|
|
||
|
|
E = {NewEvent}
|
||
|
|
in
|
||
|
|
thread
|
||
|
|
{System.showInfo "[2] Waiting for event..."}
|
||
|
|
{WaitEvent E}
|
||
|
|
{System.showInfo "[2] Received event."}
|
||
|
|
end
|
||
|
|
|
||
|
|
{System.showInfo "[1] Waiting 1 second..."}
|
||
|
|
{Delay 1000}
|
||
|
|
{System.showInfo "[1] Signaling event."}
|
||
|
|
{SignalEvent E}
|