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_MAX AF_NBS AF_NIT AF_NS AF_OSI 169 AF_OSINET AF_PUP AF_ROUTE AF_SNA AF_UNIX AF_UNSPEC AF_USER AF_WAN 170 AF_X25 171 172 AI_ADDRCONFIG AI_ALL AI_CANONIDN AI_CANONNAME AI_IDN 173 AI_IDN_ALLOW_UNASSIGNED AI_IDN_USE_STD3_ASCII_RULES AI_NUMERICHOST 174 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_UNICAST_HOPS IPV6_V6ONLY 195 196 MSG_BCAST MSG_BTAG MSG_CTLFLAGS MSG_CTLIGNORE MSG_DONTWAIT MSG_EOF 197 MSG_EOR MSG_ERRQUEUE MSG_ETAG MSG_FASTOPEN MSG_FIN MSG_MAXIOVLEN 198 MSG_MCAST MSG_NOSIGNAL MSG_RST MSG_SYN MSG_TRUNC MSG_URG MSG_WAITALL 199 MSG_WIRE 200 201 NI_DGRAM NI_IDN NI_IDN_ALLOW_UNASSIGNED NI_IDN_USE_STD3_ASCII_RULES 202 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_MAX PF_NBS PF_NIT PF_NS PF_OSI 207 PF_OSINET PF_PUP PF_ROUTE PF_SNA PF_UNIX PF_UNSPEC PF_USER PF_WAN 208 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_KEEPALIVE SO_LINGER SO_LOCK_FILTER SO_MARK SO_OOBINLINE SO_PASSCRED 223 SO_PASSIFNAME SO_PEEK_OFF SO_PEERCRED SO_PRIORITY SO_PROTOCOL 224 SO_PROTOTYPE SO_RCVBUF SO_RCVBUFFORCE SO_RCVLOWAT SO_RCVTIMEO 225 SO_REUSEADDR SO_REUSEPORT SO_RXQ_OVFL SO_SECURITY_AUTHENTICATION 226 SO_SECURITY_ENCRYPTION_NETWORK SO_SECURITY_ENCRYPTION_TRANSPORT 227 SO_SNDBUF SO_SNDBUFFORCE SO_SNDLOWAT SO_SNDTIMEO SO_STATE SO_TIMESTAMP 228 SO_TYPE SO_USELOOPBACK SO_XOPEN SO_XSE 229 230 TCP_CONGESTION TCP_CONNECTIONTIMEOUT TCP_CORK TCP_DEFER_ACCEPT 231 TCP_FASTOPEN TCP_INFO TCP_INIT_CWND TCP_KEEPALIVE TCP_KEEPCNT 232 TCP_KEEPIDLE TCP_KEEPINTVL TCP_LINGER2 TCP_MAXRT TCP_MAXSEG 233 TCP_MD5SIG TCP_NODELAY TCP_NOOPT TCP_NOPUSH TCP_QUICKACK 234 TCP_SACK_ENABLE TCP_STDURG TCP_SYNCNT TCP_USER_TIMEOUT 235 TCP_WINDOW_CLAMP 236 237 UIO_MAXIOV 238 ), 239 {name=>"IPPROTO_IP", type=>"IV", default=>["IV", 0]}, 240 {name=>"IPPROTO_IPV6", type=>"IV", default=>["IV", 41]}, 241 {name=>"IPPROTO_RAW", type=>"IV", default=>["IV", 255]}, 242 {name=>"IPPROTO_ICMP", type=>"IV", default=>["IV", 1]}, 243 {name=>"IPPROTO_IGMP", type=>"IV", default=>["IV", 2]}, 244 {name=>"IPPROTO_TCP", type=>"IV", default=>["IV", 6]}, 245 {name=>"IPPROTO_UDP", type=>"IV", default=>["IV", 17]}, 246 {name=>"IPPROTO_GRE", type=>"IV", default=>["IV", 47]}, 247 {name=>"IPPROTO_ESP", type=>"IV", default=>["IV", 50]}, 248 {name=>"IPPROTO_AH", type=>"IV", default=>["IV", 51]}, 249 {name=>"IPPROTO_ICMPV6", type=>"IV", default=>["IV", 58]}, 250 {name=>"IPPROTO_SCTP", type=>"IV", default=>["IV", 132]}, 251 {name=>"SHUT_RD", type=>"IV", default=>["IV", "0"]}, 252 {name=>"SHUT_WR", type=>"IV", default=>["IV", "1"]}, 253 {name=>"SHUT_RDWR", type=>"IV", default=>["IV", "2"]}, 254); 255 256push @names, { 257 name => $_, 258 type => "IV", 259 macro => [ "#if defined($_) || defined(HAS_$_) /* might be an enum */\n", 260 "#endif\n" ] 261} foreach qw (MSG_CTRUNC MSG_DONTROUTE MSG_OOB MSG_PEEK MSG_PROXY SCM_RIGHTS); 262 263push @names, { 264 name => $_, 265 type => "SV", 266 pre => "struct in_addr ip_address; ip_address.s_addr = htonl($_);", 267 value => "newSVpvn_flags((char *)&ip_address,sizeof(ip_address), SVs_TEMP)", 268} foreach qw(INADDR_ANY INADDR_LOOPBACK INADDR_NONE INADDR_BROADCAST); 269 270push @names, { 271 name => $_, 272 type => "SV", 273 macro => [ "#ifdef ${_}_INIT\n", 274 "#endif\n" ], 275 pre => "struct in6_addr ip6_address = ${_}_INIT;", 276 value => "newSVpvn_flags((char *)&ip6_address,sizeof(ip6_address), SVs_TEMP)", 277} foreach qw(IN6ADDR_ANY IN6ADDR_LOOPBACK); 278 279# Work around an old Perl core bug that affects ExtUtils::Constants on 280# pre-5.8.2 Perls. EU:C should be amended to work around this itself. 281if("$]" < 5.008002) { 282 require ExtUtils::Constant::ProxySubs; 283 no warnings "once"; 284 $ExtUtils::Constant::ProxySubs::type_to_C_value{$_} = sub { () } 285 foreach qw(YES NO UNDEF), ""; 286} 287 288WriteConstants( 289 PROXYSUBS => {autoload => 1}, 290 NAME => 'Socket', 291 NAMES => \@names, 292); 293