ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro.pm
(Generate patch)

Comparing Coro/Coro.pm (file contents):
Revision 1.52 by root, Tue May 27 00:26:34 2003 UTC vs.
Revision 1.58 by pcg, Fri Feb 13 23:17:41 2004 UTC

… …
30 30
31=cut 31=cut
32 32
33package Coro; 33package Coro;
34 34
35no warnings qw(uninitialized); 35BEGIN { eval { require warnings } && warnings->unimport ("uninitialized") }
36 36
37use Coro::State; 37use Coro::State;
38 38
39use vars qw($idle $main $current);
40
39use base Exporter; 41use base Exporter;
40 42
41$VERSION = 0.652; 43$VERSION = 0.95;
42 44
43@EXPORT = qw(async cede schedule terminate current); 45@EXPORT = qw(async cede schedule terminate current);
44%EXPORT_TAGS = ( 46%EXPORT_TAGS = (
45 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], 47 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
46); 48);
… …
83 85
84This coroutine represents the main program. 86This coroutine represents the main program.
85 87
86=cut 88=cut
87 89
88our $main = new Coro; 90$main = new Coro;
89 91
90=item $current (or as function: current) 92=item $current (or as function: current)
91 93
92The current coroutine (the last coroutine switched to). The initial value is C<$main> (of course). 94The current coroutine (the last coroutine switched to). The initial value is C<$main> (of course).
93 95
… …
96# maybe some other module used Coro::Specific before... 98# maybe some other module used Coro::Specific before...
97if ($current) { 99if ($current) {
98 $main->{specific} = $current->{specific}; 100 $main->{specific} = $current->{specific};
99} 101}
100 102
101our $current = $main; 103$current = $main;
102 104
103sub current() { $current } 105sub current() { $current }
104 106
105=item $idle 107=item $idle
106 108
… …
108implementation prints "FATAL: deadlock detected" and exits. 110implementation prints "FATAL: deadlock detected" and exits.
109 111
110=cut 112=cut
111 113
112# should be done using priorities :( 114# should be done using priorities :(
113our $idle = new Coro sub { 115$idle = new Coro sub {
114 print STDERR "FATAL: deadlock detected\n"; 116 print STDERR "FATAL: deadlock detected\n";
115 exit(51); 117 exit(51);
116}; 118};
117 119
118# this coroutine is necessary because a coroutine 120# this coroutine is necessary because a coroutine
119# cannot destroy itself. 121# cannot destroy itself.
120my @destroy; 122my @destroy;
121my $manager; 123my $manager;
122$manager = new Coro sub { 124$manager = new Coro sub {
123 while() { 125 while () {
124 # by overwriting the state object with the manager we destroy it 126 # by overwriting the state object with the manager we destroy it
125 # while still being able to schedule this coroutine (in case it has 127 # while still being able to schedule this coroutine (in case it has
126 # been readied multiple times. this is harmless since the manager 128 # been readied multiple times. this is harmless since the manager
127 # can be called as many times as neccessary and will always 129 # can be called as many times as neccessary and will always
128 # remove itself from the runqueue 130 # remove itself from the runqueue
… …
155 # create a new coroutine that just prints its arguments 157 # create a new coroutine that just prints its arguments
156 async { 158 async {
157 print "@_\n"; 159 print "@_\n";
158 } 1,2,3,4; 160 } 1,2,3,4;
159 161
160The coderef you submit MUST NOT be a closure that refers to variables
161in an outer scope. This does NOT work. Pass arguments into it instead.
162
163=cut 162=cut
164 163
165sub async(&@) { 164sub async(&@) {
166 my $pid = new Coro @_; 165 my $pid = new Coro @_;
167 $manager->ready; # this ensures that the stack is cloned from the manager 166 $manager->ready; # this ensures that the stack is cloned from the manager
… …
3261; 3251;
327 326
328=head1 BUGS/LIMITATIONS 327=head1 BUGS/LIMITATIONS
329 328
330 - you must make very sure that no coro is still active on global 329 - you must make very sure that no coro is still active on global
331 destruction. very bad things might happen otherwise (usually segfaults 330 destruction. very bad things might happen otherwise (usually segfaults).
332 or "panic: top_env").
333 331
334 - this module is not thread-safe. You should only ever use this module 332 - this module is not thread-safe. You should only ever use this module
335 from the same thread (this requirement might be losened in the future 333 from the same thread (this requirement might be losened in the future
336 to allow per-thread schedulers, but Coro::State does not yet allow 334 to allow per-thread schedulers, but Coro::State does not yet allow
337 this). 335 this).
338 336
339=head1 SEE ALSO 337=head1 SEE ALSO
340 338
341L<Coro::Channel>, L<Coro::Cont>, L<Coro::Specific>, L<Coro::Semaphore>, 339L<Coro::Channel>, L<Coro::Cont>, L<Coro::Specific>, L<Coro::Semaphore>,
342L<Coro::Signal>, L<Coro::State>, L<Coro::Event>, L<Coro::RWLock>, 340L<Coro::Signal>, L<Coro::State>, L<Coro::Timer>, L<Coro::Event>,
343L<Coro::Handle>, L<Coro::Socket>. 341L<Coro::L<Coro::RWLock>, Handle>, L<Coro::Socket>.
344 342
345=head1 AUTHOR 343=head1 AUTHOR
346 344
347 Marc Lehmann <pcg@goof.com> 345 Marc Lehmann <pcg@goof.com>
348 http://www.goof.com/pcg/marc/ 346 http://www.goof.com/pcg/marc/

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines