Utilities/ReleaseScripts/scripts/inc_fileinfo.pl - master - githubmirror/cmssw

Utilities/ReleaseScripts/scripts/inc_fileinfo.pl

69 строк2 KB

Giulio Eulisse

Snapshot of CMSSW_6_2_0_pre8.

26 июн 2013, 18:12

26 июн 2013, 18:12214ab73

#!/usr/bin/env perl
use Cwd;
use File::Basename;
use lib dirname($0);
use SCRAMGenUtils;

my $curdir=cwd();
my $file=shift || die "Missing file path to check";
if(!-f $file){die "No such file:$file";}

if($file!~/^\//){$file="${curdir}/${file}";}
$file=&SCRAMGenUtils::fixPath($file);
my $rel=dirname($file);
while(!-d "${rel}/.SCRAM"){$rel=dirname($rel);}
if(!-d "${rel}/.SCRAM"){die "not a scram base dir";}
my $tmpdir="${rel}/tmp/IncludeChecker/${arch}";

$file=~s/^$rel\///;
$file=~s/^src\///;
my $arch=&SCRAMGenUtils::getScramArch();

my $cache={};
&getIncludes($file,$cache);
foreach my $inc (@{$cache->{order}})
{
  my $c=&readcachefile($inc);
  foreach my $i (keys %{$c->{ALL_INCLUDES_REMOVED}})
  {if(&wasremoved($inc,$i)){print "$inc => $i\n";}}
}
exit 0;

sub getIncludes ()
{
  my $f=shift;
  my $c=shift || {};
  if(exists $c->{all}{$f}){return;}
  my $cfile="${tmpdir}/cache/files/${f}";
  if(!-f $cfile){return;}
  $c->{all}{$f}=1;
  push @{$c->{order}},$f;
  my $c1=&readcachefile($f);
  foreach my $f (keys %{$c1->{INCLUDES}})
  {&getIncludes($f,$c);}
}

sub readcachefile()
{
  my $file=shift;
  if(exists $cache->{data}{$file}){return $cache->{data}{$file};}
  my $cfile="${tmpdir}/cache/files/${file}";
  my $c={};
  if(-f $cfile){$c=&SCRAMGenUtils::readHashCache($cfile);}
  $cache->{data}{$file}=$c;
  return $c;
}

sub wasremoved ()
{
  my $file=shift;
  my $inc=shift;
  my $cfile="${tmpdir}/includechecker/src/${file}.modified_by_incchk";
  if(!-f $cfile){$cfile="${tmpdir}/includechecker/src/${file}";}
  if(!-f $cfile){return 0;}
  foreach my $l (`cat $cfile`)
  {
    chomp $l;
    if($l=~/^\s*\/\/INCLUDECHECKER: Removed this line:\s+#\s*include\s*(<|")\s*$inc\s*(>|")/){return 1;}
  }
}