summaryrefslogtreecommitdiff
path: root/postprocess/rebase/rebase.pl
diff options
context:
space:
mode:
Diffstat (limited to 'postprocess/rebase/rebase.pl')
-rwxr-xr-xpostprocess/rebase/rebase.pl302
1 files changed, 0 insertions, 302 deletions
diff --git a/postprocess/rebase/rebase.pl b/postprocess/rebase/rebase.pl
deleted file mode 100755
index c440dc3..0000000
--- a/postprocess/rebase/rebase.pl
+++ /dev/null
@@ -1,302 +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.
-#
-#*************************************************************************
-
-#
-# rebase.pl - rebase windows dlls
-#
-# This perl script is to rebase all windows dlls. In principle this could
-# be done with one simple command line like f.e.
-# rebase -b 0x68000000 -d -R foo_dir -N bar.txt $(SOLARBINDIR)$/*.dll
-# That would work fine for creating complete office install sets, but it
-# could fail as soon as we are going to ship single dlls for a product
-# patch. Therefore, this wrapper perl script is used. It reads a given base
-# address file and rebases all files mentioned to the same address as
-# previously. New dlls get appended to the list.
-
-use strict;
-
-#### globals #####
-
-my $myname = '';
-my $options_string = ''; # order of options is important
-my %options_hash;
-my $rebase_files;
-my $misc_dir = $ENV{TEMP};
-my $lastaddress;
-my @old_files;
-my @new_files;
-
-#### main #####
-
-$myname = script_id();
-parse_options();
-my %lastrun = read_coffbase( \$lastaddress );
-# Get files specified on command line. Differ between those already
-# listed in coffbase (%options_hash{'C'}) and additional ones.
-get_files( \@old_files, \@new_files );
-# Rebase libraries already listed in coffbase to the addresses given there.
-rebase_again( \@old_files, \@new_files ) if ( @old_files );
-# Rebase additional files.
-rebase_initially( \@new_files, $lastaddress ) if ( @new_files );
-
-exit 0;
-
-
-#### subroutines ####
-
-sub script_id
-{
- ( my $script_name = $0 ) =~ s/^.*[\\\/]([\w\.]+)$/$1/;
-
- my $script_rev;
- my $id_str = ' $Revision$ ';
- $id_str =~ /Revision:\s+(\S+)\s+\$/
- ? ($script_rev = $1) : ($script_rev = "-");
-# print "\n$script_name -- version: $script_rev\n";
- return $script_name;
-}
-
-
-sub parse_options
-{
- use Getopt::Std;
- if ( !getopts('C:b:de:l:m:R:N:v', \%options_hash) || ($#ARGV < 0) ) {
- print STDERR "Error: invalid command line.\n\n";
- usage ();
- exit 1;
- }
- # create options string (we cannot rely on a hash because for some options the
- # order is important. -R option has to be specified before -N!)
- foreach my $var ( 'C', 'b', 'e', 'l', 'R', 'N' ) {
- if ($options_hash{$var} ) {
- $options_string .= "-$var $options_hash{$var} ";
- }
- }
- $options_string .= "-d " if $options_hash{"d"};
- $options_string .= "-v " if $options_hash{"v"};
- # some basic tests
- if ( ! $options_hash{'C'}) {
- print STDERR "Error: no coffbase specified\n\n";
- usage ();
- exit 2;
- }
- if ( ! $options_hash{'b'}) {
- print STDERR "Error: no initial base address specified\n\n";
- usage ();
- exit 2;
- }
- if ($options_hash{"m"}) {
- $misc_dir = $options_hash{"m"};
- }
- if ( ! -d $misc_dir ) {
- print STDERR "Error: no directory to write work files. Please specify with -m\n";
- usage ();
- exit 3;
- }
- if ( $misc_dir !~ /[\/\\]$/ ) {
- # append finishing path separator:
- if ( $misc_dir =~ /([\/\\])/ ) {
- $misc_dir .= $1;
- }
- }
- $rebase_files = join " ", @ARGV;
- # Cygwin's perl in a W32-4nt configuration wants / instead of \ .
- $rebase_files =~ s/\\/\//g;
- return;
-}
-
-
-sub read_coffbase
-{
- my ($addref) = shift;
- my %baseaddresses;
- my @entry;
- if ( $options_hash{'C'} ) {
- my $filename = $options_hash{'C'};
- if ( -e $filename ) {
- print "Repeated run, $filename present\n";
- open( COFFBASE, $filename) or die "Error: cannot open $filename";
- while ( my $line = <COFFBASE> ) {
- # each row consists of three entries, separated by white space:
- # dll-name base-address size
- @entry = split /\s+/ , $line ;
- if ( $entry[3] || ( ! $entry[2] ) ) {
- print STDERR "Warning: coffbase file structure invalid?\n";
- }
- $baseaddresses{$entry[0]} = $entry[1];
- if ( $entry[3] ) {
- print STDERR "Warning: coffbase file structure invalid?\n";
- }
- }
- close( COFFBASE );
- $$addref = $entry[1];
- } else {
- print "Initial run, $filename not yet present\n";
- }
- } else {
- die "Error: no coffbase specified.";
- }
- return %baseaddresses;
-}
-
-
-sub get_files
-{
- use File::Basename;
- my ( $oldfiles_ref, $newfiles_ref ) = @_;
- my @target = split / /, $rebase_files;
- foreach my $pattern ( @target ) {
- foreach my $i ( glob( $pattern ) ) {
- my $lib = File::Basename::basename $i;
- $lib =~ s/\+/\\\+/g;
- if ( grep /^$lib$/i, (keys %lastrun) ) {
- push @$oldfiles_ref, $i;
- } else {
- push @$newfiles_ref, $i;
- }
- }
- }
- return;
-}
-
-
-sub rebase_again
-# rebase using given coffbase file
-{
- my $oldfiles_ref = shift;
- my $newfiles_ref = shift;
- my @grownfiles;
- my $solarbin ="$ENV{SOLARVERSION}/$ENV{INPATH}/bin$ENV{UPDMINOREXT}";
- my $command = "rebase " . $options_string;
- if ( $ENV{WRAPCMD} ) {
- $command = $ENV{WRAPCMD} . " " . $command;
- }
- $command =~ s/-C /-i /;
- $command =~ s/-d//;
- $command =~ s/-b $options_hash{'b'}//;
- my $fname = $misc_dir . "rebase_again.txt";
- open ( FILES, "> $fname") or die "Error: cannot open file $fname";
- my $filesstring = join " ", @$oldfiles_ref;
- print FILES "$filesstring\n";
- close FILES;
- $command .= "\@$fname";
- # Cygwin's perl needs escaped \ in system() and open( COMMAND ... )
- if ( "$^O" eq "cygwin" ) { $command =~ s/\\/\\\\/g; }
- print "\n$command\n";
- open( COMMAND, "$command 2>&1 |") or die "Error: Can't execute $command\n";
- if ( $? ) {
- die "Error: rebase failed: $?!\n";
- }
- while( <COMMAND> ) {
- print;
- # evaluate error messages
- if ( /REBASE: ([^\s]+).*Grew too large/ ) {
- my $toobig_name = $1;
- if ( -e "$solarbin/so/$toobig_name" ) {
- push @grownfiles, "$solarbin/so/$toobig_name";
- print "name was : $toobig_name\n";
- print "push $solarbin/so/$toobig_name\n";
- } else {
- push @grownfiles, "$solarbin/$toobig_name";
- }
- }
- }
- close( COMMAND );
- if ( @grownfiles ) {
- # Some files are larger than expected and therefore could not be rebased.
- # Remove respective entries from coffbase and schedule rebase in 'rebase_initially'.
- push @$newfiles_ref, @grownfiles;
- my $coffbase = $options_hash{'C'};
- my $coffbase_new = $options_hash{'C'} . ".new";
- open( COFFBASENEW, "> $coffbase_new") or die "Error: cannot open $coffbase_new";
- open( COFFBASE, $coffbase) or die "Error: cannot open $coffbase";
- my @entry;
- while ( my $line = <COFFBASE> ) {
- @entry = split /\s+/ , $line ;
- if ( $entry[3] ) {
- print STDERR "Warning: coffbase file structure invalid?\n";
- }
- grep /^$entry[0]$/, @grownfiles or print COFFBASENEW $line;
- }
- close( COFFBASE );
- close( COFFBASENEW );
- rename $coffbase, $coffbase . ".old" or warn "Error: cannot rename $coffbase";
- rename $coffbase_new, $coffbase or warn "Error: cannot rename $coffbase_new";
- }
-}
-
-
-sub rebase_initially
-{
- my ($files_ref, $start_address) = @_;
- my $command = "rebase ";
- if ( $ENV{WRAPCMD} ) {
- $command = $ENV{WRAPCMD} . " " . $command;
- }
- $command .= $options_string;
- if ( $start_address ) {
- $command =~ s/-b $options_hash{'b'}/ -b $start_address/;
- }
- my $fname = $misc_dir . "rebase_new.txt";
- open ( FILES, "> $fname") or die "Error: cannot open file $fname";
- my $filesstring = join " ", @$files_ref;
- print FILES "$filesstring\n";
- close FILES;
- $command .= "\@$fname";
- # Cygwin's perl needs escaped \ in system() and open( COMMAND ... )
- if ( "$^O" eq "cygwin" ) { $command =~ s/\\/\\\\/g; }
- print "\n$command\n";
- my $error = system("$command");
- if ($error) {
- $error /= 256;
- die "Error: rebase failed with exit code $error!\n";
- }
-}
-
-
-sub usage
-{
- print "Usage:\t $myname <-C filename> <-b address> [-d] [-e <Size>] [-l <filename>] [-v] [-m dir] [-R <roordir>] [-N <filename>] <file[list]> \n";
- # Options similar to rebase binary. Additional options: -m misc-directory
- print "Options:\n";
- print "\t -C coffbase_filename Write the list of base adresses to file coffbase_filename. ";
- print "Mandatory.\n";
- print "\t -b address Initial base address. Mandatory.\n";
- print "\t -e SizeAdjustment Extra size to allow for image growth.\n";
- print "\t -d Top down rebase.\n";
- print "\t -l filename Write logfile filename.\n";
- print "\t -m directory Directory to write work files.\n";
- print "\t -R directory Root directory.\n";
- print "\t -N filename Specify list of files not to be rebased.\n";
- print "\t -v Verbose.\n";
- return;
-}
-
-
generated by cgit v1.2.3 (git 2.39.1) at 2024-06-04 02:57:50 +0000