blob: 6a78234bd5df5d64b2c4c8ac8fe3c733840cd6cc (
plain)
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
|
sub os_info_for {
my ($os,$hashref) = @_;
my %hash = %{ $hashref };
die "Internal error: os_info_for called with undef hash\n"
unless %hash;
die "Internal error: os_info_for called with an os of defaults\n"
if($os eq 'defaults');
return $hash{$os} if(defined($hash{$os}) && $hash{$os} ne '');
return $hash{'defaults'};
}
sub os_static_suffix {
my $os = $_[0];
return os_info_for($os, \%OS_STATIC_SUFFIX);
}
sub os_shared_suffix {
my $os = $_[0];
return os_info_for($os, \%OS_SHARED_SUFFIX);
}
sub os_obj_suffix {
my $os = $_[0];
return os_info_for($os, \%OS_OBJ_SUFFIX);
}
sub os_ar_command {
my $os = $_[0];
return os_info_for($os, \%OS_AR_COMMAND);
}
sub os_ar_needs_ranlib {
my $os = $_[0];
return os_info_for($os, \%OS_AR_NEEDS_RANLIB);
}
sub os_install_info {
my ($os,$what) = @_;
return $doc_dir if($what eq 'docs' && $doc_dir);
return $lib_dir if($what eq 'libs' && $lib_dir);
return $INSTALL_INFO{$os}{$what}
if(defined($INSTALL_INFO{$os}) &&
defined($INSTALL_INFO{$os}{$what}));
return $INSTALL_INFO{'defaults'}{$what};
}
|
