diff --git a/config/make-jars-unix.pl b/config/make-jars-unix.pl deleted file mode 100644 index 522be8ba86d1..000000000000 --- a/config/make-jars-unix.pl +++ /dev/null @@ -1,291 +0,0 @@ -#!/perl - -# make-jars [-c] [-v] [-d ] [-s ] < - -use strict; - -use Getopt::Std; -use Cwd; -use File::stat; -use Time::localtime; -use Cwd; -use File::Copy; -use File::Path; - -my @cleanupList = (); -my $IS_DIR = 1; -my $IS_FILE = 2; - -my $objdir = getcwd; - -getopts("d:s:cv"); - -my $usrcdir = undef; -if (defined($::opt_s)) { - $usrcdir = $::opt_s; -} - -my $destPath = "."; -if (defined($::opt_d)) { - $destPath = $::opt_d; - if ( defined($usrcdir) && substr($destPath, 0, 1) ne "/") { - $destPath = "$objdir/$destPath"; - } -} - -my $copyFiles = 0; -if (defined($::opt_c)) { - $copyFiles = 1; -} - -my $verbose = 0; -if (defined($::opt_v)) { - $verbose = 1; -} - -sub Cleanup -{ - while (1) { - my $isDir = pop(@cleanupList); - if ($isDir == undef) { - return 0; - } - my $path = pop(@cleanupList); - #print "Cleaning up $path\n"; - if ($isDir == $IS_DIR) { - rmdir($path) || die "can't remove dir $path: $!"; - } - else { - unlink($path) || die "can't remove file $path: $!"; - } - } -} - -sub zipErrorCheck($) -{ - my ($err) = @_; - - return if ($err == 0 || $err == 12); - - die ("Error invoking zip: $err\n"); - -} - -sub JarIt -{ - my ($destPath, $jarfile, $copyFiles, $args, $overrides) = @_; - - my $dir = $destPath; - if ("$dir/$jarfile" =~ /([\w\d.\-\\\/]+)[\\\/]([\w\d.\-]+)/) { - $dir = $1; - } - - MkDirs($dir, ".", 0); - - if ($copyFiles) { - - my $indivDir = $jarfile; - if ($indivDir =~ /(.*).jar/) { - $indivDir = $1; - } - my $indivPath = "$destPath/$indivDir"; - MkDirs($indivPath, ".", 0); - - my $file; - foreach $file (split(' ', $args)) { - if ($verbose) { - print "adding individual file $file to dist\n"; - } - EnsureFileInDir("$indivPath/$file", $file, 0, 0); - } - foreach $file (split(' ', $overrides)) { - if ($verbose) { - print "override: adding individual file $file to dist\n"; - } - EnsureFileInDir("$indivPath/$file", $file, 0, 1); - } - } - - if (!($args eq "")) { - my $cwd = getcwd; - my $err = 0; - system("zip -u $destPath/$jarfile $args") == 0 or - $err = $? >> 8; - zipErrorCheck($err); - } - if (!($overrides eq "")) { - my $err = 0; - print "+++ overriding $overrides\n"; - system("zip $destPath/$jarfile $overrides\n") == 0 or - $err = $? >> 8; - zipErrorCheck($err); - - } - - Cleanup(); -} - -sub MkDirs -{ - my ($path, $containingDir, $doCleanup) = @_; - my $cwd = getcwd; - my (@dirlist, $dir); - - return if ($path eq ""); - - #print "MkDirs $cwd |$path| $containingDir $doCleanup\n"; - - @dirlist = mkpath("$path", 0, 0755); - - if ($doCleanup == 1) { - foreach $dir ( @dirlist) { - #push(@cleanupList, "$cwd/$containingDir/$path"); - push(@cleanupList, "$dir"); - push(@cleanupList, $IS_DIR); - } - } -} - -sub CopyFile -{ - my ($from, $to, $doCleanup) = @_; - if ($verbose) { - print "copying $from to $to\n"; - } - copy("$from", "$to") || die "CopyFile failed: $!\n"; - - # fix the mod date so we don't jar everything (is this faster than just jarring everything?) - my $atime = stat($from)->atime || die $!; - my $mtime = stat($from)->mtime || die $!; - utime($atime, $mtime, $to); - - if ($doCleanup == 1) { - push(@cleanupList, "$to"); - push(@cleanupList, $IS_FILE); - } -} - -sub EnsureFileInDir -{ - my ($destPath, $srcPath, $doCleanup, $override) = @_; - - #print "Ensure: |$destPath| |$srcPath|\n"; - - if (!-e $destPath || $override ne "") { - my $dir = ""; - my $file; - if ($destPath =~ /([\w\d.\-\\\/]+)[\\\/]([\w\d.\-]+)/) { - $dir = $1; - $file = $2; - } - else { - $file = $destPath; - } - - if ($srcPath) { - $file = $srcPath; - } - - if (!-e $file) { - if (defined($usrcdir)) { - if (-e "$usrcdir/$file") { - $file = "$usrcdir/$file"; - } else { - die "error: file '$usrcdir/$file' doesn't exist\n"; - } - } else { - die "error: file '$file' doesn't exist\n"; - } - } - MkDirs($dir, ".", $doCleanup); - CopyFile($file, $destPath, $doCleanup); - return 1; - } -# elsif ($doCleanup == 0 && -e $destPath) { -# print "!!! file $destPath already exists -- need to add '+' rule to jar.mn\n"; -# } - return 0; -} - -if (defined($usrcdir)) { - if ( -e "$usrcdir" ) { - print "Change to $usrcdir from $objdir\n"; - chdir($usrcdir) or die "chdir: $!\n"; - } else { - die "srcdir $usrcdir does not exist!\n"; - } -} - -while () { - chomp; - start: - if (/^([\w\d.\-\\\/]+)\:\s*$/) { - my $jarfile = $1; - my $args = ""; - my $overrides = ""; - my $cwd = cwd(); - print "+++ making chrome $cwd => $destPath/$jarfile\n"; - while () { - if (/^\s+([\w\d.\-\\\/]+)\s*(\([\w\d.\-\\\/]+\))?$\s*/) { - my $dest = $1; - my $srcPath = $2; - - if ( $srcPath ) { - $srcPath = substr($srcPath,1,-1); - - if (defined($usrcdir)) { - #print "Chkpt A: Switching to $objdir\n"; - chdir $objdir or die "chdir: $!\n"; - $srcPath = "$usrcdir/$srcPath"; - } - } - EnsureFileInDir($dest, $srcPath, 1); - $args = "$args$dest "; - JarIt($destPath, $jarfile, $copyFiles, $args, $overrides); - - if ($srcPath && defined($usrcdir)) { - #print "Chkpt B: Switching back to $usrcdir\n"; - chdir $usrcdir or die "chdir: $!\n"; - } - } elsif (/^\+\s+([\w\d.\-\\\/]+)\s*(\([\w\d.\-\\\/]+\))?$\s*/) { - my $dest = $1; - my $srcPath = $2; - - if ( $srcPath ) { - $srcPath = substr($srcPath,1,-1); - if (defined($usrcdir)) { - #print "Chkpt C: Switching to $objdir\n"; - chdir $objdir or die "chdir: $!\n"; - $srcPath = "$usrcdir/$srcPath"; - } - } - EnsureFileInDir($dest, $srcPath, 1); - $overrides = "$overrides$dest "; - JarIt($destPath, $jarfile, $copyFiles, $args, $overrides); - if ($srcPath && defined($usrcdir)) { - #print "Chkpt D: Switching back to $usrcdir\n"; - chdir $usrcdir or die "chdir: $!\n"; - } - } elsif (/^\s*$/) { - # end with blank line - last; - } else { - #print "Chkpt E\n"; - - JarIt($destPath, $jarfile, $copyFiles, $args, $overrides); - - #print "Chkpt F\n"; - - goto start; - } - } - - } elsif (/^\s*\#.*$/) { - # skip comments - } elsif (/^\s*$/) { - # skip blank lines - } else { - close; - die "bad jar rule head at: $_"; - } -}