ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/constants.pl.PL
(Generate patch)

Comparing AnyEvent/constants.pl.PL (file contents):
Revision 1.12 by root, Sat Sep 22 00:22:59 2012 UTC vs.
Revision 1.16 by root, Mon Feb 13 14:51:42 2017 UTC

1#! perl 1#! perl
2 2
3# this file is unfortunately only executed at Makefile.PL time 3# this file is unfortunately only executed at Makefile.PL time
4 4
5my ($fh, $oldstdout);
6
7BEGIN {
8 open $fh, ">lib/AnyEvent/constants.pl"
9 or die "lib/AnyEvent/constants.pl: $!\n";
10
11 $oldstdout = select $fh;
12
13 print "# automatically generated from constants.pl.PL\n";
14}
15
16{
17 # from common::sense 3.74
18 use strict qw(vars subs);
19 no warnings;
20 use warnings qw(FATAL closed threads internal debugging pack malloc portable prototype
21 inplace io pipe unpack glob digit printf
22 layer reserved taint closure semicolon);
23 no warnings qw(exec newline unopened);
24
25 BEGIN {
26 print "sub AnyEvent::common_sense {\n";
27 printf " local \$^W;\n";
28 printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n",
29 join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS};
30 # use strict, use utf8;
31 printf " \$^H |= 0x%x;\n", $^H;
32 print "}\n";
33 }
34}
35
5use Config; 36use Config;
37
38print "# generated for perl $] built for $Config{archname}\n";
6 39
7# when built as part of perl, these are not available 40# when built as part of perl, these are not available
8BEGIN { eval "use Socket ()" } 41BEGIN { eval "use Socket ()" }
9BEGIN { eval "use Fcntl ()" } 42BEGIN { eval "use Fcntl ()" }
10BEGIN { eval "use POSIX ()" } 43BEGIN { eval "use POSIX ()" }
11
12open my $fh, ">lib/AnyEvent/constants.pl"
13 or die "lib/AnyEvent/constants.pl: $!\n";
14
15my $oldstdout = select $fh;
16
17print "# automatically generated from constants.pl.PL for perl $] built for $Config{archname}\n";
18 44
19sub i($$) { 45sub i($$) {
20 print "sub $_[0](){", $_[1]*1, "}\n"; 46 print "sub $_[0](){", $_[1]*1, "}\n";
21} 47}
22 48
… …
137linux TCP_WINDOW_CLAMP 10 163linux TCP_WINDOW_CLAMP 10
138linux TCP_INFO 11 164linux TCP_INFO 11
139linux TCP_QUICKACK 12 165linux TCP_QUICKACK 12
140linux TCP_CONGESTION 13 166linux TCP_CONGESTION 13
141linux TCP_MD5SIG 14 167linux TCP_MD5SIG 14
168linux TCP_FASTOPEN 23
169linux MSG_DONTWAIT 0x0040
170linux MSG_NOSIGNAL 0x4000
171linux MSG_MORE 0x8000
172linux MSG_FASTOPEN 0x20000000
142netbsd TCP_MAXSEG 2 173netbsd TCP_MAXSEG 2
143netbsd TCP_KEEPIDLE 3 174netbsd TCP_KEEPIDLE 3
144netbsd TCP_NOPUSH 4 175netbsd TCP_NOPUSH 4
145netbsd TCP_KEEPINTVL 5 176netbsd TCP_KEEPINTVL 5
146netbsd TCP_KEEPCNT 6 177netbsd TCP_KEEPCNT 6
147netbsd TCP_KEEPINIT 7 178netbsd TCP_KEEPINIT 7
148netbsd TCP_NOOPT 8 179netbsd TCP_NOOPT 8
149netbsd TCP_MD5SIG 0x10 180netbsd TCP_MD5SIG 0x10
150netbsd TCP_CONGESTION 0x20 181netbsd TCP_CONGESTION 0x20
182netbsd MSG_NOSIGNAL 0x0400
151cygwin TCP_MAXSEG 0x02 183cygwin TCP_MAXSEG 0x02
152cygwin TCP_NOPUSH 0x04 184cygwin TCP_NOPUSH 0x04
153cygwin TCP_NOOPT 0x08 185cygwin TCP_NOOPT 0x08
154freebsd TCP_MAXSEG 0x02 186freebsd TCP_MAXSEG 0x02
155freebsd TCP_NOPUSH 0x04 187freebsd TCP_NOPUSH 0x04
156freebsd TCP_NOOPT 0x08 188freebsd TCP_NOOPT 0x08
157freebsd TCP_MD5SIG 0x10 189freebsd TCP_MD5SIG 0x10
158freebsd TCP_INFO 0x20 190freebsd TCP_INFO 0x20
159freebsd TCP_CONGESTION 0x40 191freebsd TCP_CONGESTION 0x40
192freebsd MSG_NOSIGNAL 0x20000
160solaris TCP_CORK 0x18 193solaris TCP_CORK 0x18
161solaris TCP_LINGER2 0x1C 194solaris TCP_LINGER2 0x1C
162solaris TCP_INIT_CWND 0x15 195solaris TCP_INIT_CWND 0x15
163solaris TCP_KEEPALIVE 0x8 196solaris TCP_KEEPALIVE 0x8
164solaris TCP_MAXSEG 0x02 197solaris TCP_MAXSEG 0x02

Diff Legend

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