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

Comparing EV/Makefile.PL (file contents):
Revision 1.12 by root, Thu Nov 1 15:46:43 2007 UTC vs.
Revision 1.37 by root, Thu Oct 30 04:01:46 2008 UTC

1use 5.006; 1use 5.006;
2 2
3use strict qw(vars subs);
3use Config; 4use Config;
4use ExtUtils::MakeMaker; 5use ExtUtils::MakeMaker;
5
6 6
7unless (-e "libev/ev_epoll.c") { 7unless (-e "libev/ev_epoll.c") {
8 print <<EOF; 8 print <<EOF;
9 9
10*** 10***
17 exit 1; 17 exit 1;
18} 18}
19 19
20print <<EOF; 20print <<EOF;
21 21
22
23*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** 22*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
23
24 24
25Welcome to EV configuration. If you are in a hurry, just press return here 25Welcome to EV configuration. If you are in a hurry, just press return here
26and hope for the best. The defaults should usually do. 26and hope for the best. The defaults should usually do.
27 27
28EOF 28EOF
31 $ENV{PERL_MM_USE_DEFAULT} = 1; 31 $ENV{PERL_MM_USE_DEFAULT} = 1;
32} 32}
33 33
34print <<EOF; 34print <<EOF;
35 35
36
37*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** 36*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
38 37
38
39POSIX optionally offers support for a monotonic clock source. EV can 39POSIX optionally offers support for a monotonic clock source. EV
40take advantage of this clock source to detect time jumps reliably. This 40can take advantage of this clock source to detect time jumps
41will usually slow down EV a tiny amount, but this is usually
42well-invested. Unfortunately, some systems are bound to be broken, so 41reliably. Unfortunately, some systems are bound to be broken, so you can
43you can disable this here. Whatever your reasons, you can completely 42disable this here: you can completely disable the detection and use of
44disable the detection and use of this monotonic clock by answering 'n' 43the monotonic clock by answering 'n' here. Support for this clock type
45here. Support for this clock type will otherwise be autodetected at both 44will otherwise be autodetected at both compile- and runtime. (this setting
46compile- and runtime. 45currently affects the use of nanosleep over select as well).
47 46
48EOF 47EOF
49 48
50if (prompt ("Enable optional support for CLOCK_MONOTONIC (y/n)?", "y") =~ /[yY]/) { 49my $DEFINE .= " -DEV_USE_MONOTONIC=" . (0 + (prompt ("Enable optional support for CLOCK_MONOTONIC (y/n)?", "y") =~ /[yY]/));
51 $DEFINE .= " -DEV_USE_MONOTONIC";
52}
53 50
54print <<EOF; 51print <<EOF;
55 52
56
57*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** 53*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
54
58 55
59POSIX optionally offers support for a (potentially) high-resolution 56POSIX optionally offers support for a (potentially) high-resolution
60realtime clock interface. In a good implementation, using it is faster 57realtime clock interface. In a good implementation, using it is faster
61than the normal method of using gettimeofday. Unfortunately, this option 58than the normal method of using gettimeofday. Unfortunately, this option
62is also bound to be broken on some systems, so you can disable use and 59is also bound to be broken on some systems, so you can disable use and
63probing of this feature altogether here. Otherwise support for this clock 60probing of this feature altogether here. Otherwise support for this clock
64type will be autodetected at compiletime. 61type will be autodetected at compiletime.
65 62
66EOF 63EOF
67 64
68if (prompt ("Prefer clock_gettime (CLOCK_REALTIME) over gettimeofday (y/n)?", "y") !~ /[yY]/) { 65$DEFINE .= " -DEV_USE_REALTIME=" . (0 + (prompt ("Prefer clock_gettime (CLOCK_REALTIME) over gettimeofday (y/n)?", "y") =~ /[yY]/));
66
67print <<EOF;
68
69*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
70
71
72EV can use various backends with various portability issue. The select
73backend is the most portable and makes for a good fallback, but it can be
74limited to a low number of file descriptors and/or might not compile. If
75you have problems with compiling ev_select.c, you might try to play around
76with disabling it here, or forcing it to use the fd_set provided by your
77OS, via the next question. I highly recommend keeping it in.
78
79EOF
80
81if (prompt ("Enable select backend (y/n)?", "y") =~ /[yY]/) {
69 $DEFINE .= " -DEV_USE_REALTIME=0"; 82 $DEFINE .= " -DEV_USE_SELECT=1";
70}
71 83
72print <<EOF; 84 print <<EOF;
73 85
74
75*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** 86*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
87
88
89The select backend can operate in two modes. One uses the system-provided
90fd_set and is usually limited to 1024 file descriptors (64 on windows),
91the other requires your header files to define NFDBITS and declare a
92suitable fd_mask type. If you run into problems compiling ev_select.c, you
93can try forcing the use of the system fd_set here.
94
95EOF
96
97 if (prompt ("Force use of system fd_set for select backend (y/n)?", "n") =~ /[yY]/) {
98 $DEFINE .= " -DEV_SELECT_USE_FD_SET";
99 }
100} else {
101 $DEFINE .= " -DEV_USE_SELECT=0";
102}
103
104print <<EOF;
105
106*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
107
108
109The second very portable backend is poll(2). It does not exist on windows
110and various versions of Mac OS X (and on the other versions it simply
111doesn't work), but works basically everywhere else. It is recommended to use
112the default here unless you run into compile problems in ev_poll.c.
113
114EOF
115
116$DEFINE .= " -DEV_USE_POLL=" . (0 + (prompt ("Enable poll backend (y/n)?", (-e "/usr/include/poll.h") ? "y" : "n") =~ /[yY]/));
117
118print <<EOF;
119
120*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
121
122
123Select and poll make it hard to write efficient servers, especially if the
124number of active connections is much lower than the watched ones. GNU/Linux
125systems have a more scalable method called "epoll", which EV can use. For
126this to work, both your kernel and glibc have to support epoll, but if you
127can compile it, the detection will be done at runtime, and EV will safely
128fall back to using select when epoll isn't available. If unsure, accept
129the default.
130
131EOF
132
133my $can_epoll = -e "/usr/include/sys/epoll.h";
134$can_epoll = $ENV{EV_EPOLL} if exists $ENV{EV_EPOLL};
135$DEFINE .= " -DEV_USE_EPOLL=" . (0 + (prompt ("Enable epoll backend (y/n)?", $can_epoll ? "y" : "n") =~ /[yY]/));
136
137print <<EOF;
138
139*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
140
141
142Similarly to the epoll backend above, EV can take advantage of kqueue on
143many BSD systems. Support for kqueue will be detected at runtime, with a
144safe fallback to other methods when it cannot be used.
145
146Note that kqueue is broken on most operating systems, so by default it
147won't be used on many platforms, but you can still create your own event
148loop with kqueue backend.
149
150Here is what we know:
151
152NetBSD: partially working in at least 3.1. Yeah! :)
153FreeBSD: broken on at least 6.2-STABLE,
154 sockets *likely* work, ptys definitely don't.
155OpenBSD: reports indicate that it likely doesn't work
156 (similar problems as on FreeBSD).
157OS X: completely, utterly broken on at least < 10.5.
158
159EOF
160
161my $can_kqueue = -e "/usr/include/sys/event.h";
162$can_kqueue = $ENV{EV_KQUEUE} if exists $ENV{EV_KQUEUE};
163$DEFINE .= " -DEV_USE_KQUEUE=" . (0 + (prompt ("Enable kqueue backend (y/n)?", $can_kqueue ? "y" : "n") =~ /[yY]/));
164
165print <<EOF;
166
167*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
168
169
170Similarly to the kqueue backend above, EV can take advantage of the
171solaris 10 event port interface. Support for event ports will be detected
172at runtime, with a safe fallback to other methods when it cannot be used.
173
174EOF
175
176$DEFINE .= " -DEV_USE_PORT=" . (0 + (prompt ("Enable event port backend (y/n)?", (-e "/usr/include/sys/port.h") ? "y" : "n") =~ /[yY]/));
177
178print <<EOF;
179
180*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
181
76 182
77EV needs the functions pthread_atfork and clock_gettime. On most systems 183EV needs the functions pthread_atfork and clock_gettime. On most systems
78you need some special libraries for this (such as -lrt and -lpthread). You can 184you need some special libraries for this (such as -lrt and -lpthread). You
79specify additional libraries to provide these calls now, or accept the default. 185can specify additional libraries to provide these calls (and any other
186required by EV) now, or accept the default.
80 187
81EOF 188EOF
82 189
190my $solaris_libs = $^O =~ /solaris/ ? " -lsocket -lnsl" : "";
83$LIBS = prompt "Extra libraries for pthread_atfork and clock_gettime?", "-lpthread -lrt"; 191my $LIBS = prompt "Extra libraries for pthread_atfork and clock_gettime?", "-lpthread -lrt$solaris_libs";
84 192
85 193
86print <<EOF; 194print <<EOF;
87 195
88
89*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** 196*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
90 197
91EV needs the functions pthread_atfork and clock_gettime. On most systems
92you need some special libraries for this (such as -lrt and -lpthread). You can
93specify additional libraries to provide these calls now, or accept the default.
94 198
95EOF 199A backend of a different kind is the Linux inotify(7) interface, which can
200be used to speed up (and reduce resource consumption) of stat watchers. If
201you have it, it is usually a good idea to enable it.
96 202
97if (prompt ("Enable epoll backend (y/n)?", (-e "/usr/include/sys/epoll.h") ? "y" : "n") =~ /[yY]/) {
98 $DEFINE .= " -DEV_USE_EPOLL";
99}
100
101print <<EOF;
102
103
104*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
105
106EOF 203EOF
107 204
108#$ENV{CC} = $Config{cc}; 205my $can_inotify = -e "/usr/include/sys/inotify.h";
109#$ENV{CFLAGS} = join " ", map $Config{$_}, qw(inc optimize ccflags cccdlflags); 206$can_inotify = $ENV{EV_INOTIFY} if exists $ENV{EV_INOTIFY};
110#system "cd libevent && ./configure --disable-shared --enable-static --disable-maintainer-mode" 207$DEFINE .= " -DEV_USE_INOTIFY=" . (0 + (prompt ("Enable inotify support (y/n)?", $can_inotify ? "y" : "n") =~ /[yY]/));
111# and die "configure failed.";
112 208
113#$LIBS = qx<cd libevent && make printlibs>; 209print <<EOF;
210
211*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
212
213
214Another useful bit of functionality is the Linux eventfd, which is useful
215for faster signal handling (don't care) and intra-thread communications
216(more relevant). Kernel support for this will be probed at runtime, but
217your libc must contain the necessary wrapper. Glibc 2.7 and later should
218have this wrapper.
219
220EOF
221
222my $can_eventfd = -e "/usr/include/sys/eventfd.h";
223$can_eventfd = $ENV{EV_EVENTFD} if exists $ENV{EV_EVENTFD};
224$DEFINE .= " -DEV_USE_EVENTFD=" . (0 + (prompt ("Enable linux eventfd support (y/n)?", $can_eventfd ? "y" : "n") =~ /[yY]/));
225
226print <<EOF;
227
228*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***
229
230
231EOF
232
233my @anyevent = eval { require AnyEvent; $AnyEvent::VERSION < 2.6 } ? (AnyEvent => 2.6) : ();
114 234
115WriteMakefile( 235WriteMakefile(
116 dist => { 236 dist => {
117 PREOP => 'pod2text EV.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;', 237 PREOP => 'pod2text EV.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
118 COMPRESS => 'gzip -9v', 238 COMPRESS => 'gzip -9v',
119 SUFFIX => '.gz', 239 SUFFIX => '.gz',
120 }, 240 },
121 depend => { 241 depend => {
122 "EV.c" => "EV/EVAPI.h libev/ev.c libev/ev.h libev/ev_epoll.c libev/ev_select.c", 242 "EV.c" => "EV/EVAPI.h "
243 . "libev/ev.c libev/ev.h libev/ev_epoll.c libev/ev_select.c libev/ev_kqueue.c libev/ev_poll.c "
244 . "libev/ev_vars.h libev/ev_wrap.h",
123 }, 245 },
124 INC => "-Ilibev", 246 INC => "-Ilibev",
125 DEFINE => "$DEFINE", 247 DEFINE => "$DEFINE",
126 NAME => "EV", 248 NAME => "EV",
127 LIBS => [$LIBS], 249 LIBS => [$LIBS],
250 PREREQ_PM => {
251 @anyevent,
252 },
128 VERSION_FROM => "EV.pm", 253 VERSION_FROM => "EV.pm",
129 PM => { 254 PM => {
130 'EV.pm' => '$(INST_LIBDIR)/EV.pm', 255 'EV.pm' => '$(INST_LIBDIR)/EV.pm',
131 'EV/AnyEvent.pm' => '$(INST_LIBDIR)/EV/AnyEvent.pm',
132 'EV/DNS.pm' => '$(INST_LIBDIR)/EV/DNS.pm',
133 'EV/EVAPI.h' => '$(INST_LIBDIR)/EV/EVAPI.h', 256 'EV/EVAPI.h' => '$(INST_LIBDIR)/EV/EVAPI.h',
134 'EV/MakeMaker.pm' => '$(INST_LIBDIR)/EV/MakeMaker.pm', 257 'EV/MakeMaker.pm' => '$(INST_LIBDIR)/EV/MakeMaker.pm',
135 'libev/ev.h' => '$(INST_LIBDIR)/EV/ev.h', 258 'libev/ev.h' => '$(INST_LIBDIR)/EV/ev.h',
259 'libev/ev.pod' => '$(INST_LIBDIR)/EV/libev.pod',
136 }, 260 },
261 MAN3PODS => {
262 'EV.pm' => '$(INST_MAN3DIR)/EV.$(MAN3EXT)',
263 'EV/MakeMaker.pm' => '$(INST_MAN3DIR)/EV::MakeMaker.$(MAN3EXT)',
264 'libev/ev.pod' => '$(INST_MAN3DIR)/EV::libev.$(MAN3EXT)',
265 },
137); 266);
138 267
139 268

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines