ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/Makefile.PL
Revision: 1.58
Committed: Sat Jun 22 15:50:36 2019 UTC (4 years, 10 months ago) by root
Content type: text/plain
Branch: MAIN
Changes since 1.57: +22 -0 lines
Log Message:
*** empty log message ***

File Contents

# User Rev Content
1 root 1.37 use strict qw(vars subs);
2 root 1.57 use Canary::Stability EV => 1, 5.008002;
3 root 1.7 use Config;
4 root 1.1 use ExtUtils::MakeMaker;
5    
6 root 1.55 sub have_inc($) {
7     scalar grep -r "$_/$_[0]", $Config{usrinc}, split / /, $Config{incpth}
8     }
9    
10 root 1.56 my $DEFINE;
11    
12 root 1.10 unless (-e "libev/ev_epoll.c") {
13     print <<EOF;
14    
15     ***
16     *** ERROR: libev is missing or damaged. If you used a CVS check-out of EV,
17     *** you also have to check-out the "libev" module from the same CVS
18     *** repository into the EV dir (i.e. EV/libev from outside).
19     ***
20    
21     EOF
22     exit 1;
23     }
24    
25 root 1.11 print <<EOF;
26    
27 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
28 root 1.11
29    
30     Welcome to EV configuration. If you are in a hurry, just press return here
31     and hope for the best. The defaults should usually do.
32    
33     EOF
34    
35     if (prompt ("Skip further questions and use defaults (y/n)?", "y") =~ /[yY]/) {
36     $ENV{PERL_MM_USE_DEFAULT} = 1;
37     }
38    
39     print <<EOF;
40    
41 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
42 root 1.11
43    
44 root 1.14 POSIX optionally offers support for a monotonic clock source. EV
45 root 1.45 can take advantage of this clock source to detect time jumps more
46 root 1.14 reliably. Unfortunately, some systems are bound to be broken, so you can
47     disable this here: you can completely disable the detection and use of
48     the monotonic clock by answering 'n' here. Support for this clock type
49 root 1.29 will otherwise be autodetected at both compile- and runtime. (this setting
50     currently affects the use of nanosleep over select as well).
51 root 1.11
52     EOF
53    
54 root 1.56 unless (prompt ("Enable optional support for CLOCK_MONOTONIC (y/n)?", "y") =~ /[yY]/) {
55     $DEFINE .= " -DEV_USE_MONOTONIC=0";
56     }
57 root 1.11
58     print <<EOF;
59    
60 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
61 root 1.11
62    
63     POSIX optionally offers support for a (potentially) high-resolution
64     realtime clock interface. In a good implementation, using it is faster
65     than the normal method of using gettimeofday. Unfortunately, this option
66 root 1.39 is also bound to be broken on some systems, and current EV versions do not
67 root 1.45 actually call gettimeofday very often, so it defaults to no.
68 root 1.11
69     EOF
70    
71 root 1.39 $DEFINE .= " -DEV_USE_REALTIME=" . (0 + (prompt ("Prefer clock_gettime (CLOCK_REALTIME) over gettimeofday (y/n)?", "n") =~ /[yY]/));
72 root 1.11
73     print <<EOF;
74    
75 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
76 root 1.11
77    
78 root 1.46 EV can use various backends with various portability issues. The select
79 root 1.19 backend is the most portable and makes for a good fallback, but it can be
80 root 1.22 limited to a low number of file descriptors and/or might not compile. If
81     you have problems with compiling ev_select.c, you might try to play around
82 root 1.19 with disabling it here, or forcing it to use the fd_set provided by your
83     OS, via the next question. I highly recommend keeping it in.
84    
85     EOF
86    
87     if (prompt ("Enable select backend (y/n)?", "y") =~ /[yY]/) {
88 root 1.22 $DEFINE .= " -DEV_USE_SELECT=1";
89 root 1.19
90     print <<EOF;
91    
92 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
93 root 1.19
94    
95     The select backend can operate in two modes. One uses the system-provided
96     fd_set and is usually limited to 1024 file descriptors (64 on windows),
97     the other requires your header files to define NFDBITS and declare a
98     suitable fd_mask type. If you run into problems compiling ev_select.c, you
99     can try forcing the use of the system fd_set here.
100    
101     EOF
102    
103     if (prompt ("Force use of system fd_set for select backend (y/n)?", "n") =~ /[yY]/) {
104     $DEFINE .= " -DEV_SELECT_USE_FD_SET";
105 root 1.55 }
106 root 1.22 } else {
107     $DEFINE .= " -DEV_USE_SELECT=0";
108 root 1.55 }
109 root 1.19
110     print <<EOF;
111    
112 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
113 root 1.19
114    
115     The second very portable backend is poll(2). It does not exist on windows
116     and various versions of Mac OS X (and on the other versions it simply
117     doesn't work), but works basically everywhere else. It is recommended to use
118     the default here unless you run into compile problems in ev_poll.c.
119    
120     EOF
121    
122 root 1.55 $DEFINE .= " -DEV_USE_POLL=" . (0 + (prompt ("Enable poll backend (y/n)?", (have_inc "poll.h") ? "y" : "n") =~ /[yY]/));
123 root 1.19
124     print <<EOF;
125    
126 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
127 root 1.19
128    
129 root 1.24 Select and poll make it hard to write efficient servers, especially if the
130     number of active connections is much lower than the watched ones. GNU/Linux
131     systems have a more scalable method called "epoll", which EV can use. For
132     this to work, both your kernel and glibc have to support epoll, but if you
133     can compile it, the detection will be done at runtime, and EV will safely
134     fall back to using select when epoll isn't available. If unsure, accept
135     the default.
136 root 1.11
137     EOF
138    
139 root 1.55 my $can_epoll = have_inc "sys/epoll.h";
140 root 1.37 $can_epoll = $ENV{EV_EPOLL} if exists $ENV{EV_EPOLL};
141     $DEFINE .= " -DEV_USE_EPOLL=" . (0 + (prompt ("Enable epoll backend (y/n)?", $can_epoll ? "y" : "n") =~ /[yY]/));
142 root 1.15
143     print <<EOF;
144    
145 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
146 root 1.15
147    
148 root 1.58 Linux 4.18 introduced another event polling interface, this time using
149     the Linux AIO API. While this API is far superior to epoll and almost
150     rivals kqueue, it also suffers from the same issues as kqueue typically
151     does: only a subset of file types are supported (as of 4.19, I have seen
152     eventfd, pipes, sockets files and some devices, but no ttys). It also
153     is subject arbitrary system-wide limits imposed on it. Therefore, this
154     backend is not used by default, even when it is compiled in, and you have
155     to request it explicitly, e.g. with LIBEV_FLAGS=64. If unsure, accept the
156     default.
157    
158     EOF
159    
160     my $can_linuxaio = have_inc "linux/aio_abi.h";
161     $can_linuxaio or die;
162     $can_linuxaio = $ENV{EV_LINUXAIO} if exists $ENV{EV_LINUXAIO};
163     $DEFINE .= " -DEV_USE_LINUXAIO=" . (0 + (prompt ("Enable linux aio backend (y/n)?", $can_linuxaio ? "y" : "n") =~ /[yY]/));
164    
165     print <<EOF;
166    
167     *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
168    
169    
170 root 1.23 Similarly to the epoll backend above, EV can take advantage of kqueue on
171     many BSD systems. Support for kqueue will be detected at runtime, with a
172     safe fallback to other methods when it cannot be used.
173    
174 root 1.31 Note that kqueue is broken on most operating systems, so by default it
175     won't be used on many platforms, but you can still create your own event
176 root 1.40 loop with kqueue backend if you ask specifically for it.
177 root 1.31
178     Here is what we know:
179 root 1.23
180 root 1.45 NetBSD: partially working in at least 3.1 and later. Yeah! :)
181     FreeBSD: broken on at least 6.2-STABLE, spotty in later versions,
182 root 1.28 sockets *likely* work, ptys definitely don't.
183 root 1.23 OpenBSD: reports indicate that it likely doesn't work
184     (similar problems as on FreeBSD).
185 root 1.45 OS X: completely, utterly broken on at least <= 10.6.
186 root 1.11
187 root 1.15 EOF
188    
189 root 1.55 my $can_kqueue = have_inc "sys/event.h";
190 root 1.37 $can_kqueue = $ENV{EV_KQUEUE} if exists $ENV{EV_KQUEUE};
191 root 1.23 $DEFINE .= " -DEV_USE_KQUEUE=" . (0 + (prompt ("Enable kqueue backend (y/n)?", $can_kqueue ? "y" : "n") =~ /[yY]/));
192 root 1.11
193     print <<EOF;
194    
195 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
196 root 1.11
197    
198 root 1.21 Similarly to the kqueue backend above, EV can take advantage of the
199 root 1.26 solaris 10 event port interface. Support for event ports will be detected
200     at runtime, with a safe fallback to other methods when it cannot be used.
201 root 1.21
202     EOF
203    
204 root 1.55 $DEFINE .= " -DEV_USE_PORT=" . (0 + (prompt ("Enable event port backend (y/n)?", (have_inc "sys/port.h") ? "y" : "n") =~ /[yY]/));
205 root 1.21
206     print <<EOF;
207    
208 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
209 root 1.21
210    
211 root 1.11 EV needs the functions pthread_atfork and clock_gettime. On most systems
212 root 1.15 you need some special libraries for this (such as -lrt and -lpthread). You
213 root 1.23 can specify additional libraries to provide these calls (and any other
214     required by EV) now, or accept the default.
215 root 1.11
216 root 1.53 On GNU/Linux systems, EV uses the LSB 3.1 __register_atfork function
217     to avoid the dependency on libpthread, and directly uses the clock_gettime
218     syscall to avoid a dependency on librt.
219    
220 root 1.11 EOF
221    
222 root 1.38 my $solaris_libs = $^O =~ /solaris/i ? "-lsocket -lnsl" : "";
223 root 1.53 my $librt = $^O =~ /linux/i ? "" : "-lpthread -lrt";
224     my $LIBS = exists $ENV{EV_LIBS} ? $ENV{EV_LIBS} : "$librt $solaris_libs";
225     $LIBS = prompt "Extra libraries for pthread_atfork and clock_gettime?", $LIBS;
226 root 1.15
227 root 1.11
228     print <<EOF;
229    
230 root 1.22 *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
231 root 1.11
232    
233 root 1.25 A backend of a different kind is the Linux inotify(7) interface, which can
234     be used to speed up (and reduce resource consumption) of stat watchers. If
235 root 1.40 you have the include file and libc support for it, it is usually a good
236     idea to enable it, as kernel availability is detected at runtime.
237 root 1.25
238     EOF
239    
240 root 1.55 my $can_inotify = have_inc "sys/inotify.h";
241 root 1.37 $can_inotify = $ENV{EV_INOTIFY} if exists $ENV{EV_INOTIFY};
242 root 1.25 $DEFINE .= " -DEV_USE_INOTIFY=" . (0 + (prompt ("Enable inotify support (y/n)?", $can_inotify ? "y" : "n") =~ /[yY]/));
243    
244     print <<EOF;
245    
246     *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
247    
248    
249 root 1.36 Another useful bit of functionality is the Linux eventfd, which is useful
250     for faster signal handling (don't care) and intra-thread communications
251     (more relevant). Kernel support for this will be probed at runtime, but
252     your libc must contain the necessary wrapper. Glibc 2.7 and later should
253     have this wrapper.
254    
255     EOF
256    
257 root 1.55 my $can_eventfd = have_inc "sys/eventfd.h";
258 root 1.37 $can_eventfd = $ENV{EV_EVENTFD} if exists $ENV{EV_EVENTFD};
259     $DEFINE .= " -DEV_USE_EVENTFD=" . (0 + (prompt ("Enable linux eventfd support (y/n)?", $can_eventfd ? "y" : "n") =~ /[yY]/));
260 root 1.36
261     print <<EOF;
262    
263     *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
264    
265    
266 root 1.42 Another sometimes useful bit of functionality is the Linux signalfd, which
267     is useful for faster signal handling (don't care). Kernel support for
268     this will be probed at runtime, but your libc must contain the necessary
269 root 1.44 wrapper. Glibc 2.7 and later should have this wrapper.
270 root 1.42
271     EOF
272    
273 root 1.55 my $can_signalfd = have_inc "sys/signalfd.h";
274 root 1.42 $can_signalfd = $ENV{EV_SIGNALFD} if exists $ENV{EV_SIGNALFD};
275     $DEFINE .= " -DEV_USE_SIGNALFD=" . (0 + (prompt ("Enable linux signalfd support (y/n)?", $can_signalfd ? "y" : "n") =~ /[yY]/));
276    
277     print <<EOF;
278    
279     *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
280    
281    
282 root 1.48 Very rarely, people want to tweak EV even more, e.g. to exclude
283 root 1.52 or include certain watcher types or backends. This can be done by adding
284 root 1.48 extra -D options here, or via the EV_EXTRA_DEFS environment variable.
285 root 1.52
286     For example, if you run into compile problems because of missing memory
287     fences (or you just want extra performance), you can tell EV to not support
288     smp and threads via -DEV_NO_THREADS.
289    
290 root 1.48 Normal persons just press enter.
291    
292     EOF
293    
294 root 1.49 $DEFINE .= " " . prompt "Any extra -D options?", "$ENV{EV_EXTRA_DEFS}";
295 root 1.48
296     print <<EOF;
297    
298     *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
299    
300    
301 root 1.11 EOF
302    
303 root 1.47 my @anyevent = eval { require AnyEvent; $AnyEvent::VERSION < 5.29 } ? (AnyEvent => 5.29) : ();
304 root 1.20
305 root 1.1 WriteMakefile(
306     dist => {
307 root 1.2 PREOP => 'pod2text EV.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
308 root 1.1 COMPRESS => 'gzip -9v',
309     SUFFIX => '.gz',
310     },
311 root 1.10 depend => {
312 root 1.13 "EV.c" => "EV/EVAPI.h "
313 root 1.17 . "libev/ev.c libev/ev.h libev/ev_epoll.c libev/ev_select.c libev/ev_kqueue.c libev/ev_poll.c "
314 root 1.30 . "libev/ev_vars.h libev/ev_wrap.h",
315 root 1.10 },
316 root 1.8 INC => "-Ilibev",
317 root 1.11 DEFINE => "$DEFINE",
318 root 1.2 NAME => "EV",
319 root 1.11 LIBS => [$LIBS],
320 root 1.20 PREREQ_PM => {
321     @anyevent,
322 root 1.41 "common::sense" => 0,
323 root 1.20 },
324 root 1.57 CONFIGURE_REQUIRES => { "ExtUtils::MakeMaker" => 6.52, "Canary::Stability" => 0 },
325 root 1.2 VERSION_FROM => "EV.pm",
326 root 1.5 PM => {
327 root 1.54 'EV.pm' => '$(INST_LIB)/EV.pm',
328     'EV/EVAPI.h' => '$(INST_LIB)/EV/EVAPI.h',
329     'EV/MakeMaker.pm' => '$(INST_LIB)/EV/MakeMaker.pm',
330     'libev/ev.h' => '$(INST_LIB)/EV/ev.h',
331     'libev/ev.pod' => '$(INST_LIB)/EV/libev.pod',
332 root 1.5 },
333 root 1.34 MAN3PODS => {
334     'EV.pm' => '$(INST_MAN3DIR)/EV.$(MAN3EXT)',
335     'EV/MakeMaker.pm' => '$(INST_MAN3DIR)/EV::MakeMaker.$(MAN3EXT)',
336 root 1.35 'libev/ev.pod' => '$(INST_MAN3DIR)/EV::libev.$(MAN3EXT)',
337 root 1.34 },
338 root 1.1 );
339    
340 root 1.6