diff options
Diffstat (limited to 'solenv/bin/mapgen.pl')
| -rw-r--r-- | solenv/bin/mapgen.pl | 207 |
1 files changed, 207 insertions, 0 deletions
diff --git a/solenv/bin/mapgen.pl b/solenv/bin/mapgen.pl new file mode 100644 index 000000000000..48c335c2adba --- /dev/null +++ b/solenv/bin/mapgen.pl @@ -0,0 +1,207 @@ +: +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 map file for Unix libraries +# + +#use File::Path; +#use File::Copy; + +#### script id ##### + +( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/; + +$id_str = ' $Revision: 1.6 $ '; +$id_str =~ /Revision:\s+(\S+)\s+\$/ + ? ($script_rev = $1) : ($script_rev = "-"); + +print "$script_name -- version: $script_rev\n"; +print "Multi Platform Enabled Edition\n"; + +######################### +# # +# Globale Variablen # +# # +######################### + +$dump_file = ''; +$flt_file = ''; +$map_file = ''; +$first_string = ''; +$tab = ' '; + +#### main #### + +&get_options; +if (!(open (DUMP_FILE, $dump_file))) { + &print_error("Unable open $dump_file"); +}; +if (!(open (FLT_FILE, $flt_file))) { + close DUMP_FILE; + &print_error("Unable open $flt_file"); +}; +unlink $map_file; +if (!(open (MAP_FILE, ">>$map_file"))) { + close DUMP_FILE; + close FLT_FILE; + &print_error("Unable open $map_file"); +}; + +if ($ENV{OS} eq 'SOLARIS') { + &gen_sol; +} elsif ($ENV{OS} eq 'LINUX') { + &gen_lnx; +} else { + &print_error ('Environment not set!!'); +}; + +close DUMP_FILE; +close FLT_FILE; +close MAP_FILE; + +#### end of main procedure #### + +######################### +# # +# Procedures # +# # +######################### + +# +# Generate a map file for solaris +# +sub gen_sol { + my %symbols = (); + foreach (<DUMP_FILE>) { + next if (!(/\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*\|\s*(\S+)\s*/)); + next if (($7 =~ /UNDEF/) || ($7 =~ /ABS/)); + next if ($5 eq 'LOCL'); + $symbols{$8}++; + }; + &filter_symbols(\%symbols); +}; + +# +# Generate a map file for linux +# +sub gen_lnx { + my %symbols = (); + foreach (<DUMP_FILE>) { + next if (!(/^\S+ [A|B|C|D|G|I|N|R|S|T|U|V|W|-|\?|-] (\S+)/)); + $symbols{$1}++; + }; + &filter_symbols(\%symbols); +} + +# +# Filter symbols with filters from $flt_file +# +sub filter_symbols { + my $symbols = shift; + my $env_section = ''; + my @filters = (); + my @filtered_symbols = (); + while (<FLT_FILE>) { + s/\r//; + s/\n//; + $env_section = '1' and next if ((/^# SOLARIS #$/) && ($ENV{OS} eq 'SOLARIS')); + $env_section = '1' and next if ((/^# LINUX #$/) && ($ENV{OS} eq 'LINUX')); + $env_section = '1' and next if ((/^# FREEBSD #$/) && ($ENV{OS} eq 'FREEBSD')); + last if ($env_section && ((/^# SOLARIS #$/) || (/^# FREEBSD #$/) || (/^# LINUX #$/))); + next if (!$_ || /^#/); + push(@filters, $_); + }; + foreach my $symbol (keys %$symbols) { + my $export = '-'; + foreach my $filter_str (@filters) { + my $add = substr ($filter_str, 0, 1); + my $filter = substr($filter_str, 1); + if ($symbol =~ /$filter/) { + $export = $add; + }; + }; + if ($export eq '+') { + push(@filtered_symbols, $symbol); + }; + }; + &write_mapfile(\@filtered_symbols); +}; + +# +# Write a map file +# +sub write_mapfile { + my $symbols = shift; + print MAP_FILE $first_string . " {\n$tab" . "global:\n"; + foreach (@$symbols) { + print MAP_FILE "$tab$tab$_\;\n"; + }; + print MAP_FILE "$tab" . "local:\n$tab\*\;\n}\;"; +}; + +# +# Get all options passed +# +sub get_options { + +$dump_file = ''; +$flt_file = ''; +$map_file = ''; + my ($arg); + &usage() && exit(0) if ($#ARGV == -1); + while ($arg = shift @ARGV) { + $arg =~ /^-d$/ and $dump_file = shift @ARGV and next; + $arg =~ /^-f$/ and $flt_file = shift @ARGV and next; + $arg =~ /^-m$/ and $map_file = shift @ARGV and next; + $arg =~ /^-h$/ and &usage and exit(0); + $arg =~ /^--help$/ and &usage and exit(0); + $arg =~ /^-s$/ and $first_string = shift @ARGV and next; + }; + if (!$dump_file || + !$flt_file || + !$first_string || + !$map_file) { + &usage; + exit(1); + }; +}; + +sub print_error { + my $message = shift; + print STDERR "\nERROR: $message\n"; + exit(1) +}; + +sub usage { + print STDERR "\nmapgen:\n"; + print STDERR "Syntax: mapgen -d dump_file -s first_string -f filter_file -m map_file [-h|--help]\n"; +}; + |