use strict;

use Getopt::Long;

use File::Path;

use File::Spec::Functions;

my $gRealTimeBuildErrors = 0;

sub RealTimeBuildError($)

{

	$gRealTimeBuildErrors++;

	print STDERR "ERROR: RealTimeBuild: ", @_, "\n";

	return "RealTimeBuild error";

}

# Process the commandline

my ($iDataSource, $iSrc, $iMRPSrc, $platform, $iDummy, $iVerbose) = ProcessCommandLine();

my ($iDirList)= ProcessList($iDataSource, $iSrc, $iMRPSrc, $platform, $iVerbose);

my @delete;

search_dir($iSrc, $iDirList, \@delete, $iVerbose);

foreach my $leftover (keys %$iDirList)

{

  print "REMARK: LEFTOVER: $leftover ($$iDirList{$leftover})\n";

}

if ($gRealTimeBuildErrors && !$iDummy)

{

  print STDERR "\nWARNING: Files will NOT be deleted, because of earlier real time build errors\n\n";

  $iDummy = 1;

}

foreach my $delete (@delete)

{

  if ($iDummy)

  {

    print "REMARK: $delete is not referenced by any MRP\n";

  } else {

    # Delete the files or directories

    # make sure it is not read only

    #Convert back to \ for dos command

    $delete =~ s#\/#\\#g;

    system("attrib -r /s /d \"$delete\"");

    my $deletenum = rmtree($delete);

    if ($deletenum == 0)

    {

      RealTimeBuildError("failed to deleted $delete");

    } elsif (-d "$delete") {

      RealTimeBuildError("failed to deleted directory $delete"); #Because it still exists

    } elsif ($deletenum > 1) {

      print "REMARK: deleted $deletenum files in directory $delete as they are not referenced by any MRP\n";

    } else {

      print "REMARK: deleted $delete as it is not referenced by any MRP\n";

    }

  }

}

sub search_dir

{ 

  my ($dir, $iDirList, $delete, $iVerbose) = @_; 

  my @flist;

  print "Processing $dir\n" if ($iVerbose);

  if (opendir(DIRH,"$dir"))

  {

    @flist=readdir(DIRH); 

    closedir DIRH; 

    ENTRY: foreach my $entry (@flist)

    { 

      # ignore . and .. : 

      next if ($entry eq "." || $entry eq "..");

      my $partial_match;

      # Check entry again $iDirList for matches

      foreach my $sourceline (keys %$iDirList)

      {

        if ($sourceline =~ m#^$dir/$entry$#i)

        {

          # Exact match delete entry in %$iDirList

          # Check to see if something has already partial matched

          print "REMARK: $dir/$entry is probably covered more than once\n" if ($partial_match);

          if ($iVerbose)

          {

            if (-d "$dir/$entry")

            {

              print "Keeping directory $dir/$entry ($$iDirList{$sourceline})\n";

            } else {

              print "Keeping file $dir/$entry ($$iDirList{$sourceline})\n";

            }

          }

          delete $$iDirList{$sourceline};

          # No more processing required

          next ENTRY;

        }

        # Check to see if there is reference to inside this directory

        if ($sourceline =~ m#^$dir/$entry/#i)

        {

          # something reference this as a directory need more processing

          $partial_match = 1 if (-d "$dir/$entry");

        }

      }

      if ($partial_match)

      {

        search_dir("$dir/$entry", $iDirList, $delete, $iVerbose) if (-d "$dir/$entry");

        next ENTRY;

      }

      # No match place on deletion list

      push @$delete, "$dir/$entry";

      print "Marking $dir/$entry for delete\n" if ($iVerbose);

    }

  }else{ 

    RealTimeBuildError("can not read directory $dir"); 

  } 

}

# ProcessList

#

# Inputs

# $iDataSource - ref to array of files to process

# $iSrc - real location of source files

# $iMRPSrc - where the mrp thinks they are

#

# Outputs

#

# Description

# This function processes mrp files

sub ProcessList

{

  my ($iDataSource, $iSrc, $iMRPSrc, $platform, $iVerbose) = @_;

  my %Sources;

  my @ComponentList;

  my %mrpHash;

  # Need the dir swap

  $iDataSource =~ s/^$iMRPSrc/$iSrc/;

  # Read the options.txt

  open OPTIONS, $iDataSource or die RealTimeBuildError("Cannot open $iDataSource $!");

  while(<OPTIONS>)

  {

    if (/^GT\+Techview baseline mrp location:\s*(\S+)\s*$/i)

    {

      $mrpHash{lc $1} = $1;

      next;

    }

    if (/^GT only baseline mrp location:\s*(\S+)\s*$/i)

    {

      $mrpHash{lc $1} = $1;

      next;

    }

    if (/^Strong crypto mrp location:\s*(\S+)\s*$/i)

    {

      $mrpHash{lc $1} = $1;

      next;

    }

    if (/^Techview component list:\s*(\S+)\s*$/i)

    {

      push @ComponentList, $1;

      next;

    }

    if (/^GT component list:\s*(\S+)\s*$/i)

    {

      push @ComponentList, $1;

      next;

    }

  }

  close OPTIONS;

  for (my $i = 0; $i < scalar(@ComponentList); $i++)

  {

    # Fix path

    $ComponentList[$i] =~ s#\\#\/#g;

    # Need the dir swap

    $ComponentList[$i] =~ s/^$iMRPSrc/$iSrc/;

    open IN, $ComponentList[$i] or die RealTimeBuildError("Cannot open ".$ComponentList[$i]." $!");

    while(<IN>)

    {

      my ($mrp) = /^\s*\S+\s+(\S+)\s*$/;

      $mrpHash{lc $mrp} = $mrp;

    }

    close IN;

  }

  my @mrpList = sort values %mrpHash;

  for (my $i = 0; $i < scalar(@mrpList); $i++)

  {

    # Fix path

    $mrpList[$i] =~ s#\\#\/#g;

    # Need the dir swap

    $mrpList[$i] =~ s/^$iMRPSrc/$iSrc/i;

    # Fix the CustKit / Devkit and techviewexamplesdk mrp locations

    $mrpList[$i] =~ s#^/product/CustKit#$iSrc/os/unref/orphan/cedprd/CustKit#i;

    $mrpList[$i] =~ s#^/product/DevKit#$iSrc/os/unref/orphan/cedprd/DevKit#i;

    $mrpList[$i] =~ s#^/product/techviewexamplesdk#$iSrc/os/unref/orphan/cedprd/techviewexamplesdk#i;

    $Sources{"$iSrc/os/unref/orphan/cedprd/SuppKit"} = "clean.pl";

    $Sources{"$iSrc/os/unref/orphan/cedprd/tools"} = "clean.pl";

    $Sources{"$iSrc/os/buildtools/toolsandutils/productionbldtools"} = "clean.pl";

    if (open MRP, $mrpList[$i])

    {

      my $mrpfile = $mrpList[$i];

      my $mrpfile_in_source = 0;

      while(<MRP>)

      {

        my $dir;

        if (/^\s*source\s+(\S.*\S)\s*$/i)		# must allow for spaces in names

        {

          my $origdir = $1;

          $dir = $origdir;

          #Find any relative paths and add them to the end of the mrp location to create a full path

          if (($dir =~ /\.\\/)||($dir =~ /\.\.\\/)||($dir !~ /\\/))

          {

		  $dir =~ s#\.\.#\.#g;		# .. becomes .	

		  $dir =~ s#^\.#\\\.#g;		# add an extra \ incase one is not present at start of path, canonpath wil cleanup multiple \

		  $dir = "\\".$dir if ($dir !~ /\\/);	#add \ to start of path if source line only specifies a file

		  # Fix paths to /

		  $dir =~ s#\\#\/#g;

		  $dir =~ s/$iMRPSrc/$iSrc/i if ($dir =~ /^$iMRPSrc/);

		  $dir = $iSrc.$dir if ($dir !~ /^$iMRPSrc/);

		  $dir = canonpath($dir);

          }

	  # Fix paths to /

	  $dir =~ s#\\#\/#g;

          # Remove any / from the end of the sourceline just in case the directory was ended in one

          $dir =~ s#\/$##;

          # Need the dir swap

          $dir =~ s/^$iMRPSrc/$iSrc/i;

          # Fix the CustKit / Devkit and techviewexamplesdk mrp locations

          $dir =~ s#^/product/CustKit#$iSrc/os/unref/orphan/cedprd/CustKit#i;

          $dir =~ s#^/product/DevKit#$iSrc/os/unref/orphan/cedprd/DevKit#i;

          $dir =~ s#^/product/techviewexamplesdk#$iSrc/os/unref/orphan/cedprd/techviewexamplesdk#i;

          if ($mrpfile =~ /^$dir$/i || $mrpfile =~ /^$dir\//i) {

            # mrpfile covered by source statements

            $mrpfile_in_source = 1;

          }

          # ignore location of release notes

          next if ($dir =~ /^\/component_defs/i);

          if (!-e $dir) {

            # CBR tools consider missing source as a fatal error

            RealTimeBuildError("$dir does not exist (listed as source in $mrpfile)");

          } elsif (!defined $Sources{$dir}) {

            $Sources{$dir} = $mrpfile;

          } else {

            print "REMARK: $origdir in $mrpfile is already defined in $Sources{$dir}\n";

          }

        }

      }

      close MRP;

      print "REMARK: $mrpList[$i] does not include itself as source\n" if (!$mrpfile_in_source);

    } else {

      RealTimeBuildError("Cannot open ".$mrpList[$i]." $!");

    }

  }

  return \%Sources;

}

# ProcessCommandLine

#

# Inputs

#

# Outputs

# @iDataSource array of multiple (txt file(s) to process)

# $iSrc - real location of files

# $iMRPSrc - where the mrp thinks they are

# @iDummy - do not delete anything

#

# Description

# This function processes the commandline

sub ProcessCommandLine {

  my ($iHelp, $iDataSource, $iSrc, $iMRPSrc, $platform, $iDummy, $iVerbose);

  GetOptions('h' => \$iHelp, 'o=s' =>\$iDataSource, 's=s' =>\$iSrc, 'm=s' =>\$iMRPSrc, 'p=s' =>\$platform,'n' => \$iDummy, 'v' => \$iVerbose);

  if (($iHelp) || (!defined $iSrc) || (!defined $iMRPSrc) || (!defined $platform))

  {

    Usage();

  }

  die RealTimeBuildError("Source directory $iSrc must be an absolute path with no drive letter") if ($iSrc !~ m#^[\\\/]#);

  die RealTimeBuildError("Source directory $iMRPSrc must be an absolute path with no drive letter") if ($iMRPSrc !~ m#^[\\\/]#);

  # Fix the paths

  $iSrc =~ s#\\#\/#g;

  $iMRPSrc =~ s#\\#\/#g;

  $iDataSource =~ s#\\#\/#g;

  if (! -d "$iSrc")

  {

    die RealTimeBuildError("$iSrc is not a directory") ;

  }

  # Need the dir swap

  $iDataSource =~ s/^$iMRPSrc/$iSrc/i;

  if (! -e "$iDataSource")

  {

    die RealTimeBuildError("Cannot open $iDataSource");

  }

  return($iDataSource, $iSrc, $iMRPSrc, $platform, $iDummy, $iVerbose);

}

# Usage

#

# Output Usage Information.

#

sub Usage {

  print <<USAGE_EOF;

  Usage: clean.pl [options]

  options:

  -h  help

  -o  options.txt to process

  -s  Source directory to process

  -m  MRP source directory

  -p  platform of product (beech or cedar)

  -n  Not do anything (dummy run)

  -v  Verbose

  Note:

  Due to CustKit using the clean-src directory (%clean-src%) for source

  The files need to be deleted from the %clean-src% directory

  This tool substitutes directory specified by -m with the directory

  specified by -s in all locations

  This means that options.txt and the component lists and mrp's must be

  referenced in the directory

  specified by -m

USAGE_EOF

  exit 1;

}