ACE/bin/regenerate_exports.pl

   1 eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
   2     & eval 'exec perl -S $0 $argv:q'
   3     if 0;
   4
   5 # Goes through ACE/TAO and replaces
   6
   7 use File::Find;
   8 use Cwd;
   9
  10 $args = '';
  11 $root = cwd.'/';
  12
  13 while ($#ARGV >= 0) {
  14   $args = $args . ' ' . shift @ARGV;
  15 }
  16
  17 # wanted is only used for the File::Find
  18 sub wanted
  19 {
  20     my $file = $File::Find::name;
  21
  22     $file =~ s/\.\//$root/;
  23
  24     if ($File::Find::name =~ /\_export\.h$/i) {
  25         my $flag = 0;
  26         my $name = '';
  27
  28         if (!open (FILE, $file)) {
  29             print STDERR "Error: Could not open $file\n";
  30         }
  31
  32         while (<FILE>) {
  33             $flag = 1 if ((/generate_export/ || /GenExportH/) && $flag == 0);
  34             $name = $1 if (/define (\w*)_Export/);
  35         }
  36
  37         if ($flag == 1) {
  38             print "Regenerating: $file\n";
  39             if ($OSNAME eq 'MSWIn32') {
  40                 $file =~ s/\//\\/g;
  41             }
  42             system ("perl -S generate_export_file.pl $args $name > $file");
  43         }
  44         else {
  45             print "Skipping:     $file\n";
  46         }
  47         close FILE;
  48     }
  49 }
  50
  51
  52 find (\&wanted, ".");
  53