ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/cvsroot/Async-Interrupt/Interrupt.pm
(Generate patch)

Comparing cvsroot/Async-Interrupt/Interrupt.pm (file contents):
Revision 1.27 by root, Sat May 15 00:08:48 2010 UTC vs.
Revision 1.40 by root, Mon Apr 27 11:34:31 2020 UTC

38 38
39You can use this module to bind a signal to a callback while at the same 39You can use this module to bind a signal to a callback while at the same
40time activating an event pipe that you can C<select> on, fixing the race 40time activating an event pipe that you can C<select> on, fixing the race
41completely. 41completely.
42 42
43This can be used to implement the signal hadling in event loops, 43This can be used to implement the signal handling in event loops,
44e.g. L<AnyEvent>, L<POE>, L<IO::Async::Loop> and so on. 44e.g. L<AnyEvent>, L<POE>, L<IO::Async::Loop> and so on.
45 45
46=item Background threads want speedy reporting 46=item Background threads want speedy reporting
47 47
48Assume you want very exact timing, and you can spare an extra cpu core 48Assume you want very exact timing, and you can spare an extra cpu core
114callback just sets a global variable, as we are only interested in 114callback just sets a global variable, as we are only interested in
115synchronous signals (i.e. when the event loop polls), which is why the 115synchronous signals (i.e. when the event loop polls), which is why the
116pipe draining is not done automatically. 116pipe draining is not done automatically.
117 117
118 my $interrupt = new Async::Interrupt 118 my $interrupt = new Async::Interrupt
119 cb => sub { undef $SIGNAL_RECEIVED{$signum} } 119 cb => sub { undef $SIGNAL_RECEIVED{$signum} },
120 signal => $signum, 120 signal => $signum,
121 pipe => [$SIGPIPE->filenos], 121 pipe => [$SIGPIPE->filenos],
122 pipe_autodrain => 0, 122 pipe_autodrain => 0,
123 ; 123 ;
124 124
158 _attach $self, $asy->signal_func; 158 _attach $self, $asy->signal_func;
159 159
160So to repeat: first the XS object is created, then it is queried for the 160So to repeat: first the XS object is created, then it is queried for the
161callback that should be called when the Interrupt object gets signalled. 161callback that should be called when the Interrupt object gets signalled.
162 162
163Then the interrupt object is queried for the callback fucntion that the 163Then the interrupt object is queried for the callback function that the
164thread should call to signal the Interrupt object, and this callback is 164thread should call to signal the Interrupt object, and this callback is
165then attached to the thread. 165then attached to the thread.
166 166
167You have to be careful that your new thread is not signalling before the 167You have to be careful that your new thread is not signalling before the
168signal function was configured, for example by starting the background 168signal function was configured, for example by starting the background
236 # the next line forces initialisation of internal 236 # the next line forces initialisation of internal
237 # signal handling variables, otherwise, PL_sig_pending 237 # signal handling variables, otherwise, PL_sig_pending
238 # etc. might be null pointers. 238 # etc. might be null pointers.
239 $SIG{KILL} = sub { }; 239 $SIG{KILL} = sub { };
240 240
241 our $VERSION = '1.05'; 241 our $VERSION = 1.26;
242 242
243 require XSLoader; 243 require XSLoader;
244 XSLoader::load ("Async::Interrupt", $VERSION); 244 XSLoader::load ("Async::Interrupt", $VERSION);
245} 245}
246 246
419might imply, do anything with POSIX signals). 419might imply, do anything with POSIX signals).
420 420
421C<$value> must be in the valid range for a C<sig_atomic_t>, except C<0> 421C<$value> must be in the valid range for a C<sig_atomic_t>, except C<0>
422(1..127 is portable). 422(1..127 is portable).
423 423
424=item $async->handle
425
426Calls the callback if the object is pending.
427
428This method does not need to be called normally, as it will be invoked
429automatically. However, it can be used to force handling of outstanding
430interrupts while the object is blocked.
431
432One reason why one might want to do that is when you want to switch
433from asynchronous interruptions to synchronous one, using e.g. an event
434loop. To do that, one would first C<< $async->block >> the interrupt
435object, then register a read watcher on the C<pipe_fileno> that calls C<<
436$async->handle >>.
437
438This disables asynchronous interruptions, but ensures that interrupts are
439handled by the event loop.
440
424=item $async->signal_hysteresis ($enable) 441=item $async->signal_hysteresis ($enable)
425 442
426Enables or disables signal hysteresis (default: disabled). If a POSIX 443Enables or disables signal hysteresis (default: disabled). If a POSIX
427signal is used as a signal source for the interrupt object, then enabling 444signal is used as a signal source for the interrupt object, then enabling
428signal hysteresis causes Async::Interrupt to reset the signal action to 445signal hysteresis causes Async::Interrupt to reset the signal action to
432When you expect a lot of signals (e.g. when using SIGIO), then enabling 449When you expect a lot of signals (e.g. when using SIGIO), then enabling
433signal hysteresis can reduce the number of handler invocations 450signal hysteresis can reduce the number of handler invocations
434considerably, at the cost of two extra syscalls. 451considerably, at the cost of two extra syscalls.
435 452
436Note that setting the signal to C<SIG_IGN> can have unintended side 453Note that setting the signal to C<SIG_IGN> can have unintended side
437effects when you fork and exec other programs, as often they do nto expect 454effects when you fork and exec other programs, as often they do not expect
438signals to be ignored by default. 455signals to be ignored by default.
439 456
440=item $async->block 457=item $async->block
441 458
442=item $async->unblock 459=item $async->unblock
495=item $fileno = $async->pipe_fileno 512=item $fileno = $async->pipe_fileno
496 513
497Returns the reading side of the signalling pipe. If no signalling pipe is 514Returns the reading side of the signalling pipe. If no signalling pipe is
498currently attached to the object, it will dynamically create one. 515currently attached to the object, it will dynamically create one.
499 516
500Note that the only valid oepration on this file descriptor is to wait 517Note that the only valid operation on this file descriptor is to wait
501until it is readable. The fd might belong currently to a pipe, a tcp 518until it is readable. The fd might belong currently to a pipe, a tcp
502socket, or an eventfd, depending on the platform, and is guaranteed to be 519socket, or an eventfd, depending on the platform, and is guaranteed to be
503C<select>able. 520C<select>able.
504 521
505=item $async->pipe_autodrain ($enable) 522=item $async->pipe_autodrain ($enable)
510draining. 527draining.
511 528
512This is useful when you want to share one pipe among many Async::Interrupt 529This is useful when you want to share one pipe among many Async::Interrupt
513objects. 530objects.
514 531
532=item $async->pipe_drain
533
534Drains the pipe manually, for example, when autodrain is disabled. Does
535nothing when no pipe is enabled.
536
515=item $async->post_fork 537=item $async->post_fork
516 538
517The object will not normally be usable after a fork (as the pipe fd is 539The object will not normally be usable after a fork (as the pipe fd is
518shared between processes). Calling this method after a fork in the child 540shared between processes). Calling this method after a fork in the child
519ensures that the object will work as expected again. It only needs to be 541ensures that the object will work as expected again. It only needs to be
595 617
596 c_func (c_arg); 618 c_func (c_arg);
597 619
598=item $epipe->renew 620=item $epipe->renew
599 621
600Recreates the pipe (useful after a fork). The reading side will not change 622Recreates the pipe (usually required in the child after a fork). The
601it's file descriptor number, but the writing side might. 623reading side will not change it's file descriptor number, but the writing
624side might.
602 625
603=item $epipe->wait 626=item $epipe->wait
604 627
605This method blocks the process until there are events on the pipe. This is 628This method blocks the process until there are events on the pipe. This is
606not a very event-based or ncie way of usign an event pipe, but it can be 629not a very event-based or ncie way of usign an event pipe, but it can be
615=head1 IMPLEMENTATION DETAILS AND LIMITATIONS 638=head1 IMPLEMENTATION DETAILS AND LIMITATIONS
616 639
617This module works by "hijacking" SIGKILL, which is guaranteed to always 640This module works by "hijacking" SIGKILL, which is guaranteed to always
618exist, but also cannot be caught, so is always available. 641exist, but also cannot be caught, so is always available.
619 642
620Basically, this module fakes the occurance of a SIGKILL signal and 643Basically, this module fakes the occurence of a SIGKILL signal and
621then intercepts the interpreter handling it. This makes normal signal 644then intercepts the interpreter handling it. This makes normal signal
622handling slower (probably unmeasurably, though), but has the advantage 645handling slower (probably unmeasurably, though), but has the advantage
623of not requiring a special runops function, nor slowing down normal perl 646of not requiring a special runops function, nor slowing down normal perl
624execution a bit. 647execution a bit.
625 648

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines