1#!/usr/bin/perl
2#*
3#*******************************************************************************
4#*   Copyright (C) 2001-2010, 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 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/* Uncomment the following line to disable renaming on platforms
98   that do not use Autoconf. */
99/* #define U_DISABLE_RENAMING 1 */
100
101#if !U_DISABLE_RENAMING
102
103/* 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
104   the platform a chance to define it first.
105   Normally (if utypes.h or umachine.h was included first) this will not be necessary as it will already be defined.
106 */
107#ifndef U_ICU_ENTRY_POINT_RENAME
108#include "unicode/umachine.h"
109#endif
110
111/* If we still don't have U_ICU_ENTRY_POINT_RENAME use the default. */
112#ifndef U_ICU_ENTRY_POINT_RENAME
113#include "unicode/uvernum.h"
114#endif
115
116/* Error out before the following defines cause very strange and unexpected code breakage */
117#ifndef U_ICU_ENTRY_POINT_RENAME
118#error U_ICU_ENTRY_POINT_RENAME is not defined - cannot continue. Consider defining U_DISABLE_RENAMING if renaming should not be used.
119#endif
120
121EndOfHeaderComment
122
123$fileCount = 0;
124$itemCount = 0;
125$symbolCount = 0;
126
127for(;@ARGV; shift(@ARGV)) {
128    $fileCount++;
129    @NMRESULT = `nm $nmopts $ARGV[0] $post`;
130    if($?) {
131        warn "Couldn't do 'nm' for $ARGV[0], continuing...\n";
132        next; # Couldn't do nm for the file
133    }
134    if($mode =~ /POSIX/) {
135        splice @NMRESULT, 0, 6;
136    } elsif ($mode =~ /Mach-O/) {
137#        splice @NMRESULT, 0, 10;
138    }
139    foreach (@NMRESULT) { # Process every line of result and stuff it in $_
140        $itemCount++;
141        if($mode =~ /POSIX/) {
142            ($_, $address, $type) = split(/\|/);
143        } elsif ($mode =~ /Mach-O/) {
144            if(/^(?:[0-9a-fA-F]){8} ([A-Z]) (?:_)?(.*)$/) {
145                ($_, $type) = ($2, $1);
146            } else {
147                next;
148            }
149        } else {
150            die "Unknown mode $mode";
151        }
152        &verbose( "type: \"$type\" ");
153        if(!($type =~ /[UAwW?]/)) {
154            if(/@@/) { # These would be imports
155                &verbose( "Import: $_ \"$type\"\n");
156                &verbose( "C++ method: $_\n");
157            } elsif (/^[^\(]*::/) { # C++ methods, stuff class name in associative array
158	        ##  DON'T match    ...  (   foo::bar ...   want :: to be to the left of paren
159                ## icu_2_0::CharString::~CharString(void) -> CharString
160                @CppName = split(/::/); ## remove scope stuff
161                if(@CppName>1) {
162                    ## MessageFormat virtual table -> MessageFormat
163                    @CppName = split(/ /, $CppName[1]); ## remove debug stuff
164                }
165                ## ures_getUnicodeStringByIndex(UResourceBundle -> ures_getUnicodeStringByIndex
166                @CppName = split(/\(/, $CppName[0]); ## remove function args
167                if($CppName[0] =~ /^operator/) {
168                    &verbose ("Skipping C++ function: $_\n");
169                } elsif($CppName[0] =~ /^~/) {
170                    &verbose ("Skipping C++ destructor: $_\n");
171                } else {
172		    &verbose( " Class: '$CppName[0]': $_ \n");
173                    $CppClasses{$CppName[0]}++;
174		    $symbolCount++;
175                }
176	    } elsif ( my ($cfn) = m/^([A-Za-z0-9_]*)\(.*/ ) {
177		&verbose ( "$ARGV[0]:  got global C++ function  $cfn with '$_'\n" );
178                $CFuncs{$cfn}++;
179		$symbolCount++;
180            } elsif ( /\(/) { # These are strange functions
181                print STDERR "$ARGV[0]: Not sure what to do with '$_'\n";
182	    } elsif ( /^_init/ ) {
183		&verbose( "$ARGV[0]: Skipped initializer $_\n" );
184	    } elsif ( /^_fini/ ) {
185		&verbose( "$ARGV[0]: Skipped finilizer $_\n" );
186            } elsif ( /icu_/) {
187                print STDERR "$ARGV[0]: Skipped strange mangled function $_\n";
188            } elsif ( /^vtable for /) {
189                print STDERR "$ARGV[0]: Skipped vtable $_\n";
190            } elsif ( /^typeinfo for /) {
191                print STDERR "$ARGV[0]: Skipped typeinfo $_\n";
192            } elsif ( /operator\+/ ) {
193                print STDERR "$ARGV[0]: Skipped ignored function $_\n";
194            } else { # This is regular C function
195                &verbose( "C func: $_\n");
196                @funcname = split(/[\(\s+]/);
197                $CFuncs{$funcname[0]}++;
198		$symbolCount++;
199            }
200        } else {
201            &verbose( "Skipped: $_ $1\n");
202        }
203    }
204}
205
206if( $fileCount == 0 ) {
207  die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
208}
209
210if( $symbolCount == 0 ) {
211  die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
212}
213
214print " Loaded $symbolCount symbols from $itemCount lines in $fileCount files.\n";
215
216print HEADER "\n/* C exports renaming data */\n\n";
217foreach(sort keys(%CFuncs)) {
218    print HEADER "#define $_ U_ICU_ENTRY_POINT_RENAME($_)\n";
219#    print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
220}
221
222print HEADER "\n\n";
223print HEADER "/* C++ class names renaming defines */\n\n";
224print HEADER "#ifdef XP_CPLUSPLUS\n";
225print HEADER "#if !U_HAVE_NAMESPACE\n\n";
226foreach(sort keys(%CppClasses)) {
227    print HEADER "#define $_ U_ICU_ENTRY_POINT_RENAME($_)\n";
228}
229print HEADER "\n#endif\n";
230print HEADER "#endif\n";
231print HEADER "\n#endif\n";
232print HEADER "\n#endif\n";
233
234close HEADER;
235
236sub verbose {
237    if($VERBOSE) {
238        print STDERR @_;
239    }
240}
241
242
243sub printHelpMsgAndExit {
244    print STDERR <<"EndHelpText";
245Usage: $0 [OPTIONS] LIBRARY_FILES
246  Options:
247    -v - verbose
248    -h - help
249    -o - output file name (defaults to 'urename.h'
250    -S - suffix (defaults to _MAJOR_MINOR of current ICU version)
251Will produce a renaming .h file
252
253EndHelpText
254
255    exit 0;
256
257}
258
259