This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Nice porting script from Sarathy. Well, less nice
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Mar 2002 17:50:21 +0000 (17:50 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Mar 2002 17:50:21 +0000 (17:50 +0000)
in the sense that it shows the looong road ahead.

p4raw-id: //depot/perl@15111

MANIFEST
Porting/findrfuncs [new file with mode: 0644]
Porting/makerel

index 1a7e8f5..1afa04f 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -2056,6 +2056,7 @@ Porting/config.sh Sample config.sh
 Porting/config_H       Sample config.h
 Porting/Contract       Social contract for contributed modules in Perl core
 Porting/findvars       Find occurrences of words
+Porting/findrfuncs     Find reentrant variants of functions used in an executable
 Porting/fixCORE                Find and fix modules that generate warnings
 Porting/fixvars                Find undeclared variables with C compiler and fix em
 Porting/genlog         Generate formatted changelogs by querying p4d
diff --git a/Porting/findrfuncs b/Porting/findrfuncs
new file mode 100644 (file)
index 0000000..0e1d3d0
--- /dev/null
@@ -0,0 +1,81 @@
+#!/usr/bin/perl -w
+
+#
+# findrfuncs: find reentrant variants of functions used in an executable.
+# Requires a functional "nm -u".  Searches headers in /usr/include
+# to find available *_r functions and looks for non-reentrant
+# variants used in the supplied executable.
+#
+# Gurusamy Sarathy
+# gsar@ActiveState.com
+#
+# Hacked to automatically find the executable and shared objects.
+# --jhi
+
+use strict;
+use File::Find;
+
+my @EXES;
+my $NMU = 'nm -u';
+my @INCDIRS = qw(/usr/include);
+my $SO = 'so';
+my $EXE = '';
+
+if (open(CONFIG, "config.sh")) {
+    local $/;
+    my $CONFIG = <CONFIG>;
+    $SO  = $1 if $CONFIG =~ /^so='(\w+)'/m;
+    $EXE = $1 if $CONFIG =~ /^_exe='\.(\w+)'/m;
+}
+
+push @EXES, "perl$EXE";
+
+find(sub {push @EXES, $File::Find::name if /.$SO$/}, '.' );
+
+push @EXES, @ARGV;
+
+if ($^O eq 'dec_osf') {
+    $NMU = 'nm -Bu';
+}
+
+my %rfuncs;
+my @syms;
+find(sub {
+       return unless -f $File::Find::name;
+       open my $F, "<$File::Find::name"
+           or die "Can't open $File::Find::name: $!";
+       my $line;
+       while (defined ($line = <$F>)) {
+           if ($line =~ /\b(\w+_r)\b/) {
+               #warn "$1 => $File::Find::name\n";
+               $rfuncs{$1} = $File::Find::name;
+           }
+       }
+       close $F;
+     }, @INCDIRS);
+
+# delete bogus symbols grepped out of comments and such
+delete $rfuncs{setlocale_r} if $^O eq 'linux';
+
+for my $exe (@EXES) {
+    for my $sym (`$NMU $exe`) {
+        chomp $sym;
+       $sym =~ s/^\s+[Uu]\s+//;
+        $sym =~ s/^\s+//;
+        next if /\s/;
+        $sym =~ s/\@.*\z//;    # remove @@GLIBC_2.0 etc
+        # warn "#### $sym\n";
+        if (exists $rfuncs{"${sym}_r"}) {
+           push @syms, $sym;
+        }
+    }
+    
+    if (@syms) {
+        print "\nFollowing symbols in $exe have reentrant versions:\n";
+        for my $sym (@syms) {
+           print "$sym => $sym" . "_r (in file " . $rfuncs{"${sym}_r"} . ")\n";
+        }
+    }
+    @syms = ();
+}
+
index 3bfb855..2024915 100644 (file)
@@ -96,8 +96,13 @@ my @exe = qw(
     vms/ext/Stdio/test.pl
     vms/ext/filespec.t
     x2p/*.SH
-    Porting/patchls
+    Porting/findrfuncs
+    Porting/genlog
     Porting/makerel
+    Porting/p4d2p
+    Porting/p4desc
+    Porting/patchls
+    Porting/*.pl
     mpeix/nm
     mpeix/relink
 );