diff options
Diffstat (limited to '')
-rw-r--r-- | tools/update/word-replace.in | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/tools/update/word-replace.in b/tools/update/word-replace.in new file mode 100644 index 0000000000..24c7c3a546 --- /dev/null +++ b/tools/update/word-replace.in @@ -0,0 +1,89 @@ +#!@PERL@ +# +# $Id$ +# + +eval "exec @PERL@ -S $0 $*" + if $running_under_some_shell; + +require 'getopts.pl'; +&Getopts("p:vh"); # help, pattern file, verbose, + +if ($opt_h || ! $opt_p) { + print STDERR <<NO_MORE_HELP; +word-replace + + Replace *words* with patterns. Pattern file specifies which patterns + to replace on each line. All patterns are wrapped with perl \\b regexp + specifiers. + +Usage: $0 [-v] -p pattern-file files to replace + + -v -- possibly more verbose + -p file -- pattern file + -h -- help + + anything else == this help message + +Pattern file looks like this: + +# Example: +# ignores all lines with beginning with # or not exactly 2 fields +_Dorky_Name rtems_dorky_name # comments, and blank lines are cool +_Dorky_Name2 rtems_dorky_name2 # comments, and blank lines are cool +NO_MORE_HELP + exit 0; +} + +$verbose = $opt_v; +$pattern_file = $opt_p; + +# make standard outputs unbuffered (so the '.'s come out ok) +$oldfh = select(STDERR); $| = 1; select($oldfh); +$oldfh = select(STDOUT); $| = 1; select($oldfh); + +# pull in the patterns +open(PATTERNS, "<$pattern_file") || + die "could not open $pattern_file: $!, crapped out at"; + +foreach (<PATTERNS>) +{ + chop; + s/#.*//; + next if /^$/; + ($orig, $new, $junk, @rest) = split; + next if ( ! $orig || ! $new || $junk); # <2 or >2 patterns + die "pattern appears 2x: '$orig' in '$pattern_file'--" if defined($patterns{$orig}); + $patterns{$orig} = $new; +} +close PATTERNS; + +# walk thru each line in each file +foreach $file (@ARGV) +{ + print "$file\t"; + + open (INFILE, "<$file") || + die "could not open input file $file: $!"; + + $outfile = $file . ".fixed";; + open (OUTFILE, ">$outfile") || + die "could not open output file $outfile: $!"; + + while (<INFILE>) + { + study; # maybe make s/// faster + foreach $key (keys %patterns) + { + if ( s/\b$key\b/$patterns{$key}/ge ) + { + print "."; + } + } + print OUTFILE $_; + } + print "\n"; + close INFILE; + close OUTFILE; +} + |