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
|
use strict;
use ExtUtils::MakeMaker;
use Config;
use File::Spec;
my ($cc, $exe) = @Config{'cc', '_exe'};
$cc =~ s/\s+-.+$//; #remove possible trailing options
my $comp = (split /\./, $cc)[0];
my $found = 0;
my $delim = $Config::Config{path_sep};
if ($cc =~ m|/:\[|) {
$found = -f "$comp$exe";
}
# $Config{cc} might be something like '/some/place/cc'
elsif ($cc =~ m|/|) {
$found = -f "$comp$exe" || -l $cc;
}
# $Config{cc} might be something like 'ccache cc'
elsif ($cc =~ m|ccache|) {
my @cc = split /\s+/, $cc;
$found = -f "$cc[0]$exe" || -l $cc[0];
if($found && $cc[1]) {$found = -f "$cc[1]$exe" || -l $cc[1]}
}
else {
my $comp = (split /\./, $cc)[0];
for my $lib (split $delim, $ENV{PATH}) {
$found = -f File::Spec->catfile($lib,"$comp$exe") and last;
}
}
print <<END;
Inline::C is packaged with Inline.pm because it is the most commonly used
Inline Language Support Module (ILSM).
See also: Inline::ASM, ::Awk, ::BC, ::Basic, ::Befunge, ::CPP (C++), ::CPR,
::Foo, ::Guile, ::Java, ::Octave, ::PERL, ::Python, ::Ruby, ::TT,
::Tcl and ::WebChat.
Config.pm indicates that your version of Perl was built with this C compiler:
$cc
END
if ($found) {
print <<END;
I have located this compiler on your system:
END
}
else {
print <<END;
I cannot locate this compiler on your system.
You can install Inline.pm without installing Inline::C. But you'll
need to install another Inline language module (like Inline::Java for
instance) to actually make use of it.
If the aforementioned C compiler really is on your system, please make sure
it can be found in the PATH and then try running this program again. Or if
you think I made an error searching for this compiler, simply answer 'Y' to
the next question.
END
# '
}
my $answer = '';
my $default = $found ? "y" : "n";
while (1) {
$answer = prompt ('Do you want to install Inline::C?', $default);
last if $answer =~ /^(y|yes|n|no)$/i;
}
if ($answer =~ /^(y|yes)$/i) {
WriteMakefile(
NAME => 'Inline::C',
clean => {FILES => '_Inline_test'},
)
}
else {
open MF, "> Makefile" or die "Can't open Makefile for output";
print MF <<'END';
all::
test::
clean::
END
close MF;
}
|
