diff options
author | Ralf Corsepius <ralf.corsepius@rtems.org> | 2003-03-25 08:30:09 +0000 |
---|---|---|
committer | Ralf Corsepius <ralf.corsepius@rtems.org> | 2003-03-25 08:30:09 +0000 |
commit | 24af9a0677c4707fd4641223ec49101436c219d3 (patch) | |
tree | edec93dc418f0549c83b24b5e6de0d370564ad12 /tools/update/word-replace.in | |
parent | Merger from rtems-4-6-branch. (diff) | |
download | rtems-24af9a0677c4707fd4641223ec49101436c219d3.tar.bz2 |
Merger from rtems-4-6-branch.
Diffstat (limited to '')
-rw-r--r-- | tools/update/word-replace.in | 89 |
1 files changed, 0 insertions, 89 deletions
diff --git a/tools/update/word-replace.in b/tools/update/word-replace.in deleted file mode 100644 index 24c7c3a546..0000000000 --- a/tools/update/word-replace.in +++ /dev/null @@ -1,89 +0,0 @@ -#!@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; -} - |