INTEGRATION: CWS changefileheader (1.14.1038); FILE MERGED

2008/03/28 15:55:32 rt 1.14.1038.1: #i87441# Change license header to LPGL v3.

1 files changed, 341 insertions, 0 deletions

diff --git a/solenv/bin/zipdep.pl b/solenv/bin/zipdep.pl
new file mode 100755
index 000000000000..c83f4d32ef73
--- /dev/null
+++ b/solenv/bin/zipdep.pl
@@ -0,0 +1,341 @@
+:
+eval 'exec perl -wS $0 ${1+"$@"}'
+    if 0;
+#*************************************************************************
+#
+# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+#
+# Copyright 2008 by Sun Microsystems, Inc.
+#
+# OpenOffice.org - a multi-platform office productivity suite
+#
+# $RCSfile: header.hxx,v $
+#
+# $Revision: 1.1 $
+#
+# 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;
+
+#### script id #####
+
+( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
+
+$id_str = ' $Revision: 1.12 $ ';
+$id_str =~ /Revision:\s+(\S+)\s+\$/
+  ? ($script_rev = $1) : ($script_rev = "-");
+
+print STDERR "$script_name -- version: $script_rev\n";
+print STDERR "Multi Platform Enabled Edition\n";
+
+#########################
+#                       #
+#   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";
+}
+