Lines Matching refs:FILE
31 use File::Find;
32 use File::Basename;
33 use File::Path qw(mkpath);
34 use File::Spec::Functions;
36 my $srcRoot = realpath(File::Spec->catfile(dirname(abs_path($0)), "../.."));
60 find(\&collectFameworkHeaderPaths, File::Spec->catfile($srcRoot, $framework));
65 my $filePath = $File::Find::name;
66 my $file = $_;
68 open(FILE, "<$file") or die "Could not open $filePath.\n";
69 while (<FILE>) {
74 close(FILE);
79 my $filePath = $File::Find::name;
80 my $file = $_;
81 if ($filePath =~ '\.h$' && $filePath !~ "ForwardingHeaders" && grep{$file eq $_} keys %neededHeaders) {
82 my $headerPath = substr($filePath, length(File::Spec->catfile($srcRoot, $framework)) + 1 );
88 my $targetDirectory = File::Spec->catfile($outputDirectory, $framework);
95 my $forwardingHeaderPath = File::Spec->catfile($targetDirectory, $headerName);
