Anonymous user
Events: Difference between revisions
→Icon and {{header|Unicon}}
No edit summary |
|||
Line 396:
==Icon and {{header|Unicon}}==
The following only works in Unicon
receive the same event:
<lang unicon>record Event(cond, value)
Line 402 ⟶ 403:
event := Event(condvar())
t1 := thread {
write("
critical event.cond: while /(event.value) do wait(event.cond)
write("
}
t2 := thread {
critical event.cond: while /(event.value)
write("
signal(event.cond)▼
}
delay(1000) # Let main thread post the event.
event.value := "yes"
write("Signalling event.")
every wait(t1|t2)
end</lang>
Line 418 ⟶ 422:
<pre>
->event
Task one waiting for event....
Signalling event.
Task two received event.
Task one received event.
->
</pre>
|