1#!perl 2use strict; 3use warnings; 4 5use ExtUtils::MakeMaker; 6use ExtUtils::Constant 0.23 'WriteConstants'; 7use Config; 8 9my @DEFINES; 10 11my $cb; 12my $seq = 0; 13sub check_for 14{ 15 my %args = @_; 16 return if $ENV{PERL_CORE}; 17 return if defined $args{confkey} and defined $Config{$args{confkey}}; 18 19 require ExtUtils::CBuilder; 20 $cb ||= ExtUtils::CBuilder->new( quiet => 1 ); 21 22 my $main = $args{main} || ""; 23 my $header = $args{header} || ""; 24 25 print "Checking $args{define}...\n"; 26 27 my $file_base = "test-$seq"; $seq++; 28 29 my $file_source = "$file_base.c"; 30 31 { 32 open( my $file_source_fh, ">", $file_source ) or die "Cannot write $file_source - $!"; 33 print $file_source_fh <<"EOF"; 34#include <stddef.h> 35#include <sys/types.h> 36#ifdef WIN32 37# include <ws2tcpip.h> 38# include <winsock.h> 39#else 40# include <sys/socket.h> 41# include <netdb.h> 42# include <netinet/in.h> 43# include <arpa/inet.h> 44#endif 45$header 46int main(int argc, char *argv[]) 47 { 48 (void)argc; 49 (void)argv; 50 { $main } 51 return 0; 52 } 53EOF 54 } 55 56 my $file_obj = eval { $cb->compile( source => $file_source ) }; 57 unlink $file_source; 58 59 return 0 unless defined $file_obj; 60 61 my $file_exe = eval { $cb->link_executable( objects => $file_obj ) }; 62 unlink $file_obj; 63 64 return 0 unless defined $file_exe; 65 66 # Don't need to try running it 67 unlink $file_exe; 68 69 push @DEFINES, $args{define}; 70} 71 72sub check_for_func 73{ 74 my %args = @_; 75 my $func = delete $args{func}; 76 check_for( %args, main => "void *p = &$func; if(p == NULL) return 1;" ); 77} 78 79my %defines = ( 80 # -Dfoo func() $Config{key} 81 HAS_GETADDRINFO => [ "getaddrinfo", "d_getaddrinfo" ], 82 HAS_GETNAMEINFO => [ "getnameinfo", "d_getnameinfo" ], 83 HAS_GAI_STRERROR => [ "gai_strerror", "d_gai_strerror" ], 84 HAS_INET_ATON => [ "inet_aton", "d_inetaton" ], 85 HAS_INETNTOP => [ "inet_ntop", "d_inetntop" ], 86 HAS_INETPTON => [ "inet_pton", "d_inetpton" ], 87); 88 89foreach my $define ( sort keys %defines ) { 90 my ( $func, $key ) = @{$defines{$define}}; 91 check_for_func( 92 confkey => $key, 93 define => $define, 94 func => $func 95 ); 96} 97 98check_for( 99 confkey => "d_sockaddr_sa_len", 100 define => "HAS_SOCKADDR_SA_LEN", 101 main => "struct sockaddr sa; sa.sa_len = 0;" 102); 103 104check_for( 105 confkey => "d_sockaddr_in6", 106 define => "HAS_SOCKADDR_IN6", 107 main => "struct sockaddr_in6 sin6; sin6.sin6_family = AF_INET6;" 108); 109 110check_for( 111 confkey => "d_sin6_scope_id", 112 define => "HAS_SIN6_SCOPE_ID", 113 main => "struct sockaddr_in6 sin6; sin6.sin6_scope_id = 0;" 114); 115 116check_for( 117 confkey => "d_ip_mreq", 118 define => "HAS_IP_MREQ", 119 main => "struct ip_mreq mreq; mreq.imr_multiaddr.s_addr = INADDR_ANY;" 120); 121 122check_for( 123 confkey => "d_ip_mreq_source", 124 define => "HAS_IP_MREQ_SOURCE", 125 main => "struct ip_mreq_source mreq; mreq.imr_multiaddr.s_addr = INADDR_ANY;" 126); 127 128check_for( 129 confkey => "d_ipv6_mreq", 130 define => "HAS_IPV6_MREQ", 131 main => "struct ipv6_mreq mreq; mreq.ipv6mr_interface = 0;" 132); 133 134# TODO: Needs adding to perl5 core before importing dual-life again 135check_for( 136 confkey => "i_netinet_ip", 137 define => "I_NETINET_IP", 138 header => "#include <netinet/ip.h>", 139); 140 141my %makefile_args; 142 143# Since we're providing a later version of a core module, before 5.12 the 144# @INC order is wrong so we'll have to go in perl rather than site dirs 145$makefile_args{INSTALLDIRS} = "perl" if $] < 5.012; 146 147WriteMakefile( 148 NAME => 'Socket', 149 VERSION_FROM => 'Socket.pm', 150 # ABSTRACT_FROM gets confused by C<Socket> 151 ABSTRACT => 'networking constants and support functions', 152 ($Config{libs} =~ /(-lsocks\S*)/ ? (LIBS => [ "$1" ] ) : ()), 153 XSPROTOARG => '-noprototypes', # XXX remove later? 154 realclean => {FILES=> 'const-c.inc const-xs.inc'}, 155 DEFINE => join( " ", map { "-D$_" } @DEFINES ), 156 CONFIGURE_REQUIRES => { 157 'ExtUtils::CBuilder' => 0, 158 'ExtUtils::Constant' => '0.23', 159 }, 160 MIN_PERL_VERSION => '5.006001', 161 LICENSE => 'perl', 162 %makefile_args, 163); 164my @names = ( 165 qw( 166 AF_802 AF_AAL AF_APPLETALK AF_CCITT AF_CHAOS AF_CTF AF_DATAKIT 167 AF_DECnet AF_DLI AF_ECMA AF_GOSIP AF_HYLINK AF_IMPLINK AF_INET AF_INET6 168 AF_ISO AF_KEY AF_LAST AF_LAT AF_LINK AF_LOCAL AF_MAX AF_NBS AF_NIT 169 AF_NS AF_OSI AF_OSINET AF_PUP AF_ROUTE AF_SNA AF_UNIX AF_UNSPEC AF_USER 170 AF_WAN AF_X25 171 172 AI_ADDRCONFIG AI_ALL AI_CANONIDN AI_CANONNAME AI_IDN 173 AI_NUMERICHOST AI_NUMERICSERV AI_PASSIVE AI_V4MAPPED 174 175 EAI_ADDRFAMILY EAI_AGAIN EAI_BADFLAGS EAI_BADHINTS EAI_FAIL EAI_FAMILY 176 EAI_NODATA EAI_NONAME EAI_PROTOCOL EAI_SERVICE EAI_SOCKTYPE EAI_SYSTEM 177 178 IOV_MAX 179 180 IP_ADD_MEMBERSHIP IP_ADD_SOURCE_MEMBERSHIP IP_BIND_ADDRESS_NO_PORT 181 IP_DROP_MEMBERSHIP IP_DROP_SOURCE_MEMBERSHIP IP_FREEBIND IP_HDRINCL 182 IP_MULTICAST_ALL IP_MULTICAST_IF IP_MULTICAST_LOOP IP_MULTICAST_TTL 183 IP_MTU IP_MTU_DISCOVER IP_NODEFRAG IP_OPTIONS IP_RECVERR IP_RECVOPTS 184 IP_RECVRETOPTS IP_RETOPTS IP_TOS IP_TRANSPARENT IP_TTL 185 186 IP_PMTUDISC_DO IP_PMTUDISC_DONT IP_PMTUDISC_PROBE IP_PMTUDISC_WANT 187 188 IPTOS_LOWDELAY IPTOS_THROUGHPUT IPTOS_RELIABILITY IPTOS_MINCOST 189 190 IPV6_ADDRFROM IPV6_ADD_MEMBERSHIP IPV6_DROP_MEMBERSHIP IPV6_JOIN_GROUP 191 IPV6_LEAVE_GROUP IPV6_MTU IPV6_MTU_DISCOVER IPV6_MULTICAST_HOPS 192 IPV6_MULTICAST_IF IPV6_MULTICAST_LOOP IPV6_RECVERR IPV6_ROUTER_ALERT 193 IPV6_UNICAST_HOPS IPV6_V6ONLY 194 195 LOCAL_CONNWAIT LOCAL_CREDS LOCAL_OCREDS LOCAL_PEEREID 196 197 MSG_BCAST MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_DONTWAIT MSG_EOF 198 MSG_EOR MSG_ERRQUEUE MSG_ETAG MSG_FASTOPEN MSG_FIN MSG_MAXIOVLEN 199 MSG_MCAST MSG_NOSIGNAL MSG_RST MSG_SYN MSG_TRUNC MSG_URG MSG_WAITALL 200 MSG_WIRE 201 202 NI_DGRAM NI_IDN NI_NAMEREQD NI_NOFQDN NI_NUMERICHOST NI_NUMERICSERV 203 204 PF_802 PF_AAL PF_APPLETALK PF_CCITT PF_CHAOS PF_CTF PF_DATAKIT 205 PF_DECnet PF_DLI PF_ECMA PF_GOSIP PF_HYLINK PF_IMPLINK PF_INET PF_INET6 206 PF_ISO PF_KEY PF_LAST PF_LAT PF_LINK PF_LOCAL PF_MAX PF_NBS PF_NIT 207 PF_NS PF_OSI PF_OSINET PF_PUP PF_ROUTE PF_SNA PF_UNIX PF_UNSPEC PF_USER 208 PF_WAN PF_X25 209 210 SCM_CONNECT SCM_CREDENTIALS SCM_CREDS SCM_TIMESTAMP 211 212 SOCK_DGRAM SOCK_RAW SOCK_RDM SOCK_SEQPACKET SOCK_STREAM 213 SOCK_NONBLOCK SOCK_CLOEXEC 214 215 SOL_SOCKET 216 217 SOMAXCONN 218 219 SO_ACCEPTCONN SO_ATTACH_FILTER SO_BACKLOG SO_BINDTODEVICE SO_BROADCAST 220 SO_BSDCOMPAT SO_BUSY_POLL SO_CHAMELEON SO_DEBUG SO_DETACH_FILTER 221 SO_DGRAM_ERRIND SO_DOMAIN SO_DONTLINGER SO_DONTROUTE SO_ERROR SO_FAMILY 222 SO_INCOMING_CPU SO_INCOMING_NAPI_ID SO_KEEPALIVE SO_LINGER 223 SO_LOCK_FILTER SO_MARK SO_OOBINLINE SO_PASSCRED SO_PASSIFNAME 224 SO_PEEK_OFF SO_PEERCRED SO_PRIORITY SO_PROTOCOL SO_PROTOTYPE SO_RCVBUF 225 SO_RCVBUFFORCE SO_RCVLOWAT SO_RCVTIMEO SO_REUSEADDR SO_REUSEPORT 226 SO_RXQ_OVFL SO_SECURITY_AUTHENTICATION SO_SECURITY_ENCRYPTION_NETWORK 227 SO_SECURITY_ENCRYPTION_TRANSPORT SO_SNDBUF SO_SNDBUFFORCE SO_SNDLOWAT 228 SO_SNDTIMEO SO_STATE SO_TIMESTAMP SO_TYPE SO_USELOOPBACK SO_XOPEN 229 SO_XSE 230 231 TCP_CONGESTION TCP_CONNECTIONTIMEOUT TCP_CORK TCP_DEFER_ACCEPT 232 TCP_FASTOPEN TCP_INFO TCP_INIT_CWND TCP_KEEPALIVE TCP_KEEPCNT 233 TCP_KEEPIDLE TCP_KEEPINTVL TCP_LINGER2 TCP_MAXRT TCP_MAXSEG 234 TCP_MD5SIG TCP_NODELAY TCP_NOOPT TCP_NOPUSH TCP_QUICKACK 235 TCP_SACK_ENABLE TCP_STDURG TCP_SYNCNT TCP_USER_TIMEOUT 236 TCP_WINDOW_CLAMP 237 238 UIO_MAXIOV 239 ), 240 {name=>"IPPROTO_IP", type=>"IV", default=>["IV", 0]}, 241 {name=>"IPPROTO_IPV6", type=>"IV", default=>["IV", 41]}, 242 {name=>"IPPROTO_RAW", type=>"IV", default=>["IV", 255]}, 243 {name=>"IPPROTO_ICMP", type=>"IV", default=>["IV", 1]}, 244 {name=>"IPPROTO_IGMP", type=>"IV", default=>["IV", 2]}, 245 {name=>"IPPROTO_TCP", type=>"IV", default=>["IV", 6]}, 246 {name=>"IPPROTO_UDP", type=>"IV", default=>["IV", 17]}, 247 {name=>"IPPROTO_GRE", type=>"IV", default=>["IV", 47]}, 248 {name=>"IPPROTO_ESP", type=>"IV", default=>["IV", 50]}, 249 {name=>"IPPROTO_AH", type=>"IV", default=>["IV", 51]}, 250 {name=>"IPPROTO_ICMPV6", type=>"IV", default=>["IV", 58]}, 251 {name=>"IPPROTO_SCTP", type=>"IV", default=>["IV", 132]}, 252 {name=>"SHUT_RD", type=>"IV", default=>["IV", "0"]}, 253 {name=>"SHUT_WR", type=>"IV", default=>["IV", "1"]}, 254 {name=>"SHUT_RDWR", type=>"IV", default=>["IV", "2"]}, 255); 256 257push @names, { 258 name => $_, 259 type => "IV", 260 macro => [ "#if defined($_) || defined(HAS_$_) /* might be an enum */\n", 261 "#endif\n" ] 262} foreach qw (MSG_CTRUNC MSG_DONTROUTE MSG_OOB MSG_PEEK MSG_PROXY SCM_RIGHTS); 263 264push @names, { 265 name => $_, 266 type => "SV", 267 pre => "struct in_addr ip_address; ip_address.s_addr = htonl($_);", 268 value => "newSVpvn_flags((char *)&ip_address,sizeof(ip_address), SVs_TEMP)", 269} foreach qw(INADDR_ANY INADDR_LOOPBACK INADDR_NONE INADDR_BROADCAST); 270 271push @names, { 272 name => $_, 273 type => "SV", 274 macro => [ "#ifdef ${_}_INIT\n", 275 "#endif\n" ], 276 pre => "struct in6_addr ip6_address = ${_}_INIT;", 277 value => "newSVpvn_flags((char *)&ip6_address,sizeof(ip6_address), SVs_TEMP)", 278} foreach qw(IN6ADDR_ANY IN6ADDR_LOOPBACK); 279 280# Work around an old Perl core bug that affects ExtUtils::Constants on 281# pre-5.8.2 Perls. EU:C should be amended to work around this itself. 282if("$]" < 5.008002) { 283 require ExtUtils::Constant::ProxySubs; 284 no warnings "once"; 285 $ExtUtils::Constant::ProxySubs::type_to_C_value{$_} = sub { () } 286 foreach qw(YES NO UNDEF), ""; 287} 288 289WriteConstants( 290 PROXYSUBS => {autoload => 1}, 291 NAME => 'Socket', 292 NAMES => \@names, 293); 294