264 lines
8.4 KiB
Perl
Executable File
264 lines
8.4 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
#*
|
|
#*******************************************************************************
|
|
#* Copyright (C) 2001-2012, 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
|
|
|
|
use POSIX qw(strftime);
|
|
|
|
$headername = 'urename.h';
|
|
|
|
$path = substr($0, 0, rindex($0, "/")+1)."../../common/unicode/uversion.h";
|
|
|
|
$nmopts = '-Cg -f s';
|
|
$post = '';
|
|
|
|
$mode = 'POSIX';
|
|
|
|
(-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
|
|
/^-n/ && (($nmopts = shift (@ARGV)), next); # nm opts
|
|
/^-p/ && (($post = shift (@ARGV)), next); # nm opts
|
|
/^-x/ && (($mode = shift (@ARGV)), next); # nm opts
|
|
/^-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
|
|
|
|
$YEAR = strftime "%Y",localtime;
|
|
|
|
print HEADER <<"EndOfHeaderComment";
|
|
/*
|
|
*******************************************************************************
|
|
* Copyright (C) 2002-$YEAR, 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 tools/genren.pl 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
|
|
|
|
/* U_DISABLE_RENAMING can be defined in the following ways:
|
|
* - when running configure, e.g.
|
|
* runConfigureICU Linux --disable-renaming
|
|
* - by changing the default setting of U_DISABLE_RENAMING in uconfig.h
|
|
*/
|
|
|
|
#include "unicode/uconfig.h"
|
|
|
|
#if !U_DISABLE_RENAMING
|
|
|
|
/* 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
|
|
the platform a chance to define it first.
|
|
Normally (if utypes.h or umachine.h was included first) this will not be necessary as it will already be defined.
|
|
*/
|
|
|
|
#ifndef U_ICU_ENTRY_POINT_RENAME
|
|
#include "unicode/umachine.h"
|
|
#endif
|
|
|
|
/* If we still don't have U_ICU_ENTRY_POINT_RENAME use the default. */
|
|
#ifndef U_ICU_ENTRY_POINT_RENAME
|
|
#include "unicode/uvernum.h"
|
|
#endif
|
|
|
|
/* Error out before the following defines cause very strange and unexpected code breakage */
|
|
#ifndef U_ICU_ENTRY_POINT_RENAME
|
|
#error U_ICU_ENTRY_POINT_RENAME is not defined - cannot continue. Consider defining U_DISABLE_RENAMING if renaming should not be used.
|
|
#endif
|
|
|
|
EndOfHeaderComment
|
|
|
|
$fileCount = 0;
|
|
$itemCount = 0;
|
|
$symbolCount = 0;
|
|
|
|
for(;@ARGV; shift(@ARGV)) {
|
|
$fileCount++;
|
|
@NMRESULT = `nm $nmopts $ARGV[0] $post`;
|
|
if($?) {
|
|
warn "Couldn't do 'nm' for $ARGV[0], continuing...\n";
|
|
next; # Couldn't do nm for the file
|
|
}
|
|
if($mode =~ /POSIX/) {
|
|
splice @NMRESULT, 0, 6;
|
|
} elsif ($mode =~ /Mach-O/) {
|
|
# splice @NMRESULT, 0, 10;
|
|
}
|
|
foreach (@NMRESULT) { # Process every line of result and stuff it in $_
|
|
$itemCount++;
|
|
if($mode =~ /POSIX/) {
|
|
&verbose(" $_");
|
|
($_, $address, $type) = split(/\|/);
|
|
chop $qtype;
|
|
} elsif ($mode =~ /Mach-O/) {
|
|
($address, $type, $_) = split(/ /);
|
|
if(/^_(.*)$/) {
|
|
$_ = $1;
|
|
} else {
|
|
next;
|
|
}
|
|
} else {
|
|
die "Unknown mode $mode";
|
|
}
|
|
&verbose( "type: \"$type\" ");
|
|
if(!($type =~ /[UAwW?]/)) {
|
|
if(/@@/) { # These would be imports
|
|
&verbose( "Import: $_ \"$type\"\n");
|
|
&verbose( "C++ method: $_\n");
|
|
} elsif (/^[^\(]*::/) { # C++ methods, stuff class name in associative array
|
|
## DON'T match ... ( foo::bar ... want :: to be to the left of paren
|
|
## icu::CharString::~CharString(void) -> CharString
|
|
@CppName = split(/::/); ## remove scope stuff
|
|
|
|
if(@CppName>1) {
|
|
## MessageFormat virtual table -> MessageFormat
|
|
if(! ($CppName[0] =~ /icu/ )) {
|
|
# *** WARNING Bad namespace (not 'icu') on ShoeSize::ShoeSize()
|
|
warn "*** WARNING Bad namespace (not 'icu') on $_\n";
|
|
next;
|
|
}
|
|
&verbose ( "(Chopping scope $CppName[0] )");
|
|
@CppName = split(/ /, $CppName[1]); ## remove debug stuff
|
|
}
|
|
## ures_getUnicodeStringByIndex(UResourceBundle -> ures_getUnicodeStringByIndex
|
|
@CppName = split(/\(/, $CppName[0]); ## remove function args
|
|
if($CppName[0] =~ /^operator/) {
|
|
&verbose ("Skipping C++ function: $_\n");
|
|
} elsif($CppName[0] =~ /^~/) {
|
|
&verbose ("Skipping C++ destructor: $_\n");
|
|
} else {
|
|
&verbose( "Skipping C++ class: '$CppName[0]': $_ \n");
|
|
# $CppClasses{$CppName[0]}++;
|
|
# $symbolCount++;
|
|
}
|
|
} elsif ( my ($cfn) = m/^([A-Za-z0-9_]*)\(.*/ ) {
|
|
&verbose ( "$ARGV[0]: got global C++ function $cfn with '$_'\n" );
|
|
$CFuncs{$cfn}++;
|
|
$symbolCount++;
|
|
} elsif ( /\(/) { # These are strange functions
|
|
print STDERR "$ARGV[0]: Not sure what to do with '$_'\n";
|
|
} elsif ( /^_init/ ) {
|
|
&verbose( "$ARGV[0]: Skipped initializer $_\n" );
|
|
} elsif ( /^_fini/ ) {
|
|
&verbose( "$ARGV[0]: Skipped finilizer $_\n" );
|
|
} elsif ( /icu_/) {
|
|
print STDERR "$ARGV[0]: Skipped strange mangled function $_\n";
|
|
} elsif ( /^vtable for /) {
|
|
print STDERR "$ARGV[0]: Skipped vtable $_\n";
|
|
} elsif ( /^typeinfo/) {
|
|
print STDERR "$ARGV[0]: Skipped typeinfo $_\n";
|
|
} elsif ( /operator\+/ ) {
|
|
print STDERR "$ARGV[0]: Skipped ignored function $_\n";
|
|
} else { # This is regular C function
|
|
&verbose( "C func: $_\n");
|
|
@funcname = split(/[\(\s+]/);
|
|
$CFuncs{$funcname[0]}++;
|
|
$symbolCount++;
|
|
}
|
|
} else {
|
|
&verbose( "Skipped: $_ $1\n");
|
|
}
|
|
}
|
|
}
|
|
|
|
if( $fileCount == 0 ) {
|
|
die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
|
|
}
|
|
|
|
if( $symbolCount == 0 ) {
|
|
die "Error: $itemCount lines from $fileCount files processed, but $symbolCount symbols were found.\n";
|
|
}
|
|
|
|
print " Loaded $symbolCount symbols from $itemCount lines in $fileCount files.\n";
|
|
|
|
print HEADER "\n/* C exports renaming data */\n\n";
|
|
foreach(sort keys(%CFuncs)) {
|
|
print HEADER "#define $_ U_ICU_ENTRY_POINT_RENAME($_)\n";
|
|
# print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\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;
|
|
|
|
}
|