/usr/lib/perl5/AnyEvent/Impl/Glib.pm is in libanyevent-perl 6.120-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 | =head1 NAME
AnyEvent::Impl::Glib - AnyEvent adaptor for Glib
=head1 SYNOPSIS
use AnyEvent;
use Glib;
# this module gets loaded automatically as required
=head1 DESCRIPTION
This module provides transparent support for AnyEvent. You don't have to
do anything to make Glib work with AnyEvent except by loading Glib before
creating the first AnyEvent watcher.
Glib is probably the most inefficient event loop that has ever seen the
light of the world: Glib not only scans all its watchers (really, ALL of
them, whether I/O-related, timer-related or what not) during each loop
iteration, it also does so multiple times and rebuilds the poll list for
the kernel each time again, dynamically even.
On the positive side, and most importantly, Glib generally works
correctly, no quarrels there.
If you create many watchers (as in: more than two), you might consider one
of the L<Glib::EV>, L<EV::Glib> or L<Glib::Event> modules that map Glib to
other, more efficient, event loops.
This module uses the default Glib main context for all its watchers.
=cut
package AnyEvent::Impl::Glib;
use AnyEvent (); BEGIN { AnyEvent::common_sense }
use Glib 1.210 (); # (stable 1.220 2009, also Glib 2.4+ required, 2004)
our $mainloop = Glib::MainContext->default;
my %io_cond = (
r => ["in" , "hup"],
w => ["out", "hup"],
);
sub io {
my ($class, %arg) = @_;
my $cb = $arg{cb};
my $fd = fileno $arg{fh};
defined $fd or $fd = $arg{fh};
my $source = add_watch Glib::IO
$fd,
$io_cond{$arg{poll}},
sub { &$cb; 1 };
bless \\$source, $class
}
sub timer {
my ($class, %arg) = @_;
my $cb = $arg{cb};
my $ival = $arg{interval} * 1000;
my $source; $source = add Glib::Timeout $arg{after} < 0 ? 0 : $arg{after} * 1000,
$ival ? sub {
remove Glib::Source $source;
$source = add Glib::Timeout $ival, sub { &$cb; 1 };
&$cb;
0
}
: sub { &$cb; 0 };
bless \\$source, $class
}
sub idle {
my ($class, %arg) = @_;
my $cb = $arg{cb};
my $source = add Glib::Idle sub { &$cb; 1 };
bless \\$source, $class
}
sub DESTROY {
remove Glib::Source $${$_[0]};
}
our %pid_w;
our %pid_cb;
sub child {
my ($class, %arg) = @_;
$arg{pid} > 0
or Carp::croak "Glib does not support watching for all pids (pid == 0) as attempted";
my $pid = $arg{pid};
my $cb = $arg{cb};
$pid_cb{$pid}{$cb+0} = $cb;
$pid_w{$pid} ||= Glib::Child->watch_add ($pid, sub {
$_->($_[0], $_[1])
for values %{ $pid_cb{$pid} };
1
});
bless [$pid, $cb+0], "AnyEvent::Impl::Glib::child"
}
sub AnyEvent::Impl::Glib::child::DESTROY {
my ($pid, $icb) = @{ $_[0] };
delete $pid_cb{$pid}{$icb};
unless (%{ $pid_cb{$pid} }) {
delete $pid_cb{$pid};
remove Glib::Source delete $pid_w{$pid};
}
}
#sub loop {
# # hackish, but we do not have a mainloop, just a maincontext
# $mainloop->iteration (1) while 1;
#}
sub _poll {
$mainloop->iteration (1);
}
sub AnyEvent::CondVar::Base::_wait {
$mainloop->iteration (1) until exists $_[0]{_ae_sent};
}
1;
=head1 SEE ALSO
L<AnyEvent>, L<Glib>.
=head1 AUTHOR
Marc Lehmann <schmorp@schmorp.de>
http://home.schmorp.de/
=cut
|