The Tor Browser: intl/icu/source/tools/genren/genren.pl@6474c204b198 (annotated)

intl/icu/source/tools/genren/genren.pl@6474c204b198 (annotated)

intl/icu/source/tools/genren/genren.pl

Wed, 31 Dec 2014 06:09:35 +0100

author: Michael Schloh von Bennewitz <michael@schloh.com>
date: Wed, 31 Dec 2014 06:09:35 +0100
changeset 0: 6474c204b198
permissions: -rwxr-xr-x

Cloned upstream origin tor-browser at tor-browser-31.3.0esr-4.5-1-build1
revision ID fc1c9ff7c1b2defdbc039f12214767608f46423f for hacking purpose.

 #!/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;
 }

The Tor Browser / annotate

intl/icu/source/tools/genren/genren.pl@6474c204b198 (annotated)

intl/icu/source/tools/genren/genren.pl