1 files changed, 54 insertions, 0 deletions
diff --git a/ACE/bin/regenerate_exports.pl b/ACE/bin/regenerate_exports.pl
new file mode 100755
index 00000000000..1261834e8ff
--- /dev/null
+++ b/ACE/bin/regenerate_exports.pl
@@ -0,0 +1,54 @@
+eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
+    & eval 'exec perl -S $0 $argv:q'
+    if 0;
+
+# $Id$
+# Goes through ACE/TAO and replaces
+
+use File::Find;
+use Cwd;
+
+$args = '';
+$root = cwd.'/';
+
+while ($#ARGV >= 0) {
+  $args = $args . ' ' . shift @ARGV;
+}
+
+# wanted is only used for the File::Find
+sub wanted
+{
+    my $file = $File::Find::name;
+
+    $file =~ s/\.\//$root/;
+
+    if ($File::Find::name =~ /\_export\.h$/i) {
+        my $flag = 0;
+        my $name = '';
+
+        if (!open (FILE, $file)) {
+            print STDERR "Error: Could not open $file\n";
+        }
+
+        while (<FILE>) {
+            $flag = 1 if ((/generate_export/ || /GenExportH/) && $flag == 0);
+            $name = $1 if (/define (\w*)_Export/);
+        }
+
+        if ($flag == 1) {
+            print "Regenerating: $file\n";
+            if ($OSNAME eq 'MSWIn32') {
+                $file =~ s/\//\\/g;
+            }
+            system ("perl -S generate_export_file.pl $args $name > $file");
+        }
+        else {
+            print "Skipping:     $file\n";
+        }
+        close FILE;
+    }
+}
+
+
+find (\&wanted, ".");
+