Lines Matching refs:FILE
32 use File::Find;
42 my $file = $_;
44 if ($file eq "icu") {
45 $File::Find::prune = 1;
49 if ($file !~ /^\./ && $file =~ /\.(h|cpp|c|mm|m)$/) {
50 $paths{$file} = $File::Find::name;
51 $sources{$file} = $File::Find::name if $file !~ /\.h/;
52 open FILE, $file or die;
53 while (<FILE>) {
56 $includes{$file}{$include}++;
59 close FILE;
67 my ($file) = @_;
69 return if defined $totalIncludes{$file};
71 for my $include (keys %{ $includes{$file} }) {
72 $totalIncludes{$file}{$include} = 1;
75 $totalIncludes{$file}{$i} = 1;
81 for my $file (keys %includes) {
82 $inclusionCounts{$file} = 0;
83 fillOut($file);
86 for my $file (keys %sources) {
87 for my $include (keys %{ $totalIncludes{$file} }) {
92 for my $file (sort mostincludedcmp keys %includes) {
93 next if !$paths{$file};
94 my $count = $inclusionCounts{$file};
95 my $numIncludes = keys %{ $includes{$file} };
96 my $numTotalIncludes = keys %{ $totalIncludes{$file} };
97 print "$file is included $count times, includes $numIncludes files directly, $numTotalIncludes files total.\n"
