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

Comparing EV/EV.pm (file contents):
Revision 1.53 by root, Sat Nov 24 16:57:30 2007 UTC vs.
Revision 1.64 by root, Sat Dec 8 02:55:13 2007 UTC

38 # CHILD/PID STATUS CHANGES 38 # CHILD/PID STATUS CHANGES
39 39
40 my $w = EV::child 666, sub { 40 my $w = EV::child 666, sub {
41 my ($w, $revents) = @_; 41 my ($w, $revents) = @_;
42 my $status = $w->rstatus; 42 my $status = $w->rstatus;
43 };
44
45 # STAT CHANGES
46 my $w = EV::stat "/etc/passwd", 10, sub {
47 my ($w, $revents) = @_;
48 warn $w->path, " has changed somehow.\n";
43 }; 49 };
44 50
45 # MAINLOOP 51 # MAINLOOP
46 EV::loop; # loop until EV::unloop is called or all watchers stop 52 EV::loop; # loop until EV::unloop is called or all watchers stop
47 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled 53 EV::loop EV::LOOP_ONESHOT; # block until at least one event could be handled
52This module provides an interface to libev 58This module provides an interface to libev
53(L<http://software.schmorp.de/pkg/libev.html>). While the documentation 59(L<http://software.schmorp.de/pkg/libev.html>). While the documentation
54below is comprehensive, one might also consult the documentation of libev 60below is comprehensive, one might also consult the documentation of libev
55itself (L<http://cvs.schmorp.de/libev/ev.html>) for more subtle details on 61itself (L<http://cvs.schmorp.de/libev/ev.html>) for more subtle details on
56watcher semantics or some discussion on the available backends, or how to 62watcher semantics or some discussion on the available backends, or how to
57force a specific backend with C<LIBEV_FLAGS>. 63force a specific backend with C<LIBEV_FLAGS>, or just about in any case
64because it has much more detailed information.
58 65
59=cut 66=cut
60 67
61package EV; 68package EV;
62 69
63use strict; 70use strict;
64 71
65BEGIN { 72BEGIN {
66 our $VERSION = '1.3'; 73 our $VERSION = '1.8';
67 use XSLoader; 74 use XSLoader;
68 XSLoader::load "EV", $VERSION; 75 XSLoader::load "EV", $VERSION;
69} 76}
70 77
71@EV::IO::ISA = 78@EV::IO::ISA =
72@EV::Timer::ISA = 79@EV::Timer::ISA =
73@EV::Periodic::ISA = 80@EV::Periodic::ISA =
74@EV::Signal::ISA = 81@EV::Signal::ISA =
82@EV::Child::ISA =
83@EV::Stat::ISA =
75@EV::Idle::ISA = 84@EV::Idle::ISA =
76@EV::Prepare::ISA = 85@EV::Prepare::ISA =
77@EV::Check::ISA = 86@EV::Check::ISA =
78@EV::Child::ISA = "EV::Watcher"; 87@EV::Embed::ISA =
88@EV::Fork::ISA =
89 "EV::Watcher";
79 90
80=head1 BASIC INTERFACE 91=head1 BASIC INTERFACE
81 92
82=over 4 93=over 4
83 94
120When called with no arguments or an argument of EV::UNLOOP_ONE, makes the 131When called with no arguments or an argument of EV::UNLOOP_ONE, makes the
121innermost call to EV::loop return. 132innermost call to EV::loop return.
122 133
123When called with an argument of EV::UNLOOP_ALL, all calls to EV::loop will return as 134When called with an argument of EV::UNLOOP_ALL, all calls to EV::loop will return as
124fast as possible. 135fast as possible.
136
137=item $count = EV::loop_count
138
139Return the number of times the event loop has polled for new
140events. Sometiems useful as a generation counter.
125 141
126=item EV::once $fh_or_undef, $events, $timeout, $cb->($revents) 142=item EV::once $fh_or_undef, $events, $timeout, $cb->($revents)
127 143
128This function rolls together an I/O and a timer watcher for a single 144This function rolls together an I/O and a timer watcher for a single
129one-shot event without the need for managing a watcher object. 145one-shot event without the need for managing a watcher object.
146of them triggers, then they will be stopped and freed, and the callback 162of them triggers, then they will be stopped and freed, and the callback
147invoked. 163invoked.
148 164
149=back 165=back
150 166
151=head2 WATCHER 167=head2 WATCHER OBJECTS
152 168
153A watcher is an object that gets created to record your interest in some 169A watcher is an object that gets created to record your interest in some
154event. For instance, if you want to wait for STDIN to become readable, you 170event. For instance, if you want to wait for STDIN to become readable, you
155would create an EV::io watcher for that: 171would create an EV::io watcher for that:
156 172
165events. 181events.
166 182
167Each watcher type has its associated bit in revents, so you can use the 183Each watcher type has its associated bit in revents, so you can use the
168same callback for multiple watchers. The event mask is named after the 184same callback for multiple watchers. The event mask is named after the
169type, i..e. EV::child sets EV::CHILD, EV::prepare sets EV::PREPARE, 185type, i..e. EV::child sets EV::CHILD, EV::prepare sets EV::PREPARE,
170EV::periodic sets EV::PERIODIC and so on, with the exception of IO events 186EV::periodic sets EV::PERIODIC and so on, with the exception of I/O events
171(which can set both EV::READ and EV::WRITE bits), and EV::timer (which 187(which can set both EV::READ and EV::WRITE bits), and EV::timer (which
172uses EV::TIMEOUT). 188uses EV::TIMEOUT).
173 189
174In the rare case where one wants to create a watcher but not start it at 190In the rare case where one wants to create a watcher but not start it at
175the same time, each constructor has a variant with a trailing C<_ns> in 191the same time, each constructor has a variant with a trailing C<_ns> in
181 197
182Also, all methods changing some aspect of a watcher (->set, ->priority, 198Also, all methods changing some aspect of a watcher (->set, ->priority,
183->fh and so on) automatically stop and start it again if it is active, 199->fh and so on) automatically stop and start it again if it is active,
184which means pending events get lost. 200which means pending events get lost.
185 201
186=head2 WATCHER TYPES 202=head2 COMMON WATCHER METHODS
187 203
188Now lets move to the existing watcher types and asociated methods. 204This section lists methods common to all watchers.
189
190The following methods are available for all watchers. Then followes a
191description of each watcher constructor (EV::io, EV::timer, EV::periodic,
192EV::signal, EV::child, EV::idle, EV::prepare and EV::check), followed by
193any type-specific methods (if any).
194 205
195=over 4 206=over 4
196 207
197=item $w->start 208=item $w->start
198 209
202 213
203=item $w->stop 214=item $w->stop
204 215
205Stop a watcher if it is active. Also clear any pending events (events that 216Stop a watcher if it is active. Also clear any pending events (events that
206have been received but that didn't yet result in a callback invocation), 217have been received but that didn't yet result in a callback invocation),
207regardless of wether the watcher was active or not. 218regardless of whether the watcher was active or not.
208 219
209=item $bool = $w->is_active 220=item $bool = $w->is_active
210 221
211Returns true if the watcher is active, false otherwise. 222Returns true if the watcher is active, false otherwise.
212 223
267though your watcher is active, it won't keep C<EV::loop> from returning. 278though your watcher is active, it won't keep C<EV::loop> from returning.
268 279
269The initial value for keepalive is true (enabled), and you cna change it 280The initial value for keepalive is true (enabled), and you cna change it
270any time. 281any time.
271 282
272Example: Register an IO watcher for some UDP socket but do not keep the 283Example: Register an I/O watcher for some UDP socket but do not keep the
273event loop from running just because of that watcher. 284event loop from running just because of that watcher.
274 285
275 my $udp_socket = ... 286 my $udp_socket = ...
276 my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... }; 287 my $udp_watcher = EV::io $udp_socket, EV::READ, sub { ... };
277 $udp_watcher->keepalive (0); 288 $udp_watcher->keepalive (0);
278 289
290=back
291
292
293=head2 WATCHER TYPES
294
295Each of the following subsections describes a single watcher type.
296
297=head3 I/O WATCHERS - is this file descriptor readable or writable?
298
299=over 4
300
279=item $w = EV::io $fileno_or_fh, $eventmask, $callback 301=item $w = EV::io $fileno_or_fh, $eventmask, $callback
280 302
281=item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback 303=item $w = EV::io_ns $fileno_or_fh, $eventmask, $callback
282 304
283As long as the returned watcher object is alive, call the C<$callback> 305As long as the returned watcher object is alive, call the C<$callback>
284when the events specified in C<$eventmask>. 306when at least one of events specified in C<$eventmask> occurs.
285 307
286The $eventmask can be one or more of these constants ORed together: 308The $eventmask can be one or more of these constants ORed together:
287 309
288 EV::READ wait until read() wouldn't block anymore 310 EV::READ wait until read() wouldn't block anymore
289 EV::WRITE wait until write() wouldn't block anymore 311 EV::WRITE wait until write() wouldn't block anymore
305 327
306=item $old_eventmask = $w->events ($new_eventmask) 328=item $old_eventmask = $w->events ($new_eventmask)
307 329
308Returns the previously set event mask and optionally set a new one. 330Returns the previously set event mask and optionally set a new one.
309 331
332=back
333
334
335=head3 TIMER WATCHERS - relative and optionally repeating timeouts
336
337=over 4
310 338
311=item $w = EV::timer $after, $repeat, $callback 339=item $w = EV::timer $after, $repeat, $callback
312 340
313=item $w = EV::timer_ns $after, $repeat, $callback 341=item $w = EV::timer_ns $after, $repeat, $callback
314 342
328 356
329The C<timer_ns> variant doesn't start (activate) the newly created watcher. 357The C<timer_ns> variant doesn't start (activate) the newly created watcher.
330 358
331=item $w->set ($after, $repeat) 359=item $w->set ($after, $repeat)
332 360
333Reconfigures the watcher, see the constructor above for details. Can be at 361Reconfigures the watcher, see the constructor above for details. Can be called at
334any time. 362any time.
335 363
336=item $w->again 364=item $w->again
337 365
338Similar to the C<start> method, but has special semantics for repeating timers: 366Similar to the C<start> method, but has special semantics for repeating timers:
349This behaviour is useful when you have a timeout for some IO 377This behaviour is useful when you have a timeout for some IO
350operation. You create a timer object with the same value for C<$after> and 378operation. You create a timer object with the same value for C<$after> and
351C<$repeat>, and then, in the read/write watcher, run the C<again> method 379C<$repeat>, and then, in the read/write watcher, run the C<again> method
352on the timeout. 380on the timeout.
353 381
382=back
383
384
385=head3 PERIODIC WATCHERS - to cron or not to cron?
386
387=over 4
354 388
355=item $w = EV::periodic $at, $interval, $reschedule_cb, $callback 389=item $w = EV::periodic $at, $interval, $reschedule_cb, $callback
356 390
357=item $w = EV::periodic_ns $at, $interval, $reschedule_cb, $callback 391=item $w = EV::periodic_ns $at, $interval, $reschedule_cb, $callback
358 392
430 464
431The C<periodic_ns> variant doesn't start (activate) the newly created watcher. 465The C<periodic_ns> variant doesn't start (activate) the newly created watcher.
432 466
433=item $w->set ($at, $interval, $reschedule_cb) 467=item $w->set ($at, $interval, $reschedule_cb)
434 468
435Reconfigures the watcher, see the constructor above for details. Can be at 469Reconfigures the watcher, see the constructor above for details. Can be called at
436any time. 470any time.
437 471
438=item $w->again 472=item $w->again
439 473
440Simply stops and starts the watcher again. 474Simply stops and starts the watcher again.
441 475
476=back
477
478
479=head3 SIGNAL WATCHERS - signal me when a signal gets signalled!
480
481=over 4
442 482
443=item $w = EV::signal $signal, $callback 483=item $w = EV::signal $signal, $callback
444 484
445=item $w = EV::signal_ns $signal, $callback 485=item $w = EV::signal_ns $signal, $callback
446 486
447Call the callback when $signal is received (the signal can be specified 487Call the callback when $signal is received (the signal can be specified by
448by number or by name, just as with kill or %SIG). 488number or by name, just as with C<kill> or C<%SIG>).
449 489
450EV will grab the signal for the process (the kernel only allows one 490EV will grab the signal for the process (the kernel only allows one
451component to receive a signal at a time) when you start a signal watcher, 491component to receive a signal at a time) when you start a signal watcher,
452and removes it again when you stop it. Perl does the same when you 492and removes it again when you stop it. Perl does the same when you
453add/remove callbacks to %SIG, so watch out. 493add/remove callbacks to C<%SIG>, so watch out.
454 494
455You can have as many signal watchers per signal as you want. 495You can have as many signal watchers per signal as you want.
456 496
457The C<signal_ns> variant doesn't start (activate) the newly created watcher. 497The C<signal_ns> variant doesn't start (activate) the newly created watcher.
458 498
459=item $w->set ($signal) 499=item $w->set ($signal)
460 500
461Reconfigures the watcher, see the constructor above for details. Can be at 501Reconfigures the watcher, see the constructor above for details. Can be
462any time. 502called at any time.
463 503
464=item $current_signum = $w->signal 504=item $current_signum = $w->signal
465 505
466=item $old_signum = $w->signal ($new_signal) 506=item $old_signum = $w->signal ($new_signal)
467 507
468Returns the previously set signal (always as a number not name) and 508Returns the previously set signal (always as a number not name) and
469optionally set a new one. 509optionally set a new one.
470 510
511=back
512
513
514=head3 CHILD WATCHERS - watch out for process status changes
515
516=over 4
471 517
472=item $w = EV::child $pid, $callback 518=item $w = EV::child $pid, $callback
473 519
474=item $w = EV::child_ns $pid, $callback 520=item $w = EV::child_ns $pid, $callback
475 521
476Call the callback when a status change for pid C<$pid> (or any pid 522Call the callback when a status change for pid C<$pid> (or any pid if
477if C<$pid> is 0) has been received. More precisely: when the process 523C<$pid> is 0) has been received. More precisely: when the process receives
478receives a SIGCHLD, EV will fetch the outstanding exit/wait status for all 524a C<SIGCHLD>, EV will fetch the outstanding exit/wait status for all
479changed/zombie children and call the callback. 525changed/zombie children and call the callback.
480 526
481You can access both status and pid by using the C<rstatus> and C<rpid> 527It is valid (and fully supported) to install a child watcher after a child
482methods on the watcher object. 528has exited but before the event loop has started its next iteration (for
529example, first you C<fork>, then the new child process might exit, and
530only then do you install a child watcher in the parent for the new pid).
483 531
532You can access both exit (or tracing) status and pid by using the
533C<rstatus> and C<rpid> methods on the watcher object.
534
484You can have as many pid watchers per pid as you want. 535You can have as many pid watchers per pid as you want, they will all be
536called.
485 537
486The C<child_ns> variant doesn't start (activate) the newly created watcher. 538The C<child_ns> variant doesn't start (activate) the newly created watcher.
487 539
488=item $w->set ($pid) 540=item $w->set ($pid)
489 541
490Reconfigures the watcher, see the constructor above for details. Can be at 542Reconfigures the watcher, see the constructor above for details. Can be called at
491any time. 543any time.
492 544
493=item $current_pid = $w->pid 545=item $current_pid = $w->pid
494 546
495=item $old_pid = $w->pid ($new_pid) 547=item $old_pid = $w->pid ($new_pid)
504=item $pid = $w->rpid 556=item $pid = $w->rpid
505 557
506Return the pid of the awaited child (useful when you have installed a 558Return the pid of the awaited child (useful when you have installed a
507watcher for all pids). 559watcher for all pids).
508 560
561=back
562
563
564=head3 STAT WATCHERS - did the file attributes just change?
565
566=over 4
567
568=item $w = EV::stat $path, $interval, $callback
569
570=item $w = EV::stat_ns $path, $interval, $callback
571
572Call the callback when a file status change has been detected on
573C<$path>. The C<$path> does not need to exist, changing from "path exists"
574to "path does not exist" is a status change like any other.
575
576The C<$interval> is a recommended polling interval for systems where
577OS-supported change notifications don't exist or are not supported. If
578you use C<0> then an unspecified default is used (which is highly
579recommended!), which is to be expected to be around five seconds usually.
580
581This watcher type is not meant for massive numbers of stat watchers,
582as even with OS-supported change notifications, this can be
583resource-intensive.
584
585The C<stat_ns> variant doesn't start (activate) the newly created watcher.
586
587=item ... = $w->stat
588
589This call is very similar to the perl C<stat> built-in: It stats (using
590C<lstat>) the path specified in the watcher and sets perls stat cache (as
591well as EV's idea of the current stat values) to the values found.
592
593In scalar context, a boolean is return indicating success or failure of
594the stat. In list context, the same 13-value list as with stat is returned
595(except that the blksize and blocks fields are not reliable).
596
597In the case of an error, errno is set to C<ENOENT> (regardless of the
598actual error value) and the C<nlink> value is forced to zero (if the stat
599was successful then nlink is guaranteed to be non-zero).
600
601See also the next two entries for more info.
602
603=item ... = $w->attr
604
605Just like C<< $w->stat >>, but without the initial stat'ing: this returns
606the values most recently detected by EV. See the next entry for more info.
607
608=item ... = $w->prev
609
610Just like C<< $w->stat >>, but without the initial stat'ing: this returns
611the previous set of values, before the change.
612
613That is, when the watcher callback is invoked, C<< $w->prev >> will be set
614to the values found I<before> a change was detected, while C<< $w->attr >>
615returns the values found leading to the change detection. The difference (if any)
616between C<prev> and C<attr> is what triggered the callback.
617
618If you did something to the filesystem object and do not want to trigger
619yet another change, you can call C<stat> to update EV's idea of what the
620current attributes are.
621
622=item $w->set ($path, $interval)
623
624Reconfigures the watcher, see the constructor above for details. Can be
625called at any time.
626
627=item $current_path = $w->path
628
629=item $old_path = $w->path ($new_path)
630
631Returns the previously set path and optionally set a new one.
632
633=item $current_interval = $w->interval
634
635=item $old_interval = $w->interval ($new_interval)
636
637Returns the previously set interval and optionally set a new one. Can be
638used to query the actual interval used.
639
640=back
641
642
643=head3 IDLE WATCHERS - when you've got nothing better to do...
644
645=over 4
509 646
510=item $w = EV::idle $callback 647=item $w = EV::idle $callback
511 648
512=item $w = EV::idle_ns $callback 649=item $w = EV::idle_ns $callback
513 650
514Call the callback when there are no pending io, timer/periodic, signal or 651Call the callback when there are no other pending watchers of the same or
515child events, i.e. when the process is idle. 652higher priority (excluding check, prepare and other idle watchers of the
653same or lower priority, of course). They are called idle watchers because
654when the watcher is the highest priority pending event in the process, the
655process is considered to be idle at that priority.
656
657If you want a watcher that is only ever called when I<no> other events are
658outstanding you have to set the priority to C<EV::MINPRI>.
516 659
517The process will not block as long as any idle watchers are active, and 660The process will not block as long as any idle watchers are active, and
518they will be called repeatedly until stopped. 661they will be called repeatedly until stopped.
519 662
663For example, if you have idle watchers at priority C<0> and C<1>, and
664an I/O watcher at priority C<0>, then the idle watcher at priority C<1>
665and the I/O watcher will always run when ready. Only when the idle watcher
666at priority C<1> is stopped and the I/O watcher at priority C<0> is not
667pending with the C<0>-priority idle watcher be invoked.
668
520The C<idle_ns> variant doesn't start (activate) the newly created watcher. 669The C<idle_ns> variant doesn't start (activate) the newly created watcher.
521 670
671=back
672
673
674=head3 PREPARE WATCHERS - customise your event loop!
675
676=over 4
522 677
523=item $w = EV::prepare $callback 678=item $w = EV::prepare $callback
524 679
525=item $w = EV::prepare_ns $callback 680=item $w = EV::prepare_ns $callback
526 681
529 684
530See the EV::check watcher, below, for explanations and an example. 685See the EV::check watcher, below, for explanations and an example.
531 686
532The C<prepare_ns> variant doesn't start (activate) the newly created watcher. 687The C<prepare_ns> variant doesn't start (activate) the newly created watcher.
533 688
689=back
690
691
692=head3 CHECK WATCHERS - customise your event loop even more!
693
694=over 4
534 695
535=item $w = EV::check $callback 696=item $w = EV::check $callback
536 697
537=item $w = EV::check_ns $callback 698=item $w = EV::check_ns $callback
538 699
552 or return; 713 or return;
553 714
554 # make the dispatcher handle any outstanding stuff 715 # make the dispatcher handle any outstanding stuff
555 ... not shown 716 ... not shown
556 717
557 # create an IO watcher for each and every socket 718 # create an I/O watcher for each and every socket
558 @snmp_watcher = ( 719 @snmp_watcher = (
559 (map { EV::io $_, EV::READ, sub { } } 720 (map { EV::io $_, EV::READ, sub { } }
560 keys %{ $dispatcher->{_descriptors} }), 721 keys %{ $dispatcher->{_descriptors} }),
561 722
562 EV::timer +($event->[Net::SNMP::Dispatcher::_ACTIVE] 723 EV::timer +($event->[Net::SNMP::Dispatcher::_ACTIVE]
583first). 744first).
584 745
585The C<check_ns> variant doesn't start (activate) the newly created watcher. 746The C<check_ns> variant doesn't start (activate) the newly created watcher.
586 747
587=back 748=back
749
750
751=head3 FORK WATCHERS - the audacity to resume the event loop after a fork
752
753Fork watchers are called when a C<fork ()> was detected. The invocation
754is done before the event loop blocks next and before C<check> watchers
755are being called, and only in the child after the fork.
756
757=over 4
758
759=item $w = EV::fork $callback
760
761=item $w = EV::fork_ns $callback
762
763Call the callback before the event loop is resumed in the child process
764after a fork.
765
766The C<fork_ns> variant doesn't start (activate) the newly created watcher.
767
768=back
769
770
771=head1 PERL SIGNALS
772
773While Perl signal handling (C<%SIG>) is not affected by EV, the behaviour
774with EV is as the same as any other C library: Perl-signals will only be
775handled when Perl runs, which means your signal handler might be invoked
776only the next time an event callback is invoked.
777
778The solution is to use EV signal watchers (see C<EV::signal>), which will
779ensure proper operations with regards to other event watchers.
780
781If you cannot do this for whatever reason, you can also force a watcher
782to be called on every event loop iteration by installing a C<EV::check>
783watcher:
784
785 my $async_check = EV::check sub { };
786
787This ensures that perl shortly gets into control for a short time, and
788also ensures slower overall operation.
588 789
589=head1 THREADS 790=head1 THREADS
590 791
591Threads are not supported by this module in any way. Perl pseudo-threads 792Threads are not supported by this module in any way. Perl pseudo-threads
592is evil stuff and must die. As soon as Perl gains real threads I will work 793is evil stuff and must die. As soon as Perl gains real threads I will work
620 821
6211; 8221;
622 823
623=head1 SEE ALSO 824=head1 SEE ALSO
624 825
625 L<EV::DNS>. 826L<EV::ADNS> (asynchronous dns), L<Glib::EV> (makes Glib/Gtk2 use EV as
827event loop), L<Coro::EV> (efficient coroutines with EV).
626 828
627=head1 AUTHOR 829=head1 AUTHOR
628 830
629 Marc Lehmann <schmorp@schmorp.de> 831 Marc Lehmann <schmorp@schmorp.de>
630 http://home.schmorp.de/ 832 http://home.schmorp.de/

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines