blob: 33f64f76e377d6ac92764231038a6906c2f03bba (
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
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
|
#!/usr/bin/perl
#---------------------------------------------------------------
# Project : Mandrakelinux
# Module : multiarch-utils
# File : check-multiarch
# Version : $Id$
# Author : Gwenole Beauchesne
# Created On : Mon Jan 24 18:02:21 CET 2005
#---------------------------------------------------------------
use strict;
use MDK::Common;
while (<STDIN>) {
chomp;
# File must be located in the usual development directories
-f $_ or next;
/\/usr(\/X11R6)?\/(bin|include)\// or next;
/\/multiarch-.+-\w+\// and next;
/\/include\/asm/ and next;
my $multiarch = 0;
my $multiarch_type;
# Heuristics for binary files
if (/bin/) {
my $file_magic = `file $_`;
$multiarch_type = "binary";
# check for *-config script files
if (/.+[-_]config/ && $file_magic =~ /shell script/) {
my $options;
foreach (cat_($_)) {
foreach my $opt (qw(cflags libs ldflags cppflags libdir)) {
$options .= " --$opt" if /(\[--$opt\]|--$opt\s+[\#\[])/;
}
}
# run the script to find out any libdir dependent flags
if ($options) {
my $output = `$_ $options`;
$multiarch = 1 if ($output =~ /(?<!\/include)\/lib(32|64)?/);
}
}
}
# Heuristics for include files
elsif (/include/) {
$multiarch_type = "header";
my %archdefs;
foreach (cat_($_)) {
if (/\#\s*define\s+(\w+)\s+(.+)/) {
my ($def, $val) = ($1, $2);
# check for typical arch-dependent macro definitions
my @keywords_with_int = qw(SIZEOF_VOID_P SIZEOF_CHAR_P SIZEOF_LONG BYTES_PER_LONG BITS_PER_LONG);
foreach my $pat (@keywords_with_int) {
if ($def =~ /$pat/ && int($val)) {
$archdefs{$def}++;
last;
}
}
# check for libdir references, typically plugins dir
# XXX check for /DIR/ in $def ?
if ($val =~ /"\/usr(\/X11R6)?\/lib(32|64)?\/.*"/) {
$multiarch = 1;
}
}
}
# ignore multiple definitions of the same macro, assume
# arch-dependence is handled in that case
if (! $multiarch) {
foreach my $e (keys %archdefs) {
my $val = $archdefs{$e};
$multiarch = 1 if ($val == 1);
}
}
}
# Multiarch files detected?
print "$_\n" if $multiarch;
}
# Local variables:
# tab-width: 4
# indent-tabs-mode: nil
# End:
|
