/usr/share/perl5/graphincludes/extractor/C.pm is in libdeps-perl 0.13-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | # This file is part of the DEPS/graph-includes package
#
# (c) 2005,2006 Yann Dirson <ydirson@altern.org>
# Distributed under version 2 of the GNU GPL.
package graphincludes::extractor::C;
use strict;
use warnings;
use base qw(graphincludes::extractor);
use graphincludes::params;
use File::Basename qw(dirname);
sub get_default_sysincludes {
return ('/usr/include');
}
sub pattern { '\.([ch](pp|xx|\+\+)?|C|H|cc|hh)$' }
sub getdeps {
my $self = shift;
my ($graph) = @_;
@ARGV = map {$_->{LABEL}} $graph->get_nodes();
while (<>) {
my $dstfile;
if (m/^\s*#\s*include\s*"(.*)"/) {
$dstfile = $self->locatefile ($1, dirname($ARGV), @graphincludes::params::inclpath);
} elsif (m/^\s*#\s*include\s*<(.*)>/) {
$dstfile = $self->locatefile ($1, @graphincludes::params::inclpath);
} else {
next;
}
if (defined $dstfile) {
$graph->record_edge ($ARGV, $dstfile);
} else {
$self->record_missed_dep ($ARGV, $1);
}
}
}
1;
|