#!perl

# exportall

# 

# Copyright (c) 2008 - 2010 Accenture. All rights reserved.

# This component and the accompanying materials are made available

# under the terms of the "Eclipse Public License v1.0"

# which accompanies this distribution, and is available

# at the URL "http://www.eclipse.org/legal/epl-v10.html".

# 

# Initial Contributors:

# Accenture - Initial contribution

#

# Description:

# exportall - A tool to export a whole folder of files from a bld.inf

use strict;

use Cwd;

use Getopt::Long;

use File::Copy;

use File::Basename;

use File::Path;

sub ProcessCommandLine();

sub DisplayHelp();

sub FindSourceFiles();

sub DoCopy($$);

my %options;

my $sourceDir;

my $destDir;

ProcessCommandLine();

my $sourceFiles = FindSourceFiles();

my @destFiles = @$sourceFiles;

map { s|^\Q$sourceDir\E(.*)|$destDir$1| } @destFiles;

map { s|\\\\|\\| } @destFiles; # get rid of double \\

if ($options{what}) {

  if (@destFiles > 0) {

    local $, = "\n";

    print @destFiles;

    print "\n";

  }

} elsif ($options{clean}) {

  map {unlink} @destFiles;

} else {

  local $, = "\n";

  map { my $src =$_;

        s|^\Q$sourceDir\E(.*)|$destDir$1|;

        DoCopy($src, $_);

      } @$sourceFiles;

}

sub ProcessCommandLine() {

  my $help;

  GetOptions('h|help' => \$help,

	     'v|verbose' => \$options{verbose},

	     'w|what' => \$options{what},

	     'c|clean' => \$options{clean}) or DisplayHelp();

  DisplayHelp() if $help;

  if (scalar(@ARGV)!=2) {

    print "ERROR: Invalid number of arguments.\n";

    DisplayHelp();

  }

  $sourceDir = shift(@ARGV);

  $destDir = shift(@ARGV);

  print STDERR "Exporting from $sourceDir to $destDir\n" if ($options{verbose});  

}

sub DoCopy($$) {

  my ($src, $dest) = @_;

  my $destDir = dirname($dest);

  unless (-d $destDir) {

    mkpath $destDir or die "Can't create $destDir: $!";

  }

  if (-e $dest) {

    unlink $dest;

  }

  copy($src, $dest) or die "Can't copy $src to $_: $!"

}

sub FindSourceFiles() {

  my @sourceFiles;

  my @dirStack;

  push @dirStack, $sourceDir;

  while (scalar(@dirStack)) {

    my $dir = pop(@dirStack);

    opendir DIR, "$dir";

    my @dirContents = readdir(DIR);

    closedir(DIR);

    push @sourceFiles, (map {"$dir\\$_"} (grep {-f "$dir\\$_"} @dirContents));

    push @dirStack, (map {"$dir\\$_"} (grep {(-d "$dir\\$_")  && !(m|^\.\.?|)} @dirContents));

  }

  return \@sourceFiles;

}

sub DisplayHelp() {

  require Pod::Text;

  print "\n";

  my $parser = Pod::Text->new();

  $parser->parse_from_file($0);

  exit;

}

__END__

=head1 NAME

exportall - A tool to export an entire directory tree from a project. Designed to be invoked from a custom makefile.

=head1 SYNOPSIS

	exportall [options] sourceDir destDir

options:

=over

=item -h

Show help

=item -v

Verbose

=item -w

Print list of files to be exported, for a C<-what>.

=item -c

Clean. Deletes all files that aer exported.

=back

=head1 COPYRIGHT

Copyright (c) 2008-2010 Accenture. All rights reserved.

=cut=cut