tools/grand-rename

   1 #!/usr/bin/perl -w
   2 # -----------------------------------------------------------------------------
   3
   4 use strict;
   5
   6 die "$0: must be run from top-level directory.\n"
   7     unless (-r "configure.ac" &&
   8             -r 'ChangeLog' &&
   9             -r 'po/POTFILES.in');
  10
  11 my $doit = ($ARGV[0] && $ARGV[0] =~ /^--doit/ && shift);
  12
  13 my $oldname = $ARGV[0];
  14 my $newname = $ARGV[1];
  15 if (defined ($oldname) && !defined ($newname)) {
  16     $newname = $oldname;
  17     if ($oldname =~ /^_?[A-Z].*[a-z]/) {
  18         $newname =~ s/(_*)/$1Gnm/;
  19     } elsif ($oldname =~ /^[a-z0-9_]+$/) {
  20         $newname =~ s/(_*)/$1gnm_/;
  21     } elsif ($oldname =~ /^[A-Z0-9_]+$/) {
  22         $newname =~ s/(_*)/$1GNM_/;
  23     }
  24 }
  25 die "Usage $0 oldname newname\n" unless $oldname && $newname;
  26 die "$0: oldname and newname must be different\n" if $oldname eq $newname;
  27
  28 my @files = &find_files ();
  29
  30 &do_files (\@files, 1);
  31 if ($doit) {
  32     print STDERR "Renaming $oldname to $newname\n";
  33     &do_files (\@files, 0);
  34 }
  35
  36 # -----------------------------------------------------------------------------
  37
  38 sub find_files {
  39     my @files = ();
  40
  41     my %generated =
  42         ('stamp.h' => 1,
  43          'gnumeric-config.h' => 1,
  44          'src/parser.c' => 1,
  45          );
  46
  47     local (*FIL);
  48     open (*FIL, "find . '(' -name '*.[chy]' -type f -print ')' -o " .
  49           "'(' -type d '(' -name CVS -o -name intl -o -name macros ')' -prune ')' |") or
  50         die "$0: Cannot run find command.\n";
  51     while (<FIL>) {
  52         chomp;
  53         s|^\./||;
  54
  55         next if $generated{$_};
  56
  57         push @files, $_;
  58     }
  59     close (*FIL);
  60
  61     return @files;
  62 }
  63
  64 # -----------------------------------------------------------------------------
  65
  66 sub do_files {
  67     my ($pfiles,$test) = @_;
  68
  69     foreach my $filename (@$pfiles) {
  70         local (*SRC);
  71         local (*DST);
  72
  73         # print STDERR "Scanning $filename...\n";
  74         my $newfilename = "$filename.new";
  75
  76         open (*SRC, "<$filename") || die "$0: Cannot read $filename: $!\n";
  77         if (!$test) {
  78             open (*DST, ">$newfilename") || die "$0: Cannot write $newfilename: $!\n";
  79         }
  80
  81         my $didit = 0;
  82
  83         if ($test) {
  84             my $lineno = 1;
  85             foreach my $line (<SRC>) {
  86                 my $linecopy = $line;
  87                 $line =~ s/\b$oldname\b/$newname/g;
  88                 $line =~ s/\b$newname\b/$oldname/g;
  89                 if ($line ne $linecopy) {
  90                     chomp ($linecopy);
  91                     die "$0: Rename clash in $filename, line $lineno: $linecopy <-> $line\n";
  92                 }
  93                 $lineno++;
  94             }
  95         } else {
  96             foreach my $line (<SRC>) {
  97                 $didit = 1 if $line =~ s/\b$oldname\b/$newname/g;
  98                 print DST $line;
  99             }
 100         }
 101         close (*SRC);
 102
 103         if (!$test) {
 104             close (*DST);
 105             if ($didit) {
 106                 rename $newfilename, $filename;
 107             } else {
 108                 unlink $newfilename;
 109             }
 110         }
 111     }
 112 }
 113
 114 # -----------------------------------------------------------------------------