summaryrefslogtreecommitdiffstats
path: root/check-multiarch-files
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: