solenv/bin/mapgen.pl

   1 :
   2 eval 'exec perl -wS $0 ${1+"$@"}'
   3     if 0;
   4 #*************************************************************************
   5 #
   6 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7 #
   8 # Copyright 2008 by Sun Microsystems, Inc.
   9 #
  10 # OpenOffice.org - a multi-platform office productivity suite
  11 #
  12 # $RCSfile: mapgen.pl,v $
  13 #
  14 # $Revision: 1.6 $
  15 #
  16 # This file is part of OpenOffice.org.
  17 #
  18 # OpenOffice.org is free software: you can redistribute it and/or modify
  19 # it under the terms of the GNU Lesser General Public License version 3
  20 # only, as published by the Free Software Foundation.
  21 #
  22 # OpenOffice.org is distributed in the hope that it will be useful,
  23 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  24 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  25 # GNU Lesser General Public License version 3 for more details
  26 # (a copy is included in the LICENSE file that accompanied this code).
  27 #
  28 # You should have received a copy of the GNU Lesser General Public License
  29 # version 3 along with OpenOffice.org.  If not, see
  30 # <http://www.openoffice.org/license.html>
  31 # for a copy of the LGPLv3 License.
  32 #
  33 #*************************************************************************
  34
  35 #
  36 # mapgen  - generate a map file for Unix libraries
  37 #
  38
  39 #use File::Path;
  40 #use File::Copy;
  41
  42 #### script id #####
  43
  44 ( $script_name = $0 ) =~ s/^.*\b(\w+)\.pl$/$1/;
  45
  46 $id_str = ' $Revision: 1.6 $ ';
  47 $id_str =~ /Revision:\s+(\S+)\s+\$/
  48   ? ($script_rev = $1) : ($script_rev = "-");
  49
  50 print "$script_name -- version: $script_rev\n";
  51 print "Multi Platform Enabled Edition\n";
  52
  53 #########################
  54 #                       #
  55 #   Globale Variablen   #
  56 #                       #
  57 #########################
  58
  59 $dump_file = '';
  60 $flt_file = '';
  61 $map_file = '';
  62 $first_string = '';
  63 $tab = '    ';
  64
  65 #### main ####
  66
  67 &get_options;
  68 if (!(open (DUMP_FILE, $dump_file))) {
  69     &print_error("Unable open $dump_file");
  70 };
  71 if (!(open (FLT_FILE, $flt_file))) {
  72     close DUMP_FILE;
  73     &print_error("Unable open $flt_file");
  74 };
  75 unlink $map_file;
  76 if (!(open (MAP_FILE, ">>$map_file"))) {
  77     close DUMP_FILE;
  78     close FLT_FILE;
  79     &print_error("Unable open $map_file");
  80 };
  81
  82 if ($ENV{OS} eq 'SOLARIS') {
  83     &gen_sol;
  84 } elsif ($ENV{OS} eq 'LINUX') {
  85     &gen_lnx;
  86 } else {
  87     &print_error ('Environment not set!!');
  88 };
  89
  90 close DUMP_FILE;
  91 close FLT_FILE;
  92 close MAP_FILE;
  93
  94 #### end of main procedure ####
  95
  96 #########################
  97 #                       #
  98 #      Procedures       #
  99 #                       #
 100 #########################
 101
 102 #
 103 # Generate a map file for solaris
 104 #
 105 sub gen_sol {
 106     my %symbols = ();
 107     foreach (<DUMP_FILE>) {
 108         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*/));
 109         next if (($7 =~ /UNDEF/) || ($7 =~ /ABS/));
 110         next if ($5 eq 'LOCL');
 111         $symbols{$8}++;
 112     };
 113     &filter_symbols(\%symbols);
 114 };
 115
 116 #
 117 # Generate a map file for linux
 118 #
 119 sub gen_lnx {
 120     my %symbols = ();
 121     foreach (<DUMP_FILE>) {
 122         next if (!(/^\S+ [A|B|C|D|G|I|N|R|S|T|U|V|W|-|\?|-] (\S+)/));
 123         $symbols{$1}++;
 124     };
 125     &filter_symbols(\%symbols);
 126 }
 127
 128 #
 129 # Filter symbols with filters from $flt_file
 130 #
 131 sub filter_symbols {
 132     my $symbols = shift;
 133     my $env_section = '';
 134     my @filters = ();
 135     my @filtered_symbols = ();
 136     while (<FLT_FILE>) {
 137         s/\r//;
 138         s/\n//;
 139         $env_section = '1' and next if ((/^# SOLARIS #$/) && ($ENV{OS} eq 'SOLARIS'));
 140         $env_section = '1' and next if ((/^# LINUX #$/) && ($ENV{OS} eq 'LINUX'));
 141         $env_section = '1' and next if ((/^# FREEBSD #$/) && ($ENV{OS} eq 'FREEBSD'));
 142         last if ($env_section && ((/^# SOLARIS #$/) || (/^# FREEBSD #$/) || (/^# LINUX #$/)));
 143         next if (!$_ || /^#/);
 144         push(@filters, $_);
 145     };
 146     foreach my $symbol (keys %$symbols) {
 147         my $export = '-';
 148         foreach my $filter_str (@filters) {
 149             my $add = substr ($filter_str, 0, 1);
 150             my $filter = substr($filter_str, 1);
 151             if ($symbol =~ /$filter/) {
 152                 $export = $add;
 153             };
 154         };
 155         if ($export eq '+') {
 156             push(@filtered_symbols, $symbol);
 157         };
 158     };
 159     &write_mapfile(\@filtered_symbols);
 160 };
 161
 162 #
 163 # Write a map file
 164 #
 165 sub write_mapfile {
 166     my $symbols = shift;
 167     print MAP_FILE $first_string . " {\n$tab" . "global:\n";
 168     foreach (@$symbols) {
 169         print MAP_FILE "$tab$tab$_\;\n";
 170     };
 171     print MAP_FILE "$tab" . "local:\n$tab\*\;\n}\;";
 172 };
 173
 174 #
 175 # Get all options passed
 176 #
 177 sub get_options {
 178
 179 $dump_file = '';
 180 $flt_file = '';
 181 $map_file = '';
 182     my ($arg);
 183     &usage() && exit(0) if ($#ARGV == -1);
 184     while ($arg = shift @ARGV) {
 185         $arg =~ /^-d$/                  and $dump_file = shift @ARGV    and next;
 186         $arg =~ /^-f$/                  and $flt_file = shift @ARGV             and next;
 187         $arg =~ /^-m$/                  and $map_file = shift @ARGV             and next;
 188         $arg =~ /^-h$/                  and &usage                                              and exit(0);
 189         $arg =~ /^--help$/              and &usage                                              and exit(0);
 190         $arg =~ /^-s$/                  and $first_string = shift @ARGV and next;
 191     };
 192     if (!$dump_file ||
 193         !$flt_file  ||
 194         !$first_string  ||
 195         !$map_file) {
 196         &usage;
 197         exit(1);
 198     };
 199 };
 200
 201 sub print_error {
 202     my $message = shift;
 203     print STDERR "\nERROR: $message\n";
 204     exit(1)
 205 };
 206
 207 sub usage {
 208     print STDERR "\nmapgen:\n";
 209     print STDERR "Syntax:    mapgen -d dump_file -s first_string -f filter_file -m map_file [-h|--help]\n";
 210 };
 211