1#!/usr/bin/perl
2#*
3#*******************************************************************************
4#*   Copyright (C) 2001-2012, International Business Machines
5#*   Corporation and others.  All Rights Reserved.
6#*******************************************************************************
7#*
8#*   file name:  genren.pl
9#*   encoding:   US-ASCII
10#*   tab size:   8 (not used)
11#*   indentation:4
12#*
13#*   Created by: Vladimir Weinstein
14#*   07/19/2001
15#*
16#*  Used to generate renaming headers.
17#*  Run on UNIX platforms (linux) in order to catch all the exports
18
19use POSIX qw(strftime);
20
21$headername = 'urename.h';
22
23$path = substr($0, 0, rindex($0, "/")+1)."../../common/unicode/uversion.h";
24
25$nmopts = '-Cg -f s';
26$post = '';
27
28$mode = 'POSIX';
29
30(-e $path) || die "Cannot find uversion.h";
31
32open(UVERSION, $path);
33
34while(<UVERSION>) {
35    if(/\#define U_ICU_VERSION_SUFFIX/) {
36        chop;
37        s/\#define U_ICU_VERSION_SUFFIX //;
38        $U_ICU_VERSION_SUFFIX = "$_";
39        last;
40    }
41}
42
43while($ARGV[0] =~ /^-/) { # detects whether there are any arguments
44    $_ = shift @ARGV;      # extracts the argument for processing
45    /^-v/ && ($VERBOSE++, next);                      # verbose
46    /^-h/ && (&printHelpMsgAndExit, next);               # help
47    /^-o/ && (($headername = shift (@ARGV)), next);   # output file
48    /^-n/ && (($nmopts = shift (@ARGV)), next);   # nm opts
49    /^-p/ && (($post = shift (@ARGV)), next);   # nm opts
50    /^-x/ && (($mode = shift (@ARGV)), next);   # nm opts
51    /^-S/ && (($U_ICU_VERSION_SUFFIX = shift(@ARGV)), next); # pick the suffix
52    warn("Invalid option $_\n");
53    &printHelpMsgAndExit;
54}
55
56unless(@ARGV > 0) {
57    warn "No libraries, exiting...\n";
58    &printHelpMsgAndExit;
59}
60
61#$headername = "uren".substr($ARGV[0], 6, index(".", $ARGV[0])-7).".h";
62
63$HEADERDEF = uc($headername);  # this is building the constant for #define
64$HEADERDEF =~ s/\./_/;
65
66
67    open HEADER, ">$headername"; # opening a header file
68
69#We will print our copyright here + warnings
70
71$YEAR = strftime "%Y",localtime;
72
73print HEADER <<"EndOfHeaderComment";
74/*
75*******************************************************************************
76*   Copyright (C) 2002-$YEAR, International Business Machines
77*   Corporation and others.  All Rights Reserved.
78*******************************************************************************
79*
80*   file name:  $headername
81*   encoding:   US-ASCII
82*   tab size:   8 (not used)
83*   indentation:4
84*
85*   Created by: Perl script tools/genren.pl written by Vladimir Weinstein
86*
87*  Contains data for renaming ICU exports.
88*  Gets included by umachine.h
89*
90*  THIS FILE IS MACHINE-GENERATED, DON'T PLAY WITH IT IF YOU DON'T KNOW WHAT
91*  YOU ARE DOING, OTHERWISE VERY BAD THINGS WILL HAPPEN!
92*/
93
94#ifndef $HEADERDEF
95#define $HEADERDEF
96
97/* U_DISABLE_RENAMING can be defined in the following ways:
98 *   - when running configure, e.g.
99 *        runConfigureICU Linux --disable-renaming
100 *   - by changing the default setting of U_DISABLE_RENAMING in uconfig.h
101 */
102
103#include "unicode/uconfig.h"
104
105#if !U_DISABLE_RENAMING
106
107/* We need the U_ICU_ENTRY_POINT_RENAME definition. There's a default one in unicode/uvernum.h we can use, but we will give
108   the platform a chance to define it first.
109   Normally (if utypes.h or umachine.h was included first) this will not be necessary as it will already be defined.
110 */
111
112#ifndef U_ICU_ENTRY_POINT_RENAME
113#include "unicode/umachine.h"
114#endif
115
116/* If we still don't have U_ICU_ENTRY_POINT_RENAME use the default. */
117#ifndef U_ICU_ENTRY_POINT_RENAME
118#include "unicode/uvernum.h"
119#endif
120
121/* Error out before the following defines cause very strange and unexpected code breakage */
122#ifndef U_ICU_ENTRY_POINT_RENAME
123#error U_ICU_ENTRY_POINT_RENAME is not defined - cannot continue. Consider defining U_DISABLE_RENAMING if renaming should not be used.
124#endif
125
126EndOfHeaderComment
127
128$fileCount = 0;
129$itemCount = 0;
130$symbolCount = 0;
131
132for(;@ARGV; shift(@ARGV)) {
133    $fileCount++;
134    @NMRESULT = `nm $nmopts $ARGV[0] $post`;
135    if($?) {
136        warn "Couldn't do 'nm' for $ARGV[0], continuing...\n";
137        next; # Couldn't do nm for the file
138    }
139    if($mode =~ /POSIX/) {
140        splice @NMRESULT, 0, 6;
141    } elsif ($mode =~ /Mach-O/) {
142#        splice @NMRESULT, 0, 10;
143    }
144    foreach (@NMRESULT) { # Process every line of result and stuff it in $_
145        $itemCount++;
146        if($mode =~ /POSIX/) {
147            &verbose("  $_");
148            ($_, $address, $type) = split(/\|/);
149            chop $qtype;
150        } elsif ($mode =~ /Mach-O/) {
151            ($address, $type, $_) = split(/ /);
152            if(/^_(.*)$/) {
153                $_ = $1;
154            } else {
155                next;
156            }
157        } else {
158            die "Unknown mode $mode";
159        }
160        &verbose( "type: \"$type\" ");
161        if(!($type =~ /[UAwW?]/)) {
162            if(/@@/) { # These would be imports
163                &verbose( "Import: $_ \"$type\"\n");
164                &verbose( "C++ method: $_\n");
165            } elsif (/^[^\(]*::/) { # C++ methods, stuff class name in associative array
166	        ##  DON'T match    ...  (   foo::bar ...   want :: to be to the left of paren
167                ## icu::CharString::~CharString(void) -> CharString
168                @CppName = split(/::/); ## remove scope stuff
169
170                if(@CppName>1) {
171                    ## MessageFormat virtual table -> MessageFormat
172                    if(! ($CppName[0] =~ /icu/ )) {
173                        # *** WARNING Bad namespace (not 'icu') on ShoeSize::ShoeSize()
174                        warn "*** WARNING Bad namespace (not 'icu') on $_\n";
175                        next;
176                    }
177                    &verbose ( "(Chopping scope $CppName[0] )");
178                    @CppName = split(/ /, $CppName[1]); ## remove debug stuff
179                }
180                ## ures_getUnicodeStringByIndex(UResourceBundle -> ures_getUnicodeStringByIndex
181                @CppName = split(/\(/, $CppName[0]); ## remove function args
182                if($CppName[0] =~ /^operator/) {
183                    &verbose ("Skipping C++ function: $_\n");
184                } elsif($CppName[0] =~ /^~/) {
185                    &verbose ("Skipping C++ destructor: $_\n");
186                } else {
187                    &verbose( "Skipping C++ class: '$CppName[0]': $_ \n");
188                    # $CppClasses{$CppName[0]}++;
189                    # $symbolCount++;
190                }
191	    } elsif ( my ($cfn) = m/^([A-Za-z0-9_]*)\(.*/ ) {
192		&verbose ( "$ARGV[0]:  got global C++ function  $cfn with '$_'\n" );
193                $CFuncs{$cfn}++;
194		$symbolCount++;
195            } elsif ( /\(/) { # These are strange functions
196                print STDERR "$ARGV[0]: Not sure what to do with '$_'\n";
197	    } elsif ( /^_init/ ) {
198		&verbose( "$ARGV[0]: Skipped initializer $_\n" );
199	    } elsif ( /^_fini/ ) {
200		&verbose( "$ARGV[0]: Skipped finilizer $_\n" );
201            } elsif ( /icu_/) {
202                print STDERR "$ARGV[0]: Skipped strange mangled function $_\n";
203            } elsif ( /^vtable for /) {
204                print STDERR "$ARGV[0]: Skipped vtable $_\n";
205            } elsif ( /^typeinfo/) {
206                print STDERR "$ARGV[0]: Skipped typeinfo $_\n";
207            } elsif ( /operator\+/ ) {
208                print STDERR "$ARGV[0]: Skipped ignored function $_\n";
209            } else { # This is regular C function
210                &verbose( "C func: $_\n");
211                @funcname = split(/[\(\s+]/);
212                $CFuncs{$funcname[0]}++;
213		$symbolCount++;
214            }
215        } else {
216            &verbose( "Skipped: $_ $1\n");
217        }
218    }
219}
220
221if( $fileCount == 0 ) {
222  die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
223}
224
225if( $symbolCount == 0 ) {
226  die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
227}
228
229print " Loaded $symbolCount symbols from $itemCount lines in $fileCount files.\n";
230
231print HEADER "\n/* C exports renaming data */\n\n";
232foreach(sort keys(%CFuncs)) {
233    print HEADER "#define $_ U_ICU_ENTRY_POINT_RENAME($_)\n";
234#    print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
235}
236
237print HEADER "\n#endif\n";
238print HEADER "\n#endif\n";
239
240close HEADER;
241
242sub verbose {
243    if($VERBOSE) {
244        print STDERR @_;
245    }
246}
247
248
249sub printHelpMsgAndExit {
250    print STDERR <<"EndHelpText";
251Usage: $0 [OPTIONS] LIBRARY_FILES
252  Options:
253    -v - verbose
254    -h - help
255    -o - output file name (defaults to 'urename.h'
256    -S - suffix (defaults to _MAJOR_MINOR of current ICU version)
257Will produce a renaming .h file
258
259EndHelpText
260
261    exit 0;
262
263}
264