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.6 by root, Mon Oct 11 03:41:39 2010 UTC vs.
Revision 1.13 by root, Tue Jul 30 23:14:32 2013 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
5use Socket; 5my ($fh, $oldstdout);
6 6
7BEGIN {
7open my $fh, ">lib/AnyEvent/constants.pl" 8 open $fh, ">lib/AnyEvent/constants.pl"
8 or die "lib/AnyEvent/constants.pl: $_[0]\n"; 9 or die "lib/AnyEvent/constants.pl: $!\n";
9 10
10my $oldstdout = select $fh; 11 $oldstdout = select $fh;
12
13 print "# automatically generated from constants.pl.PL\n";
14}
15
16{
17 # from common::sense 3.7
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 deprecated glob digit printf
22 layer reserved taint closure semicolon);
23 no warnings qw(exec newline unopened);
24
25 BEGIN {
26 my $H = $^H;
27 my $WARN = ${^WARNING_BITS};
28
29 print "sub AnyEvent::common_sense {\n";
30 printf " local \$^W;\n";
31 printf " \${^WARNING_BITS} ^= \${^WARNING_BITS} ^ \"%s\";\n",
32 join "", map "\\x$_", unpack "(H2)*", ${^WARNING_BITS};
33 # use strict, use utf8;
34 printf " \$^H |= 0x%x;\n", $^H;
35 print "}\n";
36 }
37}
38
39use Config;
40
41print "# generated for perl $] built for $Config{archname}\n";
42
43# when built as part of perl, these are not available
44BEGIN { eval "use Socket ()" }
45BEGIN { eval "use Fcntl ()" }
46BEGIN { eval "use POSIX ()" }
11 47
12sub i($$) { 48sub i($$) {
13 print "sub $_[0] () { ", $_[1]*1, " }\n"; 49 print "sub $_[0](){", $_[1]*1, "}\n";
14} 50}
15 51
16sub n($$) { 52sub n($$) {
17 print "sub $_[0] () { ", (defined $_[1] ? $_[1]*1 : "undef"), " }\n"; 53 print "sub $_[0](){", (defined $_[1] ? $_[1]*1 : "undef"), "}\n";
18} 54}
19 55
20print "package AnyEvent;\n"; 56print "package AnyEvent;\n";
21 57
22our $WIN32 = $^O =~ /mswin32/i; 58our $WIN32 = $^O =~ /mswin32/i;
23 59
60# used a lot
24i CYGWIN => $^O =~ /cygwin/i; 61i CYGWIN => $^O =~ /cygwin/i;
25i WIN32 => $WIN32; 62i WIN32 => $WIN32;
26 63
27use Fcntl (); 64# add these purely to avoid loading Fcntl, which is slow and bloated.
28 65
29i F_SETFL => eval { Fcntl::F_SETFL() };
30i F_SETFD => eval { Fcntl::F_SETFD() }; 66i F_SETFD => eval { Fcntl::F_SETFD() } || 2;
67i F_SETFL => eval { Fcntl::F_SETFL() } || 4;
31i O_NONBLOCK => eval { Fcntl::O_NONBLOCK() }; 68i O_NONBLOCK => eval { Fcntl::O_NONBLOCK() } || 04000;
32i FD_CLOEXEC => eval { Fcntl::FD_CLOEXEC() }; 69i FD_CLOEXEC => eval { Fcntl::FD_CLOEXEC() } || 1;
70
71print "package AnyEvent::Base;\n";
72
73# add these purely to avoid loading POSIX, which is slow and bloated.
74
75i WNOHANG => eval { POSIX::WNOHANG() } || 1;
76
77print "package AnyEvent::IO;\n";
78
79i O_RDONLY => eval { Fcntl::O_RDONLY() } || 0;
80i O_WRONLY => eval { Fcntl::O_WRONLY() } || 1;
81i O_RDWR => eval { Fcntl::O_RDWR () } || 2;
82i O_CREAT => eval { Fcntl::O_CREAT () } || 64;
83i O_EXCL => eval { Fcntl::O_EXCL () } || 128;
84i O_TRUNC => eval { Fcntl::O_TRUNC () } || 512;
85i O_APPEND => eval { Fcntl::O_APPEND() } || 1024;
33 86
34print "package AnyEvent::Util;\n"; 87print "package AnyEvent::Util;\n";
35 88
36# broken windows perls use undocumented error codes... 89# broken windows perls use undocumented error codes...
37if ($WIN32) { 90if ($WIN32) {
… …
45 i WSAEINPROGRESS => -1e99; 98 i WSAEINPROGRESS => -1e99;
46} 99}
47 100
48my $af_inet6; 101my $af_inet6;
49 102
50$af_inet6 ||= eval { Socket::AF_INET6 () }; 103$af_inet6 ||= eval { Socket::AF_INET6 () }; # where it should be
51$af_inet6 ||= eval { require Socket6; Socket6::AF_INET6() }; 104$af_inet6 ||= eval { require Socket6; Socket6::AF_INET6() }; # where it actually is ...
52 105
53# uhoh 106# ... or isn't, because nobody has it installed
54$af_inet6 ||= 10 if $^O =~ /linux/; 107$af_inet6 ||= 10 if $^O =~ /linux/;
55$af_inet6 ||= 23 if $^O =~ /cygwin/i; 108$af_inet6 ||= 23 if $^O =~ /cygwin/i;
56$af_inet6 ||= 23 if AnyEvent::WIN32; 109$af_inet6 ||= 23 if AnyEvent::WIN32;
57$af_inet6 ||= 24 if $^O =~ /openbsd|netbsd/; 110$af_inet6 ||= 24 if $^O =~ /openbsd|netbsd/;
58$af_inet6 ||= 28 if $^O =~ /freebsd/; 111$af_inet6 ||= 28 if $^O =~ /freebsd/;
59 112
60#TODO: WSAxxx, EDOM/ESPIPE 113#TODO: EDOM/ESPIPE
114#TODO: maybe move socket stuff to Socket::?
61 115
62i _AF_INET6 => $af_inet6; 116i _AF_INET6 => $af_inet6;
63#i AF_UNIX => Socket::AF_UNIX (); 117#i AF_UNIX => Socket::AF_UNIX ();
64#i SOCK_STREAM => Socket::SOCK_STREAM (); 118#i SOCK_STREAM => Socket::SOCK_STREAM ();
65#i SOCK_DGRAM => Socket::SOCK_DGRAM (); 119#i SOCK_DGRAM => Socket::SOCK_DGRAM ();
66#i SOL_SOCKET => Socket::SOL_SOCKET (); 120#i SOL_SOCKET => Socket::SOL_SOCKET ();
67#i SO_REUSEADDR => Socket::SO_REUSEADDR (); 121#i SO_REUSEADDR => Socket::SO_REUSEADDR ();
68#i SO_KEEPALIVE => Socket::SO_KEEPALIVE (); 122#i SO_KEEPALIVE => Socket::SO_KEEPALIVE ();
69#i SO_OOBINLINE => Socket::SO_OOBINLINE (); 123#i SO_OOBINLINE => Socket::SO_OOBINLINE ();
70#i IPPROTO_TCP => Socket::IPPROTO_TCP (); 124#i IPPROTO_TCP => Socket::IPPROTO_TCP ();
125
126print "package AnyEvent::Socket;\n";
71 127
72# more hardcoded os-specific constants - none 128# more hardcoded os-specific constants - none
73# of these are available via any known module, but we 129# of these are available via any known module, but we
74# are forward-looking and try Socket:: anyways. 130# are forward-looking and try Socket:: anyways.
75my %const; 131my %const;

Diff Legend

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