Comparing Coro/eg/attributes (file contents):
Revision 1.2 by root, Sun Jul 15 02:35:52 2001 UTC vs.
Revision 1.3 by root, Mon Jul 23 02:14:19 2001 UTC
| … | |
… | |
| 5 | $p = 2; |
5 | $p = 2; |
| 6 | |
6 | |
| 7 | sub p1 : Coro { |
7 | sub p1 : Coro { |
| 8 | for (0..9) { |
8 | for (0..9) { |
| 9 | print "p1: $_\n"; |
9 | print "p1: $_\n"; |
| 10 | yield; |
10 | cede; |
| 11 | } |
11 | } |
| 12 | $p--; |
12 | $p--; |
| 13 | } |
13 | } |
| 14 | |
14 | |
| 15 | sub p2 : Coro { |
15 | sub p2 : Coro { |
| 16 | for (10..23) { |
16 | for (10..23) { |
| 17 | print "p2: $_\n"; |
17 | print "p2: $_\n"; |
| 18 | yield; |
18 | cede; |
| 19 | } |
19 | } |
| 20 | $p--; |
20 | $p--; |
| 21 | } |
21 | } |
| 22 | |
22 | |
| 23 | eval { |
23 | eval { |
| 24 | yield while $p; |
24 | cede while $p; |
| 25 | }; |
25 | }; |
| 26 | |
26 | |
| 27 | |
27 | |
| 28 | |
28 | |
Diff Legend
| – |
Removed lines |
| + |
Added lines |
| < |
Changed lines |
| > |
Changed lines |
