| 1 |
#!/bin/sh |
#!/bin/sh |
| 2 |
|
|
| 3 |
# rename methods |
test -z "$1" -o -z "$2" && echo "usage: $0 old_method new_method" && exit |
| 4 |
|
|
| 5 |
perl -p -i -n -e 's/sub markup/sub as_markup/' `grep -lr 'sub markup' lib t` |
from=$1 |
| 6 |
perl -p -i -n -e 's/sub data/sub as_data/' `grep -lr 'sub data' lib t` |
to=$2 |
|
perl -p -i -n -e 's/sub sponge/sub as_sponge/' `grep -lr 'sub sponge' lib t` |
|
| 7 |
|
|
| 8 |
perl -p -i -n -e 's/->markup/->as_markup/' `grep -lr -- '->markup' lib t` |
echo "# rename method $from -> $to" |
|
perl -p -i -n -e 's/->data/->as_data/' `grep -lr -- '->data' lib t` |
|
|
perl -p -i -n -e 's/->sponge/->as_sponge/' `grep -lr -- '->sponge' lib t` |
|
| 9 |
|
|
| 10 |
perl -p -i -n -e 's!/markup!/as_markup!' `grep -lr -- '/markup' lib t etc` |
grep -lr $from lib t etc | xargs --verbose -i sh -c "perl -p -i -n -e 's{(sub |->|/)$from}{\1$to}g' {}" && ( |
| 11 |
perl -p -i -n -e 's!/data!/as_data!' `grep -lr -- '/data' lib t etc` |
svk diff | vi -R - |
| 12 |
perl -p -i -n -e 's!/sponge!/as_sponge!' `grep -lr -- '/sponge' lib t etc` |
) |
Parent Directory
| 
Revision Log
| 
Patch