1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
|
# Copyright (C) 2000-2016 Hajimu UMEMOTO <ume@mahoroba.org>.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# 3. Neither the name of the project nor the names of its contributors
# may be used to endorse or promote products derived from this software
# without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
# $Id: Makefile.PL 659 2016-03-17 06:20:36Z ume $
use Config;
use ExtUtils::MakeMaker;
if ($^O eq 'MSWin32') {
configure_mswin32();
} else {
local $ENV{TMPDIR} = $ENV{TMPDIR};
my $path_perl = ($^X =~ m!^/!o) ? $^X : `which $^X`;
my $cmd = "CC='$Config{cc}' CFLAGS='$Config{ccflags}'";
if ($^O eq 'android') {
# Work around a bug in Android's sh:
# http://stackoverflow.com/questions/15283220/android-shell-eof
$ENV{TMPDIR} ||= File::Spec->tmpdir();
# /bin/sh doesn't exist on Android, point it to the right
# location for sh
$cmd .= " CONFIG_SHELL='$Config{sh}'";
# Call './configure' as 'sh ./configure'
$cmd .= " $Config{sh}";
}
$cmd .= " ./configure";
$cmd .= " --host=$Config{archname}";
$cmd .= " --with-perl=$path_perl" if ($path_perl);
system($cmd);
}
require './config.pl';
WriteMakefile(
NAME => 'Socket6',
VERSION_FROM => 'Socket6.pm',
XSPROTOARG => '-noprototypes', # XXX remove later?
PM => {'Socket6.pm' => '$(INST_LIBDIR)/Socket6.pm'},
CONFIGURE => sub { { CC => "${cc}" } },
LIBS => ["${libs}"],
realclean => {FILES => 'config.cache config.h config.log config.pl config.status gailookup.pl'},
);
sub configure_mswin32
{
open(IN, '<config.pl.in') || die "Failed to open file 'config.pl.in' [$!]";
open(OUT, '>config.pl') || die "Failed to open file 'config.pl' [$!]";
while (<IN>) {
if (/\$cc/) {
printf(OUT "\$cc = '%s';\n", $Config::Config{cc});
} elsif (/\$libs/) {
printf(OUT "\$libs = 'ws2_32.lib';\n");
} else {
print OUT;
}
}
close(OUT) || die "Failed to close file 'config.pl' [$!]";
close(IN) || die "Failed to close file 'config.pl.in' [$!]";
open(IN, '<config.h.in') || die "Failed to open file 'config.h.in' [$!]";
open(OUT, '>config.h') || die "Failed to open file 'config.h' [$!]";
print(OUT "#ifndef NTDDI_LONGHORN\n");
print(OUT "# define NTDDI_LONGHORN 0x06000000\n");
print(OUT "#endif\n");
while (<IN>) {
if (/HAVE_PL_SV_UNDEF/) {
print(OUT "#define HAVE_PL_SV_UNDEF 1\n");
} elsif (/HAVE_GETADDRINFO/) {
print(OUT "#define HAVE_GETADDRINFO 1\n");
} elsif (/HAVE_GETNAMEINFO/) {
print(OUT "#define HAVE_GETNAMEINFO 1\n");
} elsif (/HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID/) {
print(OUT "#define HAVE_SOCKADDR_IN6_SIN6_SCOPE_ID 1\n");
} elsif (/HAVE_INET_(PTON|NTOP)/) {
print(OUT "#if (NTDDI_VERSION >= NTDDI_LONGHORN)\n");
print(OUT " #define HAVE_INET_$1 1\n");
print(OUT "#else\n");
print(OUT " #undef HAVE_INET_$1\n");
print(OUT "#endif\n");
} elsif (/HAVE_SOCKLEN_T/) {
print(OUT "#define HAVE_SOCKLEN_T 1\n");
} else {
print OUT;
}
}
close(OUT) || die "Failed to close file 'config.h' [$!]";
close(IN) || die "Failed to close file 'config.h.in' [$!]";
}
|
