1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
|
#!/usr/bin/perl
#*
#*******************************************************************************
#* Copyright (C) 2001, International Business Machines
#* Corporation and others. All Rights Reserved.
#*******************************************************************************
#*
#* file name: genren.pl
#* encoding: US-ASCII
#* tab size: 8 (not used)
#* indentation:4
#*
#* Created by: Vladimir Weinstein
#* 07/19/2001
#*
#* Used to generate renaming headers.
#* Run on UNIX platforms (linux) in order to catch all the exports
$headername = 'urename.h';
$path = substr($0, 0, rindex($0, "/")+1)."../../common/unicode/uversion.h";
(-e $path) || die "Cannot find uversion.h";
open(UVERSION, $path);
while(<UVERSION>) {
if(/\#define U_ICU_VERSION_SUFFIX/) {
chop;
s/\#define U_ICU_VERSION_SUFFIX //;
$U_ICU_VERSION_SUFFIX = "$_";
last;
}
}
while($ARGV[0] =~ /^-/) { # detects whether there are any arguments
$_ = shift @ARGV; # extracts the argument for processing
/^-v/ && ($VERBOSE++, next); # verbose
/^-h/ && (&printHelpMsgAndExit, next); # help
/^-o/ && (($headername = shift (@ARGV)), next); # output file
/^-S/ && (($U_ICU_VERSION_SUFFIX = shift(@ARGV)), next); # pick the suffix
warn("Invalid option $_\n");
&printHelpMsgAndExit;
}
unless(@ARGV > 0) {
warn "No libraries, exiting...\n";
&printHelpMsgAndExit;
}
#$headername = "uren".substr($ARGV[0], 6, index(".", $ARGV[0])-7).".h";
$HEADERDEF = uc($headername); # this is building the constant for #define
$HEADERDEF =~ s/\./_/;
open HEADER, ">$headername"; # opening a header file
#We will print our copyright here + warnings
print HEADER <<"EndOfHeaderComment";
/*
*******************************************************************************
* Copyright (C) 2002, International Business Machines
* Corporation and others. All Rights Reserved.
*******************************************************************************
*
* file name: $headername
* encoding: US-ASCII
* tab size: 8 (not used)
* indentation:4
*
* Created by: Perl script written by Vladimir Weinstein
*
* Contains data for renaming ICU exports.
* Gets included by umachine.h
*
* THIS FILE IS MACHINE-GENERATED, DON'T PLAY WITH IT IF YOU DON'T KNOW WHAT
* YOU ARE DOING, OTHERWISE VERY BAD THINGS WILL HAPPEN!
*/
#ifndef $HEADERDEF
#define $HEADERDEF
/* Uncomment the following line to disable renaming on platforms
that do not use Autoconf. */
/* #define U_DISABLE_RENAMING 1 */
#if !U_DISABLE_RENAMING
EndOfHeaderComment
for(;@ARGV; shift(@ARGV)) {
@NMRESULT = `nm -Cg -f s $ARGV[0]`;
if($?) {
warn "Couldn't do 'nm' for $ARGV[0], continuing...\n";
next; # Couldn't do nm for the file
}
splice @NMRESULT, 0, 6;
foreach (@NMRESULT) { # Process every line of result and stuff it in $_
($_, $address, $type) = split(/\|/);
&verbose( "type: \"$type\" ");
if(!($type =~ /[UAwW?]/)) {
if(/@@/) { # These would be imports
&verbose( "Import: $_ \"$type\"\n");
} elsif (/::/) { # C++ methods, stuff class name in associative array
&verbose( "C++ method: $_\n");
## icu_2_0::CharString::~CharString(void) -> CharString
@CppName = split(/::/); ## remove scope stuff
if(@CppName>1) {
## MessageFormat virtual table -> MessageFormat
@CppName = split(/ /, $CppName[1]); ## remove debug stuff
}
## ures_getUnicodeStringByIndex(UResourceBundle -> ures_getUnicodeStringByIndex
@CppName = split(/\(/, $CppName[0]); ## remove function args
$CppClasses{$CppName[0]}++;
} elsif ( /\(/) { # These are strange functions
print STDERR "$_\n";
} elsif ( /icu_/) {
print STDERR "Skipped strange mangled function $_\n";
} else { # This is regular C function
&verbose( "C func: $_\n");
@funcname = split(/[\(\s+]/);
$CFuncs{$funcname[0]}++;
}
} else {
&verbose( "Skipped: $_ $1\n");
}
}
}
print HEADER "\n/* C exports renaming data */\n\n";
foreach(sort keys(%CFuncs)) {
print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
}
print HEADER "/* C++ class names renaming defines */\n\n";
print HEADER "#ifdef XP_CPLUSPLUS\n";
print HEADER "#if !U_HAVE_NAMESPACE\n\n";
foreach(sort keys(%CppClasses)) {
print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
}
print HEADER "\n#endif\n";
print HEADER "#endif\n";
print HEADER "\n#endif\n";
print HEADER "\n#endif\n";
close HEADER;
sub verbose {
if($VERBOSE) {
print STDERR @_;
}
}
sub printHelpMsgAndExit {
print STDERR <<"EndHelpText";
Usage: $0 [OPTIONS] LIBRARY_FILES
Options:
-v - verbose
-h - help
-o - output file name (defaults to 'urename.h'
-S - suffix (defaults to _MAJOR_MINOR of current ICU version)
Will produce a renaming .h file
EndHelpText
exit 0;
}
|
