linux-imx

#! /usr/bin/env perl

# SPDX-License-Identifier: GPL-2.0

#

# Detect cycles in the header file dependency graph

# Vegard Nossum <vegardno@ifi.uio.no>

#

​

use strict;

use warnings;

​

use Getopt::Long;

​

my $opt_all;

my @opt_include;

my $opt_graph;

​

&Getopt::Long::Configure(qw(bundling pass_through));

&GetOptions(

    help    => \&help,

    version => \&version,

​

    all => \$opt_all,

    "I=s"   => \@opt_include,

    graph   => \$opt_graph,

);

​

push @opt_include, 'include';

my %deps = ();

my %linenos = ();

​

my @headers = grep { strip($_) } @ARGV;

​

parse_all(@headers);

​

if($opt_graph) {

    graph();

} else {

    detect_cycles(@headers);

}

​

​

sub help {

    print "Usage: $0 [options] file...\n";

    print "\n";

    print "Options:\n";

    print "  --all\n";

    print "  --graph\n";

    print "\n";

    print "  -I includedir\n";

    print "\n";

    print "To make nice graphs, try:\n";

    print "  $0 --graph include/linux/kernel.h | dot -Tpng -o graph.png\n";

    exit;

}

​

sub version {

    print "headerdep version 2\n";

    exit;

}

​

# Get a file name that is relative to our include paths

sub strip {

    my $filename = shift;