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
119
120
121
122
123
124
125
126
127
128
129
130
|
use FindExt;
# take a semicolon separated path list and turn it into a quoted
# list of paths that Text::Parsewords will grok
sub mungepath {
my $p = shift;
# remove leading/trailing semis/spaces
$p =~ s/^[ ;]+//;
$p =~ s/[ ;]+$//;
$p =~ s/'/"/g;
my @p = map { $_ = "\"$_\"" if /\s/ and !/^".*"$/; $_ } split /;/, $p;
return join(' ', @p);
}
# generate an array of option strings from command-line args
# or an option file
# -- added by BKS, 10-17-1999 to fix command-line overflow problems
sub loadopts {
if ($ARGV[0] =~ /--cfgsh-option-file/) {
shift @ARGV;
my $optfile = shift @ARGV;
local (*F);
open OPTF, $optfile or die "Can't open $optfile: $!\n";
my @opts;
chomp(my $line = <OPTF>);
my @vars = split(/\t+~\t+/, $line);
for (@vars) {
push(@opts, $_) unless (/^\s*$/);
}
close OPTF;
return \@opts;
}
else {
return \@ARGV;
}
}
my %opt;
my $optref = loadopts();
while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) {
$opt{$1}=$2;
shift(@{$optref});
}
FindExt::scan_ext("../ext");
FindExt::set_static_extensions(split ' ', $opt{'static_ext'});
my @dynamic_ext = FindExt::dynamic_ext();
my @extensions = FindExt::extensions();
if (!$opt{'use5005threads'} || $opt{'use5005threads'} eq 'undef')
{
@dynamic_ext = grep(!/Thread/,@dynamic_ext);
@extensions = grep(!/Thread/,@extensions);
}
$opt{'nonxs_ext'} = join(' ',FindExt::nonxs_ext()) || ' ';
$opt{'static_ext'} = join(' ',FindExt::static_ext()) || ' ';
$opt{'dynamic_ext'} = join(' ',@dynamic_ext) || ' ';
$opt{'extensions'} = join(' ',@extensions) || ' ';
$opt{'known_extensions'} = join(' ',FindExt::known_extensions()) || ' ';
my $pl_h = '../patchlevel.h';
if (-e $pl_h) {
open PL, "<$pl_h" or die "Can't open $pl_h: $!";
while (<PL>) {
if (/^#\s*define\s+(PERL_\w+)\s+([\d.]+)/) {
$opt{$1} = $2;
}
}
close PL;
}
else {
die "Can't find $pl_h: $!";
}
$opt{VERSION} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}";
$opt{INST_VER} =~ s|~VERSION~|$opt{VERSION}|g;
$opt{'version_patchlevel_string'} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}";
$opt{'version_patchlevel_string'} .= " patchlevel $opt{PERL_PATCHLEVEL}" if exists $opt{PERL_PATCHLEVEL};
$opt{'osvers'} = join '.', (Win32::GetOSVersion())[1,2];
if (exists $opt{cc}) {
# cl and bcc32 version detection borrowed from Test::Smoke's configsmoke.pl
if ($opt{cc} eq 'cl') {
my $output = `cl --version 2>&1`;
$opt{ccversion} = $output =~ /^.*Version\s+([\d.]+)/ ? $1 : '?';
}
elsif ($opt{cc} eq 'bcc32') {
my $output = `bcc32 --version 2>&1`;
$opt{ccversion} = $output =~ /([\d.]+)/ ? $1 : '?';
}
elsif ($opt{cc} eq 'gcc') {
chomp($opt{gccversion} = `gcc -dumpversion`);
}
}
$opt{'cf_by'} = $ENV{USERNAME} unless $opt{'cf_by'};
$opt{'cf_email'} = $opt{'cf_by'} . '@' . (gethostbyname('localhost'))[0]
unless $opt{'cf_email'};
$opt{'usemymalloc'} = 'y' if $opt{'d_mymalloc'} eq 'define';
$opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth};
$opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath};
# some functions are not available on Win9x
if (defined(&Win32::IsWin95) && Win32::IsWin95()) {
$opt{d_flock} = 'undef';
$opt{d_link} = 'undef';
}
if ($opt{uselargefiles} ne 'define') {
$opt{lseeksize} = 4;
$opt{lseektype} = 'off_t';
}
while (<>) {
s/~([\w_]+)~/$opt{$1}/g;
if (/^([\w_]+)=(.*)$/) {
my($k,$v) = ($1,$2);
# this depends on cf_time being empty in the template (or we'll
# get a loop)
if ($k eq 'cf_time') {
$_ = "$k='" . localtime(time) . "'\n" if $v =~ /^\s*'\s*'/;
}
elsif (exists $opt{$k}) {
$_ = "$k='$opt{$k}'\n";
}
}
print;
}
|
