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