# Copyright (c) 1999-2009 Nokia Corporation and/or its subsidiary(-ies).
# All rights reserved.
# This component and the accompanying materials are made available
# under the terms of "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:
# Nokia Corporation - initial contribution.
#
# Contributors:
#
# Description:
#

use Getopt::Long;
GetOptions("v", "x=s@");

if (@ARGV<2)
	{
#........1.........2.........3.........4.........5.........6.........7.....
	print <<USAGE_EOF;

Usage:
  delta_zip zipfile dir1 [dir2 ...] [-x excludezip ] [-x pattern]

Create <zipfile> which contains the tree rooted at <dir1>,
excluding all files listed in <excludezip>, and optionally
all files which match the specified Perl patterns.

This is done with "zip zipfile -@", with the appropriately 
filtered list of files supplied as standard input.
 
USAGE_EOF
	exit 1;
	}

my $zipfile = shift;
die "$zipfile already exists\n" if (-e $zipfile);

#--------
# Find the basic list of files
#

my %filelist;
my $filecount = 0;
my $arg = shift;

while ($arg ne "")
	{
	if (-d $arg)
		{
		add_dir($arg);
		}
	elsif (-e $arg)
		{
		add_file($arg);
		}
	else
		{
		print "Cannot find $arg - ignored\n";
		}
	print "$filecount files after processing $arg\n";

	$arg = shift;
	next;
	}

#--------
# Remove excluded files
#

foreach $arg (@opt_x)
	{
	if (-e $arg)
		{
		exclude_zip($arg);
		}
	else
		{
		exclude_pattern($arg);
		}
	print "$filecount files after excluding $arg\n";
	$arg = shift;
	}

print "Invoking \"zip $zipfile -@\"\n";

open ZIPOUT, "| zip $zipfile -@";
foreach $arg ( sort keys %filelist)
	{
	if ($filelist{$arg} ne "")
		{
		print ZIPOUT "$filelist{$arg}\n";
		}
	}

close ZIPOUT;
die "Problems creating zip file\n" if ($? != 0);

exit 0;


#------------------------------------------------------------

sub add_file
	{
	my ($file) = @_;
	my $key = lc $file;

	$key =~ s-/-\\-g;	# convert / to \ for path separators
	$key =~ s/^\\//;	# remove leading \ since it won't appear in zip files
	if ($filelist{$key} ne "")
		{
		die "Duplicate file $file\n";
		}
	$filelist{$key} = $file;
	$filecount += 1;
	}

sub exclude_file
	{
	my ($file) = @_;
	my $key = lc $file;

	$key =~ s-/-\\-g;	# convert / to \ for path separators
	$key =~ s/^\\//;	# remove leading \ since it won't appear in zip files
	if ($filelist{$key} ne "")
		{
		delete $filelist{$key};
		$filecount -= 1;
		}
	}

sub exclude_pattern
	{
	my ($pattern) = @_;
	my $key;

	foreach $key (keys %filelist)
		{
		if ($key =~ /$pattern/i && $filelist{$key} ne "")
			{
			delete $filelist{$key};
			$filecount -= 1;
			}
		}
	}

sub add_dir
	{
	my ($dir) = @_;
	opendir LISTDIR, $dir or print "Cannot read directory $dir\n" and return;
	my @list = grep !/^\.\.?$/, readdir LISTDIR;
	closedir LISTDIR;

	if ($opt_v)
		{
		print "Scanning $dir...\n";
		}
	my $name;
	foreach $name (@list)
		{
		my $filename = "$dir\\$name";
		if (-d $filename)
			{
			add_dir($filename);	# recurse
			}
		else
			{
			add_file($filename);
			}
		}
	}

sub exclude_zip
	{
	my ($excludezip) = @_;

	die "$excludezip does not exist\n" if (!-e $excludezip);
	print "Reading exclusions from $excludezip...\n";

	my $line;
	open ZIPEX, "unzip -l $excludezip |";
	while ($line=<ZIPEX>)
		{
		#    4492  10-12-99  17:31   epoc32/BLDMAKE/AGENDA/ARM4.MAKE
		if ($line =~ /..-..-..\s+..:..\s+(.*)$/)
			{
			exclude_file($1);
			}
		}
	close ZIPEX;
	die "Problem reading $excludezip\n" if ($? != 0);
	}