ReleaseScripts/scripts/illegalIncludes.pl

0001 #!/usr/bin/env perl
0002 use File::Basename;
0003 use lib dirname($0);
0004 use SCRAMGenUtils;
0005 use Getopt::Long;
0006 $|=1;
0007
0008 if(&GetOptions(
0009            "--release=s",\$rel,
0010            "--out=s",\$output,
0011            "--json",\$json,
0012            "--help",\$help,
0013               ) eq ""){print STDERR "=====>ERROR: Wrong arguments.\n"; &usage_msg();}
0014
0015 if (defined $help){&usage_msg();}
0016 if (!defined $rel){&usage_msg();}
0017 if (defined $json){$json=1;}
0018 else{$json=0;}
0019
0020 if (!-f "${rel}/.SCRAM/Environment"){die "Invalid release base path provided: $rel\n";}
0021 my $ver=basename($rel);
0022
0023 my $pref=*STDOUT;
0024 if (defined $output){open($pref,">$output") || die "Can not open file for writing: $output\n";}
0025
0026 my %cache=();
0027 $cache{valid}{interface}{interface}=1;
0028 $cache{valid}{src}{interface}=1;
0029 $cache{valid}{plugins}{interface}=1;
0030 $cache{valid}{test}{interface}=1;
0031 $cache{valid}{bin}{interface}=1;
0032 $cache{exception}{'GeneratorInterface\/.+\.F'}='SimDataFormats\/GeneratorProducts\/data\/.+\.inc';
0033 $cache{exception}{'GeneratorInterface\/.+\.inc'}='SimDataFormats\/GeneratorProducts\/data\/.+\.inc';
0034 $cache{exception}{'SimDataFormats\/GeneratorProducts\/src\/HepEvt.F'}='SimDataFormats\/GeneratorProducts\/data\/.+\.inc';
0035 $cache{exception}{'Iguana\/GLBrowsers\/src\/.+\.cc'}='Iguana\/GLBrowsers\/pixmaps/.+\.xpm';
0036
0037 my $c=0;
0038 print STDERR "Processing files in ${rel}/src ...";
0039 foreach my $f (`find ${rel}/src -name "*" -type f`)
0040 {
0041   chomp $f;
0042   my $d=dirname($f);
0043   my $rf=$f; $rf=~s/^$rel\/src\/*//;
0044   my ($based,$type,$pk)=&getFileInfo($rf);
0045   if (($type eq "") || (!exists $cache{valid}{$type})){next;}
0046   foreach my $l (`cat $f`)
0047   {
0048     chomp $l;
0049     if ($l=~/^\s*#\s*include\s*["<]([^">]+)[">]/)
0050     {
0051       my $inc=$1;
0052       if ((-f "${d}/${inc}") || (!-f "${rel}/src/${inc}")){next;}
0053       my ($bd1,$t1,$pk1)=&getFileInfo($inc);
0054       if (($bd1 eq $based) || (exists $cache{valid}{$type}{$t1})){next;}
0055       my $skip=0;
0056       foreach my $exp (keys %{$cache{exception}})
0057       {
0058     if ($rf=~/^$exp$/)
0059     {
0060       my $xi=$cache{exception}{$exp};
0061       if ($inc=~/^$xi$/){$skip=1; last;}
0062     }
0063       }
0064       if ($skip){next;}
0065       $cache{ERRORS}{$ver}{$pk}{$rf}{$inc}=1;
0066     }
0067   }
0068   $c++;
0069   if ($c==2000){print STDERR ".";$c=0;last;}
0070 }
0071 print STDERR " Done\n";
0072
0073 if (!$json)
0074 {
0075   foreach my $pk (sort keys %{$cache{ERRORS}{$ver}})
0076   {
0077     foreach my $rf (sort keys %{$cache{ERRORS}{$ver}{$pk}})
0078     {
0079       foreach my $inc (sort keys %{$cache{ERRORS}{$ver}{$pk}{$rf}}){print $pref "$rf  $inc\n";}
0080     }
0081   }
0082 }
0083 else
0084 {
0085   my $str=&SCRAMGenUtils::writeJson($cache{ERRORS},0); chomp ($str); $str=~s/, *$//;
0086   print $pref  "$str\n";
0087 }
0088
0089 if (defined $out){close($pref);}
0090
0091 sub getFileInfo()
0092 {
0093   my $f=shift;
0094   if($f=~/^([A-Z][^\/]+)\/+([A-Za-z0-9][^\/]+)\/+([^\/]+)\/.+/){return ("$1/$2/$3",$3,"$1/$2");}
0095   return ("","","");
0096 }
0097
0098 sub usage_msg()
0099 {
0100   print STDERR "Usage: $0 --release <path> [--out <file>] [--json] [--help]\n",
0101                "  --release <path>   Release base path\n",
0102            "  --out <file>       File path to write the output\n",
0103            "  --json             JSON format output\n",
0104            "  --help             Show this help message\n";
0105   exit 0;
0106 }