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

Comparing Coro/Coro.pm (file contents):
Revision 1.337 by root, Sun Oct 4 13:10:22 2015 UTC vs.
Revision 1.359 by root, Wed Jul 21 06:40:13 2021 UTC

72 72
73=over 4 73=over 4
74 74
75=item 1. Creation 75=item 1. Creation
76 76
77The first thing in the life of a coro thread is it's creation - 77The first thing in the life of a coro thread is its creation -
78obviously. The typical way to create a thread is to call the C<async 78obviously. The typical way to create a thread is to call the C<async
79BLOCK> function: 79BLOCK> function:
80 80
81 async { 81 async {
82 # thread code goes here 82 # thread code goes here
91This creates a new coro thread and puts it into the ready queue, meaning 91This creates a new coro thread and puts it into the ready queue, meaning
92it will run as soon as the CPU is free for it. 92it will run as soon as the CPU is free for it.
93 93
94C<async> will return a Coro object - you can store this for future 94C<async> will return a Coro object - you can store this for future
95reference or ignore it - a thread that is running, ready to run or waiting 95reference or ignore it - a thread that is running, ready to run or waiting
96for some event is alive on it's own. 96for some event is alive on its own.
97 97
98Another way to create a thread is to call the C<new> constructor with a 98Another way to create a thread is to call the C<new> constructor with a
99code-reference: 99code-reference:
100 100
101 new Coro sub { 101 new Coro sub {
188 188
189 my $hello_world = $coro->join; 189 my $hello_world = $coro->join;
190 190
191 print $hello_world; 191 print $hello_world;
192 192
193Another way to terminate is to call C<< Coro::terminate >>, which at any 193Another way to terminate is to call C<< Coro::terminate >>, the
194subroutine call nesting level: 194thread-equivalent of C<exit>, which works at any subroutine call nesting
195level:
195 196
196 async { 197 async {
197 Coro::terminate "return value 1", "return value 2"; 198 Coro::terminate "return value 1", "return value 2";
198 }; 199 };
199 200
248implements an endless loop, the C<$guard> will not be cleaned up. However, 249implements an endless loop, the C<$guard> will not be cleaned up. However,
249since the thread object returned by C<async> is not stored anywhere, the 250since the thread object returned by C<async> is not stored anywhere, the
250thread is initially referenced because it is in the ready queue, when it 251thread is initially referenced because it is in the ready queue, when it
251runs it is referenced by C<$Coro::current>, but when it calls C<schedule>, 252runs it is referenced by C<$Coro::current>, but when it calls C<schedule>,
252it gets C<cancel>ed causing the guard object to be destroyed (see the next 253it gets C<cancel>ed causing the guard object to be destroyed (see the next
253section), and printing it's message. 254section), and printing its message.
254 255
255If this seems a bit drastic, remember that this only happens when nothing 256If this seems a bit drastic, remember that this only happens when nothing
256references the thread anymore, which means there is no way to further 257references the thread anymore, which means there is no way to further
257execute it, ever. The only options at this point are leaking the thread, 258execute it, ever. The only options at this point are leaking the thread,
258or cleaning it up, which brings us to... 259or cleaning it up, which brings us to...
261 262
262Threads will allocate various resources. Most but not all will be returned 263Threads will allocate various resources. Most but not all will be returned
263when a thread terminates, during clean-up. 264when a thread terminates, during clean-up.
264 265
265Cleanup is quite similar to throwing an uncaught exception: perl will 266Cleanup is quite similar to throwing an uncaught exception: perl will
266work it's way up through all subroutine calls and blocks. On it's way, it 267work its way up through all subroutine calls and blocks. On its way, it
267will release all C<my> variables, undo all C<local>'s and free any other 268will release all C<my> variables, undo all C<local>'s and free any other
268resources truly local to the thread. 269resources truly local to the thread.
269 270
270So, a common way to free resources is to keep them referenced only by my 271So, a common way to free resources is to keep them referenced only by my
271variables: 272variables:
293code blocks): 294code blocks):
294 295
295 async { 296 async {
296 my $window = new Gtk2::Window "toplevel"; 297 my $window = new Gtk2::Window "toplevel";
297 # The window will not be cleaned up automatically, even when $window 298 # The window will not be cleaned up automatically, even when $window
298 # gets freed, so use a guard to ensure it's destruction 299 # gets freed, so use a guard to ensure its destruction
299 # in case of an error: 300 # in case of an error:
300 my $window_guard = Guard::guard { $window->destroy }; 301 my $window_guard = Guard::guard { $window->destroy };
301 302
302 # we are safe here 303 # we are safe here
303 }; 304 };
366 367
367our $idle; # idle handler 368our $idle; # idle handler
368our $main; # main coro 369our $main; # main coro
369our $current; # current coro 370our $current; # current coro
370 371
371our $VERSION = 6.48; 372our $VERSION = 6.57;
372 373
373our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait); 374our @EXPORT = qw(async async_pool cede schedule terminate current unblock_sub rouse_cb rouse_wait);
374our %EXPORT_TAGS = ( 375our %EXPORT_TAGS = (
375 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)], 376 prio => [qw(PRIO_MAX PRIO_HIGH PRIO_NORMAL PRIO_LOW PRIO_IDLE PRIO_MIN)],
376); 377);
498C<async> does. As the coro is being reused, stuff like C<on_destroy> 499C<async> does. As the coro is being reused, stuff like C<on_destroy>
499will not work in the expected way, unless you call terminate or cancel, 500will not work in the expected way, unless you call terminate or cancel,
500which somehow defeats the purpose of pooling (but is fine in the 501which somehow defeats the purpose of pooling (but is fine in the
501exceptional case). 502exceptional case).
502 503
503The priority will be reset to C<0> after each run, tracing will be 504The priority will be reset to C<0> after each run, all C<swap_sv> calls
504disabled, the description will be reset and the default output filehandle 505will be undone, tracing will be disabled, the description will be reset
505gets restored, so you can change all these. Otherwise the coro will 506and the default output filehandle gets restored, so you can change all
506be re-used "as-is": most notably if you change other per-coro global 507these. Otherwise the coro will be re-used "as-is": most notably if you
507stuff such as C<$/> you I<must needs> revert that change, which is most 508change other per-coro global stuff such as C<$/> you I<must needs> revert
508simply done by using local as in: C<< local $/ >>. 509that change, which is most simply done by using local as in: C<< local $/
510>>.
509 511
510The idle pool size is limited to C<8> idle coros (this can be 512The idle pool size is limited to C<8> idle coros (this can be
511adjusted by changing $Coro::POOL_SIZE), but there can be as many non-idle 513adjusted by changing $Coro::POOL_SIZE), but there can be as many non-idle
512coros as required. 514coros as required.
513 515
637 # at this place, the timezone is Antarctica/South_Pole, 639 # at this place, the timezone is Antarctica/South_Pole,
638 # without disturbing the TZ of any other coro. 640 # without disturbing the TZ of any other coro.
639 }; 641 };
640 642
641This can be used to localise about any resource (locale, uid, current 643This can be used to localise about any resource (locale, uid, current
642working directory etc.) to a block, despite the existance of other 644working directory etc.) to a block, despite the existence of other
643coros. 645coros.
644 646
645Another interesting example implements time-sliced multitasking using 647Another interesting example implements time-sliced multitasking using
646interval timers (this could obviously be optimised, but does the job): 648interval timers (this could obviously be optimised, but does the job):
647 649
753=item $state->is_new 755=item $state->is_new
754 756
755Returns true iff this Coro object is "new", i.e. has never been run 757Returns true iff this Coro object is "new", i.e. has never been run
756yet. Those states basically consist of only the code reference to call and 758yet. Those states basically consist of only the code reference to call and
757the arguments, but consumes very little other resources. New states will 759the arguments, but consumes very little other resources. New states will
758automatically get assigned a perl interpreter when they are transfered to. 760automatically get assigned a perl interpreter when they are transferred to.
759 761
760=item $state->is_zombie 762=item $state->is_zombie
761 763
762Returns true iff the Coro object has been cancelled, i.e. 764Returns true iff the Coro object has been cancelled, i.e.
763it's resources freed because they were C<cancel>'ed, C<terminate>'d, 765its resources freed because they were C<cancel>'ed, C<terminate>'d,
764C<safe_cancel>'ed or simply went out of scope. 766C<safe_cancel>'ed or simply went out of scope.
765 767
766The name "zombie" stems from UNIX culture, where a process that has 768The name "zombie" stems from UNIX culture, where a process that has
767exited and only stores and exit status and no other resources is called a 769exited and only stores and exit status and no other resources is called a
768"zombie". 770"zombie".
781=item $is_suspended = $coro->is_suspended 783=item $is_suspended = $coro->is_suspended
782 784
783Returns true iff this Coro object has been suspended. Suspended Coros will 785Returns true iff this Coro object has been suspended. Suspended Coros will
784not ever be scheduled. 786not ever be scheduled.
785 787
786=item $coro->cancel (arg...) 788=item $coro->cancel ($arg...)
787 789
788Terminates the given Coro thread and makes it return the given arguments as 790Terminate the given Coro thread and make it return the given arguments as
789status (default: an empty list). Never returns if the Coro is the 791status (default: an empty list). Never returns if the Coro is the
790current Coro. 792current Coro.
791 793
792This is a rather brutal way to free a coro, with some limitations - if 794This is a rather brutal way to free a coro, with some limitations - if
793the thread is inside a C callback that doesn't expect to be canceled, 795the thread is inside a C callback that doesn't expect to be canceled,
829context and can block if they wish. The downside is that there is no 831context and can block if they wish. The downside is that there is no
830guarantee that the thread can be cancelled when you call this method, and 832guarantee that the thread can be cancelled when you call this method, and
831therefore, it might fail. It is also considerably slower than C<cancel> or 833therefore, it might fail. It is also considerably slower than C<cancel> or
832C<terminate>. 834C<terminate>.
833 835
834A thread is in a safe-cancellable state if it either hasn't been run yet, 836A thread is in a safe-cancellable state if it either has never been run
837yet, has already been canceled/terminated or otherwise destroyed, or has
835or it has no C context attached and is inside an SLF function. 838no C context attached and is inside an SLF function.
836 839
840The first two states are trivial - a thread that has not started or has
841already finished is safe to cancel.
842
837The latter two basically mean that the thread isn't currently inside a 843The last state basically means that the thread isn't currently inside a
838perl callback called from some C function (usually via some XS modules) 844perl callback called from some C function (usually via some XS modules)
839and isn't currently executing inside some C function itself (via Coro's XS 845and isn't currently executing inside some C function itself (via Coro's XS
840API). 846API).
841 847
842This call returns true when it could cancel the thread, or croaks with an 848This call returns true when it could cancel the thread, or croaks with an
914return once the C<$coro> terminates. 920return once the C<$coro> terminates.
915 921
916=item $coro->on_destroy (\&cb) 922=item $coro->on_destroy (\&cb)
917 923
918Registers a callback that is called when this coro thread gets destroyed, 924Registers a callback that is called when this coro thread gets destroyed,
919that is, after it's resources have been freed but before it is joined. The 925that is, after its resources have been freed but before it is joined. The
920callback gets passed the terminate/cancel arguments, if any, and I<must 926callback gets passed the terminate/cancel arguments, if any, and I<must
921not> die, under any circumstances. 927not> die, under any circumstances.
922 928
923There can be any number of C<on_destroy> callbacks per coro, and there is 929There can be any number of C<on_destroy> callbacks per coro, and there is
924currently no way to remove a callback once added. 930currently no way to remove a callback once added.
1080 1086
1081Create and return a "rouse callback". That's a code reference that, 1087Create and return a "rouse callback". That's a code reference that,
1082when called, will remember a copy of its arguments and notify the owner 1088when called, will remember a copy of its arguments and notify the owner
1083coro of the callback. 1089coro of the callback.
1084 1090
1091Only the first invocation will store agruments and signal any waiter -
1092further calls will effectively be ignored, but it is ok to try.
1093
1085See the next function. 1094Also see the next function.
1086 1095
1087=item @args = rouse_wait [$cb] 1096=item @args = rouse_wait [$cb]
1088 1097
1089Wait for the specified rouse callback (or the last one that was created in 1098Wait for the specified rouse callback to be invoked (or if the argument is
1090this coro). 1099missing, use the most recently created callback in the current coro).
1091 1100
1092As soon as the callback is invoked (or when the callback was invoked 1101As soon as the callback is invoked (or when the callback was invoked
1093before C<rouse_wait>), it will return the arguments originally passed to 1102before C<rouse_wait>), it will return the arguments originally passed to
1094the rouse callback. In scalar context, that means you get the I<last> 1103the rouse callback. In scalar context, that means you get the I<last>
1095argument, just as if C<rouse_wait> had a C<return ($a1, $a2, $a3...)> 1104argument, just as if C<rouse_wait> had a C<return ($a1, $a2, $a3...)>
1096statement at the end. 1105statement at the end.
1097 1106
1107You are only allowed to wait once for a given rouse callback.
1108
1098See the section B<HOW TO WAIT FOR A CALLBACK> for an actual usage example. 1109See the section B<HOW TO WAIT FOR A CALLBACK> for an actual usage example.
1110
1111As of Coro 6.57, you can reliably wait for a rouse callback in a different
1112thread than from where it was created.
1099 1113
1100=back 1114=back
1101 1115
1102=cut 1116=cut
1103 1117
1109 1123
1110 # some modules have their new predefined in State.xs, some don't 1124 # some modules have their new predefined in State.xs, some don't
1111 *{"Coro::$module\::new"} = $old 1125 *{"Coro::$module\::new"} = $old
1112 if $old; 1126 if $old;
1113 1127
1114 goto &{"Coro::$module\::new"}; 1128 goto &{"Coro::$module\::new"}
1115 }; 1129 };
1116} 1130}
1117 1131
11181; 11321;
1119 1133
1122It is very common for a coro to wait for some callback to be 1136It is very common for a coro to wait for some callback to be
1123called. This occurs naturally when you use coro in an otherwise 1137called. This occurs naturally when you use coro in an otherwise
1124event-based program, or when you use event-based libraries. 1138event-based program, or when you use event-based libraries.
1125 1139
1126These typically register a callback for some event, and call that callback 1140These typically register a callback for some event, and call that callback
1127when the event occured. In a coro, however, you typically want to 1141when the event occurred. In a coro, however, you typically want to
1128just wait for the event, simplyifying things. 1142just wait for the event, simplyifying things.
1129 1143
1130For example C<< AnyEvent->child >> registers a callback to be called when 1144For example C<< AnyEvent->child >> registers a callback to be called when
1131a specific child has exited: 1145a specific child has exited:
1132 1146
1261processes. What makes it so bad is that on non-windows platforms, you can 1275processes. What makes it so bad is that on non-windows platforms, you can
1262actually take advantage of custom hardware for this purpose (as evidenced 1276actually take advantage of custom hardware for this purpose (as evidenced
1263by the forks module, which gives you the (i-) threads API, just much 1277by the forks module, which gives you the (i-) threads API, just much
1264faster). 1278faster).
1265 1279
1266Sharing data is in the i-threads model is done by transfering data 1280Sharing data is in the i-threads model is done by transferring data
1267structures between threads using copying semantics, which is very slow - 1281structures between threads using copying semantics, which is very slow -
1268shared data simply does not exist. Benchmarks using i-threads which are 1282shared data simply does not exist. Benchmarks using i-threads which are
1269communication-intensive show extremely bad behaviour with i-threads (in 1283communication-intensive show extremely bad behaviour with i-threads (in
1270fact, so bad that Coro, which cannot take direct advantage of multiple 1284fact, so bad that Coro, which cannot take direct advantage of multiple
1271CPUs, is often orders of magnitude faster because it shares data using 1285CPUs, is often orders of magnitude faster because it shares data using

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines