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, 302 insertions, 0 deletions
diff --git a/postprocess/rebase/rebase.pl b/postprocess/rebase/rebase.pl
new file mode 100755
index 000000000000..5d40668dec73
--- /dev/null
+++ b/postprocess/rebase/rebase.pl
@@ -0,0 +1,302 @@
+:
+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-05-14 13:11:53 +0000