[ViewVC] Diff of: cvs/rxvt-unicode/src/urxvt.pm

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.174 by root, Sat May 30 08:47:07 2009 UTC vs.
Revision 1.178 by root, Sat Dec 26 09:02:42 2009 UTC

 is that you cannot use blocking APIs, but the non-blocking variant should
 work.
 =cut
-our $VERSION = '3.4';
+our $VERSION = '5.23';
 $INC{"urxvt/anyevent.pm"} = 1; # mark us as there
 push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::];
 sub timer {
    my $cb = $arg{cb};
    urxvt::timer
       ->new
-      ->start (urxvt::NOW + $arg{after})
+      ->after ($arg{after})
-      ->cb (sub {
+      ->interval ($arg{interval})
+      ->start
+      ->cb ($argv{interval} ? $cb : sub {
         $_[0]->stop; # need to cancel manually
         $cb->();
       })
 }
 sub io {
    my ($class, %arg) = @_;
    my $cb = $arg{cb};
+   my $fd = fileno $arg{fh};
+   defined $fd or $fd = $arg{fh};
    bless [$arg{fh}, urxvt::iow
              ->new
-             ->fd (fileno $arg{fh})
+             ->fd ($fd)
              ->events (($arg{poll} =~ /r/ ? 1 : 0)
                      | ($arg{poll} =~ /w/ ? 2 : 0))
              ->start
-             ->cb (sub {
+             ->cb ($cb)
-                $cb->(($_[1] & 1 ? 'r' : '')
-                    . ($_[1] & 2 ? 'w' : ''));
-             })],
-         urxvt::anyevent::
+         ], urxvt::anyevent::
+}
+sub idle {
+   my ($class, %arg) = @_;
+   my $cb = $arg{cb};
+   urxvt::iw
+      ->new
+      ->start
+      ->cb ($cb)
+}
+sub child {
+   my ($class, %arg) = @_;
+   my $cb = $arg{cb};
+   urxvt::pw
+      ->new
+      ->start ($arg{pid})
+      ->cb (sub {
+        $_[0]->stop; # need to cancel manually
+        $cb->($_[0]->rpid, $_[0]->rstatus);
+      })
 }
 sub DESTROY {
    $_[0][1]->stop;
 }
   answerbackstring backgroundPixmap backspace_key boldFont boldItalicFont
   borderLess chdir color cursorBlink cursorUnderline cutchars delete_key
   display_name embed ext_bwidth fade font geometry hold iconName
   imFont imLocale inputMethod insecure int_bwidth intensityStyles
-  italicFont jumpScroll lineSpace loginShell mapAlert meta8 modifier
+  italicFont jumpScroll lineSpace letterSpace loginShell mapAlert meta8
-  mouseWheelScrollPage name override_redirect pastableTabs path perl_eval
+  modifier mouseWheelScrollPage name override_redirect pastableTabs path
-  perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
+  perl_eval perl_ext_1 perl_ext_2 perl_lib pointerBlank pointerBlankDelay
   preeditType print_pipe pty_fd reverseVideo saveLines scrollBar
   scrollBar_align scrollBar_floating scrollBar_right scrollBar_thickness
   scrollTtyKeypress scrollTtyOutput scrollWithBuffer scrollstyle
   secondaryScreen secondaryScroll shade term_name title
   transient_for transparent transparent_all tripleclickwords utmpInhibit

Diff Legend

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

Comparing rxvt-unicode/src/urxvt.pm (file contents): Revision 1.174 by root, Sat May 30 08:47:07 2009 UTC vs. Revision 1.178 by root, Sat Dec 26 09:02:42 2009 UTC

Diff Legend

Comparing rxvt-unicode/src/urxvt.pm (file contents):
Revision 1.174 by root, Sat May 30 08:47:07 2009 UTC vs.
Revision 1.178 by root, Sat Dec 26 09:02:42 2009 UTC