From f75360c2cce8640b07760b888b39bd12392104cb Mon Sep 17 00:00:00 2001
From: Reuben Thomas <rrt@sc3d.org>
Date: Thu, 6 Aug 2009 17:33:25 +0100
Subject: Fix more occurrences of the prefix, clarify the code.

---
 rename-macro.pl | 35 ++++++++++++++++++++---------------
 1 file changed, 20 insertions(+), 15 deletions(-)

(limited to 'rename-macro.pl')

diff --git a/rename-macro.pl b/rename-macro.pl
index 1af6a86..faff4ee 100755
--- a/rename-macro.pl
+++ b/rename-macro.pl
@@ -11,32 +11,37 @@ use warnings;
 
 my ($prefix, $old, $new) = @ARGV;
 
-my $old_name = uc($old);
+# Extract names from file names
+my $old_name = $old;
 $old_name =~ s/\..*$//;
-
-my $new_name = uc($new);
+my $new_name = $new;
 $new_name =~ s/\..*$//;
 
-my $insertion = <<END;
-# OBSOLETE MACRO
-#
-#   Renamed to $new_name
-#
-END
-chomp $insertion;
-
+# Read file
 open IN, $old or die "could not read $old\n";
 my $text = do { local $/, <IN> };
 
+# Make new macro
 my $new_text = $text;
-$new_text =~ s/$old_name/$new_name/g;
-$new_text =~ s/$prefix/AX_/g;
+$new_text =~ s/$old_name/$new_name/g; # Change name (lower case)
+my $uc_old_name = uc($old_name);
+$new_text =~ s/$uc_old_name/uc($new_name)/ge; # Change name (upper case)
+$new_text =~ s/$prefix/AX_/g; # Change other references to prefix (upper case)
+my $lc_prefix = lc($prefix);
+$new_text =~ s/$lc_prefix/ax_/g; # Change other references to prefix (lower case)
 open OUTFILE, ">$new" or die "could not read $new";
 print OUTFILE $new_text;
+system "git add $new";
 
+# Obsolete the old macro
+my $insertion = <<END;
+# OBSOLETE MACRO
+#
+#   Renamed to $new_name
+#
+END
+chomp $insertion;
 my $old_text = $text;
 $old_text =~ s/^\# SYNOPSIS/"$insertion\n\# SYNOPSIS"/me;
 open OUTFILE, ">$old" or die "could not write $old";
 print OUTFILE $old_text;
-
-system "git add $new";
-- 
cgit v1.2.1