summaryrefslogtreecommitdiff
path: root/solenv/bin/zipdep.pl
diff options
context:
space:
mode:
Diffstat (limited to 'solenv/bin/zipdep.pl')
-rwxr-xr-xsolenv/bin/zipdep.pl326
1 files changed, 0 insertions, 326 deletions
diff --git a/solenv/bin/zipdep.pl b/solenv/bin/zipdep.pl
deleted file mode 100755
index 42803310e..000000000
--- a/solenv/bin/zipdep.pl
+++ /dev/null
@@ -1,326 +0,0 @@
-:
-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";
-}
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-07 16:40:23 +0000