:
eval 'exec perl -wS $0 ${1+"$@"}'
    if 0;
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org.  If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************

#
# mapgen  - generate a dependencies file for zip commando
#
use Cwd;

#########################
#                       #
#   Globale Variablen   #
#                       #
#########################

$zip_file = '';
$R = '';
$r = '';
$exclude = '';
$include = '';
@given_patterns = ();   # patterns(files) list from command line
%files_in_arch = ();
@exc_patterns = ();     # array of all patterns for files to be excluded
@inc_patterns = ();     # array of all patterns for files to be included
%exc_files_hash = ();   # hash of files to be excluded (according to @exc_patterns)
%inc_files_hash = ();   # hash of files to be included (according to @inc_patterns)
$prefix = '';

#### main ####

&get_options;
&get_zip_content;
&write_zip_file;

#### end of main procedure ####

#########################
#                       #
#      Procedures       #
#                       #
#########################

#
# procedure writes zipdep file
#
sub write_zip_file {
    my @dependencies = keys %files_in_arch;
    if ($#dependencies != -1) {
        print "\n". &convert_slashes($zip_file) . ' :';
        foreach (@dependencies) {
            next if (-d);
            print " \\\n\t" . $prefix . &convert_slashes($_);
        };
        print "\n\n";
    };
};

#
# convert slashes
#
sub convert_slashes {
    my $path = shift;
    $path =~ s/\//\$\//g;
    $path =~ s/\\/\$\//g;
    return $path;
};

#
# convert slashes to internal perl representation
#
sub perled_slashes {
    my $path = shift;
    $path =~ s/\\/\//g;
    $path =~ s/\/+/\//g;
    return $path;
};

#
# Collect all files to zip in @patterns_array array
#
sub get_zip_content {
    &get_zip_entries(\@given_patterns);
    my $file_name = '';
    foreach $file_name (keys %files_in_arch) {
        if (-d $file_name) {
            &get_dir_content($file_name, \%files_in_arch) if ($r || $R);
            undef $files_in_arch{$file_name};
        };
    };
    &remove_uncompliant(\@given_patterns) if ($R);
    &get_patterns_files(\@exc_patterns, \%exc_files_hash) if ($exclude);
    &get_patterns_files(\@inc_patterns, \%inc_files_hash) if ($include);
    foreach my $file_name (keys %exc_files_hash) {
        if (defined $files_in_arch{$file_name}) {
            delete $files_in_arch{$file_name};
            #print STDERR "excluded $file_name\n";
        };
    };
    if ($include) {
        foreach my $file_name (keys %files_in_arch) {
            if (!(defined $inc_files_hash{$file_name})) {
                delete $files_in_arch{$file_name};
            };
        };
    }
};

#
# Procedure removes from %files_in_arch all files which
# are not compliant to patterns in @given_patterns
#
sub remove_uncompliant {
    my $given_patterns = shift;
    my @reg_exps = ();
    my $pattern = '';
    foreach $pattern (@$given_patterns) {
        push(@reg_exps, &make_reg_exp($pattern));
    };
    # write file name as a value for the path(key)
    foreach my $file (keys %files_in_arch) {
        next if (-d $file);
        #print "$file\n";
        if ($file =~ /[\\ | \/](.+)$/) {
            $files_in_arch{$file} = $1;
        } else {
            $files_in_arch{$file} = $file;
        };
    };
    foreach $pattern (@reg_exps) {
        foreach my $file (keys %files_in_arch) {
            if (!($files_in_arch{$file} =~ /$pattern/)) {
                delete $files_in_arch{$file};
            #} else {
            #   print "Complient: $file\n";
            };
        };
    };
};

#
# Procedure adds/removes to/from %files_in_arch all files, that are
# compliant to the patterns in array passed
#
sub get_zip_entries {
    if ($R) {
        opendir DIR, '.';
        my @dir_content = readdir(DIR);
        close DIR;
        foreach my $file_name(@dir_content) {
            $file_name =~ /^\.$/ and next;
            $file_name =~ /^\.\.$/ and next;
            $files_in_arch{$file_name}++;
            #print "included $file_name\n";
        };
    } else {
        my $patterns_array = shift;
        my $pattern = '';
        foreach $pattern (@$patterns_array) {
            if ((-d $pattern) || (-f $pattern)) {
                $files_in_arch{$pattern}++;
                next;
            }
            my $file_name = '';
            foreach $file_name (glob $pattern) {
                #next if (!(-d $file_name) || !(-f $file_name));
                $files_in_arch{$file_name}++;
            };
        };
    }
};

#
# Procedure converts given parameter to a regular expression
#
sub make_reg_exp {
    my $arg = shift;
    $arg =~ s/\\/\\\\/g;
    $arg =~ s/\//\\\//g;
    $arg =~ s/\./\\\./g;
    $arg =~ s/\+/\\\+/g;
    $arg =~ s/\{/\\\{/g;
    $arg =~ s/\}/\\\}/g;
    $arg =~ s/\*/\.\*/g;
    $arg =~ s/\?/\./g;
    #$arg = '/'.$arg.'/';
    #print "Regular expression: $arg\n";
    return $arg;
};

#
# Procedure retrieves shell pattern and converts them into regular expressions
#
sub get_patterns {
    my $patterns = shift;
    my $arg = '';
    while ($arg = shift @ARGV) {
        $arg =~ /^-/    and unshift(@ARGV, $arg) and return;
        if (!$zip_file) {
            $zip_file = $arg;
            next;
        };
        $arg = &make_reg_exp($arg);
        push(@$patterns, $arg);
    };
};

#
# Get all options passed
#
sub get_options {
    my ($arg);
    &usage() && exit(0) if ($#ARGV == -1);
    while ($arg = shift @ARGV) {
        $arg = &perled_slashes($arg);
        #print STDERR "$arg\n";
        $arg =~ /^-R$/          and $R = 1  and next;
        $arg =~ /^-r$/          and $r = 1  and next;
        $arg =~ /^-x$/          and $exclude = 1 and &get_patterns(\@exc_patterns) and next;
        $arg =~ /^-i$/          and $include = 1 and &get_patterns(\@inc_patterns) and next;
        $arg =~ /^-prefix$/     and $prefix = shift @ARGV                   and next;
        $arg =~ /^-b$/          and shift @ARGV                 and next;
        $arg =~ /^-n$/          and shift @ARGV                 and next;
        $arg =~ /^-t$/          and shift @ARGV                 and next;
        $arg =~ /^-tt$/         and shift @ARGV                 and next;
        $arg =~ /^-h$/          and &usage                      and exit(0);
        $arg =~ /^--help$/      and &usage                      and exit(0);
        $arg =~ /^-?$/          and &usage                      and exit(0);
        if ($arg =~ /^-(\w)(\w+)$/) {
            unshift (@ARGV, '-'.$1);
            unshift (@ARGV, '-'.$2);
            next;
        };
# just ignore other switches...
        $arg =~ /^-(\w+)$/      and next;
        $arg =~ /^\/\?$/            and &usage                      and exit(0);
        $zip_file = $arg        and next if (!$zip_file);
        push(@given_patterns, $arg);
    };
    &print_error('error: Invalid command arguments (do not specify both -r and -R)') if ($r && $R);
    if ($r && ($#given_patterns == -1)) {
        &print_error('no list specified');
    };
};

#
# Procedure fills out passed hash with files from passed dir
# compliant to the pattern from @$patterns
#
sub get_patterns_files {
    my $patterns_array = shift;
    my $files_hash = shift;
    my @zip_files = keys %files_in_arch;
    foreach my $pattern (@$patterns_array) {
        my @fit_pattern = grep /$pattern/, @zip_files;
        foreach my $entry (@fit_pattern) {
            $$files_hash{$entry}++;
            #print "$entry\n";
        };
    };
};

#
# Get dir stuff to pack
#
sub get_dir_content {
    my $dir = shift;
    my $dir_hash_ref = shift;
    my $entry = '';
    if (opendir(DIR, $dir)) {
        my @prj_dir_list = readdir(DIR);
        closedir (DIR);
        foreach $entry (@prj_dir_list) {
            $entry =~ /^\.$/ and next;
            $entry =~ /^\.\.$/ and next;

            $entry = $dir . '/' . $entry;
            # if $enry is a dir - read all its files,
            # otherwise store $entry itself
            if (-d $entry) {
                &get_dir_content($entry, $dir_hash_ref);
            } else {
                $$dir_hash_ref{$entry}++;
            };
        };
    };
    return '1';
};

sub print_error {
    my $message = shift;
    print STDERR "\nERROR: $message\n";
    exit (1);
};

sub usage {
    print STDERR "      zipdep  [-aABcdDeEfFghjklLmoqrRSTuvVwXyz]     [-b path]\n";
    print STDERR "      [-n suffixes]  [-t mmddyyyy]  [-tt mmddyyyy]  [  zipfile [\n";
    print STDERR "      file1 file2 ...]] [-xi list]\n";
}