EV/Makefile.PL

use 5.006;

use strict qw(vars subs);
use Config;
use ExtUtils::MakeMaker;

unless (-e "libev/ev_epoll.c") {
   print <<EOF;

***
*** ERROR: libev is missing or damaged. If you used a CVS check-out of EV,
*** you also have to check-out the "libev" module from the same CVS
*** repository into the EV dir (i.e. EV/libev from outside).
***

EOF
   exit 1;
}

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


Welcome to EV configuration. If you are in a hurry, just press return here
and hope for the best. The defaults should usually do.

EOF

if (prompt ("Skip further questions and use defaults (y/n)?", "y") =~ /[yY]/) {
   $ENV{PERL_MM_USE_DEFAULT} = 1;
}

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


POSIX optionally offers support for a monotonic clock source. EV
can take advantage of this clock source to detect time jumps
reliably. Unfortunately, some systems are bound to be broken, so you can
disable this here: you can completely disable the detection and use of
the monotonic clock by answering 'n' here. Support for this clock type
will otherwise be autodetected at both compile- and runtime. (this setting
currently affects the use of nanosleep over select as well).

EOF

my $DEFINE .= " -DEV_USE_MONOTONIC=" . (0 + (prompt ("Enable optional support for CLOCK_MONOTONIC (y/n)?", "y") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


POSIX optionally offers support for a (potentially) high-resolution
realtime clock interface. In a good implementation, using it is faster
than the normal method of using gettimeofday. Unfortunately, this option
is also bound to be broken on some systems, and current EV versions do not
actually call C<gettimeofday> very often, so ti defaults to no.

EOF

$DEFINE .= " -DEV_USE_REALTIME=" . (0 + (prompt ("Prefer clock_gettime (CLOCK_REALTIME) over gettimeofday (y/n)?", "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


EV can use various backends with various portability issue. The select
backend is the most portable and makes for a good fallback, but it can be
limited to a low number of file descriptors and/or might not compile. If
you have problems with compiling ev_select.c, you might try to play around
with disabling it here, or forcing it to use the fd_set provided by your
OS, via the next question. I highly recommend keeping it in.

EOF

if (prompt ("Enable select backend (y/n)?", "y") =~ /[yY]/) {
   $DEFINE .= " -DEV_USE_SELECT=1";

   print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


The select backend can operate in two modes. One uses the system-provided
fd_set and is usually limited to 1024 file descriptors (64 on windows),
the other requires your header files to define NFDBITS and declare a
suitable fd_mask type. If you run into problems compiling ev_select.c, you
can try forcing the use of the system fd_set here.

EOF

   if (prompt ("Force use of system fd_set for select backend (y/n)?", "n") =~ /[yY]/) {
      $DEFINE .= " -DEV_SELECT_USE_FD_SET";
   } 
} else {
   $DEFINE .= " -DEV_USE_SELECT=0";
} 

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


The second very portable backend is poll(2). It does not exist on windows
and various versions of Mac OS X (and on the other versions it simply
doesn't work), but works basically everywhere else. It is recommended to use
the default here unless you run into compile problems in ev_poll.c.

EOF

$DEFINE .= " -DEV_USE_POLL=" . (0 + (prompt ("Enable poll backend (y/n)?", (-e "/usr/include/poll.h") ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


Select and poll make it hard to write efficient servers, especially if the
number of active connections is much lower than the watched ones. GNU/Linux
systems have a more scalable method called "epoll", which EV can use. For
this to work, both your kernel and glibc have to support epoll, but if you
can compile it, the detection will be done at runtime, and EV will safely
fall back to using select when epoll isn't available. If unsure, accept
the default.

EOF

my $can_epoll = -e "/usr/include/sys/epoll.h";
$can_epoll = $ENV{EV_EPOLL} if exists $ENV{EV_EPOLL};
$DEFINE .= " -DEV_USE_EPOLL=" . (0 + (prompt ("Enable epoll backend (y/n)?", $can_epoll ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


Similarly to the epoll backend above, EV can take advantage of kqueue on
many BSD systems. Support for kqueue will be detected at runtime, with a
safe fallback to other methods when it cannot be used.

Note that kqueue is broken on most operating systems, so by default it
won't be used on many platforms, but you can still create your own event
loop with kqueue backend.

Here is what we know:

NetBSD:  partially working in at least 3.1. Yeah! :)
FreeBSD: broken on at least 6.2-STABLE,
         sockets *likely* work, ptys definitely don't.
OpenBSD: reports indicate that it likely doesn't work
         (similar problems as on FreeBSD).
OS X:    completely, utterly broken on at least < 10.5.

EOF

my $can_kqueue = -e "/usr/include/sys/event.h";
$can_kqueue = $ENV{EV_KQUEUE} if exists $ENV{EV_KQUEUE};
$DEFINE .= " -DEV_USE_KQUEUE=" . (0 + (prompt ("Enable kqueue backend (y/n)?", $can_kqueue ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


Similarly to the kqueue backend above, EV can take advantage of the
solaris 10 event port interface. Support for event ports will be detected
at runtime, with a safe fallback to other methods when it cannot be used.

EOF

$DEFINE .= " -DEV_USE_PORT=" . (0 + (prompt ("Enable event port backend (y/n)?", (-e "/usr/include/sys/port.h") ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


EV needs the functions pthread_atfork and clock_gettime. On most systems
you need some special libraries for this (such as -lrt and -lpthread). You
can specify additional libraries to provide these calls (and any other
required by EV) now, or accept the default.

EOF

my $solaris_libs = $^O =~ /solaris/i ? "-lsocket -lnsl" : "";
my $librt = $^O =~ /linux/i ? "-lpthread" : "-lpthread -lrt";
my $LIBS = prompt "Extra libraries for pthread_atfork and clock_gettime?", "$librt $solaris_libs";


print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


A backend of a different kind is the Linux inotify(7) interface, which can
be used to speed up (and reduce resource consumption) of stat watchers. If
you have it, it is usually a good idea to enable it.

EOF

my $can_inotify = -e "/usr/include/sys/inotify.h";
$can_inotify = $ENV{EV_INOTIFY} if exists $ENV{EV_INOTIFY};
$DEFINE .= " -DEV_USE_INOTIFY=" . (0 + (prompt ("Enable inotify support (y/n)?", $can_inotify ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


Another useful bit of functionality is the Linux eventfd, which is useful
for faster signal handling (don't care) and intra-thread communications
(more relevant). Kernel support for this will be probed at runtime, but
your libc must contain the necessary wrapper. Glibc 2.7 and later should
have this wrapper.

EOF

my $can_eventfd = -e "/usr/include/sys/eventfd.h";
$can_eventfd = $ENV{EV_EVENTFD} if exists $ENV{EV_EVENTFD};
$DEFINE .= " -DEV_USE_EVENTFD=" . (0 + (prompt ("Enable linux eventfd support (y/n)?", $can_eventfd ? "y" : "n") =~ /[yY]/));

print <<EOF;

*** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** *** ***


EOF

my @anyevent = eval { require AnyEvent; $AnyEvent::VERSION < 2.6 } ? (AnyEvent => 2.6) : ();

WriteMakefile(
    dist        => {
                    PREOP       => 'pod2text EV.pm | tee README >$(DISTVNAME)/README; chmod -R u=rwX,go=rX . ;',
                    COMPRESS    => 'gzip -9v',
                    SUFFIX      => '.gz',
                   },
    depend => {
       "EV.c" => "EV/EVAPI.h "
               . "libev/ev.c libev/ev.h libev/ev_epoll.c libev/ev_select.c libev/ev_kqueue.c libev/ev_poll.c "
               . "libev/ev_vars.h libev/ev_wrap.h",
    },
    INC       => "-Ilibev",
    DEFINE    => "$DEFINE",
    NAME => "EV",
    LIBS => [$LIBS],
    PREREQ_PM => {
       @anyevent,
    },
    VERSION_FROM => "EV.pm",
    PM           => {
                    'EV.pm'             => '$(INST_LIBDIR)/EV.pm',
                    'EV/EVAPI.h'        => '$(INST_LIBDIR)/EV/EVAPI.h',
                    'EV/MakeMaker.pm'   => '$(INST_LIBDIR)/EV/MakeMaker.pm',
                    'libev/ev.h'        => '$(INST_LIBDIR)/EV/ev.h',
                    'libev/ev.pod'      => '$(INST_LIBDIR)/EV/libev.pod',
                 },
    MAN3PODS => {
                    'EV.pm'           => '$(INST_MAN3DIR)/EV.$(MAN3EXT)',
                    'EV/MakeMaker.pm' => '$(INST_MAN3DIR)/EV::MakeMaker.$(MAN3EXT)',
                    'libev/ev.pod'    => '$(INST_MAN3DIR)/EV::libev.$(MAN3EXT)',
                },
);


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