Anonymous user
Events: Difference between revisions
→{{header|Perl 6}}: add entry
m (→{{header|REXX}}: changed a label name, changed indentation and comments.) |
(→{{header|Perl 6}}: add entry) |
||
Line 578:
$quit->recv;</lang>
=={{header|Perl 6}}==
{{trans|Go}}
<lang>note now, " program start";
my $event = Channel.new;
my $todo = start {
note now, " task start";
$event.receive;
note now, " event reset by task";
}
note now, " program sleeping";
sleep 1;
note now, " program signaling event";
$event.send(0);
await $todo;</lang>
{{out}}
<pre>Instant:1403880984.089974 program start
Instant:1403880984.095400 program sleeping
Instant:1403880984.095491 task start
Instant:1403880985.099381 program signaling event
Instant:1403880985.109395 event reset by task</pre>
=={{header|PicoLisp}}==
| |||