1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
# Copyright (C) 2007-2009, Parrot Foundation.
=head1 Coroutines
Coroutines are like special subroutines that use C<.yield> instead of
C<.return>. In a normal subroutine, C<.return> passes results back to
the caller, and then destroys the subroutine environment. C<.yield> on
the other hand returns results to the parent but does not destroy the
subroutine environment. The next time the coroutine is called, it
continues execution from the point of the last C<.yield>, as if nothing
has happened. If a coroutine calls C<.return> eventually, it is
destroyed like a normal subroutine and the next call to it will start
from the beginning of the coroutine.
=cut
.sub main :main
$I0 = autoincrement()
print $I0
print "\n"
$I1 = autoincrement()
print $I1
print "\n"
.end
.sub autoincrement
$I0 = 1
start_loop:
$I0 += 1
.yield($I0)
goto start_loop
.end
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
|