[Rt-commit] r10574 - rt/branches/3.999-DANGEROUS/temp_refactoring_tools

[ruz at bestpractical.com]

Author: ruz
Date: Tue Jan 29 19:30:14 2008
New Revision: 10574

Added:
   rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_column_args.pl
   rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_method_calls.pl

Log:
* add my scripts

Added: rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_column_args.pl
==============================================================================
--- (empty file)
+++ rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_column_args.pl	Tue Jan 29 19:30:14 2008
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# lowers column => 'CamelCase'
+# find lib/ -type f | xargs perl -i -n temp_refactoring_tools/lower_column_args.pl
+
+my %bad = map {$_ => 1} qw();
+
+my $wid_re = qr{([a-zA-Z_]*?[A-Z][a-z][a-zA-Z_]*)\b(?!\w)};
+
+while(<>) {
+    s{ (column[12]? \s+ => \s* ') $wid_re (' \s* (,|$))  }{ $1 . low_api($2) . $3 }gxe;
+    s{ (column[12]? \s+ => \s* ") $wid_re (" \s* (,|$))  }{ $1 . low_api($2) . $3 }gxe;
+    print;
+}
+
+sub low_api {
+    my $v = shift;
+    return $v if $bad{ $v };
+    $v =~ s/(?<=[a-z])(?=[A-Z])/_/g;
+    return lc $v;
+}
+

Added: rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_method_calls.pl
==============================================================================
--- (empty file)
+++ rt/branches/3.999-DANGEROUS/temp_refactoring_tools/lower_method_calls.pl	Tue Jan 29 19:30:14 2008
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+# lowers ->CamelCase
+# find lib/ -type f | xargs perl -i -n temp_refactoring_tools/lower_method_calls.pl
+
+
+my %bad = map {$_ => 1} qw(
+    uploadInfo
+    getChild removeChild addChild insertSibling getParent getIndex
+    getNodeValue setNodeValue getAllChildren isRoot isLeaf getDepth
+    DESTROY
+);
+
+
+my $call_re = qr{(?<=->)([a-zA-Z_]*?[A-Z][a-z][a-zA-Z_]*)\b(?!\w)};
+
+while(<>) {
+    s/$call_re/low_api($1)/ge;
+    print;
+}
+
+sub low_api {
+    my $v = shift;
+    return $v if $bad{ $v };
+    $v =~ s/(?<=[a-z])(?=[A-Z])/_/g;
+    return lc $v;
+}
+