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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
sub catfile {
return File::Spec->catfile(@_);
}
sub catdir {
return File::Spec->catdir(@_);
}
sub process {
my $l = $_[0];
chomp($l);
$l =~ s/#.*//;
$l =~ s/^\s*//;
$l =~ s/\s*$//;
$l =~ s/\s\s*/ /;
$l =~ s/\t/ /;
$l;
}
sub check_for_file {
my ($file,$mod) = @_;
unless( -e $file ) { die
"(error): Module $mod requires that file $file exist. This error\n",
"should never occur; please contact the maintainers with details.\n";
}
}
sub using_libs {
my ($os,@using) = @_;
my %libs;
foreach my $mod (@using) {
my %MOD_LIBS = %{ $MODULES{$mod}{'libs'} };
foreach my $mod_os (keys %MOD_LIBS)
{
next if($mod_os =~ /^all!$os$/);
next if($mod_os =~ /^all!$os,/);
next if($mod_os =~ /^all!.*,${os}$/);
next if($mod_os =~ /^all!.*,$os,.*/);
next unless($mod_os eq $os or ($mod_os =~ /^all.*/));
my @liblist = split(/,/, $MOD_LIBS{$mod_os});
foreach my $lib (@liblist) { $libs{$lib} = 1; }
}
}
my @libarray;
foreach (sort keys %libs) { push @libarray , $_; }
return @libarray;
}
sub defines {
my @using = @_;
my @defarray;
foreach (@using) {
foreach my $define (sort keys %{ $MODULES{$_}{'define'} }) {
push @defarray , $define;
}
}
return \@defarray;
}
sub defines_base {
my @using = @_;
my @defarray;
foreach (@using) {
foreach my $define (sort keys %{ $MODULES{$_}{'define_base'} }) {
push @defarray , $define;
}
}
return \@defarray;
}
# Any other alternatives here?
sub portable_symlink {
my ($from, $to_dir, $to_fname) = @_;
my $can_symlink = eval { symlink("",""); 1 };
my $can_link = eval { link("",""); 1 };
if($FORCE_COPY) { $can_symlink = 0; $can_link = 0; }
chdir $to_dir or die "Can't chdir to $to_dir ($!)\n";
if($can_symlink) {
symlink $from, $to_fname or die "Can't symlink $from to $to_fname ($!)"; }
elsif($can_link) {
link $from, $to_fname or die "Can't link $from to $to_fname ($!)"; }
else {
copy ($from, $to_fname) or die "Can't copy $from to $to_fname ($!)"; }
my $go_up = File::Spec->splitdir($to_dir);
for(my $j = 0; $j != $go_up; $j++)
{
chdir File::Spec->updir();
}
}
sub copy_files {
my ($include_dir, $mainline, $modules) = @_;
my $updir = File::Spec->updir();
foreach (keys %{ $mainline }) {
my $include = File::Spec->catfile($updir, $updir, $updir,
'include', $_);
portable_symlink($include, $include_dir, $_);
}
foreach (keys %{ $modules }) {
my $include = File::Spec->catfile($updir, $updir, $updir,
$$modules{$_}, $_);
portable_symlink($include, $include_dir, $_);
}
}
sub list_dir {
my ($dir, $ignore) = @_;
opendir DIR, $dir or die "Couldn't open directory $dir ($!)\n";
my @list = grep { !/^\./ } readdir DIR;
if($dir eq $CHECK_DIR) {
@list = grep { !/\.dat$/ } grep { !/^keys$/ } grep { !/\.h$/ } @list;
}
# If $ignore is set, pull everything in @list that's in $ignore out of it
if(defined($ignore)) {
@list = grep { !exists($$ignore{$_}) } @list;
}
close DIR;
my %list = map { $_ => $dir } @list;
return %list;
}
sub clean_out_dirs {
my (@dirs) = @_;
foreach my $dir (@dirs) {
my %files = list_dir($dir);
foreach my $file (keys %files) {
my $path = catfile($dir, $file);
unlink $path or die "Could not unlink $path ($!)\n";
}
}
}
sub mkdirs {
my (@dirs) = @_;
foreach my $dir (@dirs) {
next if( -e $dir and -d $dir ); # skip it if it's already there
mkdir($dir, 0777) or
die "(error): Could not create directory $dir ($!)\n";
}
}
sub in_array {
my($array_ref, $target) = @_;
if(!defined($array_ref)) { return 0; }
my @array = @{ $array_ref };
foreach (@array) { if($_ eq $target) { return 1; } }
return 0;
}
sub find_mp_bits
{
my(@modules_list) = @_;
my $mp_bits = 32; # default, good for most systems
my $seen_mp_module = 0;
foreach my $modname (@modules_list)
{
my %modinfo = %{ $MODULES{$modname} };
if($modinfo{'mp_bits'})
{
die "(error): Inconsistent mp_bits requests from modules\n"
if($seen_mp_module && $modinfo{'mp_bits'} != $mp_bits);
$seen_mp_module = 1;
$mp_bits = $modinfo{'mp_bits'};
}
}
return $mp_bits;
}
|
