diff options
author | Ralf Corsepius <ralf.corsepius@rtems.org> | 2003-03-12 08:21:32 +0000 |
---|---|---|
committer | Ralf Corsepius <ralf.corsepius@rtems.org> | 2003-03-12 08:21:32 +0000 |
commit | 2ff68ec24aea5c6b265922e2fae77d0adf3cefc9 (patch) | |
tree | 68339be05dcc58f18e84d93b14d4e51f39580e7c /tools/update/word-replace.in | |
parent | 2003-03-12 Ralf Corsepius <corsepiu@faw.uni-ulm.de> (diff) | |
download | rtems-2ff68ec24aea5c6b265922e2fae77d0adf3cefc9.tar.bz2 |
2003-03-12 Ralf Corsepius <corsepiu@faw.uni-ulm.de>
* 310_to_320_list: Delete (Obsolete).
* acpolish: Delete (Obsolete).
* ampolish: Delete (Obsolete).
* cipolish: Delete (Obsolete).
* rtems-polish.sh: Delete (Obsolete).
* update.in: Delete (Unused).
* word-replace.in: Delete (Unused).
* README: Delete (Obsolete).
* Makefile.am: Reflect changes above.
* configure.ac: Reflect changes above.
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; -} - |