139 lines
3.6 KiB
Perl
Executable File
139 lines
3.6 KiB
Perl
Executable File
#!/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';
|
|
$U_ICU_VERSION_SUFFIX = "_1_8";
|
|
|
|
|
|
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) 2001, 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 in the $ARGV[0] library
|
|
* Gets included by utypes.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
|
|
|
|
EndOfHeaderComment
|
|
|
|
for(;@ARGV; shift(@ARGV)) {
|
|
@NMRESULT = `nm -Cg -f p $ARGV[0]`;
|
|
if($?) {
|
|
warn "Couldn't do 'nm' for $ARGV[0], continuing...\n";
|
|
next; # Couldn't do nm for the file
|
|
}
|
|
|
|
foreach (@NMRESULT) { # Process every line of result and stuff it in $_
|
|
if(/@@/ or /\./ or /\(/ ) { # These would be imports
|
|
&verbose( "Import: $_");
|
|
} elsif (/::/) { # C++ methods, stuff class name in associative array
|
|
&verbose( "C++ method: $_");
|
|
@CppName = split(/::/);
|
|
$CppClasses{$CppName[0]}++;
|
|
} else { # This is regular C function
|
|
&verbose( "C func: $_");
|
|
@funcname = split(/\s+/);
|
|
$CFuncs{$funcname[0]}++;
|
|
}
|
|
}
|
|
}
|
|
|
|
print HEADER "\n/* C exports renaming data */\n";
|
|
foreach(sort keys(%CFuncs)) {
|
|
print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
|
|
}
|
|
|
|
print HEADER "\n/* C++ class names renaming defines */\n";
|
|
foreach(sort keys(%CppClasses)) {
|
|
print HEADER "#define $_ $_$U_ICU_VERSION_SUFFIX\n";
|
|
}
|
|
|
|
print HEADER "#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;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|